CODING TRANSFER CALON SISWA KE TABEL SISWA
*=============================================
SELECT tbhasiltes
zero=thisform.text1.Value
xtahun=ALLTRIM(thisform.combo1.Value)
SCAN FOR ALLTRIM(UPPER(tbhasiltes.thnajaran))=ALLTRIM(UPPER(xtahun))
SCAN FOR ALLTRIM(UPPER(tbhasiltes.thnajaran))=ALLTRIM(UPPER(xtahun)) AND BETWEEN(tbhasiltes.totalnilai,zero,100)
xnodaftar=tbhasiltes.nodaftar
xtotal=tbhasiltes.totalnilai
SELECT siswa
xthn=siswa.thnajaran
xnis=siswa.nis
xno=siswa.nodaftar
x=RECCOUNT()+1
xsip=ALLTRIM(STR(x))
SET DELETED OFF
LOCATE FOR ALLTRIM(UPPER(siswa.thnajaran))=ALLTRIM(UPPER(xtahun)) AND ALLTRIM(UPPER(siswa.nodaftar))=ALLTRIM(UPPER(xnodaftar))
if FOUND()
IF DELETED()
RECALL FOR ALLTRIM(UPPER(siswa.thnajaran))=ALLTRIM(UPPER(xtahun)) AND ALLTRIM(UPPER(siswa.nodaftar))=ALLTRIM(UPPER(xnodaftar))
ENDIF
ELSE
APPEND BLANK
ENDIF
replace thnajaran WITH xtahun IN siswa
replace nodaftar WITH xnodaftar IN siswa
replace nis WITH xsip IN siswa
=TABLEUPDATE(.t.,.t.,"siswa")
SET DELETED ON
ENDSCAN
ENDSCAN
SELECT thnajaran
thisform.Refresh
No comments:
Post a Comment