Massao Aihara

Certo, obrigado.

Opa, perdão é o arquivo INI. Segue em anexo. ACBrNFSeXServicos.ini

Boa tarde pessoal. Na configuração para a cidade de Arapongas/PR eu precisei adicionar o param: GerarTag:codigo_atividade [4101507] ; Atualizado em 31/03/2025 Nome=Arapongas UF=PR Provedor=IPM Versao=1.01 Params=GerarTag:codigo_atividade ProRecepcionar=https://ws-arapongas.atende.net:7443/atende.php?pg=rest&service=WNERestServiceNFSe HomRecepcionar=https://ws-arapongas.atende.net:7443/atende.php?pg=rest&service=WNERestServiceNFSe Segue o arquivo alterado em anexo. Att. ACBrNFSeXServicos.res

Obrigado.

Boa noite pessoal. Precisei fazer uns ajustes no Provedor RLZ 1.0. RLZ.LerXML.pas -> TNFSeR_RLZ.LerXmlNfse() : Ajustei para ler o Código de Verificação e a Situação da nota também. CodigoVerificacao := ObterConteudo(ANode.Childrens.FindAnyNs('codigoverificacao'), tcStr); if (ObterConteudo(ANode.Childrens.FindAnyNs('situacao'), tcStr) = 'Emitida') then SituacaoNfse := snNormal; RLZ.Provider.pas -> TACBrNFSeProviderRLZ.TratarRetornoEmitir(): Nesse acredito que tenha que ser feito uma correção: // Antes: ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByNFSe(NumNfse); // Depois: ANota := TACBrNFSeX(FAOwner).NotasFiscais.Items[0]; Por que ele não vai achar Nota carregada por número de NFS-e nunca. Pois a prefeitura acabou de gerar e retornar esse número. E como ele bloqueia o envio de mais de um rps por vez. Eu modifiquei para sempre pegar a única nota que esta carregada no componente. Segue os arquivos alterados em anexo. RLZ.LerXml.pas RLZ.Provider.pas

Bom dia pessoal. Precisei fazer um pequeno ajuste no SmarAPD.Provider. No retorno da consulta por lote, estava buscando a NFS-e/RPS carregada no componente pelo numero da NFS-e retornado do provedor. E essa informação eu não tenho ainda, logo ele não atualizava minha informação local. Alterei para buscar pelo numero da RPS retornada. Fonte: SmarAPD.Provider Função: TratarRetornoConsultaLoteRps Antes: if AuxNode <> nil then begin NumNFSe := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('NumeroNota'), tcStr); Response.NumeroNota := NumNFSe; // NAO ENCONTRAVA ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByNFSe(NumNFSe); ANota := CarregarXmlNfse(ANota, ANode.OuterXml); SalvarXmlNfse(ANota); end; Alterei para: if AuxNode <> nil then begin NumNFSe := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('NumeroNota'), tcStr); Response.NumeroNota := NumNFSe; NumRPS := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('NumeroRps'), tcStr); ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRPS); ANota := CarregarXmlNfse(ANota, ANode.OuterXml); SalvarXmlNfse(ANota); end; Segue em anexo o fonte alterado. SmarAPD.Provider.pas

@cueiogordo para qual url realizou? para essa: https://abrasf.issnetonline.com.br/webserviceabrasf/duquedecaxias/servicos.asmx?WSDL ?

Sim erro de sql obvio, era so eles checarem o parametro antes de passar para o db. Pior que quando o cliente não estava habilitado a usar o webservices a mensagem vinha correta. Pedindo para habilitar e tudo mais. Depois do cliente ter feito a requisição de uso do webservices, começou esse erro. Mas eu não consigo falar com eles, quando entro pelo chat online tem uma fila enorme. Ontem eu levei 4 hras para ser atendido, para eles me falarem que não iam me atender por causa da alta de manda de suporte. Me pediram para enviar um email e estou aguardando ainda.

Boa tarde. Segue em anexo alterações que fiz para emitir nota no município de Luziânia GO, provedor Prodata. No arquivo ACBrNFSeXServicos.ini alterado: [5212501] Nome=Luziania UF=GO Provedor=Prodata Versao=2.01 ProRecepcionar=http://gestaoluziania.com.br/prodataws/services/NfseWSService HomRecepcionar= No arquivo do provedor Prodata.GravarXml.pas foi necessário alterar a propriedade FormatoItemListaServico := filsComFormatacaoSemZeroEsquerda; Sem essa alteração ele não reconhece o item de serviço como valido (antes o item ficava com o formato: 00.00). @Italo Giurizzato Junior nesse caso me gerou uma duvida: Como eu alterei a formatação do item de serviço direto nesta unit do provedor, vai afetar todas as cidades que utilizam esse provedor (5 cidades incluindo a esta). Eu não tenho um cliente nas outras 4 cidades para poder testar, mas como a versão é a mesma para todas, imagino que essa alteração seja relevante para esses outros municípios. Ou essa alteração eu deveria ter feito direto no meu carregamento do componente (na minha aplicação)? As operações que eu tive autorização do cliente para testar com o seu certificado: Consulta de NFS-e por RPS Consulta de Lote de RPS Envio de rps em lote Ambas funcionaram com as alterações acima.

Pois é, o meu esta idêntico (a estrutura), e mesmo assim ele retorna um erro de sql interno deles.

@Vagner Amorim vc poderia anexar um xml de envio que deu certo para vc?

Bom dia @Italo Giurizzato Junior Testando as alterações do @Vagner Amorim e de fato a prefeitura passou a responder. Mas eles tem muita coisa errado do lado deles. Veja o retorno deles ao enviar um lote com um rps: <?xml version="1.0" encoding="UTF-8"?> <EnviarLoteRpsResposta xmlns="http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd"> <CodigoErro>E0</CodigoErro> <MensagemErro>An exception occurred while executing 'SELECT DISTINCT serie_rps FROM notas n INNER JOIN usuarios_contribuintes uc ON n.id_contribuinte = uc.id INNER JOIN usuarios u ON u.id = uc.id_usuario WHERE n.serie_rps != '' AND u.id = ; ': SQLSTATE[42601]: Syntax error: 7 ERROR: syntax error at or near ";" LINE 3: ...N u.id = uc.id_usuario WHERE n.serie_rps != '' AND u.id = ; ^</MensagemErro> <ListaMensagemRetorno/> </EnviarLoteRpsResposta> Mas as alterações sugeridas pelo Vagner parecem estar corretas para esse provedor.

Ok, obrigado. Eu testei as consultas e o envio da nota. Esta funcionando normalmente.

Boa tarde pessoal. Segue o arquivo ACBrNFSeXServicos.ini para trocar o provedor Águas Lindas de Goiás - GO para o Ginfes. ACBrNFSeXServicos.ini

Boa tarde pessoal. Estou com um problema com o provedor Etherium, com o campo de data de Emissão. No fontes do acbr o formato do campo esta marcado como: FpFormatoDataEmissao := tcDatUSA; Oque esta correto, já que o xml retornado no método emitir vem assim: <DataEmissao>2022-11-17</DataEmissao> MAS no método consultarNFSePorRPS o campo no XML vem desta maneira: <DataEmissao>17/11/2022</DataEmissao> Gerando erro ao tratar o retorno da consulta TACBrNFSeProviderABRASFv2.TratarRetornoConsultaNFSeporRps 925 Data := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('DataEmissao'), FpFormatoDataEmissao); E mesmo que eu altere o formato de data na configuração do provedor ocorre outro erro ao chamar o meto LerDataEmissao onde o formato esta fixo: Fonte: ACBrNFSeXLerXml_ABRASFv2.pas function TNFSeR_ABRASFv2.LerDataEmissao(const ANode: TACBrXmlNode): TDateTime; begin Result := ObterConteudo(ANode.Childrens.FindAnyNs('DataEmissao'), tcDatHor); end; @Italo Giurizzato Junior Estou com duvida em como proceder nessa caso. Altero para configurar o formato de data por método em vez de ser geral? Abro um chamado na prefeitura/provedor para eles corrigirem isso? E no caso do metodo LerDataEmissao? Adiciono o formato como parâmetro igual nos outros?