When we click on the component portal in menu then (the page with ADD button display) Then the following below PeopleCode Events will fire.
Search Processibg in Add Mode:
Record Field FieldDefault
ComponentRecordField FieldDefault
Record Field FieldFormula
Record Field RowInit
Record Field SearchInit
ComponentRecordlevel SearchInit
-->Enter the Employee and click on Add
Record Field FeildEdit
ComponentRecordField FeildEdit
Record Field FieldChange
ComponentRecordField FieldChange
Record Field Field Formula
Record Field SaveEdit
Record Field SearchSave
ComponentRecordlevel SearchSave
Page Dispaly (or)Component Build Process in ADD Mode:
Component Level Prebuild
Record Field FieldFormula
Record Field RowInit
ComponentRecord RowInit
Component Level PostBuild
Page Activate fires and displays the page
Save Processing:
Record Field SaveEdit
ComponentRecord SaveEdit
Record Field SavePrechange
ComponentRecord SavePrechange
ComponentLevel SavePrechange
Record Field Workflow
ComponentLevel Workflow
Record Field SavePostchange
ComponentRecordlevel SavePostchange
Component Level SavePostchange
PeopleSoft World
Wednesday, May 19, 2010
Search Process of a component in Update mode (UpdateDisplay/UpdateDisplayall) and Component Build Processing or Page build process in Update/Update Displayallmode
When we click on the component portal in menu then the following below PeopleCode events will fire
Search Process
Record Field SearchInit
ComponentRecord SearchInit
-->Click on Search
Record Field SearchSave
ComponentRecord SearchSave
Component Build Process or Page Build processing in Updatedisplay/UpdateDisplayall mode
-->Select the Employee ID from the list then
Record Field RowSelect
ComponentRecord RowSelect
Component Level Prebuild
Record Field FieldFormula
Record Field RowInit
ComponentRecord RowInit
Component level Postbuild
Page Activate fires and displays the page
When we edit the field (Employee ID) then the following below PeopleCode Events will fire
-->Edit the field (Employee ID) and hit on save then the following peoplecode events will fire
Record Field FieldEdit
ComponentRecordField FieldEdit
Record Field FieldChange
ComponentRecordField FieldChange
Record Field FieldFormula
Save Processing PeopleCode Events:
Record Field SaveEdit
ComponentRecord SaveEdit
Record Field SavePrechange
ComponentRecordField SavePrechange
ComponentLevel SavePrechange
Record Field Workflow
ComponentLevel Workflow
Record Field SavePostchange
ComponentRecordlevel SavePostchange
Component Level SavePostchange
Search Process
Record Field SearchInit
ComponentRecord SearchInit
-->Click on Search
Record Field SearchSave
ComponentRecord SearchSave
Component Build Process or Page Build processing in Updatedisplay/UpdateDisplayall mode
-->Select the Employee ID from the list then
Record Field RowSelect
ComponentRecord RowSelect
Component Level Prebuild
Record Field FieldFormula
Record Field RowInit
ComponentRecord RowInit
Component level Postbuild
Page Activate fires and displays the page
When we edit the field (Employee ID) then the following below PeopleCode Events will fire
-->Edit the field (Employee ID) and hit on save then the following peoplecode events will fire
Record Field FieldEdit
ComponentRecordField FieldEdit
Record Field FieldChange
ComponentRecordField FieldChange
Record Field FieldFormula
Save Processing PeopleCode Events:
Record Field SaveEdit
ComponentRecord SaveEdit
Record Field SavePrechange
ComponentRecordField SavePrechange
ComponentLevel SavePrechange
Record Field Workflow
ComponentLevel Workflow
Record Field SavePostchange
ComponentRecordlevel SavePostchange
Component Level SavePostchange
Monday, May 3, 2010
Inserting the data into 3 levels (0,1,2,3 levels) into database from flat file using Application Engine
Inserting the data into 3 levels (0,1,2,3 levels) into database from flat file using Application Engine Below is the sample code (Ive used 2 fields in all the 3 levels)
Level0 -> Organisational ID, Organisational Name
Level1 -> College ID, College Name
Level2 -> Department ID, Department Name
Level3 -> Employee ID, Employee Name, Age
Local Record &R0, &R1, &R2, &R3;
&R0 = CreateRecord(Record.A_ORG_TBL);
&R1 = CreateRecord(Record.A_COL_TBL);
&R2 = CreateRecord(Record.A_DEPT_TBL);
&R3 = CreateRecord(Record.A_EMPL_TBL);
&myfile = GetFile("C:\temp\harsha.txt", "R", %FilePath_Absolute);
&myfile1 = GetFile("C:\temp\har.txt", "W", "A", %FilePath_Absolute);
&myfile1.writeline("empty array creation");
&myarray = CreateArrayRept("", 0);
If &myfile.Isopen Then
While &myfile.Readline(&str);
&myfile1.WRITELINE("FILE OPENED");
&myfile1.WRITELINE("string value is " | &str);
&myarray = Split(&str, ",");
SQLExec("SELECT A_ORGID FROM PS_A_ORG_TBL WHERE A_ORGID = :1", &myarray [1], &ORGID);
&myfile1.WRITELINE("array value of orgid is " | &ORGID);
&myfile1.WRITELINE(" A_ORGID VALUE IS " | &ORGID);
SQLExec("SELECT A_ORGID,A_COLID FROM PS_A_COL_TBL WHERE A_ORGID = :1", &myarray [1], &ORGID1, &COLID1);
SQLExec("SELECT A_ORGID,A_COLID,A_DEPTID FROM PS_A_DEPT_TBL WHERE A_ORGID = :1", &myarray [1], &ORGID2, &COLID2, &DEPTID);
SQLExec("SELECT A_ORGID,A_COLID,A_DEPTID FROM PS_A_DEPT_TBL WHERE A_ORGID = :1", &myarray [1], &ORGID2, &COLID2, &DEPTID);
SQLExec("SELECT A_ORGID,A_COLID,A_DEPTID,A_EMPLID FROM PS_A_EMPL_TBL WHERE A_ORGID = :1", &myarray [1], &ORGID3, &COLID3, &DEPTID3, &EID3);
If &myarray [1] = &ORGID Then
&R1.A_ORGID.Value = &myarray [1];
&R1.A_COLID.Value = &myarray [2];
&R1.A_COLNAME.Value = &myarray [3];
&R1.Insert();
&myfile1.WRITELINE("values inserted at level 1 ");
rem End-If;
rem SQLExec("SELECT A_ORGID,A_COLID,A_DEPTID FROM PS_A_DEPT_TBL WHERE A_ORGID = :1", &myarray [1], &ORGID2, &COLID2, &DEPTID);
Else
&R0.A_ORGID.Value = &myarray [1];
&R0.A_ORGNAME.Value = &myarray [2];
&R0.Insert();
&myfile1.WRITELINE("values inserted at level 0 ");
End-If;
If &myarray [1] = &ORGID1 And
&myarray [2] = &COLID1 Then
&R2.A_ORGID.Value = &myarray [1];
&R2.A_COLID.Value = &myarray [2];
&R2.A_DEPTID.Value = &myarray [3];
&R2.A_DEPTNAME.Value = &myarray [4];
&R2.Insert();
&myfile1.WRITELINE("values inserted at level 2 ");
End-If;
If &myarray [1] = &ORGID2 And
&myarray [2] = &COLID2 And
&myarray [3] = &DEPTID Then
&R3.A_ORGID.Value = &myarray [1];
&R3.A_COLID.Value = &myarray [2];
&R3.A_DEPTID.Value = &myarray [3];
&R3.A_EMPLID.Value = &myarray [4];
&R3.A_EMPNAME.Value = &myarray [5];
&R3.A_EMPLAGE.Value = &myarray [6];
&R3.Insert();
&myfile1.WRITELINE("values inserted at level 3 ");
End-If;
End-While;
&myfile.Close();
&myfile1.Close();
End-If;
Level0 -> Organisational ID, Organisational Name
Level1 -> College ID, College Name
Level2 -> Department ID, Department Name
Level3 -> Employee ID, Employee Name, Age
Local Record &R0, &R1, &R2, &R3;
&R0 = CreateRecord(Record.A_ORG_TBL);
&R1 = CreateRecord(Record.A_COL_TBL);
&R2 = CreateRecord(Record.A_DEPT_TBL);
&R3 = CreateRecord(Record.A_EMPL_TBL);
&myfile = GetFile("C:\temp\harsha.txt", "R", %FilePath_Absolute);
&myfile1 = GetFile("C:\temp\har.txt", "W", "A", %FilePath_Absolute);
&myfile1.writeline("empty array creation");
&myarray = CreateArrayRept("", 0);
If &myfile.Isopen Then
While &myfile.Readline(&str);
&myfile1.WRITELINE("FILE OPENED");
&myfile1.WRITELINE("string value is " | &str);
&myarray = Split(&str, ",");
SQLExec("SELECT A_ORGID FROM PS_A_ORG_TBL WHERE A_ORGID = :1", &myarray [1], &ORGID);
&myfile1.WRITELINE("array value of orgid is " | &ORGID);
&myfile1.WRITELINE(" A_ORGID VALUE IS " | &ORGID);
SQLExec("SELECT A_ORGID,A_COLID FROM PS_A_COL_TBL WHERE A_ORGID = :1", &myarray [1], &ORGID1, &COLID1);
SQLExec("SELECT A_ORGID,A_COLID,A_DEPTID FROM PS_A_DEPT_TBL WHERE A_ORGID = :1", &myarray [1], &ORGID2, &COLID2, &DEPTID);
SQLExec("SELECT A_ORGID,A_COLID,A_DEPTID FROM PS_A_DEPT_TBL WHERE A_ORGID = :1", &myarray [1], &ORGID2, &COLID2, &DEPTID);
SQLExec("SELECT A_ORGID,A_COLID,A_DEPTID,A_EMPLID FROM PS_A_EMPL_TBL WHERE A_ORGID = :1", &myarray [1], &ORGID3, &COLID3, &DEPTID3, &EID3);
If &myarray [1] = &ORGID Then
&R1.A_ORGID.Value = &myarray [1];
&R1.A_COLID.Value = &myarray [2];
&R1.A_COLNAME.Value = &myarray [3];
&R1.Insert();
&myfile1.WRITELINE("values inserted at level 1 ");
rem End-If;
rem SQLExec("SELECT A_ORGID,A_COLID,A_DEPTID FROM PS_A_DEPT_TBL WHERE A_ORGID = :1", &myarray [1], &ORGID2, &COLID2, &DEPTID);
Else
&R0.A_ORGID.Value = &myarray [1];
&R0.A_ORGNAME.Value = &myarray [2];
&R0.Insert();
&myfile1.WRITELINE("values inserted at level 0 ");
End-If;
If &myarray [1] = &ORGID1 And
&myarray [2] = &COLID1 Then
&R2.A_ORGID.Value = &myarray [1];
&R2.A_COLID.Value = &myarray [2];
&R2.A_DEPTID.Value = &myarray [3];
&R2.A_DEPTNAME.Value = &myarray [4];
&R2.Insert();
&myfile1.WRITELINE("values inserted at level 2 ");
End-If;
If &myarray [1] = &ORGID2 And
&myarray [2] = &COLID2 And
&myarray [3] = &DEPTID Then
&R3.A_ORGID.Value = &myarray [1];
&R3.A_COLID.Value = &myarray [2];
&R3.A_DEPTID.Value = &myarray [3];
&R3.A_EMPLID.Value = &myarray [4];
&R3.A_EMPNAME.Value = &myarray [5];
&R3.A_EMPLAGE.Value = &myarray [6];
&R3.Insert();
&myfile1.WRITELINE("values inserted at level 3 ");
End-If;
End-While;
&myfile.Close();
&myfile1.Close();
End-If;
Wednesday, January 6, 2010
Steps for creating a GOTO ROW
STEPS FOR CREATING GOTO ROW
===========================
1.Create a new Field (TIN1_GOTOROW)
2.Create a new record (TIN1_GOWTO_WRK) and select the radio button Derived/Work.
Write the following below people code in the Field change in the Field level in TIN1_GOWTO_WRK table.
==============================================================================
&tinku = DoModal(Page.TIN1_GTROW_PNL, "Secondary Page ", - 1, - 1);
If (&tinku = 1) Then
&rowentered = GetRecord(Record.TIN1_GOWTO_WRK).GetField(Field.TIN1_GOTOROW).Value;
rem WinMessage("hai", 64);
If All(&rowentered) Then
¤trow = GetRowset();
If (1 <= &rowentered And
&rowentered <= ¤trow.activerowcount) Then
REM IN THE BAOVE THE HIGHEST VALUE WILL BE PERSENT;
&reqrow = GetRowset()(&rowentered);
&field = &reqrow.getrecord(1).getfield(1);
&field.SetCursorPos(%Page);
Else
WinMessage("THE ROW IS WITH IN THE TABLE ", 64);
End-If;
End-If;
End-If;
=============================================================================
3.Create a new secondary page (TIN1_GTROW_PNL)
4.Drag and drop the WRK record in to the page.
5.Save it.
===========================
1.Create a new Field (TIN1_GOTOROW)
2.Create a new record (TIN1_GOWTO_WRK) and select the radio button Derived/Work.
Write the following below people code in the Field change in the Field level in TIN1_GOWTO_WRK table.
==============================================================================
&tinku = DoModal(Page.TIN1_GTROW_PNL, "Secondary Page ", - 1, - 1);
If (&tinku = 1) Then
&rowentered = GetRecord(Record.TIN1_GOWTO_WRK).GetField(Field.TIN1_GOTOROW).Value;
rem WinMessage("hai", 64);
If All(&rowentered) Then
¤trow = GetRowset();
If (1 <= &rowentered And
&rowentered <= ¤trow.activerowcount) Then
REM IN THE BAOVE THE HIGHEST VALUE WILL BE PERSENT;
&reqrow = GetRowset()(&rowentered);
&field = &reqrow.getrecord(1).getfield(1);
&field.SetCursorPos(%Page);
Else
WinMessage("THE ROW IS WITH IN THE TABLE ", 64);
End-If;
End-If;
End-If;
=============================================================================
3.Create a new secondary page (TIN1_GTROW_PNL)
4.Drag and drop the WRK record in to the page.
5.Save it.
Subscribe to:
Posts (Atom)