rbleonel

Hoje, dia 05/02, fiz a atualização dos pacotes e ao enviar a NFe para a Sefaz, ainda está retornando caractere inválido encontrado no texto, porém, o componente retornou a mensagem: "NF-e sem informação da IE do destinatário" Outro teste que eu fiz foi pegar uma NFe bem antiga e tentar cancelar. Também está trazendo a mensagem de caractere inválido encontrado no texto, sendo que deverei trazer a mensagem: "Rejeição: Pedido de Cancelamento intempestivo" Pelo que me parece, o ACBr não está trazendo as mensagens de rejeição da Sefaz.

Bom dia! Mesmo utilizando o instalador dá erro. Pelo instalador, eu não é possível instalar vários pacotes, tendo que ser instalados manualmente dentro do Delphi. Utilizo Delphi 2010. Obrigado, Rogério.

Olá pessoal! Me parece que encontrei o problema ou parte do problema. Cadastrei uma nova empresa sem a IE e foi emitir a NFe. Cadastrei sem a IE por descuido e não propositalmente. Fui emitir a NFe e o componente ACBr retornou a mensagem de caractere inválido encontrado no texto. Foi onde eu voltei no cadastro de clientes e verifiquei que faltava a IE. Coloquei a IE e verifiquei todos os demais mais campos e tudo estava preenchido. Fui emitir a NFe e passou sem nenhum problema. Em outro cliente, coloquei acentuação e o ACBr removeu toda a acentuação. Também retirei o código do município e o ACBr não deixou gerar o XML. Então, não sei ao certo onde está o problema mas, se remover a IE de um CNPJ e tentar emitir a NFe, vai dar o erro. Talvez seja por ai o caminho para identificar o problema. E mesmo assim, em alguns casos, mesmo olhando todo o cadastro do cliente, excluindo e fazendo novamente, lançando todos os itens novamente, ao enviar para a Sefaz retorna erro de caractere inválido. Obrigado, Rogério.

Olá pessoal! Eu também estou com o mesmo problema. O que é estranho é que eu coloquei uma função para retirar os acentos e mesmo assim dá erro. Só que no meu caso, o problema é na hora de enviar para NFe para a Sefaz. Obrigado, Rogério.

Daniel, Vou postar parte do XML formado pelo componente ACBrSat. Segue: - <prod> <cProd>0028</cProd> <xProd>INDICADOR DE TEMPERATURA CORPORAL</xProd> <CFOP>5102</CFOP> <uCom>PC</uCom> <qCom>1.0000</qCom> <vUnCom>17.000</vUnCom> <indRegra>T</indRegra> </prod> - <imposto> <vItem12741>2.04</vItem12741> <ICMS /> - <PIS> - <PISSN> <CST>01</CST> </PISSN> </PIS> - <COFINS> - <COFINSSN> <CST>01</CST> </COFINSSN> </COFINS> </imposto> Veja que a TAG de produtos está ok. Na TAG de IMPOSTOS, eu informo para o componente o seguinte: Imposto.ICMS.orig := oeNacional; Imposto.ICMS.CSOSN := csosn101; Veja que a origem da mercadoria e o CSOSN não aparecem no XML, mesmo eles sendo passados para o componente. Além disso, o componente está implementado no XML o PISSN = 01 e COFINSSN = 01, sendo que eu não estou informando nada disso para o componente. Eu gostaria de entender o que estou fazendo de errado ou o que estou deixando de fazer. Da forma como está, o emulador está rejeitando o XML. Obrigado, Rogério.

Olá pessoal! Estou com os fontes do ACBr atualizado e com a última versão do emulador instalado. A Tag Imposto não está sendo preenchida com o csosn101. Estou fazendo da seguinte forma: Imposto.ICMS.CSOSN := csosn101; Alguém tem alguma dica para resolver este problema? Obrigado, Rogério.

Puts, é verdade. Eu estava em no tópico () que num determinado post apontava para este e acabei colocando minha dúvida aqui. Desculpe-me pela falta de atenção.

Olá pessoal! Estou com os fontes do ACBr atualizado e com a última versão do emulador instalado. A Tag Imposto não está sendo preenchida com o csosn101. Estou fazendo da seguinte forma: Imposto.ICMS.CSOSN := csosn101; Alguém tem alguma dica para resolver este problema? Obrigado, Rogério.

Bom dia Jefferson, tudo bem? Na verdade, o que você mandou não é a solução para a minha dúvida. Estou com dúvidas/dificuldades no componente ACBrNFSe. Quando o Ginfes retorna que o RPS já foi informado, quero fazer a consulta e trazer todos os dados possíveis para alimentar o BD e dar continuidade. Para consultar o RPS faço da seguinte forma: ACBrNFSe1.WebServices.ConsLote.Executar; Depois, para ler os dados do RPS consultado, faço da seguinte forma: numerolote := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.NumeroLote; Só que ao ler o número do lote do componente conforme descrito na linha acima, retorna o seguinte erro: List index out of bounds (0) Então, não sei onde está o erro na leitura dessa informação no componente. Eu gostaria de saber como você está pegando a informação do RPS lá no Ginfes, trazendo para o componente e como você está lendo o componente. Entendeu? Obrigado, Rogério.

Boa tarde Ítalo. Bem, como você não conhece a regra de negócio da operação aqui, pode parecer estranho querer informar apenas o CPF. O prestador de serviço é um estacionamento e a coleta de dados do tomador de serviço (pessoa que deixou o veículo no estacionamento) é feito através de toten. Neste toten só é solicitado meia duzia de informações e uma delas é o CPF para ser inserido no RPS. Para a prefeitura de SP fazemos da mesma forma e funciona perfeitamente. Obrigado, Rogério.

Olá pessoal. Envio RPS para o provedor Ginfes. No manual deste provedor, não existe nenhuma explicação de como gerar um RPS utilizando apenas o CPF/CNPJ do tomador de serviço. No caso do CNPJ, até entendo que é necessário ter todos os dados do endereço mas, para CPF não deveria ser obrigatório. Neste caso, estou enviando um RPS apenas com CPF do tomador e o provedor retorna dizendo que é necessário preencher os dados do endereço. Alguém sabe me dizer como resolver esta situação? Obrigado, Rogério.

Bom dia Jefferson! Não sei o que estou fazendo de errado nessa rotina. Veja como estou fazendo: try ... except //aqui verifica se o RPS existe no BD. Se não existir, implementa a informação abaixo ACBrNFSe1.WebServices.ConsLote.Executar; Table2.Append; Table2.FieldByName('codempresa').AsInteger := codempresa; Table2.FieldByName('numerolote').AsString := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.NumeroLote; Table2.FieldByName('numeronfse').AsString := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Numero; Table2.FieldByName('numerorps').AsString := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.IdentificacaoRps.Numero; Table2.FieldByName('datahora').AsDateTime := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.DataEmissaoRps; Table2.FieldByName('cpfcnpj').AsString := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Tomador.IdentificacaoTomador.CpfCnpj; Table2.FieldByName('valor').AsFloat := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Servico.Valores.ValorServicos; Table2.FieldByName('valoriss').AsFloat := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Servico.Valores.ValorIss; Table2.FieldByName('valorpis').AsFloat := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Servico.Valores.ValorPis; Table2.FieldByName('valorcofins').AsFloat := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Servico.Valores.ValorCofins; Table2.FieldByName('valorir').AsFloat := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Servico.Valores.ValorIr; Table2.FieldByName('valorcsll').AsFloat := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Servico.Valores.ValorCsll; Table2.FieldByName('valorinss').AsFloat := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Servico.Valores.ValorInss; Table2.FieldByName('protocolo').AsString := WebServices.ConsSitLote.Protocolo; Table2.FieldByName('codverificacao').AsString := WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.CodigoVerificacao; Table2.Post; end; Só que ao ler o número do lote o componente já dispara uma mensagem de erro: List index out of bounds (0) WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.NumeroLote; Veja que dentro do colchetes, está o nº 0 e nele já coloquei 1, 2, 3 e etc e nada passa. Sabes me dizer onde estou errando? Obrigado, Rogério.

Ítalo, Seu entendimento é perfeito e é dessa forma que minha aplicação funciona. O problema é que a porcaria do provedor Ginfes dá muito pau. De 10 notas enviadas, 11 dá problema. Desta forma, o cliente sempre recorre ao nosso suporte técnico aqui e ele não entende que o problema é com o Ginfes. Então, o que eu quero fazer é quando identificar "uma duplicidade", o próprio sistema se encarrega de resolver isso sem que o usuário fique nos atormentado. Se houver uma cStat conforme existe no ACBrNFe, já vai resolver meu problema. De acordo com a tabela de erro, eu faço o tratamento que eu queira fazer e não fico me preocupando se o Ginfez vai dar pau ou não e o cliente não fica nos perturbando. Entendeu onde quero chegar? Obrigado, Rogério.

Bom dia! Quando envio um RPS e o WebService retorna que o RPS já foi informado, gostaria de saber como fazer para as seguintes situações: 1º) Como fazer para que o componente ACBrNFSe não exiba a mensagem "RPS já informado"; 2º) Quando existir um RPS já informado, como eu faço para carregar o componente ACBrNFSe com os dados desse RPS e atualizar o banco de dados? Neste 2º caso, estou fazendo assim: ACBrNFSe1.WebServices.ConsLote.Executar; Depois disso, tento jogar para a tabela o resultado da consulta assim: Table2.FieldByName('numerolote').AsString := ACBrNFSe1.WebServices.ConsLote.NFSeRetorno.ListaNfse.CompNfse.Items.Nfse.NumeroLote; Só que, fazendo desta forma, dá erro ao ler a propriedade do componente. Obrigado, Rogério.

Ok Ítalo, assim funcionou! Muito obrigado pela ajuda. Rogério.

Bom dia Ítalo. Talvez eu não tenha explicado corretamente. Meu problema não está em ler o arquivo XML e sim, quando compilo minha aplicação. Após a atualização o pacote ACBr, fui verificar o arquivo ACBr.inc para alterar a versão e vi que o arquivo já foi baixado com a versão PL_104 comentado e a versão PL_200 liberada. Ok, abri minha aplicação no Delphi para compilar e deu erro no ACBrCTe para ler o conteúdo da duplicata contida no componente: Cobr.Dup.Items[0].dVenc Cobr.Dup.Items[0].vDup Eu pego o conteúdo desses campos e jogo num tabela específica no banco de dados. No meu caso, meu aplicativo só faz leitura do CTe e não emissão. É importante saber o conteúdo desses campos para jogar no contas à pagar. Antes da atualização que fiz do pacote ACBr, eu comentava a versão PL_104 e liberava a PL_200 e passava sem problemas. Agora, a PL 200 já vem liberada, porém, o compilador retorna erro: [DCC Error] NFEntradaImportar.pas(1576): E2003 Undeclared identifier: 'Cobr' É esse o problema! Obrigado, Rogério.

Olá pessoal! Conforme me orientaram, comentei a versão 104 e liberei a 200 e consegui compilar sem problemas. Acabei de atualizar os fontes do ACBr e o arquivo ACBr.inc já veio liberado a versão 2.0 do CT. Veja abaixo: //{$DEFINE PL_103} //{$DEFINE PL_104} {$DEFINE PL_200} Só que agora, ao compilar, está dando erro na leitura das duplicatas da CTe. Tive que voltar ao que era antes, ficando da seguinte forma: //{$DEFINE PL_103} {$DEFINE PL_104} //{$DEFINE PL_200} O que pode ter havido de errado nessa atualização ou o que eu deixei de fazer? Obrigado, Rogério.

Boa tarde! Os CNAEs aceitos deverão ser principais ou poderão se secundários? Obrigado, Rogério.

Olá pessoal! Feliz ano novo!!! Referente a este problema, enviei um lote com 30 registros e o problema persistiu. Foi ai que resolvi enviar um único registro e passou sem problemas. Fui aumentando a quantidade de registros e começou a dar pau novamente à partir de 15 registros no mesmo lote. Mesmo dando pau, consegui enviar 50 registros no mesmo lote uma única vez. Enviando 1 à 1 vai sem grandes problemas. Na verdade dá problema normais da porcaria Ginfes, porém, o problema relatado não ocorreu nenhuma vez. Neste caso, não sei como proceder, pois, terei uma quantidade grande de registros para serem gerados RPS e fazer 1 à 1 vai ser complicado e improdutivo.

Bem, estou alimentando o componente com 50 notas e enviando. Será que eu tenho que enviar uma a uma? Puts, se for isso, vai ser um parto. O Ginfes é mais lerdo que a vovózinha.... O que você me diz?

Italo, Estava pensando aqui. Meu CNPJ está habilitado para emitir NFSe na prefeitura de Guarulhos e funciona perfeitamente utilizando o ACBrNFSe. Emito NFSe uma a uma, ou seja, emissão de NFSe de cliente por cliente. Também emito NFe para a Sefaz perfeitamente utilizando o ACBrNFe. Agora, pintou a necessidade de emitir NFSe em lote. Então, além de emitir uma a uma, também irei emitir em lote. Serão duas modalidades. Minha dúvida é: Existe alguma diferença no meu cadastro junto à prefeitura ou à Ginfes que me habilita emitir NFSe apenas uma a uma ou a emitir em lote? Quero dizer, se existe algum parâmetro na configuração da empresa que deixa emitir NFSe em lote ou não?! Será que falei besteira? Obrigado, Rogério.

Italo, O meu certificado está em dia. Estou emitindo NFe normalmente com ele. Desta forma, entendo que o anti-virus também não está bloqueando. De qualquer forma, desativei o anti-virus e fiz um teste e o problema persiste. Aqui também não tem proteção por proxy. Mistério esse erro, hein!!! Obrigado, Rogério.

Sim, já entrei em contato com eles e eles disseram que "a mensagem não pertence a ferramenta Ginfes". Foram essas as palavras deles. Rogério.

Bom dia Italo! O provedor é Ginfes e prefeitura de Guarulhos/SP.

Somente complementando, o erro que mencionei na mensagem acima ocorre em: function TNFSeEnviarLoteRPS.Executar: Boolean; linha 3183: ReqResp.Execute(Acao.Text, Stream); Que identificador é esse?