Record Change PeopleCode

JointLantic

6 years ago

Record Change PeopleCode

How to check record change PeopleCode in peoplesoft. I have the example about checking record in saveprechange event, field change event or save edit of PeopleCode. Define page has scroll area in level 1 and the user can edit the value of each field. When the user changes data and saves data then system update date time and operator id.

Example 1

Local Rowset &rsLevel0, &rsLevel1;
Local Row &rowLevel0, &rowLevel1; 

&rsLevel0 = GetLevel0(); 
&index = CurrentRowNumber(); 
rem WinMessage(&index, 0); 
&rowLevel0 = &rsLevel0.GetRow(1);
&rsLevel1 = &rowLevel0.GetRowset(Scroll.ScrollName); 
&rowLevel1 = &rsLevel1.GetRow(&index); 
If &rowLevel1.IsChanged Then 
   TABLE.Date.Value = %Datetime; 
   TABLE.EMPLID.Value = %OperatorId; 
End-If;

Local Rowset &rsLevel0, &rsLevel1;

Local Row &rowLevel0, &rowLevel1;

&rsLevel0 = GetLevel0();

&index = CurrentRowNumber();

rem WinMessage(&index, 0);

&rowLevel0 = &rsLevel0.GetRow(1);

&rsLevel1 = &rowLevel0.GetRowset(Scroll.ScrollName);

&rowLevel1 = &rsLevel1.GetRow(&index);

If &rowLevel1.IsChanged Then

TABLE.Date.Value = %Datetime;

TABLE.EMPLID.Value = %OperatorId;

End-If;

Example 2: Check record change from some field in page in scroll area level 1. This code using for loop all record in level one. If record changed then update filed last_emplid and LAST_UPDATE_DTTM1. I replace code at SavePreChange action of record contracts (saveedit, savepostchange,etc).

&Level0_ROWSET = GetLevel0();
For &I = 1 To &Level0_ROWSET.ActiveRowCount

If RecordChanged(Record.CONTRACTS, CurrentRowNumber(1)) Then
    rem WinMessage("Changed row message from level one.", 64);
    CONTRACTS.LAST_EMPLID.Value = %OperatorId;
    CONTRACTS.LAST_UPDATE_DTTM1.Value = %Datetime;
End-If;
End-For;

&Level0_ROWSET = GetLevel0();

For &I = 1 To &Level0_ROWSET.ActiveRowCount

If RecordChanged(Record.CONTRACTS, CurrentRowNumber(1)) Then

rem WinMessage("Changed row message from level one.", 64);

CONTRACTS.LAST_EMPLID.Value = %OperatorId;

CONTRACTS.LAST_UPDATE_DTTM1.Value = %Datetime;

End-If;

End-For;

Exmaple 3: The code would execute on level one, checks rows on level two to determine which have been changed

For &I = 1 To ActiveRowCount(RECORD.BUS_EXPENSE_PER, CurrentRowNumber(1), RECORD.BUS_EXPENSE_DTL); 
If RecordChanged(RECORD.BUS_EXPENSE_PER, CurrentRowNumber(1), RECORD.BUS_EXPENSE_DTL, &I) Then 
   WinMessage("Changed row message from level one.", 64); 
End-If; 
End-For;

For &I = 1 To ActiveRowCount(RECORD.BUS_EXPENSE_PER, CurrentRowNumber(1), RECORD.BUS_EXPENSE_DTL);

If RecordChanged(RECORD.BUS_EXPENSE_PER, CurrentRowNumber(1), RECORD.BUS_EXPENSE_DTL, &I) Then

WinMessage("Changed row message from level one.", 64);

End-If;

End-For;

Reference: https://docs.oracle.com/cd/E13292_01/pt849pbr0/eng/psbooks/tpcl/chapter.htm?File=tpcl/htm/tpcl02.htm