PROCESS BEFORE OUTPUT.
*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'TC100'
MODULE TC100_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE TC100_CHANGE_COL_ATTR.
LOOP AT IT_TC1
INTO WA_TC1
WITH CONTROL TC100
CURSOR TC100-CURRENT_LINE.
MODULE TC100_GET_LINES.
*&SPWIZARD: MODULE TC100_CHANGE_FIELD_ATTR
ENDLOOP.
MODULE STATUS_9000.
*
PROCESS AFTER INPUT.
*BREAK 10115.
*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'TC100'
LOOP AT IT_TC1.
CHAIN.
FIELD WA_TC1-PART_CODE.
FIELD WA_TC1-QTY.
FIELD WA_TC1-UOM.
endchain.
ENDLOOP.
MODULE TC100_USER_COMMAND.
*&SPWIZARD: MODULE TC100_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE TC100_CHANGE_COL_ATTR.
MODULE USER_COMMAND_9000.
MODULE INSERT_DATA_9000.
PROCESS ON VALUE-REQUEST.
FIELD WA_GATE-DATE_IN MODULE F4_DATE.
FIELD WA_GATE-TIN MODULE F4_TIME.
FIELD WA_GATE-TOUT MODULE F4_TIME_OUT.
*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'TC100'
MODULE TC100_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE TC100_CHANGE_COL_ATTR.
LOOP AT IT_TC1
INTO WA_TC1
WITH CONTROL TC100
CURSOR TC100-CURRENT_LINE.
MODULE TC100_GET_LINES.
*&SPWIZARD: MODULE TC100_CHANGE_FIELD_ATTR
ENDLOOP.
MODULE STATUS_9000.
*
PROCESS AFTER INPUT.
*BREAK 10115.
*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'TC100'
LOOP AT IT_TC1.
CHAIN.
FIELD WA_TC1-PART_CODE.
FIELD WA_TC1-QTY.
FIELD WA_TC1-UOM.
endchain.
ENDLOOP.
MODULE TC100_USER_COMMAND.
*&SPWIZARD: MODULE TC100_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE TC100_CHANGE_COL_ATTR.
MODULE USER_COMMAND_9000.
MODULE INSERT_DATA_9000.
PROCESS ON VALUE-REQUEST.
FIELD WA_GATE-DATE_IN MODULE F4_DATE.
FIELD WA_GATE-TIN MODULE F4_TIME.
FIELD WA_GATE-TOUT MODULE F4_TIME_OUT.
No comments:
Post a Comment