MULTI PENYIMPANAN

MULTI CODING PENYIMPANAN
*================simpan data========================================
SELECT tbmapelampu
SET DELETED OFF
xtahun=ALLTRIM(UPPER(thisform.coMBO1.Value))
xkdmapel=tbmapeljar.kdmapel
xnip=tbguru.nips
LOCATE FOR (ALLTRIM(UPPER(tbmapelampu.thnajaran))=ALLTRIM(UPPER(xtahun)) AND ALLTRIM(UPPER(tbmapelampu.kdmapel))=ALLTRIM(UPPER(xkdmapel)) AND ALLTRIM(UPPER(tbmapelampu.nip))=ALLTRIM(UPPER(xnip)))
            IF DELETED()
                IF DELETED()

                    RECALL FOR (ALLTRIM(UPPER(tbmapelampu.thnajaran))=ALLTRIM(UPPER(xtahun)) AND ALLTRIM(UPPER(tbmapelampu.kdmapel))=ALLTRIM(UPPER(xkdmapel)) AND ALLTRIM(UPPER(tbmapelampu.nips))=ALLTRIM(UPPER(xnips)))
                ELSE

                ENDIF        
            ELSE
                    APPEND BLANK
            ENDIF
                    replace thnajaran WITH xtahun IN tbmapelampu
                    replace kdmapel WITH xkdmapel  IN tbmapelampu
                    replace nip WITH xnip  IN tbmapelampu           
            SET DELETED ON
                        =TABLEUPDATE(.t.,.t.,"tbmapelampu")