TRANSFER CALON SISWA

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