Olá, estou com um problema na geração da Remessa para o banco Itaú (341). Não estou conseguindo informar a data ou os dias para protestar um titulo (no caso 4 dias após o vencimento).
Meu código está assim:
Onde Prot_Dias=4
If (qryBanco.FieldByName('Prot_Dias').AsInteger > 0) Then
Begin
Titulo.DataProtesto := StrToDate(FormatDateTime('dd/mm/yyyy', Titulo.Vencimento + qryBanco.FieldByName('Prot_Dias').AsInteger));
Titulo.DiasDeProtesto := qryBanco.FieldByName('Prot_Dias').AsInteger;
Titulo.DataNegativacao := StrToDate(FormatDateTime('dd/mm/yyyy', Titulo.Vencimento + qryBanco.FieldByName('Prot_Dias').AsInteger));
Titulo.DiasDeNegativacao := qryBanco.FieldByName('Prot_Dias').AsInteger;
Titulo.TipoDiasProtesto := diCorridos;
End
Else
Titulo.DataProtesto := StrToDateDef('0', 0);
E na geração do arquivo remessa é gerado na posição 386 a data do protesto sendo um dia após o vencimento e na posição 392 fica zerado. Vou anexar o arquivo de remessa para melhor verificação.
Alguem poderia me dizer onde estou errando?
Muito obrigado desde já.
ITAU_514.rem