Sap Script
Sap Script
DATA:BEGIN OF LS_EKKO,
EBELN TYPE EBELN, "Order number
AEDAT TYPE ERDAT, "Order Date
ZTERM TYPE DZTERM,"Payment mode
LIFNR TYPE LIFNR, "Vendor Account Number
END OF LS_EKKO,
BEGIN OF LS_LFA1,
LIFNR TYPE LIFNR, "Account Number of Vendor
ADRNR TYPE ADRNR, "Address
END OF LS_LFA1,
BEGIN OF LS_ADRC,
ADDRNUMBER TYPE AD_ADDRNUM, "Address number
END OF LS_ADRC,
LS_EKPO TYPE TY_EKPO,
LT_EKPO TYPE TABLE OF TY_EKPO,
V_TOTAL TYPE P DECIMALS 2.
SELECT SINGLE EBELN AEDAT ZTERM LIFNR FROM EKKO INTO LS_EKKO WHERE EBELN EQ P_EBELN.
SELECT SINGLE LIFNR ADRNR FROM LFA1 INTO LS_LFA1 WHERE LIFNR = LS_EKKO-LIFNR.
SELECT SINGLE ADDRNUMBER FROM ADRC INTO LS_ADRC WHERE ADDRNUMBER = LS_LFA1-ADRNR.
SELECT EBELP MATNR MENGE MEINS NETPR FROM EKPO INTO TABLE LT_EKPO WHERE EBELN = LS_EKKO-EBELN.
CALL FUNCTION 'OPEN_FORM’ LOOP AT LT_EKPO INTO LS_EKPO.
EXPORTING V_TOTAL = V_TOTAL + LS_EKPO-NETPR.
FORM = 'ZYFORM_PO’ CALL FUNCTION 'WRITE_FORM'
LANGUAGE = SY-LANGU. EXPORTING ELEMENT = 'ITEM_DATA'
WINDOW = 'MAIN'.
CALL FUNCTION 'START_FORM’
EXPORTING FORM = 'ZYFORM_PO’ AT LAST.
LANGUAGE = SY-LANGU.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'TOTAL'
WINDOW = 'MAIN'. ENDAT.