Code Program

	ADMIN - REFRESH
GASY Script

BUKA - 11

FUNCTION BUKA(lEXC, cTABLE, cALIAS, cIDX1, cIDX2, cIDX3 ) If Used(cALIAS) Select (cALIAS) Use Endif If !Used(cALIAS) IF lEXC USE (cTABLE) IN 0 ALIAS (cALIAS) EXCLUSIVE ELSE USE (cTABLE) IN 0 ALIAS (cALIAS) SHARED Endif Endif If !Used(cALIAS) Return .F. Endif SELECT (cALIAS) IF PCOUNT()=4 SET INDEX TO (cIDX1) ENDIF IF PCOUNT()=5 SET INDEX TO (cIDX1),(cIDX2) ENDIF IF PCOUNT()=6 SET INDEX TO (cIDX1),(cIDX2),(cIDX3) ENDIF RETURN .T. ENDFUNC

BUKADBF - 25

PROCEDURE BUKADBF( lExcl, mP1, cLokasi, cJns, mP2) DO case mP1=UPPER(mP1) CASE mP1=="DP_MST" IF !USED('DP_MST') BUKA(lExcl,cLokasi+'DP_MST','DP_MST',cLokasi+'DP_MST1',cLokasi+'DP_MST2',cLokasi+'DP_MST3') ENDIF RETURN USED('DP_MST') CASE mP1=="DP_BNG" IF !USED('DP_BNG') BUKA(lExcl,cLokasi+'DP_BNG','DP_BNG',cLokasi+'DP_BNG') ENDIF RETURN USED('DP_BNG') CASE mP1=="DP_TRS_H" IF !USED('DP_TRS_H') BUKA(lExcl,cLokasi+'DP_TRS_H','DP_TRS_H') ENDIF RETURN USED('DP_TRS_H') CASE mP1=="KR_MST" IF !USED('KR_MST') MFILEMST=cLokasi+'KM'+ALLTRIM(cJns)+'MST' BUKA(lExcl,(MFILEMST),'KR_MST',(MFILEMST+'1'),(MFILEMST+'2'),(MFILEMST+'3')) ENDIF RETURN USED('KR_MST') CASE mP1=="KR_RLS_H" IF !USED('KR_RLS_H') MFILERLSH=cLokasi+'KT'+ALLTRIM(cJns)+'RLS_H' BUKA(lExcl,(MFILERLSH),'KR_RLS_H') ENDIF RETURN USED('KR_RLS_H') CASE mP1=="KR_TRS_H" IF !USED('KR_TRS_H') MFILETRSH=cLokasi+'KT'+ALLTRIM(cJns)+'TRS_H' BUKA(lExcl,(MFILETRSH),'KR_TRS_H') ENDIF RETURN USED('KR_TRS_H') CASE mP1=="KR_RCS_H" IF !USED('KR_RCS_H') MFILERCSH=cLokasi+'KT'+ALLTRIM(cJns)+'RCS_H' BUKA(lExcl,(MFILERCSH),'KR_RCS_H') ENDIF RETURN USED('KR_RCS_H') CASE mP1=="KR_TRS" IF !USED('KR_TRS') MFILETRS=cLokasi+'KK'+Alltrim(cJns)+'TRS' BUKA(lExcl,(MFILETRS),'KR_TRS',(MFILETRS)) ENDIF RETURN USED('KR_TRS') CASE mP1=="KR_MSTB" IF !USED('KR_MSTB') MFILETRS=cLokasi+'KB'+Alltrim(cJns)+GS_NTOC(MP2)+STR(YEAR(MP2),4) BUKA(lExcl,(MFILETRS),'KR_MSTB') ENDIF RETURN USED('KR_MSTB') CASE mP1=="KR_RCS" IF !USED('KR_RCS') MFILERCS=cLokasi+'KK'+Alltrim(cJns)+'RCS' BUKA(lExcl,(MFILERCS),'KR_RCS',(MFILERCS)) ENDIF RETURN USED('KR_RCS') CASE mP1=="KR_JAM" IF !USED('KR_JAM') MFILEJAM=clokasi+'KJ'+Alltrim(cJns)+'JAM' BUKA(lExcl,(MFILEJAM),'KR_JAM',(MFILEJAM)) ENDIF RETURN USED('KR_JAM') CASE mP1=="KR_BNG" IF !USED('KR_BNG') MFILEBNG=cLokasi+'KA'+Alltrim(cJns)+'BNG' BUKA(lExcl,(MFILEBNG),'KR_BNG',(MFILEBNG)) ENDIF RETURN USED('KR_BNG') CASE mP1=="TB_TRS_H" IF !USED('TB_TRS_H') MFILETRS=cLOKASI+'TT'+Alltrim(cJns)+'TRS_H' BUKA(lExcl,MFILETRS,'TB_TRS_H') ENDIF RETURN USED('TB_TRS_H') CASE mP1=="TB_MST" IF !USED('TB_MST') MFILEMST=cLokasi+'TM'+Alltrim(cJns)+'MST' BUKA(lExcl,MFILEMST,'TB_MST',MFILEMST+'1',MFILEMST+'2') ENDIF RETURN USED('TB_MST') CASE mP1=='TB_KRT' IF !USED('TB_KRT') MFILEKRT=cLOKASI+'TK'+Alltrim(cJns)+GS_NTOC(mP2)+STR(YEAR(mP2),4) BUKA(lExcl,MFILEKRT,'TB_KRT',MFILEKRT) ENDIF RETURN USED('TB_KRT') CASE mP1=='TB_SLD' IF !USED('TB_SLD') MFILESLD=cLOKASI+'TS'+Alltrim(cJns)+GS_NTOC(mP2)+STR(YEAR(mP2),4) BUKA(lExcl,MFILESLD,'TB_SLD',MFILESLD) ENDIF RETURN USED('TB_SLD') CASE mP1=="TP_MST" IF !USED('TP_MST') mFILEMST=cLokasi+'TP_MST'+ALLTRIM(cJns) BUKA(lExcl,mFILEMST,'TP_MST',mFILEMST+'1',mFILEMST+'2') ENDIF RETURN USED('TP_MST') CASE mP1=="TP_KRT" IF !USED('TP_KRT') mFILETRS=cLOkasi+'TP_KRT'+ALLTRIM(cJns) BUKA(lExcl,mFILETRS,'TP_KRT',mFILETRS) ENDIF RETURN USED('TP_KRT') CASE mP1=="TP_TRS_H" IF !USED('TP_TRS_H') mFILETRSH=cLokasi+'TP_TRSH'+ALLTRIM(cJns) BUKA(lExcl,mFILETRSH,'TP_TRS_H') ENDIF RETURN USED('TP_TRS_H') CASE mP1=="AK_BBB" IF !USED("AK_BBB") mFILEDBF=cLokasi+"BB_"+GS_NTOC(mP2)+STR(YEAR(mP2),4) BUKA(lExcl,mFILEDBF,"AK_BBB",mFILEDBF) ENDIF RETURN USED("AK_BBB") CASE mP1=="DN_MST" IF !USED('DN_MST') BUKA(lExcl,cLokasi+'DN_MST','DN_MST',cLokasi+'DN_MST1',cLokasi+'DN_MST2') ENDIF RETURN USED("DN_MST") CASE mP1=="AK_MST" IF !USED("AK_MST") mKEY0=cLokasi+'AKM_'+STR(YEAR(mP2),4) mKEY1=cLokasi+'AK1_'+STR(YEAR(mP2),4) mKEY2=cLokasi+'AK2_'+STR(YEAR(mP2),4) mKEY3=cLokasi+'AK3_'+STR(YEAR(mP2),4) BUKA(lExcl,mKEY0,'AK_MST',mKEY1,mKEY2,mKEY3) ENDIF RETURN USED("AK_MST") CASE mP1=="CJHARIAN" IF !USED("CJHARIAN") BUKA(lExcl,(cLokasi+"CJHARIAN"),"CJHARIAN",(cLokasi+"CJHARIAN")) ENDIF RETURN USED("CJHARIAN") CASE mP1=="GJHARIAN" IF !USED("GJHARIAN") BUKA(lExcl,(cLokasi+"GJHARIAN"),"GJHARIAN",(cLokasi+"GJHARIAN")) ENDIF RETURN USED("GJHARIAN") ENDCASE RETURN .f. ENDPROC

BUKADBF - 63

PROCEDURE BUKADBF(lExcl, mP1, cLokasi, cJns, mP2) DO case mP1=UPPER(mP1) CASE mP1=="DP_MST" IF !USED('DP_MST') BUKA(lExcl,cLokasi+'DP_MST','DP_MST',cLokasi+'DP_MST1',cLokasi+'DP_MST2',cLokasi+'DP_MST3') ENDIF RETURN USED('DP_MST') CASE mP1=="DP_BNG" IF !USED('DP_BNG') BUKA(lExcl,cLokasi+'DP_BNG','DP_BNG',cLokasi+'DP_BNG') ENDIF RETURN USED('DP_BNG') CASE mP1=="DP_TRS_H" IF !USED('DP_TRS_H') BUKA(lExcl,cLokasi+'DP_TRS_H','DP_TRS_H') ENDIF RETURN USED('DP_TRS_H') CASE mP1=="KR_MST" IF !USED('KR_MST') MFILEMST=cLokasi+'KM'+ALLTRIM(cJns)+'MST' BUKA(lExcl,(MFILEMST),'KR_MST',(MFILEMST+'1'),(MFILEMST+'2'),(MFILEMST+'3')) ENDIF RETURN USED('KR_MST') CASE mP1=="KR_RLS_H" IF !USED('KR_RLS_H') MFILERLSH=cLokasi+'KT'+ALLTRIM(cJns)+'RLS_H' BUKA(lExcl,(MFILERLSH),'KR_RLS_H') ENDIF RETURN USED('KR_RLS_H') CASE mP1=="KR_TRS_H" IF !USED('KR_TRS_H') MFILETRSH=cLokasi+'KT'+ALLTRIM(cJns)+'TRS_H' BUKA(lExcl,(MFILETRSH),'KR_TRS_H') ENDIF RETURN USED('KR_TRS_H') CASE mP1=="KR_RCS_H" IF !USED('KR_RCS_H') MFILERCSH=cLokasi+'KT'+ALLTRIM(cJns)+'RCS_H' BUKA(lExcl,(MFILERCSH),'KR_RCS_H') ENDIF RETURN USED('KR_RCS_H') CASE mP1=="KR_TRS" IF !USED('KR_TRS') MFILETRS=cLokasi+'KK'+Alltrim(cJns)+'TRS' BUKA(lExcl,(MFILETRS),'KR_TRS',(MFILETRS)) ENDIF RETURN USED('KR_TRS') CASE mP1=="KR_RCS" IF !USED('KR_RCS') MFILERCS=cLokasi+'KK'+Alltrim(cJns)+'RCS' BUKA(lExcl,(MFILERCS),'KR_RCS',(MFILERCS)) ENDIF RETURN USED('KR_RCS') CASE mP1=="KR_JAM" IF !USED('KR_JAM') MFILEJAM=clokasi+'KJ'+Alltrim(cJns)+'JAM' BUKA(lExcl,(MFILEJAM),'KR_JAM',(MFILEJAM)) ENDIF RETURN USED('KR_JAM') CASE mP1=="KR_BNG" IF !USED('KR_BNG') MFILEBNG=cLokasi+'KA'+Alltrim(cJns)+'BNG' BUKA(lExcl,(MFILEBNG),'KR_BNG',(MFILEBNG)) ENDIF RETURN USED('KR_BNG') CASE mP1=="TB_TRS_H" IF !USED('TB_TRS_H') MFILETRS=cLOKASI+'TT'+Alltrim(cJns)+'TRS_H' BUKA(lExcl,MFILETRS,'TB_TRS_H') ENDIF RETURN USED('TB_TRS_H') CASE mP1=="DA_TRS_H" IF !USED('DA_TRS_H') MFILETRS=cLOKASI+'DA_TRS_H' BUKA(lExcl,MFILETRS,'DA_TRS_H') ENDIF RETURN USED('DA_TRS_H') CASE mP1=="DA_MST" IF !USED('DA_MST') MFILEMST=cLokasi+'DA_MST' BUKA(lExcl,MFILEMST,'DA_MST',MFILEMST+'1',MFILEMST+'2') ENDIF RETURN USED('DA_MST') CASE mP1=='DH_KRT' IF !USED('DH_KRT') MFILEKRT=cLOKASI+'DH_'+GS_NTOC(mP2)+STR(YEAR(mP2),4) BUKA(lExcl,MFILEKRT,'DH_KRT',MFILEKRT) ENDIF RETURN USED('DH_KRT') CASE mP1=='DA_SLD' IF !USED('DA_SLD') MFILESLD=cLOKASI+'DA_'+GS_NTOC(mP2)+STR(YEAR(mP2),4) BUKA(lExcl,MFILESLD,'DA_SLD',MFILESLD) ENDIF RETURN USED('DA_SLD') CASE mP1=="TB_MST" IF !USED('TB_MST') MFILEMST=cLokasi+'TM'+Alltrim(cJns)+'MST' BUKA(lExcl,MFILEMST,'TB_MST',MFILEMST+'1',MFILEMST+'2') ENDIF RETURN USED('TB_MST') CASE mP1=='TB_KRT' IF !USED('TB_KRT') MFILEKRT=cLOKASI+'TK'+Alltrim(cJns)+GS_NTOC(mP2)+STR(YEAR(mP2),4) BUKA(lExcl,MFILEKRT,'TB_KRT',MFILEKRT) ENDIF RETURN USED('TB_KRT') CASE mP1=='TB_SLD' IF !USED('TB_SLD') MFILESLD=cLOKASI+'TS'+Alltrim(cJns)+GS_NTOC(mP2)+STR(YEAR(mP2),4) BUKA(lExcl,MFILESLD,'TB_SLD',MFILESLD) ENDIF RETURN USED('TB_SLD') CASE mP1=="TP_MST" IF !USED('TP_MST') mFILEMST=cLokasi+'TP_MST'+ALLTRIM(cJns) BUKA(lExcl,mFILEMST,'TP_MST',mFILEMST+'1',mFILEMST+'2') ENDIF RETURN USED('TP_MST') CASE mP1=="TP_KRT" IF !USED('TP_KRT') mFILETRS=cLOkasi+'TP_KRT'+ALLTRIM(cJns) BUKA(lExcl,mFILETRS,'TP_KRT',mFILETRS) ENDIF RETURN USED('TP_KRT') CASE mP1=="TP_TRS_H" IF !USED('TP_TRS_H') mFILETRSH=cLokasi+'TP_TRSH'+ALLTRIM(cJns) BUKA(lExcl,mFILETRSH,'TP_TRS_H') ENDIF RETURN USED('TP_TRS_H') CASE mP1=="AK_BBB" IF !USED("AK_BBB") mFILEDBF=cLokasi+"BB_"+GS_NTOC(mP2)+STR(YEAR(mP2),4) BUKA(lExcl,mFILEDBF,"AK_BBB",mFILEDBF) ENDIF RETURN USED("AK_BBB") CASE mP1=="DN_MST" IF !USED('DN_MST') BUKA(lExcl,cLokasi+'DN_MST','DN_MST',cLokasi+'DN_MST1',cLokasi+'DN_MST2') ENDIF RETURN USED("DN_MST") CASE mP1=="AK_MST" IF !USED("AK_MST") mKEY0=cLokasi+'AKM_'+STR(YEAR(mP2),4) mKEY1=cLokasi+'AK1_'+STR(YEAR(mP2),4) mKEY2=cLokasi+'AK2_'+STR(YEAR(mP2),4) mKEY3=cLokasi+'AK3_'+STR(YEAR(mP2),4) BUKA(lExcl,mKEY0,'AK_MST',mKEY1,mKEY2,mKEY3) ENDIF RETURN USED("AK_MST") CASE mP1=="CJHARIAN" IF !USED("CJHARIAN") BUKA(lExcl,(cLokasi+"CJHARIAN"),"CJHARIAN",(cLokasi+"CJHARIAN")) ENDIF RETURN USED("CJHARIAN") CASE mP1=="GJHARIAN" IF !USED("GJHARIAN") BUKA(lExcl,(cLokasi+"GJHARIAN"),"GJHARIAN",(cLokasi+"GJHARIAN")) ENDIF RETURN USED("GJHARIAN") ENDCASE RETURN .f. ENDPROC

BUKAHTML - 30

PROCEDURE BUKAHTML(tcFileName,tcWorkDir,tcOperation) LOCAL lcFileName,lcWorkDir,lcOperation IF EMPTY(tcFileName) RETURN -1 ENDIF _SCREEN.WINDOWSTATE=2 lcFileName=ALLTRIM(tcFileName) lcWorkDir=IIF(TYPE("tcWorkDir")="C",ALLTRIM(tcWorkDir),"") lcOperation=IIF(TYPE("tcOperation")="C" AND NOT EMPTY(tcOperation),ALLTRIM(tcOperation),"Open") DECLARE INTEGER ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle,; STRING cOperation,; STRING cFileName,; STRING cParameters,; STRING cDirectory,; INTEGER nShowWindow RETURN ShellExecute(0,lcOperation,lcFilename,"",lcWorkDir,3) ENDPROC

BUKAXFILE - 29

PROCEDURE BUKAXFILE(tcFileName,tcWorkDir,tcOperation) LOCAL lcFileName,lcWorkDir,lcOperation IF EMPTY(tcFileName) RETURN -1 ENDIF _SCREEN.WINDOWSTATE=2 lcFileName=ALLTRIM(tcFileName) lcWorkDir=IIF(TYPE("tcWorkDir")="C",ALLTRIM(tcWorkDir),"") lcOperation=IIF(TYPE("tcOperation")="C" AND NOT EMPTY(tcOperation),ALLTRIM(tcOperation),"Open") DECLARE INTEGER ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle,; STRING cOperation,; STRING cFileName,; STRING cParameters,; STRING cDirectory,; INTEGER nShowWindow RETURN ShellExecute(0,lcOperation,lcFilename,"",lcWorkDir,3) ENDPROC

ADMIN REFRESH UDF FORM GASY_UDF DATA PROSES LAPORAN

BUKA - 11

BUKADBF - 25

BUKADBF - 63

BUKAHTML - 30

BUKAXFILE - 29