SetCursorPos in Peoplesoft

How to use function peoplecode of peoplesoft about setcursorpos in peoplesoft. You can use this function for fix position of cursor on page.

This Syntax :  SetCursorPos(Page.pagename,scrollpath, target_row, [recordname.]fieldname)

where scrollpath is: [RECORD.level1_recname,level1_row, [RECORD.level2_recname,level2_row, ]] RECORD.target_recname

To prevent ambiguous references, you can use SCROLL.scrollname, where scrollname is the same as the scroll level’s primary record name.

Pagename: The name of the page specified in the page definition, preceded by the keyword Page. The page name page must be in the current component. You can also pass the %page system variable in this parameter (without the Page reserved word).

scrollpath: A construction that specifies a scroll level in the component buffer.
[recordname .]fieldname: Specify a field designating the record and field in the scroll where you want to place the cursor.

target_row: The row number of the row in which you want to place the cursor.

This is example code set cursor when control cursor in page activate

This picture has page name is TEST_PAGE include scroll area level 1 is record of TEST_TBL. My requirement check Flag.

If  Flag = Y then Set cursor at TEST_TBL.DESCR254_1.

If Flag = N then Set cursor at TEST_TBL.DESCR254_2.

Example 1 : SetCursorPos(Page.Page_name, Record.Field, &i);

You place peoplecode at page activate by condition if flag = Y then set cursor at Descr254_1.

This code is “SetCursorPos(Page.test_page, Record.TEST_TBL.Descr254_1, &i);”

Result

Example 2 :

SetCursorPos(Page.Page_name, Record.Field, &i);

You place peoplecode at page activate by condition if flag = N then set cursor at Descr254_2.

This code is “SetCursorPos(Page.test_page, Record.TEST_TBL.Descr254_2, &i);”

Result

 

Ref: https://docs.oracle.com/cd/E15645_01/pt850pbr0/eng/psbooks/tpcl/chapter.htm?File=tpcl/htm/tpcl02.htm%23g037ee99c9453fb39_ef90c_10c791ddc07__3c78

Messagebox Peoplecode

How to use messagebox peoplecode in Peoplesoft. You can Messagebox in PeopleCode event and use an application engine that shows in view log/trace.

This syntax

MessageBox(style,title,message_set, message_num,default_txt [, paramlist])

Returns either a Number value or a constant.

Example 1. Use button in style OK/ Cancel

&result = MessageBox(1, “Confirm OK / Cancel”, 0, 0, “Confirm OK / Cancel”);
rem WinMessage(%MsgResult_OK, 0);
If &result = %MsgResult_OK Then
WinMessage(“OK”, 0);

/* — each statment in peoplecode–*/
Else
WinMessage(“Cancel”, 0);

/* — each statment in peoplecode–*/
End-If;

Description of example 1

The PeopleCode &result = MessageBox(1, “Confirm OK / Cancel”, 0, 0, “Confirm OK / Cancel”); shows image below 

If you press the OK button then shows an image below

Ref : https://docs.oracle.com/cd/E28394_01/pt852pbh1/eng/psbooks/tpcl/chapter.htm?File=tpcl/htm/tpcl02.htm%2337ee99c9453fb39_ef90c_10c791ddc07__3ce0

How to use Peoplecode While Fetch

How to use Peoplecode While Fetch of peoplesoft. You can use function while with fetch data from sql for get data from sql.

Local SQL &SQL_DM = CreateSQL( ” SELECT MANAGER, NAME FROM TABLE “);
&i = 0;
While &SQL_DM.Fetch(&MANAGER,&NAME );

/* Do statement*/

End-while;

How to Bypass Search Record By Peoplecode in Peoplesoft

How to Bypass Search Record By Peoplecode in Peoplesoft :

1. You can use function peoplecode setsearchdialogbehavior(0)  at searchinit keyfield for bypass search record.

2. Use search record is INSTALLATIION

Table of Label Field Name in Peoplesoft

Select label name of filed data in sql of peoplesoft. Table of Label Field Name in Peoplesoft can use this sql.

select * from PSDBFLDLABL

/*–Label of field in Language –*/

select * from PSDBFLDLABLLANG

Translate Values Table Name in Peoplesoft

Select translate values data in sql for Translate Values Table Name in Peoplesoft

select * from PSXLATITEM

/*–Translate Value Lanquage –*/

select * from PSXLATITEMLANG

 

psxlatitem in peoplesoft is a table for store value of translate value of the field.  psxlatitem has related language record is PSXLATITEMLANG and parent record is PSXLATDEFN.

You can select a value of translate value by using below code of PeopleCode.

SELECT XLATLONGNAME FROM PSXLATITEM WHERE FIELDNAME =’TYPE’ AND FIELDVALUE= ‘1’;

SELECT XLATLONGNAME FROM PSXLATITEMLANG WHERE FIELDNAME =’TYPE’ AND FIELDVALUE= ‘1’;

How to Use scrollselect in Peoplecode

You can use scrollselect and scrollflush peoplecode function fro populate data in grid and scroll area for each requirements

For Example 1 :

Local Rowset &rs1_1, &rs1_2;

&rs1_1 = GetRowset(Scroll.TEST1_TBL);
&rs1_1.Flush();
&rs1_1.Select(Record.TEST1_TBL, “where EMPLID = :1 and EFFDT = :2 order by To_Number(EMPLID ) “, &EMPLID , &EFFDT);

&rs1_2 = GetRowset(Scroll.TEST2_TBL);
&rs1_2.Flush();
&rs1_2.Select(Record.TEST2_TBL, “where EMPLID = :1 “, &Emplid);

/*– You can Sort Effdt in Scroll Area –*/
SortScroll(1, Record.TEST1_TBL, TEST1_TBL.EFFDT, “A”);

/*– Hide Row of  TEST1_TBL–*/

Local Rowset &VET_SCROLL, &OWNER_SCROLL, &PET_SCROLL, &VISIT_SCROLL;

/*Get level 0 Rowset*/
&VET_SCROLL = GetLevel0();

/*Now get level 1*/
&OWNER_SCROLL = &VET_SCROLL.GetRow(1).GetRowset(Scroll.TEST2_TBL);

/* The way to read this is at level 0 row 1 get the Rowset for the SCROLL OWNER and call it &OWNER_SCROLL. Now lets get level 2 at row  number = 5 and hide this row of level2 */

&PET_SCROLL = &OWNER_SCROLL.GetRow(5).GetRowset(Scroll.TEST2_2_TBL);
&PET_SCROLL.HideAllRows();

For Example 2 :

Scrollflush(Scroll.TEST1_TBL)
/* Populate Data of Grid Level 1*/
Scrollselect(1,Record.TEST1_TBL,Record.TEST1_TBL,”where EMPLID = :1 and EFFDT = :2 order by To_Number(EMPLID ) “, &EMPLID , &EFFDT);

Scrollflush(Scroll.TEST2_TBL)
/* Populate Data of Grid Level 1*/
Scrollselect(1,Record.TEST2_TBL,Record.TEST2_TBL,”where EMPLID = :1 “, &Emplid);