*&---------------------------------------------------------------------* *& 程序名: ZDQFI_925 *& *&---------------------------------------------------------------------* *& 抬头 : 生鲜项目原料消耗发货功能 * *& 模块 : FI * *& 作者 : * *& 创建日期 : 20180301 * *& 程序类型 : 功能报表 * *& 消息类 : zmg_fi * *& 描述 : 生鲜项目原料消耗发货功能 * *& * *& 修改记录 : * *& 日期 修改人 修改内容 * *& YYYY/MM/DD 修改人员名 说明 * *&---------------------------------------------------------------------* REPORT zdqfi_925 MESSAGE-ID 00. *&---------------------------------------------------------------------* *& INCLUDE *&---------------------------------------------------------------------* INCLUDE zdqfi_925_top. "Type/Data *INCLUDE zxxxxxxxx_class. "Class INCLUDE zdqfi_925_selscr. "Selection screen INCLUDE zdqfi_925_form. "Form *INCLUDE zxxxxxxxx_module. "Module *&---------------------------------------------------------------------* *& 初始化处理 *&---------------------------------------------------------------------* INITIALIZATION. * PERFORM xxxxxxx. *&---------------------------------------------------------------------* *& 选择屏幕控制 *&---------------------------------------------------------------------* AT SELECTION-SCREEN OUTPUT. * PERFORM xxxxxxx. *&---------------------------------------------------------------------* *& 参数输入检查 *&---------------------------------------------------------------------* AT SELECTION-SCREEN. * PERFORM xxxxxxx. *&---------------------------------------------------------------------* *& 程序开始处理 *&---------------------------------------------------------------------* START-OF-SELECTION. PERFORM frm_check_run. PERFORM frm_get_data. "取数,过滤数据 逻辑 PERFORM frm_pro_doc. "处理数据 *&---------------------------------------------------------------------* *& 程序结束处理 *&---------------------------------------------------------------------* END-OF-SELECTION. PERFORM frm_alv_data. "alv显示数据 *&---------------------------------------------------------------------* *& Form frm_check_run *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_check_run . DATA:ls_zfit1004 TYPE zfit1004. "加锁配置表. DATA:ls_zruning_lock TYPE zruning_lock. "加锁配置表. IF p_ccl = 'X'. IF sy-batch = 'X'. MESSAGE '重处理只能前台手工处理！' TYPE 'S' DISPLAY LIKE 'E'. LEAVE LIST-PROCESSING. ENDIF. SELECT SINGLE * FROM zfit1004 INTO ls_zfit1004 WHERE usnam = sy-uname. IF sy-subrc <> 0. MESSAGE '请联系产品维护权限！' TYPE 'S' DISPLAY LIKE 'E'. LEAVE LIST-PROCESSING. ENDIF. ENDIF. SELECT SINGLE * FROM zruning_lock INTO ls_zruning_lock WHERE zprogram = sy- repid AND flag = 'X'. IF sy-subrc EQ 0. DO. *加锁 CALL FUNCTION 'ENQUEUE_EZ_ZRUNING_LOCK' EXPORTING mode_zruning_lock = 'X' mandt = sy-mandt zprogram = sy-repid _scope = '1' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3. IF sy-subrc = 0. EXIT. ELSE. IF sy-batch = 'X'. WAIT UP TO 10 SECONDS. ELSE. MESSAGE '该程序已有其他用户在运行，请稍候再试!' TYPE 'S' DISPLAY LIKE 'E'. LEAVE LIST-PROCESSING. ENDIF. ENDIF. ENDDO. ELSE. MESSAGE '请维护加锁配置表ZRUNING_LOCK!' TYPE 'S' DISPLAY LIKE 'E'. LEAVE LIST-PROCESSING. ENDIF. ENDFORM. " frm_check_run *&---------------------------------------------------------------------* *& Form frm_get_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_get_data . DATA: lr_status TYPE RANGE OF zdestatus01, ls_status LIKE LINE OF lr_status. DATA: lt_zfit1048 LIKE TABLE OF zfit1048, ls_zfit1048 LIKE zfit1048. FIELD-SYMBOLS: <lf_alv> LIKE LINE OF gt_alv. ls_status(3) = 'IEQ'. IF p_ccl = 'X'. ls_status-low = 'C'. APPEND ls_status TO lr_status. ELSE. ls_status-low = 'E'. APPEND ls_status TO lr_status. ls_status-low = ''. APPEND ls_status TO lr_status. ENDIF. **取主数据 SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_alv FROM zfit1048 WHERE zdate_js IN s_zdate AND ajust_date IN s_adate AND mblnr IN s_mblnr AND iblnr IN s_iblnr AND status IN lr_status. SORT gt_alv BY iblnr mblnr. IF gt_alv[] IS INITIAL. MESSAGE '查询不到符合条件的数据' TYPE 'S' DISPLAY LIKE 'E'. LEAVE LIST-PROCESSING. ENDIF. **不是重处理时,需先设置C状态,然后释放程序锁 IF p_ccl <> 'X'. LOOP AT gt_alv ASSIGNING <lf_alv>. MOVE-CORRESPONDING <lf_alv> TO ls_zfit1048. ls_zfit1048-status = 'C'. APPEND ls_zfit1048 TO lt_zfit1048. ENDLOOP. MODIFY zfit1048 FROM TABLE lt_zfit1048. IF sy-subrc = 0. COMMIT WORK AND WAIT. ELSE. ROLLBACK WORK. MESSAGE '更新处理数据C状态到表ZFIT1048失败' TYPE 'S' DISPLAY LIKE 'E'. LEAVE LIST-PROCESSING. ENDIF. ENDIF. PERFORM frm_release_lock. ENDFORM. " frm_get_data *&---------------------------------------------------------------------* *& Form frm_pro_doc *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_pro_doc . FIELD-SYMBOLS: <lf_alv> LIKE LINE OF gt_alv. **定义货物移动(MB11)收货过账的结构和变量 DATA: ls_heade LIKE bapi2017_gm_head_01. DATA: ls_code LIKE bapi2017_gm_code. * DATA: ls_testrun LIKE bapi2017_gm_gen-testrun. DATA: ls_goodsmvt_headret LIKE bapi2017_gm_head_ret. DATA: ls_materialdocument LIKE bapi2017_gm_head_ret-mat_doc. DATA: ls_matdocumentyear LIKE bapi2017_gm_head_ret-doc_year. DATA: ls_goodsmvt_item LIKE bapi2017_gm_item_create, lt_goodsmvt_item LIKE TABLE OF bapi2017_gm_item_create, ls_goodsmvt_serialnumber LIKE bapi2017_gm_serialnumber, lt_goodsmvt_serialnumber LIKE TABLE OF bapi2017_gm_serialnumber, ls_return LIKE bapiret2 , lt_return LIKE TABLE OF bapiret2 . DATA: lv_xblnr LIKE bkpf-xblnr, lv_zuonr LIKE bseg-zuonr. DATA: l_error TYPE c, l_msg TYPE string. DATA: ls_bkpf LIKE bkpf, ls_bseg LIKE bseg, lv_awkey LIKE bkpf-awkey. **处理数据 LOOP AT gt_alv ASSIGNING <lf_alv>. CLEAR: ls_heade, ls_goodsmvt_headret,ls_materialdocument, ls_matdocumentyear, lt_goodsmvt_item, lt_goodsmvt_serialnumber,lt_return. **s1.抬头赋值： *凭证日期：调整日期AJUST_DATE *记账日期：当屏幕输入的BUDAT为空，则取调整日期AJUST_DATE，否则取屏幕输入BUDAT ls_code-gm_code = '06'. "MB11执行货物移 动收货,标准收货 ls_heade-doc_date = <lf_alv>-ajust_date. "凭证日期 IF p_budat IS INITIAL. ls_heade-pstng_date = <lf_alv>-ajust_date. "记账日期 ELSE. ls_heade-pstng_date = p_budat. ENDIF. ls_heade-pr_uname = sy-uname. "用户名 **is_heade-header_txt = '[ERP2.0]自营库存平台一期'. "抬头文本 **s2.项目赋值： *商品：取数为存表中的MATNR； *数量：取数为存表中的DIFMG； *批次：取数为存表中的CHARG； *移动类型：需根据DIFMG差异数量判断： *当DIFMG差异数量不存在‘-’是，R3调用MB11增加库存，移动类型默认为Y52； *当DIFMG差异数量存在‘-’是，R3调用MB11减少库存，移动类型默认为Y51； *地点：WERKS 工厂 *库存地点：LGORT 库存地点 ls_goodsmvt_item-material = <lf_alv>-matnr. "商品号 ls_goodsmvt_item-sales_ord = <lf_alv>-difmg. "数量 ls_goodsmvt_item-plant = <lf_alv>-werks. "工厂 ls_goodsmvt_item-move_plant = <lf_alv>-werks. "工厂11/18 ls_goodsmvt_item-stge_loc = <lf_alv>-lgort. "库存地点 ls_goodsmvt_item-move_stloc = <lf_alv>-lgort. "库存地点 11/18 ls_goodsmvt_item-batch = <lf_alv>-charg. "批号 IF <lf_alv>-difmg > 0. ls_goodsmvt_item-move_type = 'Y52'. "移动类型 ELSE. ls_goodsmvt_item-move_type = 'Y51'. ENDIF. **s3.细节赋值 *仓储类型：默认为999； *仓位：默认为999； *分配：输入MBLNR SIMS MD 单号； *文本：输入JUST_DATE 调整日期+ ‘确认销售发货成本（盘点)’ *参照：输入IBLNR SIMS MD 单号 ls_goodsmvt_item-entry_uom = <lf_alv>-meins. "单位 ls_goodsmvt_item-stge_type = '999'. "仓储类型 ls_goodsmvt_item-stge_bin = '999'. "仓位 CONCATENATE <lf_alv>-ajust_date '确认销售发货成本（盘点)' INTO ls_goodsmvt_item-item_text. APPEND ls_goodsmvt_item TO lt_goodsmvt_item. CLEAR: ls_goodsmvt_item. ***Export分配和参照，在ZGGBS002替代程序里Import ***去替代商品凭证对应会计凭证分配和参照 MOVE <lf_alv>-iblnr TO lv_xblnr. MOVE <lf_alv>-mblnr TO lv_zuonr. EXPORT lv_xblnr TO MEMORY ID 'LV_XBLNR'."抬头参照 EXPORT lv_zuonr TO MEMORY ID 'LV_ZUONR'."行分配 break 88392028. **GR CREATE CALL FUNCTION 'BAPI_GOODSMVT_CREATE' EXPORTING goodsmvt_header = ls_heade goodsmvt_code = ls_code IMPORTING goodsmvt_headret = ls_goodsmvt_headret materialdocument = ls_materialdocument matdocumentyear = ls_matdocumentyear TABLES goodsmvt_item = lt_goodsmvt_item goodsmvt_serialnumber = lt_goodsmvt_serialnumber return = lt_return. LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A'. CONCATENATE l_msg ls_return-message INTO l_msg. l_error = 'X'. ENDLOOP. IF l_error = 'X'. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. <lf_alv>-status_fh = 'E'. CONCATENATE '生成商品凭证失败！' l_msg INTO <lf_alv>-message_fh. ELSE. * 返回商品凭证号，提交 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. <lf_alv>-status_fh = 'S'. <lf_alv>-mblnr_fh = ls_materialdocument. <lf_alv>-message_fh = '生成商品凭证成功！'. **商品凭证成功，通过MBLNR_FH+年度 取会计凭证 CLEAR: ls_bkpf, ls_bseg, lv_awkey. CONCATENATE ls_materialdocument ls_matdocumentyear INTO lv_awkey. SELECT SINGLE * INTO ls_bkpf FROM bkpf WHERE awkey = lv_awkey AND awtyp = 'MKPF'. IF sy-subrc EQ 0. SELECT SINGLE * INTO ls_bseg FROM bseg WHERE bukrs = ls_bkpf-bukrs AND belnr = ls_bkpf-belnr AND gjahr = ls_bkpf-gjahr AND hkont = '1243999994'. **会计凭证回写 <lf_alv>-belnr_fh = ls_bkpf-belnr. <lf_alv>-mjahr = ls_bkpf-gjahr. <lf_alv>-bukrs3 = ls_bkpf-bukrs. <lf_alv>-budat_fh = ls_bkpf-budat. <lf_alv>-cpudt_fh = ls_bkpf-cpudt. <lf_alv>-dmbtr3 = ls_bseg-dmbtr. ENDIF. ENDIF. **数据回写zfit1048 UPDATE zfit1048 SET status_fh = <lf_alv>-status_fh message_fh = <lf_alv>-message_fh mblnr_fh = <lf_alv>-mblnr_fh belnr_fh = <lf_alv>-belnr_fh bukrs3 = <lf_alv>-bukrs3 dmbtr3 = <lf_alv>-dmbtr3 mjahr = <lf_alv>-mjahr budat_fh = <lf_alv>-budat_fh cpudt_fh = <lf_alv>-cpudt_fh * STATUS WHERE iblnr = <lf_alv>-iblnr AND gjahr = <lf_alv>-gjahr AND serialno = <lf_alv>-serialno AND mblnr = <lf_alv>-mblnr AND uuid = <lf_alv>-uuid. IF sy-subrc EQ 0. COMMIT WORK AND WAIT. ELSE. ROLLBACK WORK. <lf_alv>-status_fh = 'E'. <lf_alv>-message_fh = '商品凭证记账状态更新zfit1048表失败！'. ENDIF. ENDLOOP. ENDFORM. " frm_pro_doc *&---------------------------------------------------------------------* *& Form frm_alv_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_alv_data . IF sy-batch = 'X'. RETURN. ENDIF. DEFINE lm_fieldcat. clear:gs_fcat. gs_fcat-tabname = 'GT_ALV'. gs_fcat-fieldname = &1. gs_fcat-scrtext_l = &2. gs_fcat-scrtext_m = &2. gs_fcat-scrtext_s = &2. gs_fcat-no_out = &3. gs_fcat-outputlen = &4. gs_fcat-do_sum = &5. gs_fcat-hotspot = &6. gs_fcat-ref_table = &7. gs_fcat-ref_field = &8. append gs_fcat to gt_fcat. END-OF-DEFINITION. REFRESH: gt_fcat. lm_fieldcat: 'IBLNR ' '库存盘点凭证' '' '' '' '' '' '' , 'MBLNR ' 'SIMS MD单号' '' '' '' '' '' '', 'WERKS ' '工厂 ' '' '' '' '' '' '' , 'LGORT ' '库存地点' '' '' '' '' '' '' , 'MATNR ' '商品编码' '' '18' '' '' '' '' , 'MEINS ' '单位' '' '' '' '' '' '' , 'CHARG ' '批次' '' '' '' '' '' '' , 'DIFMG ' '差异数量 ' '' '' '' '' '' '' , 'AJUST_DATE' '调整日期 ' '' '' '' '' '' '' , 'STATUS_FH ' '商品凭证记账状态' '' '' '' '' '' '' , 'MESSAGE_FH' '消息 ' '' '' '' '' '' '' , 'MBLNR_FH ' '商品凭证' '' '' '' '' '' '' , 'MJAHR ' '凭证年度' '' '' '' '' '' '', 'BELNR_FH ' '会计凭证' '' '' '' '' '' '' . gs_layout-zebra = 'X'. gs_layout-cwidth_opt = 'X'. * gs_layout-box_fname = 'SEL'. "可放出最前的选择中方块" CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = sy-repid i_callback_user_command = 'FRM_USER_COMMAND' is_layout_lvc = gs_layout it_fieldcat_lvc = gt_fcat i_save = 'A' TABLES t_outtab = gt_alv EXCEPTIONS program_error = 1 OTHERS = 2. 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. " frm_alv_data *&---------------------------------------------------------------------* *& Form frm_release_lock *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_release_lock . CALL FUNCTION 'DEQUEUE_EZ_ZRUNING_LOCK' EXPORTING mode_zruning_lock = 'X' mandt = sy-mandt zprogram = sy-repid. ENDFORM. " frm_release_lock