Leao

Olá BigWings, sim, abrir o arquivo(acbrNFeServicos.ini) e tá lá certinho, mas não entendo essa diferença, no cliente mostra uma url diferente, alguém sabe me explicar isso? e solução.... Obrigado,

Olá Fabrício, foi digitada, mas a foto acima mostra o correto. A configuração tá correta, inclusive tava emitindo na versão 3.10 O André informou : a imagem do demo aparece SVAN e na do seu aplicativo SefazVirtual, ou seja, vc está consultando ambientes diferentes. André como e onde configurar, aqui em casa\escritório consulta normalmente tanto o demo como o meu aplicativo xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeStatusServico4"> - <retConsStatServ versao="4.00" No meu cliente ://www.sefazvirtual.fazenda.gov.br/NFeStatusServico4/NFeStatusServico4.asmx

Olá BigWings, no teste o anti virus, estava em pause, já informei o dns da google 8.8.8.8 e segundario 8.8.4.4 desconfio do provedor deles é via rádio, já solicitei configuração de dns, mas não conseguiram resolver. O certificado é A1, da Certisign instalei 'as cadeias e etc. Em casa funciona normalmente. Alguém com experiência...... Olá André, sim isso que não estou entendendo, testando aqui em casa mostra igual do demo, veja: xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeStatusServico4"> no cliente traz diferente. Como faço para corrigir isso? Obrigado, Leão

Olá BigWings, no teste o anti virus, estava em pause, já informei o dns da google 8.8.8.8 e segundario 8.8.4.4 desconfio do provedor deles é via rádio, já solicitei configuração de dns, mas não conseguiram resolver. O certificado é A1, da Certisign instalei 'as cadeias e etc. Em casa funciona normalmente. Alguém com experiência......

Olá, veja o senário um computador do cliente, windows7, 32, formatado atualiazado, no meu software ocorre mensagem conforme título, copie o demo.exe para o mesmo computador e status serviços funciona normalmente, informo as mesmas configurações e o erro persiste, observei que a mensagem é diferente em relação ao demo veja: no demo.exe: "http://www.portalfiscal.inf.br/nfe/wsdl/NFeStatusServicos4" e no meu software https://www.sefazvitual.fazenda.gov.br/NfeStatusServico4/NFeStatusServico4.asmx Alguém pode analisar, agradeço

Olá Juninho, rapaz é isso que os contadores estão com dificuldade, estou três e até agora nada. Essa redução.... Alguém tiver alguma informação agradeço.

Olá, poderia fazer um exemplo, pois conforme acima não bate.

Olá Juninho, tô vendo isso com contadores e estão tendo dificuldades, imagina nós..... Obrigado

Olá, sobre icms efetivo (Maranhão), sobre esse exemplo alguém pode me explicar esses campos: <ICMSSN500> <orig>0</orig> <CSOSN>500</CSOSN> <pRedBCEfet>66.6700</pRedBCEfet> como chegou a esse valor 66.66700 <vBCEfet>666.70</vBCEfet> Esse <pICMSEfet>18.0000</pICMSEfet> <vICMSEfet>120.01</vICMSEfet> </ICMSSN500> Obrigado,

Olá, agradeço Juliana e Amarildo, conseguir descobrir na verdade faltava o Tipo de inscrição do cedente 1-Pessoa Fisíca e 2-Juridica. Obrigado Leão

Olá Amarildo, testei não deu certo continua com o mesmo erro. Na posição 72 padrão é 0 zero, e tá sendo preenchido com a primeira letra do nome do cliente no caso Mercearia, tá ficando M, e na posição 73 Nome do Banco tá ficando AIXA ECONOMICA FEDERAL, o C de CAIXA ficou na linha acima 72 no final. Alguém se habilita a resolver? veja acima o que tô falando. Obrigado, Leão

já comparei tá igual, o banco bradesco funciona a vários anos, conforme PadRight('', 7, '0') + //65 a 71 - Uso Exclusivo CAIXA '0' + //72 - Uso Exclusivo CAIXA esse zero não é inserido PadRight(Nome, 30, ' ') + //73 a 102 - Nome do cedente : veja no meu fonte: Titulow := ACBrBoleto1.CriarTituloNaLista; if XNumEdit3_cx_ba.Value=1 then ACBrBoleto1.Banco.TipoCobranca:=cobBancoDoBrasil; if XNumEdit3_cx_ba.Value=4 then ACBrBoleto1.Banco.TipoCobranca:=cobBancoDoNordeste; if XNumEdit3_cx_ba.Value=104 then ACBrBoleto1.Banco.TipoCobranca:=cobCaixaEconomica; if XNumEdit3_cx_ba.Value=341 then ACBrBoleto1.Banco.TipoCobranca:=cobItau; if XNumEdit3_cx_ba.Value=008 then ACBrBoleto1.Banco.TipoCobranca:=cobSantander; if XNumEdit3_cx_ba.Value=033 then ACBrBoleto1.Banco.TipoCobranca:=cobSantander; if XNumEdit3_cx_ba.Value=353 then ACBrBoleto1.Banco.TipoCobranca:=cobSantander; if XNumEdit3_cx_ba.Value=389 then ACBrBoleto1.Banco.TipoCobranca:=cobBancoMercantil; if XNumEdit3_cx_ba.Value=399 then ACBrBoleto1.Banco.TipoCobranca:=cobHSBC; if XNumEdit3_cx_ba.Value=237 then ACBrBoleto1.Banco.TipoCobranca:=cobBradesco; ACBrBoleto1.Banco.Numero:=StrToInt(XNumEdit3_cx_ba.Text); //237; ACBrBoleto1.Banco.Nome:=CamposResultado_banco1[0]; //'Bradesco'; if not VarIsNull(CamposResultado_banco1[3]) then ACBrBoleto1.Banco.Digito:=StrToInt(CamposResultado_banco1[3]); if CamposResultado_banco1[20]=0 then ACBrBoleto.LayoutRemessa:=c240 else ACBrBoleto.LayoutRemessa:=c400; if CamposResultado_banco1[20]=0 then ACBrBoleto1.LayoutRemessa:=c240 else ACBrBoleto1.LayoutRemessa:=c400; if CamposResultado_banco1[32]='P' then ACBrBoletoFCFortes1.LayOut:=lPadraoEntrega; if CamposResultado_banco1[32]='F' then ACBrBoletoFCFortes1.LayOut:=lFatura; if CamposResultado_banco1[32]='C' then ACBrBoletoFCFortes1.LayOut:=lCarne; ACBrBoleto1.Cedente.Agencia:=iif(not VarIsNull(CamposResultado_banco1[2]),CamposResultado_banco1[2],''); ACBrBoleto1.Cedente.AgenciaDigito:=iif(not VarIsNull(CamposResultado_banco1[3]),CamposResultado_banco1[3],0); ACBrBoleto1.Cedente.Bairro:=Sistema.BairroUsr; //ACBrBoleto1.Cedente.CaracTitulo:=tcSimples; //ACBrBoleto1.Cedente.CaracTitulo:=ComboBox2_carac.ItemIndex; if ComboBox2_carac.ItemIndex=0 then ACBrBoleto1.Cedente.CaracTitulo:=tcCaucionada; if ComboBox2_carac.ItemIndex=1 then ACBrBoleto1.Cedente.CaracTitulo:=tcDescontada; if ComboBox2_carac.ItemIndex=2 then ACBrBoleto1.Cedente.CaracTitulo:=tcSimples; if ComboBox2_carac.ItemIndex=3 then ACBrBoleto1.Cedente.CaracTitulo:=tcVendor; if ComboBox2_carac.ItemIndex=4 then ACBrBoleto1.Cedente.CaracTitulo:=tcVinculada; ACBrBoleto1.Cedente.ResponEmissao:=tbCliEmite; ACBrBoleto1.Cedente.CEP:=Sistema.CEPUsr; ACBrBoleto1.Cedente.Cidade:=Sistema.CidadeUsr; ACBrBoleto1.Cedente.CNPJCPF:=Sistema.CNPJUsr; ACBrBoleto1.Cedente.CodigoCedente:=iif(not VarIsNull(CamposResultado_banco1[7]),CamposResultado_banco1[7],''); //conveio ACBrBoleto1.Cedente.Conta:=iif(not VarIsNull(CamposResultado_banco1[4]),CamposResultado_banco1[4],''); ACBrBoleto1.Cedente.ContaDigito:=iif(not VarIsNull(CamposResultado_banco1[5]),CamposResultado_banco1[5],''); if CamposResultado_banco1[7]<>'' then ACBrBoleto1.Cedente.Convenio:=iif(not VarIsNull(CamposResultado_banco1[7]),Trim(CamposResultado_banco1[7]),''); ACBrBoleto1.Cedente.Logradouro:=Sistema.EnderecoUsr; // 26/03/2013 ACBrBoleto1.Cedente.Modalidade:=iif(not VarIsNull(CamposResultado_banco1[23]),CamposResultado_banco1[23],'1'); ACBrBoleto1.Cedente.Modalidade:=iif(not VarIsNull(CamposResultado_banco1[34]),CamposResultado_banco1[34],''); ACBrBoleto1.Cedente.Nome:=iif(not VarIsNull(CamposResultado_banco1[15]),CamposResultado_banco1[15],'FALTA INFORMAR O NOME DA EMPRESA'); ACBrBoleto1.Cedente.TipoInscricao:=iif(not VarIsNull(CamposResultado_banco1[21]),CamposResultado_banco1[21],'1'); ACBrBoleto1.Cedente.UF:=Sistema.UfUsr; ACBrBoleto1.ACBrBoletoFC.DirLogo:=sistema.Pasta+'\'+'Bancos\'; // 'D:\Acbr\Fontes\ACBrBoleto\Logos\Colorido\'; if CamposResultado_banco1[6]='11' then ACBrBoleto1.Cedente.ResponEmissao:=tbBancoEmite else ACBrBoleto1.Cedente.ResponEmissao:=tbCliEmite; wletra:=DReceber.STATUS.Conteudo; SpeedButton1_pdf.Enabled:=true; BtnVisualizar.Enabled:=false; BtnCancelar.Enabled:=false; DReceber.First; while not DReceber.eof do begin wnome_cliente:=RemoveAcentos(DReceber.NOME_CLIENTE.Conteudo); PTabela(TabGlobal.DClientes,['CODIGO'],[DReceber.COD_CLIENTE.Conteudo], ['FANTASIA','COB_ENDERECO','COB_BAIRRO','COB_CIDADE','COB_ESTADO', 'COB_CEP','PESSOA','CNPJ','CPF','NOME','FONE','INSC_EST','COB_NR_END'], CamposResultado); with Titulow do begin Vencimento := StrToDate(DReceber.VENCTO.ValorString); //StrToDate(edtVencimento.Text); DataDocumento := StrToDate(DReceber.EMISSAO.ValorString); Carteira := iif(not VarIsNull(CamposResultado_banco1[6]),CamposResultado_banco1[6],''); // edtCarteira.Text; if ComboBox1.ItemIndex = 0 then NumeroDocumento := XNumEdit1.Text+'/'+XNumEdit2.Text+'A' else if ComboBox1.ItemIndex = 1 then NumeroDocumento := XNumEdit1.Text+'/'+XNumEdit2.Text+'M' else if ComboBox1.ItemIndex = 2 then NumeroDocumento := XNumEdit1.Text+'/'+XNumEdit2.Text+'O' else if ComboBox1.ItemIndex = 3 then NumeroDocumento := XNumEdit1.Text+'/'+XNumEdit2.Text+'G'; EspecieDoc := iif(not VarIsNull(CamposResultado_banco1[14]),CamposResultado_banco1[14],''); //edtEspecieDoc.Text; Aceite := iif(CamposResultado_banco1[13]='S',atSim,atNao); //atSim ou atNao; DataProcessamento := Now; NossoNumero := Edit1.Text; //edtNossoNro.Text; ValorDocumento := StrToCurr(DReceber.VALOR_RESTANTE.ValorString)+iif(CamposResultado_banco1[30]>0,CamposResultado_banco1[30],0); if RadioGroup2_fantasia.ItemIndex=0 then Sacado.NomeSacado := iif(not VarIsNull(Camposresultado[0]),RemoveAcentos(CamposResultado[0]),'SEM NOME FANTASIA') //edtNome.Text; else Sacado.NomeSacado := iif(not VarIsNull(Camposresultado[9]),RemoveAcentos(CamposResultado[9]),'SEM NOME'); Sacado.CNPJCPF := iif(CamposResultado[6]='J',CamposResultado[7],CamposResultado[8]); //RemoveStrings(edtCPFCNPJ.Text,AString); Sacado.Pessoa := iif(CamposResultado[6]='J',pJuridica,pFisica); Sacado.Logradouro := iif(not VarIsNull(CamposResultado[1]),RemoveAcentos(CamposResultado[1]),'S/END.'); //edtEndereco.Text; Sacado.Numero := iif(not VarIsNull(CamposResultado[12]),CamposResultado[12],''); //'1'; //edtNumero.Text; Sacado.Bairro := iif(not VarIsNull(CamposResultado[2]),RemoveAcentos(CamposResultado[2]),''); //edtBairro.Text; Sacado.Cidade := iif(not VarIsNull(CamposResultado[3]),RemoveAcentos(CamposResultado[3]),''); //edtCidade.Text; Sacado.UF := iif(not VarIsNull(CamposResultado[4]),CamposResultado[4],''); //edtUF.Text; Sacado.CEP := iif(not VarIsNull(CamposResultado[5]),CamposResultado[5],''); ValorAbatimento := 0; //StrToCurrDef(edtValorAbatimento.Text,0); if (RadioGroup1.ItemIndex=0) and (not VarIsNull(CamposResultado_banco1[16])) then LocalPagamento :=CamposResultado_banco1[16] //edtLocalPag.Text; else LocalPagamento :=''; if CamposResultado_banco1[8]>0 then ValorMoraJuros :=DReceber.VALOR_RESTANTE.Conteudo*(CamposResultado_banco1[8]/100/30) //StrToCurrDef(edtMoraJuros.Text,0); else ValorMoraJuros := 0; if CamposResultado_banco1[26]>0 then ValorDesconto := CamposResultado_banco1[26] //StrToCurrDef(edtValorDesconto.Text,0); else ValorDesconto :=0; ValorAbatimento := 0; //StrToCurrDef(edtValorAbatimento.Text,0); DataMoraJuros := 0; //StrToDateDef(edtDataMora.Text, 0); if CamposResultado_banco1[31]>0 then DataDesconto :=(DReceber.VENCTO.Conteudo-CamposResultado_banco1[31]) //StrToDateDef(edtDataDesconto.Text, 0); else DataDesconto := 0; DataAbatimento := 0; //StrToDateDef(edtDataAbatimento.Text, 0); if CamposResultado_banco1[27]>0 then DataProtesto := (DReceber.VENCTO.Conteudo+CamposResultado_banco1[27]); //StrToDateDef(edtDataProtesto.Text, 0); if CamposResultado_banco1[30]>0 then PercentualMulta := CamposResultado_banco1[30] //StrToCurrDef(edtMulta.Text,0); else PercentualMulta := 0; Mensagem.Add(iif(XNumEdit3_nf.Value>0,('NF-e '+XNumEdit3_nf.Text),'')); //memMensagem.Text; if XEdit2.Text<>EmptyStr then Mensagem.Add(XEdit2.Text); if not VarIsNull(CamposResultado_banco1[10]) then Mensagem.Add(CamposResultado_banco1[10]); if not VarIsNull(CamposResultado_banco1[11]) then Mensagem.Add(CamposResultado_banco1[11]); if not VarIsNull(CamposResultado_banco1[12]) then Mensagem.Add(CamposResultado_banco1[12]); OcorrenciaOriginal.Tipo :=iif(not VarIsNull(CamposResultado_banco1[22]),CamposResultado_banco1[22],''); //toRemessaBaixar; Instrucao1 :=''; Instrucao2 :=''; end; DReceber.Next; end; Alguém pode ajudar.... Obrigado

Olá Juliana, informei os dados no demo e saiu correto, não entendo porque no meu fonte não dar certo, veja os detalhes, conseguir identificar alguma coisa veja: function TACBrCaixaEconomica.GerarRegistroHeader240(NumeroRemessa : Integer): String; var ATipoInscricao: string; AMensagemReservada: String; begin with ACBrBanco.ACBrBoleto.Cedente do begin case TipoInscricao of pFisica : ATipoInscricao := '1'; pJuridica: ATipoInscricao := '2'; end; if ACBrBanco.ACBrBoleto.Homologacao then AMensagemReservada := 'REMESSA-TESTE' else AMensagemReservada := 'REMESSA-PRODUCAO'; { GERAR REGISTRO-HEADER DO ARQUIVO } Result:= IntToStrZero(ACBrBanco.Numero, 3) + //1 a 3 - Código do banco '0000' + //4 a 7 - Lote de serviço '0' + //8 - Tipo de registro - Registro header de arquivo PadRight('', 9, ' ') + //9 a 17 Uso exclusivo FEBRABAN/CNAB ATipoInscricao + //18 - Tipo de inscrição do cedente PadLeft(OnlyNumber(CNPJCPF), 14, '0') + //19 a 32 -Número de inscrição do cedente PadRight('',20, '0') + //33 a 52 - Código do convênio no banco [ Alterado conforme instruções da CSO Brasília ] 27-07-09 PadLeft(OnlyNumber(Agencia), 5, '0') + //53 a 57 - Código da agência do cedente PadRight(AgenciaDigito, 1 , '0') + //58 - Dígito da agência do cedente PadLeft(CodigoCedente, 6, '0') + //59 a 64 - Código Cedente (Código do Convênio no Banco) PadRight('', 7, '0') + //65 a 71 - Uso Exclusivo CAIXA '0' + //72 - Uso Exclusivo CAIXA esse zero não é inserido PadRight(Nome, 30, ' ') + //73 a 102 - Nome do cedente PadRight('CAIXA ECONOMICA FEDERAL', 30, ' ') + //103 a 132 - Nome do banco O zero em negrito não é inserido, era para ser na coluna 72, e na mesma é inserido o primeiro nome do cliente. Veja abaixo: Veja que na primeira linha o nome da empresa(cliente) é Mercearia, a letra M, fica na coluna 72, e informa valor M, e Nome da Empresa fica ERCEARIA FREITAS C, faltando justamente a letra "M". Alguém pode ajudar agradeço. Obrigado Leão

Olá Juliana, conseguir gerar o arquivo no demo, ao gerar o arquivo remessa.txt, sai correto veja: 10400000 2054813360001370000000000000000000000284542664400000000TodaObra Materias p/ ConstrucaCAIXA ECONOMICA FEDERAL 11007201814500000000105000000 REMESSA-PRODUCAO como faço para corrigir isso no meu fonte?

Olá Juliana, no demo não consigo gerar o arquivo remessa, ou não descobrir em que pasta gera o mesmo. conseguir gerar a pasta e nome do arquivo remessa, mas tá banco Itaú 341

Olá Amarildo, conforme acima, a coluna 72, é Uso Exclusivo da CAiXA, essa coluna tá sendo preenchida com a primeiro caractere do nome da empresa(cliente), tá bem claro. Alguém que tá usando gerando o arquivo remessa por favor verifique e poste aqui. Obrigado,

Olá Amarildo, pois o componente deveria iniciar na coluna 73 nome da empresa, estranho que o fonte tá lá "0", mas não processa corretamente '0' + //72 - Uso Exclusivo CAIXA mas não gera com "0" no arquivo remessa function TACBrCaixaEconomica.GerarRegistroHeader240(NumeroRemessa : Integer): String; Alguém se habilita? Obrigado, Leão

Em anexo 170907_001A.txt Olá Amarildo, uso delphi

Conforme: function TACBrCaixaEconomica.GerarRegistroHeader240(NumeroRemessa : Integer): String; var ATipoInscricao: string; AMensagemReservada: String; begin with ACBrBanco.ACBrBoleto.Cedente do begin case TipoInscricao of pFisica : ATipoInscricao := '1'; pJuridica: ATipoInscricao := '2'; end; if ACBrBanco.ACBrBoleto.Homologacao then AMensagemReservada := 'REMESSA-TESTE' else AMensagemReservada := 'REMESSA-PRODUCAO'; { GERAR REGISTRO-HEADER DO ARQUIVO } Result:= IntToStrZero(ACBrBanco.Numero, 3) + //1 a 3 - Código do banco '0000' + //4 a 7 - Lote de serviço '0' + //8 - Tipo de registro - Registro header de arquivo PadRight('', 9, ' ') + //9 a 17 Uso exclusivo FEBRABAN/CNAB ATipoInscricao + //18 - Tipo de inscrição do cedente PadLeft(OnlyNumber(CNPJCPF), 14, '0') + //19 a 32 -Número de inscrição do cedente PadRight('',20, '0') + //33 a 52 - Código do convênio no banco [ Alterado conforme instruções da CSO Brasília ] 27-07-09 PadLeft(OnlyNumber(Agencia), 5, '0') + //53 a 57 - Código da agência do cedente PadRight(AgenciaDigito, 1 , '0') + //58 - Dígito da agência do cedente PadLeft(CodigoCedente, 6, '0') + //59 a 64 - Código Cedente (Código do Convênio no Banco) PadRight('', 7, '0') + //65 a 71 - Uso Exclusivo CAIXA '0' + //72 - Uso Exclusivo CAIXA mas não gera com "0" no arquivo remessa PadRight(Nome, 30, ' ') + //73 a 102 - Nome do cedente PadRight('CAIXA ECONOMICA FEDERAL', 30, ' ') + //103 a 132 - Nome do banco PadRight('', 10, ' ') + //133 a 142 - Uso exclusivo FEBRABAN/CNAB '1' + //143 - Código de Remessa (1) / Retorno (2) FormatDateTime('ddmmyyyy', Now) + //144 a 151 - Data do de geração do arquivo FormatDateTime('hhmmss', Now) + //152 a 157 - Hora de geração do arquivo PadLeft(IntToStr(NumeroRemessa), 6, '0') + //158 a 163 - Número seqüencial do arquivo '050' + //164 a 166 - Número da versão do layout do arquivo PadRight('', 5, '0') + //167 a 171 - Densidade de gravação do arquivo (BPI) Space(20) + // 172 a 191 - Uso reservado do banco PadRight(AMensagemReservada, 20, ' ') + // 192 a 211 - Uso reservado da empresa PadRight('', 4, ' ') + // 212 a 215 - Versao Aplicativo Caixa PadRight('', 25, ' '); // 216 a 240 - Uso Exclusivo FEBRABAN / CNAB { GERAR REGISTRO HEADER DO LOTE }

56719_001j.txt

Conforme manual folha 42, 9(001) Na posição é código 0(zero), como preencher-lo, na CAIXA e outros bancos?

Conforme analisador: Na posição 72 é uso exclusivo CAIXA, e preencheu o "R" que o nome inicial do meu cliente Rolante, na posição 73 começa o nome da Empresa Começa o nome da empresa mas pegou "O". to com os fontes atualizados. Alguém já passou por isso?

Ocorrendo o mesmo erro inclusive com internet via celular...

Boa tarde Felipe, tudo aqui já fiz, inclusive funciona em outros computador em outra empresa. Tô achando que é o roteador....