edu.nazario's post in EFD-REINF was marked as the answer
Consegui resolver removendo os #13#10 do arquivo XML, ou seja tem que remover qualquer enter,espaço e indentação, que tenha entre as tags, antes de carregar no componente. Obrigado!
function enviaReinf(XML):
begin
XML := StringReplace(trim(XML),#13#10,'',[rfReplaceAll]);
if ACBrReinf.Eventos.LoadFromString(XML) then begin
if ACBrReinf.Enviar then
Result := ACBrReinf.WebServices.EnvioLote.RetWS
end;
end;
Acredito que tenha que remover espaços também, o código acima é do programa que estou desenvolvendo!
Segue em anexo o arquivo que deu certo no programa de exemplos de REINF ACBR:
Reinf10002.xml
De alguma forma o componente ACBR esta fazendo alterações no XML depois de assinado pois conforme citei acima consegui resolver removendo os espaços e a indentação entre as tags, essa parte esta resolvida. Obrigado.
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.
