Solivan

function TUtils.Flt2str(Avalue:double; ADigits:Integer):string; var v : double; p : Integer; e : string; begin if abs(Avalue)<1 then begin result:=floatTostr(Avalue); p:=pos('E',result); if p>0 then begin e:=copy(result,p,length(result)); setlength(result,p-1); v:=RoundTo(StrToFloat(result),-Adigits); result:=FloatToStr(v)+e; end else result:=FloatToStr(RoundTo(Avalue,-Adigits)); end else result:=FloatToStr(RoundTo(Avalue,-Adigits)); end; function TUtils.FormataValorDuasCasas(FValor : Currency) : Currency; begin Result := StrToCurrDef(Flt2str(FValor, 2), FValor); end; antes de salvar o valor do calculo é bom passar ele dentro dessa função para não preojudicar a soma total, por causa das dismas que sobram depois das duas casas de centavos, Ex: 1,234

Gostaria de saber como enviar a NFS-e para o novo endereço pois está gerando DPS e enviando para o ambiente nacional mesmo tendo as configurações abaixo no arquivo INI [1506161] ; Atualizado em 23/08/2022 Nome=Rio Maria UF=PA Provedor=Fiorilli Params=APIPropria: Versao=2.00 ProRecepcionar=http://168.181.174.10:8080/IssWeb-ejb/IssWebWSNacional/IssWebWSNacionalPortType ProLinkURL=http://168.181.174.10:8080/issweb/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso%

Ao invés de gerar o RPS está gerando o DPS!

Voltei as configurações do arquivo Ini, e recebo a mesma mensagem Código: E0039 - Mensagem: O município emissor informado na DPS deve estar parametrizado para utilizar os emissores públicos nacionais, conforme parametrização do município no Sistema Nacional NFS-e. Antes eu enviava o RPS utilizando o metodo Sincrono mas agora diz que o metodo não está implementado e só consigo fazer o teste utilizando meUnitario. Observ: Já liguei na prefeitura e pedi pra fazer os devidos ajustes pra ficar em conformidade com as novas regras.

Falta informar o campo "Servico.CodigoNBS", pra que as tags sejam geradas!

bom dia; Estou com uma situação aqui e preciso muito de uma orientação de como proceder; tenho um cliente em Rio Maria, Pará, que emite NFS-e para o provedor Fiorilli que ate novembro de 2025 estava emitindo NFS-e normal via api, recentemente tentei fazer umas correções para continuar emitindo NFS-e e vi que o Fiorilli está configurado para o "PadraoNaciional", mas ligando na prefeitura eles disseram que não aderiram ao ambiente nacional que ainda estão utilizando o provedor para envio de NFS-e mesmo que no padrão da reforma tributária. quando tento enviar uma NFS-e com a configuração atual recebo a seguinte mensagem; Erro(s): Código : E0039 Mensagem: O município emissor informado na DPS deve estar parametrizado para utilizar os emissores públicos nacionais, conforme parametrização do município no Sistema Nacional NFS-e. Correção: Gostaria de saber como proceder nesse caso. Pelo site da prefeitura consigo emitir NFS-e normalmente, e o endereço de produção que aparece lá é esse que está abaixo: http://168.181.174.10:8080/IssWeb-ejb/IssWebWSNacional/IssWebWSNacionalPortType?wsdl att. Solivan

boa noite, sei que a dúvida não é pra mim, mas passei por algo parecido, e o erro acontecia por causa dos esquemas que não estavam atualizados, não custa conferirir.

Alguém já viu isso ao atualizar o Fortes Report!

boa tarde, estou finalizando os testes para emissão de NFS-eX e me deparei com o seguinte; - Envio a NFs-e para o provedor de forma assincrona e pego o retorno da autorização juntamente com o XML e gravo no banco de dados - Porem quando busca o XML no banco de dados e carrego no componente sem emitir erro qualquer que seja, ele carrega mas não exibe os dados! Segue xml em anexo! 0000000032-nfse.xml Compilei um pequeno exemplo pra testar com o seguinte codigo; if OpenDialog1.Execute then begin ACBrNFSeX1.Configuracoes.Geral.CodigoMunicipio := 1508407 ; ACBrNFSeX1.Configuracoes.Geral.LerParamsMunicipio ; ACBrNFSeX1.NotasFiscais.Clear ; ACBrNFSeX1.NotasFiscais.LoadFromFile(OpenDialog1.FileName) ; if ACBrNFSeX1.NotasFiscais.Count > 0 then ACBrNFSeX1.NotasFiscais.Imprimir ; end;

Sim fiz os pontos de parada, e está retornando os erro corretamente, porem não retorna no metodo "emitir" apenas em "ConsultarLotePorRPS", por isso eu não conseguida resolver o problema. mas agora está tudo certo, obrigado!

boa tarde Italo Fiz os testes aqui e percebi que o componentes não alimenta o metodo ACBrNFSeX1.WebService.Emite, por isso não estava conseguindo recuperar as mensagens, fiz o teste em ACBrNFSeX1.WebService.ConsultaSituacao e os erros estão todos lá ... não sei se é o correto para a emissão Assincrona, mas vou utilizar por enquanto dessa forma! se você tiver alguma sugestão? case LFormaEnvio of 0: ACBrNFSeX1.Emitir(IntToStr(fsLote), meLoteSincrono, False); 1: ACBrNFSeX1.Emitir(IntToStr(fsLote), meLoteAssincrono, False); end; ChecarResposta(tmRecepcionar); ShowMessage('Total de erros: ' +Inttostr(ACBrNFSeX1.WebService.ConsultaSituacao.Erros.Count)); ShowMessage('Total de alertas: ' +Inttostr(ACBrNFSeX1.WebService.ConsultaSituacao.Erros.Count)); pra ser exato os erros são retornados no metodo abaixo: ACBrNFSeX1.WebService.ConsultaLoteRps.

Ok Italo, obrigado pelo retorno, vou fazer os testes aqui, estou utilizando o ambiente de homologação! qualquer coisa posso lhe passar o certificado digital pra você testar melhor!

bom dia Italo, Fiz os teste aqui e continua passando para a consulta sem exibir os erros, só dar certo se a NFS-e estiver preenchida corretamente, caso tenha um campo em desacordo os erros do metodo "Emitir" não são exibidos! mesmo que o arquivo xml com os erros do WS estejam na pasta, não estão sendo capturados pelo componente.

Tinha uns dois dias que não atualizada o ACBr atualizei aqui e o problema na instalação desapareceu, vou testar agora!

boa tarde Italo, e obrigado pela ajuda! Fiz a substituição do arquivo do anexo acima e recebi uma mensagem erro. Diz que o tipo TNFSeConsultarSeqRpsResponse não foi declarado, fiz uma busca nas units do ACBr e não encontrei esse tipo em nenhum arquivo pas procedure PrepararConsultarSeqRps(Response: TNFSeConsultarSeqRpsResponse); override;