September 2010
M	T	W	T	F	S	S
« Mar
	1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30

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();

or

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

or

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

Posted in Javascript, LANSA | 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]

Posted in LANSA | No Comments »

LANSA Handle Event with Debug Prompt

4. June 2008 by admin.

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

Posted in LANSA | No Comments »

LANSA Checkboxes in Expandable List

4. June 2008 by admin.

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

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

Posted in LANSA | No Comments »

Using Checkboxes in a LANSA Browse list

30. May 2008 by admin.

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’)”

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;

}

Posted in LANSA | No Comments »

SELECT_SQL EXAMPLE using Group_by and Count(*)

29. May 2008 by admin.

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

Posted in LANSA | No Comments »

Visual LANSA Editor Short Cuts

28. May 2008 by admin.

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

Posted in LANSA | No Comments »

The only reference to *NOBCIPT on the web, courtesy of Mark Mason

19. May 2008 by admin.

*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.

Posted in LANSA | No Comments »

LANSA Date Formats

30. April 2008 by admin.

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

Posted in LANSA | No Comments »

Blogroll

Archive for the LANSA Category

3 ways to invoke DEBUG for LANSA for the Web

Good web Skeleton - handles body onload

What I have been working on

LANSA Handle Event with Debug Prompt

LANSA Checkboxes in Expandable List

Using Checkboxes in a LANSA Browse list

SELECT_SQL EXAMPLE using Group_by and Count(*)

Visual LANSA Editor Short Cuts

The only reference to *NOBCIPT on the web, courtesy of Mark Mason

LANSA Date Formats