UPDATE NILAI

CODING UPDATE NILAI TES SISWA "REFRESE"
SELECT tbpsb
SCAN FOR ALLTRIM(tbpsb.thnajaran)=ALLTRIM(thisform.combo1.Value)
xtahun=tbpsb.thnajaran
xnomor=tbpsb.nodaftar
    SELECT tbnilaites
            SUM tbnilaites.nilai TO xtotal FOR ALLTRIM(UPPER(tbnilaites.thnajaran))=ALLTRIM(UPPER(xtahun)) AND
ALLTRIM(UPPER(tbnilaites.nodaftar))=ALLTRIM(UPPER(xnomor))   
    SELECT tbhasiltes
        SET DELETED OFF
                LOCATE FOR ALLTRIM(UPPER(thnajaran))=ALLTRIM(UPPER(xtahun)) AND ALLTRIM(UPPER(nodaftar))=ALLTRIM(UPPER(xnomor))
                    IF found()
                        IF DELETED()
                            RECALL FOR ALLTRIM(UPPER(thnajaran))=ALLTRIM(UPPER(xtahun)) AND ALLTRIM(UPPER(nodaftar))=ALLTRIM(UPPER(xnomor))
                            replace thnajaran WITH xtahun  IN tbhasiltes
                            replace nodaftar WITH xnomor  IN tbhasiltes
                            replace totalnilai WITH xtotal  IN tbhasiltes
                        ELSE
                            replace thnajaran WITH xtahun  IN tbhasiltes
                            replace nodaftar WITH xnomor  IN tbhasiltes
                            replace totalnilai WITH xtotal  IN tbhasiltes
                        ENDIF                
                    ELSE
                            APPEND BLANK
                            replace thnajaran WITH xtahun  IN tbhasiltes
                            replace nodaftar WITH xnomor  IN tbhasiltes
                            replace totalnilai WITH xtotal  IN tbhasiltes
                    ENDIF
                                =TABLEUPDATE(.t.,.t.,"tbhasiltes")
        SET DELETED ON
ENDSCAN
SELECT thnajaran
SELECT tbmapel
thisform.grdTbhasiltes.Refresh
thisform.grdTbnilaites.Refresh
thisform.Refresh