Sandro Andre Reghelin

Ialo devido a essa alteração do situacao, alterei os fontes e coloquei mais um campo no response a descricao da situacao tag --> <situacao_descricao_nfse>, para poder pegar o retorno de quando uma nota ja se encontra cancelada no Webservice...seguem os fontes alterados ... IPM.Provider.pas ACBrNFSeXWebservicesResponse.pas

ok

por mim sem problemas porque eu gravo ambas no mesmo campo.... Uma dúvida no retorno da consulta vocês pegam a tag situacao do retorno e depois mudam o valor dela, porque? //Código da situação da NFS-e (1-Emitida, 2-Cancelada) if (Situacao = '1') or (Situacao = '2') then Situacao := '4' else Situacao := '3'; Tipo no caso consultei uma nota que está cancelada voltou no xml de retorno a tag situacao_codigo_nfse = 2...

Sim, mas como eles mandaram em separado, deixei igual aí faço o tratamento para juntar com a data no meu fonte...

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 "&amp;", 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á...