Code Program

	ADMIN - REFRESH
GASY Script

MENUHTML - 69

PROCEDURE menuhtml PARAMETERS INOMOR SET STATUS BAR ON PUBLIC oMenuHTML oMenuHTML=NEWOBJECT("menuhtml_") oMenuHTML.Show IF TYPE('INOMOR')=='N' oMenuHTML.rekord.value=inomor oMenuHTML.CMDREFRSH.Click endif RETURN ENDPROC DEFINE CLASS MENUHTML_ AS form DataSession = 1 Height = 450 Width = 750 DoCreate = .T. ICON='BMPS\INFO1.ICO' AutoCenter = .T. Caption = "Gasy Software" MinHeight = 450 MinWidth = 600 showtips=.t. alwaysonbottom=.f. MDIFORM=.f. folder='bmps\panduan\' ADD OBJECT container1 AS container WITH ; Top = 0, ; Left = 0, ; Width = 750, ; Height = 30, ; BackStyle = 1, ; SpecialEffect = 1, ; BackColor = RGB(255,255,255) ADD OBJECT olehtml AS olehtml_ WITH ; Top = 31, ; Left = 9, ; Height = 419, ; Width = 750 ADD OBJECT edit1X AS editbox WITH VISIBLE=.F. ADD OBJECT edit1 AS editbox WITH ; FontName = "Courier New", ; FontSize = 14, ; Height = 305, ; Left = 9, ; ScrollBars = 2, ; Top = 144, ; Visible = .F., ; ALLOWTABS=.T.,; MARGIN = 15,; Width = 750,; IKLP='',; IGAID='',; IKEY=0 ADD OBJECT rekord AS spinner WITH ; FontSize = 14, ; BorderStyle = 0, ; Height = 24, ; KeyboardLowValue = 0, ; Left = 531, ; SelectOnEntry = .T., ; SpecialEffect = 1, ; SpinnerLowValue = 0.00, ; Top = 3, ; Width = 78, ; Value = 0 ADD OBJECT cmdrefrsh AS commandbutton WITH ; Top = 2, ; Left = 611, ; Height = 27, ; Width = 69, ; Caption = "\<Refresh" ADD OBJECT label1 AS label WITH ; AutoSize = .T., ; FontSize = 14, ; BackStyle = 0, ; Caption = "Menu Aplikasi", ; Height = 25, ; Left = 10, ; Top = 5, ; Width = 118, ; ForeColor = RGB(0,0,160) ADD OBJECT cmdcetak AS commandbutton WITH ; Top = 2, ; Left = 680, ; Height = 27, ; Width = 69, ; Caption = "\<Cetak" *!* Procedure Activate *!* this.cmdREFRSH.Click *!* endproc PROCEDURE INIT THIS.Resize this.cmdREFRSH.Click ENDPROC PROCEDURE viewhtml PARAMETERS iText this.olehtml.viewHtml(iText) THIS.label1.Caption=This.olehtml.oBJECT.Document.TITLE ENDPROC PROCEDURE obyek PARAMETERS OB RETURN THIS.OLEHtml.obyek(OB) ENDPROC PROCEDURE isiid PARAMETERS cID,oText this.olehtml.isiid(cID,oText) ENDPROC PROCEDURE Resize this.container1.Width=this.Width this.oleHtml.Top=this.container1.top+this.container1.height+5 this.olehtml.Width=this.Width-THIS.OLEHTML.LEFT-9 THIS.CMDcetak.Left=THIS.Width-THIS.CMDcetak.WIDTH-2-9 THIS.CMDREFRSH.Left=THIS.cmdcetak.left-THIS.CMDREFRSH.WIDTH-2 THIS.REKord.Left=THIS.CMDREFRSH.Left-THIS.REKord.WIDTH IF this.edit1.Visible= .T. this.olehtml.Height=this.Height-this.olehtml.Top-this.edit1.Height-9 this.edit1.Top=this.Height-this.edit1.Height-9 this.edit1.Width=this.Width-THIS.EDIT1.LEFT-9 ELSE this.olehtml.Height=this.Height-this.olehtml.Top-9 ENDIF ENDPROC PROCEDURE container1.Click THIS.Parent.Edit1.Visible=!THIS.Parent.Edit1.Visible THIS.Parent.Resize ENDPROC PROCEDURE container1.RightClick mfile=GETFILE('html') IF !EMPTY(MFILE) DO FORM frmedittxt WITH MFILE *MODIFY FILE (mfile) ENDIF ENDPROC PROCEDURE olehtml.NavigateComplete2 *** ActiveX Control Event *** LPARAMETERS pdisp, url IF !EMPTY(this.Document.title) this.Parent.label1.Caption=this.Document.title ENDIF ENDPROC PROCEDURE edit1.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode=-4 this.Parent.viewhtml(this.Value) ENDIF ENDPROC PROCEDURE rekord.DOWNCLICK THIS.Parent.CMDREFRSH.Click ENDPROC PROCEDURE rekord.UPCLICK THIS.Parent.CMDREFRSH.Click ENDPROC PROCEDURE rekord.RightClick THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Value)),4)+'.PRG' GAE(THIS.TAG) ENDPROC PROCEDURE cmdrefrsh.RightClick THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.REKORD.Value)),4)+'.HTML' CHEKFOLDER(THIS.Tag) DO FORM frmedittxt WITH THIS.TAG *MODIFY FILE (THIS.Tag) ENDPROC PROCEDURE cmdrefrsh.Click THISFORM.EDIT1X.VALUE='' THIS.Parent.Edit1.Value='' THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.REKORD.Value)),4)+'.HTML' MTEKS='' IF FILE(THIS.Tag) MTEKS=ALLTRIM(FILETOSTR(This.Tag)) THIS.Parent.Edit1.Value=MTEKS IF EMPTY(MTEKS) THISFORM.OLEHTML.FXP(THISFORM.REKORD.VALUE,1001) MTEKS=THISFORM.EDIT1X.VALUE ENDIF ELSE THISFORM.OLEHTML.FXP(THISFORM.REKORD.VALUE,1001) MTEKS=THISFORM.EDIT1X.VALUE ENDIF THIS.Parent.edit1.IKLP='' THIS.Parent.edit1.IGAID='' THIS.Parent.edit1.IKEY='' THIS.Parent.OLEHTML.file_index_html(STREXTRACT(MTEKS,'~','~',2),400) THIS.Parent.OLEHTML.file_js_css() THIS.Parent.OLEHTML.buka_menu_html(STREXTRACT(MTEKS,'~','~',1)) ENDPROC PROCEDURE cmdR1 WITH THISFORM .EDIT1X.VALUE='' .Edit1.Value='' .Tag='BMPS\GASY\Gasy_0000.HTML' MTEKS='' .OLEHTML.FXP(0,1001) MTEKS=.EDIT1X.VALUE .edit1.IKLP='' .edit1.IGAID='' .edit1.IKEY='' .OLEHTML.file_index_html(STREXTRACT(MTEKS,'~','~',2),400,0) .OLEHTML.file_js_css() .OLEHTML.buka_menu_html(STREXTRACT(MTEKS,'~','~',1)) ENDWITH ENDPROC PROCEDURE edit1.LostFocus this.RightClick endproc PROCEDURE edit1.RightClick IF !EMPTY(THIS.IGAID) THIS.Comment='BMPS\DOKUMEN_HTML.DBF' IF !EMPTY(THIS.IKLP) THIS.Comment='BMPS\DOKUMEN_HTML_'+THIS.IKLP+'.DBF' ENDIF ISI1=THIS.VALUE IKLP1=THIS.IKLP IGAID1=THIS.IGAID IKEY1=THIS.IKEY TUTUP('DOKUMEN_HTML',JUSTSTEM(THIS.Comment)) IF BUKA(.F.,THIS.Comment,'DOKUMEN_HTML') UPDATE DOKUMEN_HTML SET HTM=ISI1 ; WHERE ALLTRIM(ID_KLP)==IKLP1 AND ID_GAID==IGAID1 AND ID_KEY==IKEY1 WAIT 'Sudah di UPDATE' WINDOW NOWAIT ENDIF TUTUP('DOKUMEN_HTML',JUSTSTEM(THIS.Comment)) thisform.Resize RETURN ENDIF THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.REKORD.Value)),4)+'.HTML' IF EMPTY(THIS.Value) DELE FILE (THIS.TAG) ELSE CHEKFOLDER(THIS.Tag) STRTOFILE(this.Value,THIS.Tag) WAIT 'Sudah disimpan' WINDOW NOWAIT ENDIF thisform.Resize ENDPROC PROCEDURE label1.Click THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.Rekord.Value)),4)+'.FXP' IF FILE(This.Tag) DO (This.Tag) WITH THIS.Parent.OLEHtml ENDIF ENDPROC PROCEDURE cmdcetak.Click This.Parent.OLEHtml.ExecWB(6, 1) ENDPROC PROCEDURE cmdcetak.RightClick This.Parent.OLEHtml.ExecWB(6, 2) ENDPROC ENDDEFINE DEFINE CLASS olehtml_ AS olecontrol OleClass = "Shell.Explorer.2" folder='bmps\panduan\' PROCEDURE Cetak LPARAMETERS nCetak This.ExecWB(6, nCetak) ENDPROC PROCEDURE BeforeNavigate2 *** ActiveX Control Event *** LPARAMETERS pdisp, url, flags, targetframename, postdata, headers, cancel LOCAL lcURL lcURL=ALLTRIM(url) IF UPPER(LEFT(lcURL,5))=="GASY:" CANCEL=.T. MPRO=SUBSTR(LCURL,6) MPRO=STRTRAN(MPRO,'%20',' ') &mpro RETURN ENDIF ENDPROC PROCEDURE Init this.navigate('About:Blank') this.oBJECT.Document.open() this.oBJECT.Document.write('Gasy') This.oBJECT.Document.close() ENDPROC PROCEDURE viewhtml PARAMETERS iText IF TYPE('iText')=='C' this.oBJECT.Document.open() this.oBJECT.Document.write(iText) This.oBJECT.Document.close() ENDIF ENDPROC PROCEDURE obyek LPARAMETERS OB RETURN THIS.OBJECT.Document.ALL(OB).VALUE ENDPROC PROCEDURE isiid LPARAMETERS cID,oText this.objECT.document.getElementById(cID).innerHTML = oText ENDPROC PROCEDURE TABEL LPARAMETERS idtabel,nRow,nCol,cTxt IF TYPE('cTxt')=='C' this.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML=cTxt ELSE RETURN this.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML ENDIF ENDPROC PROCEDURE TABELF LPARAMETERS idTabel,nRow,nCol,cTxt IF TYPE('cTxt')=='C' This.document.getElementById('xbody').contentWindow.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML=cTxt ELSE RETURN This.document.getElementById('xbody').contentWindow.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML ENDIF ENDPROC PROCEDURE file_js_css **___dtree.js text to isi_js noshow // Node object function Node(id, pid, name, url, title, target, icon, iconOpen, open) { this.id = id; this.pid = pid; this.name = name; this.url = url; this.title = title; this.target = target; this.icon = icon; this.iconOpen = iconOpen; this._io = open || false; this._is = false; this._ls = false; this._hc = false; this._ai = 0; this._p; }; // Tree object function dTree(objName) { this.config = { target : null, folderLinks : true, useSelection : true, useCookies : true, useLines : true, useIcons : true, useStatusText : false, closeSameLevel : false, inOrder : false } this.icon = { root : 'img/database.bmp', folder : 'img/folder.gif', folderOpen : 'img/folderopen.gif', node : 'img/page.gif', empty : 'img/empty.gif', line : 'img/line.gif', join : 'img/join.gif', joinBottom : 'img/joinbottom.gif', plus : 'img/plus.gif', plusBottom : 'img/plusbottom.gif', minus : 'img/minus.gif', minusBottom : 'img/minusbottom.gif', nlPlus : 'img/nolines_plus.gif', nlMinus : 'img/nolines_minus.gif' }; this.obj = objName; this.aNodes = []; this.aIndent = []; this.root = new Node(-1); this.selectedNode = null; this.selectedFound = false; this.completed = false; }; // Adds a new node to the node array dTree.prototype.add = function(id, pid, name, url, title, target, icon, iconOpen, open) { this.aNodes[this.aNodes.length] = new Node(id, pid, name, url, title, target, icon, iconOpen, open); }; // Open/close all nodes dTree.prototype.openAll = function() { this.oAll(true); }; dTree.prototype.closeAll = function() { this.oAll(false); }; // Outputs the tree to the page dTree.prototype.toString = function() { var str = '<div class="dtree">\n'; if (document.getElementById) { if (this.config.useCookies) this.selectedNode = this.getSelected(); str += this.addNode(this.root); } else str += 'Browser not supported.'; str += '</div>'; if (!this.selectedFound) this.selectedNode = null; this.completed = true; return str; }; // Creates the tree structure dTree.prototype.addNode = function(pNode) { var str = ''; var n=0; if (this.config.inOrder) n = pNode._ai; for (n; n<this.aNodes.length; n++) { if (this.aNodes[n].pid == pNode.id) { var cn = this.aNodes[n]; cn._p = pNode; cn._ai = n; this.setCS(cn); if (!cn.target && this.config.target) cn.target = this.config.target; if (cn._hc && !cn._io && this.config.useCookies) cn._io = this.isOpen(cn.id); if (!this.config.folderLinks && cn._hc) cn.url = null; if (this.config.useSelection && cn.id == this.selectedNode && !this.selectedFound) { cn._is = true; this.selectedNode = n; this.selectedFound = true; } str += this.node(cn, n); if (cn._ls) break; } } return str; }; // Creates the node icon, url and text dTree.prototype.node = function(node, nodeId) { var str = '<div class="dTreeNode">' + this.indent(node, nodeId); if (this.config.useIcons) { if (!node.icon) node.icon = (this.root.id == node.pid) ? this.icon.root : ((node._hc) ? this.icon.folder : this.icon.node); if (!node.iconOpen) node.iconOpen = (node._hc) ? this.icon.folderOpen : this.icon.node; if (this.root.id == node.pid) { node.icon = this.icon.root; node.iconOpen = this.icon.root; } str += '<img id="i' + this.obj + nodeId + '" src="' + ((node._io) ? node.iconOpen : node.icon) + '" alt="" />'; } if (node.url) { str += '<a id="s' + this.obj + nodeId + '" class="' + ((this.config.useSelection) ? ((node._is ? 'nodeSel' : 'node')) : 'node') + '" target="xbody" href="' + node.url + '"'; if (node.title) str += ' title="' + node.title + '"'; if (node.target) str += ' target="' + node.target + '"'; if (this.config.useStatusText) str += ' onmouseover="window.status=\'' + node.name + '\';return true;" onmouseout="window.status=\'\';return true;" '; if (this.config.useSelection && ((node._hc && this.config.folderLinks) || !node._hc)) str += ' onclick="javascript: ' + this.obj + '.s(' + nodeId + ');"'; str += '>'; } else if ((!this.config.folderLinks || !node.url) && node._hc && node.pid != this.root.id) str += '<a href="javascript: ' + this.obj + '.o(' + nodeId + ');" class="node">'; str += node.name; if (node.url || ((!this.config.folderLinks || !node.url) && node._hc)) str += '</a>'; str += '</div>'; if (node._hc) { str += '<div id="d' + this.obj + nodeId + '" class="clip" style="display:' + ((this.root.id == node.pid || node._io) ? 'block' : 'none') + ';">'; str += this.addNode(node); str += '</div>'; } this.aIndent.pop(); return str; }; // Adds the empty and line icons dTree.prototype.indent = function(node, nodeId) { var str = ''; if (this.root.id != node.pid) { for (var n=0; n<this.aIndent.length; n++) str += '<img src="' + ( (this.aIndent[n] == 1 && this.config.useLines) ? this.icon.line : this.icon.empty ) + '" alt="" />'; (node._ls) ? this.aIndent.push(0) : this.aIndent.push(1); if (node._hc) { str += '<a href="javascript: ' + this.obj + '.o(' + nodeId + ');"><img id="j' + this.obj + nodeId + '" src="'; if (!this.config.useLines) str += (node._io) ? this.icon.nlMinus : this.icon.nlPlus; else str += ( (node._io) ? ((node._ls && this.config.useLines) ? this.icon.minusBottom : this.icon.minus) : ((node._ls && this.config.useLines) ? this.icon.plusBottom : this.icon.plus ) ); str += '" alt="" /></a>'; } else str += '<img src="' + ( (this.config.useLines) ? ((node._ls) ? this.icon.joinBottom : this.icon.join ) : this.icon.empty) + '" alt="" />'; } return str; }; // Checks if a node has any children and if it is the last sibling dTree.prototype.setCS = function(node) { var lastId; for (var n=0; n<this.aNodes.length; n++) { if (this.aNodes[n].pid == node.id) node._hc = true; if (this.aNodes[n].pid == node.pid) lastId = this.aNodes[n].id; } if (lastId==node.id) node._ls = true; }; // Returns the selected node dTree.prototype.getSelected = function() { var sn = this.getCookie('cs' + this.obj); return (sn) ? sn : null; }; // Highlights the selected node dTree.prototype.s = function(id) { if (!this.config.useSelection) return; var cn = this.aNodes[id]; if (cn._hc && !this.config.folderLinks) return; if (this.selectedNode != id) { if (this.selectedNode || this.selectedNode==0) { eOld = document.getElementById("s" + this.obj + this.selectedNode); eOld.className = "node"; } eNew = document.getElementById("s" + this.obj + id); eNew.className = "nodeSel"; this.selectedNode = id; if (this.config.useCookies) this.setCookie('cs' + this.obj, cn.id); } }; // Toggle Open or close dTree.prototype.o = function(id) { var cn = this.aNodes[id]; this.nodeStatus(!cn._io, id, cn._ls); cn._io = !cn._io; if (this.config.closeSameLevel) this.closeLevel(cn); if (this.config.useCookies) this.updateCookie(); }; // Open or close all nodes dTree.prototype.oAll = function(status) { for (var n=0; n<this.aNodes.length; n++) { if (this.aNodes[n]._hc && this.aNodes[n].pid != this.root.id) { this.nodeStatus(status, n, this.aNodes[n]._ls) this.aNodes[n]._io = status; } } if (this.config.useCookies) this.updateCookie(); }; // Opens the tree to a specific node dTree.prototype.openTo = function(nId, bSelect, bFirst) { if (!bFirst) { for (var n=0; n<this.aNodes.length; n++) { if (this.aNodes[n].id == nId) { nId=n; break; } } } var cn=this.aNodes[nId]; if (cn.pid==this.root.id || !cn._p) return; cn._io = true; cn._is = bSelect; if (this.completed && cn._hc) this.nodeStatus(true, cn._ai, cn._ls); if (this.completed && bSelect) this.s(cn._ai); else if (bSelect) this._sn=cn._ai; this.openTo(cn._p._ai, false, true); }; // Closes all nodes on the same level as certain node dTree.prototype.closeLevel = function(node) { for (var n=0; n<this.aNodes.length; n++) { if (this.aNodes[n].pid == node.pid && this.aNodes[n].id != node.id && this.aNodes[n]._hc) { this.nodeStatus(false, n, this.aNodes[n]._ls); this.aNodes[n]._io = false; this.closeAllChildren(this.aNodes[n]); } } } // Closes all children of a node dTree.prototype.closeAllChildren = function(node) { for (var n=0; n<this.aNodes.length; n++) { if (this.aNodes[n].pid == node.id && this.aNodes[n]._hc) { if (this.aNodes[n]._io) this.nodeStatus(false, n, this.aNodes[n]._ls); this.aNodes[n]._io = false; this.closeAllChildren(this.aNodes[n]); } } } // Change the status of a node(open or closed) dTree.prototype.nodeStatus = function(status, id, bottom) { eDiv = document.getElementById('d' + this.obj + id); eJoin = document.getElementById('j' + this.obj + id); if (this.config.useIcons) { eIcon = document.getElementById('i' + this.obj + id); eIcon.src = (status) ? this.aNodes[id].iconOpen : this.aNodes[id].icon; } eJoin.src = (this.config.useLines)? ((status)?((bottom)?this.icon.minusBottom:this.icon.minus):((bottom)?this.icon.plusBottom:this.icon.plus)): ((status)?this.icon.nlMinus:this.icon.nlPlus); eDiv.style.display = (status) ? 'block': 'none'; }; // [Cookie] Clears a cookie dTree.prototype.clearCookie = function() { var now = new Date(); var yesterday = new Date(now.getTime() - 1000 * 60 * 60 * 24); this.setCookie('co'+this.obj, 'cookieValue', yesterday); this.setCookie('cs'+this.obj, 'cookieValue', yesterday); }; // [Cookie] Sets value in a cookie dTree.prototype.setCookie = function(cookieName, cookieValue, expires, path, domain, secure) { document.cookie = escape(cookieName) + '=' + escape(cookieValue) + (expires ? '; expires=' + expires.toGMTString() : '') + (path ? '; path=' + path : '') + (domain ? '; domain=' + domain : '') + (secure ? '; secure' : ''); }; // [Cookie] Gets a value from a cookie dTree.prototype.getCookie = function(cookieName) { var cookieValue = ''; var posName = document.cookie.indexOf(escape(cookieName) + '='); if (posName != -1) { var posValue = posName + (escape(cookieName) + '=').length; var endPos = document.cookie.indexOf(';', posValue); if (endPos != -1) cookieValue = unescape(document.cookie.substring(posValue, endPos)); else cookieValue = unescape(document.cookie.substring(posValue)); } return (cookieValue); }; // [Cookie] Returns ids of open nodes as a string dTree.prototype.updateCookie = function() { var str = ''; for (var n=0; n<this.aNodes.length; n++) { if (this.aNodes[n]._io && this.aNodes[n].pid != this.root.id) { if (str) str += '.'; str += this.aNodes[n].id; } } this.setCookie('co' + this.obj, str); }; // [Cookie] Checks if a node id is in a cookie dTree.prototype.isOpen = function(id) { var aOpen = this.getCookie('co' + this.obj).split('.'); for (var n=0; n<aOpen.length; n++) if (aOpen[n] == id) return true; return false; }; // If Push and pop is not implemented by the browser if (!Array.prototype.push) { Array.prototype.push = function array_push() { for(var i=0;i<arguments.length;i++) this[this.length]=arguments[i]; return this.length; } }; if (!Array.prototype.pop) { Array.prototype.pop = function array_pop() { lastElement = this[this.length-1]; this.length = Math.max(this.length-1,0); return lastElement; } }; endtext strtofile(isi_js,this.folder+'___dtree.js') text to isi_css noshow .dtree { font-family: Times New Roman, Verdana, Geneva, Arial, Helvetica, sans-serif; font-size: 20px; color: #666; white-space: nowrap; } .dtree img { border: 0px; vertical-align: middle; } .dtree a { color: #333; text-decoration: none; } .dtree a.node, .dtree a.nodeSel { white-space: nowrap; padding: 2px 2px 2px 2px; } .dtree a.node:hover, .dtree a.nodeSel:hover { color: #333; text-decoration: underline; } .dtree a.nodeSel { background-color: #c0d2ec; } .dtree .clip { overflow: hidden; } endtext strtofile(isi_css,this.folder+'___dtree.css') ENDPROC PROCEDURE file_index_html LPARAMETERS lx_caption_1,ln_Cols_1,nREKORD NREKORD=IIF(TYPE('NREKORD')<>'N',THISFORM.REKORD.VALUE,NREKORD) lx_caption='MENU APLIKASI' ln_Cols='10' IF TYPE('lx_caption_1')='C' AND !EMPTY(lX_CAPTION_1) lx_caption=lx_caption_1 ENDIF IF TYPE('ln_Cols_1')='N' AND ln_Cols_1>0 Ln_Cols=TRANSFORM(ln_Cols_1) ENDIF text to isi_index TEXTMERGE NOSHOW <!DOCTYPE html> <HTML> <HEAD> <TITLE><<lx_caption>></TITLE> <meta name="viewport" content="width=device-width, initial-scale=10"> </HEAD> <frameset cols="<<ln_Cols>>,*"> <frame name="left" src="tree_menu.html" width="400"> <frame name="xbody" src="gasy.html"> </frameset> <noframes></noframes> </html> endtext strtofile(isi_index,this.folder+'index.html') if !empty(this.parent.edit1.value) isi_gasy=this.parent.edit1.value else THIS.PARENT.EDIT1X.VALUE='' THIS.FXP(NREKORD,1001) isi_gasy=THIS.PARENT.EDIT1X.VALUE endif strtofile(isi_gasy,this.folder+'gasy.html') ENDPROC PROCEDURE dbf_menu LPARAMETERS LSHARE,LINDEK THIS.Tag=this.folder+'dbf\GW_HTML_'+PADL(TRANSFORM(THISFORM.REKORD.VALUE),4,'0')+'.DBF' TUTUP('GW_HTML') IF !FILE(THIS.Tag) CHEKFOLDER(THIS.TAG) CREATE TABLE (THIS.Tag) ; (; GAID C(10),; ID_PARENT c(10),; ID_FXP N(3),; KLP C(3),; KETERANGAN C(250),; noper c(10),; naper c(30),; jenis c(1),; sifat c(1),; lepel n(1),; umum c(10),; kode c(30),; nopi c(2),; id_key i autoinc,; key_id i,; htm m; ) index on klp+gaid tag klpgaid USE ENDIF IF LINDEK=.T. IF buka(lshare,this.tag,'gw_html') SELECT GW_HTML set order to klpgaid IF lshare=.t. index on klp+gaid tag klpgaid MODIFY STRUCTURE ENDIF BROWSE FONT "Times New Roman",14 NODELETE TITLE "DATA: "+DBF()+" ( "+ALIAS()+" )" ENDIF TUTUP('GW_HTML') ENDIF IF buka(LSHARE,this.tag,'gw_html') sele gw_html set order to klpgaid RETURN .t. ENDIF RETURN .f. ENDPROC PROCEDURE buka_menu_HTML LPARAMETERS IKLP IKLP=IIF(TYPE('IKLP')#'C','000',IKLP) ************************************* SET TEXTMERGE ON text to txt1 noshow <!DOCTYPE html> <html> <head> <meta name="viewport" content="width=device-width, initial-scale=10"> <title>Gasy</title> <head> <link rel="StyleSheet" href="___dtree.css" type="text/css" /> <script type="text/javascript" src="___dtree.js"></script> </head> <body background="paper.gif"> <div class="dtree"> <div style="padding:2px;text-align:left;border-style:none;"> <a href="javascript: d.openAll();">Buka</a> | <a href="javascript: d.closeAll();">Tutup</a> | <A HREF="GASY:THIS.DBF_FORM()">Form Input</a> </div> <hr> <script type="text/javascript"> </script> </div> <p \><hr size="1" \> <font class="dtree">©<A HREF="GASY:THISFORM.REKORD.RIGHTCLICK">Gasy, 1991-2023</A>. All Rights Reserved</font></p> <p> <h1>Menu</h1> <ol> <li><font class="dtree"><A HREF="GASY:THIS.DBF_MENU(.f.,.T.)">Browse</a></font> <li><font class="dtree"><A HREF="GASY:THIS.DBF_MENU(.t.,.T.)">Modifikasi Struktur</a></font> <li><font class="dtree"><A HREF="GASY:THIS.DBF_FORM()">Form Input</a></font> </ol> </p> </body> </html> endtext ************** strtofile(txt1+txt+txt3,THIS.FOLDER+'tree_menu.html') THIS.Navigate(FULLPATH(THIS.FOLDER+'index.html')) ENDPROC PROCEDURE FXP LPARAMETERS nGAID,OPSI THIS.TAG='bmps\gasy\gasy_'+PADL(TRANSFORM(nGaid),4,'0')+'.fxp' IF file(this.tag) DO (this.tag) WITH this,opsi ENDIF ENDPROC PROCEDURE ISI_XBODY LPARAMETERS lxKlp,lxGaid,lnGaid,lxKeterangan,lxParent THIS.COMMENT='BMPS\DOKUMEN_HTML.DBF' THIS.TAG='BMPS\DOKUMEN_XHTM.HTML' IF TYPE('lxKeterangan')='C' AND !EMPTY(lxKeterangan) this.tag='bmps\'+LOWER(lxKeterangan)+'.html' ENDIF IF TYPE('lxKlp')='C' AND !EMPTY(lxKlp) THIS.COMMENT='BMPS\DOKUMEN_HTML_'+LXKLP+'.DBF' ENDIF IF !FILE(THIS.COMMENT) CREATE TABLE (THIS.COMMENT) ; (; ID_KLP C(3),ID_GAID C(10),ID_KEY I,HTM M; ) USE ENDIF IF TYPE('LNGAID')<>'N' LNGAID=0 ENDIF IF TYPE('lxGAID')='C' AND !EMPTY(lxGaid) SELECT * from (this.comment) ; WHERE ALLTRIM(ID_KLP)==ALLTRIM(LXKLP) ; AND ALLTRIM(ID_GAID)==ALLTRIM(LXGAID) ; AND ID_KEY=LNGAID ; INTO CURSOR HASIL_X1 SELECT HASIL_X1 GO TOP ISIHTML=HTM THIS.PARENT.EDIT1.IKLP=LXKLP THIS.PARENT.EDIT1.IGAID=LXGAID THIS.PARENT.EDIT1.IKEY=LNGAID THIS.PARENT.EDIT1.VALUE=ISIHTML IF EOF() INSERT INTO (THIS.COMMENT) (ID_KLP,ID_GAID,ID_KEY) VALUES (LXKLP,LXGAID,LNGAID) ENDIF IF !EMPTY(ISIHTML) STRTOFILE(isihtml,this.tag) THIS.navigate(fullpath(this.tag),,'xbody') RETURN ENDIF if type("this.document.GetElementById('xbody').contentWindow.document.forms('menu').gaid_1.value")='C' with this.document.GetElementById('xbody').contentWindow.document.forms('menu') .gaid_1.value=lxgaid This.FXP(0,-1) endwith ENDIF ENDIF ENDPROC PROCEDURE DBF_FORM THISTAG='BMPS\DOKUMEN_IHTM.HTML' THIS.FXP(0,1001) ISIHTML=THISFORM.EDIT1X.VALUE IF !EMPTY(ISIHTML) STRTOFILE(isihtml,thistag) THIS.navigate(fullpath(thistag),,'xbody') RETURN ENDIF ENDPROC ENDDEFINE

MENUHTML1 - 70

PROCEDURE menuhtml PARAMETERS INOMOR SET STATUS BAR ON PUBLIC oMenuHTML oMenuHTML=NEWOBJECT("menuhtml_") oMenuHTML.Show IF TYPE('INOMOR')=='N' oMenuHTML.rekord.value=inomor oMenuHTML.CMDREFRSH.Click endif RETURN ENDPROC DEFINE CLASS MENUHTML_ AS form DataSession = 1 Height = 450 Width = 750 DoCreate = .T. ICON='BMPS\GASY.ICO' AutoCenter = .T. Caption = "Gasy Software" MinHeight = 450 MinWidth = 600 showtips=.t. alwaysonbottom=.f. MDIFORM=.f. folder='bmps\panduan\' ADD OBJECT container1 AS container WITH ; Top = 0, ; Left = 0, ; Width = 750, ; Height = 30, ; BackStyle = 1, ; SpecialEffect = 1, ; BackColor = RGB(255,255,255) ADD OBJECT olehtml AS olehtml_ WITH ; Top = 31, ; Left = 9, ; Height = 419, ; Width = 750 ADD OBJECT edit1X AS editbox WITH VISIBLE=.F. ADD OBJECT edit1 AS editbox WITH ; FontName = "Courier New", ; FontSize = 14, ; Height = 305, ; Left = 9, ; ScrollBars = 2, ; Top = 144, ; Visible = .F., ; ALLOWTABS=.T.,; Width = 750,; IKLP='',; IGAID='',; IKEY=0 ADD OBJECT rekord AS spinner WITH ; FontSize = 14, ; BorderStyle = 0, ; Height = 24, ; KeyboardLowValue = 0, ; Left = 531, ; SelectOnEntry = .T., ; SpecialEffect = 1, ; SpinnerLowValue = 0.00, ; Top = 3, ; Width = 78, ; Value = 0 ADD OBJECT cmdrefrsh AS commandbutton WITH ; Top = 2, ; Left = 611, ; Height = 27, ; Width = 69, ; Caption = "\<Refresh" ADD OBJECT label1 AS label WITH ; AutoSize = .T., ; FontSize = 14, ; BackStyle = 0, ; Caption = "Menu Aplikasi", ; Height = 25, ; Left = 10, ; Top = 5, ; Width = 118, ; ForeColor = RGB(0,0,160) ADD OBJECT cmdcetak AS commandbutton WITH ; Top = 2, ; Left = 680, ; Height = 27, ; Width = 69, ; Caption = "\<Cetak" Procedure Activate this.cmdREFRSH.Click endproc PROCEDURE INIT THIS.Resize this.cmdREFRSH.Click ENDPROC PROCEDURE viewhtml PARAMETERS iText this.olehtml.viewHtml(iText) THIS.label1.Caption=This.olehtml.oBJECT.Document.TITLE ENDPROC PROCEDURE obyek PARAMETERS OB RETURN THIS.OLEHtml.obyek(OB) ENDPROC PROCEDURE isiid PARAMETERS cID,oText this.olehtml.isiid(cID,oText) ENDPROC PROCEDURE Resize this.container1.Width=this.Width this.oleHtml.Top=this.container1.top+this.container1.height+5 this.olehtml.Width=this.Width-THIS.OLEHTML.LEFT-9 THIS.CMDcetak.Left=THIS.Width-THIS.CMDcetak.WIDTH-2-9 THIS.CMDREFRSH.Left=THIS.cmdcetak.left-THIS.CMDREFRSH.WIDTH-2 THIS.REKord.Left=THIS.CMDREFRSH.Left-THIS.REKord.WIDTH IF this.edit1.Visible= .T. this.olehtml.Height=this.Height-this.olehtml.Top-this.edit1.Height-9 this.edit1.Top=this.Height-this.edit1.Height-9 this.edit1.Width=this.Width-THIS.EDIT1.LEFT-9 ELSE this.olehtml.Height=this.Height-this.olehtml.Top-9 ENDIF ENDPROC PROCEDURE container1.Click THIS.Parent.Edit1.Visible=!THIS.Parent.Edit1.Visible THIS.Parent.Resize ENDPROC PROCEDURE container1.RightClick mfile=GETFILE('html') IF !EMPTY(MFILE) MODIFY FILE (mfile) ENDIF ENDPROC PROCEDURE olehtml.NavigateComplete2 *** ActiveX Control Event *** LPARAMETERS pdisp, url IF !EMPTY(this.Document.title) this.Parent.label1.Caption=this.Document.title ENDIF ENDPROC PROCEDURE edit1.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode=-4 this.Parent.viewhtml(this.Value) ENDIF ENDPROC PROCEDURE rekord.DOWNCLICK THIS.Parent.CMDREFRSH.Click ENDPROC PROCEDURE rekord.UPCLICK THIS.Parent.CMDREFRSH.Click ENDPROC PROCEDURE rekord.RightClick THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Value)),4)+'.PRG' CHEKFOLDER(THIS.Tag) MODIFY command (THIS.Tag) IF FILE(THIS.Tag) IF MESSAGEBOX('Compile?',33,'Gasy')=1 COMPILE (THIS.Tag) ENDIF ENDIF ENDPROC PROCEDURE cmdrefrsh.RightClick THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.REKORD.Value)),4)+'.HTML' CHEKFOLDER(THIS.Tag) MODIFY FILE (THIS.Tag) ENDPROC PROCEDURE cmdrefrsh.Click THISFORM.EDIT1X.VALUE='' THIS.Parent.Edit1.Value='' THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.REKORD.Value)),4)+'.HTML' MTEKS='' IF FILE(THIS.Tag) MTEKS=ALLTRIM(FILETOSTR(This.Tag)) THIS.Parent.Edit1.Value=MTEKS IF EMPTY(MTEKS) THISFORM.OLEHTML.FXP(THISFORM.REKORD.VALUE,1001) MTEKS=THISFORM.EDIT1X.VALUE ENDIF ELSE THISFORM.OLEHTML.FXP(THISFORM.REKORD.VALUE,1001) MTEKS=THISFORM.EDIT1X.VALUE ENDIF THIS.Parent.edit1.IKLP='' THIS.Parent.edit1.IGAID='' THIS.Parent.edit1.IKEY='' THIS.Parent.OLEHTML.file_index_html(STREXTRACT(MTEKS,'~','~',2),400) THIS.Parent.OLEHTML.file_js_css() THIS.Parent.OLEHTML.buka_menu_html(STREXTRACT(MTEKS,'~','~',1)) ENDPROC PROCEDURE edit1.LostFocus this.RightClick endproc PROCEDURE edit1.RightClick IF !EMPTY(THIS.IGAID) THIS.Comment='BMPS\DOKUMEN_HTML.DBF' IF !EMPTY(THIS.IKLP) THIS.Comment='BMPS\DOKUMEN_HTML_'+THIS.IKLP+'.DBF' ENDIF ISI1=THIS.VALUE IKLP1=THIS.IKLP IGAID1=THIS.IGAID IKEY1=THIS.IKEY TUTUP('DOKUMEN_HTML',JUSTSTEM(THIS.Comment)) IF BUKA(.F.,THIS.Comment,'DOKUMEN_HTML') UPDATE DOKUMEN_HTML SET HTM=ISI1 ; WHERE ALLTRIM(ID_KLP)==IKLP1 AND ID_GAID==IGAID1 AND ID_KEY==IKEY1 WAIT 'Sudah di UPDATE' WINDOW NOWAIT ENDIF TUTUP('DOKUMEN_HTML',JUSTSTEM(THIS.Comment)) thisform.Resize RETURN ENDIF THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.REKORD.Value)),4)+'.HTML' IF EMPTY(THIS.Value) DELE FILE (THIS.TAG) ELSE CHEKFOLDER(THIS.Tag) STRTOFILE(this.Value,THIS.Tag) WAIT 'Sudah disimpan' WINDOW NOWAIT ENDIF thisform.Resize ENDPROC PROCEDURE label1.Click THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.Rekord.Value)),4)+'.FXP' IF FILE(This.Tag) DO (This.Tag) WITH THIS.Parent.OLEHtml ENDIF ENDPROC PROCEDURE cmdcetak.Click This.Parent.OLEHtml.ExecWB(6, 1) ENDPROC PROCEDURE cmdcetak.RightClick This.Parent.OLEHtml.ExecWB(6, 2) ENDPROC ENDDEFINE DEFINE CLASS olehtml_ AS olecontrol OleClass = "Shell.Explorer.2" folder='bmps\panduan\' PROCEDURE Cetak LPARAMETERS nCetak This.ExecWB(6, nCetak) ENDPROC PROCEDURE BeforeNavigate2 *** ActiveX Control Event *** LPARAMETERS pdisp, url, flags, targetframename, postdata, headers, cancel LOCAL lcURL lcURL=ALLTRIM(url) IF UPPER(LEFT(lcURL,5))=="GASY:" CANCEL=.T. MPRO=SUBSTR(LCURL,6) MPRO=STRTRAN(MPRO,'%20',' ') &mpro RETURN ENDIF ENDPROC PROCEDURE Init this.navigate('About:Blank') this.oBJECT.Document.open() this.oBJECT.Document.write('Gasy') This.oBJECT.Document.close() ENDPROC PROCEDURE viewhtml PARAMETERS iText IF TYPE('iText')=='C' this.oBJECT.Document.open() this.oBJECT.Document.write(iText) This.oBJECT.Document.close() ENDIF ENDPROC PROCEDURE obyek LPARAMETERS OB RETURN THIS.OBJECT.Document.ALL(OB).VALUE ENDPROC PROCEDURE isiid LPARAMETERS cID,oText this.objECT.document.getElementById(cID).innerHTML = oText ENDPROC PROCEDURE TABEL LPARAMETERS idtabel,nRow,nCol,cTxt IF TYPE('cTxt')=='C' this.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML=cTxt ELSE RETURN this.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML ENDIF ENDPROC PROCEDURE TABELF LPARAMETERS idTabel,nRow,nCol,cTxt IF TYPE('cTxt')=='C' This.document.getElementById('xbody').contentWindow.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML=cTxt ELSE RETURN This.document.getElementById('xbody').contentWindow.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML ENDIF ENDPROC PROCEDURE file_js_css **___dtree.js text to isi_js noshow // Node object function Node(id, pid, name, url, title, target, icon, iconOpen, open) { this.id = id; this.pid = pid; this.name = name; this.url = url; this.title = title; this.target = target; this.icon = icon; this.iconOpen = iconOpen; this._io = open || false; this._is = false; this._ls = false; this._hc = false; this._ai = 0; this._p; }; // Tree object function dTree(objName) { this.config = { target : null, folderLinks : true, useSelection : true, useCookies : true, useLines : true, useIcons : true, useStatusText : false, closeSameLevel : false, inOrder : false } this.icon = { root : 'img/database.bmp', folder : 'img/folder.gif', folderOpen : 'img/folderopen.gif', node : 'img/page.gif', empty : 'img/empty.gif', line : 'img/line.gif', join : 'img/join.gif', joinBottom : 'img/joinbottom.gif', plus : 'img/plus.gif', plusBottom : 'img/plusbottom.gif', minus : 'img/minus.gif', minusBottom : 'img/minusbottom.gif', nlPlus : 'img/nolines_plus.gif', nlMinus : 'img/nolines_minus.gif' }; this.obj = objName; this.aNodes = []; this.aIndent = []; this.root = new Node(-1); this.selectedNode = null; this.selectedFound = false; this.completed = false; }; // Adds a new node to the node array dTree.prototype.add = function(id, pid, name, url, title, target, icon, iconOpen, open) { this.aNodes[this.aNodes.length] = new Node(id, pid, name, url, title, target, icon, iconOpen, open); }; // Open/close all nodes dTree.prototype.openAll = function() { this.oAll(true); }; dTree.prototype.closeAll = function() { this.oAll(false); }; // Outputs the tree to the page dTree.prototype.toString = function() { var str = '<div class="dtree">\n'; if (document.getElementById) { if (this.config.useCookies) this.selectedNode = this.getSelected(); str += this.addNode(this.root); } else str += 'Browser not supported.'; str += '</div>'; if (!this.selectedFound) this.selectedNode = null; this.completed = true; return str; }; // Creates the tree structure dTree.prototype.addNode = function(pNode) { var str = ''; var n=0; if (this.config.inOrder) n = pNode._ai; for (n; n<this.aNodes.length; n++) { if (this.aNodes[n].pid == pNode.id) { var cn = this.aNodes[n]; cn._p = pNode; cn._ai = n; this.setCS(cn); if (!cn.target && this.config.target) cn.target = this.config.target; if (cn._hc && !cn._io && this.config.useCookies) cn._io = this.isOpen(cn.id); if (!this.config.folderLinks && cn._hc) cn.url = null; if (this.config.useSelection && cn.id == this.selectedNode && !this.selectedFound) { cn._is = true; this.selectedNode = n; this.selectedFound = true; } str += this.node(cn, n); if (cn._ls) break; } } return str; }; // Creates the node icon, url and text dTree.prototype.node = function(node, nodeId) { var str = '<div class="dTreeNode">' + this.indent(node, nodeId); if (this.config.useIcons) { if (!node.icon) node.icon = (this.root.id == node.pid) ? this.icon.root : ((node._hc) ? this.icon.folder : this.icon.node); if (!node.iconOpen) node.iconOpen = (node._hc) ? this.icon.folderOpen : this.icon.node; if (this.root.id == node.pid) { node.icon = this.icon.root; node.iconOpen = this.icon.root; } str += '<img id="i' + this.obj + nodeId + '" src="' + ((node._io) ? node.iconOpen : node.icon) + '" alt="" />'; } if (node.url) { str += '<a id="s' + this.obj + nodeId + '" class="' + ((this.config.useSelection) ? ((node._is ? 'nodeSel' : 'node')) : 'node') + '" target="xbody" href="' + node.url + '"'; if (node.title) str += ' title="' + node.title + '"'; if (node.target) str += ' target="' + node.target + '"'; if (this.config.useStatusText) str += ' onmouseover="window.status=\'' + node.name + '\';return true;" onmouseout="window.status=\'\';return true;" '; if (this.config.useSelection && ((node._hc && this.config.folderLinks) || !node._hc)) str += ' onclick="javascript: ' + this.obj + '.s(' + nodeId + ');"'; str += '>'; } else if ((!this.config.folderLinks || !node.url) && node._hc && node.pid != this.root.id) str += '<a href="javascript: ' + this.obj + '.o(' + nodeId + ');" class="node">'; str += node.name; if (node.url || ((!this.config.folderLinks || !node.url) && node._hc)) str += '</a>'; str += '</div>'; if (node._hc) { str += '<div id="d' + this.obj + nodeId + '" class="clip" style="display:' + ((this.root.id == node.pid || node._io) ? 'block' : 'none') + ';">'; str += this.addNode(node); str += '</div>'; } this.aIndent.pop(); return str; }; // Adds the empty and line icons dTree.prototype.indent = function(node, nodeId) { var str = ''; if (this.root.id != node.pid) { for (var n=0; n<this.aIndent.length; n++) str += '<img src="' + ( (this.aIndent[n] == 1 && this.config.useLines) ? this.icon.line : this.icon.empty ) + '" alt="" />'; (node._ls) ? this.aIndent.push(0) : this.aIndent.push(1); if (node._hc) { str += '<a href="javascript: ' + this.obj + '.o(' + nodeId + ');"><img id="j' + this.obj + nodeId + '" src="'; if (!this.config.useLines) str += (node._io) ? this.icon.nlMinus : this.icon.nlPlus; else str += ( (node._io) ? ((node._ls && this.config.useLines) ? this.icon.minusBottom : this.icon.minus) : ((node._ls && this.config.useLines) ? this.icon.plusBottom : this.icon.plus ) ); str += '" alt="" /></a>'; } else str += '<img src="' + ( (this.config.useLines) ? ((node._ls) ? this.icon.joinBottom : this.icon.join ) : this.icon.empty) + '" alt="" />'; } return str; }; // Checks if a node has any children and if it is the last sibling dTree.prototype.setCS = function(node) { var lastId; for (var n=0; n<this.aNodes.length; n++) { if (this.aNodes[n].pid == node.id) node._hc = true; if (this.aNodes[n].pid == node.pid) lastId = this.aNodes[n].id; } if (lastId==node.id) node._ls = true; }; // Returns the selected node dTree.prototype.getSelected = function() { var sn = this.getCookie('cs' + this.obj); return (sn) ? sn : null; }; // Highlights the selected node dTree.prototype.s = function(id) { if (!this.config.useSelection) return; var cn = this.aNodes[id]; if (cn._hc && !this.config.folderLinks) return; if (this.selectedNode != id) { if (this.selectedNode || this.selectedNode==0) { eOld = document.getElementById("s" + this.obj + this.selectedNode); eOld.className = "node"; } eNew = document.getElementById("s" + this.obj + id); eNew.className = "nodeSel"; this.selectedNode = id; if (this.config.useCookies) this.setCookie('cs' + this.obj, cn.id); } }; // Toggle Open or close dTree.prototype.o = function(id) { var cn = this.aNodes[id]; this.nodeStatus(!cn._io, id, cn._ls); cn._io = !cn._io; if (this.config.closeSameLevel) this.closeLevel(cn); if (this.config.useCookies) this.updateCookie(); }; // Open or close all nodes dTree.prototype.oAll = function(status) { for (var n=0; n<this.aNodes.length; n++) { if (this.aNodes[n]._hc && this.aNodes[n].pid != this.root.id) { this.nodeStatus(status, n, this.aNodes[n]._ls) this.aNodes[n]._io = status; } } if (this.config.useCookies) this.updateCookie(); }; // Opens the tree to a specific node dTree.prototype.openTo = function(nId, bSelect, bFirst) { if (!bFirst) { for (var n=0; n<this.aNodes.length; n++) { if (this.aNodes[n].id == nId) { nId=n; break; } } } var cn=this.aNodes[nId]; if (cn.pid==this.root.id || !cn._p) return; cn._io = true; cn._is = bSelect; if (this.completed && cn._hc) this.nodeStatus(true, cn._ai, cn._ls); if (this.completed && bSelect) this.s(cn._ai); else if (bSelect) this._sn=cn._ai; this.openTo(cn._p._ai, false, true); }; // Closes all nodes on the same level as certain node dTree.prototype.closeLevel = function(node) { for (var n=0; n<this.aNodes.length; n++) { if (this.aNodes[n].pid == node.pid && this.aNodes[n].id != node.id && this.aNodes[n]._hc) { this.nodeStatus(false, n, this.aNodes[n]._ls); this.aNodes[n]._io = false; this.closeAllChildren(this.aNodes[n]); } } } // Closes all children of a node dTree.prototype.closeAllChildren = function(node) { for (var n=0; n<this.aNodes.length; n++) { if (this.aNodes[n].pid == node.id && this.aNodes[n]._hc) { if (this.aNodes[n]._io) this.nodeStatus(false, n, this.aNodes[n]._ls); this.aNodes[n]._io = false; this.closeAllChildren(this.aNodes[n]); } } } // Change the status of a node(open or closed) dTree.prototype.nodeStatus = function(status, id, bottom) { eDiv = document.getElementById('d' + this.obj + id); eJoin = document.getElementById('j' + this.obj + id); if (this.config.useIcons) { eIcon = document.getElementById('i' + this.obj + id); eIcon.src = (status) ? this.aNodes[id].iconOpen : this.aNodes[id].icon; } eJoin.src = (this.config.useLines)? ((status)?((bottom)?this.icon.minusBottom:this.icon.minus):((bottom)?this.icon.plusBottom:this.icon.plus)): ((status)?this.icon.nlMinus:this.icon.nlPlus); eDiv.style.display = (status) ? 'block': 'none'; }; // [Cookie] Clears a cookie dTree.prototype.clearCookie = function() { var now = new Date(); var yesterday = new Date(now.getTime() - 1000 * 60 * 60 * 24); this.setCookie('co'+this.obj, 'cookieValue', yesterday); this.setCookie('cs'+this.obj, 'cookieValue', yesterday); }; // [Cookie] Sets value in a cookie dTree.prototype.setCookie = function(cookieName, cookieValue, expires, path, domain, secure) { document.cookie = escape(cookieName) + '=' + escape(cookieValue) + (expires ? '; expires=' + expires.toGMTString() : '') + (path ? '; path=' + path : '') + (domain ? '; domain=' + domain : '') + (secure ? '; secure' : ''); }; // [Cookie] Gets a value from a cookie dTree.prototype.getCookie = function(cookieName) { var cookieValue = ''; var posName = document.cookie.indexOf(escape(cookieName) + '='); if (posName != -1) { var posValue = posName + (escape(cookieName) + '=').length; var endPos = document.cookie.indexOf(';', posValue); if (endPos != -1) cookieValue = unescape(document.cookie.substring(posValue, endPos)); else cookieValue = unescape(document.cookie.substring(posValue)); } return (cookieValue); }; // [Cookie] Returns ids of open nodes as a string dTree.prototype.updateCookie = function() { var str = ''; for (var n=0; n<this.aNodes.length; n++) { if (this.aNodes[n]._io && this.aNodes[n].pid != this.root.id) { if (str) str += '.'; str += this.aNodes[n].id; } } this.setCookie('co' + this.obj, str); }; // [Cookie] Checks if a node id is in a cookie dTree.prototype.isOpen = function(id) { var aOpen = this.getCookie('co' + this.obj).split('.'); for (var n=0; n<aOpen.length; n++) if (aOpen[n] == id) return true; return false; }; // If Push and pop is not implemented by the browser if (!Array.prototype.push) { Array.prototype.push = function array_push() { for(var i=0;i<arguments.length;i++) this[this.length]=arguments[i]; return this.length; } }; if (!Array.prototype.pop) { Array.prototype.pop = function array_pop() { lastElement = this[this.length-1]; this.length = Math.max(this.length-1,0); return lastElement; } }; endtext strtofile(isi_js,this.folder+'___dtree.js') text to isi_css noshow .dtree { font-family: Times New Roman, Verdana, Geneva, Arial, Helvetica, sans-serif; font-size: 20px; color: #666; white-space: nowrap; } .dtree img { border: 0px; vertical-align: middle; } .dtree a { color: #333; text-decoration: none; } .dtree a.node, .dtree a.nodeSel { white-space: nowrap; padding: 2px 2px 2px 2px; } .dtree a.node:hover, .dtree a.nodeSel:hover { color: #333; text-decoration: underline; } .dtree a.nodeSel { background-color: #c0d2ec; } .dtree .clip { overflow: hidden; } endtext strtofile(isi_css,this.folder+'___dtree.css') ENDPROC PROCEDURE file_index_html LPARAMETERS lx_caption_1,ln_Cols_1 lx_caption='MENU APLIKASI' ln_Cols='10' IF TYPE('lx_caption_1')='C' AND !EMPTY(lX_CAPTION_1) lx_caption=lx_caption_1 ENDIF IF TYPE('ln_Cols_1')='N' AND ln_Cols_1>0 Ln_Cols=TRANSFORM(ln_Cols_1) ENDIF text to isi_index TEXTMERGE NOSHOW <!DOCTYPE html> <HTML> <HEAD> <TITLE><<lx_caption>></TITLE> <meta name="viewport" content="width=device-width, initial-scale=10"> </HEAD> <frameset cols="<<ln_Cols>>,*"> <frame name="left" src="tree_menu.html" width="400"> <frame name="xbody" src="gasy.html"> </frameset> <noframes></noframes> </html> endtext strtofile(isi_index,this.folder+'index.html') if !empty(this.parent.edit1.value) isi_gasy=this.parent.edit1.value else THIS.PARENT.EDIT1X.VALUE='' THIS.FXP(THISFORM.REKORD.VALUE,1001) isi_gasy=THIS.PARENT.EDIT1X.VALUE endif strtofile(isi_gasy,this.folder+'gasy.html') ENDPROC PROCEDURE dbf_menu LPARAMETERS LSHARE,LINDEK THIS.Tag=this.folder+'dbf\GW_HTML_'+PADL(TRANSFORM(THISFORM.REKORD.VALUE),4,'0')+'.DBF' TUTUP('GW_HTML') IF !FILE(THIS.Tag) CHEKFOLDER(THIS.TAG) CREATE TABLE (THIS.Tag) ; (; GAID C(10),; ID_PARENT c(10),; ID_FXP N(3),; KLP C(3),; KETERANGAN C(250),; noper c(10),; naper c(30),; jenis c(1),; sifat c(1),; lepel n(1),; umum c(10),; kode c(30),; nopi c(2),; id_key i autoinc,; key_id i,; htm m; ) index on klp+gaid tag klpgaid USE ENDIF IF LINDEK=.T. IF buka(lshare,this.tag,'gw_html') SELECT GW_HTML set order to klpgaid IF lshare=.t. index on klp+gaid tag klpgaid MODIFY STRUCTURE ENDIF BROWSE FONT "Times New Roman",14 NODELETE TITLE "DATA: "+DBF()+" ( "+ALIAS()+" )" ENDIF TUTUP('GW_HTML') ENDIF IF buka(LSHARE,this.tag,'gw_html') sele gw_html set order to klpgaid RETURN .t. ENDIF RETURN .f. ENDPROC PROCEDURE buka_menu_HTML LPARAMETERS IKLP IKLP=IIF(TYPE('IKLP')#'C','000',IKLP) ************************************* SET TEXTMERGE ON text to txt1 noshow <!DOCTYPE html> <html> <head> <meta name="viewport" content="width=device-width, initial-scale=10"> <title>Gasy</title> <head> <link rel="StyleSheet" href="___dtree.css" type="text/css" /> <script type="text/javascript" src="___dtree.js"></script> </head> <body background="paper.gif"> <div class="dtree"> <div style="padding:2px;text-align:left;border-style:none;"> <a href="javascript: d.openAll();">Buka</a> | <a href="javascript: d.closeAll();">Tutup</a> | <A HREF="GASY:THIS.DBF_FORM()">Form Input</a> </div> <hr> <script type="text/javascript"> </script> </div> <p \><hr size="1" \> <font class="dtree">©<A HREF="GASY:THISFORM.REKORD.RIGHTCLICK">Gasy, 1991-2023</A>. All Rights Reserved</font></p> <p> <h1>Menu</h1> <ol> <li><font class="dtree"><A HREF="GASY:THIS.DBF_MENU(.f.,.T.)">Browse</a></font> <li><font class="dtree"><A HREF="GASY:THIS.DBF_MENU(.t.,.T.)">Modifikasi Struktur</a></font> <li><font class="dtree"><A HREF="GASY:THIS.DBF_FORM()">Form Input</a></font> </ol> </p> </body> </html> endtext ************** strtofile(txt1+txt+txt3,THIS.FOLDER+'tree_menu.html') THIS.Navigate(FULLPATH(THIS.FOLDER+'index.html')) ENDPROC PROCEDURE FXP LPARAMETERS nGAID,OPSI THIS.TAG='bmps\gasy\gasy_'+PADL(TRANSFORM(nGaid),4,'0')+'.fxp' IF file(this.tag) DO (this.tag) WITH this,opsi ENDIF ENDPROC PROCEDURE ISI_XBODY LPARAMETERS lxKlp,lxGaid,lnGaid,lxKeterangan,lxParent THIS.COMMENT='BMPS\DOKUMEN_HTML.DBF' THIS.TAG='BMPS\DOKUMEN_XHTM.HTML' IF TYPE('lxKeterangan')='C' AND !EMPTY(lxKeterangan) this.tag='bmps\'+LOWER(lxKeterangan)+'.html' ENDIF IF TYPE('lxKlp')='C' AND !EMPTY(lxKlp) THIS.COMMENT='BMPS\DOKUMEN_HTML_'+LXKLP+'.DBF' ENDIF IF !FILE(THIS.COMMENT) CREATE TABLE (THIS.COMMENT) ; (; ID_KLP C(3),ID_GAID C(10),ID_KEY I,HTM M; ) USE ENDIF IF TYPE('LNGAID')<>'N' LNGAID=0 ENDIF IF TYPE('lxGAID')='C' AND !EMPTY(lxGaid) SELECT * from (this.comment) ; WHERE ALLTRIM(ID_KLP)==ALLTRIM(LXKLP) ; AND ALLTRIM(ID_GAID)==ALLTRIM(LXGAID) ; AND ID_KEY=LNGAID ; INTO CURSOR HASIL_X1 SELECT HASIL_X1 GO TOP ISIHTML=HTM THIS.PARENT.EDIT1.IKLP=LXKLP THIS.PARENT.EDIT1.IGAID=LXGAID THIS.PARENT.EDIT1.IKEY=LNGAID THIS.PARENT.EDIT1.VALUE=ISIHTML IF EOF() INSERT INTO (THIS.COMMENT) (ID_KLP,ID_GAID,ID_KEY) VALUES (LXKLP,LXGAID,LNGAID) ENDIF IF !EMPTY(ISIHTML) STRTOFILE(isihtml,this.tag) THIS.navigate(fullpath(this.tag),,'xbody') RETURN ENDIF if type("this.document.GetElementById('xbody').contentWindow.document.forms('menu').gaid_1.value")='C' with this.document.GetElementById('xbody').contentWindow.document.forms('menu') .gaid_1.value=lxgaid This.FXP(0,-1) endwith ENDIF ENDIF ENDPROC PROCEDURE DBF_FORM THISTAG='BMPS\DOKUMEN_IHTM.HTML' THIS.FXP(0,1001) ISIHTML=THISFORM.EDIT1X.VALUE IF !EMPTY(ISIHTML) STRTOFILE(isihtml,thistag) THIS.navigate(fullpath(thistag),,'xbody') RETURN ENDIF ENDPROC ENDDEFINE

ADMIN REFRESH UDF FORM GASY_UDF DATA PROSES LAPORAN

MENUHTML - 69

MENUHTML1 - 70