INPUT DATA

CODING CEPAT INPUT SEMUA MATA PELAJARAN DI PERTAHUN AJARAN
1... SATU -SATU
*========================================================================
SELECT tbmapeljar
SET DELETED OFF
xkdmapel=tbmapel.kdmapel
xtahun=ALLTRIM(UPPER(thisform.coMBO1.Value))
LOCATE FOR (ALLTRIM(UPPER(tbmapeljar.thnajaran))=ALLTRIM(UPPER(thisform.coMBO1.Value)) AND ALLTRIM(UPPER(tbmapeljar.kdmapel))=ALLTRIM(UPPER(tbmapel.kdmapel)))
            IF DELETED()
                IF DELETED()
                RECALL FOR
(ALLTRIM(UPPER(tbmapeljar.thnajaran))=ALLTRIM(UPPER(thisform.coMBO1.Value)) AND ALLTRIM(UPPER(tbmapeljar.kdmapel))=ALLTRIM(UPPER(tbmapel.kdmapel))) IN tbmapeljar                    replace thnajaran WITH xtahun  IN tbmapeljar
                    replace kdmapel WITH xkdmapel  IN tbmapeljar
                ELSE
                    replace thnajaran WITH xtahun  IN tbmapeljar
                    replace kdmapel WITH xkdmapel  IN tbmapeljar   
                ENDIF        
            ELSE
                    APPEND BLANK
                    replace thnajaran WITH xtahun IN tbmapeljar
                    replace kdmapel WITH xkdmapel  IN tbmapeljar
*!*                        replace nodaftar WITH xnomor  IN tbmapeljar
*!*                        CONTINUE
            ENDIF
            SET DELETED ON
                        =TABLEUPDATE(.t.,.t.,"tbmapeljar")
                        thisform.grdTbmapeltes.SetFocus
                        thisform.grdTbmapeltes.Refresh
thisform.Refresh

2. SEMUA
*======================================================================
SELECT tbmapel
SCAN
xkdmapel=kdmapel
SELECT tbmapeljar
SET DELETED OFF
xtahun=ALLTRIM(thisform.coMBO1.Value )
        LOCATE FOR (ALLTRIM(UPPER(tbmapeljar.thnajaran))=ALLTRIM(UPPER(xtahun)) AND ALLTRIM(UPPER(tbmapeljar.kdmapel))=ALLTRIM(UPPER(xkdmapel)))
            IF found()
                IF DELETED()
                    RECALL FOR (ALLTRIM(UPPER(tbmapeljar.thnajaran))=ALLTRIM(UPPER(xtahun)) AND ALLTRIM(UPPER(tbmapeljar.kdmapel))=ALLTRIM(UPPER(xkdmapel)))IN tbmapeljar
                    replace thnajaran WITH xtahun  IN tbmapeljar
                    replace kdmapel WITH xkdmapel  IN tbmapeljar
                ELSE
                    replace thnajaran WITH xtahun  IN tbmapeljar
                    replace kdmapel WITH xkdmapel  IN tbmapeljar
                ENDIF
            ELSE
                    APPEND BLANK
                    replace thnajaran WITH xtahun IN tbmapeljar
                    replace kdmapel WITH xkdmapel  IN tbmapeljar
*!*                        replace nodaftar WITH xnomor  IN tbmapeljar
*!*                        CONTINUE
            ENDIF
                        =TABLEUPDATE(.t.,.t.,"tbmapeljar")
                        thisform.grdTbmapeltes.Refresh

ENDSCAN
SELECT thnajaran
thisform.Refresh
SET DELETED ON