text dosyayı dbfe yollamak....ancak ufak ayrıntılar var (Sayfa 1 / 2)

Verileri atıcağım yer tablo ancak tabloda önce sigortalı bazında kayıtlar sonra her sigortalıya sene bazında kayıt satırları olucak ve bu senelerin karşısında 12 aya ait gün ücret matrahı ve ikramiye matrahı sütunları olacak yani satır bazında düşünürsek 38 alan adım var
bir container e bir combo box ve bir command butonu ekledim

COMMAND1 in Click eventine

WITH ThisForm

set default to d:\

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

CREATE CURSOR tmp (f1 c(13), f2 c(4), f3 c(2), f4 c(10), f5 c(10))

APPEND FROM Dosyaadi TYPE sdf

buay=allt(this.parent.parent.combo1.value)   **** burada hata verdi neden bilmiyorum

do case 

case buay=1

    SELECT f1 as sigortaNo, ;

        CAST(f2 as int) as yil, ;

        CAST(f3 as int) as g1, ;

        CAST(f4 as currency) as uc1, ;

        CAST(f5 as currency) as ikr1 ;

    FROM tmp ;

    WHERE sigortano=int(f1) and yil=int(f2) ;

 

case buay=2

    SELECT f1 as sigortaNo, ;

        CAST(f2 as int) as yil, ;

        CAST(f3 as int) as g2, ;

        CAST(f4 as currency) as uc2, ;

        CAST(f5 as currency) as ikr2 ;

    FROM tmp ;

    WHERE sigortano=int(f1) and yil=int(f2) ;

case buay=3

    SELECT f1 as sigortaNo, ;

        CAST(f2 as int) as yil, ;

        CAST(f3 as int) as g3, ;

        CAST(f4 as currency) as uc3, ;

        CAST(f5 as currency) as ikr3 ;

    FROM tmp ;

    WHERE sigortano=int(f1) and yil=int(f2) ;

case buay=4

    SELECT f1 as sigortaNo, ;

        CAST(f2 as int) as yil, ;

        CAST(f3 as int) as g4, ;

        CAST(f4 as currency) as uc4, ;

        CAST(f5 as currency) as ikr4 ;

    FROM tmp ;

    WHERE sigortano=int(f1) and yil=int(f2) ;

INTO CURSOR sigorta

burada nasıl bir yöntem hatam var

burada elde etmek istediğim bana gelen sigorta matrahlarını combobox ta seçtiğim aya göndermek için comboboxta seçtiğim değer
bu ne olursa onu o casede o yere yüklemiş olucam

bu listeleme tersi veriyi oraya nasıl yazarım.

yani veriyi text dosyadan okuyacağım dbf dosyaya atacağım ancak text dosya belirttiğim formatta ve dbf tede 38 alan var ben combodan seçtiğim ayın içerisine atacağım bu dosyayı. comboda 1 seçtiysem textte okunan gun ucret ve ıkramıye tabloda o sigorta nolu ve o yıla ait kayıt satırındaki g1 uc1 ve ıkr1 alanlarına yazılacak

26012222234562010300001769.410001254.48
00000072234572010300002769.470000254.49
00000222234582010300001769.670001254.54
26012222234562010300001769.410001254.48
00000072234572010300002769.470000254.49
00000222234582010300001769.670001254.54
26012222234562010300001769.410001254.48
00000072234572010300002769.470000254.49
00000222234582010300001769.670001254.54

biçiminde
ben burada mesela en alt satırda sigorta numarası olanı ayrıştırayım
0000022223458 = 22223458 numaralı sigortalının
2010= 2010 yılı satırındaki kaydında

combo1 de seçtiğim ayı ben seçeceğim seçtiğim ayın gun alanına
30= 30 gün

ucret matrahı alanına
0001769.67= 1769.67 tl matrah ucret

ikramiye matrahı alanına
0001254.54=1254.54 tl ikramiye matrahı ekleyeceğim

deniyorum deniyorum olmuyor
acaba benmi beceriksizim. neyse akşama dosyaları nete atayım hotfile veya rapide sonra burdan sizinle ortaklaşa yapsak olurmu ugur kardeş

en iyisimi ben benim table min alan adlarını yazayım
sigorta table
alanlar
sskno(numeric 13)
yil(numeric 4)
g01---g02----g03-----g04----g05----g06----g07----g08----g09----g10----g11----g12
uc01--uc02---uc03-----uc04---uc05---uc06---uc07---uc08----uc09----uc10---uc11---uc12
ikr01--ikr02--ikr03---ikr04--ikr05---ikr06--ikr07--ikr08---ikr09--ikr10---ikr11--ikr12

ilk önce ben bir butonla matrah yükle diyecem bana containerde bir combo ve bir buton çıkacak
sonra yükleyeceğim ayı seçicem sonra matrahlar.txt dosyasını bilgisayarın herhangi bir yerinden almak için butona basıcam
eğer comboda ay seçmemişsem ay seçmediğim belirtilecek seçtiysemde aldığım matrahlar.txt yi açıcak

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

bunlari matrahlar.txt olara düşünün

26012222234562010300001769.410001254.48
00000072234572010300002769.470000254.49
00000222234582010300001769.670001254.54
26012222234092010300001769.410001254.48
00000072231652010300002769.470000254.49
00000222234592010300001769.670001254.54
26012222234512010300001769.410001254.48
00000072232512010300002769.470000254.49
00000222232672010300001769.670001254.54
26012222223692010300001769.410001254.48
00000072156702010300002769.470000254.49
00000222239992010300001769.670001254.54
26012222277772010300001769.410001254.48
00000072238882010300002769.470000254.49
00000222236662010300001769.670001254.54
26012222235552010300001769.410001254.48
00000072234442010300002769.470000254.49
00000222233332010300001769.670001254.54

Anlamadigim kadariyla yapmaya calistigin bu mu acaba:

CREATE CURSOR tmp (f1 c(13), f2 c(4), f3 c(2), f4 c(10), f5 c(10))

APPEND FROM myData.txt TYPE sdf

 

SELECT f1 as sigortaNo, ;

    CAST(f2 as int) as yil, ;

    CAST(f3 as int) as isgunu, ;

    CAST(f4 as currency) as ucret, ;

    CAST(f5 as currency) as ikramiye ;

FROM tmp ;

INTO CURSOR ornek

 

SET TEXTMERGE TO memvar komut ON noshow

\sigortaNo, yil

FOR ix = 1 TO 12    

   \\,isgunu as "<< 'G'+PADL(m.ix,2,'0') >>"

   \\,ucret as "<< 'UC'+PADL(m.ix,2,'0') >>"

   \\,ikramiye as "<< 'IKR'+PADL(m.ix,2,'0') >>"

endfor

SET TEXTMERGE to

SET TEXTMERGE off

 

SELECT &komut FROM ornek INTO CURSOR GaripSigorta nofilter

BROWSE

Hata mesajı nedir?

valla beni hiç bilmeyen biri olarak düşünün . :-) özelliklede tesisat teknolojisinden mezun bir lise öğrencisi varsayın.
anca baslıyorum bana sunu suraya koy desen o mantıkta yaparım diyinki buton koy butonun özelliğini aç oraya yazarım. ama olmuyor nedendir anlamadım

şimdi bir ücret.txt var d:\ nin altında
içerisinde satırlarca

26012222234562010300001769.410001254.48
00000072234572010300002769.470000254.49
00000222234582010300001769.670001254.54
26012222234092010300001769.410001254.48
00000072231652010300002769.470000254.49
00000222234592010300001769.670001254.54
26012222234512010300001769.410001254.48
00000072232512010300002769.470000254.49
00000222232672010300001769.670001254.54
26012222223692010300001769.410001254.48
00000072156702010300002769.470000254.49
00000222239992010300001769.670001254.54
26012222277772010300001769.410001254.48
00000072238882010300002769.470000254.49
00000222236662010300001769.670001254.54
26012222235552010300001769.410001254.48
00000072234442010300002769.470000254.49
00000222233332010300001769.670001254.54

var

bir formum var
formum d:\_uygulama\form\form1.scx

2 datam var datlarım
d:\_uygulama\datalar\personel.dbf
d:\_uygulama\datalar\sigorta.dbf

form 1 de
bir command1 var
bir  container1 var
contaniner1 de
bir combo1 var
bir command2 var
container1 in görünme özelliği gizli yani visible = .f.

command1 in click özelliğinde
container1.visible=.t.
thisform.refresh()
yazıyor

combo1 in (ters tık builder list items ında column 1 de)
01
02
03
04
05
06
07
08
09
10
11
12

yazıyor

command2 click özelliğinde
d:\altındaki ücrt.txt
yi açıp indeki verileri sigorta.dbf ye atıcam kodlar yazıcak
sigortaya bu txt dosyasını yüklerken
dosya açılacak geçici tabloya atılacak
başlıcak kontrole
sigortalı sigorta.dbf de önceden kayıtlımı kayıtlıysa bu yılı kayıtlımı
bir diyagram cizssem daha iyi olucak sanırım bende karıştırdım akşamı bekleyin bomba gibi geliyorummmmmmm....

moderom, function name missing : "çalıştırdığın isimde bir fonksiyon yok" diyor. Gördüğüm kadarı ile kafası CAST() a bozuluyor. Kullandığın VFP nin versiyonu nedir?!