Massao Aihara

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

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

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.
 

Achei o problema dei uma pesquisada em outros post do forum sobre importação/exportação
e vi que estava faltando informar corretamente a tag indIEDest.
 
Desculpe a falta de atenção!
E obrigado!