Ugly Programmer

function mmHandleEvent(Proc,Func)
{
  var dbugDEV = prompt( "Enter Device Name for Debug Else leave blank"  );
  if(dbugDEV!="" )  document.LANSA.action+="+BDEBUG+"+dbugDEV+"+%20";
	   document.LANSA._PROCESS.value=Proc;
	   document.LANSA._FUNCTION.value=Func;
	   document.LANSA.submit();
}

LANSA JOBS

877 526 7220

Must have _BLNAME before List and _BLEND at end. (1 underscore)

<input type=”hidden” name=”__ZZCHKUSER-<RDML MERGE=”&ROWNUM” FORMAT=4> D” value=”<RDML MERGE=”ZZCHKUSER”>” size=”1″ > (2 underscores )

This works. Field ZZCHKUSER is in Browselist that has *NOBICP

<input type=”hidden” name=”__ZZCHKUSER-<RDML MERGE=”&ROWNUM” FORMAT=4> D” value=”<RDML MERGE=”ZZCHKUSER”>” size=”1″ >

<input type=checkbox name=”mChkBoxQ<RDML MERGE=”LISTCOUNT”>” value=”” <RDML MERGE=ZZCHKNODE> onclick=”SetCBState(this, ‘__ZZCHKUSER-<RDML MERGE=”&ROWNUM” FORMAT=4> D’, ‘Y’, ‘N’)”></strong></td>

This is the stuff for the page component

<INPUT TYPE=”HIDDEN” NAME=”_BLNAME” VALUE=”X1BL01LST” SIZE=”10″>
<RDML MERGE=”&BLX1BL01LST”>
<INPUT TYPE=”HIDDEN” NAME=”_BLEND” VALUE=”X1BL01LST” SIZE=10>

This is the stuff for the list component

<!– Component START for B1ABSLST / MAM20080528 –>
<tr height=”20″ class='<RDML MERGE=”ZTRCOLOR”>’ >
<td align=”left”>
<A href=”JavaScript:document.LANSA.PLISTENTRY.value = ‘<RDML MERGE=”LISTCOUNT”>’; HandleEvent(‘<RDML MERGE=”*PROCESS”>’,'<RDML MERGE=”*FUNCTION”>’);”> <IMG src=”/IMAGES/ball_blue.gif” ALT=”Go To Account Bill Maintenance” BORDER=”0″></A>
<strong><RDML MERGE=”ZZNAM”></strong></td>
<td align=”left” class=”arial1blackbold”>  <strong> <RDML MERGE=”ZZACT”></strong></td>
<td align=”left” class=”arial1blackbold”><center>   <strong><RDML MERGE=”ZZCNT”></strong></center></td>
<td align=”right” class=”arial1blackbold”> <strong><input type=checkbox name=”mChkBoxL<RDML MERGE=”LISTCOUNT”>” value=”” <RDML MERGE=ZZCHKNODE> onclick=”blueBallsChk(this,<RDML MERGE=”LISTCOUNT”>)”></strong></td>
<td align=”right” class=”arial1blackbold”> <strong>

<input type=”hidden” name=”__ZZCHKUSER-<RDML MERGE=”&ROWNUM” FORMAT=4> D” value=”<RDML MERGE=”ZZCHKUSER”>” size=”1″ >

<input type=checkbox name=”mChkBoxQ<RDML MERGE=”LISTCOUNT”>” value=”” <RDML MERGE=ZZCHKNODE> onclick=”SetCBState(this, ‘__ZZCHKUSER-<RDML MERGE=”&ROWNUM” FORMAT=4> D’, ‘Y’, ‘N’)”></strong></td>
</tr>
<!– Component END for B1ABSLST / MAM20080506 –>

CALL me for LANSA jobs

Mark

877 526 7220

If you want to use checkboxes in browse lists with their initial set checked, you will need to deploy the following technique. This technique is based on the preceding example.

<input type=”hidden” name=”__{field name}-<RDML MERGE=”&ROWNUM” FORMAT=4> D”

value=”<RDML MERGE=”{field name}” size=”{size}”>” />

<input type=”checkbox” name=”DUMMY” value=”<RDML MERGE=”{field name}”>”

onclick=”SetCBState(this, ‘__{field name}-<RDML MERGE=”&ROWNUM”

FORMAT=4> D’, ‘Y’, ‘N’)”

<RDML ONCONDITION=”{field name}”>

checked=”checked”

</RDML>

/>

{field name} is the name of the field you have defined in your DEF_LIST command. This {field name} is padded with trailing blanks to 10 characters.

Note that this technique uses the <RDML ONCONDITION> tag to determine the initial state of the checkbox.

This technique calls a different JavaScript function, SetCBState:

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;

}

}

}

SELECT_SQL FIELDS(#AGENT #ACCTNO (#ZZCNT ‘COUNT(*)’)) FROM_FILES((DWXP010)) WHERE(‘CANDTE = 0 AND AGENT =:ZAGENT’) GROUP_BY(‘AGENT,ACCTNO’) IO_ERROR(*NEXT)

Position the current line on the top of the window Ctrl + T

Position the current line in the middle of the window Ctrl + M

Position the current line on the bottom of the window Ctrl + B

Toggle a tag on a line Ctrl + F2

Remove all tags Alt + F2

Jump to the previous tagged line Ctrl + Up Arrow

Jump to the next tagged line Ctrl + Down Arrow

Comment selected text Ctrl + W

Uncomment selected text Ctrl + Shift + W

Collapse blocks. This command blocks a level at a time.
If you keep collapsing the blocks, the entire code will
be collapsed, except for lines that are not in blocks. Ctrl + F9

Expand blocks. This command expands a level at the time Ctrl +F10

Collapse the block containing the line that has the focus Ctrl + Shift + F9

Expand the collapsed block that has the editor focus Ctrl + Shift + F10

Makes selection/next character upper case Alt + UpArrow

Makes selection/next character lower case Alt + DownArrow

Delete word right Ctrl + Delete

Delete word left Ctrl + BackSpace

Delete from current position to end of line Alt + Shift + L

Cut line and place it on clipboard Ctrl + L

Copy line and place it on clipboard Alt + Q

Copy selection or line Plus key in number pad

Copy selected text to the clipboard Ctrl + Insert

Paste text from the clipboard Shift + Insert

Copy selected text to the clipboard Ctrl + C

Cut selected text to the clipboard Ctrl + X

Paste text from the clipboard Ctrl + V

Extend/reduce selection to next part of statement Ctrl + Shift + RightArrow

Extend/reduce selection to start of previous part of statement Ctrl + Shift + LeftArrow

Block select to end of line Shift + End

Block select to start of line Shift + Home

Block select to start of file Ctrl + Shift + Home

Block select to end of file Ctrl + Shift + End

Block select to page down Shift + PageDown

Block select to page up Shift + PageUp

Block select part of statement Left Button double-click

Line selection Shift + UpArrow

Line selection Shift + DownArrow

Select all text Ctrl + A

Find text Ctrl + F

Replace text Ctrl + H

Find next F3

Find previous Shift + F3

Go to line Ctrl + G

*Noxxxxx

 

The contents of this variable allows you to disable:

·         Borders around the browse list.

·         Column headings.

·         Selection image.

·         Borders around empty cells in the browse list.

To turn off any of the above features, you will need to define the variable as a Text variable. The content of the variable is then set to be:

*Noxxxxx

where xxxxx can be up to five characters, identifying the feature to disable.

If you want to disable the border around the browse list, specify a ‘B’ character.

If you want to disable the column heading in the browse list, specify a ‘C’ character.

If you want to disable the selection image, specify an ‘I’ character.

If you do not want a <table> HTML tag around your browse list, specify a ‘T’ character.

If you do not want borders displayed around empty cells in your browse list, specify a ‘P’ character.

Note that if you disable the selection image, none of the columns in the browse list will be hyperlinked, even though you have enabled LANSA for the Web to allow selection from any column in a browse list. For example, *NOB would switch borders off.

Date Formats

---

Date Built-In Functions may use one or more of the following formats as arguments and/or return values. The relevant Built-In Function’s description tells you which format is used as arguments and/or return values.

Code	Format of Date
A	System date format
B	DDMMYY
C	DD/MM/YY
D	YYMMDD
E	YY/MM/DD
F	MMDDYY
G	MM/DD/YY
H	DDMMYYYY
I	DD/MM/YYYY
J	YYYYMMDD
K	YYYY/MM/DD
L	MMDDYYYY
M	MM/DD/YYYY
N	DDMMMYY (e.g. 03JUL87)
O	DDMMMYYYY (e.g. 03JUL1987)
P	DDxx MMMMMMMMM YY (e.g. 16TH SEPTEMBER 87)
Q	DDxx MMMMMMMMM YYYY (e.g. 16TH SEPTEMBER 1987)
R	DDD (e.g. MON, TUE, WED, etc).
S	DDDDDDDDD (e.g. MONDAY, TUESDAY, WEDNESDAY, etc).
T	DDDDDDDDDD (in selected language e.g. LLLLLLLLLL).
U	MMMMMMMMMM (in selected language e.g. LLLLLLLLLL).
V	8 digit system date format
W	YYMM
X	MMYY
Y	YYYYMM
Z	MMYYYY
1	CYYMMDD