*&---------------------------------------------------------------------* *& Report Z01MMF019 *& Author\'s name: CAIXIANG *& Program title: 采购订单打印 *& Date： 20161031 *&---------------------------------------------------------------------* *& Description: *&1.根据以上选择条件,查询出所有符合条件的采购订单，在清单中选择并点击打印。 *&---------------------------------------------------------------------* REPORT z01mmf019 MESSAGE-ID zmm02. *&---------------------------------------------------------------------* *& 数据声明 *&---------------------------------------------------------------------* INCLUDE Z01MMF019_TOP. *INCLUDE z01mmf102_top. *&---------------------------------------------------------------------* *& 包含 Z01MMF068_TOP *&---------------------------------------------------------------------* TABLES: z01mm_s_068, ekko, ekpo, lfa1. *&---------------------------------------------------------------------* * *计划交货日期， *单价 = 净价/价格单位，（6位小数） NETPR/PEINH *币别 *&---------------------------------------------------------------------* TYPES:BEGIN OF ty_alv, sel TYPE c, "标识：是否已选择 \'X\' 选中 lin TYPE sy-tabix, *&抬头 ebeln TYPE ekpo-ebeln, "PO ebelp TYPE ekpo-ebelp, "PO行 lifnr TYPE ekko-lifnr, "供应商 namel TYPE char100, "供应商名称 ekorg TYPE ekko-ekorg, "采购组织 ekgrp TYPE ekko-ekgrp, "采购组 address TYPE char100, "供应商地址(ADRC-STREET+ADRC-STR_SUPPL1) zzrloc TYPE ekko-zzrloc, "贸易方式：即收货地点 EKKO-ZZRLOC的描述 zzrloc_t TYPE char100, zterm TYPE ekko-zterm, "付款方式：根据付款条件EKKO-ZTERM取其描述 zterm_t TYPE char100, zzpovr TYPE ekko-zzpovr, "订单版本号：EKKO-ZZPOVR bedat TYPE ekko-bedat, "采购订单日期：EKKO-BEDAT zzpotp TYPE ekko-zzpotp, "订单发放类型：即PO发放类型EKKO-ZZPOTP的描述 zzpotp_t TYPE char100, waers TYPE ekko-waers, "货币单位：EKKO-WAERS verkf TYPE lfm1-verkf, "供应商联系人 LFM1-VERKF telf1 TYPE lfa1-telf1, "供应商联系电话 LFA1-TELF1 name_cg TYPE t024-eknam, zzisasso TYPE ekko-zzisasso, bsart TYPE ekko-bsart, eknam TYPE t024-eknam, "采购员：取EKKO-EKGRP的名称T024-EKNAM lands TYPE ekko-lands, *&项目 matnr TYPE ekpo-matnr, "物料 maktx TYPE makt-maktx, "物料长文本 menge TYPE ekpo-menge, "数量 meins TYPE ekpo-meins, "单位 plifz TYPE ekpo-plifz, "按天的计划交货时间 netpr TYPE ekpo-netpr, "净价 peinh TYPE ekpo-peinh, "价格单位 netpr_d TYPE p DECIMALS 6, "单价 kbetr TYPE konp-kbetr, "含税：根据税码EKPO- MWSKZ取税率，如：17% mseh3 TYPE t006a-mseh3, "单位：(度量单位)根据EKPO-MEINS取其商业名称T006-MSEH3 eindt TYPE eket-eindt, "交货期：EKET-EINDT netwr TYPE ekpo-netwr, "金额：EKPO-NETWR netwr_s TYPE ekpo-netwr, "总额：汇总所有行的金额 text_po TYPE char100, "备注：PO抬头的表头文本 mwskz TYPE ekpo-mwskz, flag TYPE c, * include TYPE z01mm_s_069. END OF ty_alv. TYPES:tt_alv TYPE STANDARD TABLE OF ty_alv WITH DEFAULT KEY INITIAL SIZE 0. TYPES:tyt_alv TYPE ty_alv OCCURS 0. DATA:gt_alv TYPE STANDARD TABLE OF ty_alv, wa_alv TYPE ty_alv. TYPES:BEGIN OF ty_gncg, index TYPE sy-tabix, *抬头： namel LIKE lfa1-name1, "供应商名称（LFA1-NAME1+NAME2） lifnr LIKE ekko-lifnr, "供应商编码 address TYPE char100, "供应商地址(ADRC-STREET+ADRC-STR_SUPPL1) zzrloc TYPE ekko-zzrloc, "贸易方式：即收货地点 EKKO-ZZRLOC的描述 zzrloc_t TYPE char100, zterm TYPE ekko-zterm, "付款方式：根据付款条件EKKO-ZTERM取其描述 zterm_t TYPE char100, zzpovr TYPE ekko-zzpovr, "订单版本号：EKKO-ZZPOVR bedat TYPE ekko-bedat, "采购订单日期：EKKO-BEDAT zzpotp TYPE ekko-zzpotp, "订单发放类型：即PO发放类型EKKO-ZZPOTP的描述 zzpotp_t TYPE char100, waers TYPE ekko-waers, "货币单位：EKKO-WAERS verkf TYPE lfm1-verkf, "供应商联系人 LFM1-VERKF telf1 TYPE lfa1-telf1, "供应商联系电话 LFA1-TELF1 text_po TYPE string, "备注：PO抬头的表头文本 zztmcp TYPE ekko-zztmcp, "TMK 采购单编号 inco TYPE string, *行项目 ebeln TYPE ekpo-ebeln, ebelp TYPE ekpo-ebelp, "项目 matnr TYPE ekpo-matnr, "物品编码 maktx TYPE makt-maktx, "物料描述：根据物料取其长文本 kbetr TYPE konp-kbetr, "含税：根据税码EKPO- MWSKZ取税率，如：17% mseh3 TYPE t006a-mseh3, "单位：(度量单位)根据EKPO-MEINS取其商业名称T006-MSEH3 netpr_d TYPE p DECIMALS 6, "单价：EKPO-NETPR除以价格单位EKPO-PEINH，保留6位小数 eindt TYPE eket-eindt, "交货期：EKET-EINDT menge TYPE ekpo-menge, "数量：EKPO-MENGE meins TYPE ekpo-meins, "单位 netwr TYPE ekpo-netwr, "金额：EKPO-NETWR netwr_s TYPE ekpo-netwr, "总额：汇总所有行的金额 *脚注： eknam TYPE t024-eknam, "采购员：取EKKO-EKGRP的名称T024-EKNAM *背面条款： page TYPE sy-tabix, "页码 text TYPE string, END OF ty_gncg. DATA:gt_gncg TYPE STANDARD TABLE OF ty_gncg, wa_gncg TYPE ty_gncg. *---------------------------------------------------------------------- * 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. DATA: g_grid TYPE REF TO cl_gui_alv_grid. DATA: g_tabix TYPE i. DATA: g_len TYPE i. *---------------------------------------------------------------------- * Other use *---------------------------------------------------------------------- DATA:lt_list TYPE vrm_values, ls_value LIKE LINE OF lt_list. *&---------------------------------------------------------------------* *& 选择屏幕 *&---------------------------------------------------------------------* INCLUDE Z01MMF019_SCR. *INCLUDE z01mmf102_scr. *&---------------------------------------------------------------------* *& 包含 Z01MMF068_SCR *&---------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. PARAMETERS:p_ekorg LIKE ekko-ekorg OBLIGATORY DEFAULT \'M011\', p_ekgrp LIKE ekko-ekgrp OBLIGATORY DEFAULT \'A06\'. SELECT-OPTIONS:s_lifnr FOR lfa1-lifnr, s_bedat FOR ekko-bedat, s_ebeln FOR ekko-ebeln. *PARAMETERS:p_type AS LISTBOX TYPE CHAR10 VISIBLE LENGTH 20 DEFAULT \'国内采购订单\', * P_FLAG TYPE CHAR5 NO-DISPLAY. SELECTION-SCREEN END OF BLOCK b1. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002. *1. 国内采购订单： 采购组织M011,订单收货地点EKKO-ZZRLOC=Z01或Z05 *2. 联动采购订单TMC： 采购组织M011,订单联动标识EKKO-ZZISASSO=X *3. 联动采购订单TMK： 采购组织S061,订单联动标识EKKO-ZZISASSO=X *4. 联动采购订单TMK(English)：采购组织S061,订单联动标识EKKO-ZZISASSO=X *5. 模具采购订单TMC：采购组织M011,订单类型EKKO-BSART=Z007 *6. 模具采购订单TMK：采购组织S061,订单类型EKKO-BSART=Z007 PARAMETERS:rb_01 RADIOBUTTON GROUP g1 DEFAULT \'X\' USER-COMMAND rb, rb_02 RADIOBUTTON GROUP g1, rb_03 RADIOBUTTON GROUP g1, rb_04 RADIOBUTTON GROUP g1, rb_05 RADIOBUTTON GROUP g1, rb_06 RADIOBUTTON GROUP g1. SELECTION-SCREEN END OF BLOCK b2. *&---------------------------------------------------------------------* *& 子程序 *&---------------------------------------------------------------------* *INCLUDE z01mmf169_frm. INITIALIZATION. AT SELECTION-SCREEN. PERFORM frm_check_auth. AT SELECTION-SCREEN OUTPUT. PERFORM frm_init_ptype. *&---------------------------------------------------------------------* *& 程序主事件 *&---------------------------------------------------------------------* START-OF-SELECTION. PERFORM frm_get_data. PERFORM frm_alv_out. *&---------------------------------------------------------------------* *& Form FRM_INIT_PTYPE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_init_ptype . REFRESH lt_list . CASE \'X\'. WHEN rb_01 OR rb_02 OR rb_05. p_ekorg = \'M011\'. WHEN rb_03 OR rb_04 OR rb_06. p_ekorg = \'S061\'. WHEN OTHERS . ENDCASE. IF p_ekorg NE \'M011\' AND p_ekorg NE \'S061\'. MESSAGE s001(00) WITH \'限定采购组织要为M011或S061！\' DISPLAY LIKE \'E\'. STOP. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_GET_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_get_data . *& 订单打印类型 P_TYPE DATA:l_tabix TYPE sy-tabix. DATA:adrc TYPE adrc. DATA:lt_alv TYPE STANDARD TABLE OF ty_alv. DATA:lt_lfa1 TYPE STANDARD TABLE OF lfa1, ls_lfa1 TYPE lfa1. DATA:lt_makt TYPE STANDARD TABLE OF makt, ls_makt TYPE makt. DATA:lt_z01mmtrloc TYPE STANDARD TABLE OF z01mmtrloc, ls_z01mmtrloc TYPE z01mmtrloc. DATA:lt_z01mmtpotp TYPE STANDARD TABLE OF z01mmtpotp, ls_z01mmtpotp TYPE z01mmtpotp. DATA:lt_t024 TYPE STANDARD TABLE OF t024, ls_t024 TYPE t024. DATA:lt_t052u TYPE STANDARD TABLE OF t052u, ls_t052u TYPE t052u. DATA:lt_ftaxp LIKE ftaxp OCCURS 0 WITH HEADER LINE, l_aland LIKE rf82t-land1, l_datab LIKE rf82t-datab, l_mwskz LIKE rf82t-mwskz, l_txjcd LIKE rf82t-txjcd. SELECT a~lifnr a~ekorg a~ekgrp a~ebeln a~waers a~zzrloc a~zterm a~zzpovr a~bedat a~zzpotp a~zzisasso a~bsart a~lands b~ebelp b~matnr b~menge b~meins b~netpr b~peinh b~netwr b~plifz "按天的计划交货时间 b~mwskz INTO CORRESPONDING FIELDS OF TABLE gt_alv FROM ekko AS a JOIN ekpo AS b ON a~ebeln EQ b~ebeln WHERE a~ekorg EQ p_ekorg AND a~ekgrp EQ p_ekgrp AND a~lifnr IN s_lifnr AND a~bedat IN s_bedat AND a~loekz EQ space * AND a~frgke EQ \'R\' AND a~ebeln IN s_ebeln AND b~loekz EQ space. IF sy-subrc NE 0. MESSAGE s001(00) WITH \'未查询到满足条件的记录，请重试！\' DISPLAY LIKE \'E\'. STOP. ENDIF. * RANGES:r_zzrloc FOR ekko-zzrloc. * CASE \'X\'. * WHEN rb_01. * r_zzrloc(3) = \'IEQ\'. * r_zzrloc-low = \'Z01\'. * APPEND r_zzrloc. * CLEAR r_zzrloc. * r_zzrloc(3) = \'IEQ\'. * r_zzrloc-low = \'Z05\'. * APPEND r_zzrloc. * CLEAR r_zzrloc. * DELETE gt_alv WHERE zzrloc NOT IN r_zzrloc. * WHEN rb_02 OR rb_03 OR rb_04. * DELETE gt_alv WHERE zzisasso NE \'X\'. * WHEN rb_05 OR rb_06. * DELETE gt_alv WHERE bsart NE \'Z007\'."采购凭证类型 * * WHEN OTHERS. * ENDCASE. * lt_alv = gt_alv. * SORT lt_alv by zzpotp. * delete ADJACENT DUPLICATES FROM lt_alv COMPARING zzpotp. SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_lfa1 FROM lfa1 FOR ALL ENTRIES IN gt_alv WHERE lifnr EQ gt_alv-lifnr. SORT lt_lfa1 BY lifnr. *& 物料描述 SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_makt FROM makt FOR ALL ENTRIES IN gt_alv WHERE matnr = gt_alv-matnr AND spras = sy-langu. SORT lt_makt BY matnr. *& 收货地点EKKO-ZZRLOC的描述 SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_z01mmtrloc FROM z01mmtrloc. SORT lt_z01mmtrloc BY zzrloc. *& PO发放类型 SELECT * FROM z01mmtpotp INTO TABLE lt_z01mmtpotp FOR ALL ENTRIES IN gt_alv WHERE zzpotp = gt_alv-zzpotp . SORT lt_z01mmtpotp BY zzpotp. *& 取采购员描述 SELECT * FROM t024 INTO TABLE lt_t024 FOR ALL ENTRIES IN gt_alv WHERE ekgrp = gt_alv-ekgrp. SORT lt_t024 BY ekgrp. *& 取付款条件描述 SELECT * FROM t052u INTO TABLE lt_t052u FOR ALL ENTRIES IN gt_alv WHERE spras = \'ZH\' AND zterm = gt_alv-zterm . LOOP AT gt_alv INTO wa_alv. l_tabix = sy-tabix. READ TABLE lt_lfa1 INTO ls_lfa1 WITH KEY lifnr = wa_alv-lifnr BINARY SEARCH. IF sy-subrc EQ 0. CONCATENATE ls_lfa1-name1 ls_lfa1-name2 INTO wa_alv-namel. *&供应商地址 CLEAR:adrc. SELECT SINGLE * INTO adrc FROM adrc WHERE addrnumber EQ ls_lfa1-adrnr. IF sy-subrc EQ 0. CONCATENATE adrc-street adrc-str_suppl1 INTO wa_alv-address. ENDIF. ENDIF. READ TABLE lt_makt INTO ls_makt WITH KEY matnr = wa_alv-matnr BINARY SEARCH. IF sy-subrc EQ 0. wa_alv-maktx = ls_makt-maktx. ENDIF. *& 贸易方式 READ TABLE lt_z01mmtrloc INTO ls_z01mmtrloc WITH KEY zzrloc = wa_alv-zzrloc BINARY SEARCH. IF sy-subrc EQ 0. wa_alv-zzrloc_t = ls_z01mmtrloc-zzrloct. ENDIF. *& 付款条件 READ TABLE lt_t052u INTO ls_t052u WITH KEY zterm = wa_alv-zterm BINARY SEARCH. IF sy-subrc EQ 0. wa_alv-zterm_t = ls_t052u-zterm. ENDIF. *& PO订单发放类型 READ TABLE lt_z01mmtpotp INTO ls_z01mmtpotp WITH KEY zzpotp = wa_alv-zzpotp BINARY SEARCH. IF sy-subrc EQ 0. wa_alv-zzpotp_t = ls_z01mmtpotp-zzpotpt. ENDIF. *& 采购员 READ TABLE lt_t024 INTO ls_t024 WITH KEY ekgrp = wa_alv-ekgrp BINARY SEARCH. IF sy-subrc EQ 0. wa_alv-eknam = ls_t024-eknam. ENDIF. *& 含税->税率 CLEAR:l_aland,l_datab ,l_mwskz,l_txjcd, lt_ftaxp,lt_ftaxp[]. l_aland = wa_alv-lands."报告国家 l_datab = wa_alv-bedat. l_mwskz = wa_alv-mwskz. l_txjcd = wa_alv-mwskz. CALL FUNCTION \'GET_TAX_PERCENTAGE\' EXPORTING aland = l_aland datab = l_datab mwskz = l_mwskz txjcd = l_txjcd TABLES t_ftaxp = lt_ftaxp. LOOP AT lt_ftaxp WHERE kschl = \'MWVS\'. *& 计算出税率 IF lt_ftaxp-kbetr IS NOT INITIAL. wa_alv-kbetr = lt_ftaxp-kbetr / 10. "/ 1000. ENDIF . ENDLOOP. *&单位 SELECT SINGLE mseh3 INTO wa_alv-mseh3 FROM t006a WHERE msehi EQ wa_alv-meins AND spras EQ sy-langu. *&单价 = 净价/价格单位，（6位小数） NETPR/PEINH IF wa_alv-peinh IS NOT INITIAL. wa_alv-netpr_d = wa_alv-netpr / wa_alv-peinh. ELSE. wa_alv-netpr_d = wa_alv-netpr. ENDIF. *&交货日期 SELECT SINGLE eindt INTO wa_alv-eindt FROM eket WHERE ebeln EQ wa_alv-ebeln AND ebelp EQ wa_alv-ebelp. SHIFT wa_alv-ebeln LEFT DELETING LEADING \'0\'. SHIFT wa_alv-ebelp LEFT DELETING LEADING \'0\'. MODIFY gt_alv FROM wa_alv INDEX l_tabix. CLEAR:wa_alv. ENDLOOP. SORT gt_alv BY ebeln ebelp. g_len = lines( gt_alv ). IF g_len EQ 0. MESSAGE s001(00) WITH \'未查询到满足条件的记录，请重试！\' DISPLAY LIKE \'E\'. STOP. ELSE. MESSAGE s001(00) WITH \'找到数据条目：\' g_len. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_ALV_OUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_alv_out . DATA: l_nn TYPE i. 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 \'LIFNR \' \'供应商\' \'\' \'\' \'\' \'\' \'\' \'\'. add_fieldcat \'NAMEL \' \'供应商名称\' \'\' \'\' \'\' \'\' \'\' \'\'. add_fieldcat \'EKORG \' \'采购组织\' \'\' \'\' \'\' \'\' \'\' \'\'. add_fieldcat \'EKGRP \' \'采购组\' \'\' \'\' \'\' \'\' \'\' \'\'. add_fieldcat \'EBELN \' \'PO\' \'\' \'\' \'\' \'\' \'\' \'\'. add_fieldcat \'EBELP \' \'PO行\' \'\' \'\' \'\' \'\' \'\' \'\'. add_fieldcat \'MATNR \' \'物料\' \'\' \'\' \'\' \'\' \'\' \'\'. add_fieldcat \'MAKTX \' \'物料长文本\' \'\' \'\' \'\' \'\' \'\' \'\'. add_fieldcat \'MENGE \' \'数量\' \'\' \'\' \'\' \'\' \'\' \'\'. add_fieldcat \'MEINS \' \'单位\' \'\' \'\' \'\' \'\' \'\' \'\'. add_fieldcat \'EINDT \' \'计划交货日期\' \'\' \'\' \'\' \'\' \'\' \'\'. add_fieldcat \'NETPR_D\' \'单价\' \'\' \'\' \'\' \'\' \'\' \'\'. add_fieldcat \'WAERS \' \'币别\' \'\' \'\' \'\' \'\' \'\' \'\'. gw_layout-colwidth_optimize = \'X\'. gw_layout-zebra = \'X\'. gw_layout-box_fieldname = \'SEL\'. g_program = sy-repid. *& 调用函数显示ALV列表 CALL FUNCTION \'REUSE_ALV_GRID_DISPLAY\' EXPORTING i_callback_program = g_program i_default = \'X\' i_save = \'U\' is_layout = gw_layout it_fieldcat = gt_fieldcat i_callback_pf_status_set = \'FRM_SET_STATUS\' i_callback_user_command = \'FRM_USER_COMMAND\' TABLES t_outtab = gt_alv EXCEPTIONS program_error = 1 OTHERS = 2. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_CHECK_AUTH *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_check_auth . *权限要求: 按采购组织、采购组检查权限 ENDFORM. FORM frm_set_status USING extab TYPE slis_t_extab. **功能: 设置ALV菜单栏 DATA: l_rec_excfunc LIKE LINE OF extab. "工作区: 不用显示的菜单项 **STEP 1. 设置菜单 **STEP 1.1 隐藏掉不需要的标准按钮 CLEAR l_rec_excfunc. l_rec_excfunc-fcode = \'&RNT\'. APPEND l_rec_excfunc TO extab. CLEAR l_rec_excfunc. l_rec_excfunc-fcode = \'&REFRESH\'. APPEND l_rec_excfunc TO extab. CLEAR l_rec_excfunc. l_rec_excfunc-fcode = \'&DATA_SAVE\'. APPEND l_rec_excfunc TO extab. CLEAR l_rec_excfunc. l_rec_excfunc-fcode = \'&SAL\'. APPEND l_rec_excfunc TO extab. CLEAR l_rec_excfunc. l_rec_excfunc-fcode = \'&ALL\'. APPEND l_rec_excfunc TO extab. CLEAR l_rec_excfunc. l_rec_excfunc-fcode = \'&UMC\'. APPEND l_rec_excfunc TO extab. CLEAR l_rec_excfunc. l_rec_excfunc-fcode = \'%SL\'. APPEND l_rec_excfunc TO extab. CLEAR l_rec_excfunc. l_rec_excfunc-fcode = \'&VEXCEL\'. APPEND l_rec_excfunc TO extab. CLEAR l_rec_excfunc. l_rec_excfunc-fcode = \'&AQW\'. APPEND l_rec_excfunc TO extab. CLEAR l_rec_excfunc. l_rec_excfunc-fcode = \'&ABC\'. APPEND l_rec_excfunc TO extab. CLEAR l_rec_excfunc. l_rec_excfunc-fcode = \'&GRAPH\'. APPEND l_rec_excfunc TO extab. CLEAR l_rec_excfunc. l_rec_excfunc-fcode = \'&INFO\'. APPEND l_rec_excfunc TO extab. **STEP 2. 激活显示自定义菜单 SET PF-STATUS \'ZSTATUS2\' EXCLUDING extab. ENDFORM. "FRM_SET_PF_STATUS FORM frm_user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield. *********************************************************************** **功能: 响应用户的ALV上的操作 **输入：(屏幕操作命令) **返回： ** (根据不同命令有不同的处理程序) *********************************************************************** **BELOW**数据声明 DATA: lv_subrc LIKE sy-subrc, "返回码：0表示成功，1表示失败 lc_msgtx TYPE msgtx. "说明信息 **ABOVE**数据声明 **BELOW**初始化 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\'. "要求执行完此子程序后自动刷新ALV清单 **STEP 1. 操作 CASE r_ucomm. WHEN \'&ZSALL\'. "选择全部条目 PERFORM frm_ucomm_zsall "选择全部条目 CHANGING gt_alv[]. "本次处理前后的ALV数据 WHEN \'&ZDSAL\'. "取消全部选择 PERFORM frm_ucomm_zdsal "取消全部选择 CHANGING gt_alv[]. "本次处理前后的ALV数据 WHEN \'&ZPRINT\'. "打印 PERFORM frm_ucomm_print "修改DB CHANGING gt_alv[]. "本次确认调整前后的ALV数据 ENDCASE . *ABOVE**程序主体 ENDFORM. "FRM_USER_COMMAND *&---------------------------------------------------------------------* *& Form FRM_UCOMM_ZSALL *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * <--P_GT_ALV[] text *----------------------------------------------------------------------* FORM frm_ucomm_zsall CHANGING p_gt_alv TYPE tyt_alv. LOOP AT gt_alv INTO wa_alv WHERE sel IS INITIAL . wa_alv-sel = \'X\'. MODIFY gt_alv FROM wa_alv. CLEAR:wa_alv. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_UCOMM_ZDSAL *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * <--P_GT_ALV[] text *----------------------------------------------------------------------* FORM frm_ucomm_zdsal CHANGING p_gt_alv TYPE tyt_alv. LOOP AT gt_alv INTO wa_alv WHERE sel IS NOT INITIAL . wa_alv-sel = \'\'. MODIFY gt_alv FROM wa_alv. CLEAR:wa_alv. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_UCOMM_ZPOST *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * <--P_LV_SUBRC text * <--P_LC_MSGTX text * <--P_GT_ALV[] text *----------------------------------------------------------------------* FORM frm_ucomm_print CHANGING p_gt_alv TYPE tyt_alv. DATA:l_msg TYPE string, lt_alv TYPE STANDARD TABLE OF ty_alv, * lt_alv_prt TYPE STANDARD TABLE OF z01mmf024_item, * ls_alv_prt TYPE z01mmf024_item, ls_alv TYPE ty_alv, func_mod_name TYPE rs38l_fnam, output_options TYPE ssfcompop, it_job_output_info TYPE ssfcrescl, control_parameters TYPE ssfctrlop, lc_sfname TYPE tdsfname, "VALUE \'Z01MMF102\', lc_index TYPE sy-index, "计数器 lc_number TYPE sy-index, "计数器 lc_num TYPE sy-index, lc_tot TYPE int4, lc_int TYPE int4, lc_tot_num TYPE string, lc_je TYPE ekpo-netwr, lc_je_sum TYPE string. DATA:ls_otfdata TYPE ssfcrescl, lt_otf TYPE TABLE OF itcoo, l_bin_filesize TYPE i, "soli_tab lt_lines TYPE TABLE OF tline, l_filename TYPE string, l_path TYPE string, l_pathfilename TYPE string. CASE \'X\'. WHEN rb_01. lc_sfname = \'Z01MMF102_1\'. WHEN rb_02. lc_sfname = \'Z01MMF102_2\'. WHEN rb_03. lc_sfname = \'Z01MMF102_3\'. WHEN rb_04. lc_sfname = \'Z01MMF102_4\'. WHEN rb_05. lc_sfname = \'Z01MMF102_5\'. WHEN rb_06. lc_sfname = \'Z01MMF102_6\'. WHEN OTHERS. ENDCASE. * BREAK XIANGC. APPEND LINES OF p_gt_alv TO lt_alv. DELETE lt_alv WHERE sel IS INITIAL. IF lt_alv IS INITIAL. l_msg = \'至少要选中一笔条目才可进行操作!\'. MESSAGE i001(00) WITH l_msg. RETURN. ELSE. * 选中凭证的一行，则默认将凭证所有行选中 PERFORM frm_change_select_item CHANGING p_gt_alv. *. 初始化打印控制参数 CALL FUNCTION \'SSF_FUNCTION_MODULE_NAME\' EXPORTING formname = lc_sfname IMPORTING fm_name = func_mod_name EXCEPTIONS no_form = 1 no_function_module = 2 OTHERS = 3. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE \'I\' NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. EXIT. ENDIF. * 1 by 1 ，循环打印 SORT lt_alv BY ebeln. DELETE ADJACENT DUPLICATES FROM lt_alv COMPARING ebeln. lc_index = lines( lt_alv ). LOOP AT lt_alv INTO ls_alv. lc_number = lc_number + 1. output_options-tdimmed = \'X\'. control_parameters-getotf = \'X\'. IF lc_number < lc_index. control_parameters-no_close = \'X\'. ELSE. *&打印关闭 control_parameters-no_close = space. ENDIF. CLEAR:gt_gncg,lc_num. CLEAR:lc_tot_num,lc_tot, lc_je_sum,lc_je. LOOP AT p_gt_alv INTO wa_alv WHERE sel = \'X\' AND ebeln = ls_alv-ebeln. MOVE-CORRESPONDING wa_alv TO wa_gncg. lc_num = lc_num + 1. wa_gncg-index = lc_num. lc_tot = lc_tot + wa_gncg-menge. lc_je = lc_je + wa_gncg-netwr. APPEND wa_gncg TO gt_gncg. CLEAR: wa_alv,wa_gncg. ENDLOOP. lc_tot_num = lc_tot. lc_je_sum = lc_je. CALL FUNCTION func_mod_name EXPORTING control_parameters = control_parameters output_options = output_options user_settings = space in_tot_num = lc_tot_num ln_je_sum = lc_je_sum * TABLES in_item = gt_gncg importing * DOCUMENT_OUTPUT_INFO = job_output_info = ls_otfdata * JOB_OUTPUT_OPTIONS = EXCEPTIONS formatting_error = 1 internal_error = 2 send_error = 3 user_canceled = 4 OTHERS = 5. IF sy-subrc <> 0. DATA errortab TYPE tsferror. CALL FUNCTION \'SSF_READ_ERRORS\' IMPORTING errortab = errortab. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ELSE. *&调用打印 control_parameters-no_open = \'X\'. *&+++转换成PDF lt_otf[] = ls_otfdata-otfdata[]. CALL FUNCTION \'CONVERT_OTF\' EXPORTING format = \'PDF\' max_linewidth = 132 * ARCHIVE_INDEX = \' \' * COPYNUMBER = 0 * ASCII_BIDI_VIS2LOG = \' \' * PDF_DELETE_OTFTAB = \' \' * PDF_USERNAME = \' \' "don\'t exist * PDF_PREVIEW = \' \' "don\'t exist * USE_CASCADING = \' \' "don\'t exist IMPORTING bin_filesize = l_bin_filesize * BIN_FILE = TABLES otf = lt_otf lines = lt_lines "t_pdf_tab EXCEPTIONS err_max_linewidth = 1 err_format = 2 err_conv_not_possible = 3 err_bad_otf = 4 OTHERS = 5. *&PDF 预览 CALL FUNCTION \'ZSTXBC_SSFCOMP_PDF_PREVIEW\' EXPORTING i_otf = lt_otf[] EXCEPTIONS convert_otf_to_pdf_error = 1 cntl_error = 2 OTHERS = 3. IF sy-subrc EQ 0. *&调用保存 对话框 CALL METHOD cl_gui_frontend_services=>file_save_dialog EXPORTING * window_title = * default_extension = * default_file_name = * with_encoding = file_filter = \'*.PDF\' * initial_directory = * prompt_on_overwrite = \'X\' CHANGING filename = l_filename path = l_path fullpath = l_pathfilename * user_action = * file_encoding = EXCEPTIONS cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 OTHERS = 4. IF sy-subrc <> 0. ENDIF. l_bin_filesize = l_bin_filesize * 2. CALL FUNCTION \'GUI_DOWNLOAD\' EXPORTING bin_filesize = l_bin_filesize filename = l_pathfilename filetype = \'BIN\' * APPEND = \' \' write_field_separator = \' \' TABLES data_tab = lt_lines * fieldnames = gt_fieldnames EXCEPTIONS file_write_error = 1 no_batch = 2 gui_refuse_filetransfer = 3 invalid_type = 4 no_authority = 5 unknown_error = 6 header_not_allowed = 7 separator_not_allowed = 8 filesize_not_allowed = 9 header_too_long = 10 dp_error_create = 11 dp_error_send = 12 dp_error_write = 13 unknown_dp_error = 14 access_denied = 15 dp_out_of_memory = 16 disk_full = 17 dp_timeout = 18 file_not_found = 19 dataprovider_exception = 20 control_flush_error = 21 OTHERS = 22. ENDIF. ENDIF. ENDLOOP. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_CHANGE_SELECT_ITEM *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * <--P_P_GT_ALV text *----------------------------------------------------------------------* FORM frm_change_select_item CHANGING gt_alv TYPE tyt_alv. DATA :lt_alv TYPE STANDARD TABLE OF ty_alv, ls_alv TYPE ty_alv. APPEND LINES OF gt_alv TO lt_alv. DELETE lt_alv WHERE sel IS INITIAL. SORT lt_alv BY ebeln. DELETE ADJACENT DUPLICATES FROM lt_alv COMPARING ebeln. LOOP AT lt_alv INTO ls_alv. LOOP AT gt_alv INTO wa_alv WHERE ebeln = ls_alv-ebeln AND sel IS INITIAL. wa_alv-sel = \'X\'. MODIFY gt_alv FROM wa_alv. CLEAR:wa_alv. ENDLOOP. CLEAR:ls_alv. ENDLOOP. ENDFORM.