Yazdigim kod asagidaki gibi.
Kod: Tümünü seç
dm.q_invheader.Post;
dm.q_genel.SQL.Clear;
dm.q_genel.SQL.Add('select * from inv_header order by id DESC');
dm.q_genel.Open;
dm.q_genel.First;
while not (dm.q_invltemp.eof) do
begin
q_fat.sql.Clear;
q_fat.SQL.Add('insert into inv_lines values '','''+dm.q_genel.FieldValues['id']+''','''+dm.q_invltemp.FieldValues['code']+''','''+dm.q_invltemp.FieldValues['adet']+''','''+dm.q_invltemp.FieldValues['unit_rice']+''','''+dm.q_invltemp.FieldValues['line_net']+''','''+dm.q_invltemp.FieldValues['line_vat']+''','''+dm.q_invltemp.FieldValues['line_grand']+''','''+dm.q_invltemp.FieldValues['crn']+'''');
q_fat.execute;
dm.q_invltemp.Next;
end;
q_fat.close;
1 - fatura basliklari - inv_header
2 - fatura satirlari - inv_lines
3 - gecici fatura satirlari - inv_lines_temp
mantik su sekilde.
Fatura satirlari once inv_temp_lines dosyasina kaydediliyor. Kullanici faturayi kaydetmek istediginde, sistem once inv_header dosyasina kayit yapiyor. Daha sonra bu tablo id(autoincrement) numarasina gore DESC siralaniyor. Ve
Kod: Tümünü seç
dm.q_genel.First;
Yukaridaki kayit sekli ile kayit yapmayi beceremedim. Zaten benim kullandigim yolda cok mantikli gelmiyor bana. Daha mantikli birsey onerebilecek bir arkadas var mi acaba?
