Paulo Vale

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;