LPARAMETERS OPSI,OXMENU IF TYPE('OXMENU')<>'O' OXMENU=OMENU ENDIF OPSI=IIF(TYPE("OPSI")<>'N',0,OPSI) OPSI1=PADL(TRANSFORM(OPSI),4,'0') H0=PADL(TRANSFORM(0),4,'0') HA=PADL(TRANSFORM(MAX(OPSI-1,0)),4,'0') HE=PADL(TRANSFORM(MIN(OPSI+1,9999)),4,'0') IHTML='GASY/BMPS/GAE_'+PADL(TRANSFORM(OPSI),4,'0')+'.HTML' TEXT TO TXT TEXTMERGE NOSHOW <!DOCTYPE html> <HTML> <HEAD> <TITLE>GASY SOFTWARE <<OPSI1>></TITLE> <STYLE> a:link, a:visited { width:auto; color: black; padding: 5px 5px; text-align: left; text-decoration: none; display: inline-block; } a:hover, a:active { color: black; background-color: white; } BUTTON {font-size:18px;} </STYLE> </HEAD> <BODY style="background-color:powderblue;margin:0;"> <form name="menu" id="menu"> <TABLE STYLE="width:100%;background-color:white;"> <TR> <TR> <TD WIDTH="1%" NOWRAP><IMG SRC="<<FULLPATH('GASY\BMPS\GASYLOGO.PNG')>>" onClick="window.open('Gasy:GASYTOOLS()','_self');"></TD> <TD TITLE="KLIK DISINI UNTUK MENAMPILKAN FORM PROSES DAN LAPORAN" STYLE="FONT-SIZE:36PX;cursor:hand;" onClick="window.open('Gasy:DO FORM PROSES','_self');">MENU APLIKASI</TD> <TD WIDTH="1%" NOWRAP ALIGN="RIGHT"> <BUTTON onClick="window.open('Gasy:GASY_HTML(9999,THISFORM)','_self');">PANDUAN</BUTTON> </TD> </TR> </TABLE> <P STYLE="text-align:center;"> <INPUT TYPE="TEXT" onkeyup="window.open('Gasy:GASY_9000(THIS,1)','_self');" onclick="window.open('Gasy:GASY_9000(THIS,1)','_self');" name="carimenuproses" style="font-size:18px;padding-left:15px;"> <br><br><br> </P> <P> <TABLE WIDTH="100%" cellpadding="5" border="1"> <TR> <Td style="font-size:27px;" ID="proses1"><center>MENU PROSES DAN LAPORAN</center> </Td> </TABLE> </P> <DIV STYLE="margin:10px;"> <P> <TABLE ALIGN="CENTER" BORDER="0" CELLPADDING="5"> <TR> <TH><BUTTON onClick="window.open('Gasy:GASY_HTML(0,THISFORM)','_self');">HOME</BUTTON></TH> <TH><BUTTON onClick="window.open('Gasy:GASY_HTML(<<HA>>,THISFORM)','_self');">BACK</BUTTON></TH> <TH><BUTTON onClick="window.open('Gasy:GASY_HTML(<<HE>>,THISFORM)','_self');">NEXT</BUTTON></TH> <TH><BUTTON onClick="window.open('Gasy:MODIFY FILE <<IHTML>>','_self');">UBAH HTML</BUTTON></TH> <TH><BUTTON onClick="window.open('Gasy:THISFORM.REKORD.RIGHTCLICK','_self');">CODE</BUTTON></TH> <TH><BUTTON onClick="window.open('Gasy:ALAMAT()','_self');">DATA</BUTTON></TH> </TR> </TABLE> </P> <P STYLE="text-align:center;"> <TABLE CELLPADDING="5"> <TR> <TD> <A HREF="GASY:GASY_0000(THIS,900)">FILE CODE PROGRAM</A> </TD> <TD> <INPUT TYPE="TEXT" onkeyup="window.open('Gasy:GASY_0000(THIS,901)','_self');" onclick="window.open('Gasy:GASY_0000(THIS,901)','_self');" name="pro" style="font-size:18px;padding-left:15px;"></TD> <TD><BUTTON onclick="window.open('Gasy:GASY_0000(THIS,899)','_self');">SIMPAN</BUTTON></TD> </TR> </TABLE> </P> <P> <TABLE CELLPADDING="5" WIDTH="100%"> <TR> <TD STYLE="FONT-SIZE:18PX;" ID="MENU1" ></TD> </TR> </TABLE> </P> </DIV> </FORM> </BODY> </HTML> ENDTEXT IHTML='GASY\BMPS\GAE_'+PADL(TRANSFORM(OPSI),4,'0')+'.HTML' IF !FILE(IHTML) STRTOFILE(TXT,IHTML) ENDIF IHTML1='GASY\GASY_'+PADL(TRANSFORM(OPSI),4,'0')+'.HTML' IF !FILE(IHTML1) STRTOFILE(TXT,IHTML1) ENDIF OXMENU.REKORD.VALUE=OPSI OXMENU.OLEHTML.NAVIGATE(FULLPATH(IHTML))
