Bom dia @José M. S. Junior!
Verifica está função também pq é onde salva ou não arquivo de resposta e iria dar o mesmo problema com o campo documento e eu acho importante dando certo ou não gravar a resposta do servidor.
function TBoletoWSSOAP.Enviar: Boolean;
begin
FBoletoWS.FRetornoBanco.CodRetorno:= 0;
FBoletoWS.FRetornoBanco.Msg := '';
FPAuthorization:= '';
DefinirURL;
DefinirEnvelopeSoap;
FPEnvelopeSoap := UTF8ToNativeString(FPEnvelopeSoap);
//Grava xml gerado
if Boleto.Configuracoes.Arquivos.LogRegistro then
WriteToTXT( FBoletoWS.ObterNomeArquivo, FPEnvelopeSoap , False, False);
try
Executar;
finally
Result := (FDFeSSL.HTTPResultCode in [200, 201, 202]);
WriteToTXT( ifthen( EstaVazio(Boleto.Configuracoes.Arquivos.PathGravarRegistro),
PathWithDelim( ApplicationPath ), PathWithDelim( Boleto.Configuracoes.Arquivos.PathGravarRegistro ))
+ FormatDateTime('ddmmyyhhnn',Now) +'-'+ C_RETORNO_REGISTRO + '.xml', FRetornoWS ,False, False);
// if Result then //Grava xml retorno
// WriteToTXT( ifthen( EstaVazio(Boleto.Configuracoes.Arquivos.PathGravarRegistro),
// PathWithDelim( ApplicationPath ), PathWithDelim( Boleto.Configuracoes.Arquivos.PathGravarRegistro ))
// + Titulos.NumeroDocumento +'-'+ C_RETORNO_REGISTRO + '.xml', FRetornoWS ,False, False);
end;
end;