Applyupdates çalışmıyor

[varyemez]

Fatura bilgisi ve detaylarını iki ayrı tabloya yazdırma şeklinde bir kod parçamız var aşağıdaki gibi.. Hatasız çalışıyor ancak bu işin hemen ardından bu kaydı raporlama için (ravereport ile) açtığımda göremiyorum. programdan çıkıp tekrar girmem gerekiyor. Transaction konusunda acemiyim.. Nasıl bir yapı kullanayım ki kayıt eklemenin hemen ardından bu kaydı görebileyim..

Kod: Tümünü seç

procedure TForm1.Button6Click(Sender: TObject);  //depoya aktar
var biltipi:string;
fatno:integer;
begin
if (lbleditDN.Text='') or (strtoint(label7.Caption) < 1) then
begin
showmessage('Mutlaka bir fatura no ve cari hesap seçmelisiniz');
lbleditDN.SetFocus;
exit;
 end;

case radiogroup1.ItemIndex of
0: biltipi:='V';
1: biltipi:='A';
2: biltipi:='F';
3: biltipi:='S';
4: biltipi:='C';
5: biltipi:='D';
end;
//dm.IBtrns4.Active:=true;
//dm.IBtrns4.StartTransaction;
//once fat varmi kontr

DM.IBQFK.Params[0].AsString:=LbleditDN.Text;
dm.IBQFK.Prepare;
dm.IBQFK.Open;
fatno:=dm.IBQFKYFATNO.Value;
dm.IBQFK.Close;

if not dm.FatDataset.Active then dm.FatDataset.Active:=true;
if not dm.SHDs.Active then dm.SHDs.Active:=true;
if FATNO<=0  then
begin

dm.FatDataset.Append;
dm.FatDatasetTIP.Value:=biltipi;
dm.FatDatasetCKOD.Value:=strtoint(label7.Caption);
dm.FatDatasetTARIH.Value:=datetimepicker3.DateTime;
dm.FatDatasetGLN.Value:=Label10.Caption;
dm.FatDatasetFBELGE.Value:=Lbleditdn.Text;
dm.FatDatasetBITTI.Value:=0;
dm.FatDataset.Post;
fatno:=dm.FatDatasetFNO.Value;
end;

clientdataset1.DisableControls;
clientdataset1.First;
//dm.IBTrns5.StartTransaction;
if not dm.SHDs.Active then dm.SHDs.Active:=true;
while not clientdataset1.eof do
begin
dm.SHDs.Append;
dm.SHDsFISNO.Value:=fatno;
DM.SHDsTIP.Value:= biltipi;
dm.SHDsCKOD.Value:=strtoint(label7.Caption);

DM.SHDsGTIN.Value:=clientdataset1GTIN.Value;
DM.SHDsBN.Value:=clientdataset1BN.Value;
DM.SHDsXD.AsDateTime:=clientdataset1XD.AsDateTime;
DM.SHDsSN.Value:=clientdataset1SN.Value;
DM.SHDsUC.Value:=clientdataset1UC.Value;
DM.SHDsBILDID.Value:=cBILDIRIMID;
dm.SHDs.Post;  //applyupdates  afterpost olayında yazılı.
clientdataset1.Next;
end;
dm.SHDs.Active:=false;
clientdataset1.EnableControls;
showmessage('Başarıyla depoya aktarıldı');
end;

Kod: Tümünü seç

procedure TPaketRapDlg.Button1Click(Sender: TObject);
var
GFISNO:integer;
begin

//Hdm.Rvproject1.Open;
dm.IBQHar.Close;
 GFISNO:=strtoint(Label1.Caption);
dm.IBQHar.Params[0].AsInteger:=gFISNO;

dm.IBQhAR.Prepare;

dm.IBQHar.Open;

//if (IBQhAR.RecordCount > 0)  then
 //begin

dm.RvProject1.SetParam('KURUM',Labelededit4.Text);
dm.RvProject1.SetParam('FATTARIH',Labelededit3.Text);
dm.RvProject1.SetParam('FATNO',Labelededit1.Text);
dm.RvProject1.SetParam('ECZADI',Firmaadi);
dm.RvProject1.SetParam('ECZGLN',eczgln);

 DM.Rvproject1.ExecuteReport('Report2');
 DM.Rvproject1.Close;