Bom dia, segue:
VACBrBoleto.Banco.TipoCobranca := cobSantander;
with VACBrBoleto.Cedente do
begin
Nome := VQueryTitulo.FieldByName('NM_CEDENTE').AsString;
CodigoCedente := VQueryTitulo.FieldByName('CD_CEDENTE').AsString;
CodigoTransmissao := VQueryTitulo.FieldByName('CD_TRANSMISSAO_BOLETO').AsString;
Agencia := VQueryTitulo.FieldByName('NR_BANCO_AGENCIA').AsString;
AgenciaDigito := Geral.Decode((VACBrBoleto.Banco.TipoCobranca = cobBancoDoBrasil) and
(VQueryTitulo.FieldByName('NR_DIGITO_AGENCIA').AsString = '0'), 'X', VQueryTitulo.FieldByName('NR_DIGITO_AGENCIA').AsString);
DigitoVerificadorAgenciaConta := Geral.Decode(VACBrBoleto.Banco.Numero = 756, '0', '');
Conta := VQueryTitulo.FieldByName('NR_CONTA_BANCO').AsString;
ContaDigito := VQueryTitulo.FieldByName('NR_DIGITO').AsString;
Modalidade := VQueryTitulo.FieldByName('TP_VARIACAO_CARTEIRA').AsString;
Convenio := Geral.Decode(VACBrBoleto.Banco.Numero = 756, ' ', VQueryTitulo.FieldByName('CD_CONVENIO').AsString);
TipoCarteira := tctRegistrada;
TipoInscricao := pJuridica;
CNPJCPF := VQueryTitulo.FieldByName('NR_CNPJ_CEDENTE').AsString;
Nome := VQueryTitulo.FieldByName('NM_CEDENTE').AsString;
Logradouro := VQueryTitulo.FieldByName('DS_ENDERECO_CEDENTE').AsString;
NumeroRes := VQueryTitulo.FieldByName('NR_ENDERECO_CEDENTE').AsString;
Bairro := VQueryTitulo.FieldByName('DS_BAIRRO_CEDENTE').AsString;
UF := VQueryTitulo.FieldByName('CD_UF_CEDENTE').AsString;
Cidade := VQueryTitulo.FieldByName('DS_MUNICIPIO_CEDENTE').AsString;
Complemento := VQueryTitulo.FieldByName('DS_COMPLEMENTO_CEDENTE').AsString;
end;
with Titulo.Sacado do
begin
Pessoa := Geral.Decode(VQueryTitulo.FieldByName('TP_SACADO').AsString = 'F', pFisica, pJuridica);
NomeSacado := VQueryTitulo.FieldByName('NM_SACADO').AsString;
CNPJCPF := VQueryTitulo.FieldByName('NR_DOCUMENTO_SACADO').AsString;
Logradouro := VQueryTitulo.FieldByName('DS_ENDERECO_SACADO').AsString;
Numero := VQueryTitulo.FieldByName('NR_ENDERECO_SACADO').AsString;
Complemento := VQueryTitulo.FieldByName('DS_COMPLEMENTO_SACADO').AsString;
Bairro := VQueryTitulo.FieldByName('DS_BAIRRO_SACADO').AsString;
Cidade := VQueryTitulo.FieldByName('DS_MUNICIPIO_SACADO').AsString;
UF := VQueryTitulo.FieldByName('CD_UF_SACADO').AsString;
CEP := VQueryTitulo.FieldByName('CD_CEP_SACADO').AsString;
end;
with Titulo do
begin
SeuNumero := VQueryTitulo.FieldByName('CD_CONTA_RECEBER').AsString;
Vencimento := VQueryTitulo.FieldByName('DT_VENCIMENTO').AsDateTime;
DataDocumento := VQueryTitulo.FieldByName('DT_EMISSAO').AsDateTime;
NumeroDocumento := VQueryTitulo.FieldByName('NR_DOCUMENTO').AsString;
EspecieDoc := VQueryTitulo.FieldByName('DS_ESPECIE').AsString;
EspecieMod := VQueryTitulo.FieldByName('TP_MOEDA').AsString;
Aceite := Geral.Decode(VQueryTitulo.FieldByName('TP_ACEITE').AsString = 'S', atSim, atNao);
DataProcessamento := VQueryTitulo.FieldByName('DT_PROCESSAMENTO').AsDateTime;
Carteira := VQueryTitulo.FieldByName('TP_CARTEIRA').AsString;
CarteiraEnvio := tceCedente;
CaracTitulo := ObterCaracTitulo(Titulo.Carteira);
NossoNumero := VQueryTitulo.FieldByName('NR_NOSSO_NUMERO').AsString;
ValorDocumento := VQueryTitulo.FieldByName('VL_DOCUMENTO').AsFloat;
ValorMoraJuros := VQueryTitulo.FieldByName('VL_JUROS').AsFloat;
ValorDesconto := 0;
PercentualMulta := VQueryTitulo.FieldByName('VL_MULTA_ATRASO').AsFloat;
OcorrenciaOriginal.Tipo := TACBrTipoOcorrencia(VQueryTitulo.FieldByName('TP_OCORRENCIA_BOLETO').AsInteger);
QtdePagamentoParcial := 1;
TipoPagamento := tpNao_Aceita_Valor_Divergente;
PercentualMinPagamento := 0;
PercentualMaxPagamento := 0;
ValorMinPagamento := 0;
ValorMaxPagamento := 0;
Instrucao1 := VQueryTitulo.FieldByName('CD_INSTRUCAO_1').AsString;
Instrucao2 := VQueryTitulo.FieldByName('CD_INSTRUCAO_2').AsString;
Mensagem.Add(VQueryTitulo.FieldByName('DS_MENSAGEM').AsString);
if (VQueryTitulo.FieldByName('TP_CLIENTE_GERA_PROTESTO').AsString = 'S') and
(VQueryTitulo.FieldByName('QT_DIAS_PROTESTO').AsInteger > 0) then
begin
DataProtesto := IncDay(Vencimento, VQueryTitulo.FieldByName('QT_DIAS_PROTESTO').AsInteger);
TipoDiasProtesto := diCorridos;
CodigoNegativacao := cnProtestarCorrido;
Mensagem.Add('PROTESTAR EM ' + VQueryTitulo.FieldByName('QT_DIAS_PROTESTO').AsString + ' DIAS CORRIDOS APOS O VENCIMENTO');
end;
if (ValorMoraJuros > 0) then
begin
//CodigoMora := '1';
if (VQueryTitulo.FieldByName('TP_VALOR_JUROS').AsString = 'P') then
CodigoMoraJuros := Geral.Decode(VQueryTitulo.FieldByName('TP_JUROS').AsString = 'D', TACBrCodigoJuros.cjTaxaDiaria, TACBrCodigoJuros.cjTaxaMensal)
else
CodigoMoraJuros := Geral.Decode(VQueryTitulo.FieldByName('TP_JUROS').AsString = 'D', TACBrCodigoJuros.cjValorDia, TACBrCodigoJuros.cjValorMensal);
if (VQueryTitulo.FieldByName('QT_TOLERANCIA_PAGAMENTO').AsInteger > 0) then
DataMoraJuros := IncDay(Vencimento, VQueryTitulo.FieldByName('QT_TOLERANCIA_PAGAMENTO').AsInteger)
else
DataMoraJuros := IncDay(Vencimento, 1);
if (VACBrBoleto.Banco.TipoCobranca = cobCaixaEconomica) then
Mensagem.Add('COBRAR JUROS DE ' + FormatCurr('#,##0.00', ValorMoraJuros) + ' POR CENTO, POR ' + Geral.Decode(VQueryTitulo.FieldByName('TP_JUROS').AsString = 'D', 'DIA', 'MES') + ' DE ATRASO PARA PAGAMENTO ' + Geral.Decode(Vencimento = DataMoraJuros, 'APOS O VENCIMENTO', 'A PARTIR DE ' + FormatDateTime('dd/mm/yyyy', DataMoraJuros)))
else
Mensagem.Add('COBRAR JUROS DE ' + FormatCurr('#,##0.00 %', ValorMoraJuros) + ' POR ' + Geral.Decode(VQueryTitulo.FieldByName('TP_JUROS').AsString = 'D', 'DIA', 'MES') + ' DE ATRASO PARA PAGAMENTO ' + Geral.Decode(Vencimento = DataMoraJuros, 'APOS O VENCIMENTO', 'A PARTIR DE ' + FormatDateTime('dd/mm/yyyy', DataMoraJuros)))
end;
if (PercentualMulta > 0) then
begin
CodigoMulta := cmPercentual;
if (VQueryTitulo.FieldByName('QT_TOLERANCIA_PAGAMENTO').AsInteger > 0) then
DataMulta := IncDay(Vencimento, VQueryTitulo.FieldByName('QT_TOLERANCIA_PAGAMENTO').AsInteger)
else
DataMulta := IncDay(Vencimento, 1);
if (VACBrBoleto.Banco.TipoCobranca = cobCaixaEconomica) then
Mensagem.Add('COBRAR MULTA DE ' + FormatCurr('#,##0.00', PercentualMulta) + ' POR CENTO,' + Geral.Decode(Vencimento = DataMoraJuros, ' APOS O VENCIMENTO', ' A PARTIR DE ' + FormatDateTime('dd/mm/yyyy', DataMoraJuros)))
else
Mensagem.Add('COBRAR MULTA DE ' + FormatCurr('#,##0.00 %', PercentualMulta) + Geral.Decode(Vencimento = DataMoraJuros, ' APOS O VENCIMENTO', ' A PARTIR DE ' + FormatDateTime('dd/mm/yyyy', DataMoraJuros)));
end;
if (VACBrBoleto.Banco.TipoCobranca = cobCaixaEconomica) then
LocalPagamento := 'EM TODA A REDE BANCÁRIA E SEUS CORRESPONDENTES ATÉ O VALOR LIMITE'
else
LocalPagamento := VACBrBoleto.Banco.LocalPagamento;
end;
