Túlio

Acca90, também havia visto que os links estavam errados para a cidade de Passo Fundo/RS. Corrigi o arquivo "ACBrProvedorThema" trocando os links da cidade na função "GetConfigURL". 4314100: begin // Passo Fundo/RS ConfigURL.HomNomeCidade := 'nfsehomologacao.pmpf.rs.gov.br/thema-nfse'; ConfigURL.ProNomeCidade := 'nfse.pmpf.rs.gov.br/thema-nfse'; sHTTPPro := 'http://'; end; Deixei em anexo o arquivo modificado. Abraços ACBrProvedorThema.pas

Obrigado!

Boa noite pessoal, estou trabalhando na emissão de RPS para a prefeitura de Taquara/RS, na qual utiliza o servidor Thema. Depois de enviada a RPS, a prefeitura me retornou um erro acusando que o Codigo Cnae é inexistente. Analisei o código e percebi que, de fato, o sistema não estava lendo a informação Codigo Cnae do arquivo XML e, portanto, não estava enviando essa informação para o servidor. Realizei uma simples alteração adicionando a seguinte linha na função "LerRPS_ABRASF_V1" do arquivo "pnfsNFSeR.pas". NFSe.Servico.CodigoCnae := Leitor.rCampo(tcStr, 'CodigoCnae'); Deixei em anexo o arquivo modificado se houver interesse. Obrigado! Túlio pnfsNFSeR.pas

Boa tarde pessoal, Sou novo aqui no fórum, mas gostaria de propor uma modificação super simples no que diz respeito ao Status do componente TACBrNFSe. Quando utilizei o sistema para envio da RPS pela primeira vez, o processamento da prefeitura foi demorado e a mensagem de "Consultando..." ficava piscando na tela de tempos em tempos (isso para o usuário fica bastante confuso). Para solucionar e mostrar para o usuário que o programa esta aguardando o processamento da prefeitura, criei um TStatusACBrNFSe chamado "stNFSeAguardaProcesso" e realizei uma modificação super simples no ACBrNFSeWebServices só para setar o Status do ACBrNFSe para stNFSeAguardaProcesso quando estiver aguardando a RPS ser processada para a prefeitura. Se for possível e se acharem interessante a modificação, anexei as modificações que fiz à este post. Realizei algumas outras alterações também para enviar a RPS para a prefeitura de Araquari/SC que mais tarde eu vou colocar a disposição aqui também. Para aparecer ao usuário a mensagem de "Aguardando RPS", coloquei esse status a mais em ACBrNFSe1StatusChange. stNFSeAguardaProcesso : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Aguardando RPS ser processado pela prefeitura...'; frmStatus.Show; frmStatus.BringToFront; end; Obrigado! Túlio ACBrNFSeWebServices.pas pnfsConversao.pas