Problemas Para Geração De Boleto Em Carne

[luan freitas]

Boa Tarde

 

Estou com um problema na hora de gerar o boleto em forma de carne, 

 

aparece um erro dizendo que o numero da parcela atual nao pode ser maior do que o total de parcelas, como  faço para corrigir este erro ?, 

 

Como devo usar corretamente o sistema para gerar o carne? 

- Eu teria que selecionar todas as contas que irão para o carne ?, tipo, se o cliente possui 12 contas de 150 por mes, iniciando do dia 01/01/2013, até o final do ano, exemplo:

 

Parcela - Data Venc -    Valor

1              01/01/2013    150

2              01/02/2013    150

3              01/03/2013    150

4              01/04/2013    150

 

eu teria que adicionar cada conta na lista de boleto?

 

OU eu teria que gerar umcódigo que atualize para a lista de boleto?

 

Onde que eu configuro as parcelas para adicionar no boleto ?

 

Muito Obrigado.

[email protected]

[Juliana Tamizou]

Bom dia.

 

Vc deve adicionar um boleto para cada parcela do seu cliente.

 

Att.

[brunosadna]

Bom dia cada parcela/boleto é individual.... de uma olhada nos exemplos do ACBRBOLETO que tem uma rotina facil para vc adaptar no seu projeto.

 

Procure por:

 

Titulo := ACBrBoleto1.CriarTituloNaLista;

       

with Titulo do
begin
    Vencimento            := dVenc;
    DataDocumento     := dHoje;

   

     etc...

end;

 

Att,

[luan freitas]

BOa Noite, Obrigado pelas respostas anteriores, 

Feito esta rotina de pesquisar o Cliente - Boleto a ser incluido na lista de boletos, feito o LayOut, lCarne, aparece o seguinte erro:

 

"BoletoCarne: Erro duranta a Preparação do relatório. "ConvertError (' is a not valid integer value')".

 

Porém quando eu imprimo na forma de Fatura, padrao, ele imprime normalmente.

 

Att.

[Juliana Tamizou]

Bom dia.

 

Qual componente vc está usando para a impressão dos boletos?

 

Att.

[luan freitas]

Acbr Boleto e Fortes Report..

 

erro que aparece:

http://www.novavidaassessoriaburi.com.br/erroboleto.jpg

Editado 3 Maio, 2013 por luan freitas

[Juliana Tamizou]

Boa tarde.

 

Fiz um teste com o Demo do projeto, inclusive adicionando as informações de parcelas e nenhum erro ocorreu...

 

Poste aqui as configurações efetuadas no componente e tb as informações que estão sendo passadas ao titulo...

 

Att.

[luan freitas]

ao adicionar a conta no boleto:

 

 

procedure TFormEmissaodeBoletos.SpeedButton1Click(Sender: TObject);

Var Titulo: TACBrTitulo;

begin

 

  if application.MessageBox('Adicionar este boleto na lista ?',

'ATENÇÂO',mb_iconquestion+mb_yesno) = idyes then

 begin

  Titulo := ACBrBoleto1.CriarTituloNaLista;

  with Titulo do

  begin

  if cbxAceite.ItemIndex = 0 then

   Aceite := atSim

        else

   Aceite := atNao;

 

           ACBrBoleto1.DirArqRemessa :=

           DM1.BancoDIR_REMESSA.AsString+

           FormatDateTime('DD-MM-YYYY',Now);

 

   ACBrBoleto1.ACBrBoletoFC.DirLogo := dm1.Bancopathlogo.AsString;

   ACBRboleto1.ACBrBoletoFC.Filtro := fiNenhum;

   ACBrBoleto1.ACBrBoletoFC.LayOut := lFatura;

   Carteira := dm1.BancoCarteira.Value;

   ACBRBOLETO1.Banco.Digito := dm1.BancoDIGITO_NUMERO_BANCO.AsInteger;

   ACBrBoleto1.Banco.Numero := dm1.BancoNUMERO_BANCO.AsInteger;

   ACBrBoleto1.Cedente.Convenio := dm1.BancoCONVENIO.AsString;

   ACBRBOLETO1.Cedente.Nome := DM1.BancoCEDENTE.AsString;

   ACBRBOLETO1.Cedente.CodigoCedente := dm1.BancoCOD_CEDENTE.AsString;

   acbrboleto1.Cedente.Agencia := dm1.BancoNUMERO_AGENCIA.AsString;

   acbrboleto1.Cedente.AgenciaDigito := dm1.BancoDIGITO_AGENCIA.AsString;

   acbrboleto1.Cedente.Conta := dm1.BancoNUMERO_CONTA.AsString;

   acbrboleto1.Cedente.ContaDigito := dm1.BancoDIGITO_CONTA.AsString;

   acbrboleto1.Cedente.UF := dm1.BancoUF_AGENCIA.AsString;

   acbrboleto1.Cedente.CNPJCPF := dm1.BancoCNPJ.AsString;

     /////////////

   Vencimento      := jvDateEdit5.Date;

                   dm1.Parcelas.Edit;

                   dm1.Parcelasdatavencimentoboleto.AsDateTime :=

                   JvDateEdit5.Date;

                   dm1.Parcelas.Post;

   DataDocumento   := date;

   NumeroDocumento := dm1.Parcelascodigo.AsString;

   DataProcessamento  := Now;

   ValorDocumento     := Dm1.Parcelasvalor.AsFloat;

   DataProtesto       := protesto.Date;

 

   // Info sacado

   Sacado.NomeSacado  := Dm1.Parcelasnome_associado.AsString;

   Sacado.CNPJCPF     := dm1.ParcelasCPF.AsString;

   Sacado.Logradouro  := dm1.Parcelasendereco_associado.AsString;

   Sacado.Numero      := dm1.Parcelasnumero.Asstring;

   sacado.Bairro      := dm1.Parcelasbairro_associado.AsString;

   Sacado.Cidade      := dm1.Parcelascidade_associado.AsString;

  // Sacado.CEP         := dm1.ParcelasCEP_ASSOCIADO.AsString;

   ValorAbatimento    := 0;

   ValorMoraJuros     := 0;

   ValorAbatimento    := 0;

   DataMoraJuros      := 0;

   DataDesconto       := 0;

   DataAbatimento     := 0;

   DataProtesto       := Dm1.Parcelasdata_vencimento.AsDateTime;

   PercentualMulta    := 0;

   Mensagem.Text      := Dm1.ParcelasMENSAGEM.AsString;

   OcorrenciaOriginal.Tipo := toRemessaBaixar;

   ///////

   NossoNumero       := dm1.BancoNOSSO_NUMERO.Text;

   LocalPagamento    := edtLocalPag.Text;

   Mensagem.Text     := memMensagem.Text;

   OcorrenciaOriginal.Tipo := toRemessaBaixar;

   Instrucao1        := (trim(edtInstrucoes1.Text));

   Instrucao2        := (trim(edtInstrucoes2.Text));

  // Info Boleto

 

exit;

end;

end;

end;

 

Obrigado;;

[Juliana Tamizou]

Boa tarde.

 

Pelo que observei no seu código vc não está atribuindo o banco corretamente, você deve usar a propriedade TipoCobranca, quanto as parcelas vc realmente não informa a Parcela Atual e a Qtd de Parcelas?

 

Att.

[luan freitas]

Boa Noite, 

 

O TipoCobrança eu deixei conf. para Banco do Brasil, (inicialmente),e referente as parcelas e quantidades, eu teria que add uma a uma na "Lista de Boletos" ou teria que selecionar uma determinada conta e conf. as parcelas e gerar as datas e valores automaticamente ? 

 

Obrigado.

[Juliana Tamizou]

Bom dia.

 

Você apenas seta as propriedade Parcela e QtdParcelas, apenas é importante não informar o número de parcela superior ao total de parcelas...

Exemplo:

Parcela: 1 QtdParcelas: 2

Parcela: 2 QtdParcelas: 2

 

 

Se preferir faça este teste em nosso demo.

 

 

Att.

[luan freitas]

Bom Dia, 

 

Consegui fazer gerar o carne,o erro ocorria pq o código acima, como voce disse anteriormente estava 'mauformatado', entao eu retirei a parte q adicionaria as informações do banco e fiz uma variavel onde ele captura as informações uma unica vez. neste código ele captura toda vez que for adicionar uma nova conta. 

 

Ele gera a partir da adição de varias contas e não por uma unica conta automaticamente. muito obrigado pelo toque 'Juliana Tamizou', agora estou com duvidas a respeito do nosso número, para isso irei abrir um novo tópico certo ?.

 

Até mais.

Editado 7 Maio, 2013 por luan freitas

[Juliana Tamizou]

Bom dia.

 

Que bom que deu certo, por favor marque este tópico como resolvido e abra um novo tópico para suas dúvidas referentes ao nosso número.

 

Att.

[luan freitas]

Boa Noite.

 

gostaria de pedir pra você, se você puder da uma olhada e analisada no projeto final, um carne simples com 2 parcelas apenas.

 

mais eu tenho uma duvida ainda sobre o carne, como é processado a remessa do mesmo ?, lembrando que esse carne não foi gerado a partir de um unico registro, adicionei cada conta do cliente para a respectiva parcela do carne. (nao coloquei a parcela atual, e a qtd de parcelas, isso influencia no registro do banco ? ou é apenas para controle ?

 

http://novavidaassessoriaburi.com.br/exemplo.pdf

 

 

Obrigado.