Italo Giurizzato Junior

Boa tarde @edulamy, O que vem a ser MIC/DTA e CRT?

Olá Pessoal, É com grande alegria que informo a todos que já se encontra no SVN o componente ACBrNFCom. Para quem não sabe o que vem a ser NFCom, segue abaixo o texto copiado do Portal da SEFAZ-Virtual do Rio Grande do Sul. "O Projeto NFCom tem como objetivo a implantação de um modelo nacional de documento fiscal eletrônico (modelo 62) que venha substituir a sistemática atual de emissão da Nota Fiscal de Serviço de Comunicação/Telecomunicações (modelos 21 e 22), com validade jurídica garantida pela assinatura digital do emitente, simplificando as obrigações acessórias dos contribuintes e permitindo, ao mesmo tempo, o acompanhamento da emissão em tempo real pelo Fisco." Foi enviado para o SVN, os fontes do componente, os pacotes de instalação para o Delphi e Lazarus e o programa exemplo para o Delphi. O que falta a ser feito: o programa exemplo para o Lazarus e a instalação do componente via ACBrInstall. Enquanto não for liberado uma nova versão do ACBrInstall a instalação do componente vai ter que ser via pacote. Como eu não tenho um certificado digital de um prestador de serviço de comunicação/telecomunicações os testes ficam prejudicados. Detalhe importante: Na pagina que trata o NFCom no Portal da SEFAZ-Virtual do Rio Grande do Sul não consta ainda o manual com o layout do DANFCom, sendo assim não foi possível implementar o componente de geração do Documento Auxiliar da NFCom. Convido a todos que tenham interesse nesse componente, instalar e fazer os testes. Ficaremos felizes em receber melhorias e correções nos fontes do componente.

Boa tarde Delcio, Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-5015

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Bom dia @Desenv. AT Info Sistemas, Por favor atualize novamente, reinstale o ACBr e repita os testes.

Bom dia Carlos, Já esta no SVN.

Bom dia @rafmattos, Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

Bom dia @econdotta, Esse IF que você comentou antes não tinha a condição: StringIsXML(FPRetorno). Mesmo com ela ocorre o erro?

Bom dia Bruno, Realmente da forma que esta hoje esta errado e a sua alteração ao meu ver pode ocorrer em uma outra situação. Vamos supor que o prestador é da cidade A e o tomador da cidade B. Eu entendo que "Local de Prestação do Serviço" é o local onde o serviço foi executado, Sendo assim o a cidade de execução de serviço não seja do tomador e sim do prestador e até uma terceira cidade. Acredito que o correto seria criar uma classe chamada LocalPrestServ onde teríamos os dados do Local de Prestação do Serviço. O que você acha?

Bom dia Joemil, Muito obrigado pela sua colaboração, já inclui na minha lista de tarefas para analisar as suas alterações.TK-2951 Se tudo der certo ainda hoje estarei enviando para o SVN os fontes atualizados, bem como os pacotes de instalação Delphi e Lazarus. O programa exemplo feito em Delphi. O programa exemplo feito em Lazarus vai ficar para semana que vem.

Boa tarde @econdotta, Vou pedir para que você coloque um ponto de parada na procedure EnvioInterno que se encontra na unit ACBrNFSeXWebserviceBase e debugue, quero saber em qual linha ocorre o erro.

Paulo, Ao informar a cidade do tomador, você esta informando o código IBGE da mesma?

@econdotta, Esses são o de envio, necessito o de retorno.

Douglas, Você pode criar um FR3 que satisfaça as suas necessidades. A vantagem do Fast Report é essa, você cria os seus próprios FR3 e distribui aos seus clientes, ou seja, você não fica preso ao layout que foi criado por nós.

@Desenv. AT Info Sistemas, Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

Bom dia @econdotta, Primeiramente BHISS é o provedor contratado por Porto Alegre/RS e não tem nada haver com o Ambiente ou Padrão Nacional. Segundo, configura o componente para salvar os arquivo soap: Configuracoes.WebService.Salvar := True Execute o método que esta gerando esse erro e anexe o XML soap de retorno para que possamos analisar.

Bom dia Paulo, Qual é o cidade/provedor do prestador?

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Bom dia @[email protected], Pode ser um erro no cadastro do prestador no provedor.

Bom dia Douglas, Eu não trabalho com o Fast Report, somente com o Fortes Report. Não sei quem criou esse FR3: 'DANFSeProvedorEL_ProvedorNacional' que no meu entendimento esta errado, pois o provedor EL possui 2 layout de XML, um segue a versão 2 do layout da ABRASF (não confundir com o Padrão Nacional) e o outro segue um layout próprio. No componente ACBrNFSeX implementamos o Padrão Nacional como sendo um provedor, esse provedor é a RFB/SERPRO a informação que tenho da RFB é que o SERPRO é o único autorizado a recepcionar e processar notas segundo o Padrão Nacional. Sendo assim não vai aparecer Provedores A, B ou C que trabalhem com esse layout. É sabido que: Se o prestador de serviço for MEI o XML da DPS - Declaração de Prestação de Serviço deve ser enviado para a API do SERPRO e este vai processar e estando tudo Ok, gera e devolve o XML da NFS-e Padrão Nacional. Se o prestador de serviço não for MEI e a prefeitura não aderiu a NFS-e Padrão Nacional, o prestador deve enviar o XML do RPS - Recibo de Prestação de Serviço para o WebService/API do provedor contratado pela prefeitura, este (o provedor) vai processar e estando tudo Ok, gera e devolve o XML da NFS-e segundo o layout adotado por ele que pode ser próprio ou ABRASF. Se o prestador de serviço não for MEI e a prefeitura aderiu a NFS-e Padrão Nacional, o prestador deve enviar o XML da DPS - Declaração de Prestação de Serviço para a API do SERPRO e este vai processar e estando tudo Ok, gera e devolve o XML da NFS-e Padrão Nacional. Com relação ao Padrão Nacional o componente ACBrNFSeX possui um método chamado ObterDANFSE onde você informa a chave da NFS-e e ele retorna o DANFSE em PDF.

Bom dia @johni, Normalmente a mensagem de dados não contem o encoding, que neste caso é o conteúdo da tag <xml>, mas esses provedores são todos malucos, os caras bebem gasolina. Eu também acredito que o problema é do lado deles.

Bom dia @Desenv. AT Info Sistemas, Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-5009

@Ellosis Sistemas de Gestão, Já esta no SVN.

Aécio, Já esta no SVN.

Johni, A unit que monta a consulta é DBSeller.Provider Mas especificamente essa consulta temos: function TACBrNFSeXWebserviceDBSeller204.ConsultarNFSeServicoPrestado( ACabecalho, AMSG: String): string; var Request: string; begin FPMsgOrig := AMSG; Request := '<e:ConsultarNfseServicoPrestado>'; Request := Request + '<xml>' + XmlToStr(AMSG) + '</xml>'; Request := Request + '</e:ConsultarNfseServicoPrestado>'; Result := Executar('', Request, ['return', 'ConsultarNfseServicoPrestadoResposta'], [Namespace]); end; altere para: function TACBrNFSeXWebserviceDBSeller204.ConsultarNFSeServicoPrestado( ACabecalho, AMSG: String): string; var Request: string; begin FPMsgOrig := AMSG; Request := '<e:ConsultarNfseServicoPrestado>'; Request := Request + '<xml>' + XmlToStr('<?xml version="1.0" encoding="UTF-8"?>' +AMSG) + '</xml>'; Request := Request + '</e:ConsultarNfseServicoPrestado>'; Result := Executar('', Request, ['return', 'ConsultarNfseServicoPrestadoResposta'], [Namespace]); end; Salve a alteração, reinstale o ACBr, recompile a aplicação e refaça o teste.