Verissimo

Bom dia, Houve uma mudanca na geracao da TAG QUANTIDADE, agora tem que ser com 2 decimais Postei o codigo em texto porque nao conseguir anexxar o arquivo. function TNFSeW_AssessorPublico.GerarServico: TACBrXmlNodeArray; var i: integer; begin Result := nil; SetLength(Result, NFSe.Servico.ItemServico.Count); for i := 0 to NFSe.Servico.ItemServico.Count - 1 do begin Result[i] := CreateElement('SERVICO'); Result[i].AppendChild(AddNode(tcStr, '#1', 'DESCRICAO', 1, 60, 1, NFSe.Servico.ItemServico.Items[i].Descricao, '')); Result[i].AppendChild(AddNode(tcDe2, '#1', 'VALORUNIT', 1, 15, 1, NFSe.Servico.ItemServico.Items[i].ValorUnitario, '')); Result[i].AppendChild(AddNode(tcDe2, '#1', 'QUANTIDADE', 1, 10, 1, NFSe.Servico.ItemServico.Items[i].Quantidade, '')); Result[i].AppendChild(AddNode(tcDe2, '#1', 'DESCONTO', 1, 10, 1, NFSe.Servico.ItemServico.Items[i].DescontoIncondicionado, '')); end; if NFSe.Servico.ItemServico.Count > 10 then wAlerta('#54', 'SERVICO', '', ERR_MSG_MAIOR_MAXIMO + '10'); end;

Ajuste na configuracao de 2 URLs do provedor SmarAPD [3506508] ; Atualizado em 15/03/2024 Nome=Birigui UF=SP Provedor=SmarAPD Configuracao Atual ProConsultarNFSeRps=https://pmbirigui02.smarapd.com.br:8443/smartb/services/WSSaida HomConsultarNFSeRps=https://tributacao.smarapd.com.br:8443/birigui/services/WSSaida Configuracao Correta ProConsultarNFSeRps=https://pmbirigui02.smarapd.com.br:8443/smartb/services/WSUtil HomConsultarNFSeRps=https://tributacao.smarapd.com.br:8443/birigui/services/WSUtil ACBrNFSeXServicos.ini

Bom dia, Segue unit alterada. AssessorPublico.LerXml.pas

Boa tarde Italo, Birigui-SP

Bom dia, Ajuste para tratamento do caracter & no XML de envio NFSeBrasil.Provider.pas

Bom dia, Tinha um erro de compilação na unit, segue correcao.SmarAPD.Provider.pas

Bom dia, Inclui uma nova consulta, segue arquivo alterado. SmarAPD.Provider.pas

obrigado.

Italo, bom dia. O Provedor fiorilli na consulta por faixa exige que seja preenchido o Numero final da Faixa, caso contrario ocorre o erro: E o parametro default esta FALSE. Alterei a unit FIORILLI.PROVIDER ajustando o default para TRUE. Fiorilli.Provider.pas

Bom dia Italo/Jéter, Segue anexo um XML depois do tratamento. Percebi que no XML ha a Tag CompNfse que nao esta sendo lida nas rotinas TratarRetornoConsultaLoteRps e TratarRetornoConsultaNFSeporRps, fiz uma modificações nessas rotinas consegue testar Jéter? O XML carregado dessa Tag eu utilizei na leitura do XML ....TACBrNFSeX(FAOwner).NotasFiscais.LoadFromString(sXmlCompNfse, False) que ha nessas rotinas tambem. NFSeBrasil.Provider.pas DepoisTratarXmlRetornado.xml

Italo, boa noite. Nao deu certo, ocorreu os mesmos erros. XmlDepoisTratarXML.xmlXmlAntesTratarXML.xml

Italo, bom dia. Nao deu certo, a falha na leitura do XML apos passar pela TACBrNFSeXWebserviceNFSeBrasil.TratarXmlRetornado continua. Erro: Aqui loadedDoc esta NIL Erro: Descricao do Exception XmlAntesTratarXML.xml XmlDepoisTratarXML.xml

Italo, bom dia. Nao deu certo, ocorre a falha em leitura do XML, retorna NIL: Segue XML ao entrar e sair da rotina TratarXmlRetornado. Com o NFSEBrasil.Provider do Jeter postado em no link abaixo funciona. Xml ao Entrar em TratarXMLRetornado Xml ao Sair de TratarXMLRetornado

Deu certo Italo, nota autorizada com o envio do Nome da Prestador com '&'. Obrigado.

Italo, bom dia. Segue anexos. XML ao SAIR em TratarXmlRetornado.XMLXML ao ENTRAR em TratarXmlRetornado.XML

Italo, bom dia. No componente antigo ACBrNFSe e resolvi esse situação trocando &amp; por &amp;amp; com isso eu conseguia enviar o & contido no nome da Empresa. ACBrNFSeWebServices.pas procedure TNFSeEnviarLoteRPS.DefinirDadosMsg; var begin ........ if FProvedor in [proSMARAPD, proGiap] then begin FPDadosMsg := StringReplace(FPDadosMsg, '<?xml version="1.0" encoding="UTF-8"?>', '', [rfReplaceAll]); // Tratar caracteres especiais: & FPDadosMsg := StringReplace(FPDadosMsg, '&amp;', '&amp;amp;',[rfReplaceAll]); end;

Nao estou conseguindo fazer com a rotina TACBrNFSeProviderNFSeBrasil.TratarRetornoConsultaLoteRps(Response: TNFSeConsultaLoteRpsResponse) leia as Notas retornadas. AuxNode := ANode.Childrens.FindAnyNs('xml'); <= Aqui consegue ler if AuxNode <> nil then begin // DocumentoNota := TACBrXmlDocument.Create; // try // NumRps := ParseText(AnsiString(TratarXmlRetorno(AuxNode.Content)), True, True); // NumRps := StringReplace(NumRps, 'R$', '', [rfReplaceAll]); // DocumentoNota.LoadFromXml(ConverteXMLtoUTF8(NumRps)); // NotaNode := DocumentoNota.Root; AuxNode := AuxNode.Childrens.FindAnyNs('Nfse'); <= Aqui ja nao le mais, retorna NIL AuxNode := AuxNode.Childrens.FindAnyNs('InfNfse'); Alguém passou por essa situação? XML ao ENTRAR em TratarXmlRetornado.XML XML ao SAIR em TratarXmlRetornado.XML

Farei os testes. Obrigado.

Fiz 2 modificações: SmarAPD.GravarXml - Na geração do XML utilizar o numero da NFSe quando informado SmarAPD.Provider - Tratar o XML retornada para permitir sua leitura corretamente. Essas modificações podem ser aplicadas no repositório do ACBR para que nas próximas atualizações eu nao necessite refaze-las? Obrigado. SmarAPD.Provider.pas SmarAPD.GravarXml.pas

Ok, obrigado Italo.

Bom dia Italo, E na leitura do XML da NFSe que a prefeitura retornou.

Estou homologando o provedor SMARApd (ACBRNFSeX) na cidade de birigui, a consulta da NFSe enviada e autorizada esta funcionando corretamente porem no XML da Nota que é salvo na pasta mensal esta com alguns caracteres especiais, e devido a isso nao estou conseguindo carrega-la no componente, aparece o seguinte erro: input is not proper UTF-8, indicate encoding! Segue em anexo exemplos de XML Tem alguma configuração no novo componente para que o XML seja salvo com esses caracteres especiais?

Italo, bom dia. Segue Cidades.ini Obrigado. Cidades.ini

Arquivo Fiorilli.ini com a nova URL_P ; Tres Lagoas/MS RecepcaoLoteRPS_5008305=http://issweb.treslagoas.ms.gov.br:8080/IssWeb-ejb/IssWebWS/IssWebWS?wsdl Obs: O Provedor anterior era NEAInformatica Fiorilli.ini

Incluído o tratamento para o retorno de Cancelamento da NFSe Provedor AssessorPúblico. pnfsCancNfseResposta.pas