if qryhareketdetayGCKOD.Asstring='0' then tmphar:=1;
if qryhareketdetayGCKOD.Asstring='1' then tmphar:=2;
data.tblgiriscikis.Insert;
data.tblgiriscikisSICILNO.AsString:=tmpsicil1;
data.tblgiriscikisTARIH.AsDateTime:=tmptarih;
data.tblgiriscikis.post;
for i:=1 to qryhareketgrupCOUNT.AsInteger do
begin
data.tblgiriscikis.Edit;
data.tblgiriscikis.FieldByName('HAR'+inttostr(tmphar)).asstring:=timetostr(qryhareketdetaySAAT.Asdatetime);
tmphar:=tmphar+1;
if tmphar>20 then tmphar:=20;
data.tblgiriscikis.Post;
qryhareketdetay.Next;
end;
yapıyorum. Kodda hiçbir problem göremiyorum. Velhasıl datayı kayıt ettiğini bağlı olan gridden görüyorum. Programı kapatıp açtığımda veya kayıt yaptığım tabloya query çektiğimde kayıt etmediğimi görüyorum. Transaction'u commit yapıyorum
data.tblgiriscikis.First; // burası eksik olabilir mi
for i:=1 to qryhareketgrupCOUNT.AsInteger do
begin
data.tblgiriscikis.Edit;
data.tblgiriscikis.FieldByName('HAR'+inttostr(tmphar)).asstring:=timetostr(qryhareketdetaySAAT.Asdatetime);
tmphar:=tmphar+1;
if tmphar>20 then tmphar:=20;
data.tblgiriscikis.Post;
qryhareketdetay.Next;
end;
abi, Cacheupdate:= false, vallaha ben bu sorunu anlayamadım. Ayrıca cashupdate ne işe yarıyor. ben afterpostta ibtransaction.commitretaing yapıyorum. buda onun gibi mi
Fahrettin Abi, insert ve editten sonra refresh yaptım. (refresh ten sonra edit için bookmarklarla geri döndüm). Sorun çözüldü. Teşekkürler. Ama olayı anlamış değilim