UPDATE/HITUNG

CODING HITUNG TOTAL PEMBAYARAN PSB
*=====================================================================
SELECT tbpsb
SCAN FOR ALLTRIM(thnajaran)=ALLTRIM(thisform.combo1.Value)
                xtahun=tbpsb.thnajaran
                xnomor=tbpsb.nodaftar
SELECT tbjenisbayarpsb
        SCAN FOR ALLTRIM(thnajar)=ALLTRIM(xtahun)
            SELECT tbbayarpsb

                    LOCATE FOR (ALLTRIM(UPPER(tbbayarpsb.thnajaran))=ALLTRIM(UPPER(xtahun)) AND ALLTRIM(UPPER(tbbayarpsb.nodaftar))= ALLTRIM(UPPER(xnomor)))
                        IF found()
                                replace thnajaran WITH xtahun  IN tbbayarpsb
                                replace nodaftar WITH xnomor  IN tbbayarpsb
                        ELSE
                                APPEND BLANK
                                replace thnajaran WITH xtahun IN tbbayarpsb
                                replace nodaftar WITH xnomor  IN tbbayarpsb
                        ENDIF
                        =TABLEUPDATE(.t.,.t.,"tbbayarpsb")
        ENDSCAN
ENDSCAN
SELECT thnajaran
thisform.Refresh