Re: tablodan tabloya veri atmak
burdanda yardımcı olabilirsen mrduyar cok sevinirim.
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Kodlama ve Komutlar » tablodan tabloya veri atmak
burdanda yardımcı olabilirsen mrduyar cok sevinirim.
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.
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
kayıtlı personel varsa kaydetmeden biryere nasıl yönlendiririm yani girilen bilginin var olup olmadığı
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
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
IF SEEK(m.yenipersonelVatandaşNo) &&indexli olduğunu varsayıyorum
wait "bu personel var"
ELSE
wait "yeni kayıt"
ENDI
teşekkürler deneyeyim bakalım vfp 6 da çalışacakmı çalışmazsa başka yöntem bakıcam
denedim olmadı
yenpersonel düğmesinde
append blank in personel
kaydet düğmesinde
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
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.
6-7 yi 7-8 yapalim. Bekliyorum.
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 !)
fbno character sskno 13 uzunluklu numeric
if seek yaptığımda her kayda hep aynı fbnumarasını aktardı acaba döngüdemi sorun var anlayamadım.
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 !!
uğurbeyin bu kodunu vfp 6 ya uyarlasak nasıl olur
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
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.
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 :-)
Tablodan tabloya veri atmadan önce mi, attıktan sonra mı kullanacağız ?
Icimden bu "Biber hapi" nin sitesine gidip agzina geleni soylemek geliyor ya hadi neyse. Terbiyemi bozmayayim gene bu gerzek reklamcilar icin.
Kusura bakmayın uzundur izindeydimsenelik ve döndüm artık programa kaldığım yerden devam edebilirim.
Icimden bu "Biber hapi" nin sitesine gidip agzina geleni soylemek geliyor ya hadi neyse. Terbiyemi bozmayayim gene bu gerzek reklamcilar icin.
banladim!
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.
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.
Reklamı silelim
Kusura bakmayın uzundur izindeydimsenelik ve döndüm artık programa kaldığım yerden devam edebilirim.
Evet , nerde kalmıştık.
scan
update sigorta2;
set sigorta2.gun01=syedek.gun01;
where sigorta2.sskno==syedek.sskno
endscan
bu kodu şu şekile çevirebilirmiyim.
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
Yaklastin:)
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
fox4um » Kodlama ve Komutlar » tablodan tabloya veri atmak