How to go to Label Trans ( CBGL_MP01 ) from waste disposal processing ( WAE02 )
This can be used to give choice to users to print labels from WAE02
instead of going to CBGL_MP01 for Disposal material documents.
instead of going to CBGL_MP01 for Disposal material documents.
Steps:
Create one FM ZEHSWA_LABEL_PRINT with below Import, Export and Table
interface.
interface.
Go to SPRO->EH&S->Waste Management->Disposal Processing->specify
Functions
Functions
- Click on specify functions for application toolbar
- Give function code (Ex SAP010), function test ‘Label’. after this step WAE02 shows a button with Lablel
- Assign ZEHSWA_LABEL_PRINT. this FM will be triggered when label button is triggered from WAE02
- ZEHSWA_LABEL_PRINT FM must be created as below template
FM ZEHSWA_LABEL_PRINT
*”———————————————————————-
*”*”Local Interface:
*” IMPORTING
*” VALUE(I_EANOCAT) LIKE EHSWAC_EANOCAT STRUCTURE
*” EHSWAC_EANOCAT OPTIONAL
*” VALUE(I_TRANSACTION) TYPE EHSWAE_TRANSA OPTIONAL
*” VALUE(I_WFTASK) TYPE EHSWAE_WFTASK OPTIONAL
*” VALUE(I_DIALCTR) TYPE RCGDIALCTR OPTIONAL
*” VALUE(I_FLG_BATCH) TYPE ESP1_BOOLEAN OPTIONAL
*” EXPORTING
*” VALUE(E_FLG_SAVE_PEND) TYPE ESP1_BOOLEAN
*” VALUE(E_FLG_FIRST_SAVE_DONE) TYPE ESP1_BOOLEAN
*” VALUE(E_FLG_ERROR) TYPE ESP1_BOOLEAN
*” TABLES
*” X_LG_IOTAB STRUCTURE EHSWAS_ENTAMIOT
*” X_LG_IOTAB_DEL STRUCTURE EHSWAS_ENTAMIOT
*” I_ENACC_IOTAB STRUCTURE EHSWAS_ENACCIOT OPTIONAL
*” E_MESSAGE_TAB STRUCTURE EHSWAS_ERROR_TAB OPTIONAL
*”———————————————————————-
*” VALUE(I_TRANSACTION) TYPE EHSWAE_TRANSA OPTIONAL
*” VALUE(I_WFTASK) TYPE EHSWAE_WFTASK OPTIONAL
*” VALUE(I_DIALCTR) TYPE RCGDIALCTR OPTIONAL
*” VALUE(I_FLG_BATCH) TYPE ESP1_BOOLEAN OPTIONAL
*” EXPORTING
*” VALUE(E_FLG_SAVE_PEND) TYPE ESP1_BOOLEAN
*” VALUE(E_FLG_FIRST_SAVE_DONE) TYPE ESP1_BOOLEAN
*” VALUE(E_FLG_ERROR) TYPE ESP1_BOOLEAN
*” TABLES
*” X_LG_IOTAB STRUCTURE EHSWAS_ENTAMIOT
*” X_LG_IOTAB_DEL STRUCTURE EHSWAS_ENTAMIOT
*” I_ENACC_IOTAB STRUCTURE EHSWAS_ENACCIOT OPTIONAL
*” E_MESSAGE_TAB STRUCTURE EHSWAS_ERROR_TAB OPTIONAL
*”———————————————————————-
DATA:
BEGIN OF wa_enfod,
easucc TYPE ehswat_enfod-easucc,
easucc TYPE ehswat_enfod-easucc,
easuccyear TYPE ehswat_enfod-easuccyear,
END OF wa_enfod,
END OF wa_enfod,
it_enfod
LIKE TABLE OF wa_enfod.* X_LG_IOTAB contains documents selected to go to LABEL
* For each selected document, label print will be done once
LOOPAT x_lg_iotab WHERE markflg EQ‘X’.
* To get material document created for disposal
SELECT easucc
easuccyear
INTO TABLE it_enfod
FROM ehswat_enfod
WHERE eapred EQ x_lg_iotab-entamno
AND easucccat EQ ‘SAP001’.
IF sy-subrc EQ 0.
SORT it_enfod DESCENDING.
READ TABLE it_enfod INTO wa_enfod INDEX 1.
ELSE.
CONTINUE.
ENDIF.
SELECT easucc
easuccyear
INTO TABLE it_enfod
FROM ehswat_enfod
WHERE eapred EQ x_lg_iotab-entamno
AND easucccat EQ ‘SAP001’.
IF sy-subrc EQ 0.
SORT it_enfod DESCENDING.
READ TABLE it_enfod INTO wa_enfod INDEX 1.
ELSE.
CONTINUE.
ENDIF.
* Write call transaction to goto CBGL_MP01
* Fill t_bdc_data using recording
CALL TRANSACTION ‘CBGL_MP01‘ USING t_bdc_data MODE ‘E’.
ENDLOOP.
Be the first to leave a comment
You must be Logged on to comment or reply to a post.