ZVK13(参考VK13)查销售价格

*&---------------------------------------------------------------------*
*& REPORT  ZRPT_SD_KNA_PRICE_R
*&
*&---------------------------------------------------------------------*
*& AUTHOR GAVIN
*& ZVK13  VK13的扩展，查看所有的维护了的物料价格
*&---------------------------------------------------------------------*REPORT ZRPT_SD_KNA_PRICE_R.TABLES:A903,A904,A908,A909,A906,A911,A914,A920,A919,A918,KNVV,KONP.DATA:STDATUM LIKE SY-DATUM,STUZEIT LIKE SY-UZEIT.DATA:BEGIN OF WA_ITAB OCCURS 0,KUNNR LIKE KNVV-KUNNR, "客户VKORG LIKE KNVV-VKORG, "销售组织 销售机构VTWEG LIKE KNVV-VTWEG, "分销渠道KDGRP LIKE KNVV-KDGRP, "客户组SPART LIKE KNVV-SPART, "部门KONDA LIKE KNVV-KONDA, "价格组INCO1 LIKE KNVV-INCO1,"国贸术语WAERK LIKE KNVV-WAERS, "币种MATNR LIKE A920-MATNR, "物料DATAB LIKE A920-DATAB, "有效从DATBI LIKE A920-DATBI,  "有效到KBETR LIKE KONP-KBETR,  "价格KONWA LIKE KONP-KONWA, "等级货币KPEIN LIKE KONP-KPEIN,  "条件定价单位KMEIN LIKE KONP-KMEIN, "条件单位KAPPL LIKE KONP-KAPPL, "用程序KSCHL LIKE KONP-KSCHL, "条件类型KFRST LIKE KONP-KFRST, "批准状态KNUMH LIKE KONP-KNUMH,"价格记录号
END OF WA_ITAB.DATA:GT_FIELDCAT TYPE LVC_T_FCAT,GS_FIELDCAT TYPE LVC_S_FCAT,GS_LAYOUT   TYPE LVC_S_LAYO.*&------------------------------------------------------------------*
*& SELECT-OPTIONS
*&------------------------------------------------------------------*
START-OF-SELECTION.SELECTION-SCREEN BEGIN OF BLOCK TITLE WITH FRAME TITLE BLKTEXT.PARAMETERS:P_920 TYPE C RADIOBUTTON GROUP 1 DEFAULT 'X' MODIF ID 0 USER-COMMAND chc,P_919 TYPE C RADIOBUTTON GROUP 1 MODIF ID 0,P_918 TYPE C RADIOBUTTON GROUP 1 MODIF ID 0,P_908 TYPE C RADIOBUTTON GROUP 1 MODIF ID 0,P_903 TYPE C RADIOBUTTON GROUP 1 MODIF ID 0,P_909 TYPE C RADIOBUTTON GROUP 1 MODIF ID 0,P_906 TYPE C RADIOBUTTON GROUP 1 MODIF ID 0,P_911 TYPE C RADIOBUTTON GROUP 1 MODIF ID 0,P_904 TYPE C RADIOBUTTON GROUP 1 MODIF ID 0,P_914 TYPE C RADIOBUTTON GROUP 1 MODIF ID 0.PARAMETERS:PDATE TYPE SY-DATUM DEFAULT SY-DATUM MODIF ID 0.SELECT-OPTIONS:S_MATNR FOR A920-MATNR MODIF ID 0.PARAMETERS: P_key TYPE C as CHECKBOX.SELECTION-SCREEN END OF BLOCK TITLE.SELECTION-SCREEN BEGIN OF BLOCK TITLE920 WITH FRAME TITLE BLK920.SELECT-OPTIONS:S_KU920 FOR A920-KUNNR MODIF ID 920,S_WA920 FOR A920-WAERK MODIF ID 920.SELECTION-SCREEN END OF BLOCK TITLE920.SELECTION-SCREEN BEGIN OF BLOCK TITLE919 WITH FRAME TITLE BLK919.SELECT-OPTIONS:S_KO919 FOR A919-KONDA MODIF ID 919,S_WA919 FOR A920-WAERK MODIF ID 919.SELECTION-SCREEN END OF BLOCK TITLE919.SELECTION-SCREEN BEGIN OF BLOCK TITLE918 WITH FRAME TITLE BLK918.SELECT-OPTIONS:S_WA918 FOR A920-WAERK MODIF ID 918.SELECTION-SCREEN END OF BLOCK TITLE918.SELECTION-SCREEN BEGIN OF BLOCK TITLE908 WITH FRAME TITLE BLK908.SELECT-OPTIONS:S_VK908 FOR A908-VKORG MODIF ID 908,S_VT908 FOR A908-VTWEG MODIF ID 908,S_KU908 FOR A908-KUNNR MODIF ID 908,S_IN908 FOR A908-INCO1 MODIF ID 908.SELECTION-SCREEN END OF BLOCK TITLE908.SELECTION-SCREEN BEGIN OF BLOCK TITLE903 WITH FRAME TITLE BLK903.SELECT-OPTIONS:S_VK903 FOR A903-VKORG MODIF ID 903,S_KU903 FOR A903-KUNNR MODIF ID 903.SELECTION-SCREEN END OF BLOCK TITLE903.SELECTION-SCREEN BEGIN OF BLOCK TITLE909 WITH FRAME TITLE BLK909.SELECT-OPTIONS:S_VK909 FOR A909-VKORG MODIF ID 909,S_KO909 FOR A909-KONDA MODIF ID 909.SELECTION-SCREEN END OF BLOCK TITLE909.SELECTION-SCREEN BEGIN OF BLOCK TITLE906 WITH FRAME TITLE BLK906.SELECT-OPTIONS:S_VK906 FOR A906-VKORG MODIF ID 906,S_KD906 FOR A906-KDGRP MODIF ID 906.SELECTION-SCREEN END OF BLOCK TITLE906.SELECTION-SCREEN BEGIN OF BLOCK TITLE911 WITH FRAME TITLE BLK911.SELECT-OPTIONS:S_VK911 FOR A908-VKORG MODIF ID 911,S_IN911 FOR A911-INCO1 MODIF ID 911.SELECTION-SCREEN END OF BLOCK TITLE911.SELECTION-SCREEN BEGIN OF BLOCK TITLE904 WITH FRAME TITLE BLK904.SELECT-OPTIONS:S_VK904 FOR A904-VKORG MODIF ID 904,S_VT904 FOR A904-VTWEG MODIF ID 904.SELECTION-SCREEN END OF BLOCK TITLE904.SELECTION-SCREEN BEGIN OF BLOCK TITLE914 WITH FRAME TITLE BLK914.SELECT-OPTIONS:S_VK914 FOR A914-VKORG MODIF ID 914,S_KU914 FOR A914-KUNNR MODIF ID 914,S_WA914 FOR A914-WAERK MODIF ID 914.SELECTION-SCREEN END OF BLOCK TITLE914.
*-------------------------------------------------------------------*
* INITIALIZATION
*-------------------------------------------------------------------*
INITIALIZATION.BLKTEXT = '请选择搜索范围'.BLK920 = 'A920-客户/物料/货币'.BLK919 = 'A919-价格组/物料/货币'.BLK918 = 'A918-物料/货币'.BLK908 = 'A908-销售组织/分销渠道/客户/国贸术语/物料'.BLK904 = 'A904-销售组织/分销渠道/物料'.BLK914 = 'A914-销售机构/客户/货币/物料'.BLK911 = 'A911-销售组织/国贸术语/物料'.BLK906 = 'A906-销售组织/客户组/物料'.BLK909 = 'A909-销售组织/价格组/物料'.BLK903 = 'A903-销售组织/客户/物料'.AT SELECTION-SCREEN OUTPUT.LOOP AT SCREEN.if SCREEN-GROUP1 <> 0.IF P_920 = 'X'.IF SCREEN-GROUP1 = '920'.SCREEN-ACTIVE = 1.ELSE.SCREEN-ACTIVE = 0.ENDIF.ENDIF.IF P_919 = 'X'.IF SCREEN-GROUP1 = '919'.SCREEN-ACTIVE = 1.ELSE.SCREEN-ACTIVE = 0.ENDIF.ENDIF.IF P_918 = 'X'.IF SCREEN-GROUP1 = '918'.SCREEN-ACTIVE = 1.ELSE.SCREEN-ACTIVE = 0.ENDIF.ENDIF.IF P_908 = 'X'.IF SCREEN-GROUP1 = '908'.SCREEN-ACTIVE = 1.ELSE.SCREEN-ACTIVE = 0.ENDIF.ENDIF.IF P_904 = 'X'.IF SCREEN-GROUP1 = '904'.SCREEN-ACTIVE = 1.ELSE.SCREEN-ACTIVE = 0.ENDIF.endif.IF P_914 = 'X'.IF SCREEN-GROUP1 = '914'.SCREEN-ACTIVE = 1.ELSE.SCREEN-ACTIVE = 0.ENDIF.ENDIF.IF P_911 = 'X'.IF SCREEN-GROUP1 = '911'.SCREEN-ACTIVE = 1.ELSE.SCREEN-ACTIVE = 0.ENDIF.ENDIF.IF P_906 = 'X'.IF SCREEN-GROUP1 = '906'.SCREEN-ACTIVE = 1.ELSE.SCREEN-ACTIVE = 0.ENDIF.ENDIF.IF P_909 = 'X'.IF SCREEN-GROUP1 = '909'.SCREEN-ACTIVE = 1.ELSE.SCREEN-ACTIVE = 0.ENDIF.endif.IF P_903 = 'X'.IF SCREEN-GROUP1 = '903'.SCREEN-ACTIVE = 1.ELSE.SCREEN-ACTIVE = 0.ENDIF.ENDIF.MODIFY SCREEN.endif.ENDLOOP.AT SELECTION-SCREEN.START-OF-SELECTION.STDATUM = SY-DATUM.STUZEIT = SY-UZEIT.PERFORM GETDATA.PERFORM WRITERPTRUNRECORD.PERFORM DISPLAY.END-OF-SELECTION.
*&---------------------------------------------------------------------*
*&      FORM  DISPLAY
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
FORM DISPLAY .IF ( P_KEY = 'X' AND ( P_920 = 'X' OR P_914 = 'X' OR P_903 = 'X' ) ) OR P_KEY NE 'X'.PERFORM BUILD_FIELDCAT USING 'KUNNR' '' '' '' '' '' '' '客户代码' 'X'.ENDIF.if ( P_KEY = 'X' AND P_920 NE 'X' and P_919 NE 'X' and  P_918 NE 'X' ) OR P_KEY NE 'X'.PERFORM BUILD_FIELDCAT USING 'VKORG' '' '' '' '' '' '' '销售机构' ''.ENDIF.if ( P_KEY = 'X' AND ( P_908 = 'X'  OR P_904 = 'X' ) ) OR P_KEY NE 'X'.PERFORM BUILD_FIELDCAT USING 'VTWEG' '' '' '' '' '' '' '分销渠道' ''.ENDIF.if  P_KEY NE 'X'.PERFORM BUILD_FIELDCAT USING 'SPART' '' '' '' '' '' '' '部门' ''.ENDIF.if ( P_KEY = 'X' AND P_906 = 'X' ) OR P_KEY NE 'X'.PERFORM BUILD_FIELDCAT USING 'KDGRP' '' '' '' '' '' '' '客户组' ''.ENDIF.if ( P_KEY = 'X'  AND ( P_909 = 'X' OR P_919 = 'X' ) ) OR P_KEY NE 'X'.PERFORM BUILD_FIELDCAT USING 'KONDA' '' '' '' '' '' '' '价格组' ''.ENDIF.if ( P_KEY = 'X' AND (  P_911 = 'X' OR P_908 = 'X' ) ) OR P_KEY NE 'X'.PERFORM BUILD_FIELDCAT USING 'INCO1' '' '' '' '' '' '' '国贸术语' ''.ENDIF.if ( P_KEY = 'X' AND ( P_920 = 'X' OR P_919 = 'X' OR P_918 = 'X' OR P_914 = 'X' ) ) OR P_KEY NE 'X'.PERFORM BUILD_FIELDCAT USING 'WAERK' '' '' '' '' '' '' '币种' ''.ENDIF.PERFORM BUILD_FIELDCAT USING 'MATNR' '' '' '' '' '' '' '物料代码' 'X'.PERFORM BUILD_FIELDCAT USING 'DATAB' '' '' '' '' '' '' '有效期起' ''.PERFORM BUILD_FIELDCAT USING 'DATBI' '' '' '' '' '' '' '有效期止' ''.PERFORM BUILD_FIELDCAT USING 'KBETR' '' '' '' '' '' '' '价格' ''.PERFORM BUILD_FIELDCAT USING 'KONWA' '' '' '' '' '' '' '等级货币' ''.PERFORM BUILD_FIELDCAT USING 'KPEIN' '' '' '' '' '' '' '条件定价单位' ''.PERFORM BUILD_FIELDCAT USING 'KMEIN' '' '' '' '' '' '' '条件单位' ''.PERFORM BUILD_FIELDCAT USING 'KAPPL' '' '' '' '' '' '' '引用程序' ''.PERFORM BUILD_FIELDCAT USING 'KSCHL' '' '' '' '' '' '' '条件类型' ''.PERFORM BUILD_FIELDCAT USING 'KFRST' '' '' '' '' '' '' '批准状态' ''.PERFORM BUILD_FIELDCAT USING 'KNUMH' '' '' '' '' '' '' '价格记录号' ''.GS_LAYOUT-CWIDTH_OPT = 'X'.GS_LAYOUT-ZEBRA = 'X'.CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'EXPORTINGI_CALLBACK_PROGRAM      = SY-REPID"      I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_ALV'I_CALLBACK_USER_COMMAND = 'USER_COMMAND_ALV'IT_FIELDCAT_LVC         = GT_FIELDCATIS_LAYOUT_LVC           = GS_LAYOUTI_DEFAULT               = 'X'I_SAVE                  = 'A'TABLEST_OUTTAB                = WA_ITABEXCEPTIONSOTHERS                  = 1.
ENDFORM.                    "DISPLAY*&---------------------------------------------------------------------*
*&      FORM  BUILD_FIELDCAT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
FORM BUILD_FIELDCAT USING P_FIELDNAME   TYPE FIELDNAMEP_QFIELDNAME  TYPE LVC_QFNAMEP_CFIELDNAME  TYPE LVC_CFNAMEP_REF_TABLE   TYPE LVC_RTNAMEP_REF_FIELD   TYPE LVC_RFNAMEP_CONVEXIT    TYPE CONVEXITP_EMPHASIZE   TYPE LVC_EMPHSZP_SCRTEXT_L   TYPE SCRTEXT_LP_NO_ZERO     TYPE XFLAG.GS_FIELDCAT-FIELDNAME     = P_FIELDNAME.GS_FIELDCAT-QFIELDNAME    = P_QFIELDNAME.GS_FIELDCAT-CFIELDNAME    = P_CFIELDNAME.GS_FIELDCAT-REF_TABLE     = P_REF_TABLE.GS_FIELDCAT-REF_FIELD     = P_REF_FIELD.GS_FIELDCAT-CONVEXIT      = P_CONVEXIT.GS_FIELDCAT-EMPHASIZE     = P_EMPHASIZE.GS_FIELDCAT-SCRTEXT_L     = P_SCRTEXT_L.GS_FIELDCAT-NO_ZERO   = P_NO_ZERO.GS_FIELDCAT-COLDDICTXT    = 'L'.APPEND GS_FIELDCAT TO GT_FIELDCAT.CLEAR: GS_FIELDCAT.
ENDFORM.                    "BUILD_FIELDCAT
*&---------------------------------------------------------------------*
*&      FORM  GETDATA
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
FORM GETDATA .IF P_920 = 'X'.if P_key = 'X'.SELECT KNVV~KUNNR KNVV~WAERS as waerk A920~MATNR A920~DATAB A920~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO CORRESPONDING FIELDS OF  TABLE  WA_ITABFROM A920JOIN KNVV ON KNVV~KUNNR = A920~KUNNRJOIN KONP ON KONP~KNUMH  = A920~KNUMH AND KONP~LOEVM_KO NE 'X' AND A920~WAERK = KONP~KONWA AND KONP~KONWA = KNVV~WAERSWHERE   A920~KSCHL = 'ZPR1' AND A920~KAPPL = 'V' AND A920~DATBI >= PDATE AND A920~DATAB < PDATE AND A920~WAERK IN S_WA920AND KNVV~KUNNR IN S_KU920 AND A920~MATNR IN S_MATNR.SORT WA_ITAB BY KUNNR MATNR WAERK.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING KUNNR MATNR WAERK.else.SELECT  KNVV~KUNNR KNVV~VKORG KNVV~VTWEG KNVV~KDGRP KNVV~SPART  KNVV~KONDA KNVV~INCO1KNVV~WAERS A920~MATNR A920~DATAB A920~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO TABLE WA_ITABFROM A920JOIN KNVV ON KNVV~KUNNR = A920~KUNNRJOIN KONP ON KONP~KNUMH  = A920~KNUMH AND KONP~LOEVM_KO NE 'X' AND A920~WAERK = KONP~KONWA AND KONP~KONWA = KNVV~WAERSWHERE   A920~KSCHL = 'ZPR1' AND A920~KAPPL = 'V' AND A920~DATBI >= PDATE AND A920~DATAB < PDATE AND A920~WAERK IN S_WA920AND KNVV~KUNNR IN S_KU920 AND A920~MATNR IN S_MATNR.SORT WA_ITAB BY KUNNR MATNR WAERK.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING KUNNR MATNR WAERK.endif.ENDIF.IF P_919 = 'X'.IF P_KEY = 'X'.SELECT    KNVV~KONDA KNVV~WAERS AS WAERK  A919~MATNR A919~DATAB A919~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO CORRESPONDING FIELDS OF TABLE WA_ITABFROM A919JOIN KNVV ON KNVV~KONDA = A919~KONDAJOIN KONP ON KONP~KNUMH  = A919~KNUMH AND KONP~LOEVM_KO NE 'X' AND A919~WAERK = KONP~KONWA AND KONP~KONWA = KNVV~WAERSWHERE   A919~KSCHL = 'ZPR1' AND A919~KAPPL = 'V' AND A919~DATBI >= PDATE AND A919~DATAB < PDATE AND A919~WAERK IN S_WA919AND KNVV~KONDA IN S_KO919 AND A919~MATNR IN S_MATNR.SORT WA_ITAB BY KONDA MATNR WAERK.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING KONDA MATNR WAERK.ELSE.SELECT  KNVV~KUNNR KNVV~VKORG KNVV~VTWEG KNVV~KDGRP KNVV~SPART  KNVV~KONDA KNVV~INCO1KNVV~WAERS AS WAERK  A919~MATNR A919~DATAB A919~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO TABLE WA_ITABFROM A919JOIN KNVV ON KNVV~KONDA = A919~KONDAJOIN KONP ON KONP~KNUMH  = A919~KNUMH AND KONP~LOEVM_KO NE 'X' AND A919~WAERK = KONP~KONWA AND KONP~KONWA = KNVV~WAERSWHERE   A919~KSCHL = 'ZPR1' AND A919~KAPPL = 'V' AND A919~DATBI >= PDATE AND A919~DATAB < PDATE AND A919~WAERK IN S_WA919AND KNVV~KONDA IN S_KO919 AND A919~MATNR IN S_MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING ALL FIELDS.ENDIF.ENDIF.IF P_918 = 'X'.SELECT  A918~WAERK A918~MATNR A918~DATAB A918~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO CORRESPONDING FIELDS OF  TABLE WA_ITABFROM A918JOIN KONP ON KONP~KNUMH  = A918~KNUMH AND KONP~LOEVM_KO NE 'X' AND A918~WAERK = KONP~KONWAWHERE   A918~KSCHL = 'ZPR1' AND A918~KAPPL = 'V' AND A918~DATBI >= PDATE AND A918~DATAB < PDATE AND A918~WAERK IN S_WA918AND  A918~MATNR IN S_MATNR.SORT WA_ITAB BY  MATNR WAERK.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING ALL FIELDS.ENDIF.IF P_908 = 'X'.IF P_KEY = 'X'.SELECT  KNVV~KUNNR KNVV~VKORG KNVV~VTWEG  KNVV~INCO1KNVV~WAERS AS waerk A908~MATNR A908~DATAB A908~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO CORRESPONDING FIELDS OF  TABLE WA_ITABFROM A908JOIN KNVV ON KNVV~VKORG = A908~VKORG AND KNVV~VTWEG = A908~VTWEG AND KNVV~KUNNR = A908~KUNNR AND KNVV~INCO1 = A908~INCO1JOIN KONP ON KONP~KNUMH  = A908~KNUMH AND KONP~LOEVM_KO NE 'X' AND KONP~KONWA = KNVV~WAERSWHERE   A908~KSCHL = 'ZPR1' AND A908~KAPPL = 'V' AND A908~DATBI >= PDATE AND A908~DATAB < PDATE AND A908~VKORG IN S_VK908AND KNVV~VTWEG IN S_VT908  AND A908~INCO1 IN S_IN908  AND A908~MATNR IN S_MATNR.SORT WA_ITAB BY VKORG VTWEG  KUNNR  INCO1 MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING VKORG VTWEG  KUNNR  INCO1 MATNR.else.SELECT  KNVV~KUNNR KNVV~VKORG KNVV~VTWEG KNVV~KDGRP KNVV~SPART  KNVV~KONDA KNVV~INCO1KNVV~WAERS as waerk A908~MATNR A908~DATAB A908~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO TABLE WA_ITABFROM A908JOIN KNVV ON KNVV~VKORG = A908~VKORG AND KNVV~VTWEG = A908~VTWEG AND KNVV~KUNNR = A908~KUNNR AND KNVV~INCO1 = A908~INCO1JOIN KONP ON KONP~KNUMH  = A908~KNUMH AND KONP~LOEVM_KO NE 'X' AND KONP~KONWA = KNVV~WAERSWHERE   A908~KSCHL = 'ZPR1' AND A908~KAPPL = 'V' AND A908~DATBI >= PDATE AND A908~DATAB < PDATE AND A908~VKORG IN S_VK908AND KNVV~VTWEG IN S_VT908  AND A908~INCO1 IN S_IN908  AND A908~MATNR IN S_MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING ALL FIELDS.ENDif.ENDIF.IF P_903 = 'X'.IF P_KEY = 'X'.SELECT  KNVV~KUNNR KNVV~VKORG KNVV~WAERS as waerk A903~MATNR A903~DATAB A903~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO CORRESPONDING FIELDS OF  TABLE WA_ITABFROM A903JOIN KNVV ON KNVV~KUNNR = A903~KUNNR AND KNVV~VKORG = A903~VKORGJOIN KONP ON KONP~KNUMH  = A903~KNUMH AND KONP~LOEVM_KO NE 'X' AND KONP~KONWA = KNVV~WAERSWHERE   A903~KSCHL = 'ZPR1' AND A903~KAPPL = 'V' AND A903~DATBI >= PDATE AND A903~DATAB < PDATEAND KNVV~KUNNR IN S_KU903 AND A903~MATNR IN S_MATNR.SORT WA_ITAB BY VKORG   KUNNR  MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING VKORG   KUNNR  MATNR.else.SELECT  KNVV~KUNNR KNVV~VKORG KNVV~VTWEG KNVV~KDGRP KNVV~SPART  KNVV~KONDA KNVV~INCO1KNVV~WAERS A903~MATNR A903~DATAB A903~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO TABLE WA_ITABFROM A903JOIN KNVV ON KNVV~KUNNR = A903~KUNNR AND KNVV~VKORG = A903~VKORGJOIN KONP ON KONP~KNUMH  = A903~KNUMH AND KONP~LOEVM_KO NE 'X' AND KONP~KONWA = KNVV~WAERSWHERE   A903~KSCHL = 'ZPR1' AND A903~KAPPL = 'V' AND A903~DATBI >= PDATE AND A903~DATAB < PDATEAND KNVV~KUNNR IN S_KU903 AND A903~MATNR IN S_MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING ALL FIELDS.endif.ENDIF.IF P_909 = 'X'.if P_KEY = 'X'.SELECT   KNVV~VKORG  KNVV~KONDAKNVV~WAERS as waerk A909~MATNR A909~DATAB A909~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO CORRESPONDING FIELDS OF TABLE WA_ITABFROM A909JOIN KNVV ON KNVV~VKORG = A909~VKORG AND KNVV~KONDA = A909~KONDAJOIN KONP ON KONP~KNUMH  = A909~KNUMH AND KONP~LOEVM_KO NE 'X' AND KONP~KONWA = KNVV~WAERSWHERE   A909~KSCHL = 'ZPR1' AND A909~KAPPL = 'V' AND A909~DATBI >= PDATE AND A909~DATAB < PDATE AND A909~VKORG IN S_VK909AND KNVV~KONDA IN S_KO909 AND A909~MATNR IN S_MATNR.SORT WA_ITAB BY VKORG  KONDA   MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING VKORG  KONDA   MATNR.else.SELECT  KNVV~KUNNR KNVV~VKORG KNVV~VTWEG KNVV~KDGRP KNVV~SPART  KNVV~KONDA KNVV~INCO1KNVV~WAERS A909~MATNR A909~DATAB A909~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO TABLE WA_ITABFROM A909JOIN KNVV ON KNVV~VKORG = A909~VKORG AND KNVV~KONDA = A909~KONDAJOIN KONP ON KONP~KNUMH  = A909~KNUMH AND KONP~LOEVM_KO NE 'X' AND KONP~KONWA = KNVV~WAERSWHERE   A909~KSCHL = 'ZPR1' AND A909~KAPPL = 'V' AND A909~DATBI >= PDATE AND A909~DATAB < PDATE AND A909~VKORG IN S_VK909AND KNVV~KONDA IN S_KO909 AND A909~MATNR IN S_MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING ALL FIELDS.endif.ENDIF.IF P_906 = 'X'.if P_KEY = 'X'.SELECT  KNVV~VKORG KNVV~KDGRP KNVV~WAERS as waerk A906~MATNR A906~DATAB A906~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO CORRESPONDING FIELDS OF  TABLE WA_ITABFROM A906JOIN KNVV ON KNVV~KDGRP = A906~KDGRP AND KNVV~VKORG = A906~VKORGJOIN KONP ON KONP~KNUMH  = A906~KNUMH AND KONP~LOEVM_KO NE 'X' AND KONP~KONWA = KNVV~WAERSWHERE   A906~KSCHL = 'ZPR1' AND A906~KAPPL = 'V' AND A906~DATBI >= PDATE AND A906~DATAB < PDATE AND A906~VKORG IN S_VK906AND  A906~MATNR IN S_MATNR.SORT WA_ITAB BY VKORG  KDGRP   MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING VKORG  KDGRP   MATNR.else.SELECT DISTINCT KNVV~KUNNR KNVV~VKORG KNVV~VTWEG KNVV~KDGRP KNVV~SPART  KNVV~KONDA KNVV~INCO1KNVV~WAERS A906~MATNR A906~DATAB A906~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO TABLE WA_ITABFROM A906JOIN KNVV ON KNVV~KDGRP = A906~KDGRP AND KNVV~VKORG = A906~VKORGJOIN KONP ON KONP~KNUMH  = A906~KNUMH AND KONP~LOEVM_KO NE 'X' AND KONP~KONWA = KNVV~WAERSWHERE   A906~KSCHL = 'ZPR1' AND A906~KAPPL = 'V' AND A906~DATBI >= PDATE AND A906~DATAB < PDATE AND A906~VKORG IN S_VK906AND  A906~MATNR IN S_MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING ALL FIELDS.endif.ENDIF.IF P_911 = 'X'.if P_KEY = 'X'.SELECT  KNVV~VKORG  KNVV~INCO1KNVV~WAERS as waerk A911~MATNR A911~DATAB A911~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO CORRESPONDING FIELDS OF TABLE WA_ITABFROM A911JOIN KNVV ON KNVV~VKORG = A911~VKORG AND  KNVV~INCO1 = A911~INCO1JOIN KONP ON KONP~KNUMH  = A911~KNUMH AND KONP~LOEVM_KO NE 'X' AND KONP~KONWA = KNVV~WAERSWHERE   A911~KSCHL = 'ZPR1' AND A911~KAPPL = 'V' AND A911~DATBI >= PDATE AND A911~DATAB < PDATEAND KNVV~VKORG IN S_VK911 AND A911~MATNR IN S_MATNR.SORT WA_ITAB BY VKORG INCO1 MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING VKORG INCO1 MATNR.else.SELECT DISTINCT KNVV~KUNNR KNVV~VKORG KNVV~VTWEG KNVV~KDGRP KNVV~SPART  KNVV~KONDA KNVV~INCO1KNVV~WAERS A911~MATNR A911~DATAB A911~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO TABLE WA_ITABFROM A911JOIN KNVV ON KNVV~VKORG = A911~VKORG AND  KNVV~INCO1 = A911~INCO1JOIN KONP ON KONP~KNUMH  = A911~KNUMH AND KONP~LOEVM_KO NE 'X' AND KONP~KONWA = KNVV~WAERSWHERE   A911~KSCHL = 'ZPR1' AND A911~KAPPL = 'V' AND A911~DATBI >= PDATE AND A911~DATAB < PDATEAND KNVV~VKORG IN S_VK911 AND A911~MATNR IN S_MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING ALL FIELDS.endif.ENDIF.IF P_904 = 'X'.if P_KEY = 'X'.SELECT  KNVV~VKORG KNVV~VTWEGKNVV~WAERS as waerk A904~MATNR A904~DATAB A904~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO CORRESPONDING FIELDS OF TABLE WA_ITABFROM A904JOIN KNVV ON KNVV~VKORG = A904~VKORG AND KNVV~VTWEG = A904~VTWEGJOIN KONP ON KONP~KNUMH  = A904~KNUMH AND KONP~LOEVM_KO NE 'X' AND KONP~KONWA = KNVV~WAERSWHERE   A904~KSCHL = 'ZPR1' AND A904~KAPPL = 'V' AND A904~DATBI >= PDATE AND A904~DATAB < PDATE AND A904~VTWEG IN S_VT904AND KNVV~VKORG IN S_VK904 AND A904~MATNR IN S_MATNR.SORT  WA_ITAB BY VKORG VTWEG MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING VKORG VTWEG MATNR.else.SELECT DISTINCT KNVV~KUNNR KNVV~VKORG KNVV~VTWEG KNVV~KDGRP KNVV~SPART  KNVV~KONDA KNVV~INCO1KNVV~WAERS A904~MATNR A904~DATAB A904~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO TABLE WA_ITABFROM A904JOIN KNVV ON KNVV~VKORG = A904~VKORG AND KNVV~VTWEG = A904~VTWEGJOIN KONP ON KONP~KNUMH  = A904~KNUMH AND KONP~LOEVM_KO NE 'X' AND KONP~KONWA = KNVV~WAERSWHERE   A904~KSCHL = 'ZPR1' AND A904~KAPPL = 'V' AND A904~DATBI >= PDATE AND A904~DATAB < PDATE AND A904~VTWEG IN S_VT904AND KNVV~VKORG IN S_VK904 AND A904~MATNR IN S_MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING ALL FIELDS.endif.ENDIF.IF P_914 = 'X'.if P_KEY = 'X'.SELECT  KNVV~KUNNR KNVV~VKORGKNVV~WAERS A914~MATNR A914~DATAB A914~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO CORRESPONDING FIELDS OF TABLE WA_ITABFROM A914JOIN KNVV ON KNVV~VKORG = A914~VKORG AND KNVV~KUNNR = A914~KUNNR AND  KNVV~WAERS = A914~WAERKJOIN KONP ON KONP~KNUMH  = A914~KNUMH AND KONP~LOEVM_KO NE 'X' AND A914~WAERK = KONP~KONWA AND KONP~KONWA = KNVV~WAERSWHERE   A914~KSCHL = 'ZPR1' AND A914~KAPPL = 'V' AND A914~DATBI >= PDATE AND A914~DATAB < PDATE AND A914~WAERK IN S_WA914AND  A914~MATNR IN S_MATNR.SORT WA_ITAB BY VKORG KUNNR WAERK MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING VKORG KUNNR WAERK MATNR.else.SELECT DISTINCT KNVV~KUNNR KNVV~VKORG KNVV~VTWEG KNVV~KDGRP KNVV~SPART  KNVV~KONDA KNVV~INCO1KNVV~WAERS A914~MATNR A914~DATAB A914~DATBI KONP~KBETR KONP~KONWA KONP~KPEIN KONP~KMEINKONP~KAPPL KONP~KSCHL KONP~KFRST KONP~KNUMHINTO TABLE WA_ITABFROM A914JOIN KNVV ON KNVV~VKORG = A914~VKORG AND KNVV~KUNNR = A914~KUNNR AND  KNVV~WAERS = A914~WAERKJOIN KONP ON KONP~KNUMH  = A914~KNUMH AND KONP~LOEVM_KO NE 'X' AND A914~WAERK = KONP~KONWA AND KONP~KONWA = KNVV~WAERSWHERE   A914~KSCHL = 'ZPR1' AND A914~KAPPL = 'V' AND A914~DATBI >= PDATE AND A914~DATAB < PDATE AND A914~WAERK IN S_WA914AND  A914~MATNR IN S_MATNR.DELETE ADJACENT DUPLICATES FROM WA_ITAB COMPARING ALL FIELDS.endif.ENDIF.
ENDFORM.                    "GETDATA
*&---------------------------------------------------------------------*
*&      FORM  WRITERPTRUNRECORD
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
FORM WRITERPTRUNRECORD.GET TIME.CALL FUNCTION 'ZSYS_RPT_RUNRECORD'EXPORTINGTCODE     = SY-TCODEPROGRAMM  = SY-CPROGDATUMRST  = STDATUMUZEITRST  = STUZEITBATCH     = SY-BATCHDATUMREND = SY-DATUMUZEITREND = SY-UZEITDATUMC    = '20211101'RUNNER    = SY-UNAMERPTSRC    = 'SD'.
ENDFORM.                    "WRITERPTRUNRECORD

ZVK13(参考VK13)查销售价格相关推荐

html颜色参考速查在线取色,Color by Fardos - 配色/取色插件
Color by Fardos开发背景设计师的工作离不开颜色,而且经常会遇到需要取到网页某个部分的颜色,之前我们chrome插件网介绍了ColorPick:网页颜色选择器.ColorZilla插件. ...
[WebDev]Web 开发与设计师速查手册大全
Cheat Sheet 一词在中文中并没有很贴切的对译,大概是考试作弊条一类的东西,这要求 Cheat Sheet 必须短小精悍又覆盖广泛,作为 Web 开发与设计师,免不了在工作时查询大量资料,某个 ...
查理芒格+终身学习+你的认知就是你的财富的边界
穷查理宝典+终身学习+你的认知就是你的财富的边界我不知道如何使你挣钱.但是我知道一万种甚至更多的方式使得你亏钱. 巴菲特是这样说的: 「芒格用思想的力量,拓宽了我的视野,让我以非比寻常的速度从猩猩进 ...
巴菲特+查理芒格+投资理论+经典语录+给韭菜的启示
巴菲特+查理芒格+投资理论+经典语录+给韭菜的启示巴菲特: 一个老年人在零售店里发现老婆丢了,恰好遇到一个年轻人也在找自己的另一半,老人问:你妻子长什么样?年轻人答:"她可真是个金发美人啊 ...
英语听说计算机查分,2018中考第二次英语听说考明日查分，附查分常见问答
原标题:2018中考第二次英语听说考明日查分,附查分常见问答 4月11日8:30,参加中考第二次英语听说考的考生可以登录北京教育考试院官网查分了,鉴于第一次中考英语听说考查分的时候,考生和家长遇到了不 ...
[L氏并查集] Python 列表法实现非递归并查集，轻松权重优化。
一般的并查集都是用递归或者新建一个类来实现,这里介绍一种用Python来实现的非递归非函数并查集,这个方法暂时未在其他地方见过,尤其是中文领域目前还未见过,很可能是搜索引擎无法搜索到正确内容的原因,所 ...
查词app android教程,英语查单词app哪个好_查单词app推荐_专门查单词的app
核心提示:英语查单词的软件有很多,哪些英语查单词软件是我们想要的呢,下面多特小编就跟您推荐几款比较合适的软件或者app给您参考英语查单词的软件有很多,哪些英语查单词软件是我们想要的呢,下面多特小编就 ...
计算机杀检测防护报告,查杀防护状态快查卡巴安全用电脑08期
作者:中关村在线刘晶晶第1页:运行状态实时看开卷语:我们有必要对计算机的运行状态做详细了解,我们也很需要对安全软件的防护状态有明确认识.杀毒软件的运行状况如何?最新的查杀.防护信息,拦截次数.威 ...
在报No suitable driver found for jdbc:mysql情况下，我是如何一步一步实现jmeter成功连接mysql...
1.按照网上查的方法,将mysql-connector-java-5.1.42-bin.jar包copy在apache-jmeter-2.12\lib\ext下,执行测试计划,查看结果树,报 No s ...
杀毒软件原理后续阶段
对于NOD32 pcshare特征码超多的问题解释很简单 pcshare是一个典型的4代木马(也有人称为3代,看分代标准) 很多代码很典型,适用于杀软研究广谱查杀.NOD32的启发更偏向于基因 ...

ZVK13(参考VK13)查销售价格

ZVK13(参考VK13)查销售价格相关推荐

最新文章

热门文章