Konu: tekrar bulmak
bir tablom var buna sürekli veri giriyorum .
aşağıdaki kodu yazıyorum
Visual Fox Pro
oldalias=alias()
buay=allt(this.parent.parent.combo1.value)
if buay=" "
messagebox("Ay Seçilmemiş",64,"Personel Programı")
else
sele bordro
set order to anahtar
bumatrah="m"+buay
go top in "bordro"
aa=0
bb=0
cc=0
dd=0
do while .not. eof("bordro")
arama=bordro.kod+bordro.fbno
mprimvtp=bordro.prim_t
mvyemek=bordro.yv
mkyemek=bordro.yk
myemekssk=(mvyemek*param1.yemek_ucrt)+(mkyemek*2.5*param1.yemek_ucrt)
mtdiger=mprimvtp+myemekssk
sele tisdiger
if seek(arama,"tisdiger","anahtar")
repl tisdiger.&bumatrah. with tisdiger.&bumatrah.+mtdiger in "tisdiger"
else
if seek(arama,"personel","anahtar")
madi=personel.adi
msoyadi=personel.soyadi
mssk=personel.ssk
mkod=personel.kod
mfbno=personel.fbno
endif
append blank in "tisdiger"
repl tisdiger.kod with mkod,;
tisdiger.fbno with mfbno,;
tisdiger.adi with madi,;
tisdiger.soyadi with msoyadi,;
tisdiger.ssk with mssk,;
tisdiger.&bumatrah. with mtdiger in "vergi"
endif
aa=aa+1
bb=bb+mprimvtp
cc=cc+myemekssk
enddo
skip "bordro"
messagebox("&aa personel için &bb tl Verimliliği teşvik Prim matrahı ve &cc tl Nakdi Yemek Ssk matrahı devir sokulmuştur.",64,"Personel Maaş Bordro Programı")
endif
alias=&oldalias.
burada program bazen cozutuyor tablomu ayrı acıp baktığımda isimsiz ve değerleri seçtiğim combobox ayındaki değerler o oluyor. yada eksik atıyor mesela toplam hesabıma göre 1000 tl matrahı alması gerekirken tabloyu açıp baktığımda sum m01,m02,m03 dediğimde yüklediğim ayda belli bir tutar eksikliği oluşuyor acaba neden ?
yardımcı olursanız sevinirim. acaba burda bir kişiyi tekrar kaydetme imkanı varmıdır birde böyle birşey olup olmadığını nasıl bulabilirim. kayıt sayısı çok 3000 e yakın personelim var
