Paulo Vale

Prezados, Depois de muitos testes identifiquei o seguinte: Ambiente de trabalho: ACBrNFSeX - Programa Exemplo - Versão Delphi Windows 10 Prof - 32 bit. Delphi 10.2 Todos os testes realizados em ambiente de Produção, pois, por algum motivo interno, o suporte informou que momentaneamente a URL de homologação se encontra desativada. - Efetuando a emissão pela opção "Emitir Nota (Novo)" eu tenho o seguinte retorno: Erro(s): Código : X999 Mensagem: Erro de Conexão: SOAP-ENV:Server - Function 'RecepcionarLoteRpsSincrono' doesn't exist O que não é saudável pois analisando o schemas, o WSDL e o manual de implementação de Maricá, esta Function existe e está à disposição. - Efetuando a emissão pela opção "Enviar Lote RPS (Assíncrono)" eu tenho o seguinte retorno: Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : True Entretanto o XML de retorno diz o seguinte: <Codigo>E160</Codigo> <Mensagem>Arquivo em desacordo com o XML Schema. (Linha 1: Element '{http://www.abrasf.org.br/nfse.xsd}EnviarLoteRpsEnvio': No matching global declaration available for the validation root. )</Mensagem> <Correcao>Consulte o Manual da NFS-e para saber quais são as versões de XML Schema suportadas pelo sistema.</Correcao> O que não é natural pois analisei os dados e o Elemento se encontra declarado. - Efetuando a emissão pela opção "Enviar um RPS" eu tenho o seguinte retorno: Erro(s): Código : X999 Mensagem: Erro de Conexão: SOAP-ENV:Server - Function 'GerarNfse' doesn't exist - Efetuando a emissão pela opção "Enviar Lote RPS (Sincrono)" eu tenho o seguinte retorno: Erro(s): Código : X999 Mensagem: Erro de Conexão: SOAP-ENV:Server - Function 'RecepcionarLoteRpsSincrono' doesn't exist Portanto amigos, gostaria que, sendo possível, vocês me ajudasse com um norte. Forte abraço!

Prezados, Cabe ressaltar alguns pontos que são importantes: Antes de começar todo esse trabalho, eu entrei em contato com o suporte do Portal de Maricá e o mesmo informou que eles precisam habilitar a minha empresa para que a mesma faça a emissão de RPS em SOAP e depois de maneira automática vire NFSe. Para emitir NFSe é necessário logar no site deles para efetuar a Requisição (RPS->Requisição) de números de RPS e Notas para que a mesma seja emitida. Caso contrário irá retornar erro no webservice. Ou seja, para você precisa ficar atento se o número não acaba... Risos...Piada.... Ainda trabalhando....

Prezados, Desconfio que toda informação é pertinente, por isso a minha preocupação em colocar todas as etapas dos testes aqui. Dessa forma, inúmeras pessoas deixarão de efetuar perguntas sobre o problema que eu estou passando e repassando a solução. Levando em consideração essa metodologia. Segue: Quando o erro anterior foi gerado em alterei o sistema de envio passando para Assincrono, pois eu lí em algum manual deles que isso poderia ocorrer, e o retorno foi positivo. A comunicação foi realizada e a resposta foi essa: Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : True Entretanto o XML de retorno foi esse: - <return> - <EnviarLoteRpsResposta xmlns="http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd"> <Protocolo>25f1c4cf93d7df79dd8f17a7f3dcfc1948bca9d5</Protocolo> <DataRecebimento>2022-10-11T14:10:18</DataRecebimento> <NumeroLote /> - <ListaMensagemRetorno> - <MensagemRetorno> <Codigo>E160</Codigo> <Mensagem>Arquivo em desacordo com o XML Schema. (Linha 1: Element '{http://www.abrasf.org.br/nfse.xsd}EnviarLoteRpsEnvio': No matching global declaration available for the validation root. )</Mensagem> <Correcao>Consulte o Manual da NFS-e para saber quais são as versões de XML Schema suportadas pelo sistema.</Correcao> </MensagemRetorno> </ListaMensagemRetorno> </EnviarLoteRpsResposta> </return> Ainda efetuando testes!

Prezados, o erro do SSL era o SSLType que eu não havia configurado! Coloquei em LT_TLSv1_2 e passou para o próximo erro. Veja: Erro(s): Código : X999 Mensagem: Erro de Conexão: SOAP-ENV:Server - Function 'RecepcionarLoteRpsSincrono' doesn't exist Ainda fazendo testes...

Prezados, Fiz o procedimento que o @Italo Giurizzato Junior solicitou de reinstalar o ACbr. Notei que já estava tudo conforme o @Renato Rubinho havia pedido para fazer. Até aí tudo bem! Como não faltava mais nada, iniciei os testes, preenchi todos os campos e coloquei em Homologação. E ficou me gerando erro de timeout direto. Como no manual em momento algum fala sobre ambiente de homologação, resolvi colocar em ambiente de Produção e obtive uma comunicação retornando o seguinte erro: Erro(s): Código : X999 Mensagem: Erro de Conexão: Erro Interno: 12175 Erro HTTP: 0 URL: https://nota.marica.rj.gov.br/webservice/index/producao Erro: 12175 - Um ou mais erros foram encontrados no certificado Secure Sockets Layer (SSL) enviado pelo servidor Falha Enviando a Requisição. Erro: 12175 - Um ou mais erros foram encontrados no certificado Secure Sockets Layer (SSL) enviado pelo servidor Ainda estou fazendo novos testes, porém, resolvi postar para adiantar a comunicação com vocês. Forte abraço!

Pessoal, grato ao Renato e ao Italo, Estou entrando agora em desenvolvimento e irei efetuar todas as alterações aqui solicitadas. Logo responderei. Obrigado

Prezado Italo, É sempre um prazer teclar com você. Sou fã do seu trabalho e lhe admiro muito! Eu estou batendo cabeça com isso e já estou ponderando a possibilidade de enviar em lotes de registros sem assinatura pois o site da prefeitura admite. Forte abraço!

Caro Renato, Estive em atendimento e por isso a minha demora em responder. De qualquer forma foi ótimo que pude ir e testar o novo componente, antes de lhe responder. Vamos lá, como havia falado, desde janeiro/2022 a cidade de Marica alterou o seu provedor, ela não utiliza mais o GINFES. E o material do NFSeX configura a cidade de Maricá para Ginfes. Então por isso, eu resolvi alterar os dados do componente visto que o mesmo atende a Abrasf na sua versão 2.04. Visto que o ACBR já tem o suporte aos padrões Abrasf eu não vi problemas em regularizar a situação dessa cidade e com isso poder utilizar o mesmo. Bem, de qualquer forma, irei iniciar a transferência dos dados do componente antigo para o novo e tentar alterar o provedor para ver se conseguirei êxito. Qualquer coisa volto a chamar. Porém, se vocês tiverem algum caminho que seja mais dinâmico esse serviço, por favor informe. Obrigado!

Boa noite Renato Rubinho, Obrigado pela resposta. Para mim o NFSeX do acbr seria para tratar apenas do portal universal da receita federal para a emissão de Notas Fiscais de serviços. E como Maricá informou que não iria aderir ao Portal imaginei que ainda tivesse que programar via componente antigo... Bem de qualquer forma irei testar. Mais uma vez obrigado!

Prezados, Tentei de tudo efetuar a implementação sozinho, até pelo motivo de que eu tenho certeza de que é simples. Entretanto, vários erros vão ocorrendo no meio do caminho e por não conhecer toda a estrutura fico batendo cabeça. A cidade de Maricá no Rio de Janeiro, montou seu próprio repositório e disponibilizou o seu manual. Segundo eles tudo está muito simples e respeitando os Schemas da Abrasf versão 2.04. Fiz as alterações em Cidades.ini [3302700] Nome=Marica UF=RJ ;Provedor=Marica Provedor=ABRASFv2 NomeURL_H=https://nota.marica.rj.gov.br/webservice/index/producao?wsdl NomeURL_P=https://nota.marica.rj.gov.br/webservice/index/producao?wsdl Fiz as alterações no arquivo de configuração TcheInfov2.ini que é o mais próximo da realidade mas nada faz funcionar. Primeiro deu erro de schemas e eu resolvi, depois deu erro de assinatura e eu resolvi agora o erro que está dando é não encontrar a funcionalidade [Enviar Lotes] não foi disponibilizada pelo provedor. Mas ela está lá. Bem estou enviando os dados do Webservice, possuo o Manual de integração também, porém tem mais de 2mb e não consegui enviar por aqui. Se por um acaso conseguirem ajudar, ficarei extremamente grato. Desde já agradeço pela atenção! WebService-ABrasf2 04.pdf

Boa tarde, realmente não me atentei a este fato, pois como havia dito estava começando a testar o componente e como eu tinha uma licença antiga do Delphi com o fast resolvi utilizar o mesmo. E para minha surpresa até agora está funcionando perfeitamente. Quando tudo estiver pronto estaremos utilizando o Delphi 10.2 que nossa empresa já adquiriu. Quero apenas deixar claro que nossa intenção é legítima. Identificamos o erro (realmente existe, porém por incompatibilidade de versões) e repassamos visto que a filosofia deste trabalho é colaborar, engajado neste pensamentos resolvemos compartilhar. Atenciosamente, Paulo Vale

Bom dia, Segue: Delphi 2010 e FastReport 4.8.11 Att, Paulo Vale

Boa tarde Italo, Eu quem agradece. O serviço que esta comunidade presta aos programadores é fantástico. Conte sempre com nossa empresa para ajudar. Estamos começando a testar alguns módulos e se der certo iremos contribuir e muito para este projeto maravilhoso. Parabéns a todos os envolvidos. Atenciosamente, Paulo Vale

Bom dia Italo, É um prazer enorme falar com você, representante desta comunidade fantástica. Sim, foi isto mesmo, e sim, é claro que que eu posso anexar. ACBrNFSeDANFSeFR.pas

Caro BigWings, agradeço a sua preocupação mas provavelmente você não leu todo o texto. Eu resolvi o pro lema. Eu apenas postei para que alguém que esteja passando por tal problema consiga resolver. Sou novo aqui e provavelmente precisa colocar como resolvido ok? Vou ver aqui e finalizar o tópico. Obrigado.

Bom dia pessoal, é uma satisfação muito grande estar aqui com vocês e poder contribuir. Estou testando o ACBr para poder imprimir notas de serviço NFSe e ao imprimir estava dando um erro que é: ( Erro(s) encontrado(s): Memo9: Erro na expressão 'Identificacao."NumeroNFSe": Identifier expected ) ou o erro ( Memo2: Erro na expressão: 'Parametros."Nome_Prefeitura": Identifier expected ). Procurei em vários lugares a solução e não achei. E ao verificar as fontes do ACBr identifiquei um erro de lógica e gostaria de contribuir para efetuar a alteração e outras pessoas possam resolver rapidamente o problema. Vamos lá: O erro ocorre pois as variáveis do Relatório está sendo criada/alimentada antes de efetuar o LoadFromFile, ou seja, antes de carregar o relatório. Na verdade nem estavam sendo criadas a rotina "CriarDataSetsFrx" estava faltando no código e eu inclui. Quando carregamos o relatório ele entra zerado. Neste caso basta abrir a fonte "ACBrNFSeDANFSeFR" e alterar a linha da Procedure "SetDataSetsToFrxReport" para depois do "frxReport.LoadFromStream(wProjectStream)" bem como acrescentar a rotina que cria os data sets "CriarDataSetsFrx". isto fará com que o relatório seja carregado e tão somente depois o mesmo será alimentado com parâmetros e valores. Espero ter ajudado. Forte abraço a esta bela comunidade. ANTES function TACBrNFSeDANFSeFR.PrepareReport(NFSe: TNFSe): Boolean; var I: Integer; wProjectStream: TStringStream; begin Result := False; SetDataSetsToFrxReport; if Trim(FastFile) <> '' then begin if not (uppercase(copy(FastFile,length(FastFile)-3,4))='.FR3') then begin wProjectStream:=TStringStream.Create(FastFile); frxReport.FileName := ''; wProjectStream.Position := 0; frxReport.LoadFromStream(wProjectStream); wProjectStream.Free; end else begin if FileExists(FastFile) then frxReport.LoadFromFile(FastFile) else raise EACBrNFSeDANFSeFR.CreateFmt('Caminho do arquivo de impressão do DANFSe "%s" inválido.', [FastFile]); end; end else raise EACBrNFSeDANFSeFR.Create('Caminho do arquivo de impressão do DANFSe não assinalado.'); frxReport.PrintOptions.Copies := NumCopias; frxReport.PreviewOptions.AllowEdit := False; frxReport.PrintOptions.ShowDialog := MostrarPreview; frxReport.ShowProgress := Self.MostrarStatus; if Impressora > '' then begin frxReport.PrintOptions.ShowDialog := False; frxReport.PrintOptions.Printer := Impressora; end; if Assigned(NFSe) then begin CarregaDados(NFSe); Result := frxReport.PrepareReport; end else begin if Assigned(ACBrNFSe) then begin for I := 0 to TACBrNFSe(ACBrNFSe).NotasFiscais.Count - 1 do begin CarregaDados(TACBrNFSe(ACBrNFSe).NotasFiscais.Items.NFSe); if (I > 0) then Result := frxReport.PrepareReport(False) else Result := frxReport.PrepareReport; end; end else raise EACBrNFSeDANFSeFR.Create('Propriedade ACBrNFSe não assinalada.'); end; end; DEPOIS function TACBrNFSeDANFSeFR.PrepareReport(NFSe: TNFSe): Boolean; var I: Integer; wProjectStream: TStringStream; begin Result := False; if Trim(FastFile) <> '' then begin if not (uppercase(copy(FastFile,length(FastFile)-3,4))='.FR3') then begin wProjectStream:=TStringStream.Create(FastFile); frxReport.FileName := ''; wProjectStream.Position := 0; frxReport.LoadFromStream(wProjectStream); wProjectStream.Free; end else begin if FileExists(FastFile) then frxReport.LoadFromFile(FastFile) else raise EACBrNFSeDANFSeFR.CreateFmt('Caminho do arquivo de impressão do DANFSe "%s" inválido.', [FastFile]); end; end else raise EACBrNFSeDANFSeFR.Create('Caminho do arquivo de impressão do DANFSe não assinalado.'); //Alterada por Paulo Vale em 21/08/2018 CriarDataSetsFrx; // <- Cria os datasets SetDataSetsToFrxReport; // <- Preenche as informações frxReport.PrintOptions.Copies := NumCopias; frxReport.PreviewOptions.AllowEdit := False; frxReport.PrintOptions.ShowDialog := MostrarPreview; frxReport.ShowProgress := Self.MostrarStatus; if Impressora > '' then begin frxReport.PrintOptions.ShowDialog := False; frxReport.PrintOptions.Printer := Impressora; end; if Assigned(NFSe) then begin CarregaDados(NFSe); Result := frxReport.PrepareReport; end else begin if Assigned(ACBrNFSe) then begin for I := 0 to TACBrNFSe(ACBrNFSe).NotasFiscais.Count - 1 do begin CarregaDados(TACBrNFSe(ACBrNFSe).NotasFiscais.Items.NFSe); if (I > 0) then Result := frxReport.PrepareReport(False) else Result := frxReport.PrepareReport; end; end else raise EACBrNFSeDANFSeFR.Create('Propriedade ACBrNFSe não assinalada.'); end; end;