Sandro Andre Reghelin

Italo fiz a alteração para puxar a tag hora_nfse, seguem os fontes alterados para sua validação... Esse Ipm.Provider é o ultimo que passou com as alterações que pediu para ler o retorno. ACBrNFSeXWebservicesResponse.pas IPM.Provider.pas

Aqui no meu caso tem retornado sempre o completo....e a ultima unit do IPM.Provider.pas que o Italo passou conseguiu ler o retorno, foram feitos alguns ajustes...segue como está aqui no meus fontes... IPM.Provider.pas

Junior, recebi a seguinte resposta da Maria Eduarda da IPM, sobre essa questão: mas com a ultima unit que o Italo enviou funcionou....a leitura do retorno aqui para mim.... "... Bom dia Sandro, tudo bem? O retorno que enviamos, utilizando este componente do ACBR, vocês estão tentando manipulá-lo como um XML. Se estiverem, é interessante realizar um replace ajustando as informações "&" para "&", que é a forma como os dados são tratados em arquivos XML. Este caractere está sendo enviado juntamente com o Link de Autenticação. Este problema não ocorrerá em Base Cliente, visto que nesta não é utilizada a parametrização da Cidade, posto que a URL já possui a Cidade definida de forma direta.

Italo achei um probleminha, mandei uma nota com CPF invalido, ela retornou mensagem de 00018...aí entrou na rotina do codigo 203 que colocou e retornou a msg que colocou ....ao invés da msg do de erro do webservice... nessa parte...acho que procurou a tag "nfse" e como não achou retornou o codigo x203 ANodeArray := ANode.Childrens.FindAllAnyNs('nfse'); if not Assigned(ANodeArray) then begin AErro := Response.Erros.New; AErro.Codigo := Cod203; AErro.Descricao := Desc203; Exit; end; alterei o if para a seguinte forma e aí retornou a msg do webservice... if not Assigned(ANodeArray) and (Response.Erros.Count = 0) then begin AErro := Response.Erros.New; AErro.Codigo := Cod203; AErro.Descricao := Desc203; Exit; end;

Uma duvida você colocou os codigos de retorno x203, qual a situação para eles ocorrerem? ok

Ok, funcionou perfeitamente para mim emitiu e retornou os dados da nota enviada na área de homologação Italo... So uma questão já que está mexendo, sobre o retorno da hora da nfse....é possivel ? a tag no retorno hora_nfse '<hora_nfse>13:09:47</hora_nfse>

Italo deu access violation, veja a imagem , ao tratar o retorno com sucesso....

também encaminhei um e-mail para IPM, pedindo informações sobre esse problema. ele estão mexendo lá, a Maria Eduarda, que é analista deles, me está me devendo uma correção na consulta de notas que segundo ela estava validando algo errado, era para terem concertado ontem a tarde, mas ainda não retornaram..... veja o retono dela: Realizei testes com o arquivo que você me enviou, acabei adicionando um novo número de RPS para realizá-los desde o início. Realmente estamos com problemas nestas questões, a validação do RPS está sendo realizada antes da validação do Identificador, por conta disso que a mesma está sendo apresentada de forma equivocada. Tanto que realizei testes de Emissão para uma empresa sem um RPS relacionado, e o retorno dos dados da Nota Fiscal foi realizado com sucesso. Já realizei a abertura de um Chamado para estarmos ajustando esta situação, assim que estiver disponível, te informo para você estar realizando os testes!

Segue os que tirei ontem... retorno5937.txt 5937-rec-soap.xml 5937-rec.xml 5937-env-lot.xml 5937-env-lot-soap.xml

tipo algo assim, ANode := ANode.Childrens.FindAnyNs('nfse'); mas não sei se vai funcionar....

Recebi essa informação do outro programador: O ANode.Childrens tem só dois itens... a tag mensagem e a tag nfse. por isso ele não encontra a tag numero_nfse... essa tag está dentro da tag nfse.... Isso porque ele não entra nos filhos dos filhos.. O ANode já deveria ser a tag nfse e não a tag raiz, que a tag mensagem e a tag nfse, A função não consegue achar as tag filhas....resumindo....Alguem saberia a solução? isso ocorre na função que passei acima do ACBR...

ja fiz todas essas opções tanto para pegar a ultima versão...quanto para pegar uma versão de sexta passada para testes..... pedi para outro programador aqui da empresa, que tem mais experiência que eu com XML´s e ACBR, para dar uma olhada ver se acha algo... porque o mais estanho e que ela não acha as tag dentro da função do ACBR, nem no meu fonte é....

Complicado, copiei os arquivos que mandou para as pastas deles e mesmo assim persiste o erro... Você fez alguma configuração no componente ACBRNfsex pelo object inspector do Delphi?

E estranho estou com a ultima versão do ACBRNFSex, na hora que ele vai procurar a tag no retonro ele acha tag <nfse> e dentro dela estariam as que ele precisa (numero_rps, etc..) e não localiza... Estou pensando em mandar em produção para ver... e nessa função o problema function TACBrXMLNodeList.FindAnyNs(const Name: string):TACBrXmlNode; Var i, ACount: integer; Node: TACBrXmlNode; begin Result := nil; ACount := Count - 1; for i := 0 to ACount do begin Node := Items[i]; if Node.LocalName <> Name then continue; Result := Node; Exit; end; end;

Sandro, você está conseguindo receber os dados do reponse em produção? quando a nota está correta e retorna sucesso?

retorno5937.txt

Seguem os arquivos salvos.. 5937-rec-soap.xml 5937-rec.xml 5937-env-lot.xml 5937-env-lot-soap.xml corrigindo a resposta anterior... Ali e passado o campo numero_nfse para o "for", ele passa pela tag mensagem, em seguida pela nfse e pula fora...

Debuguei e acho que o problema está na hora que ele procura as tag no retorno, vejam imagem em anexo... Ali e passado o campo numero_nfse para o "for", ele passa pela tag nfse, em seguida pela mensagem e pula fora... pelo que vi.... nessa parte da procedure TACBrNFSeProviderIPM.TratarRetornoEmitir(Response: TNFSeEmiteResponse); with Response do begin NumeroNota := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('numero_nfse'), tcInt); // SerieNota := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('serie_nfse'), tcInt); Data := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('data_nfse'), tcDatVcto); Link := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('link_nfse'), tcStr); Protocolo := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('cod_verificador_autenticidade'), tcStr); Situacao := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('situacao_codigo_nfse'), tcStr); //Código da situação da NFS-e (1-Emitida, 2-Cancelada) if (Situacao = '1') or (Situacao = '2') then Situacao := '4' else Situacao := '3'; end;

ok, obrigado...

vou jogar os fontes que mandou no acbr e testar...em homologação... mesmo com seu fontes, ele continua retornando como sucesso, mas não carrega os dados de protocolo, data, etc... o unico dado que retornou foi Retorno.Situacao = 3 e response.sucesso True

que como estava ok até na sexta o retorno do ambiente de homologação, na terça quando fui testar o erro do "eletron" no arquivo ini, então atualizei hoje cedo os fontes do ACBR, com a correção do arquivo ini, e aí parou de vir o retorno do response em homologação....então antes de mandar para produção, preciso ver o que fazer, medo de mandar para produção e começar a ficar nota pendente lá...

Estou testando em homologação, e antes estava funcionando, estou com a ultima versão do ACBR... não enviei nenhuma para ambiente de produção ainda...

Senhores bom dia, houve alguma alteração no modo como o response de retorno e tratado? acabei de enviar uma NFSe, veio com o codigo de retorno 00001, o response veio como sucesso, mas não trouxe os dados como numero_nfse, data, protocolo... segue em anexo arquivo com response de retormo reponseRetorno.xml

Houve alguma alteração no retorno do envio da NFSe? ate´ontem estava funcionando hoje baixei a nova versão do ACBRNFSex e ao enviar uma nota o xml de retorno veio assim: <?xml version="1.0" encoding="UTF-8"?><a><ListaMensagemRetorno><MensagemRetorno><Codigo></Codigo><Mensagem>CONFIG inválido</Mensagem><Correcao></Correcao></MensagemRetorno></ListaMensagemRetorno></a>

Sim tem uma tag chamada hora_nfse no XML de retorno....não tenho um XMlL, agora estava sem internet até a pouco segue imagem do XML do manual...