SAP打印出库单 新需求

*&---------------------------------------------------------------------*
*& Report  Z_SD_CKD
*&
*&---------------------------------------------------------------------*
*&产品出库单
*&
*&---------------------------------------------------------------------*

REPORT ZSDF002.
INCLUDE ZSDF002_INC.
*INCLUDE Z_SD_CKD_INC.
TYPE-POOLS: slis.
TABLES:LIKP, KNA1, LIPS ,MKPF ,MSEG.

TYPES: BEGIN OF TY_ALL,

VBELV        LIKE  VBFA-VBELV ,  "销售订单号
        VBELN_IM     LIKE  MSEG-VBELN_IM ,"交货单号
        NAME1        LIKE  KNA1-NAME1 ,"客户
        KUNNR        LIKE  MSEG-KUNNR ,"送达方
        STRAS        LIKE  KNA1-STRAS ,"客户地址
        BUDAT_MKPF   LIKE  MSEG-BUDAT_MKPF ,"出库时间
        TELFX        LIKE  KNA1-TELFX ,"电话
        USNAM_MKPF   LIKE  MSEG-USNAM_MKPF ,"经办人
        MATNR        LIKE  MSEG-MATNR ,"物料编码
        ARKTX        LIKE  LIPS-ARKTX ,"物料描述
        LGORT        LIKE  MSEG-LGORT ,"库存地点
        MENGE        LIKE  MSEG-MENGE ,"数量
        VRKME        LIKE  LIPS-VRKME ,"单位
        CHARG        LIKE  MSEG-CHARG ,"批次
        VBELP_IM     LIKE  MSEG-VBELP_IM ,"项目
        BOLNR        LIKE  LIKP-BOLNR ,"物流单号
        BRGEW        LIKE  LIPS-BRGEW,"单项目毛重
        BEIZHU(20)   TYPE C ,"备注
  END OF TY_ALL.

TYPES:BEGIN OF TY_HEADER,
        VBELV        LIKE  VBFA-VBELV ,  "销售订单号
        VBELN_IM     LIKE  MSEG-VBELN_IM ,"交货单号
        NAME1        LIKE  KNA1-NAME1 ,"客户
        KUNNR        LIKE  MSEG-KUNNR ,"送达方
        STRAS        LIKE  KNA1-STRAS ,"客户地址
        BUDAT_MKPF   LIKE  MSEG-BUDAT_MKPF ,"出库时间
        TELFX        LIKE  KNA1-TELFX ,"电话
        USNAM_MKPF   LIKE  MSEG-USNAM_MKPF ,"经办人
       TOTAL_BRGEW   LIKE LIPS-BRGEW,"项目总毛重
       BOLNR         LIKE LIKP-BOLNR,"物流单号
    END OF TY_HEADER.

TYPES:BEGIN OF TY_ITEMS,
        VBELN_IM     LIKE  MSEG-VBELN_IM ,"交货单号
       MATNR        LIKE  MSEG-MATNR ,"物料编码
        ARKTX        LIKE  LIPS-ARKTX ,"物料描述
        LGORT        LIKE  MSEG-LGORT ,"库存地点
        MENGE        LIKE  MSEG-MENGE ,"数量
        VRKME        LIKE  LIPS-VRKME ,"单位
        CHARG        LIKE  MSEG-CHARG ,"批次
        VBELP_IM     LIKE  MSEG-VBELP_IM ,"项目
        BRGEW        LIKE  LIPS-BRGEW,"单项目毛重
        BOLNR        LIKE  LIKP-BOLNR ,"物流单号
        BEIZHU(20)   TYPE C ,"备注
    END OF TY_ITEMS.

DATA:WA_ALL TYPE TY_ALL,
      GT_ALL TYPE TY_ALL OCCURS 0.

DATA:WA_HEADER TYPE TY_HEADER,
      GT_HEADER TYPE TY_HEADER OCCURS 0  .

DATA:WA_ITEMS TYPE TY_ITEMS,
      GT_ITEMS TYPE TY_ITEMS OCCURS 0.

*定义传入到smartforms的变量开始
DATA:fm_name TYPE rs38l_fnam.
DATA:itemsname(32) TYPE c.
DATA:headername(32) TYPE c.
*定义传入到smartforms的变量结束

*定义存储ALV向smartforms传入数据的内表开始
DATA:GT_HEADER_TEMP TYPE TY_HEADER OCCURS 0.
DATA:GT_ITEMS_TEMP TYPE TY_ITEMS OCCURS 0.
DATA:GT_ALL_TEMP TYPE TY_ALL OCCURS 0.
*定义存储ALV向smartforms传入数据的内表结束

"控制smartforms参数声明开始
DATA :control_parameters TYPE ssfctrlop.
"控制smartforms参数声明结束

DATA: gs_fcat TYPE lvc_s_fcat,
      gt_fcat TYPE lvc_t_fcat,
      gs_layo TYPE lvc_s_layo,
      gs_grid TYPE lvc_s_glay.
DATA: gt_event TYPE slis_t_event WITH HEADER LINE,
      gt_event_exit TYPE slis_t_event_exit WITH HEADER LINE.

DATA:  ref_grid TYPE REF TO cl_gui_alv_grid .

START-OF-SELECTION.
SELECT-OPTIONS: P_VBELN    FOR MSEG-VBELN_IM, "交货单号
                P_WERKS    FOR MSEG-WERKS , "工厂 ,
                P_LGORT    FOR MSEG-LGORT  ,"库存地点
                P_BUDAT    FOR MKPF-BUDAT,"过账日期
                P_USNAM    FOR MKPF-USNAM."创建者
                "P_TPLST   FOR VTTK-TPLST ,
                "P_ERNAM   FOR VTTK-ERNAM ,
                "P_ROUTE   FOR VTTK-ROUTE .
PERFORM FRM_GET_DATA.
PERFORM display_data .

END-OF-SELECTION.

"当屏幕失去焦点时，自动刷新声明类开始
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS handle_modify
    FOR EVENT data_changed_finished OF cl_gui_alv_grid
    IMPORTING e_modified et_good_cells.
ENDCLASS.

CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_modify.
*    PERFORM refresh.

DATA stbl TYPE lvc_s_stbl.

stbl-row = 'X'." 基于行的稳定刷新
    stbl-col = 'X'." 基于列稳定刷新
    CALL METHOD ref_grid->refresh_table_display
      EXPORTING
        is_stable = stbl.
  ENDMETHOD.                    "HANDLE_MODIFY
ENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION
DATA gt_event_receiver TYPE REF TO lcl_event_receiver .
"当屏幕失去焦点时，自动刷新声明类结束

FORM FRM_GET_DATA .
      SELECT VA~VBELV  M~VBELN_IM K~NAME1 M~KUNNR K~STRAS M~BUDAT_MKPF
             K~TELFX  M~USNAM_MKPF M~MATNR   LS~ARKTX M~LGORT  M~MENGE
             LS~VRKME  M~CHARG  M~VBELP_IM  LP~BOLNR LS~BRGEW
         INTO CORRESPONDING FIELDS OF TABLE GT_ALL
      FROM   MSEG AS M

INNER JOIN MKPF AS MF
      ON M~MBLNR = MF~MBLNR AND MF~MJAHR = M~MJAHR
      INNER JOIN  LIPS AS LS
      ON M~VBELN_IM = LS~VBELN AND M~VBELP_IM = LS~POSNR
      INNER JOIN LIKP AS LP
      ON LP~VBELN  = LS~VBELN
      INNER JOIN KNA1 AS K
      ON K~KUNNR = LP~KUNNR
      INNER JOIN VBFA AS VA
      ON VA~VBELN = LS~VBELN AND VA~POSNN = LS~POSNR

WHERE M~VBELN_IM IN  P_VBELN   AND
            M~WERKS    IN  P_WERKS     AND
            M~LGORT    IN   P_LGORT AND
            MF~BUDAT   IN  P_BUDAT    AND
            MF~USNAM   IN  P_USNAM  .

"DELETE ADJACENT DUPLICATES FROM GT_ALL.

ENDFORM.

FORM display_data .
  PERFORM set_fcat.
  PERFORM set_layout.

PERFORM show_alv  TABLES gt_fcat  GT_ALL[]
                     USING  gs_layo.
ENDFORM.                    " DISPLAY_DATA

*&---------------------------------------------------------------------*
FORM set_fcat .
  
PERFORM csalv_set_fcat USING:

" 'Field' 'Text' 'Edit' 'Zero' 'Type' 'Qfieldname' 'Key' 'Hostspot' 'Emphasize' 'Checkbox'
            
'VBELV'  '销售订单号' '' ''  ''  ''  ''   ''  ''  '' '' '',
            
'VBELN_IM' '交货单号'   ''  ''  ''  ''  ''  ''  ''  '' ''  '',
            
'NAME1' '客户'       ''  ''  ''  ''  ''  ''  ''  '' ''  '',
            
'KUNNR' '送达方'     ''  ''  ''  ''  ''  ''  ''  '' ''  '',
            
'VBELP_IM' '项目'    '' ''  ''  ''  ''  ''  ''  '' ''   '',
            
'MATNR'  '物料编码'  ''  ''  ''  ''  ''  ''  ''  '' ''  '',
            
'ARKTX'  '物料描述'  ''  ''  ''  ''  ''  ''  ''  '' ''  '',
            
'VRKME'  '单位'      ''  ''  ''  ''  ''  ''  ''  '' ''  '',
            
'MENGE'   '数量'     ''  ''  ''  ''  ''  ''  ''  '' ''  '0',
            
'BRGEW'     '毛重'     ''  ''  ''  ''  ''  ''  ''  '' ''  '0',
            
'LGORT'   '库存地点' ''  ''  ''  ''  ''  ''  ''  '' ''  '',
            
'USNAM_MKPF'  '经办人'    ''  ''  ''  ''  ''  ''  ''  '' ''  '',
            
'BEIZHU'  '备注'     'X'  ''  ''  ''  ''  ''  ''  '' '' ''.

" 'zsel'   '是否打印 ' 'X' ''  ''  ''  ''  ''  ''  'X' ''.

ENDFORM.                    " SET_FCAT

*&---------------------------------------------------------------------*

FORM set_layout .
  gs_layo
-zebra             = 'X'.

*  gs_layout-stylefname     = 'FIELD_STYLE'.

*  gs_layo-CWIDTH_OPT        =  'X'.

ENDFORM.                    " SET_LAYOUT

*&---------------------------------------------------------------------*

FORM csalv_set_fcat USING
      p_name
      p_text
      p_edit
      p_zero
      p_type
      p_qfieldname
      p_key
      p_hotspot
      p_emphasize
      p_checkbox
      P_DO_SUM
      P_decimals_out

.
  gs_fcat
-fieldname   =  p_name.

*  gs_fcat-reptext_l   =

*  gs_fcat-selddictxt   =
  gs_fcat
-reptext     =  p_text.
  gs_fcat
-edit        =  p_edit.
  gs_fcat
-no_zero     =  p_zero.
  gs_fcat
-datatype    =  p_type.
  gs_fcat
-qfieldname  =  p_qfieldname.
  gs_fcat
-key         =  p_key.
  gs_fcat
-hotspot     =  p_hotspot.
  gs_fcat
-emphasize   =  p_emphasize.
  gs_fcat
-checkbox    =   p_checkbox.
  gs_fcat
-DO_SUM      =  P_DO_SUM.
  gs_fcat
-decimals_o  =  P_decimals_out.
  
APPEND gs_fcat TO  gt_fcat.

ENDFORM.                    "csalv_set_fcat

*&---------------------------------------------------------------------*

FORM show_alv TABLES  pt_fcat
                      pt_tab

USING   ps_layout.

gs_grid

-edt_cll_cb = 'X'."当屏幕失去焦点时，自动刷新

gt_event

-name = 'CALLER_EXIT'.   "slis_ev_caller_exit_at_start事件
  gt_event
-FORM = 'FM_BUTTON'.
  
APPEND gt_event .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  
EXPORTING
    i_callback_program                  
= sy-repid
    i_callback_user_command            
= 'USER_COMMAND'
    i_grid_settings                    
= gs_grid
    i_callback_pf_status_set            
= 'SET_PF_STATUS'
    is_layout_lvc                       
= gs_layo
    it_fieldcat_lvc                     
= pt_fcat[]
     it_events                          
= gt_event[]

*     it_event_exit                     = gt_event_exit[]
  
TABLES
    t_outtab                            
= pt_tab
   
EXCEPTIONS
     PROGRAM_ERROR                     
= 1
     
OTHERS                            = 2
    
.

ENDFORM.                    "csalv_set_fcat

FORM PRINT.

DATA:PTR_COUNT(10) TYPE C.

DATA: lines TYPE I."获取往smartforms传入的要打印的行数目

DATA: insertRows TYPE i."需要再插入多少空行

DATA: ROWS TYPE i VALUE 16."一页要打印的行数

CLEAR GT_ALL_TEMP.

CLEAR GT_HEADER_TEMP.

CLEAR GT_ITEMS_TEMP.

DATA COUNT LIKE LIPS-BRGEW VALUE 0.
  
DATA:ls_row      TYPE lvc_s_row,
       lt_rows     
type lvc_t_row.
       
"CLEAR GT_HEADER.
      
"CLEAR GT_ITEMS.
      
CALL METHOD ref_grid->get_selected_rows
    
IMPORTING
      et_index_rows 
= lt_rows

*      et_row_no     =
      
.

LOOP AT lt_rows INTO ls_row.
        
READ TABLE GT_ALL INTO WA_ALL INDEX ls_row-index.
        
APPEND WA_ALL TO GT_ALL_TEMP.

*        APPEND WA_ITEMS TO GT_ITEMS_TEMP.

*         COUNT = WA_ITEMS-BRGEW + COUNT.
       
ENDLOOP.
      
MOVE-CORRESPONDING GT_ALL_TEMP TO GT_HEADER.
      
MOVE-CORRESPONDING GT_ALL_TEMP TO GT_ITEMS.
      
DELETE ADJACENT DUPLICATES FROM GT_HEADER.

*      LOOP AT GT_ITEMS INTO WA_ITEMS.
      
CLEAR: CONTROL_PARAMETERS.
      CONTROL_PARAMETERS
-PREVIEW   = 'X'.
      CONTROL_PARAMETERS
-NO_OPEN   = 'X'.
      CONTROL_PARAMETERS
-NO_CLOSE  = 'X'.

CALL FUNCTION 'SSF_OPEN'
    
EXPORTING
      CONTROL_PARAMETERS 
= CONTROL_PARAMETERS
    
EXCEPTIONS
      FORMATTING_ERROR   
= 1
      INTERNAL_ERROR     
= 2
      SEND_ERROR         
= 3
      USER_CANCELED      
= 4
      
OTHERS             = 5.
  
IF SY-SUBRC <> 0.
    
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    
EXIT.
  
ENDIF.

LOOP AT GT_HEADER INTO WA_HEADER.

APPEND WA_HEADER TO GT_HEADER_TEMP.
          
LOOP AT GT_ITEMS INTO WA_ITEMS.
                
IF ( WA_ITEMS-VBELN_IM EQ WA_HEADER-VBELN_IM ) .
                      
APPEND WA_ITEMS TO GT_ITEMS_TEMP.
                      
COUNT = WA_ITEMS-BRGEW + COUNT.
                
ENDIF.
          
ENDLOOP.
          WA_HEADER
-TOTAL_BRGEW = COUNT.
    
MODIFY TABLE GT_HEADER_TEMP FROM WA_HEADER.
      
CLEAR WA_ITEMS.
      
CLEAR WA_HEADER.
      
CLEAR COUNT.
           
IF GT_ITEMS_TEMP IS INITIAL.
                
MESSAGE i000(0k) WITH  '请选中要打印的内容！'.
                
EXIT .
            
ENDIF.

call function 'SSF_FUNCTION_MODULE_NAME'
            
EXPORTING
              formname 
= 'ZSDSF002'
              
IMPORTING
                fm_name 
= fm_name
                
EXCEPTIONS
                  no_form 
= 1
                  no_function_module 
= 2
                  
OTHERS = 3.
           
"SET HANDLER   gt_event_receiver->handle_modify FOR ref_grid.
           
DESCRIBE TABLE GT_ITEMS_TEMP LINES lines.
           insertRows 
=   lines mod ROWS .
           insertRows 
= ROWS - insertRows.
           
DO insertRows TIMES.
              
APPEND WA_ITEMS TO GT_ITEMS_TEMP.
          
ENDDO.
           
PERFORM FRM_PRINT_DATA.
    
ENDLOOP.

CALL FUNCTION 'SSF_CLOSE'
    
EXCEPTIONS
      FORMATTING_ERROR 
= 1
      INTERNAL_ERROR   
= 2
      SEND_ERROR       
= 3
      
OTHERS           = 4.

IF SY-SUBRC <> 0.
    
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  
ENDIF.

ENDFORM.

FORM FRM_PRINT_DATA.

CONCATENATE 'ZDDITEMMM' SY-UZEIT INTO itemsname.

CONCATENATE 'ZDDHEADER' SY-UZEIT INTO headername.

savebuffer GT_ITEMS_TEMP itemsname

.
 savebuffer GT_HEADER_TEMP headername
.

*  PTR_COUNT =  GV_COUNT .

*调用 smartForms
 
call function fm_name
 
EXPORTING
   control_parameters 
= CONTROL_PARAMETERS
   PTR_ITEMS 
= itemsname
   PTR_HEADER 
= headername

*   PTR_TOTAL = GV_COUNT
 
EXCEPTIONS
   formatting_error 
= 1
   internal_error 
= 2
   send_error 
= 3
   user_canceled 
= 4.
 clearbuffer itemsname
.
 clearbuffer headername
.

CLEAR GT_HEADER_TEMP.

CLEAR GT_ITEMS_TEMP.

ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  user_command

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->P_UCOMM      text

*      -->PS_SELFIELD  text

*----------------------------------------------------------------------*

FORM user_command USING r_ucomm LIKE sy-ucomm
      rs_selfield 
TYPE slis_selfield.

CASE r_ucomm.
    
WHEN '&DATA_SAVE'.
    
WHEN '&PRINT'.
          
PERFORM PRINT.
    
WHEN OTHERS.

LEAVE TO SCREEN 0.
  
ENDCASE.

ENDFORM.                    "user_command

*&---------------------------------------------------------------------*

*&      Form  SET_PF_STATUS

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->RT_EXTAB   text

*----------------------------------------------------------------------*

FORM set_pf_status USING rt_extab TYPE slis_t_extab..
  
SET PF-STATUS 'STANDARD'.

ENDFORM.                    "SET_PF_STATUS

*&---------------------------------------------------------------------*

*&      Form  fm_button

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->E_GRID     text

*----------------------------------------------------------------------*

FORM fm_button USING e_grid TYPE slis_data_caller_exit.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

*   EXPORTING

*     IR_SALV_FULLSCREEN_ADAPTER       =
  
IMPORTING

*     ET_EXCLUDING                     =

*     E_REPID                          =

*     E_CALLBACK_PROGRAM               =

*     E_CALLBACK_ROUTINE               =
    e_grid                           
= ref_grid

*     ET_FIELDCAT_LVC                  =

*     ER_TRACE                         =

*     E_FLG_NO_HTML                    =

*     ES_LAYOUT_KKBLO                  =

*     ES_SEL_HIDE                      =

*     ET_EVENT_EXIT                    =

*     ER_FORM_TOL                      =

*     ER_FORM_EOL                      =
    
.

*   CALL METHOD ref_grid->check_changed_data.

* 设置enter事件
  
CALL METHOD ref_grid->register_edit_event
    
EXPORTING
      i_event_id 
= cl_gui_alv_grid=>mc_evt_enter
    
EXCEPTIONS
      error      
= 1
      
OTHERS     = 2.

CREATE OBJECT gt_event_receiver.
  
SET HANDLER   gt_event_receiver->handle_modify FOR ref_grid.

ENDFORM.                    "FM_BUTTON