Fiz algumas alterações no fonte ACBrBancoCecred segue para avaliação.
estou usando assim para carregar as informações.
if frmmodulo.qrconfigCODPROTESTO.AsString = 'Nenhum' then
begin
CodigoNegativacao := cnNenhum;
end;
if frmmodulo.qrconfigCODPROTESTO.AsString = 'Protestar Corrido' then
begin
CodigoNegativacao := cnProtestarCorrido;
DataProtesto := qrReceber.Fieldbyname('DATA_VENCIMENTO').Value
+ frmmodulo.qrconfigDIASPROTESTO.AsInteger;
end;
if frmmodulo.qrconfigCODPROTESTO.AsString = 'Protestar Uteis' then
begin
CodigoNegativacao := cnProtestarUteis;
DataProtesto := qrReceber.Fieldbyname('DATA_VENCIMENTO').Value
+ frmmodulo.qrconfigDIASPROTESTO.AsInteger;
end;
if frmmodulo.qrconfigCODPROTESTO.AsString = 'Não Protestar' then
begin
CodigoNegativacao := cnNaoProtestar;
end;
if frmmodulo.qrconfigCODPROTESTO.AsString = 'Negativar' then
begin
CodigoNegativacao := cnNegativar;
DataNegativacao := qrReceber.Fieldbyname('DATA_VENCIMENTO').Value
+ frmmodulo.qrconfigDIASPROTESTO.AsInteger;
end;
if frmmodulo.qrconfigCODPROTESTO.AsString = 'Não Negativar' then
begin
CodigoNegativacao := cnNaoNegativar;
end;
ACBrBancoCecred.pas
