26

Re: tablodan tabloya veri atmak

burdanda yardımcı olabilirsen mrduyar cok sevinirim.

27 Son düzenleyen, mrduyar (19.01.2011 15:21:59)

Re: tablodan tabloya veri atmak

Arkadaşım şuan sana yazarak bir şeyleri anlatmak o kadar zor geliyorki bana. Senin için zaman ayırıp makinana uzaktan bağlanacağım ve yardımcı olmaya çalışacağım. En azında başlangıçtaki bazı hataları yapmassın.  Dediğim gibi telefonunu bulsam şimdiye kadar çoktan arardım. Facebook ta telefonum var.

Bilmediğin Neyse Yanıldığındır.

28 Son düzenleyen, moderom (19.01.2011 23:18:28)

Re: tablodan tabloya veri atmak

işte sorun uzaktan bağlanmada
işyerinde fox pro kurulu ancak program orda orayada uzaktan bağlanmanız imkansız.
evde fox pro kurulu ancak programın kodları datalar falan yok
ordakiyle burdaki birbirini tutmaz 1. si işyerinde vfp 6 var evde vfp 9 oda bir tezat

29

Re: tablodan tabloya veri atmak

kayıtlı personel varsa kaydetmeden biryere nasıl yönlendiririm yani girilen bilginin var olup olmadığı

30 Son düzenleyen, konuka (26.01.2011 11:07:51)

Re: tablodan tabloya veri atmak

moderom yazdı:

kayıtlı personel varsa kaydetmeden biryere nasıl yönlendiririm yani girilen bilginin var olup olmadığı


1. (tekrar) sevgili moderom, soru sorarken biraz daha özen göstermen gerekiyor
2. vatandaşlık no yok ise

Visual Fox Pro
LOCA FOR ALLT(personelad)==ALLT(m.yeniad) AND ;

       ALLT(personelsoyad)==ALLT(m.yenisoyad) AND ....
IF FOUN()
  wait "bu personel var"
ELSE
  wait "yeni kayıt"
ENDI


3. vatandaşlık no var ise

Visual Fox Pro
IF SEEK(m.yenipersonelVatandaşNo)  &&indexli olduğunu varsayıyorum

  wait "bu personel var"
ELSE
  wait "yeni kayıt"
ENDI
VFP9 SP2

31 Son düzenleyen, moderom (26.01.2011 15:36:55)

Re: tablodan tabloya veri atmak

teşekkürler deneyeyim bakalım vfp 6 da çalışacakmı çalışmazsa başka yöntem bakıcam
denedim olmadı
yenpersonel düğmesinde

Visual Fox Pro
append blank in personel

kaydet düğmesinde

Visual Fox Pro
if seek(m.sskno)    && burda hata verdi ssk noya göre index var fbnoya göre var

    messagebox("personel var")
    thisform.countainer1.txtsskno.setfocus()
 
else
    msskno=alltrim(thisform.container1.txtsskno.value)
    mfbno=alltrim(thisform.container1.txtfbno.value)
    myil=year(date())
    =tableupdate(1,.t.,"personel")
 
    append blank in "sigorta2"
    repl sskno with msskno,;
        fbno with mfbno,;
        yil with myil in "sigorta2"
    =tablaupdate(1,.t.,"sigorta2")
    messagebox("kayıt yapıldı")
 
endif

32 Son düzenleyen, moderom (26.01.2011 15:41:56)

Re: tablodan tabloya veri atmak

birde mrduyar bey akşam kodları eve götüreyim diyorum bakalım vfp 9 da vfp6 ya göre kod yazabiliriz inşallah gerçi derlemesini 9 da yapınca bir sorun olurmu bilmem ama akşam uzaktan yardımla bağlanırsınız bana uygun olursa ben 6 7 gibi eve giderim telefonunuzu faceden bakarım rahatsız etmem umarım.

33

Re: tablodan tabloya veri atmak

6-7 yi  7-8 yapalim. Bekliyorum.

Bilmediğin Neyse Yanıldığındır.

34

Re: tablodan tabloya veri atmak

moderom yazdı:


Visual Fox Pro
if seek(m.sskno)    && burda hata verdi ssk noya göre index var fbnoya göre var


muhtemelen index stringli bir kombinasyon - m.sskno numeric veya tersi
bu noktada hata mesajı verdiğinde debuggerden KEY() diye sorgularsan farkı bulup kodu tamir edebilirsin.
? VARTYPE(KEY())=VARTYPE(m.sskno)  && .t. olmalı

Notlar:
1- sorularında VFP6 / VFP9 da değişik olabilecek birşey yok gibi duruyor...
2- yeni kayıta APPEND BLANK yerine INSERT INTO xxx.dbf () VALUES () kullanırsan birçok enfeksiyona bağışıklı olursun ... (hele bir düğmede APPEND BLANK yazıp öylece bırakmak enfeksiyona çok açık !)

VFP9 SP2

35

Re: tablodan tabloya veri atmak

fbno character sskno 13 uzunluklu numeric

36

Re: tablodan tabloya veri atmak

if seek yaptığımda her kayda hep aynı fbnumarasını aktardı acaba döngüdemi sorun var anlayamadım.

37

Re: tablodan tabloya veri atmak

1. debuggerde gözlemlemeyi dene, mutlaka çözeceğine inanıyorum. Özellikle KEY() ne ?
2. IF SEEK (m.sskno,"aranacaktablo","indexadi")  && başka ALIA() içinde kaldı isen !!

VFP9 SP2

38 Son düzenleyen, moderom (28.01.2011 13:26:47)

Re: tablodan tabloya veri atmak

uğurbeyin bu kodunu vfp 6 ya uyarlasak nasıl olur

Visual Fox Pro
UPDATE Syedek ;

        SET syedek.fbno = CAST(personel.fbno As Int)) ;
    From Syedek ;
    Join Personel On Syedek.SSKNo == Personel.SSKNo

bu kodu vfp 6 da ne biçimde uygulamalıyım. tabi seri ve hızlı çalışması kaydı ile ben çift for döngüsü denedim oldu ama bunu daha serileştirmem gerekli

39

Re: tablodan tabloya veri atmak

Visual Fox Pro
select Personel

scan
   UPDATE Syedek ;
        SET syedek.fbno = personel.fbno ;
    where Syedek.SSKNo == Personel.SSKNo
endscan

VFP6'da oyle pek sansin yok. Cok fazla kaydin olamayacagina gore hiz acisindan dertli olmaz.

40 Son düzenleyen, moderom (28.01.2011 13:45:13)

Re: tablodan tabloya veri atmak

yaklaşık iki tabloda 1713 kişilik artı eksi
birde bu kodda syedekteki fbnolar boş ve personelden alıp atıyor değilmi
syedekten alıp personele yazarsa ters olurda :-)

41

Re: tablodan tabloya veri atmak

Tablodan tabloya veri atmadan önce mi, attıktan sonra mı kullanacağız ? smile

42

Re: tablodan tabloya veri atmak

Icimden bu "Biber hapi" nin sitesine gidip agzina geleni soylemek geliyor ya hadi neyse. Terbiyemi bozmayayim gene bu gerzek reklamcilar icin.

43

Re: tablodan tabloya veri atmak

Kusura bakmayın uzundur izindeydimsenelik ve döndüm artık programa kaldığım yerden devam edebilirim.

44

Re: tablodan tabloya veri atmak

cetinbasoz yazdı:

Icimden bu "Biber hapi" nin sitesine gidip agzina geleni soylemek geliyor ya hadi neyse. Terbiyemi bozmayayim gene bu gerzek reklamcilar icin.


banladim!

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpg

45

Re: tablodan tabloya veri atmak

soykanozcelik yazdı:
cetinbasoz yazdı:

Icimden bu "Biber hapi" nin sitesine gidip agzina geleni soylemek geliyor ya hadi neyse. Terbiyemi bozmayayim gene bu gerzek reklamcilar icin.


banladim!

bu tür kullanıcılar zaten tek mesaj atar ve çıkar.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

46

Re: tablodan tabloya veri atmak

metin yazdı:
soykanozcelik yazdı:
cetinbasoz yazdı:

Icimden bu "Biber hapi" nin sitesine gidip agzina geleni soylemek geliyor ya hadi neyse. Terbiyemi bozmayayim gene bu gerzek reklamcilar icin.


banladim!

bu tür kullanıcılar zaten tek mesaj atar ve çıkar.

bu gibileri banlamak bir anlam ifade etmez maalesef metin'in dediği gibi tek mesaj bırakır çıkar bu mesajda linki kaldığı sürece o hedefine ulaşmıştır aslında mesajı tamamen silmek gerekir
google ın gerizekalı algoritması (kendileri çok övsede...) bu şekilde back linklerle alt ediliyor google da bunu biliyor ama hiç bir şey yapmıyor.

47

Re: tablodan tabloya veri atmak

Reklamı silelim big_smile

48

Re: tablodan tabloya veri atmak

moderom yazdı:

Kusura bakmayın uzundur izindeydimsenelik ve döndüm artık programa kaldığım yerden devam edebilirim.

Evet , nerde kalmıştık. smile

49

Re: tablodan tabloya veri atmak

Visual Fox Pro
scan

update sigorta2;
set sigorta2.gun01=syedek.gun01;
where sigorta2.sskno==syedek.sskno
endscan

bu kodu şu şekile çevirebilirmiyim.

Visual Fox Pro
scan

update sigorta2;
set sigorta2.gun01=syedek.gun+sigorta2.gun01;
set sigorta2.ucr01=syedek.ucret+sigorta2.ucr01;
set sigorta2.ikr01=syedek.ikramiye+sigorta2.ikr01;
where sigorta2.sskno==syedek.sskno and sigorta2.yil=syedek.yil
endscan

50

Re: tablodan tabloya veri atmak

Yaklastin:)

Visual Fox Pro
scan

update sigorta2;
set sigorta2.gun01=syedek.gun+sigorta2.gun01, ;
      sigorta2.ucr01=syedek.ucret+sigorta2.ucr01, ;
      sigorta2.ikr01=syedek.ikramiye+sigorta2.ikr01  ;
where sigorta2.sskno==syedek.sskno and sigorta2.yil=syedek.yil
endscan