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.