Re: tablodan tabloya veri atmak
burdanda yardımcı olabilirsen mrduyar cok sevinirim.
27 19.01.2011 15:21:09 Son düzenleyen, mrduyar (19.01.2011 15:21:59)
- mrduyar
- Uzman Üye
- Offline
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 19.01.2011 23:17:23 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
Re: tablodan tabloya veri atmak
kayıtlı personel varsa kaydetmeden biryere nasıl yönlendiririm yani girilen bilginin var olup olmadığı
30 26.01.2011 11:07:28 Son düzenleyen, konuka (26.01.2011 11:07:51)
- konuka
- Uzman Üye
- Offline
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 26.01.2011 15:09:26 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 26.01.2011 15:40:48 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.
- mrduyar
- Uzman Üye
- Offline
Re: tablodan tabloya veri atmak
6-7 yi 7-8 yapalim. Bekliyorum.
Bilmediğin Neyse Yanıldığındır.
- konuka
- Uzman Üye
- Offline
Re: tablodan tabloya veri atmak
moderom yazdı:
Visual Fox Proif 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
Re: tablodan tabloya veri atmak
fbno character sskno 13 uzunluklu numeric
Re: tablodan tabloya veri atmak
if seek yaptığımda her kayda hep aynı fbnumarasını aktardı acaba döngüdemi sorun var anlayamadım.
- konuka
- Uzman Üye
- Offline
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 28.01.2011 13:25:50 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
- cetinbasoz
- Uzman Üye
- Offline
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 28.01.2011 13:44:12 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 :-)
Re: tablodan tabloya veri atmak
Tablodan tabloya veri atmadan önce mi, attıktan sonra mı kullanacağız ? 
- cetinbasoz
- Uzman Üye
- Offline
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.
Re: tablodan tabloya veri atmak
Kusura bakmayın uzundur izindeydimsenelik ve döndüm artık programa kaldığım yerden devam edebilirim.
- soykanozcelik
- Uzman Üye
- Offline
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!
- metin
- Uzman Üye
- Offline
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
www.metinemre.com
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.
Re: tablodan tabloya veri atmak
Reklamı silelim 
- Aligocmen
- Uzman Üye
- Offline
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.
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
- cetinbasoz
- Uzman Üye
- Offline
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