26 Cevaplayan ugurlu2001 Son düzenleyen, ugurlu2001 (08.01.2011 00:01:05)

  • ugurlu2001
  • ugurlu2001
  • Uzman Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,642

Re: text dosyayı dbfe yollamak....ancak ufak ayrıntılar var

Moderom; VFP9 ayrı bir paket. Tek başına satılıyor. Ürünü Türkiye'den tedarik etmen (malesef) mümkün değil. VFP nin ne olduğunu MS Türkiye dekilerin bile bir çoğu bilmiyor. Bir şekilde yurt dışından tedarik etmek zorundasın. Amazon.com dan filanda alamıyorsun. Bir aracı bulman lazım. Alıcak -> sana yolluycak. Yada "gözünü karartıp" Rapidshare den indiriceksin.  Forumun genel kuralı olarak lisanssız yazılım kullanımını tavsiye etmiyoruz...

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

27 Cevaplayan moderom

  • moderom
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 25.12.2007
  • İleti: 153

Re: text dosyayı dbfe yollamak....ancak ufak ayrıntılar var

ozaman foxpro6 ya devam en azından işyerinin lisansı var foxpro 9 hayal bana 6 da yardımcı olursanız sevinirim

28 Cevaplayan moderom Son düzenleyen, moderom (10.01.2011 00:37:11)

  • moderom
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 25.12.2007
  • İleti: 153

Re: text dosyayı dbfe yollamak....ancak ufak ayrıntılar var

ben dosyaları rapide attım
link burada http://rapidshare.com/files/441701621/cihandeneme.rar

abilerim yardımcı olursanız sevinirim.

dosyların içinde ücrikr.txt var onu sigorta dbf ye atıcaz ama kontrol edecez sigorta numarası personel dbf teki ssk numaralarından birisimi değilse hatalı kayıt diye uyarı tablosu verecek oraya atacak
sigorta dbf e kaydederkende sigorta numarası ve yil eşleşmeli ve içerisini silememeli içerisindekiyle toplamalı

29 Cevaplayan moderom

  • moderom
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 25.12.2007
  • İleti: 153

Re: text dosyayı dbfe yollamak....ancak ufak ayrıntılar var

bu dosyalari inceleyen oldumu fikiri olan varmı

30 Cevaplayan mrduyar Son düzenleyen, mrduyar (11.01.2011 12:07:16)

  • mrduyar
  • mrduyar
  • Uzman Üye
  • Offline
  • Yer: Antalya
  • Kayıt Tarihi: 09.10.2006
  • İleti: 620

Re: text dosyayı dbfe yollamak....ancak ufak ayrıntılar var

Selamlar;
Sorunun
If  arasskno=sigorta.ssk And arayil=sigorta.yil
        Replace  sigorta.&bugun. With sigorta.&bugun.+aragun,;
            sigorta.&buucret. With sigorta.&buucret.+araucret,;
            sigorta.&buikramiye. With sigorta.&buikramiye.+araikramat In sigorta;
    Endif
burada sigorta; yanındaki ;  yanlış.
1. ;ü kaldır.
2. Kodu aşağıdaki gibi yapman için,
Kod yazdığın yeri aç . Tools menusünden Beautify tıkla Run tıkla. Kısa yolu(ALT+T tıkla Y harfine bas. Enter)

Visual Fox Pro
buay=Alltrim(Thisform.container3.combo1.Value)

bugun="gun"+buay

buucret="ucr"+buay

buikramiye="ikr"+buay

set default to f:\

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

GECTAB=Sys(2015)

Create Table &GECTAB. Free(textssk N(13,0),textyil N(4,0),textgun N(2,0),textucmat N(12,2),textikrmat N(12,2))

Use In &GECTAB.

Use &GECTAB. In 0 Alias ssggkk

Append From Alltrim(Dosyaadi) Sdf

Browse

Do While Not Eof(ssggkk)

    arasskno=ssggkk.textssk

    arayil=ssggkk.textyil

    aragun=ssggkk.textgun

    araucret=ssggkk.textucmat

    araikrmat=ssggkk.textikrmat

    Sele sigorta

    Set Order To sskno

    Seek arasskno

    If  arasskno=sigorta.ssk And arayil=sigorta.yil

        Replace  sigorta.&bugun. With sigorta.&bugun.+aragun,;

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

            sigorta.&buikramiye. With sigorta.&buikramiye.+araikramat In sigorta

    Endif

Enddo

Select Cnt(*) From personel Where ssk=textsskno Into Array perkaydi

If perkaydi=0

    Messagebox(textssk+" "+"SSK nolu personel kayıtlı değil")

Endif

GTABADI=&GECTAB.+".DBF"

Dele File GTABADI
Bilmediğin Neyse Yanıldığındır.

31 Cevaplayan moderom

  • moderom
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 25.12.2007
  • İleti: 153

Re: text dosyayı dbfe yollamak....ancak ufak ayrıntılar var

bazı değişiklikler yaptım o kodda ama yenisini atıcam iş yerindeyim şuanda