Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Marostegan

Gerar Parcelas

Recommended Posts

Pessoal boa tarde!

 

Estou com um prqueno problema aqui na geração de parcelas...

 

Fiz um sisteminha só pra testar, atnes de inserir no meu sistema...

 

o fiz da seguinte forma:

 

Tenho um Banco de Dados Access

 

com os campos:

 

valor - float

data - data

parcelas - string

 

 

então montei um form e os componentes para ligar com o banco de dados da eguinte forma:

 

 

- ADOConection (liguei ele com o BD Access)

- ADOQuery1 (liguei ele com no conection com o ADOConection e liguei ele com a tabela no SQL: select * from pagamentos)

- DataSetProvider1 (no DataSet linkei com a Query1)

- ClientDataSet1 (no MasterSource liguei com o DataSetProvider1 dei 2 cliques nele e criei os 3 campos com as mesmas caracteristicas que criei no banco de dados e depois cliquei com o botão direito sobre ele e fui em creat dataset)

- DataSource (liguei com a Query1)

 

 

A programação do botão gerar:

 

var valor : real;
venc, parcelas, i : integer;
s : string;

begin
 valor := 180;
 Venc := 21;
 parcelas := 10;
 memo1.Clear;

 Query1.Active := false;
 ClientDataSet1.Active := false;
 Query1.Active := true;
 ClientDataSet1.Active := true;

 for i := 1 to parcelas do
    begin
       ClientDataSet1.Last;  // ultimo registro
       ClientDataSet1.Append;  //  adicionar novo registro
       ClientDataSet1.Edit;  // editar registro

       {s := 'Parcela: '+ inttostr(i) +'/'+inttostr(Qtde_parc)+
       ' -  Valor: R$ '+ formatfloat('0.00',valor) + ' - Vencimento: ' +
       inttostr(venc) + copy(datetostr(now+(30*i)),3,8);

       memo1.Lines.Append(s);}

       // Atribuir os valores das variaveis aos campos do registro na tabela

       ClientDataSet1parcelas.Value   :=  inttostr(i) +'/'+inttostr(parcelas);  // campo String
       ClientDataSet1Valor.Value      :=  valor;  // campo Float
       ClientDataSet1Vencimento.Value :=  now+(30*i);  // campo Data

       ClientDataSet1.Post;  // salvar o registro
       ClientDataSet1.ApplyUpdates(-1);// atualizar o registro

 end;
end;

 

porém é apresentado o seguinte erro:

 

ClientDataSet: Missing data provider or data packet

 

 

alguém pdoeira me auxiliar nisso?

 

 

Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tente fazer o seguinte:

 

ClientDataSet1.ProviderName selecione DataSetProvider1.

DataSource1.DataSet selecione ClientDataSet1.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.