Archive for July 2008

3 ways to invoke DEBUG for LANSA for the Web

29. July 2008 by admin.

document.LANSA.ASTDRENTRY.value=”N”;
   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.action+=”+BDEBUG+QPADEV000Q”;
   document.LANSA.submit();

<form method=”post” name=”LANSA”
action=”/<RDML MERGE=”&CGI”>/LANSAWEB?WEBEVENT+<RDML MERGE=”&SESSPL”>+bdebug+QPADEV000H”>

http://lansa.com/cgi-bin/lansaweb?procfun+mamcomproc+mlogon+deM+eng+BDEBUG+QPADEV000M

Posted in Javascript, LANSA | No Comments »

All Web Components together

24. July 2008 by admin.

<!– ################################################### –>
<!– ### !@BEGIN Page Component PAG_MNUSKLLAYOUT ### –>
<!– ################################################### –>
<!– ################################################### –>
<!– ### !@BEGIN Field Component &FLD_DCTHDRCMP      ### –>
<!– ################################################### –>
<RDML COMPONENT=”&FLD_DCTHDRCMP”>
<!– ################################################### –>
<!– ### !@END   Field Component &FLD_DCTHDRCMP      ### –>
<!– ################################################### –>
<!– ############################################ –>
<!– ### !@BEGIN   RDML MERGE=”&MESSAGES” ### –>
<!– ############################################ –>
<RDML MERGE=”&MESSAGES”>
<!– ############################################ –>
<!– ### !@END      RDML MERGE=”&MESSAGES” ### –>
<!– ############################################ –>

<!– ################################################### –>
<!– ### !@BEGIN Field Component &FLD_DCTPAGCMP      ### –>
<!– ################################################### –>
<RDML COMPONENT=”&FLD_DCTPAGCMP”>
<!– ################################################### –>
<!– ### !@END   Field Component &FLD_DCTPAGCMP      ### –>
<!– ################################################### –>

<!– ################################################### –>
<!– ### !@BEGIN Field Component &FLD_DCTHRFCMP      ### –>
<!– ################################################### –>
<RDML COMPONENT=”&FLD_DCTHRFCMP”>
<!– ################################################### –>
<!– ### !@END   Field Component &FLD_DCTHRFCMP      ### –>
<!– ################################################### –>

<!– ################################################### –>
<!– ### !@BEGIN Field Component &FLD_DCTFTRCMP ### –>
<!– ################################################### –>
<RDML COMPONENT=”&FLD_DCTFTRCMP”>
<!– ################################################### –>
<!– ### !@END Field Component &FLD_DCTFTRCMP ### –>
<!– ################################################### –>

<!– ################################################### –>
<!– ### !@END   Page Component PAG_MNUSKLLAYOUT ### –>
<!– ################################################### –>
++++++++++++++++++
<!– ################################################# –>
<!– ### !@BEGIN Page Component PAG_MNUSKLHEAD ### –>
<!– ################################################# –>
<!– Pull in Function specific needs to be put in <head> –>
<!– ################################################# –>
<!– ### !@BEGIN Field Component &FLD_DCTHEDCMP ### –>
<!– ################################################# –>
    <RDML COMPONENT=”&FLD_DCTHEDCMP”">
<!– ################################################# –>
<!– ### !@END     Field Component &FLD_DCTHEDCMP ### –>
<!– ################################################# –>
<SCRIPT LANGUAGE=”JavaScript”> <!–

// Start of Change: 2008.06.04 - MAM - Allow for debug by prompt

function HandleEvent(Proc,Func)
{

   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.submit();
}
// –> </SCRIPT>
<!– ################################################# –>
<!– ### !@END   Page Component PAG_MNUSKLHEAD ### –>
<!– ################################################# –>
+++++++++++++++
Mnusklbdyonload

<!– ############################################## –>
<!– ### !@BEGIN Page Component PAG_MNUHED     ### –>
<!– ############################################## –>
<style type=”text/css”>@import url(/images/migmnuproc/migmnuproc.css);</style>
<style type=”text/css”>
.submenu{display: none;}
</style>
<style type=”text/css”> @import url(/images/migmnuproc/dropdown.css); </style>
<script type=”text/JavaScript” src=”/images/HomeValue.js”></script>
<script type=”text/JavaScript” src=”/images/BVSexpress.js”></script>
<script type=”text/JavaScript”>
<!–
function HandleSplEvtLossRun(Proc,Func,Parm)
{
   document.LANSA.AMPROD.value=” “;
   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.action+=”+FUNCPARMS+Z1ASELECT(A0010):”+Parm;
   document.LANSA.submit();
}

function HandleCCP(Proc,Func,Parm)
{
   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.action+=”+FUNCPARMS+Z1ASPLFLG(A0060):”+Parm;
   document.LANSA.submit();
}

function HandleSplEvent(Proc,Func,Parm3)
{

   document.LANSA.action+=”+FUNCPARMS+MPROD(A0030):”+Parm3;
   document.LANSA.AMPROD.value=Parm3;
   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.submit();
}
function prelaunchHV()
{
name = “<RDML MERGE=”AGYNAM   “>”;
badchar = “‘”
newname = name.replace(badchar, “”);
launchHomeValue(’<RDML MERGE=”MUSRID   “>’,”,newname,’QLAFKIUDJ%7DLWI%60VGMDJPV’,'demo.isohomevalue.com’,”,’<RDML MERGE=”MLOGSESID”>’)
//launchHomeValue(’<RDML MERGE=”MUSRID   “>’,”,newname,’QLAFKIUDJ%7DLWI%60VGMDJPV’,'homevalue.qa.air-worldwide.com’,”,’L080A6D0428B9D9C48D5D12072004151532′)
}
function openWindow(url)
{
var baseurl = “http://www.merchantsgroup.com”
var page = baseurl + url
var opt = “width=770,height=560,top=20,left=20,scrollbars=yes,resizable=yes,menubar=no,toolbar=yes,status=yes,location=yes”
var win
window.open(page,”Title”,opt)
}
function HandleSpecialEvt2(Proc,Func,Parm)
{
   document.LANSA.AMPROD.value=” “;
   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.action+=”+FUNCPARMS+Z1ACOMFLG(A0010):”+Parm;
   document.LANSA.submit();
}
function HandleSplEvtLossRun(Proc,Func,Parm)
{
   document.LANSA.AMPROD.value=” “;
   document.LANSA._PROCESS.value=Proc;
   document.LANSA._FUNCTION.value=Func;
   document.LANSA.action+=”+FUNCPARMS+Z1ASELECT(A0010):”+Parm;
   document.LANSA.submit();
}
//–>
</script>
<!– ############################################## –>
<!– ### !@END    Page Component PAG_MNUHED     ### –>
<!– ############################################## –>

+++++

<!– ############################################## –>
<!– ### !@BEGIN Page Component PAG_MNUHDR ### –>
<!– ############################################## –>
<!– ############################################## –>
<!– ### !@END Page Component PAG_MNUHDR ### –>
<!– ############################################## –>

Posted in Uncategorized | No Comments »

Good web Skeleton - handles body onload

24. July 2008 by admin.

    1.00 50222<?xml version=”1.0″ encoding=”UTF-8″?>
    2.00 50222<html xmlns=”http://www.w3.org/1999/xhtml” xml:lang=”en” lang=”en”>
    3.00 80618<!– LANSA for the Web - Skeleton Layout for MNU                    –>
    4.00 50222<!– Process         : %PR        %PRDS                             –>
    5.00 50222<!– Function        : %FU        %FUDS                             –>
    6.00 50222<!– Page            : %PG                                          –>
    7.00 50222<!– Generated by    : %PROD                                        –>
    8.00 50222<!– Created by user : %USERI                                       –>
    9.00 50222<!– Time and Date   : %STAMP                                       –>
   10.00 50222<!– RDML function sequence number - %SEQ                           –>
   11.00 50222<!– This is a *WEBEVENT function   %IFWEV                          –>
   12.00 50222<head>
   13.00 80522<!– Put Function Specific JS infront of Base JS                    –>
   14.00 80618<RDML COMPONENT=”PAG_MNUSKLHEAD”>
   15.00 80521<!– Title put in skeleton for base and function components         –>
   16.00 80521<TITLE><RDML MERGE=”&FUNCTION”> </TITLE>
   17.00 50222</head>
   18.00 80620<body <RDML COMPONENT=”PAG_MNUSKLBODYONLOAD”>>
   19.00 50222<!– ======================= LANSA Form Begins ======================== –>
   20.00 50222%W3FRM
   21.00 50222<!– Default hidden or process hidden –>
   22.00 50222<RDML MERGE=”&HIDDEN”>
   23.00 50222<!– ================== Hidden Fields in the Request Group =========== –>
   24.00 80623<table border=”0″ cellpadding=”0″ cellspacing=”0″>
   25.00 50222%W3FLD
   26.00 50222</table>
   27.00 50222<!– ====================== End of Hidden fields   =================== –>
   28.00 50222<!– =============================================== ================== –>
   29.00 50222<!– ========================= Layout Begins Here   ================== –>
   30.00 80618<RDML COMPONENT=”PAG_MNUSKLLAYOUT”>
   31.00 50222<!– ========================= Layout Ends Here   ==================== –>
   32.00 50222<!– =============================================== ================== –>
   33.00 50222<!– ========================== Browse List contents Start =========== –>
   34.00 50222%W3BRW
   35.00 50222<!– ========================== Browse List contents End ============ –>
   36.00 50222</form>
   37.00 50222<!– ============================ LANSA Form Ends Here ============== –>
   38.00 50222</body>
   39.00 50222</html>

Posted in LANSA | No Comments »

What I have been working on

18. July 2008 by admin.

[URL=http://uploads.screenshot-program.com/my.php?image=upl3613232958.png][IMG]http://uploads.screenshot-program.com/th00a00064003e80-3613232958.jpg[/IMG][/URL]