*********************************************************************** * Title : YHLMR009 * * Application : LM * * Subject : 交货清单查询 * * Requested by : Yang_Teng Fei (YH_LM) * * Execution : Online when required * * Ref no: : ERPS0115 * * Author : AD_CAIXIANG * * Req Date : 20120722 * *********************************************************************** * 交货清单查询程序 * *********************************************************************** * 设计主要逻辑与原理说明 * *********************************************************************** *1.取数：根据用户的输入单据编号、交货单类型、计划发货日期、实际发货日期* * 配入机构、商品编码等输入条件单一或者组合进行交货订单的查询。 * * 涉及到的表 LIKP T001W KNA1 LIPS MARA MAKT MBEW MEAN LIPSD ZMADQ * *2.输出: 进行alv输出交货清单信息 * *********************************************************************** * MODIFICATIONS (latest entry at the top) * * ------------------------------------------------------------------- * * REL DATE NAME (COMPANY) DESCRIPTION TASK-NO * * --- ---- ---- --------- ----------- ------- * * 01 20121206 LM 交货清单查询修改 by AD_CAIXIANG ECDK906448 * * 02 20121210 LM 交货清单查询修改 by AD_CAIXIANG ECDK906618 * * 03 20121210 LN 程序规范化 by AD_CAIXIANG ECDK906622 * * 04 20130111 LM 加直接显示明细按钮 BY AD_CAIXIANG ECDK907564 * * 05 20130126 LM 交货单类型增添 BY AD_CAIXIANG ECDK907564 * * 06 20130222 LM 价格取数修改 移动类型671，673 ECDK908753.* * 价格取数改为 EKPO-KZWI1/EKPO-MENGE * * 07 20130402 LM 程序优化 BY AD_CAIXIANG ECDK910228 * * 08 20130516 LM 移出库位作为查询条件出现问题的修改 * * BY AD_CAIXIANG ECDK911439 * * 09 20130603 LM 价格取数问题调整 BY AD_CAIXIANG ECDK912048 * * 10 20130703 LM 取税率优化 BY AD_CAIXIANG ECDK912680 * * 11 20130726 LM 取数部分优化， * * 当S_WBSTK 为空的时候，把VBUK的取数单独出来， * * 对于EKPO和EKBE进行分批取数 ECDK913630 * *********************************************************************** REPORT YHLMR009 NO STANDARD PAGE HEADING LINE-SIZE 132 LINE-COUNT 65(1) MESSAGE-ID YH_LM1. *---------------------------------------------------------------------- * PUB-INCLDUE *---------------------------------------------------------------------- INCLUDE <ICON>. *INCLUDE YHLM009_TOP. *---------------------------------------------------------------------- * TYPE-POOLS *---------------------------------------------------------------------- TYPE-POOLS: SLIS. *--------------------------------------------------------------------* * 宏的调用方式： *--------------------------------------------------------------------* *---------------------------------------------------------------------- * TABLES/Structure *---------------------------------------------------------------------- TABLES: LIKP, "SD凭证:交货抬头数据 LIPS, "SD凭证 ：交货：项目数据 KNA1, "客户主文件的一般数据 MBEW, "商品评估 MEAN, "商品的条码 LIPSD,"交货项目的动态部分 VBUK, "销售凭证：抬头状态和管理数据 VBFA, "销售凭证流 ADRP, "个人（办公地址管理） EKPO. "采购凭证项目 TABLES: MARA, MARC, MAKT, T001W. *---------------------------------------------------------------------- * Internal table *---------------------------------------------------------------------- DATA: BEGIN OF GT_ITAB OCCURS 0, VBELN LIKE LIKP-VBELN, POSNR LIKE LIPS-POSNR, LFART LIKE LIKP-LFART, WERKS LIKE LIPS-WERKS, NAME1 LIKE T001W-NAME1,"配出机构名称 KUNNR LIKE LIKP-KUNNR, NAME2 LIKE KNA1-NAME1, YYCARNO LIKE LIKP-YYCARNO, TDDAT LIKE LIKP-TDDAT, BLDAT LIKE LIKP-BLDAT, ANZPK LIKE LIKP-ANZPK, RESLO LIKE EKPO-RESLO, LGOBE1 LIKE T001L-LGOBE,"移出 LGORT LIKE LIPS-LGORT, LGOBE2 LIKE T001L-LGOBE,"移入 MENGE TYPE EKPO-MENGE, "订货数量 LFIMG TYPE LIPS-LFIMG, "实发数量 SHFA TYPE P DECIMALS 1, "实发件数 VGBEL LIKE LIPS-VGBEL, VGPOS LIKE LIPS-VGPOS, VGTYP LIKE LIPS-VGTYP, MATNR LIKE LIPS-MATNR, EAN11 LIKE MEAN-EAN11, WADAT_IST LIKE LIKP-WADAT_IST, MAKTX LIKE MAKT-MAKTX, MEINS LIKE LIPS-MEINS, VRKME LIKE LIPS-VRKME, GROES LIKE MARA-GROES, YUMREZ1 LIKE YTMADQ-YUMREZ1, BRGEW TYPE LIPS-BRGEW, "毛重 NTGEW TYPE LIPS-NTGEW, "净重 JINZH TYPE LIPS-NTGEW, "皮重 KOSTK TYPE VBUK-KOSTK, "交货状态 ERNAM LIKE LIKP-ERNAM, VTEXT TYPE TVLKT-VTEXT, DINH TYPE P DECIMALS 1,"订货件数 WBSTK TYPE VBUK-WBSTK, "状态 NAME_TEXT LIKE ADRP-NAME_FIRST, LIFEX TYPE LIKP-LIFEX, LIFNR TYPE EORD-LIFNR, NAME3 TYPE LFA1-NAME1, JIAGE TYPE EKPO-KZWI5, JINE TYPE EKPO-KZWI5, KZWI5 TYPE EKPO-KZWI5, DMBTR TYPE MSEG-DMBTR, ERZET TYPE LIKP-ERZET, BWART LIKE LIPS-BWART, KBETR TYPE KBETR, *&->START ADD BY AD_CAIXIANG ON 20130514. YLBID1 LIKE YTLBDY-YLBID2, YDLNAM LIKE YTLBCJ-YLBNAME, *&-END ADD TIMMM(14) TYPE C, FLAG(1) TYPE C, END OF GT_ITAB. DATA: BEGIN OF GT_DATA OCCURS 0, VBELN LIKE LIKP-VBELN, LFART LIKE LIKP-LFART, VTEXT TYPE TVLKT-VTEXT, WERKS LIKE LIPS-WERKS, NAME1 LIKE T001W-NAME1, KUNNR LIKE LIKP-KUNNR, NAME2 LIKE KNA1-NAME1, RESLO LIKE EKPO-RESLO, "移出 LGOBE1 LIKE T001L-LGOBE, LGORT LIKE EKPO-LGORT, "移入 LGOBE2 LIKE T001L-LGOBE, YYCARNO LIKE LIKP-YYCARNO, TDDAT LIKE LIKP-TDDAT, BLDAT LIKE LIKP-BLDAT, WADAT_IST LIKE LIKP-WADAT_IST, MENGE TYPE EKPO-MENGE, "订货数量 LFIMG TYPE LIPS-LFIMG, "实发数量 JINZH TYPE LIPS-NTGEW, "皮重 ERNAM LIKE LIKP-ERNAM, NAME_TEXT LIKE ADRP-NAME_FIRST, KOSTK TYPE VBUK-KOSTK, "交货状态 WBSTK TYPE VBUK-WBSTK, "状态 LIFEX TYPE LIKP-LIFEX, *&START CHANGED BY AD_CAIXIANG ON 20121210 ECDK906622 * LIFNR TYPE EORD-LIFNR, * NAME3 TYPE LFA1-NAME1, *&END CHANGED BY AD_CAIXIANG ON 20121210. ERZET TYPE LIPS-ERZET, JINE TYPE EKPO-KZWI5, * LNN TYPE SY-TABIX, END OF GT_DATA. *---------------------------------------------------------------------- * Variants *---------------------------------------------------------------------- DATA: G_LEN TYPE I. DATA: WA LIKE GT_ITAB. DATA: G_LIN TYPE I. DATA: G_TABIX LIKE SY-TABIX. RANGES:R_LFART FOR LIKP-LFART. *---------------------------------------------------------------------* * Data parameters for alv report use *---------------------------------------------------------------------* DATA: G_PROGRAM TYPE SY-REPID, GS_LAYOUT TYPE SLIS_LAYOUT_ALV, GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, GS_FIELDCAT LIKE LINE OF GT_FIELDCAT, GT_FIELDCAT2 TYPE SLIS_T_FIELDCAT_ALV, GS_FIELDCAT2 LIKE LINE OF GT_FIELDCAT, WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV, IT_EVENTS TYPE SLIS_T_EVENT WITH HEADER LINE, GT_EVENT TYPE SLIS_T_EVENT, WA_EVENT TYPE SLIS_ALV_EVENT. DATA: GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER. DATA: GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'ALV_TOP_OF_PAGE'. DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID. *--------------------------------------------------------------------* * D宏的定义 *--------------------------------------------------------------------* DEFINE MAR_ADD_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-FIELDNAME = &1. WA_FIELDCAT-SELTEXT_L = &2. WA_FIELDCAT-COL_POS = &3. WA_FIELDCAT-JUST = &4. WA_FIELDCAT-OUTPUTLEN = &5. WA_FIELDCAT-FIX_COLUMN = &6. WA_FIELDCAT-EDIT = &7. WA_FIELDCAT-NO_ZERO = &8. APPEND WA_FIELDCAT TO GT_FIELDCAT. END-OF-DEFINITION. *--------------------------------------------------------------------* * D宏的定义2 *--------------------------------------------------------------------* DEFINE MAR_ADD_FIELDCAT2. CLEAR WA_FIELDCAT. WA_FIELDCAT-FIELDNAME = &1. WA_FIELDCAT-SELTEXT_L = &2. WA_FIELDCAT-COL_POS = &3. WA_FIELDCAT-JUST = &4. WA_FIELDCAT-OUTPUTLEN = &5. WA_FIELDCAT-FIX_COLUMN = &6. WA_FIELDCAT-EDIT = &7. WA_FIELDCAT-NO_ZERO = &8. APPEND WA_FIELDCAT TO GT_FIELDCAT2. END-OF-DEFINITION. *====================================================================== * SELECTION-SCREEN *====================================================================== SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001. PARAMETERS: P_WERKS LIKE MARC-WERKS MEMORY ID WRK OBLIGATORY. SELECT-OPTIONS: S_VBELN FOR LIKP-VBELN, S_LFART FOR LIKP-LFART. "交货类型 "S_TDDAT FOR LIKP-TDDAT OBLIGATORY, "运输计划日期 "s_ERZET FOR LIKP-ERZET default '000000' to sy-uzeit no-extension OBLIGATORY, PARAMETERS: P_BLDATL LIKE LIKP-BLDAT DEFAULT SY-DATUM OBLIGATORY, P_ERZETL LIKE LIKP-ERZET DEFAULT '000000', P_BLDATH LIKE LIKP-BLDAT DEFAULT SY-DATUM OBLIGATORY, P_ERZETH LIKE LIKP-ERZET DEFAULT SY-UZEIT. SELECT-OPTIONS: "S_BLDAT FOR LIKP-BLDAT OBLIGATORY,"凭证日期 S_WADAT FOR LIKP-WADAT_IST, "实际发货日期 S_WBSTK FOR VBUK-WBSTK, S_KUNNR FOR LIKP-KUNNR, S_MATNR FOR LIPS-MATNR , S_VGBEL FOR LIPS-VGBEL, S_YYCAR FOR LIKP-YYCARNO MATCHCODE OBJECT YH_YTCARNUM, S_RESLO FOR EKPO-RESLO, "移出库位 S_LGORT FOR EKPO-LGORT, "移入库位 S_ERNAM FOR LIKP-ERNAM MATCHCODE OBJECT USER_COMP. SELECTION-SCREEN SKIP. PARAMETERS: P_DETAIL TYPE C AS CHECKBOX DEFAULT ''. 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. *&S1: 取得数据： PERFORM FRM_GET_DATA. *BREAK AD_CAIXIANG. *&--->START ADD BY AD_CAIXIANG ON 20130111 ECDK907564. IF P_DETAIL IS NOT INITIAL. PERFORM FRM_DETAIL_DISP . ELSE. *---------------------------------------------------------------------- * END-OF-SELECTION *---------------------------------------------------------------------- *&S3: 输出数据： PERFORM FRM_ALV_OUTPUT. ENDIF. *&---<END ADD BY AD_CAIXIANG ON 20130111. *&---------------------------------------------------------------------* *& Form FRM_INITIAL *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_INITIAL. *&设定日期默认： * IF S_TDDAT[] IS INITIAL. * S_TDDAT-LOW = SY-DATUM. * S_TDDAT-HIGH = SY-DATUM + 5. * APPEND S_TDDAT. * ENDIF. * IF S_BLDAT[] IS INITIAL. * S_BLDAT-LOW = SY-DATUM - 5. * S_BLDAT-HIGH = SY-DATUM. * APPEND S_BLDAT. * ENDIF. ENDFORM. " FRM_INITIAL *&---------------------------------------------------------------------* *& Form FRM_CHECK_AUTHOR *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_CHECK_AUTHOR. * IF S_BLDAT-LOW IS INITIAL OR S_BLDAT-HIGH IS INITIAL. * MESSAGE I011 WITH '凭证日期应上限都输入!'. * STOP. * ENDIF. * IF s_ERZET-LOW IS NOT INITIAL AND S_ERZET-HIGH IS INITIAL. * MESSAGE I011 WITH '时间应上下限都输入！'. * STOP. * ELSE. * IF s_ERZET-LOW IS INITIAL AND s_ERZET-HIGH IS NOT INITIAL. * MESSAGE I011 WITH '时间应上下限都输入！'. * STOP. * endif. * ENDIF. * IF s_ERZET-LOW IS INITIAL OR S_ERZET-HIGH IS INITIAL. * MESSAGE I011 WITH '时间应上下限都输入！'. * STOP. * ENDIF. *&权限检查： AUTHORITY-CHECK OBJECT 'V_LIKP_VST' ID 'VSTEL' FIELD P_WERKS ID 'ACTVT' FIELD '03'. IF SY-SUBRC NE 0. MESSAGE I002 WITH P_WERKS . STOP. ENDIF. ENDFORM. " FRM_CHECK_AUTHOR *&---------------------------------------------------------------------* *& Form frm_get_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_GET_DATA . DATA: L_BZIRK LIKE T001W-BZIRK, L_NAME_FIRST LIKE ADRP-NAME_FIRST, L_WERKS LIKE T001W-WERKS, L_NAME_LAST LIKE ADRP-NAME_LAST, L_NAME_TEXT LIKE ADRP-NAME_FIRST. DATA: LT_ITAB LIKE GT_ITAB OCCURS 0 WITH HEADER LINE, LT_WTAB LIKE GT_ITAB OCCURS 0 WITH HEADER LINE. DATA: BEGIN OF LT_MADQ OCCURS 0, MATNR LIKE MARA-MATNR, WERKS LIKE MARC-WERKS, YUMREZ1 LIKE YTMADQ-YUMREZ1, END OF LT_MADQ. DATA: BEGIN OF LT_MEAN OCCURS 0, MATNR LIKE MARA-MATNR, EAN11 LIKE MEAN-EAN11, END OF LT_MEAN. * DATA: BEGIN OF LT_MARA OCCURS 0, * MATNR LIKE MARA-MATNR, * GROES LIKE MARA-GROES, * MATKL LIKE MARA-MATKL, * END OF LT_MARA. DATA: BEGIN OF LT_T001W OCCURS 0, WERKS LIKE T001W-WERKS, NAME1 LIKE T001W-NAME1, KUNNR LIKE T001W-KUNNR, END OF LT_T001W. DATA: BEGIN OF LT_T001L OCCURS 0, WERKS LIKE MARD-WERKS, LGORT LIKE MARD-LGORT, LGOBE LIKE T001L-LGOBE, END OF LT_T001L. DATA: BEGIN OF LT_TVLKT OCCURS 0, LFART LIKE TVLKT-LFART, VTEXT LIKE TVLKT-VTEXT, END OF LT_TVLKT . DATA: BEGIN OF LT_TAB OCCURS 0, VBELN LIKE LIKP-VBELN, LFART LIKE LIKP-LFART, VTEXT TYPE TVLKT-VTEXT, WERKS LIKE LIPS-WERKS, JINE TYPE EKPO-KZWI5, END OF LT_TAB. DATA: G_TEXT TYPE KBETR, C_TEXT(8) TYPE N. DATA: G_MWSKZ LIKE EKPO-MWSKZ, G_KZWI5 LIKE EKPO-KZWI5, G_KZWI1 LIKE VBRP-KZWI1, G_MENGE LIKE EKPO-MENGE, G_DMBTR LIKE MSEG-DMBTR, G_FKIMG LIKE VBRP-FKIMG. DATA: L_MENGE TYPE EKPO-MENGE, "订货数量 L_LFIMG TYPE LIPS-LFIMG, "实发数量 L_JINZH TYPE LIPS-NTGEW. "皮重 DATA: L_TIMEL(14) TYPE C, L_TIMEH(14) TYPE C. DATA:BEGIN OF LT_EORD OCCURS 0, WERKS LIKE EORD-WERKS, MATNR LIKE EORD-MATNR, LIFNR LIKE EORD-LIFNR, END OF LT_EORD. * DATA: BEGIN OF LT_MARA2 OCCURS 0, * MATNR LIKE MARA-MATNR, * SATNR LIKE MARA-MATNR, * END OF LT_MARA2. DATA:BEGIN OF LT_LFA1 OCCURS 0, LIFNR LIKE LFA1-LIFNR, NAME1 LIKE LFA1-NAME1, END OF LT_LFA1. DATA: BEGIN OF LT_KNA1 OCCURS 0, KUNNR LIKE KNA1-KUNNR, NAME1 LIKE KNA1-NAME1, END OF LT_KNA1. DATA: BEGIN OF LT_NAME OCCURS 0, BNAME LIKE V_USR_NAME-BNAME, NAME_TEXT LIKE V_USR_NAME-NAME_TEXT, END OF LT_NAME . DATA:BEGIN OF LT_EKPO OCCURS 0, EBELN LIKE EKPO-EBELN, EBELP LIKE EKPO-EBELP, TXZ01 LIKE EKPO-TXZ01, LGORT LIKE EKPO-LGORT, RESLO LIKE EKPO-RESLO, MWSKZ LIKE EKPO-MWSKZ, MENGE LIKE EKPO-MENGE, KZWI1 LIKE EKPO-KZWI1, KZWI5 LIKE EKPO-KZWI5, END OF LT_EKPO. DATA:BEGIN OF LT_EKKO OCCURS 0 , EBELN LIKE EKPO-EBELN, EBELP LIKE EKPO-EBELP, VBELN LIKE LIPS-VBELN, END OF LT_EKKO. DATA: LT_WEKO LIKE TABLE OF LT_EKKO WITH HEADER LINE. DATA:BEGIN OF LT_EKBE OCCURS 0, EBELN LIKE EKBE-EBELN, EBELP LIKE EKBE-EBELP, VBELN LIKE LIKP-VBELN, DMBTR LIKE EKBE-DMBTR, END OF LT_EKBE. DATA: BEGIN OF LT_VBFA OCCURS 0, VBELV LIKE VBFA-VBELV, POSNV LIKE VBFA-POSNV, VBELN LIKE VBFA-VBELN, POSNN LIKE VBFA-POSNN, END OF LT_VBFA. DATA: LT_TAB1 LIKE TABLE OF LT_VBFA WITH HEADER LINE. DATA: BEGIN OF LT_VBRP OCCURS 0, VBELN LIKE VBRP-VBELN, POSNR LIKE VBRP-POSNR, KZWI1 LIKE VBRP-KZWI1, FKIMG LIKE VBRP-FKIMG, END OF LT_VBRP. DATA: BEGIN OF LT_VBAP OCCURS 0, VBELN LIKE VBAP-VBELN, POSNR LIKE VBAP-POSNR, KWMENG LIKE VBAP-KWMENG, ARKTX LIKE VBAP-ARKTX, END OF LT_VBAP. DATA: LT_WVBAP LIKE TABLE OF LT_VBAP WITH HEADER LINE. DATA: BEGIN OF LT_VBUK OCCURS 0, VBELN LIKE VBUK-VBELN, KOSTK LIKE VBUK-KOSTK, WBSTK LIKE VBUK-WBSTK, END OF LT_VBUK. DATA: BEGIN OF LT_YTLBCJ OCCURS 0, YLBID LIKE YTLBCJ-YLBID, YLBNAME LIKE YTLBCJ-YLBNAME, END OF LT_YTLBCJ. DATA: BEGIN OF LT_MARA3 OCCURS 0, MATNR LIKE MARA-MATNR, ATTYP LIKE MARA-ATTYP, SATNR LIKE MARA-SATNR, GROES LIKE MARA-GROES, MATKL LIKE MARA-MATKL, LVORM LIKE MARA-LVORM, END OF LT_MARA3. DATA: BEGIN OF LT_A003 OCCURS 0, MWSKZ LIKE A003-MWSKZ, KBETR LIKE KONP-KBETR, END OF LT_A003. DATA: LT_MARA LIKE TABLE OF LT_MARA3 WITH HEADER LINE, LT_MARA2 LIKE TABLE OF LT_MARA3 WITH HEADER LINE. RANGES:R_LFARTN FOR LIKP-LFART. DATA: L_TIAN(5) TYPE N. DATA: L_COUNT TYPE I. DATA: L_LAST TYPE C. DATA: L_NMAX TYPE I. SELECT SINGLE TBMAXSEL INTO L_NMAX FROM YTMMREPNUM WHERE PROGNAME = SY-REPID AND ACTIVE = 'X'. IF SY-SUBRC NE 0. L_NMAX = 150000. ENDIF. *&->START CHANGE BY AD_CX ON 20130708 ECDK912680 L_TIAN = P_BLDATH - P_BLDATL. IF L_TIAN GT 37. MESSAGE S011 WITH '时间范围查询条件输入过大！请将时间段分开查询，谢谢！' DISPLAY LIKE 'E'. STOP. ENDIF. *&->END CHANGE. *&S1.默认交货单移动类型： PERFORM FRM_LFART. *&->START CHANGE BY AD_CX ON 20130725 ECDK913587. *&S1.1先取出单据类型： SELECT LFART VTEXT INTO TABLE LT_TVLKT FROM TVLKT WHERE SPRAS EQ SY-LANGU AND LFART IN S_LFART AND LFART IN R_LFART. SORT LT_TVLKT BY LFART. *&S1.2形成单据最终RANGE. LOOP AT LT_TVLKT. R_LFARTN(3) = 'IEQ'. R_LFARTN-LOW = LT_TVLKT-LFART. APPEND R_LFARTN. ENDLOOP. IF S_WBSTK[] IS NOT INITIAL . *&S2.1:数据表LIPS LIKP VBUK关联取数 SELECT A~VBELN A~ANZPK A~ERNAM "创建对象人员的名称 A~KUNNR "配入机构 A~LFART "交货单类型（加描述） A~TDDAT "计划发货日期 A~BLDAT "凭证日期 A~WADAT_IST"实际发货日期 A~YYCARNO A~LIFEX "融通单号 A~ERZET B~BWART B~POSNR "序号 B~WERKS "配出机构 B~VGBEL "参考凭证号 B~VGPOS "参考凭证项目 B~VGTYP B~MATNR "商品编码 B~MEINS "单位 B~VRKME B~LFIMG "实发数量 B~BRGEW "毛重 B~NTGEW "净重 B~LGORT C~KOSTK C~WBSTK INTO CORRESPONDING FIELDS OF TABLE GT_ITAB FROM LIKP AS A JOIN VBUK AS C ON ( A~VBELN EQ C~VBELN ) JOIN LIPS AS B ON ( A~VBELN EQ B~VBELN ) UP TO L_NMAX ROWS *&start changed by robin 20130514 ECDK910228 *&性能优化: WHERE A~BLDAT >= P_BLDATL AND A~BLDAT <= P_BLDATH AND A~LFART IN R_LFARTN AND B~WERKS EQ P_WERKS AND C~WBSTK IN S_WBSTK AND A~VBELN IN S_VBELN AND A~KUNNR IN S_KUNNR AND A~YYCARNO IN S_YYCAR AND A~WADAT_IST IN S_WADAT AND A~ERNAM IN S_ERNAM "AND B~WERKS EQ P_WERKS AND B~MATNR IN S_MATNR AND B~VGBEL IN S_VGBEL *&->START ADD AND B~LGORT IN S_LGORT. *&->END ADD. **&end changed by robin 20130514. ELSE. *&S2.2:数据表LIPS LIKP 关联取数,将VBUK取数移出 *&->START CHANGE BY AD_CX ON 20130725 ECDK913587. SELECT A~VBELN A~ANZPK A~ERNAM "创建对象人员的名称 A~KUNNR "配入机构 A~LFART "交货单类型（加描述） A~TDDAT "计划发货日期 A~BLDAT "凭证日期 A~WADAT_IST"实际发货日期 A~YYCARNO A~LIFEX "融通单号 A~ERZET B~BWART B~POSNR "序号 B~WERKS "配出机构 B~VGBEL "参考凭证号 B~VGPOS "参考凭证项目 B~VGTYP B~MATNR "商品编码 B~MEINS "单位 B~VRKME B~LFIMG "实发数量 B~BRGEW "毛重 B~NTGEW "净重 B~LGORT * C~KOSTK * C~WBSTK INTO CORRESPONDING FIELDS OF TABLE GT_ITAB FROM LIKP AS A * JOIN VBUK AS C * ON ( A~VBELN EQ C~VBELN ) JOIN LIPS AS B ON ( A~VBELN EQ B~VBELN ) UP TO L_NMAX ROWS *&start changed by robin 20130514 ECDK910228 *&性能优化: WHERE A~BLDAT >= P_BLDATL AND A~BLDAT <= P_BLDATH AND A~LFART IN R_LFARTN AND B~WERKS EQ P_WERKS AND A~VBELN IN S_VBELN AND A~KUNNR IN S_KUNNR AND A~YYCARNO IN S_YYCAR AND A~WADAT_IST IN S_WADAT AND A~ERNAM IN S_ERNAM AND B~MATNR IN S_MATNR AND B~VGBEL IN S_VGBEL *&->START ADD AND B~LGORT IN S_LGORT. *&->END ADD. * AND C~WBSTK IN S_WBSTK. *&->END CHANGE BY AD_CX. ENDIF. *&S2.3.内表排序 SORT GT_ITAB BY VBELN POSNR. *&S4.1当数量极大时提示： * IF G_LEN GT 80000. * MESSAGE E011 WITH '你查询的数据太多,请重新选择条件！'. * STOP. * ENDIF. *&S3.日期加时间点作为时间段查询数据 *&->START ADD BY AD_CAIXIANG ON 20121128. 增加按详细时间筛选数据逻辑： *&判断时间范围内的数据 LOOP AT GT_ITAB . CONCATENATE GT_ITAB-BLDAT GT_ITAB-ERZET INTO GT_ITAB-TIMMM. CONCATENATE P_BLDATL P_ERZETL INTO L_TIMEL. CONCATENATE P_BLDATH P_ERZETH INTO L_TIMEH. IF GT_ITAB-TIMMM > L_TIMEH OR GT_ITAB-TIMMM < L_TIMEL. GT_ITAB-FLAG = 'X'. DELETE GT_ITAB. CONTINUE. ENDIF. CHECK GT_ITAB-VGBEL IS NOT INITIAL. IF GT_ITAB-VGTYP = 'V'. *&S3.1 形成采购订单数据中间表 LT_EKKO-EBELN = GT_ITAB-VGBEL. LT_EKKO-EBELP = GT_ITAB-VGPOS. LT_EKKO-VBELN = GT_ITAB-VBELN. COLLECT LT_EKKO. CLEAR LT_EKKO. ELSE."销售凭证 LT_WVBAP-VBELN = GT_ITAB-VGBEL. LT_WVBAP-POSNR = GT_ITAB-VGPOS. COLLECT LT_WVBAP. ENDIF. * MODIFY GT_ITAB TRANSPORTING FLAG. ENDLOOP. *&S3.2 删除不满足条件的数据 DELETE GT_ITAB WHERE FLAG EQ 'X'. *& END ADD BY AD_CAIXIANG ON 20121128. *&->START ADD BY AD_CX ON 20130727. IF LINES( GT_ITAB ) = L_NMAX. MESSAGE I014(YH_FI1) WITH '条目的最大数值限制为' L_NMAX ',' '请分批查询!'. STOP. ENDIF. *&->END ADD. *&S4.检查是否取到数据： DESCRIBE TABLE GT_ITAB LINES G_LEN. IF G_LEN EQ 0. MESSAGE I011 WITH '没有查询到符合条件的数据！'. STOP. ENDIF. *&S5.VBUK表取数： *& 考虑用中间表： LT_WTAB[] = GT_ITAB[]. * SORT LT_WTAB BY VBELN. DELETE ADJACENT DUPLICATES FROM LT_WTAB COMPARING VBELN. IF S_WBSTK[] IS INITIAL . LOOP AT LT_WTAB. CLEAR L_LAST. AT LAST. L_LAST = 'X'. ENDAT. APPEND LT_WTAB TO LT_ITAB. ADD 1 TO L_COUNT. IF L_COUNT = 5000 OR L_LAST = 'X'. SELECT VBELN KOSTK WBSTK APPENDING TABLE LT_VBUK FROM VBUK FOR ALL ENTRIES IN LT_ITAB WHERE VBELN EQ LT_ITAB-VBELN. REFRESH LT_ITAB. CLEAR L_COUNT. ENDIF. ENDLOOP. SORT LT_VBUK BY VBELN. ENDIF. FREE LT_WTAB. *&S6.EKPO取数： IF LT_EKKO[] IS NOT INITIAL. LOOP AT LT_EKKO. CLEAR L_LAST. AT LAST. L_LAST = 'X'. ENDAT. APPEND LT_EKKO TO LT_WEKO. ADD 1 TO L_COUNT. IF L_COUNT = 5000 OR L_LAST = 'X'. *&S6.1.通过凭证号关联到EKPO取数 SELECT EBELN EBELP TXZ01 LGORT RESLO MWSKZ MENGE KZWI1 KZWI5 APPENDING TABLE LT_EKPO FROM EKPO FOR ALL ENTRIES IN LT_WEKO WHERE EBELN = LT_WEKO-EBELN AND EBELP = LT_WEKO-EBELP AND LOEKZ EQ SPACE. *&S7.采购凭证历史表取数： SELECT EBELN EBELP VBELN_ST AS VBELN DMBTR APPENDING TABLE LT_EKBE FROM EKBE FOR ALL ENTRIES IN LT_WEKO WHERE EBELN EQ LT_WEKO-EBELN AND EBELP EQ LT_WEKO-EBELP AND VGABE EQ '6' AND VBELN_ST EQ LT_WEKO-VBELN. REFRESH LT_WEKO. CLEAR L_COUNT. ENDIF. ENDLOOP. SORT LT_EKPO BY EBELN EBELP. SORT LT_EKBE BY EBELN EBELP VBELN. ENDIF. FREE: LT_WEKO,LT_EKKO. *&—>START 以下备注： **&S6.1.通过凭证号关联到EKPO取数 * SELECT EBELN EBELP * TXZ01 LGORT * RESLO MWSKZ * MENGE KZWI1 * KZWI5 * * INTO TABLE LT_EKPO * FROM EKPO * FOR ALL ENTRIES IN LT_EKKO * WHERE EBELN = LT_EKKO-EBELN * AND EBELP = LT_EKKO-EBELP * AND LOEKZ EQ SPACE. **&->START ADD BY AD_CAIXIANG ON 20130516 ECDK911439 ** AND RESLO IN S_RESLO ** AND LGORT IN S_LGORT. **&->EDN ADD 20130516. * SORT LT_EKPO BY EBELN EBELP. *&S6.2.关联到EKBE取数 * * BREAK AD_CAIXIANG. * SELECT SINGLE DMBTR * FROM EKBE * INTO G_DMBTR * WHERE EBELN EQ WA-VGBEL * AND EBELP EQ WA-VGPOS+1(5) * AND BWART EQ WA-BWART. * SELECT EBELN EBELP * DMBTR * INTO TABLE LT_EKBE * FROM EKBE * FOR ALL ENTRIES IN LT_EKKO * WHERE EBELN = LT_EKKO-EBELN * AND EBELP = LT_EKKO-EBELP * AND VGABE = '6'. *&->START CHANGE BY AD_CAIXIANG ON 20130603 * LT_ITAB[] = GT_ITAB[]. * SORT LT_ITAB BY VGBEL VGPOS VBELN. * DELETE ADJACENT DUPLICATES FROM LT_ITAB COMPARING VGBEL VGPOS VBELN. *&->END 备注 * IF LT_EKKO[] IS NOT INITIAL. **&S7.采购凭证历史表取数： * SELECT EBELN EBELP * VBELN_ST AS VBELN * DMBTR * INTO TABLE LT_EKBE * FROM EKBE * FOR ALL ENTRIES IN LT_EKKO * WHERE EBELN EQ LT_EKKO-EBELN * AND EBELP EQ LT_EKKO-EBELP * AND VGABE EQ '6' * AND VBELN_ST EQ LT_EKKO-VBELN. * SORT LT_EKBE BY EBELN EBELP VBELN. ** REFRESH LT_ITAB. **&->END CHANGE . * ENDIF. *&S8通过地点商品编码找对应大区件装数： LT_ITAB[] = GT_ITAB[]. SORT LT_ITAB BY MATNR WERKS. DELETE ADJACENT DUPLICATES FROM LT_ITAB COMPARING MATNR WERKS. SELECT A~MATNR B~WERKS A~YUMREZ1 INTO TABLE LT_MADQ FROM YTMADQ AS A JOIN T001W AS B ON ( A~BZIRK EQ B~BZIRK ) FOR ALL ENTRIES IN LT_ITAB WHERE A~MATNR EQ LT_ITAB-MATNR AND B~WERKS EQ LT_ITAB-WERKS. SORT LT_MADQ BY MATNR WERKS. *&S9通过货源找供应商： SELECT WERKS MATNR LIFNR INTO TABLE LT_EORD FROM YTMEORD FOR ALL ENTRIES IN LT_ITAB WHERE MATNR EQ LT_ITAB-MATNR AND WERKS EQ LT_ITAB-WERKS . SORT LT_EORD BY MATNR WERKS. * REFRESH LT_ITAB. *&S10:商品编码找条码： * LT_ITAB[] = GT_ITAB[]. * SORT LT_ITAB BY MATNR. DELETE ADJACENT DUPLICATES FROM LT_ITAB COMPARING MATNR. SELECT MATNR EAN11 INTO TABLE LT_MEAN FROM MEAN FOR ALL ENTRIES IN LT_ITAB WHERE MATNR EQ LT_ITAB-MATNR AND HPEAN EQ 'X'. SORT LT_MEAN BY MATNR. *S6.6:商品编码取规格： * SORT LT_ITAB BY MATNR. * DELETE ADJACENT DUPLICATES FROM LT_ITAB COMPARING MATNR. * SELECT MATNR GROES **&->START ADD BY AD_CAIXIANG ON 20130514 ECDK911331 * MATKL **&->END ADD BY AD_CAIXIANG. * INTO TABLE LT_MARA * FROM MARA * FOR ALL ENTRIES IN LT_ITAB * WHERE MATNR EQ LT_ITAB-MATNR * AND LVORM EQ SPACE. **&6.7分子母码找对应的商品编码： * SELECT MATNR SATNR * INTO TABLE LT_MARA2 * FROM MARA * FOR ALL ENTRIES IN LT_ITAB * WHERE MATNR EQ LT_ITAB-MATNR * AND ATTYP EQ '02' * AND SATNR NE ''. *&S11.MARA表取数 SELECT MATNR ATTYP SATNR GROES MATKL LVORM INTO TABLE LT_MARA3 FROM MARA FOR ALL ENTRIES IN LT_ITAB WHERE MATNR EQ LT_ITAB-MATNR. LT_MARA[] = LT_MARA3[]. DELETE LT_MARA WHERE LVORM NE SPACE. LT_MARA2[] = LT_MARA3[]. DELETE LT_MARA2 WHERE ATTYP NE '02' OR SATNR EQ ''. SORT LT_MARA BY MATNR. SORT LT_MARA2 BY MATNR. FREE LT_MARA3. *&->START ADD BY AD_CAIXIANG ON 20130514 ECDK911331 *&S12.取大类名称 SELECT YLBID YLBNAME INTO TABLE LT_YTLBCJ FROM YTLBCJ. * FOR ALL ENTRIES IN LT_MARA * WHERE YLBID EQ LT_MARA-MATKL+0(2). SORT LT_YTLBCJ BY YLBID. *&->END ADD BY AD_CAIXIANG. *&---? REFRESH LT_ITAB. *&S13:取机构名称： * LT_ITAB[] = GT_ITAB[]. * SORT LT_ITAB BY WERKS. * DELETE ADJACENT DUPLICATES FROM LT_ITAB COMPARING WERKS. SELECT WERKS NAME1 KUNNR INTO TABLE LT_T001W FROM T001W. * FOR ALL ENTRIES IN LT_ITAB * WHERE WERKS EQ LT_ITAB-WERKS. SORT LT_T001W BY WERKS. *&S14.找出库位描述： SELECT WERKS LGORT LGOBE INTO TABLE LT_T001L FROM T001L. * FOR ALL ENTRIES IN LT_ITAB * WHERE WERKS EQ LT_ITAB-WERKS. SORT LT_T001L BY WERKS LGORT. REFRESH LT_ITAB. *&->START CHANGE BY AD_CX ON 20130725 ECDK913587. *&S6.10取凭证类型描述： * SELECT LFART VTEXT * INTO TABLE LT_TVLKT * FROM TVLKT * WHERE SPRAS EQ SY-LANGU * AND LFART IN S_LFART * AND LFART IN R_LFART. * SORT LT_TVLKT BY LFART. *&->END CHANGE. *&S15.取供应商名称 * LT_ITAB[] = GT_ITAB[]. * SORT LT_ITAB BY LIFNR. * DELETE ADJACENT DUPLICATES FROM LT_LFA1 COMPARING LIFNR. SELECT LIFNR NAME1 INTO TABLE LT_LFA1 FROM LFA1 FOR ALL ENTRIES IN LT_EORD WHERE LIFNR EQ LT_EORD-LIFNR. SORT LT_LFA1 BY LIFNR. REFRESH LT_ITAB. *&S16.取客户名称： LT_ITAB[] = GT_ITAB[]. SORT LT_ITAB BY KUNNR. DELETE ADJACENT DUPLICATES FROM LT_ITAB COMPARING KUNNR. SELECT KUNNR NAME1 INTO TABLE LT_KNA1 FROM KNA1 FOR ALL ENTRIES IN LT_ITAB WHERE KUNNR EQ LT_ITAB-KUNNR. SORT LT_KNA1 BY KUNNR. REFRESH LT_ITAB. *&S17.取制单人名称 LT_ITAB[] = GT_ITAB[]. SORT LT_ITAB BY ERNAM. DELETE ADJACENT DUPLICATES FROM LT_ITAB COMPARING ERNAM. SELECT BNAME NAME_TEXT INTO TABLE LT_NAME FROM V_USR_NAME FOR ALL ENTRIES IN LT_ITAB WHERE BNAME EQ LT_ITAB-ERNAM. SORT LT_NAME BY BNAME. REFRESH LT_ITAB. *& 销售凭证 IF LT_WVBAP[] IS NOT INITIAL. LOOP AT LT_WVBAP. CLEAR L_LAST. AT LAST. L_LAST = 'X'. ENDAT. LT_TAB1-VBELV = LT_WVBAP-VBELN. LT_TAB1-POSNV = LT_WVBAP-POSNR. APPEND LT_TAB1. ADD 1 TO L_COUNT. IF L_COUNT = 5000 OR L_LAST = 'X'. *&S19.取销售凭证对应数量 SELECT VBELN POSNR KWMENG ARKTX APPENDING TABLE LT_VBAP FROM VBAP FOR ALL ENTRIES IN LT_TAB1 WHERE VBELN EQ LT_TAB1-VBELV AND POSNR EQ LT_TAB1-POSNV. *&S18.取销售凭证发票 SELECT VBELV POSNV VBELN POSNN APPENDING TABLE LT_VBFA FROM VBFA FOR ALL ENTRIES IN LT_TAB1 WHERE VBELV EQ LT_TAB1-VBELV AND POSNV EQ LT_TAB1-POSNV AND VBTYP_N EQ 'M'. IF SY-SUBRC = 0. SELECT VBELN POSNR KZWI1 FKIMG APPENDING TABLE LT_VBRP FROM VBRP FOR ALL ENTRIES IN LT_VBFA WHERE VBELN = LT_VBFA-VBELN AND POSNR = LT_VBFA-POSNN. ENDIF. REFRESH LT_TAB1. CLEAR L_COUNT. ENDIF. ENDLOOP. SORT LT_VBFA BY VBELV POSNV. SORT LT_VBAP BY VBELN POSNR. SORT LT_VBRP BY VBELN POSNR. ENDIF. FREE: LT_TAB1,LT_WVBAP. * LT_ITAB[] = GT_ITAB[]. * SORT LT_ITAB BY VGBEL VGPOS. * DELETE ADJACENT DUPLICATES FROM LT_ITAB COMPARING VGBEL VGPOS. * SELECT VBELV POSNV * VBELN POSNN * INTO TABLE LT_VBFA * FROM VBFA * FOR ALL ENTRIES IN LT_ITAB * WHERE VBELV EQ LT_ITAB-VGBEL * AND POSNV EQ LT_ITAB-VGPOS * AND VBTYP_N EQ 'M'. * SORT LT_VBFA BY VBELV POSNV. * * * **&S19.取销售凭证对应数量 * SELECT VBELN POSNR * KWMENG ARKTX * INTO TABLE LT_VBAP * FROM VBAP * FOR ALL ENTRIES IN LT_ITAB * WHERE VBELN EQ LT_ITAB-VGBEL * AND POSNR EQ LT_ITAB-VGPOS. * SORT LT_VBAP BY VBELN POSNR. * * REFRESH LT_ITAB. * **&S20.取发票数量与金额 * LT_TAB1[] = LT_VBFA[]. * SORT LT_TAB1 BY VBELN POSNN. * DELETE ADJACENT DUPLICATES FROM LT_TAB1 COMPARING VBELN POSNN. * IF LT_TAB1[] IS NOT INITIAL. * SELECT VBELN POSNR * KZWI1 FKIMG * INTO TABLE LT_VBRP * FROM VBRP * FOR ALL ENTRIES IN LT_TAB1 * WHERE VBELN = LT_TAB1-VBELN * AND POSNR = LT_TAB1-POSNN. * SORT LT_VBRP BY VBELN POSNR. * ENDIF. *&S21获取税率 SELECT A~MWSKZ B~KBETR INTO TABLE LT_A003 FROM A003 AS A JOIN KONP AS B ON A~KNUMH = B~KNUMH AND B~KOPOS = '01' WHERE A~KAPPL = 'TX' AND A~KSCHL = 'MWVS' AND A~ALAND = 'CN' AND B~LOEVM_KO = SPACE. SORT LT_A003 BY MWSKZ. *&S22，环取得其他表中取其它值 LOOP AT GT_ITAB. " INTO WA. G_TABIX = SY-TABIX. MOVE GT_ITAB TO WA. *&S检查ekpo中的库位： *&读取EKPO中金额，税码等数据 IF WA-VGBEL NE SPACE AND WA-VGTYP = 'V'. READ TABLE LT_EKPO WITH KEY EBELN = WA-VGBEL EBELP = WA-VGPOS+1(5) BINARY SEARCH. IF SY-SUBRC EQ 0. *& 取小计金额 和 数量 G_MWSKZ = LT_EKPO-MWSKZ. G_KZWI5 = LT_EKPO-KZWI5. G_KZWI1 = LT_EKPO-KZWI1. G_MENGE = LT_EKPO-MENGE. *&->ADD BY AD_CAIXIANG. WA-MENGE = LT_EKPO-MENGE. *&->END ADD. " WA-LGORT = LT_EKPO-LGORT. * WA-RESLO = LT_EKPO-RESLO. WA-RESLO = LT_EKPO-LGORT. *&->START CHANGE BY AD_CAIXIANG ON 20130516. WA-MAKTX = LT_EKPO-TXZ01. *&->END CHANGE BY AD_CAIXIANG. *&判断库位： *&IF WA-LGORT IN S_LGORT AND IF WA-RESLO IN S_RESLO. * WA-MAKTX = LT_EKPO-TXZ01. * WA-LGORT = LT_EKPO-LGORT. * WA-RESLO = LT_EKPO-RESLO. ELSE. CLEAR WA. DELETE GT_ITAB INDEX G_TABIX. CONTINUE. ENDIF. * ENDIF. **&->START CHANGE BY AD_CAIXIANG ON 20130513 ECDK911294. * ELSE. * CLEAR WA. * DELETE GT_ITAB INDEX G_TABIX. * CONTINUE. ENDIF. *&->END CHANGE BY AD_CAIXIANG ON 20130513. ENDIF. *&--->START CHANGE BY AD_CAIXIANG ON 20130406 ECDK910228 IF S_WBSTK[] IS INITIAL . READ TABLE LT_VBUK WITH KEY VBELN = GT_ITAB-VBELN BINARY SEARCH. IF SY-SUBRC = 0. GT_ITAB-KOSTK = LT_VBUK-KOSTK. GT_ITAB-WBSTK = LT_VBUK-WBSTK. WA-KOSTK = LT_VBUK-KOSTK. WA-WBSTK = LT_VBUK-WBSTK. ENDIF. ENDIF. *& 分子母码找对应的商品编码： * SELECT SINGLE SATNR * INTO WA-MATNR * FROM MARA * WHERE ATTYP = '02' * AND SATNR <> '' * AND MATNR = WA-MATNR. READ TABLE LT_MARA2 WITH KEY MATNR = WA-MATNR BINARY SEARCH. IF SY-SUBRC EQ 0. WA-MATNR = LT_MARA2-SATNR. ENDIF. *&读取供应商 READ TABLE LT_EORD WITH KEY MATNR = WA-MATNR WERKS = WA-WERKS BINARY SEARCH. IF SY-SUBRC EQ 0. WA-LIFNR = LT_EORD-LIFNR. ENDIF. *& 取供应商名称： READ TABLE LT_LFA1 WITH KEY LIFNR = WA-LIFNR BINARY SEARCH. IF SY-SUBRC = 0. WA-NAME3 = LT_LFA1-NAME1. ENDIF. AT NEW VBELN . CLEAR:L_NAME_TEXT. *&S1.5.1:获取制单人信息： READ TABLE LT_NAME WITH KEY BNAME = WA-ERNAM BINARY SEARCH. IF SY-SUBRC EQ 0. L_NAME_TEXT = LT_NAME-NAME_TEXT. ENDIF. *&S1.5.2:取客户描述： CLEAR KNA1-NAME1. READ TABLE LT_KNA1 WITH KEY KUNNR = WA-KUNNR BINARY SEARCH. IF SY-SUBRC = 0. KNA1-NAME1 = LT_KNA1-NAME1. ENDIF. *&S1.5.3:取出客户对应的工厂： CLEAR L_WERKS. READ TABLE LT_T001W WITH KEY KUNNR = WA-KUNNR. " BINARY SEARCH. IF SY-SUBRC = 0. L_WERKS = LT_T001W-WERKS. ENDIF. ENDAT. *&--->END CHANGE BY AD_CAIXIANG ON 20130406. *& 金额： WA-JINE = WA-JIAGE * GT_ITAB-LFIMG. *&---> START CHANGE BY AD_CAIXIANG ON 20130222 ECDK908753 IF WA-BWART EQ '641' OR WA-BWART EQ '643'. *&当交货单的凭证类型为‘641’ ‘643’时，取交货单凭证里的KZWI5 *& 当小计5不为0：价格= 小计5/数量 *& 当小计5为0： 通过交货单凭证中的税码EKPO-MWSKZ,计算税率，然后通 *& ( DMBTR * ( 1 + 税率 / 100 ) ) / 数量.计算价格。 *&---> END CHANGE BY AD_CAIXIANG. READ TABLE LT_EKBE WITH KEY EBELN = WA-VGBEL EBELP = WA-VGPOS+1(5) VBELN = WA-VBELN BINARY SEARCH. IF SY-SUBRC = 0. G_DMBTR = LT_EKBE-DMBTR. *& 当KZWI5不为0： IF G_KZWI5 NE 0. IF G_MENGE NE 0. WA-JIAGE = G_KZWI5 / G_MENGE. ELSE. WA-JIAGE = 0. ENDIF. *& 金额： WA-JINE = WA-JIAGE * GT_ITAB-LFIMG. ELSE. *&获取税率 *&->START CHANGE BY AD_CX ON 20130703 ECDK912680 READ TABLE LT_A003 WITH KEY MWSKZ = G_MWSKZ BINARY SEARCH. IF SY-SUBRC = 0. G_TEXT = LT_A003-KBETR / 10. *&剔除税率小数点后的零 C_TEXT = TRUNC( G_TEXT ). CONCATENATE C_TEXT '%' INTO C_TEXT. ENDIF. *&->START CHANGE BY AD_CAIXIANG ON 20130603 ECDK912048. WA-JINE = ( G_DMBTR * ( 1 + C_TEXT / 100 ) ) . IF G_MENGE NE 0. *&->START CHANGE BY AD_CAIXIANG ON 20130604. WA-JIAGE = WA-JINE / GT_ITAB-LFIMG. ELSE. WA-JIAGE = 0. ENDIF. *&函数注释 * CALL FUNCTION 'YH_PUB_TAX_VALUE_GET' * EXPORTING * I_KSCHL = 'MWVS' * I_MWSKZ = G_MWSKZ * IMPORTING * O_KBETR = G_TEXT. **&->START CHANGE BY AD_CAIXIANG ON 20130603 ECDK912048. * WA-JINE = ( G_DMBTR * ( 1 + G_TEXT / 100 ) ) . * IF G_MENGE NE 0. **&->START CHANGE BY AD_CAIXIANG ON 20130604. * WA-JIAGE = WA-JINE / GT_ITAB-LFIMG. ** WA-JIAGE = WA-JINE / G_MENGE. *&->END CHANGE BY AD_CX. **&->END CHANGE. * ELSE. * WA-JIAGE = 0. * ENDIF. * IF G_MENGE NE 0. * WA-JIAGE = ( G_DMBTR * ( 1 + G_TEXT / 100 ) ) / G_MENGE. * ELSE. * WA-JIAGE = 0. * ENDIF. *&->END CHANGE . ENDIF. ENDIF. ENDIF. *&---> START ADD BY AD_CAIXIANG ON 20130222 ECDK908753. *&当交货单移动类型为 ‘671’ ‘673’时， 小计1/数量 计算价格， IF WA-BWART EQ '671' OR WA-BWART EQ '673'. WA-JIAGE = G_KZWI1 / G_MENGE. *& 金额： WA-JINE = WA-JIAGE * GT_ITAB-LFIMG. ENDIF. *&---> END ADD BY AD_CAIXIANG ON 20130222. *&当移动类型为‘653’ ‘601’，通过交货凭证找到对应的开票凭证数据计算价格 IF WA-BWART EQ '653' OR WA-BWART EQ '601' . *&读取开票凭证 READ TABLE LT_VBFA WITH KEY VBELV = WA-VGBEL POSNV = WA-VGPOS BINARY SEARCH. IF SY-SUBRC EQ 0. VBFA-VBELN = LT_VBFA-VBELN. VBFA-POSNN = LT_VBFA-POSNN. ENDIF. READ TABLE LT_VBRP WITH KEY VBELN = VBFA-VBELN POSNR = VBFA-POSNN BINARY SEARCH. IF SY-SUBRC EQ 0. G_KZWI1 = LT_VBRP-KZWI1. G_FKIMG = LT_VBRP-FKIMG. ENDIF. *&计算价格 IF G_FKIMG NE SPACE. WA-JIAGE = G_KZWI1 / G_FKIMG. ELSE. WA-JIAGE = 0. ENDIF. *& 金额： WA-JINE = WA-JIAGE * GT_ITAB-LFIMG. ENDIF. **& 金额： * WA-JINE = WA-JIAGE * GT_ITAB-LFIMG. *& END ADD ON 20121128 *&S1.6.1: 读取条码： READ TABLE LT_MEAN WITH KEY MATNR = WA-MATNR * MEINH = WA-MEINS BINARY SEARCH. IF SY-SUBRC EQ 0. WA-EAN11 = LT_MEAN-EAN11. ENDIF. *S1.6.2:取规格： READ TABLE LT_MARA WITH KEY MATNR = WA-MATNR BINARY SEARCH. IF SY-SUBRC EQ 0. WA-GROES = LT_MARA-GROES. *&->ADD BY AD_CAIXIANG WA-YLBID1 = LT_MARA-MATKL+0(4). *&->END ADD. ENDIF. *&->ADD BY AD_CAIXIANG *&S1.6.2.1读取大类名称 READ TABLE LT_YTLBCJ WITH KEY YLBID = WA-YLBID1 BINARY SEARCH. IF SY-SUBRC EQ 0. WA-YDLNAM = LT_YTLBCJ-YLBNAME. ENDIF. *&->END ADD. *S1.6.3:取工厂描述： READ TABLE LT_T001W WITH KEY WERKS = WA-WERKS BINARY SEARCH. IF SY-SUBRC EQ 0. WA-NAME1 = LT_T001W-NAME1. ENDIF. *S1.6.5: 取件数： READ TABLE LT_MADQ WITH KEY MATNR = WA-MATNR WERKS = WA-WERKS BINARY SEARCH. IF SY-SUBRC EQ 0. WA-YUMREZ1 = LT_MADQ-YUMREZ1. ENDIF. *&S1.6.6:取数量： IF WA-LFART = 'ZLF' OR WA-LFART = 'ZLR' OR WA-LFART = 'ZLF2' OR WA-LFART = 'ZLR2'. READ TABLE LT_VBAP WITH KEY VBELN = WA-VGBEL POSNR = WA-VGPOS BINARY SEARCH. IF SY-SUBRC EQ 0. WA-MENGE = LT_VBAP-KWMENG. WA-MAKTX = LT_VBAP-ARKTX. ENDIF. * ELSE. ** WA-MENGE = EKPO-MENGE. ENDIF. *&皮重： WA-JINZH = WA-BRGEW - WA-NTGEW. *&订货件数 IF WA-YUMREZ1 NE 0. WA-DINH = WA-MENGE / WA-YUMREZ1. ENDIF. *&实发件数 IF WA-YUMREZ1 NE 0. WA-SHFA = WA-LFIMG / WA-YUMREZ1. ENDIF. *&找移入库位描述： IF WA-RESLO NE SPACE. READ TABLE LT_T001L WITH KEY WERKS = L_WERKS LGORT = WA-RESLO BINARY SEARCH. IF SY-SUBRC EQ 0. WA-LGOBE1 = LT_T001L-LGOBE. ENDIF. ENDIF. **S1.5.12:找移出库位描述： IF WA-LGORT NE SPACE. READ TABLE LT_T001L WITH KEY WERKS = WA-WERKS LGORT = WA-LGORT BINARY SEARCH. IF SY-SUBRC EQ 0. WA-LGOBE2 = LT_T001L-LGOBE. ENDIF. ENDIF. *& 找类型描述： READ TABLE LT_TVLKT WITH KEY LFART = WA-LFART BINARY SEARCH. IF SY-SUBRC EQ 0. WA-VTEXT = LT_TVLKT-VTEXT. ENDIF. *&S1.5.11:汇总数量： L_MENGE = L_MENGE + WA-MENGE. L_LFIMG = L_LFIMG + WA-LFIMG. L_JINZH = L_JINZH + WA-JINZH. WA-NAME2 = KNA1-NAME1. WA-NAME_TEXT = L_NAME_TEXT. *& 单位转换： CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING INPUT = WA-MEINS LANGUAGE = SY-LANGU IMPORTING OUTPUT = WA-MEINS EXCEPTIONS UNIT_NOT_FOUND = 1 OTHERS = 2. *&START ADD BY AD_CAIXIANG ON 201211206 MOVE-CORRESPONDING WA TO GT_DATA. GT_DATA-MENGE = L_MENGE. GT_DATA-LFIMG = L_LFIMG. GT_DATA-JINZH = L_JINZH. COLLECT GT_DATA. CLEAR GT_DATA. MODIFY GT_ITAB FROM WA. CLEAR: WA. CLEAR : L_MENGE, L_LFIMG, L_JINZH. ENDLOOP. *&END ADD BY AD_CAIXIANG ON ... *&筛选条件] *&->START ADD BY AD_CAIXIANG ON 20130513 ECDK911373 IF S_RESLO[] IS NOT INITIAL. DELETE GT_ITAB WHERE RESLO NOT IN S_RESLO. DELETE GT_DATA WHERE RESLO NOT IN S_RESLO. ENDIF. *&->EDN ADD BY AD_CX. *&S1.7: 检查是否取到数据： DESCRIBE TABLE GT_DATA LINES G_LEN. IF G_LEN EQ 0. MESSAGE I011 WITH '没有查询到符合条件的数据！'. STOP. ENDIF. ENDFORM. " frm_get_data *&---------------------------------------------------------------------* *& Form FRM_LFART *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_LFART . CLEAR:R_LFART[],R_LFART. R_LFART-SIGN = 'I'. R_LFART-OPTION = 'EQ'. R_LFART-LOW = 'NLR'. APPEND R_LFART. R_LFART-LOW = 'NL'. APPEND R_LFART. R_LFART-LOW = 'NLCC'. APPEND R_LFART. R_LFART-LOW = 'NCR'. APPEND R_LFART. R_LFART-LOW = 'ZLF'. APPEND R_LFART. R_LFART-LOW = 'ZLR'. APPEND R_LFART. *&->START ADD BY AD_CAIXIANG ON 20120126 ECDK907564 R_LFART-LOW = 'ZLF2'. APPEND R_LFART. R_LFART-LOW = 'ZLR2'. APPEND R_LFART. *&->END ADD BY AD_CAIXIANG ENDFORM. " FRM_LFART *&---------------------------------------------------------------------* *& Form frm_output_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_ALV_OUTPUT. CHECK G_LEN NE 0. *&S4.1: 设定输出字段： PERFORM FRM_FIELDCAT_GET. PERFORM FRM_EVENTS_SET. *&S4.2:设定输出格式： PERFORM FRM_LAYOUT_SET. G_LEN = LINES( GT_DATA[] ). MESSAGE S013 WITH '找到数据：' G_LEN '条'. *&调用ALV函数输出: CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = SY-REPID * I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS' I_CALLBACK_USER_COMMAND = 'USER_COMMAND' IS_LAYOUT = GS_LAYOUT IT_FIELDCAT = GT_FIELDCAT I_SAVE = 'A' * it_events = gt_event TABLES T_OUTTAB = GT_DATA EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. ENDFORM. " FRM_ALV_OUTPUT. *&---------------------------------------------------------------------* *& Form USER_COMMAND *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD. DATA: LR_GRID TYPE REF TO CL_GUI_ALV_GRID. *&将变更的数据刷新 CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING E_GRID = LR_GRID. CALL METHOD LR_GRID->CHECK_CHANGED_DATA. RS_SELFIELD-REFRESH = 'X'. * break ad_taoxb. CLEAR WA. CASE R_UCOMM. WHEN '&IC1'. *&Double deal with: CLEAR GT_DATA. READ TABLE GT_DATA INDEX RS_SELFIELD-TABINDEX. IF SY-SUBRC EQ 0. PERFORM FRM_DETAIL_DISP. ENDIF. * CALL METHOD lr_grid->refresh_table_display. WHEN OTHERS. ENDCASE. ENDFORM. "USER_COMMAND *&---------------------------------------------------------------------* *& ALV EVENT Form f_pf_status_set *&---------------------------------------------------------------------* FORM F_PF_STATUS_SET USING EXTAB TYPE SLIS_T_EXTAB. SET PF-STATUS 'STANDARD' EXCLUDING EXTAB. ENDFORM. " f_pf_status_set *&---------------------------------------------------------------------* *& Form FRM_FIELDCAT_GET *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_FIELDCAT_GET . CLEAR GT_FIELDCAT. REFRESH GT_FIELDCAT. *&设定输出的相关字段结构： MAR_ADD_FIELDCAT 'VBELN' '交货单' '1' '' '10' 'X' '' ''. MAR_ADD_FIELDCAT 'WERKS' '配出机构' '2' '' '6' ' ' '' ''. MAR_ADD_FIELDCAT 'NAME1' '配出机构名称' '3' '' '15' ' ' '' ''. MAR_ADD_FIELDCAT 'KUNNR' '配入机构' '5' '' '6' ' ' '' 'X'. MAR_ADD_FIELDCAT 'NAME2' '配入机构名称' '6' '' '20' ' ' '' ''. MAR_ADD_FIELDCAT 'LGORT' '移出库位' '7' '' '6' ' ' '' ''. MAR_ADD_FIELDCAT 'LGOBE2' '移出库位描述' '8' '' '15' ' ' '' ''. MAR_ADD_FIELDCAT 'RESLO' '移入库位' '9' '' '6' ' ' '' ''. MAR_ADD_FIELDCAT 'LGOBE1' '移入库位描述' '10' '' '15' ' ' '' ''. MAR_ADD_FIELDCAT 'LIFEX' '融通单号' '12' '' '20' ' ' '' ''. MAR_ADD_FIELDCAT 'LFART' '类型' '13' '' '5' ' ' '' ''. MAR_ADD_FIELDCAT 'VTEXT' '交货类型描述' '14' '' '15' ' ' '' ''. MAR_ADD_FIELDCAT 'YYCARNO' '车辆号' '15' '' '10' ' ' '' ''. MAR_ADD_FIELDCAT 'BLDAT' '凭证日期' '17' '' '10' ' ' '' ''. MAR_ADD_FIELDCAT 'ERZET' '时间' '17' '' '10' ' ' '' ''. MAR_ADD_FIELDCAT 'WADAT_IST' '实际发货日期' '18' '' '10' ' ' '' ''. MAR_ADD_FIELDCAT 'MENGE' '订货数量' '20' '' '10' ' ' '' ''. MAR_ADD_FIELDCAT 'LFIMG' '实发数量' '21' '' '10' ' ' '' ''. MAR_ADD_FIELDCAT 'JINZH' '皮重' '22' '' '10' ' ' '' ''. MAR_ADD_FIELDCAT 'JINE' '金额' '22' '' '10' ' ' '' ''. MAR_ADD_FIELDCAT 'KOSTK' '总拣配状态' '23' '' '6' ' ' '' ''. MAR_ADD_FIELDCAT 'WBSTK' '移动总状态' '25' '' '8' ' ' '' ''. MAR_ADD_FIELDCAT 'NAME_TEXT' '制单人' '26' '' '10' ' ' '' ''. "MAR_ADD_FIELDCAT 'TDDAT' '计划日期' '16' '' '10' ' ' ' '. ENDFORM. " FRM_FIELDCAT_GET *&---------------------------------------------------------------------* *& Form FRM_EVENTS_SET *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_EVENTS_SET . ENDFORM. " FRM_EVENTS_SET *&---------------------------------------------------------------------* *& Form FRM_LAYOUT_SET *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_LAYOUT_SET . CLEAR GS_LAYOUT. MOVE: 'X' TO GS_LAYOUT-ZEBRA, 'X' TO GS_LAYOUT-COLWIDTH_OPTIMIZE, 'X' TO GS_LAYOUT-DETAIL_POPUP. ENDFORM. " FRM_LAYOUT_SET *&---------------------------------------------------------------------* *& Form FRM_DETAIL_DISP *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_DETAIL_DISP . DATA: LT_ITAB LIKE GT_ITAB OCCURS 0 WITH HEADER LINE. DATA: G_LEN2 TYPE SY-TABIX. *&T1.找到需显示的数据： LT_ITAB[] = GT_ITAB[]. IF P_DETAIL IS INITIAL. DELETE LT_ITAB WHERE VBELN NE GT_DATA-VBELN. SORT LT_ITAB BY MATNR. ENDIF. *&T2:获取结构： PERFORM FRM_FIELDCAT_GET2. G_LEN2 = LINES( LT_ITAB[] ). MESSAGE S013 WITH '找到数据：' G_LEN2 '条'. *&T3: 显示： CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = SY-CPROG * I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS' * I_CALLBACK_USER_COMMAND = 'USER_COMMAND' IS_LAYOUT = GS_LAYOUT IT_FIELDCAT = GT_FIELDCAT2 I_SAVE = 'A' * it_events = gt_event TABLES T_OUTTAB = LT_ITAB EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. ENDFORM. " FRM_DETAIL_DISP *&---------------------------------------------------------------------* *& Form FRM_FIELDCAT_GET2 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_FIELDCAT_GET2 . CLEAR GT_FIELDCAT2. REFRESH GT_FIELDCAT2. *&设定输出的相关字段结构： MAR_ADD_FIELDCAT2 'VBELN' '交货单' '1' '' '10' 'X' '' ''. MAR_ADD_FIELDCAT2 'POSNR' '项次' '2' '' '5' 'X' ' ' ''. MAR_ADD_FIELDCAT2 'WERKS' '配出机构' '3' '' '6' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'NAME1' '配出机构名称' '4' '' '15' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'KUNNR' '配入机构' '5' '' '6' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'NAME2' '配入机构名称' '6' '' '20' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'LGORT' '移出库位' '7' '' '6' ' ' '' ''. MAR_ADD_FIELDCAT2 'LGOBE2' '移出库位描述' '8' '' '15' ' ' '' ''. MAR_ADD_FIELDCAT2 'RESLO' '移入库位' '9' '' '6' ' ' '' ''. MAR_ADD_FIELDCAT2 'LGOBE1' '移入库位描述' '10' '' '15' ' ' '' ''. * MAR_ADD_FIELDCAT2 'RESLO' '移出库位' '8' '' '6' ' ' ' ' ''. * MAR_ADD_FIELDCAT2 'LGOBE1' '移出库位描述' '9' '' '15' ' ' ' ' ''. * MAR_ADD_FIELDCAT2 'LGORT' '移入库位' '10' '' '6' ' ' ' ' ''. * MAR_ADD_FIELDCAT2 'LGOBE2' '移入库位描述' '11' '' '15' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'LFART' '类型' '13' '' '5' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'VTEXT' '交货类型描述' '14' '' '15' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'VGBEL' '参考凭证' '14' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'VGPOS' '参考项次' '14' '' '5' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'MATNR' '商品编码' '15' '' '18' ' ' ' ' 'X'. MAR_ADD_FIELDCAT2 'EAN11' '条码' '16' '' '15' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'MAKTX' '商品名称' '17' '' '30' ' ' ' ' ''. *&->START ADD BY AD_CAIXIANG ON 20130514 ECDK911331 MAR_ADD_FIELDCAT2 'YLBID1' '大类编码' '18' '' '15' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'YDLNAM' '大类名称' '18' '' '30' ' ' ' ' ''. *&->END ADD. MAR_ADD_FIELDCAT2 'MEINS' '单位' '19' '' '5' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'YYCARNO' '车辆号' '20' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'BLDAT' '凭证日期' '23' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'ERZET' '时间' '23' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'WADAT_IST' '实际发货日期' '24' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'ANZPK' '包数' '25' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'GROES' '规格' '26' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'YUMREZ1' '件装数' '28' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'DINH' '订货件数' '29' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'MENGE' '订货数量' '30' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'SHFA' '实发件数' '31' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'LFIMG' '实发数量' '32' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'JINZH' '皮重' '33' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'NAME_TEXT' '制单人' '36' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'LIFNR' '供应商编码' '37' '' '10' ' ' ' ' 'X'. MAR_ADD_FIELDCAT2 'NAME3' '供应商名称' '38' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'JIAGE' '价格' '38' '' '10' ' ' ' ' ''. MAR_ADD_FIELDCAT2 'JINE' '金额' '38' '' '10' ' ' ' ' ''. "MAR_ADD_FIELDCAT2 'TDDAT' '计划日期' '21' '' '10' ' ' ' ' ''. ENDFORM. " FRM_FIELDCAT_GET2