DBGrid aktif kayıtları çoğaltarak istiyorum nasıl yapabilirim acaba ?
böyle bişe yapınca döngüye girip bir dahada çıkamıyor
Kod: Tümünü seç
SERVIS_HAREKET_DETAY_DB.First;
while not SERVIS_HAREKET_DETAY_DB.Eof do
begin
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.Insert;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Cari_Kart_ID').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Cari_Kart_ID').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Fatura_No').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Fatura_No').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Calisilan_Firma').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Calisilan_Firma').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Ekleyen').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Ekleyen').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Cikis_Tarihi').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Cikis_Tarihi').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Depo_Kodu').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Depo_Kodu').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Stok_Kodu').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Stok_Kodu').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Aciklama').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Aciklama').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Birim_Fiyat').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Birim_Fiyat').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Birim_Miktari').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Birim_Miktari').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Birim_Turu').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Birim_Turu').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Iskonto').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Iskonto').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Iskonto_Orani').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Iskonto_Orani').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Cikan_Iskonto').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Cikan_Iskonto').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('KDV_Oran').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('KDV_Oran').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Satir_Toplami').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Satir_Toplami').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('OTV').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('OTV').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Satir_KDV').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Satir_KDV').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Satir_Genel_Toplami').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Satir_Genel_Toplami').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Irsaliye_No').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Irsaliye_No').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Durumu').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Durumu').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Vade_Tarihi').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Vade_Tarihi').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Irsaliye_Tarihi').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Irsaliye_Tarihi').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('Fatura_Id').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('Fatura_Id').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('FIS_TIPI').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('FIS_TIPI').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.fieldbyname('ISLEM_TARIHI').AsString:=SERVIS_HAREKET_DETAY_DB.fieldbyname('ISLEM_TARIHI').AsString;
FATURA_KAYIT.SATIS_FATURA_DETAY_DB.Next;
end; 
