MarcosRWeimer

Tive algum progresso aqui, usando diretamente o TDFeSSL do próprio ACBr. Obtive os dados tanto em produção como em homologação, claro que é apenas uma consulta, não evolui ainda para a geração do CIOT, mas fica a dica de utilizar o próprio TDFeSSL do ACBr procedure TForm1.Button1Click(Sender: TObject); const LUrlHomologacao : String = 'https://appservices-hml.antt.gov.br/pefServices'; LUrlProducao : String = 'https://appservices.antt.gov.br/pefServices'; var LSSL: TDFeSSL; //uses ACBrDFeSSL LJson: String; LRetorno: String; LUrl: String; begin if (not FDConnection1.Connected) then FDConnection1.Open; qCertificado.Close; qCertificado.Open; LSSL := TDFeSSL.Create; LSSL.SSLCryptLib := cryWinCrypt; LSSL.SSLHttpLib := httpWinHttp; LSSL.SSLXmlSignLib := xsLibXml2; //Carrega certificado A1 armazenado no abnco LSSL.Senha := qCertificadoSENHA.AsString; LSSL.NumeroSerie := qCertificadoNUMERO_SERIE.AsString; LSSL.DadosPFX := TNetEncoding.Base64.Decode(qCertificadoDADOS_PFX.AsAnsiString); LSSL.CarregarCertificado; if (not LSSL.CertificadoLido) then raise Exception.Create('Certificado digital não pode ser carregado! ' + 'Verifique certificado cadastrado no cadastro de filiais.'); if (LSSL.CertDataVenc < Now) then raise Exception.Create('Certificado da filial X venceu em ' + DateTimeToStr(LSSL.CertDataVenc)); //LUrl := LUrlHomologacao + '/api/ConsultarSituacaoTransportador'; LUrl := LUrlProducao + '/api/ConsultarSituacaoTransportador'; //segundo o manual o RNTRC se for 7 digitos deveria aceitar, mas aqui rejeitou, entao adicionei 0 a esquerda ate completar os 9 e passou LJson := '{"CpfCnpjInteressado": "xxxx", "CpfCnpjTransportador": "xxxx", "RNTRCTransportador": "999999999"}'; LRetorno := LSSL.Enviar(LJson, LUrl, '', 'application/json; charset=utf-8', '', False); end;

A thread aqui é voltada para a UX, mas pra desenvolver comecei a testar hj: https://github.com/Code4Delphi/Delphi-AI-Developer

Qual é a idéia? fazer um componente novo? Estava vendo a documentação da API https://api-docs.portalunico.siscomex.gov.br/pages/sintia/ e tem muitos métodos, não entendi o processo ainda, se vai utilizar todos os métodos ou alguns, comecei a pesquisar hoje sobre o assunto.

mesmo BO aqui, será que não seria a formatação? enviar 0.1 ao invés de 0.1000 ?

Prova tirada, não é obrigatório o NBS, autorizei a NFSe em homologação utilizando os schemas (e parte da modificação) disponibilizado acima. Alterei o fonte para enviar fixo o nrServico, pois aqui o sistema ainda não tem desdobra/especialização

Bom dia! Estava alterando estas units ontem no fim do dia, sua alteração está bem interessante, só tenho um questionamento. com base no manual: o NBS não é obrigatório, e na sua alteração para gerar o nrServico obrigatoriamente tem de informar o CodigoServicoNacional, o que, pela minha interpretação, não seria o mais adequado (com base no que entendi no manual (print acima)) Vim aqui justamente para questionar este ponto, como seria a melhor forma de implementar e encontrei sua alteração. abaixo o print da questão que estou em dúvidas (para quem for opinar não ter de baixar o fonte):

Aqui também não aconteceu de "sumir" a opção de exportar e resolveu a questão da duplicidade.

@Italo Giurizzato Junior acabei de atualizar, funcionando 100%. Obrigado

Boa Tarde! Acabei de atualizar, não está mais duplicando. Alteração aprovada.

Resolvido. Atualizado ACBr até a versão 42298 e alterado configuração do municipio: Params=NomeTagAtividadeEconomica:ItemLei116AtividadeEconomica|NaoGerarTag:ItemLei116|FormatarItemServicoNaoSeAplica:True Detalhe que apenas informar a tag FormatarItemServicoNaoSeAplica não encontra (mesmo que no Config busque apenas ela e não um valor ligado a mesma), tem de setar algum valor. Então ficou assim: [5101407] ; Atualizado em 20/10/2025 Nome=Aripuana UF=MT Provedor=Agili Params=NomeTagAtividadeEconomica:ItemLei116AtividadeEconomica|NaoGerarTag:ItemLei116|FormatarItemServicoNaoSeAplica:True Podem fechar. ACBrNFSeXServicos.ini

Ola! ACBr está formatando estes campos e não devem formatar, Aripuana/MT: Estou alimentando os campos com o valor 713, porem o ACBr formata, buscando internamente localizei este ponto: (Agili.GravarXML.GerarInfDeclaracaoPrestacaoServico) item := FormatarItemServico(NFSe.Servico.ItemListaServico, FormatoItemListaServico); Teria de mudar o FormatoItemListaServico de filsSemFormatacao para filsNaoSeAplica, para dentro do FormatarItemServico não incluir o 0 (zero) a esquerda. Isto resolveria o caso do ItemLei116AtividadeEconomica para o campo ItemLei116, no GerarDadosServico, onde é incluido o "." se tem mais de 2 caracteres: CodServico := IntToStr(StrToIntDef(OnlyNumber(NFSe.Servico.ItemServico[i].CodServ), 0)); if Length(CodServico) > 2 then Insert('.', CodServico, Length(CodServico) - 2 + 1); A questão é que este provedor varia de cidade para cidade, ou seja, tem cidades que precisa estar formatado e tem cidades que não precisa. Procurei alguma maneira (configuração, ini...) de mudar o FormatoItemListaServico, mas não encontrei. Alguma sugestão?

também acredito que va quebrar, dependendo da versão do FR muda a maneira de acessar os exports

É o único ambiente que tenho para testar, não consigo testar em outras versões

D12 Pro + FR 2024.2.5 VCL

Tive tempo de voltar a mexer nesta questão hoje, a situação é a seguinte, realmente o fastreport adiciona um 'PDF Export' no menu para cada tfrxpdfexport que existir. Teste: - Crie um novo app - Adicione um frxReport e um frxpdfexport - adicione um botão para exibir o report, vá em salvar, terá 1 pdf export - adicione mais um frxpdfexport e teste novamente, verá que terá 2 pdf export no menu. Isto ocorre com frxpdfexport mesmo em outros forms. A solução (paleativa) que encontrei no momento é remover os "duplicados": procedure RemoveExportPDFDup; var LCount: Integer; begin //Remove do menu, exportações de PDF "duplicadas" //FastReport varre a aplicação por RTTI buscando TfrxPDFExport //Para cada TfrxPDFExport é criado um item no menu //Este processo varre os plugins de exportação deixando apenas 1 (o ultimo) TfrxPDFExport LCount := 0; for var i: Integer := Pred(frxExportFilters.Count) downto 0 do begin if frxExportFilters[i].Filter.ClassName.ToUpper.Equals('TFRXPDFEXPORT') then begin if LCount > 0 then frxExportFilters.Delete(i) else Inc(LCount); end; end; end; Chamo esta procedure ANTES de imprimir/visualizar o report, no momento é o que resolveu.