Peoplecode Tips

DYNAMIC PROMPTS

1. Create a dynamic view.
2. In the required event PeopleCode, do the following
   &SQL1 = "select field1 from Record1 where Eff_date = "|pagefield.effdt;
   &getfield(Record.Fieldname).sqltext = &SQL1
   where getfield will instantiate the field for which the dynamic view is used as a prompt record.

TRANSFER TO ANOTHER PAGE

Local Record &TXFR_ADD_KEYS;

&TXFR_ADD_KEYS = CreateRecord(Record.VCHR_SRCH_VW1);

&TXFR_ADD_KEYS.GetField(Field.BUSINESS_UNIT).Value = PYMNT_ADVICE.BUSINESS_UNIT;

&TXFR_ADD_KEYS.GetField(Field.VOUCHER_ID).Value = PYMNT_ADVICE.PAY_DOC_ID;

Transfer (False, MenuName.CREATE_PAYMENTS, BarName.INQUIRE, ItemName.VOUCHER_INQUIRY, Panel.VOUCHER_INQUIRY, "U", &TXFR_ADD_KEYS);

*******************************************************************************

Transfer to Process Monitor & Application Message Monitor

*******************************************************************************

Transfer ( True, MenuName.PROCESSMONITOR, BarName."INQUIRE", ItemName."PROCESSMONITOR", Panel."PMN_PRCSLIST", "U");

Transfer ( True, MenuName.APPMSGMONITOR, BarName."USE", ItemName."APPMSGMONITOR", Panel."AMM_OVERVIEW", "U");