REPORT Z_SUM_01 LINE-SIZE 160 LINE-COUNT 44 NO STANDARD PAGE HEADING . INCLUDE Z_SUM_TOP. SET MARGIN 5 5. DATA : BEGIN OF wa_zm01, WERKS TYPE ZM01-WERKS, LGORT TYPE ZM01-LGORT, MATNR TYPE ZM01-MATNR, MBLNR TYPE ZM01-MBLNR, ZEILE TYPE ZM01-ZEILE, BUDAT TYPE ZM01-BUDAT, LGNUM TYPE ZM01-LGNUM, CHARG TYPE ZM01-CHARG, SHKZG TYPE ZM01-SHKZG, MENGE TYPE ZM01-MENGE, END OF wa_zm01. DATA itab_zm01 LIKE SORTED TABLE OF wa_zm01 WITH UNIQUE KEY TABLE LINE." WITH UNIQUE KEY LGORT MBLNR ZEILE. DATA : begin of itab1 occurs 0 , WERKS LIKE MSEG-WERKS, "Plant LGORT LIKE MSEG-LGORT, "Storage MATNR LIKE MSEG-MATNR , "Material v_input LIKE MSEG-MENGE , " Return 602 v_output LIKE MSEG-MENGE , " Issue 601 v_total LIKE MSEG-MENGE , "Net Lot end of itab1 . *DATA : tab1 LIKE STANDARD TABLE OF itab1 INITIAL SIZE 33. SELECTION-SCREEN BEGIN OF BLOCK block1. PARAMETERS: pPlant LIKE MSEG-WERKS obligatory VALUE CHECK, FROMDATE LIKE BSIS-BUDAT obligatory, TODATE LIKE BSIS-BUDAT. SELECTION-SCREEN END OF BLOCK block1. PERFORM WriteHeader. PERFORM Initialize . *Select LGORT MATNR MBLNR ZEILE MENGE From ZM01 INTO CORRESPONDING FIELDS OF TABLE itab_zm01 Select * From ZM01 INTO CORRESPONDING FIELDS OF TABLE itab_zm01 Where WERKS = pPlant AND ( BUDAT GE FROMDATE ) and ( BUDAT LE TODATE ). DATA : t_input LIKE MSEG-MENGE , " Return 602 t_output LIKE MSEG-MENGE . " Issue 601 Loop at itab_zm01 into wa_zm01. AT NEW LGORT. WRITE: / 'Plan:', wa_zm01-LGORT. ULINE. ENDAT. AT NEW MATNR. WRITE: / 'Material:', wa_zm01-MATNR. ENDAT. AT END OF MATNR. itab1-LGORT = wa_zm01-LGORT. itab1-MATNR = wa_zm01-MATNR. t_input = t_input + itab1-v_input. t_output = t_output + itab1-v_output. append itab1. clear itab1. ENDAT. AT END OF LGORT. itab1-LGORT = wa_zm01-LGORT. itab1-MATNR = '********'. itab1-v_output = t_output. itab1-v_input = t_input. append itab1. clear itab1. clear t_input. clear t_output. ENDAT. IF ( wa_zm01-SHKZG = 'H' ). itab1-v_output = itab1-v_output + wa_zm01-MENGE . ELSE. itab1-v_input = itab1-v_input + wa_zm01-MENGE . ENDIF. "WRITE : / wa_zm01-LGORT , wa_zm01-MATNR ,wa_zm01-MBLNR ,wa_zm01-ZEILE,wa_zm01-MENGE. Endloop. Loop at itab1. Write : / itab1-LGORT , itab1-MATNR , itab1-v_input ,itab1-v_output. Endloop. *SELECT * FROM MSEG INTO wa_mseg * WHERE WERKS EQ pPlant ." and ( BUDAT GE FROMDATE ) and ( BUDAT LE TODATE ). * *ENDSELECT. *PERFORM UpdateReport . *PERFORM WriteReport. PERFORM TEST. FORM INITIALIZE . Clear itab_zm01. Clear itab1. ENDFORM. " INITIALIZE *&---------------------------------------------------------------------* *& Form TEST *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM TEST . Loop at itab_zm01 into wa_zm01. Endloop. ENDFORM. " TEST *&---------------------------------------------------------------------* *& Form UPDATEREPORT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM UPDATEREPORT . "Lưu chuyển tiền thuần từ hoạt động kinh doanh ENDFORM. " UPDATEREPORT *&---------------------------------------------------------------------* *& Form WRITEHEADER *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM WRITEHEADER . "FORMAT INTENSIFIED COLOR = 2. WRITE : /5(100) 'SUMMARY OF STOCK AND MONEY' COLOR COL_HEADING INTENSIFIED OFF INVERSE. ULINE. ENDFORM. " WRITEHEADER FORM WRITEREPORT. * FORMAT INTENSIFIED COLOR = 1. WRITE : /5(85) '' ,90(10) '(70)' , 100(30) '' LEFT-JUSTIFIED , 130(30) 0 LEFT-JUSTIFIED. ENDFORM. " WRITEREPORT |
Sap Technology > ABAP DEVELOPMENT >