ACBrNFSeX - Presidente Venceslau/SP

[Compusofts]

Ola boa tarde,

Estou refazendo a parte de transmissão da NFSe, e ja vou aproveitar e colocar o novo componente ACBrNFSeX.

Ate então NÃO estava utilizando o ACBrNFSe, usava um consumo direto ao webservice.

 

Bom levantei alguma informações:

Provedor : Assessor Publico

Cidade : Presidente Venceslau-SP

url para testes : https://s1.asp.srv.br/issonline-homolog/servlet/anfse?wsdl

( alterei no ACBrNFSeXServicos.ini , na cidade correspondente , na linha HomRecepcionar= https://s1.asp.srv.br/issonline-homolog/servlet/anfse )

Link: https://s1.asp.srv.br/issonline-homolog

 

Usuário: 67049932000108

Senha: 123

Código do ISSQN (INSCRICAO): 90028

OBS: Nesta base, a tag ATIVIDADE deve ser informada com o valor 14.02(com ponto para separar o código da atividade). Na base de produção(Presidente Venceslau), é informado o código sem o ponto(1402).

 

Configurei certo no Programa Exemplo, nas primeiras tentativas deu erro de "senha", no caso , eu passei informado o MD5 da senha, portanto creio que houve a comunicação correta do webservice.

Apos corrigir, fiz nova tentativa e me retorna a seguinte msg:

Erro(s):
Código  : X999
Mensagem: SOAP-ENV:Client - An invalid XML character (Unicode: 0x7) was found in the element content of the document.
Correção: 

Anexado os xml de envio;

1-env-lot.xml 1-env-lot-soap.xml

[Italo Giurizzato Junior]

Boa tarde,

Você tem o manual desse provedor, quero saber como devemos informar a senha.

 

[Compusofts]

Boa tarde , tenho sim.

Segue em anexo.

Leiaute-WebServices-Consulta-XML.pdf leiaute-WebServices-NFSe-XML.pdf

[Italo Giurizzato Junior]

Informe a senha normal se criptografar ela.

Mas utilize a unit em anexo.

AssessorPublico.Provider.pas

Vamos ver se vai ocorrer o mesmo problema.

[Compusofts]

bom dia,

Baixei a unit, e coloquei na pasta dos fontes/AcbrDFe/ACBeNFSeX/Provedores/

Fui no exemplo e removi a criptografia da senha, passando ela normal, com a troca da unit, ele realmente não deu erro de senha como apresentava anteriormente.

Mas mesmo assim apresenta o mesmo problema.

"Modo de Envio : Enviar Lote
Numero do Lote: 2
Data de Envio : 30/12/1899
Numero do Prot: 
Sucesso       : False
 
Erro(s):
Código  : X999
Mensagem: SOAP-ENV:Client - An invalid XML character (Unicode: 0x7) was found in the element content of the document.
Correção: 
---------"

Segue em anexo o "ini" da configuracao usado no programa exemplo.

 

PS : fiz o update do acbr inteiro e reinstalei para ver se era algo ref a isso, mas mesmo assim, obtém o mesmo retorno.

 

ACBrNFSeX_Exemplo.ini

Editado 13 Agosto, 2021 por Compusofts

[Italo Giurizzato Junior]

Bom dia,

Fiz mais uma alteração, vamos ver se vai resolver.

AssessorPublico.Provider.pas

[Compusofts]

Bom dia Italo,

Baixei a unit, coloquei na pasta, abrir o projeto do Exemplo, e dei Build All ;

mesmo assim apresenta o mesmo erro.

2-env-lot-soap.xml 2-env-lot.xml

[Italo Giurizzato Junior]

Boa tarde,

Será que só o MD5 deve ser aplicado a senha?

Após o MD5 não seria o caso de converter para Hexa?

[Compusofts]

Boa tarde,

Vou testar o que vc falou , apos o MD5 conerter para Hexa

--------------

ENTÃO, o inicio dos testes ao tentar efetuar a primeira "comunicação" acusou que a SENHA estava Errada. 

Mandei um email para o suporte e o mesmo me retornou essa imagem do manual

 

Após usar o MD5(senha), ai "parece" que validou a informação de login e senha, mas apresenta esse erro que informei.

Anexo ele acabou de me manda um exemplo do xml

EnvioNotaWebserviceUmaNota.xml

Editado 13 Agosto, 2021 por Compusofts

[Compusofts]

@edit

Fiz a conversao do MD5 para HEXA e mudou o erro pelo menos rs

 

Erro(s):
Código  : X999
Mensagem: SOAP-ENV:Client - Error reading nfse:Nfse.Execute
Correção: 
 

Vou tentar analisar o que pode ser

 

[Italo Giurizzato Junior]

Estou achando que não é o MD5, vou pesquisar também.

[Compusofts]

Bom dia @Italo Giurizzato Junior,

Com o ultimo update, e as demais atualizacao do ACBrNFSeX, efetuei os teste novamente

Problema encontrado.

AssessorPublico.Provider

Senha deve ser em MD5 em hexadecimal e minusculo;

  with TACBrNFSeX(FPDFeOwner).Configuracoes.Geral do
  begin
    Result := '<nfse:Usuario>' + Emitente.WSUser + '</nfse:Usuario>' +
              '<nfse:Senha>' + LowerCase(StrToHex( MD5( Emitente.WSSenha ) )) + '</nfse:Senha>';
  end;

 

Adicionei no ACBrNFSeXConversao a funcao StrToHex ( o qual tem no pcnConversao, mas se eu adicionar ele na unit da erro em outra função ), entao joguei para essa unit.

function StrToHex(const S: String): String;
var I: Integer;
begin
  Result:= '';
  for I := 1 to length (S) do
    Result:= Result+IntToHex(ord(S[i]),2);
end;
 

resultando <nfse:Senha>202cb962ac59075b20134b07152d234b70</nfse:Senha>

No caso esta sendo gerado ERRADO, o correto seria <nfse:Senha>202cb962ac59075b964b07152d234b70</nfse:Senha>

 

em um determinado momento no meu sistema eu uso o MD5 , mas declarado dessa forma

Uses IdHashMessageDigest;

function TfrmACBrNFSe.MD5(Frase: String): String;
begin
  with TIdHashMessageDigest5.Create do
    try
      Result :=LowerCase( HashStringAsHex(Frase) );
    finally
      Free;
    end;
end;

E esse gera o resultado correto;

 

Fazendo gerar correto a criptografia do md5 ref a senha, a transmissão deu certo. Comunicou com o webservice e transmitiu a nota.

 

Editado 18 Agosto, 2021 por Compusofts

[Compusofts]

Bom, segue em anexo as unit alteradas, verifica se são validas as alterações feitas.

ACBRNFSeXConversao.

- Removido uses Synacode;

- Adicionado uses IdHashMessageDigest;

- Adicionado funçao MD5

function MD5(Frase: String): String;
begin
  with TIdHashMessageDigest5.Create do
    try
      Result :=LowerCase( HashStringAsHex(Frase) );
    finally
      Free;
    end;
end;

AssessorPublico.Provider

with TACBrNFSeX(FPDFeOwner).Configuracoes.Geral do
  begin
    Result := '<nfse:Usuario>' + Emitente.WSUser + '</nfse:Usuario>' +
              '<nfse:Senha>' + MD5( Emitente.WSSenha ) + '</nfse:Senha>';
  end;

 

AssessorPublico.Provider.pas ACBrNFSeXConversao.pas

Editado 18 Agosto, 2021 por Compusofts

[Italo Giurizzato Junior]

Boa tarde,

Essa unit IdHashMessageDigest é do Delphi, correto?

Ela esta presente e funciona da mesma forma desde o Delphi 7 até a versão mais nova do Delphi?

[Compusofts]

42 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde,

Essa unit IdHashMessageDigest é do Delphi, correto?

Ela esta presente e funciona da mesma forma desde o Delphi 7 até a versão mais nova do Delphi?

Boa tarde, creio que pertença sim ao delphi.
estou utilizando a versao Delphi 10.2.2 

[Italo Giurizzato Junior]

É estranho ocorrer a diferença que você apontou.

A senha possui algum caractere especial, ou ela é formada por apenas letras (sem acentos e sem cedilha) e dígitos?

[Compusofts]

14 horas atrás, Italo Giurizzato Junior disse:

É estranho ocorrer a diferença que você apontou.

A senha possui algum caractere especial, ou ela é formada por apenas letras (sem acentos e sem cedilha) e dígitos?

Então também achei estranho

mas se quiser testar no ambiente de homologação os dados abaixo

Usuário: 67049932000108

Senha: 123

Código do ISSQN (INSCRICAO): 90028

ela eh "simples" , nada de mais

faça a utilização dos md5 apontados e verá que apresentaram resultados diferentes

[Compusofts]

Boa tarde @Italo Giurizzato Junior

Referente ao retorno do Assessor Publico.

Estou fazendo os teste em homologação, e ao executar o envio, no retorno do webservice vem somente

"<Mensagem>3234</Mensagem>" , o qual esse numero seria o numero do protocolo.

Imagens anexadas.

O retorno vem como "sucesso" , mas nao alimenta os campos por exemplo ao tentar acessar

ACBrNFseX1.NotasFiscais.Items[0].NFSe.Protocolo; 

94-env-lot.xml 94-env-lot-soap.xml 94-rec.xml 94-rec-soap.xml 3521086704993200010856000000000017834-rps.xml

[Italo Giurizzato Junior]

Boa tarde,

Muito obrigado pelos XMLs, já inclui na minha lista de tarefas para analisar.

[Italo Giurizzato Junior]

Bom dia,

Favor atualizar os fontes e faça novos testes.

[Compusofts]

1 hora atrás, Italo Giurizzato Junior disse:

Bom dia,

Favor atualizar os fontes e faça novos testes.

Bom dia,
 

Atualizei os fontes, e fiz novos testes.
O qual agora vem o retorno no Response ( TNFSeEmiteResponse ).Protocolo a informação preenchida.

Com esse retorno consigo agora efetuar a

ResponseConsultaLote := ACBrNFSeX1.ConsultarLoteRps(Response.Protocolo, Response.Lote);

Em anexo segue os xml da consulta, parece ter algo "estranho" pois tem muita informacao "duplicada" nesses xml, nao entendi o porque.

Mesmo assim, ao tentar acessar a informação do Numero da nota por exemplo apos a consulta, ResponseConsultaLote.InfRetorno.NumeroNota , a informação esta zerada. Assim como as demais informacoes de Link, idnota...etc,

Basicamente não esta atribuindo as informacoes do retorno para as variaveis.

os xml começado com 94 = Envio ,  e 33296 = Consulta Lote Rps

33296-con-lot-soap.xml 33296-lista-nfse-con-lot.xml 33296-lista-nfse-con-lot-soap.xml 33296-con-lot.xml 94-env-lot.xml 94-env-lot-soap.xml 94-rec.xml 94-rec-soap.xml

[Italo Giurizzato Junior]

Boa tarde,

Estamos trabalhando para simplificar e unificara os retornos.

Muito obrigado pelos XMLs vou analisar eles.

[Italo Giurizzato Junior]

Favor atualizar os fontes e faça novos testes.

Fiz uma alteração no tratamento do retorno do Consultar Lote.

[Compusofts]

 

Bom dia Italo.

Atualizei os fontes e fiz o teste

Debugando o fonte, na unit AssessorPublico.Proveder ao "TratarRetornoConsultaLoteRPS", 

Creio que esteja incorreto a informação, pois esta verificando ANodeArray, sendo o que foi atribuido anteriomente foi o ANode. ( print abaixo )

Fiz a seguinte alteração

      ANode := ANode.Childrens.FindAnyNs('Mensagem');
      if not Assigned(ANode) then
      begin
        AErro := Response.Erros.New;
        AErro.Codigo := Cod203;
        AErro.Descricao := Desc203;
        Exit;
      end;

      ANode := ANode.Childrens.FindAnyNs('NFSE');
      if not Assigned(ANode) then
      begin
        AErro := Response.Erros.New;
        AErro.Codigo := Cod203;
        AErro.Descricao := Desc203;
        Exit;
      end;

 

Mas mesmo assim, após a consulta, as informações do retorno não esta indo para os campos do Response da consulta

 

 

e também nao esta atualizando os campos dentro do componente por exemplo

ACBrNFseX1.NotasFiscais.Items[0].NFSe.Protocolo;

ACBrNFSeX1.NotasFiscais.Items[0].NFSe.InfID.ID;

 

33300-con-lot.xml 33300-con-lot-soap.xml 33300-lista-nfse-con-lot.xml 33300-lista-nfse-con-lot-soap.xml 96-env-lot.xml 96-env-lot-soap.xml 96-rec.xml 96-rec-soap.xml

[Italo Giurizzato Junior]

Bom dia,

Fiz alguns ajustes, favor atualizar os fontes e faça novos testes.

Esse provedor não retorna no XML o numero do protocolo, isso explica o porque do campo Protocolo estar vazio.