SAP 第六章HOMEWORK

*&---------------------------------------------------------------------*
*& Report  ZBCRP1_ZHAOYANG_009
*&
*&---------------------------------------------------------------------*
*& 选择屏幕输入销售组织(单选)和销售订单创建日期(多选)
*& 1.对选择屏幕输入销售组织的值进行有效性检查.
*& 2.用ALV输出选择屏幕对应的: 销售组织（VBAK-VKORG）、销售订单号（VBAP-VBELN）、
*& 销售订单行号（VBAP-POSNR）、销售物料号码（VBAP-MATNR）、销售订单数量（VBAP-KWMENG）、
*& 发货单号码（LIPS-VBELN）、发货单行号（LIPS-POSNR）、发货物料号码（LIPS-MATNR）、
*& 发货数量（LIPS-LFIMG）、基本单位（VBAP-MEINS）。
*&
*& date: 20130911
*& developer: zhaoyang
*&---------------------------------------------------------------------*

REPORT  ZBCRP1_ZHAOYANG_009.

*申明类型池
TYPE-POOLS: slis.
*申明与数据库表同名的工作区
TABLES: vbak, vbap, lips.

*--------------------------------------------------------------------*
*定义数据类型
*--------------------------------------------------------------------*
TYPES: BEGIN OF ty_out,
  vkorg TYPE vbak-vkorg, "销售组织
p_vbeln TYPE vbap-vbeln,      "销售订单号
p_posnr TYPE vbap-posnr, "销售订单行号
p_matnr TYPE vbap-matnr,      "销售物料号码
 kwmeng TYPE vbap-kwmeng, "销售订单数量
l_vbeln TYPE lips-vbeln,      "发货单号码
l_posnr TYPE lips-posnr, "发货单行号
l_matnr TYPE lips-matnr,      "发货物料号码
  lfimg TYPE lips-lfimg, "发货数量
  meins TYPE vbap-meins,      "基本单位
END OF ty_out.

*--------------------------------------------------------------------*
*定义数据对象 工作区 内表
*--------------------------------------------------------------------*
DATA: wa_out TYPE ty_out, "工作区
      it_out      TYPE STANDARD TABLE OF ty_out.         "内表

DATA: wa_layout TYPE slis_layout_alv, "布局
      wa_fieldcat TYPE slis_fieldcat_alv,
      it_fieldcat TYPE slis_t_fieldcat_alv.     "内表传参

DATA: wa_sort TYPE slis_sortinfo_alv,
      it_sort TYPE slis_t_sortinfo_alv.

*--------------------------------------------------------------------*
*选择屏幕
*--------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001.
  PARAMETERS s_vkorg TYPE vbak-vkorg OBLIGATORY.
  SELECT-OPTIONS d_erdat FOR vbap-erdat.
SELECTION-SCREEN END OF BLOCK bl1.

*--------------------------------------------------------------------*
*主处理
*--------------------------------------------------------------------*
START-OF-SELECTION.
*取数
PERFORM F_SELECT_DATA.

*设置alv的全局属性
PERFORM F_SET_LAYOUT.

*编辑同列名字段
PERFORM ZY_FIELDCAT USING: '1' 'VKORG' '销售组织' 'X',
                            '2' 'P_VBELN' '销售订单号' 'X',
                            '3' 'P_POSNR' '销售订单行号' 'X',
                            '4' 'P_MATNR' '销售物料号码' '',
                            '5' 'KWMENG' '销售订单数量' '',
                            '6' 'L_VBELN' '发货单号码' '',
                            '7' 'L_POSNR' '发货单行号' '',
                            '8' 'L_MATNR' '发货物料号码' '',
                            '9' 'LFIMG' '发货数量' '',
                            '10' 'MEINS' '基本单位' ''.

**显示alv
PERFORM F_SHOW_ALV.

*&---------------------------------------------------------------------*
*& Form  ZY_FIELDCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->F_COL_POS    text
* -->F_FIELDNAME  text
* -->F_SELTEXT_L  text
* -->F_KEY        text
*----------------------------------------------------------------------*
FORM ZY_FIELDCAT USING F_COL_POS
                       F_FIELDNAME "列名字段
                       F_SELTEXT_L   "列名
                       F_KEY. "X
  CLEAR WA_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = F_FIELDNAME.
  WA_FIELDCAT-SELTEXT_L = F_SELTEXT_L.   "列名长文本
  WA_FIELDCAT-COL_POS = F_COL_POS. "列的位置
  WA_FIELDCAT-KEY       = F_KEY.
  WA_FIELDCAT-DO_SUM    = 'X'.           "求和
  APPEND WA_FIELDCAT TO IT_FIELDCAT.

ENDFORM. " ZY_FIELDCAT

*&---------------------------------------------------------------------*
*&      Form  SET_LAYOUT
*&---------------------------------------------------------------------*
*       F_SET_LAYOUT
*----------------------------------------------------------------------*
FORM F_SET_LAYOUT.
  WA_LAYOUT-ZEBRA             = 'X'.
  WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM.                    " SET_LAYOUT

*&---------------------------------------------------------------------*
*& Form  SELECT_DATA
*&---------------------------------------------------------------------*
* F_SELECT_DATA
*----------------------------------------------------------------------*
FORM F_SELECT_DATA .
SELECT k~vkorg "销售组织
       p~vbeln AS p_vbeln      "销售订单号
       p~posnr AS p_posnr "销售订单行号
       p~matnr AS p_matnr      "销售物料号码
       p~kwmeng "销售订单数量
       l~vbeln AS l_vbeln      "发货单号码
       l~posnr AS l_posnr "发货单行号
       l~matnr AS l_matnr      "发货物料号码
       l~lfimg "发货数量
       p~meins                 "基本单位
  INTO CORRESPONDING FIELDS OF TABLE it_out
  FROM vbap AS p
 INNER JOIN vbak AS k ON k~vbeln = p~vbeln
  LEFT JOIN lips AS l ON l~vgbel = p~vbeln AND l~vgpos = p~posnr
 WHERE k~vkorg = s_vkorg AND k~erdat IN d_erdat.
ENDFORM. " SELECT_DATA

*&---------------------------------------------------------------------*
*&      Form  F_SHOW_ALV
*&---------------------------------------------------------------------*
*       F_SHOW_ALV
*----------------------------------------------------------------------*
FORM F_SHOW_ALV .
"  BREAK-POINT.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' '
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
     IS_LAYOUT = wa_layout
     IT_FIELDCAT = it_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
"     IT_SORT                           = it_sort
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   IS_VARIANT                        =
*   IT_EVENTS                         =
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = it_out
* EXCEPTIONS
*   PROGRAM_ERROR                     = 1
*   OTHERS                            = 2
            .
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.
ENDFORM.                    " F_SHOW_ALV