Carteira Bradesco

[anticorpo]

Olá estou configurando o acbr boleto para o banco bradesco com o fast report mas informo a titulo.carteira mas esse valor não esta sendo reconhecido, estou passando como string.

 

Delphi xe7

 

 

alguém pode me ajudar?

 

Segue o código:

 

Titulo := ACBrBoleto1.CriarTituloNaLista;

 

     with Titulo do

     begin

        Vencimento        := DsDados.DataSet.FieldByName('datavencimento').Value;

        DataDocumento     := DsDados.DataSet.FieldByName('dataconta').Value;

        NumeroDocumento   := DsDados.DataSet.FieldByName('idcr').Text;

        EspecieDoc        := DsBoleto.DataSet.FieldByName('especiedoc').AsString;

        if DsBoleto.DataSet.FieldByName('aceite').AsString = 'SIM' then

           Aceite := atSim

        else

           Aceite := atNao;

        EspecieMod     := 'R$';

        EspecieDoc     := DsBoleto.DataSet.FieldByName('especiedoc').AsString;

        DataProcessamento := Now;

        Parcela           := DsDados.DataSet.FieldByName('parcela').value;

        TotalParcelas     := DsDados.DataSet.FieldByName('totalparcelas').value;

        NossoNumero       := DsDados.DataSet.FieldByName('nossonumero').Text;

        Carteira          := DsBoleto.DataSet.FieldByName('carteira').Text;

        ShowMessage(Carteira);

        ValorDocumento    := StrToCurr(DsDados.DataSet.FieldByName('valorconta').Text);

        ShowMessage(CurrToStr(ValorDocumento));

        Sacado.NomeSacado := DsBoleto.DataSet.FieldByName('nomecompleto').AsString;

        Sacado.CNPJCPF    := DsBoleto.DataSet.FieldByName('cpf').AsString;

        Sacado.Logradouro := DsBoleto.DataSet.FieldByName('endereco').AsString;

        Sacado.Numero     := DsBoleto.DataSet.FieldByName('complemento').AsString;

        Sacado.Bairro     := DsBoleto.DataSet.FieldByName('bairro').AsString;

        Sacado.Cidade     := DsBoleto.DataSet.FieldByName('cidade').AsString;

        Sacado.UF         := DsBoleto.DataSet.FieldByName('uf').AsString;

        Sacado.CEP        := OnlyNumber(DsBoleto.DataSet.FieldByName('cep').AsString);

        ValorAbatimento   := StrToCurrDef(DsDados.DataSet.FieldByName('valoracrecimo').text,0);

        LocalPagamento    := 'Preferencialmente no Banco '+DsBoleto.DataSet.FieldByName('nomebanco').AsString;;

        ValorMoraJuros    := StrToCurrDef(DsDados.DataSet.FieldByName('valorjuros').text,0);

        ValorDesconto     := StrToCurrDef(DsDados.DataSet.FieldByName('valordesconto').Text,0);

        ValorAbatimento   := 0;

        DataMoraJuros     := StrToDateDef(DsDados.DataSet.FieldByName('datavencimento').Text, 0);

        DataDesconto      := StrToDateDef(DsDados.DataSet.FieldByName('datavencimento').Text, 0);

        DataAbatimento    := StrToDateDef(DsDados.DataSet.FieldByName('datavencimento').Text, 0);

        DataProtesto      := StrToDateDef(DateToStr(DsDados.DataSet.FieldByName('datavencimento').Value+10), 0);

        PercentualMulta   := StrToCurrDef(DsDados.DataSet.FieldByName('valormulta').Text,0);

        Mensagem.Text     := 'Até o Vencimento Desconto ';

        OcorrenciaOriginal.Tipo := toRemessaBaixar;

        Instrucao1        := padL(trim('Menssagem 1'),2,'0');

        Instrucao2        := padL(trim('Menssagem 2'),2,'0');

 

       // ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem);

     end;

Editado 16 Dezembro, 2014 por José Tiago Bispo