Page Source: SET_229_SCRIPT

LANSA

previous page next page
Page Source: SET_229_SCRIPT
<SCRIPT LANGUAGE="JavaScript"> <!--
<RDML ONCONDITION="STATICHEADER">
function SetButton(btnvalue)
{
document.LANSA._BUTTON.value = btnvalue;
}
function NewButton(btn)
{
document.LANSA._BUTTON.value=btn;
document.LANSA.submit();
}
function HandleSubmit()
{
document.LANSA.submit();
}
</RDML>
<RDML NOTCONDITION="&WEBEVENT">
function pathOnly(InString)
{
LastSlash=InString.lastIndexOf('/',InString.length-1);
OutString=InString.substring(0,LastSlash+1);
return(OutString);
}
function GetHelp()
{
if (document.LANSA._NAME.value != "&NULL")
{
var ref = pathOnly(location.href);
var lweb = "LANSAWEB?FUNCHELP+<RDML MERGE="&SESSION">+";
var opt = "width=350,height=425,directories=no,toolbar=no,";
var win;
opt += "menubar=no,scrollbars=yes,resizable=yes";
ref += lweb;
ref += document.LANSA._NAME.value;
win = window.open(ref,"lansahelp", opt);
}
}
function GetExtraInfo(ListName, EntryNum, Field1, Field2, Field3, Field4, Field5)
{
var ref = pathOnly(location.href);
var lweb = "LANSAWEB?FLDCONT+<RDML MERGE="&SESSION">+";
var opt = "width=350,height=425,directories=no,toolbar=no,";
var win;
opt += "menubar=no,scrollbars=yes,resizable=yes";
ref += lweb+EntryNum + "+" + ListName;
if (Field1 != '&NULL')
{
ref += "+" + Field1;
if (Field2 != '&NULL')
{
ref += "+" + Field2;
if (Field3 != '&NULL')
{
ref += "+" + Field3;
if (Field4 != '&NULL')
 {
ref += "+" + Field4;
if (Field5 != '&NULL')
{
ref += "+" + Field5;
}
}
}
}
}
win = window.open(ref,"lansahelp", opt);
}
</RDML>
function SetSelect(HTMLName, Name,Row,Column,Select)
{
document.LANSA._SELECT.value=Select;
SetNameLocation(Name,Row,Column);
document.LANSA._CALFLD.value=HTMLName;
}
function SetNameLocation(Name,Row,Column)
{
document.LANSA._NAME.value=Name;
document.LANSA._ROW.value=Row;
document.LANSA._COLUMN.value=Column;
document.LANSA._CALFLD.value=Name;
}
<RDML ONCONDITION="USECALENDAR">
function CallCalendar()
{
if (document.LANSA._CALFLD.value != "&NULL")
{
var opt = "width=340,height=385,directories=no,toolbar=no,";
opt += "menubar=no,scrollbars=no,resizable=yes";
win = window.open("/images/lcalen.htm", "calendar", opt);
win.opener=window;
}
}
function SetDate(day, month, year)
{
var Field=document.LANSA._CALFLD.value;

if (year < 2000)
YearRet=year-1900;
else
YearRet=year-2000;

var RDate=day+"/"+month+"/";
if (YearRet<10)
RDate+="0"+YearRet;
else
RDate+=YearRet;
var NumElements=document.LANSA.elements.length;

for (i=0; i<NumElements;i++)
{
if (document.LANSA.elements[i].name==Field)
{
document.LANSA.elements[i].value=RDate;
break;
}
}
}
</RDML>
function HandleEvent(Proc,Func)
{
<RDML ONCONDITION="&DEBUG">
document.LANSA.action+="+BDEBUG+<RDML MERGE="&DEVICE">+<RDML MERGE="&MSGQ">";
</RDML>
<RDML ONCONDITION="&TASK">
document.LANSA.action+="+TASK_ID+<RDML MERGE="&TASK">";
</RDML>
document.LANSA._PROCESS.value=Proc;
document.LANSA._FUNCTION.value=Func;
document.LANSA.submit();
}
<RDML ONCONDITION="&CHECKNUMERIC">
function isValidNumeric(theObj, integers,decimals,decimalPoint)
{
var FieldValue = theObj.value;
var returnString = "";
var befdecCount = 0;
var PastDec = false;
var aftdecCount = 0;
for (var i = 0; i < FieldValue.length; i++)
{
if (isDigit(FieldValue.charAt(i)))
{
if (PastDec)
{
aftdecCount++
if (aftdecCount <= decimals)
returnString += FieldValue.charAt(i)
}
else
{
befdecCount++
if (befdecCount <= integers)
returnString += FieldValue.charAt(i)
}
}
else
{
if (FieldValue.charAt(i) == decimalPoint)
PastDec = true
returnString += FieldValue.charAt(i);
}
}
if ((befdecCount > integers) || (aftdecCount > decimals))
{
alert("Allowable digits before decimal point = " + integers +
"\nAllowable digits after decimal point = " + decimals +
"\nData will be truncated accordingly.")
theObj.value = returnString
return false
}
return true
}
function isDigit(theDigit)
{
digitArray = new Array('0', '1', '2', '3', '4', '5', '6', '7', '8', '9')
for (var j = 0; j < digitArray.length; j++)
if (theDigit == digitArray[j])
return true
return false
}
</RDML>
<RDML ONCONDITION="&DBCS">
function isValidDBCS(theObj,KeybdShift,EBCDICLength)
{
var FieldValue = theObj.value;
var returnString = "";
var totalDBCS = 0;
var totalSBCS = 0;
var totalLength = 0;
var inDBCS = false;
for (var i = 0; i < FieldValue.length; i++)
{
if (isDBCSChar(FieldValue.charAt(i)))
{
if (!inDBCS)
{
inDBCS = true
totalLength+=2
}
totalLength += 2;
if ((totalLength <= EBCDICLength) && (KeybdShift != 'A'))
{
returnString += FieldValue.charAt(i)
returnString += FieldValue.charAt(i+1)
}
totalDBCS++
i++
}
else
{
totalLength += 1;
if ((totalLength <= EBCDICLength) && (KeybdShift != 'J'))
returnString += FieldValue.charAt(i)
if (inDBCS) inDBCS = false
totalSBCS++
}
}
if (totalLength > EBCDICLength)
{
alert("Converted length of characters entered is " + totalLength +
"\nwhich exceeds the maximum allowable length of " + EBCDICLength +
"\nData will be truncated accordingly.")
theObj.value = returnString
return false
}
if ((KeybdShift == 'J') && (totalSBCS > 0))
{
alert("Only DBCS characters are allowed in this field.\n" +
totalSBCS + " SBCS characters have been entered.\n" +
"SBCS characters will be removed.")
theObj.value = returnString
return false
}
if ((KeybdShift == 'E') && (totalSBCS > 0) && (totalDBCS > 0))
{
alert("Either all DBCS characters or all SBCS characters " +
"are allowed in this field.\n" +
totalSBCS + " SBCS characters have been entered.\n" +
totalDBCS + " DBCS characters have been entered.\n" +
"Please modify field data accordingly.")
return false
}
if ((KeybdShift == 'A') && (totalDBCS > 0))
{
alert("Only SBCS characters are allowed in this field.\n" +
totalDBCS + " DBCS characters have been entered.\n" +
"DBCS characters will be removed.")
theObj.value = returnString
return false
}
return true
}
function isDBCSChar(theChar)
{
if (((theChar >= '\x81') && (theChar <= '\x9F')) ||
((theChar >= '\xE0') && (theChar <= '\xFC')))
return true
return false
}
</RDML>
function SetFocus()
{
var NumElements=document.LANSA.elements.length;

for (i=0; i<NumElements;i++)
{
if (document.LANSA.elements[i].type=="select-one"||
document.LANSA.elements[i].type=="checkbox"||
document.LANSA.elements[i].type=="textarea"||
document.LANSA.elements[i].type=='text')
{
if (document.LANSA.elements[i].value!="")
document.LANSA.elements[i].select(); 
document.LANSA.elements[i].focus();
break;
}
}
}
function preload(imgObj,imgSrc)
{
if (document.images)
{
eval(imgObj+' = new Image()');
eval(imgObj+'.src = "'+imgSrc+'"');
}
}
function changeImage(layer,imgObj, imgName)
{
if (document.images)
{
if (document.layers && layer!=null)
eval('document.'+layer+'.document.images["'+imgName+'"].src = '+imgObj+'.src');
else
document.images[imgName].src = eval(imgObj+".src");
}
}
function CheckNUpdate(Fld, Value)
{
var NumElements=document.LANSA.elements.length;

for (i=0; i<NumElements;i++)
{
if (document.LANSA.elements[i].name==Fld)
{
document.LANSA.elements[i].value=Value;
break;
}
}
}
function FieldExists(Fld)
{
var NumElements=document.LANSA.elements.length;

for (i=0; i<NumElements;i++)
{
if (document.LANSA.elements[i].name==Fld)
return true;
}
return false;
}
function SetState(obj, RFld, chkValue, unchkValue)
{
var NumElements=document.LANSA.elements.length;

for (i=0; i<NumElements;i++)
{
if (document.LANSA.elements[i].name==RFld)
{
if (obj.checked)
document.LANSA.elements[i].value=chkValue;
else
document.LANSA.elements[i].value=unchkValue;
break;
}
}
}
function GetFieldValue(RFld)
{
var NumElements=document.LANSA.elements.length;

for (i=0; i<NumElements;i++)
{
if (document.LANSA.elements[i].name==RFld)
return document.LANSA.elements[i].value;
}
return null;
}
function CallLink(Process, Function, Partition, NewWindow)
{
var URL="/<RDML MERGE="&CGI">/LANSAWEB?PROCFUN+";

URL+=Process;
URL+="+";
URL+=Function;
URL+="+";
URL+=Partition; 

<RDML ONCONDITION="&TASK">
URL+="+TASK_ID+<RDML MERGE="&TASK">";
</RDML>

if (FieldExists('ASTDTABFLR'))
{
URL+="+FUNCPARMS+STDTABFLR(A004):";
URL+=document.LANSA.ASTDTABFLR.value;
}

if (NewWindow == 'N')
window.location=URL;
else
StartFunction(URL);
}

function SetCBState(obj, RFld, CY, CN)
{
var NumElements=document.LANSA.elements.length;

for (i=0; i<NumElements;i++)
{
if (document.LANSA.elements[i].name==RFld)
{
if (obj.checked)
document.LANSA.elements[i].value=CY;
else
document.LANSA.elements[i].value=CN;
break;
}
}
}
function StartFunction(URL)
{
var win;
win=window.open("","TESTFNC");
if (win != null)
win.location=URL;
win.focus();
}
function ECSelect(proc,fun,ECparm)
{
document.LANSA.action += '+FUNCPARMS+ECPARM(A0500):' + ECparm;
HandleEvent(proc, fun);
}

function SubmitFunction(clickedValue)
{
document.LANSA.AS_CLICKED.value= clickedValue;
HandleEvent('<RDML MERGE="*PROCESS">', '<RDML MERGE="*FUNCTION">');
}

<RDML MERGE="&DEBUG">
// --> </SCRIPT>


previous page start next page