While não está gravando

[petini 0]

Olá pessoal.

 

continuo minha briga aqui com um while (for).

ele não está gravando no destino. aliás, só grava o valor das NPs.

o nº delas e os seus vencimentos não.

 

a situação é a seguinte: tenho duas tabelas (CADNP (pai) e PRNNP(filha)

c/ os seguintes dados, respectivamente:

NPNUM e NPNUM2

QTDNPS e QTDNP2

DTVECTO e DTVECTO2

VRPARCEL e VALORNP2

 

ficou assim:

 

procedure TForm1.BitBtn12Click(Sender: TObject);

var i, NP, QtdNPs : Integer;

ValorNP : Currency;

data : TDateTime;

begin

DataModule1.cdsCADNP.Open; DataModule1.cdsCADNP.Edit;

DataModule1.cdsPRNNP.Open; DataModule1.cdsPRNNP.Edit;

iF DataModule1.cdsCADNP.IsEmpty = False then

Data := DBDateEdit2.Field.AsDateTime;

QtdNPs := RxDBCalcEdit2.AsInteger;

ValorNP := RxDBCalcEdit3.Value;

for i := 1 to QtdNPs do

begin

data := IncMonth(data,1);

DataModule1.cdsPRNNP.Insert;

DataModule1.cdsPRNNPNPNUM2.AsString := DataModule1.cdsCADNPNPNUM.AsString;

DataModule1.cdsPRNNPQTDNP2.AsString := DataModule1.cdsCADNPQTDNPS.AsString;

DataModule1.cdsPRNNPVALORNP2.Value := DataModule1.cdsCADNPVRPARCEL.Value;

//

DataModule1.cdsPRNNP.Post;

DataModule1.cdsPRNNP.ApplyUpdates(0);

End;

end;

 

estou usando D7, Fb 2.1, IBExpert, DBExpress (UIB).

 

Num exemplo, coloquei 6 como nº da quantiade de NPs a serem emitidas e no DBGrid só aparecem seis vezes o valor da NP.

 

As datas de vencimentos e nºs das NPs não aparecem no Grid.

 

O que está errado ou faltando ?

 

Obrigado por dicas e ajuda. eulicio.

[marcio.theis 3]

Rode passo a passo o seu sistema, marque um BreakPoint na primeira linha depois do begin, e rode pelo F9, indo passo a passo pelo F8, e veja se tudo é executado corretamente.