TEXT DOSYADAN VERİ AKTARMA

=alines(arraytxt,FILETOSTR("C:\geçici\xxx.txt"))

FOR m.xi= 1 TO ALEN(arraytxt,1)

?arraytxt[m.xi]  && istediğin yere gönder

ENDF

buay=alltrim(thisform.container1.combo1.value)

if buay#""

    bugun="g"+buay

    buucret="uc"+buay

    buikramiye="ikr"+buay

    set default to d:\

    Dosyaadi=getfile('*','Dosya Adi:','Dosya Al',0,"Dosya Seçimi")

    *sonra bu dosyayı geçici bir table atacam

    set default to d:\_uygulama\datalar

    GECTAB=sys(2015)

    create table &GECTAB. free(txtsskno N(13,0),txtyil N(4,0),txtgun N(2,0),txtucmat N(12,2),txtikrmat N(12,2))

    use in &GECTAB.

    use &GECTAB. in 0 alias ssggkk 

***arasıra burda hata veriyor sanırım aşağıdaki dele file &GETABADI. ifadesinde silemediği için

    appe from alltrim(Dosyaadi) sdf

    select Cnt(*) from sigorta where sskno=txtsskno into array kayitvarmi

    if kayitvarmi>0

        do while .NOT. EOF(ssggkk)

            arasskno=ssggkk.txtsskno

 ******bu şekildemi arasskno=txtsskno

            arayil=ssggkk.txtyil

            aragun=ssggkk.txtgun

            araucret=ssggkk.txtucmat

            araikrmat=ssggkk.txtikrmat

            sele sigorta

            set order to sskno

            seek arasskno

            if arasskno=sigorta.sskno and arayil=sigorta.yil

********buradada yardımınızı istiyorum beceremedim  aşşağıdaki gibi yada ugur beyin dediği gibi kaydetmedi

******ben böyle yazdım ama

            repl sigorta.&bugun. with sigorta.&bugun.+aragun,;    

                   sigorta.&buucret. with sigorta.&buucret.+araucret,;

                   sigorta.&buikramiye. with sigorta.&buikramiye.+araikramiye in sigorta;

            endif

        enndo

    else

****burda personel tablosunu seçip gelen sigorta numarasının olup olmadığının kontrolü

        select Cnt(*) from personel where sskno=txtsskno into array perkaydi

        if perkaydi=0

            messagebox(txtsskno+" "+"SSK nolu personel kayıtlı değil")

****tüm işlemi iptal edip personelin personel tablosuna kaydedilmesini sağlamalı

        else

***demekki personel dosyasında var ancak sigorta tablosuna hiç kaydı yapılmamış yeni eklenecek

*****sizlerin yardımına ihtiyaç duyuyorum yukarıdaki şekilde geçici dosyadan gelen 

***** ucret ikramiye ve gun seçilen aya ait alanlara gidecek

        endif

    endif

    ****işimiz bitti

    GTABADI=&GECTAB.+".DBF"

    DELE FILE GTABADI ******burada hata verdi

else

    messagebox("Ay Seçmediniz",64,"Ay Seçim Hatası")

endif