*---------------------------------------------------------------------- *ZSDR017-客户订货价格和库存 *---------------------------------------------------------------------- REPORT ZSDR017 NO STANDARD PAGE HEADING MESSAGE-ID ZSD LINE-SIZE 132 LINE-COUNT 65. *---------------------------------------------------------------------- * TYPE-POOLS *---------------------------------------------------------------------- TYPE-POOLS: SLIS, "ALV TRUXS. *---------------------------------------------------------------------- * TABLES/Structure *---------------------------------------------------------------------- TABLES: MARA, MARM, T179, KONP, MARD, KNA1, VBAK, TWVK, RV130. " zstatu ZSD008 ZSD13 *---------------------------------------------------------------------- * DAGTA /Internal table *---------------------------------------------------------------------- *&(contain all) DATA: BEGIN OF IT_DATA OCCURS 0, MATNR LIKE MARA-MATNR,"kunnr ->model(s) ->matnr(s) PRDHA LIKE MARA-PRDHA,"产品层次 ZMDNM LIKE MARA-ZMDNM,"型号 UMREZ LIKE MARM-UMREZ,"单位 MATKL LIKE MARA-MATKL,"品牌 UMREZ1(10) TYPE C, "单位 ZONGL(200) TYPE C, "总类别 FENEL(200) TYPE C, "分类别 STATU(50) TYPE C, "料状态 XHTXT(100) TYPE C, "型号描述 XHTXT1(100) TYPE C, "Internal comment KBETR LIKE KONP-KBETR,"价格： KCNGE LIKE MARD-LABST,"现库存 DINSH LIKE MARD-LABST,"default 0,供用户输入 LAST1 LIKE MARD-LABST,"最近一次订单数 LAST2 LIKE MARD-LABST,"倒数第二次订单数 LAST3 LIKE MARD-LABST,"倒数第三次订单数 KONWA LIKE KONP-KONWA, END OF IT_DATA. DATA: WA_DATA LIKE IT_DATA. *&PDF: DATA: BEGIN OF IT_DATAP OCCURS 0, KUNNR LIKE KNA1-KUNNR,"kunnr ZMDNM LIKE MARA-ZMDNM,"型号 "Model to get matkl to decide log. MATKL LIKE MARA-MATKL,"brand ZONGL(200) TYPE C, "总类别 Main Category FENEL(200) TYPE C, "分类别 Sub Category STATU(50) TYPE C, "料状态 Status UMREZ1(10) TYPE C, "单位 MC Qty XHTXT(50) TYPE C, "型号描述 Item text XHTXT1(100) TYPE C, "Internal comment Prod Subhead *&CHAGNE ON 20140214. KBETR TYPE STRING, * KBETR LIKE KONP-KBETR,"价格：US$ KCNGE LIKE MARD-LABST,"现库存 Current Availabile fixed value KCSHU(50) TYPE C, "库存 district END OF IT_DATAP. *&CSV: DATA: BEGIN OF IT_DATAC OCCURS 0, STATU(50) TYPE C, "料状态 ZONGL(200) TYPE C, "总类别 Main Category FENEL(200) TYPE C, "分类别 Sub Category UMREZ1(10) TYPE C, "单位 MC Qty ZMDNM LIKE MARA-ZMDNM,"型号 Model Name KCNGE LIKE MARD-LABST,"现库存 Current Available KCSHU(50) TYPE C, "库存 DINSH LIKE MARD-LABST,"default 0,供用户输入 Ordered Qty LAST1 LIKE MARD-LABST,"最近一次订单数 Last-1 Ordered Qty LAST2 LIKE MARD-LABST,"倒数第二次订单数 Last-1 Ordered Qty LAST3 LIKE MARD-LABST,"倒数第三次订单数 Last-1 Ordered Qty END OF IT_DATAC. DATA:ITAB1 TYPE TRUXS_T_TEXT_DATA, WA_ITAB1 LIKE LINE OF ITAB1. *---------------------------------------------------------------------- * Data parameters for alv report use *---------------------------------------------------------------------- DATA: G_PROGRAM TYPE SY-REPID, GW_LAYOUT TYPE SLIS_LAYOUT_ALV, GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV, GT_EVENT TYPE SLIS_T_EVENT, WA_EVENT TYPE SLIS_ALV_EVENT, TOP_OF_PAGE TYPE SLIS_T_LISTHEADER. DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID. DATA L_LEN TYPE I. CONSTANTS:ER_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'. DATA:G_FILE LIKE RLGRAP-FILENAME. DATA:S_FILE LIKE RLGRAP-FILENAME. DATA:LINE(1000) TYPE C. *====================================================================== * SELECTION-SCREEN *====================================================================== SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001. PARAMETERS: P_KUNNR LIKE KNA1-KUNNR OBLIGATORY, P_KSCHL LIKE TWVK-KSCHL DEFAULT 'ZP01'. *S_KUNNR FOR KNA1-KUNNR, SELECT-OPTIONS: S_MATNR FOR MARA-MATNR. "NO-DISPLAY. SELECT-OPTIONS: S_VKORG FOR VBAK-VKORG DEFAULT '1100', S_VTWEG FOR VBAK-VTWEG DEFAULT '10'. PARAMETERS: P_ERDAT LIKE MARA-ERSDA DEFAULT SY-DATUM. SELECTION-SCREEN SKIP 1. PARAMETERS:P_SEFILE LIKE RLGRAP-FILENAME DEFAULT '/mnt/ReceiveFromMG/Report/'. SELECTION-SCREEN SKIP 1. SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT-002. PARAMETERS: RB_PDF RADIOBUTTON GROUP R1 DEFAULT 'X', RB_CSV RADIOBUTTON GROUP R1, RB_ALV RADIOBUTTON GROUP R1. SELECTION-SCREEN END OF BLOCK BLK2. SELECTION-SCREEN END OF BLOCK BLK1. *---------------------------------------------------------------------- * INITIALIZATION *---------------------------------------------------------------------- INITIALIZATION. * 初始化数据 PERFORM FRM_INITIAL. *---------------------------------------------------------------------- * AT SELECTION-SCREEN *---------------------------------------------------------------------- AT SELECTION-SCREEN. * 权限检查部分 PERFORM FRM_CHECK_AUTHOR. *====================================================================== * MAIN PROGRAM *====================================================================== * START-OF-SELECTION *---------------------------------------------------------------------- START-OF-SELECTION. *&获取数据 PERFORM FRM_GET_DATA. CASE 'X'. WHEN RB_PDF. CHECK IT_DATAP[] IS NOT INITIAL. PERFORM FRM_PDF_OUT. WHEN RB_CSV. CHECK IT_DATAC[] IS NOT INITIAL. PERFORM FRM_CSV_OUT. WHEN RB_ALV. *&ALV展示输出 CHECK IT_DATA[] IS NOT INITIAL. PERFORM FRM_ALV_OUTPUT. WHEN OTHERS. ENDCASE. *---------------------------------------------------------------------- * END-OF-SELECTION *---------------------------------------------------------------------- *&---------------------------------------------------------------------* *& Form FRM_INITIAL *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_INITIAL. ENDFORM. " FRM_INITIAL *&---------------------------------------------------------------------* *& Form FRM_CHECK_AUTHOR *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_CHECK_AUTHOR. ENDFORM. " FRM_CHECK_AUTHOR *&---------------------------------------------------------------------* *& Form frm_get_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_GET_DATA . DATA:BEGIN OF LT_ZSTATU OCCURS 0, ZMDNM LIKE ZT0001-ZMDNM, STATU (50) TYPE C, "料状态 END OF LT_ZSTATU. DATA:BEGIN OF LT_KEHU OCCURS 0, KUNNR LIKE KNA1-KUNNR, MATNR LIKE MARA-MATNR, MATN1 LIKE MARA-MATNR, ZMDNM LIKE MARA-ZMDNM, END OF LT_KEHU. DATA:BEGIN OF LT_BANB OCCURS 0, KUNNR LIKE KNVV-KUNNR, KVGR1 LIKE ZSD008-MATVD, KVGR2 LIKE ZSD008-MATVD, KVGR3 LIKE ZSD008-MATVD, KVGR4 LIKE ZSD008-MATVD, KVGR5 LIKE ZSD008-MATVD, END OF LT_BANB. DATA:BEGIN OF LT_KOTG OCCURS 0, KSCHL LIKE KOTG001-KSCHL, KUNNR LIKE KOTG001-KUNNR, MATNR LIKE KOTG001-MATNR, END OF LT_KOTG. DATA:G_TABIX TYPE SY-TABIX. DATA:BEGIN OF LT_ZSD008 OCCURS 0, MATVN LIKE ZSD008-MATVN, MATVD LIKE ZSD008-MATVD, END OF LT_ZSD008. DATA:BEGIN OF LT_MARD OCCURS 0, MATNR LIKE MARD-MATNR, LABST LIKE MARD-LABST, END OF LT_MARD. DATA:BEGIN OF LT_MARD3 OCCURS 0, MATNR LIKE MARD-MATNR, LABST LIKE MARD-LABST,"未交 qty END OF LT_MARD3. DATA: BEGIN OF LT_A004 OCCURS 0, KSCHL LIKE A004-KSCHL, MWSKZ LIKE A003-MWSKZ, MATNR LIKE A004-MATNR, KBETR LIKE KONP-KBETR, END OF LT_A004. DATA: BEGIN OF LT_A005 OCCURS 0, MATNR LIKE A005-MATNR, KNUMH LIKE A005-KNUMH, KBETR LIKE KONP-KBETR, KMEIN LIKE KONP-KMEIN, KONWA LIKE KONP-KONWA, END OF LT_A005. DATA:BEGIN OF LT_KONP OCCURS 0, KNUMH LIKE KONP-KNUMH, KBETR LIKE KONP-KBETR, KMEIN LIKE KONP-KMEIN, KONWA LIKE KONP-KONWA, END OF LT_KONP. DATA: LV_NAME LIKE THEAD-TDNAME, LT_LINE LIKE STANDARD TABLE OF TLINE, LWA_LINE LIKE LINE OF LT_LINE, LV_TEXT TYPE STRING. DATA: BEGIN OF LT_ZSD13 OCCURS 0, VBELN LIKE ZSD13-VBELN, POSNR LIKE ZSD13-POSNR, MATNR LIKE ZSD13-MATNR, KWMENG LIKE ZSD13-KWMENG, "订单数量 RFMNGM LIKE ZSD13-RFMNGM, "确认的数量 *BMENG LIKE ZSD13-BMENG, "确认的数量 ERDAT LIKE ZSD13-ERDAT, END OF LT_ZSD13. DATA: BEGIN OF LT_ZSD131 OCCURS 0, MATNR LIKE VBAP-MATNR, WJENG LIKE VBAP-KWMENG,"未交 qty END OF LT_ZSD131. DATA: BEGIN OF LT_VBAK OCCURS 0, MATNR LIKE VBAP-MATNR, VBELN LIKE VBAK-VBELN, ERDAT LIKE VBAK-ERDAT, ERZET LIKE VBAK-ERZET, VBTYP LIKE VBAK-VBTYP, KUNNR LIKE VBAK-KUNNR, END OF LT_VBAK, WA_VBAK LIKE LT_VBAK. DATA: BEGIN OF LT_VBAK1 OCCURS 0, MATNR LIKE VBAP-MATNR, VBELN LIKE VBAK-VBELN, VBTYP LIKE VBAK-VBTYP, KUNNR LIKE VBAK-KUNNR, KWMENG LIKE VBAP-KWMENG, INDEX TYPE SY-TABIX, END OF LT_VBAK1. DATA:L_KBETR TYPE STRING, L_KONWA TYPE STRING. *&G1.1.kunnr get matnr SELECT A~KUNAG AS KUNNR B ~MATNR INTO TABLE LT_KEHU FROM KOTG951 AS A JOIN MVKE AS B ON A~ZZMVGR2 EQ B~MVGR2 WHERE A~KUNAG EQ P_KUNNR AND A~DATBI GE P_ERDAT AND A~DATAB LE P_ERDAT AND B~VKORG IN S_VKORG AND B~VTWEG IN S_VTWEG *&->CHANGE AND B~MATNR IN S_MATNR. *&-> use for test D300 IF SY-MANDT NE '300'. IF SY-SUBRC NE 0. MESSAGE S001 DISPLAY LIKE 'W'. EXIT. ENDIF. ENDIF. DELETE ADJACENT DUPLICATES FROM LT_KEHU COMPARING ALL FIELDS. *&G1.2.kunnr get kvgr1 ->kvgr5(versions) delete SELECT KUNNR KVGR1 KVGR2 KVGR3 KVGR4 KVGR5 INTO TABLE LT_BANB FROM KNVV WHERE KUNNR EQ P_KUNNR AND VKORG IN S_VKORG AND VTWEG IN S_VTWEG. *&G1.3 get delete condition(version code) matnr+8(2) compare SELECT MATVN MATVD INTO TABLE LT_ZSD008 FROM ZSD008 FOR ALL ENTRIES IN LT_BANB WHERE MATVD EQ LT_BANB-KVGR1 OR MATVD EQ LT_BANB-KVGR2 OR MATVD EQ LT_BANB-KVGR3 OR MATVD EQ LT_BANB-KVGR4 OR MATVD EQ LT_BANB-KVGR5. **&G1.4.delete by version： * LOOP AT LT_KEHU. * G_TABIX = SY-TABIX. * LT_KEHU-MATN1 = LT_KEHU-MATNR+7(2). * READ TABLE LT_ZSD008 WITH KEY MATVN = LT_KEHU-MATN1. * IF SY-SUBRC NE 0. * DELETE LT_KEHU INDEX G_TABIX. * CLEAR LT_KEHU. * ELSE. * MODIFY LT_KEHU TRANSPORTING MATN1. * CLEAR LT_KEHU. * ENDIF. **MODIFY LT_KEHU TRANSPORTING MATN1. **SELECT SINGLE ZMDNM * ENDLOOP. *&->CHANGE BY VN0037 ON 20130214. *&G1.7.delete matnr LOOP AT LT_KEHU. G_TABIX = SY-TABIX. *&2.delete not end with '10'. IF LT_KEHU-MATNR+13(2) NE '10'. DELETE LT_KEHU INDEX G_TABIX. CLEAR:LT_KEHU. CONTINUE. ENDIF. *&1.delete by version： LT_KEHU -MATN1 = LT_KEHU-MATNR+7(2). READ TABLE LT_ZSD008 WITH KEY MATVN = LT_KEHU-MATN1. IF SY-SUBRC NE 0. DELETE LT_KEHU INDEX G_TABIX. CLEAR LT_KEHU. CONTINUE. ENDIF. MODIFY LT_KEHU TRANSPORTING MATN1. CLEAR LT_KEHU. ENDLOOP. *&G1.5. kunnr 'ZDIV' get useful matnr SELECT KSCHL KUNNR MATNR INTO TABLE LT_KOTG FROM KOTG001 WHERE KSCHL IN ('ZDIV','B001') AND KUNNR EQ P_KUNNR AND DATAB LE P_ERDAT AND DATBI GE P_ERDAT. *&G1.6.add'ZDIV' type， delete‘B001’type->Last kunnr matnr. LOOP AT LT_KOTG." WHERE KSCHL EQ 'ZDIV'. *& +'ZDIV'. IF LT_KOTG-KSCHL EQ 'ZDIV'. LT_KEHU -KUNNR = LT_KOTG-KUNNR. LT_KEHU -MATNR = LT_KOTG-MATNR. APPEND LT_KEHU. ELSE. *& - 'B001'. DELETE LT_KEHU WHERE MATNR EQ LT_KOTG-MATNR. ENDIF. ENDLOOP. **&G1.7.delete matnr * LOOP AT LT_KEHU. * G_TABIX = SY-TABIX. **&2.delete not end with '10'. * IF LT_KEHU-MATNR+13(2) NE '10'. * DELETE LT_KEHU INDEX G_TABIX. * CLEAR:LT_KEHU. * CONTINUE. * ENDIF. **&1.delete by version： * LT_KEHU-MATN1 = LT_KEHU-MATNR+7(2). * READ TABLE LT_ZSD008 WITH KEY MATVN = LT_KEHU-MATN1. * IF SY-SUBRC NE 0. * DELETE LT_KEHU INDEX G_TABIX. * CLEAR LT_KEHU. * CONTINUE. * ENDIF. * MODIFY LT_KEHU TRANSPORTING MATN1. * CLEAR LT_KEHU. * * ENDLOOP. *&G2.1 Matnr geted to find mara + MODLE *&->test for D300. IF LT_KEHU[] IS NOT INITIAL. SELECT A~MATNR A ~PRDHA A ~ZMDNM B ~UMREZ A ~MATKL INTO TABLE IT_DATA FROM MARA AS A JOIN MARM AS B ON A~MATNR EQ B~MATNR FOR ALL ENTRIES IN LT_KEHU WHERE A~MATNR EQ LT_KEHU-MATNR AND B~MEINH EQ 'KAR'. ELSE. SELECT A~MATNR A ~PRDHA A ~ZMDNM B ~UMREZ INTO CORRESPONDING FIELDS OF TABLE IT_DATA FROM MARA AS A JOIN MARM AS B ON A~MATNR EQ B~MATNR WHERE A~MATNR IN S_MATNR AND B~MEINH EQ 'KAR'. " ENDIF. DESCRIBE TABLE IT_DATA LINES L_LEN. IF L_LEN EQ 0. MESSAGE S001 WITH 'No data！' DISPLAY LIKE 'W'. EXIT. ENDIF. SORT IT_DATA BY MATNR. *&G2.2.Get model statu SELECT ZMDNM "STATU INTO TABLE LT_ZSTATU FROM ZT0001 FOR ALL ENTRIES IN IT_DATA *&->change *WHERE ZMDNM EQ IT_DATA-ZMDNM WHERE ZMDNM EQ IT_DATA-ZMDNM AND ZDATE GE P_ERDAT. * SELECT ZMDNM "STATU * INTO TABLE LT_ZSTATU * FROM ZSTATU * SELECT A~MATNR * B~KBETR * INTO TABLE LT_A004 * FROM A004 AS A * JOIN KONP AS B * ON A~KNUMH EQ B~KNUMH * AND A~KSCHL EQ B~KSCHL * WHERE A~KSCHL EQ p_KSCHL * AND A~VKORG IN S_VKORG * AND A~VTWEG IN S_VTWEG * AND A~DATAB LE P_ERDAT *& A006. IF IT_DATA[] IS NOT INITIAL. *&G2.3 KUNNR MATNR GET KUNMH :得条件记录号 SELECT MATNR KNUMH INTO TABLE LT_A005 FROM A005 FOR ALL ENTRIES IN IT_DATA WHERE KAPPL EQ 'V' AND KSCHL EQ P_KSCHL AND VKORG IN S_VKORG AND VTWEG IN S_VTWEG AND KUNNR EQ P_KUNNR AND MATNR EQ IT_DATA-MATNR AND DATBI GE P_ERDAT AND DATAB LE P_ERDAT. DATA:LV_KONDA LIKE KNVV-KONDA. CLEAR LV_KONDA. SELECT SINGLE KONDA INTO LV_KONDA FROM KNVV WHERE KUNNR EQ P_KUNNR. SELECT MATNR KNUMH APPENDING TABLE LT_A005 FROM A032 FOR ALL ENTRIES IN IT_DATA WHERE KAPPL EQ 'V' AND KSCHL EQ P_KSCHL AND VKORG IN S_VKORG AND VTWEG IN S_VTWEG AND KONDA EQ LV_KONDA AND MATNR EQ IT_DATA-MATNR AND DATBI GE P_ERDAT AND DATAB LE P_ERDAT. ENDIF. IF SY-SUBRC EQ 0. *&G2.4 matnr get kbetr. SELECT KNUMH KBETR KMEIN *&CHAGNE ON 20140214. KONWA INTO TABLE LT_KONP FROM KONP FOR ALL ENTRIES IN LT_A005 WHERE KNUMH EQ LT_A005-KNUMH AND KSCHL EQ P_KSCHL AND KOPOS EQ '1'. SORT LT_KONP BY KNUMH. ENDIF. *&G2.5 get matnr kbetr. LOOP AT LT_A005. READ TABLE LT_KONP WITH KEY KNUMH = LT_A005-KNUMH BINARY SEARCH. IF SY-SUBRC EQ 0. LT_A005 -KBETR = LT_KONP-KBETR. LT_A005 -KMEIN = LT_KONP-KMEIN. LT_A005 -KONWA = LT_KONP-KONWA. ENDIF. MODIFY LT_A005. ENDLOOP. SORT LT_A005 BY MATNR. *&G3.1 Get kucun *& 是否存在负库存，？ SELECT MATNR LABST INTO TABLE LT_MARD FROM MARD FOR ALL ENTRIES IN IT_DATA WHERE MATNR EQ IT_DATA-MATNR AND ( WERKS EQ '1100' AND LGORT EQ '1100' OR LGORT EQ '1181' OR ( WERKS EQ '3300' AND LGORT EQ '3351' OR LGORT EQ '3352' OR LGORT EQ '3353' ) ). *&G3.2. get matnr labst LOOP AT LT_MARD. MOVE-CORRESPONDING LT_MARD TO LT_MARD3. COLLECT LT_MARD3. ENDLOOP. SORT LT_MARD3 BY MATNR. *&G3.3 zsd13 open so-aty (根据matnr 已做好 car 和pc 转换) order-qty quren-qyr SELECT A~VBELN A ~POSNR A ~MATNR A ~KWMENG"订单数量 A ~RFMNGM"确认数量 A ~ERDAT "创建日期 INTO TABLE LT_ZSD13 FROM ZSD13 AS A JOIN VBAK AS B ON A~VBELN EQ B~VBELN FOR ALL ENTRIES IN IT_DATA WHERE A~MATNR EQ IT_DATA-MATNR *&->change * AND A~KUNNR EQ P_KUNNR AND B~VBTYP EQ 'C'. *&G3.4. get open-qty LOOP AT LT_ZSD13. LT_ZSD131 -MATNR = LT_ZSD13-MATNR. LT_ZSD131 -WJENG = LT_ZSD13-KWMENG - LT_ZSD13-RFMNGM. COLLECT LT_ZSD131. ENDLOOP. SORT LT_ZSD131 BY MATNR. *&G4.1 kunnr -> vbeln SELECT B~MATNR A ~VBELN A ~ERDAT A ~ERZET A ~VBTYP"凭证类别 AUART "销售凭证类型 A ~KUNNR INTO TABLE LT_VBAK FROM VBAK AS A JOIN VBAP AS B ON A~VBELN EQ B~VBELN FOR ALL ENTRIES IN IT_DATA WHERE A~KUNNR EQ P_KUNNR AND A~VKORG IN S_VKORG AND A~VTWEG IN S_VTWEG AND A~VBTYP EQ 'C' "订单 -》‘H’退货 AND B~MATNR EQ IT_DATA-MATNR. SORT LT_VBAK BY MATNR VBELN DESCENDING. DATA: LV_CNT TYPE I, LV_MATNR TYPE MARA-MATNR. LOOP AT LT_VBAK. *&G4.2 get vbeln matnr kwmeng * 得到订单数量是否要考虑 kunnr + matnr. * MOVE LT_VBAK TO WA_VBAK. IF LV_MATNR EQ ''. LV_MATNR = LT_VBAK-MATNR. LV_CNT = '1'. LT_VBAK1 -INDEX = LV_CNT. LT_VBAK1 -MATNR = LT_VBAK-MATNR. LT_VBAK1 -VBELN = LT_VBAK-VBELN. LT_VBAK1 -VBTYP = LT_VBAK-VBTYP. LT_VBAK1 -KUNNR = LT_VBAK-KUNNR. SELECT SINGLE SUM( KWMENG ) INTO LT_VBAK1-KWMENG FROM VBAP WHERE VBELN EQ LT_VBAK-VBELN AND MATNR EQ LT_VBAK-MATNR. ELSE. IF LV_MATNR = LT_VBAK-MATNR. LV_CNT = LV_CNT + 1. LT_VBAK1 -INDEX = LV_CNT. LT_VBAK1 -MATNR = LT_VBAK-MATNR. LT_VBAK1 -VBELN = LT_VBAK-VBELN. LT_VBAK1 -VBTYP = LT_VBAK-VBTYP. LT_VBAK1 -KUNNR = LT_VBAK-KUNNR. SELECT SINGLE SUM( KWMENG ) INTO LT_VBAK1-KWMENG FROM VBAP WHERE VBELN EQ LT_VBAK-VBELN AND MATNR EQ LT_VBAK-MATNR. IF LV_CNT GT 3. CONTINUE. ENDIF. ELSE. LV_MATNR = LT_VBAK-MATNR. LV_CNT = 1. LT_VBAK1 -INDEX = LV_CNT. LT_VBAK1 -MATNR = LT_VBAK-MATNR. LT_VBAK1 -VBELN = LT_VBAK-VBELN. LT_VBAK1 -VBTYP = LT_VBAK-VBTYP. LT_VBAK1 -KUNNR = LT_VBAK-KUNNR. SELECT SINGLE SUM( KWMENG ) INTO LT_VBAK1-KWMENG FROM VBAP WHERE VBELN EQ LT_VBAK-VBELN AND MATNR EQ LT_VBAK-MATNR. ENDIF. ENDIF. APPEND LT_VBAK1. ENDLOOP. SORT LT_VBAK1 BY MATNR INDEX. **&G5.Get us from knop. LOOP AT IT_DATA. *&L1.GET PRODH name. SELECT SINGLE VTEXT INTO IT_DATA-ZONGL FROM T179T WHERE SPRAS EQ SY-LANGU AND PRODH EQ IT_DATA-PRDHA+0(4). SELECT SINGLE VTEXT INTO IT_DATA-FENEL FROM T179T WHERE SPRAS EQ SY-LANGU AND PRODH EQ IT_DATA-PRDHA+0(10). LV_NAME = IT_DATA-MATNR. *&L2.Get TXT for model descibe CALL FUNCTION 'READ_TEXT' EXPORTING CLIENT = SY-MANDT ID = 'GRUN' "P_TEXTID LANGUAGE = SY-LANGU NAME = LV_NAME OBJECT = 'MATERIAL' TABLES LINES = LT_LINE EXCEPTIONS ID = 1 LANGUAGE = 2 NAME = 3 NOT_FOUND = 4 OBJECT = 5 REFERENCE_CHECK = 6 WRONG_ACCESS_TO_ARCHIVE = 7 OTHERS = 8. IF SY-SUBRC EQ 0. LOOP AT LT_LINE INTO LWA_LINE. CONCATENATE LWA_LINE-TDLINE LV_TEXT INTO LV_TEXT. ENDLOOP. IT_DATA -XHTXT = LV_TEXT. REPLACE '<(>&<)>' IN IT_DATA-XHTXT WITH '&'. CLEAR:LT_LINE[], LT_LINE, LV_TEXT. ENDIF. *&L3.Get long txt. CALL FUNCTION 'READ_TEXT' EXPORTING CLIENT = SY-MANDT ID = 'IVER' "P_TEXTID LANGUAGE = SY-LANGU NAME = LV_NAME OBJECT = 'MATERIAL' TABLES LINES = LT_LINE EXCEPTIONS ID = 1 LANGUAGE = 2 NAME = 3 NOT_FOUND = 4 OBJECT = 5 REFERENCE_CHECK = 6 WRONG_ACCESS_TO_ARCHIVE = 7 OTHERS = 8. IF SY-SUBRC EQ 0. LOOP AT LT_LINE INTO LWA_LINE. CONCATENATE LWA_LINE-TDLINE LV_TEXT INTO LV_TEXT. ENDLOOP. IT_DATA -XHTXT1 = LV_TEXT. REPLACE '<(>&<)>' IN IT_DATA-XHTXT1 WITH '&'. CLEAR:LT_LINE[], LT_LINE, LV_TEXT. ENDIF. *ENDIF. *&L4.get dinsh: IT_DATA -DINSH = 0. *&L5.get umrez1 IT_DATA -UMREZ1 = IT_DATA-UMREZ. CONDENSE IT_DATA-UMREZ1 NO-GAPS. CONCATENATE IT_DATA-UMREZ1 ' pc(s)' INTO IT_DATA-UMREZ1. *&L6.get statu: READ TABLE LT_ZSTATU WITH KEY ZMDNM = IT_DATA-ZMDNM BINARY SEARCH. IF SY-SUBRC EQ 0. IT_DATA -STATU = 'New'. ENDIF. *&L7.get us$ READ TABLE LT_A005 WITH KEY MATNR = IT_DATA-MATNR BINARY SEARCH. IF SY-SUBRC EQ 0. IT_DATA -KONWA = LT_A005-KONWA. *& Convert units CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING INPUT = LT_A005-KMEIN LANGUAGE = '1' IMPORTING * LONG_TEXT = OUTPUT = LT_A005-KMEIN * SHORT_TEXT = EXCEPTIONS UNIT_NOT_FOUND = 1 OTHERS = 2. IF LT_A005-KMEIN EQ 'PC'. IT_DATA -KBETR = LT_A005-KBETR. ELSE. IT_DATA -KBETR = LT_A005-KBETR / IT_DATA-UMREZ."转换单位 ENDIF. ENDIF. *&L8.get labst READ TABLE LT_MARD3 WITH KEY MATNR = IT_DATA-MATNR BINARY SEARCH. IF SY-SUBRC EQ 0. IT_DATA -KCNGE = LT_MARD3-LABST. ENDIF. READ TABLE LT_ZSD131 WITH KEY MATNR = IT_DATA-MATNR BINARY SEARCH. IF SY-SUBRC EQ 0. IT_DATA -KCNGE = IT_DATA-KCNGE - LT_ZSD131-WJENG. ENDIF. *&L9.get last3 order qty:--->这里的是以CAR 为单位的数量 READ TABLE LT_VBAK1 WITH KEY MATNR = IT_DATA-MATNR INDEX = 3. IF SY-SUBRC EQ 0. IT_DATA -LAST3 = LT_VBAK1-KWMENG * IT_DATA-UMREZ. ENDIF. *&L10 get last2 order qty: READ TABLE LT_VBAK1 WITH KEY MATNR = IT_DATA-MATNR INDEX = 2. IF SY-SUBRC EQ 0. IT_DATA -LAST2 = LT_VBAK1-KWMENG * IT_DATA-UMREZ. ENDIF. *&L11 get last1 order qty: READ TABLE LT_VBAK1 WITH KEY MATNR = IT_DATA-MATNR INDEX = 1. IF SY-SUBRC EQ 0. IT_DATA -LAST1 = LT_VBAK1-KWMENG * IT_DATA-UMREZ. ENDIF. IF RB_PDF EQ 'X'. L_KBETR = IT_DATA-KBETR. L_KONWA = IT_DATA-KONWA. MOVE-CORRESPONDING IT_DATA TO IT_DATAP. CONCATENATE L_KBETR L_KONWA INTO IT_DATAP-KBETR SEPARATED BY SPACE. COLLECT IT_DATAP. DELETE IT_DATAP WHERE ZONGL IS INITIAL. ELSE. MOVE-CORRESPONDING IT_DATA TO IT_DATAC. COLLECT IT_DATAC. DELETE IT_DATAC WHERE ZONGL IS INITIAL. ENDIF. MODIFY IT_DATA." INDEX SY-TABIX. ENDLOOP. * DESCRIBE TABLE LT_data LINES L_LEN. ENDFORM. " frm_get_data *&---------------------------------------------------------------------* *& Form frm_alv_output *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_ALV_OUTPUT . DATA: L_NN TYPE I. DATA: LS_EVENT TYPE SLIS_ALV_EVENT. *&===>fieldcat DEFINE ADD_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT -FIELDNAME = &1. WA_FIELDCAT -SELTEXT_L = &2. WA_FIELDCAT -KEY = &3. WA_FIELDCAT -COL_POS = L_NN + 1. WA_FIELDCAT -JUST = &4. WA_FIELDCAT -OUTPUTLEN = &5. WA_FIELDCAT -FIX_COLUMN = &6. WA_FIELDCAT -NO_ZERO = &7. WA_FIELDCAT -EDIT = &8. APPEND WA_FIELDCAT TO GT_FIELDCAT. END-OF-DEFINITION. CLEAR GT_FIELDCAT. REFRESH GT_FIELDCAT. ADD_FIELDCAT 'MATNR' 'Material number' '' '' '18' '' '' ''."1 ADD_FIELDCAT 'STATU' 'Status' '' '' '' '' '' ''."1 ADD_FIELDCAT 'ZONGL' 'Main Category' '' '' '' '' '' ''."2 ADD_FIELDCAT 'FENEL' 'Sub Category' '' '' '' '' '' ''."3 ADD_FIELDCAT 'ZMDNM' 'Model name' '' '' '' '' '' ''."5 ADD_FIELDCAT 'UMREZ' 'PC per MC' '' '' '' '' '' ''."4 ADD_FIELDCAT 'XHTXT' 'Item text' '' '' '' '' '' ''."5 ADD_FIELDCAT 'XHTXT1' 'Prod Subhead' '' '' '' '' '' ''."5 * ADD_FIELDCAT 'KBETR' 'US$' '' '' '' '' '' ''."7 ADD_FIELDCAT 'KBETR' 'Price' '' '' '' '' '' ''."7 ADD_FIELDCAT 'KONWA' 'Currency' '' '' '' '' '' ''."7 ADD_FIELDCAT 'KCNGE' 'Current Availabile' '' '' '' '' '' ''."7 ADD_FIELDCAT 'DINSH' 'Ordered Qty' '' '' '' '' '' ''."8 ADD_FIELDCAT 'LAST1' 'Last-1 Ordered Qty' '' '' '' '' '' ''."9 ADD_FIELDCAT 'LAST2' 'Last-2 Ordered Qty' '' '' '' '' '' ''."10 ADD_FIELDCAT 'LAST3' 'Last-3 Ordered Qty' '' '' '' '' '' ''."11 *&===>layout GW_LAYOUT -COLWIDTH_OPTIMIZE = 'X'. GW_LAYOUT -ZEBRA = 'X'. GW_LAYOUT -DETAIL_POPUP = 'X'. *&===>Way1: *&use event to get frm_top_of_page. *&===>event CALL FUNCTION 'REUSE_ALV_EVENTS_GET' EXPORTING I_LIST_TYPE = 0 IMPORTING ET_EVENTS = GT_EVENT EXCEPTIONS LIST_TYPE_WRONG = 1 OTHERS = 2. READ TABLE GT_EVENT WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO LS_EVENT. IF SY-SUBRC EQ 0. MOVE ER_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM. APPEND LS_EVENT TO GT_EVENT. ENDIF. *&TOP OF PAGE. PERFORM COMMENT_BUILD USING TOP_OF_PAGE[]. *& 调用函数显示ALV列表 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = SY-REPID I_SAVE = 'A' IS_LAYOUT = GW_LAYOUT IT_FIELDCAT = GT_FIELDCAT IT_EVENTS = GT_EVENT TABLES T_OUTTAB = IT_DATA EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. ENDFORM. " frm_alv_output *&---------------------------------------------------------------------* *& Form comment_build *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->U_ER_LIST_TOP_OF_PAGE text *----------------------------------------------------------------------* FORM COMMENT_BUILD USING U_ER_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER. DATA: LS_LINE TYPE SLIS_LISTHEADER, LV_CUST TYPE STRING, LV_STR TYPE STRING. CLEAR: LS_LINE, LV_STR. LS_LINE -TYP = 'H'. SELECT SINGLE NAME1 INTO LV_CUST FROM KNA1 WHERE KUNNR EQ P_KUNNR. CONCATENATE LV_CUST 'Sold-to Price list' INTO LV_STR. LS_LINE -INFO = LV_STR. APPEND LS_LINE TO U_ER_LIST_TOP_OF_PAGE. CLEAR: LS_LINE, LV_STR. LS_LINE -TYP = 'S'. CONCATENATE 'Valid as:' P_ERDAT+0(4) '-' P_ERDAT+4(2) '-' P_ERDAT+6(2) INTO LV_STR. LS_LINE -KEY = LV_STR. APPEND LS_LINE TO U_ER_LIST_TOP_OF_PAGE. ENDFORM. " COMMENT_BUILDS *---------------------------------------------------------------------* * FORM top_of_page * *---------------------------------------------------------------------* FORM TOP_OF_PAGE. CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING I_LOGO = 'ENJOYSAP_LOGO'"'ZMG_LOGO_NEW' IT_LIST_COMMENTARY = TOP_OF_PAGE. ENDFORM. "TOP_OF_PAGE *&---------------------------------------------------------------------* *& Form FRM_PDF_OUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_PDF_OUT. *& get print data: *& one brad ,on pdf fiel, use a new logos DATA:BEGIN OF LT_MATKL OCCURS 0, MATKL LIKE MARA-MATKL, END OF LT_MATKL. DATA: LT_DATAP LIKE TABLE OF IT_DATAP WITH HEADER LINE. *& smartform print: DATA: FM_NAME TYPE RS38L_FNAM,"smartforms 函数 W_CTRLOP TYPE SSFCTRLOP, "Smart Forms: 控制结构 "W_CONTROL W_COMPOP TYPE SSFCOMPOP, "SAP Smart Forms: 智能写作器 (传输) 选项"W_OUTPUT. W_RETURN TYPE SSFCRESCL. "Smart Forms: 表格打印结束时返回值 DATA: H_FILE TYPE STRING, "保存文件的名字 P_PATH TYPE STRING. "保存路径 DATA: P_MATKL LIKE MARA-MATKL. DATA: JOB_OUTPUT_INFO TYPE SSFCRESCL, JOB_OUTPUT_OPTIONS TYPE SSFCRESOP, GT_TABLE LIKE STANDARD TABLE OF SPFLI. *&pdf打印需要用到的参数 DATA L_LINES TYPE TABLE OF TLINE WITH HEADER LINE. DATA L_DOCS TYPE TABLE OF DOCS. DATA LEN TYPE I. DATA: G_PDF_XSTRING TYPE XSTRING. LOOP AT IT_DATAP. IT_DATAP -KUNNR = P_KUNNR. SELECT SINGLE VALUE INTO IT_DATAP-KCSHU FROM ZT0002 WHERE FROMB LE IT_DATAP-KCNGE AND FROME GE IT_DATAP-KCNGE. LT_MATKL -MATKL = IT_DATAP-MATKL. COLLECT LT_MATKL. MODIFY IT_DATAP TRANSPORTING KUNNR. "MATKL. ENDLOOP. SORT IT_DATAP BY MATKL. LT_DATAP[] = IT_DATAP[]. REFRESH IT_DATAP[]. W_CTRLOP -GETOTF = 'X'."OTF 表的返回 W_CTRLOP -NO_DIALOG = 'X'."关闭打印对话框 W_CTRLOP -LANGU = SY-LANGU. W_COMPOP -TDDEST = 'LP01'. "LP01 W_COMPOP -TDPRINTER = 'CNSAPWIN'. "LP01 W_COMPOP -TDIMMED = 'X'. W_COMPOP -TDDELETE = ' '. W_COMPOP -TDTITLE = SY-TITLE. *&deal with brand 1 by 1. LOOP AT LT_MATKL. * READ TABLE LT_MATKL INDEX 1. IT_DATAP[] = LT_DATAP[]. P_MATKL = LT_MATKL-MATKL. DELETE IT_DATAP[] WHERE MATKL NE LT_MATKL-MATKL. *&smartforms 函数名字转换 CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' EXPORTING FORMNAME = 'ZOK_CUSTOMER6' IMPORTING FM_NAME = FM_NAME. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. *&smartforms打印 ,将打印的值输入到W_RETURN-OTFDATA[]中 CALL FUNCTION FM_NAME EXPORTING CONTROL_PARAMETERS = W_CTRLOP OUTPUT_OPTIONS = W_COMPOP USER_SETTINGS = 'X'" USER_SETTINGS = 'X' IMPORTING JOB_OUTPUT_INFO = W_RETURN. * CALL FUNCTION FM_NAME * EXPORTING * CONTROL_PARAMETERS = W_CTRLOP * IMPORTING * JOB_OUTPUT_INFO = W_RETURN * JOB_OUTPUT_OPTIONS = JOB_OUTPUT_OPTIONS * TABLES * IT_TABLE = GT_TABLE * EXCEPTIONS * FORMATTING_ERROR = 1 * INTERNAL_ERROR = 2 * SEND_ERROR = 3 * USER_CANCELED = 4 * OTHERS = 5. *&W3.call fc 'convert_otf' to get g_pdf_xstring up files. CALL FUNCTION 'CONVERT_OTF' EXPORTING FORMAT = 'PDF' * MAX_LINEWIDTH = 132 * ARCHIVE_INDEX = ' ' * COPYNUMBER = 0 * ASCII_BIDI_VIS2LOG = ' ' * PDF_DELETE_OTFTAB = ' ' * PDF_USERNAME = ' ' * PDF_PREVIEW = ' ' * USE_CASCADING = ' ' IMPORTING BIN_FILESIZE = LEN BIN_FILE = G_PDF_XSTRING TABLES OTF = W_RETURN-OTFDATA[] LINES = L_LINES[] EXCEPTIONS ERR_MAX_LINEWIDTH = 1 ERR_FORMAT = 2 ERR_CONV_NOT_POSSIBLE = 3 ERR_BAD_OTF = 4 OTHERS = 5. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * INTO G_DUMMY WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. * PERFORM protocol_update. * RETURN. ENDIF. CONCATENATE P_SEFILE P_KUNNR P_MATKL '_Price list.pdf' INTO S_FILE. "addrss OPEN DATASET S_FILE FOR OUTPUT IN BINARY MODE." MESSAGE L_MESSAGE_DB. IF SY-SUBRC EQ 0. TRANSFER G_PDF_XSTRING TO S_FILE. CLOSE DATASET S_FILE. ELSE. MESSAGE 'OPEN ERROR！！' TYPE 'E'. STOP. ENDIF. ENDLOOP. ENDFORM. " FRM_PDF_OUT *&---------------------------------------------------------------------* *& Form FRM_CSV_OUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_CSV_OUT . DATA:UMREZ(20), DINSH (20), LAST1 (20), LAST2 (20), LAST3 (20). LOOP AT IT_DATAC. CONCATENATE '"' IT_DATAC-ZONGL '"' INTO IT_DATAC-ZONGL. CONCATENATE '"' IT_DATAC-FENEL '"' INTO IT_DATAC-FENEL. SELECT SINGLE VALUE INTO IT_DATAC-KCSHU FROM ZT0002 WHERE FROMB LE IT_DATAC-KCNGE AND FROME GE IT_DATAC-KCNGE. MODIFY IT_DATAC TRANSPORTING ZONGL FENEL KCSHU. ENDLOOP. SORT IT_DATAC BY ZONGL FENEL ZMDNM. CONCATENATE P_SEFILE P_KUNNR '_Order Form.csv' INTO S_FILE. "服务器保存的目录和文 件名 OPEN DATASET S_FILE FOR OUTPUT IN TEXT MODE ENCODING DEFAULT . "打开文件 IF SY-SUBRC = 0. CONCATENATE 'Status' 'Main Category' 'Sub Category' 'Model Name' 'PC per MC' 'Current Available' 'Ordered Qty' 'Last-1' 'Last-2' 'Last-3' INTO LINE SEPARATED BY ','. TRANSFER LINE TO S_FILE . LOOP AT IT_DATAC. DINSH = IT_DATAC-DINSH. LAST1 = IT_DATAC-LAST1. LAST2 = IT_DATAC-LAST2. LAST3 = IT_DATAC-LAST3. CONCATENATE IT_DATAC-STATU IT_DATAC -ZONGL IT_DATAC -FENEL IT_DATAC -ZMDNM IT_DATAC -UMREZ1 IT_DATAC -KCSHU DINSH LAST1 LAST2 LAST3 INTO LINE SEPARATED BY ','. TRANSFER LINE TO S_FILE . IF SY-SUBRC NE 0 . MESSAGE 'ERROR！！' TYPE 'E'. STOP. ENDIF. CLEAR LINE . ENDLOOP. CLOSE DATASET S_FILE. ELSE. MESSAGE 'OPEN ERROR！！' TYPE 'E'. STOP. ENDIF. ENDFORM. " FRM_CSV_OUT