ABAP 出库单打印
2024-05-12 21:04:24
Code listing for: ZMM035
Description: 库存转储出库单打印
*&---------------------------------------------------------------------* * 程序名称: 库存转储出库单打印 * 程序名 ：ZMM035 * 开发日期：2013-09-27 * 创建者 ：张晨宇 * 申请者 ：徐佳良 *----------------------------------------------------------------------* REPORT ZMM035.***************************************************************** *Tables ***************************************************************** TABLES:MKPF,MSEG,T001W,MAKT,T001L,ADRC,T001K,T001,ADR2,ADR3.***************************************************************** *TYPE DECLARATION ***************************************************************** TYPES:BEGIN OF TY_DATA,BUDAT TYPE MKPF-BUDAT,MBLNR TYPE MKPF-MBLNR,BWART TYPE MSEG-BWART,WERKS TYPE MSEG-WERKS,NAME1 TYPE T001W-NAME1,ZEILE TYPE MSEG-ZEILE,MATNR TYPE MSEG-MATNR,MAKTX TYPE MAKT-MAKTX,LGORT TYPE MSEG-LGORT,LGOBE TYPE T001L-LGOBE,ERFME TYPE MSEG-ERFME,ERFMG TYPE MSEG-ERFMG,CHARG TYPE MSEG-CHARG,USNAM TYPE MKPF-USNAM,BKTXT TYPE MKPF-BKTXT,BUTXT TYPE T001-BUTXT, "公司描述 1STRAS TYPE STRING, "地址+街道4 3UMLGO TYPE MSEG-UMLGO, "转储入库库存地点 4SGTXT TYPE MSEG-SGTXT, "地址 6TEL_NUMBER TYPE ADR2-TEL_NUMBER,FAX_NUMBER TYPE ADR3-FAX_NUMBER,MJAHR TYPE MKPF-MJAHR,FLAG TYPE N, "打印分页标识SUM_ERFMG TYPE MSEG-ERFMG, "重量合计CHECKBOX TYPE C,END OF TY_DATA.TYPES:BEGIN OF TY_MKPF, BUDAT TYPE MKPF-BUDAT, MBLNR TYPE MKPF-MBLNR, USNAM TYPE MKPF-USNAM, BKTXT TYPE MKPF-BKTXT,MJAHR TYPE MKPF-MJAHR, END OF TY_MKPF.TYPES:BEGIN OF TY_MSEG,MBLNR TYPE MSEG-MBLNR,BWART TYPE MSEG-BWART,WERKS TYPE MSEG-WERKS,ZEILE TYPE MSEG-ZEILE,MATNR TYPE MSEG-MATNR,LGORT TYPE MSEG-LGORT,ERFME TYPE MSEG-ERFME,ERFMG TYPE MSEG-ERFMG,CHARG TYPE MSEG-CHARG,MJAHR TYPE MSEG-MJAHR,UMLGO TYPE MSEG-UMLGO,SGTXT TYPE MSEG-SGTXT,PARENT_ID TYPE MSEG-PARENT_ID,END OF TY_MSEG.TYPES:BEGIN OF TY_T001,BUKRS TYPE T001-BUKRS,BUTXT TYPE T001-BUTXT,END OF TY_T001.TYPES:BEGIN OF TY_T001K,BWKEY TYPE T001K-BWKEY,BUKRS TYPE T001K-BUKRS,END OF TY_T001K.TYPES:BEGIN OF TY_T001W,WERKS TYPE T001W-WERKS,NAME1 TYPE T001W-NAME1,ADRNR TYPE T001W-ADRNR,STRAS TYPE T001W-STRAS,END OF TY_T001W.TYPES:BEGIN OF TY_T001L,WERKS TYPE T001L-WERKS,LGORT TYPE T001L-LGORT,LGOBE TYPE T001L-LGOBE,END OF TY_T001L.TYPES:BEGIN OF TY_MAKT, MATNR TYPE MAKT-MATNR, MAKTX TYPE MAKT-MAKTX, END OF TY_MAKT.TYPES:BEGIN OF TY_ADRC,ADDRNUMBER TYPE ADRC-ADDRNUMBER,STR_SUPPL3 TYPE ADRC-STR_SUPPL3,END OF TY_ADRC.TYPES:BEGIN OF TY_ADR2, ADDRNUMBER TYPE ADR2-ADDRNUMBER, TEL_NUMBER TYPE ADR2-TEL_NUMBER, END OF TY_ADR2.TYPES:BEGIN OF TY_ADR3, ADDRNUMBER TYPE ADR3-ADDRNUMBER, FAX_NUMBER TYPE ADR3-FAX_NUMBER, END OF TY_ADR3.************************************************************************ * DATA DECLARATION *************************************************************************-----------------------内表声明---------------------------------- DATA:IT_DATA TYPE STANDARD TABLE OF TY_DATA,IT_DATA_PRINT TYPE STANDARD TABLE OF TY_DATA,IT_DATA_PRINT2 TYPE STANDARD TABLE OF TY_DATA,IT_MKPF TYPE STANDARD TABLE OF TY_MKPF,IT_MSEG TYPE STANDARD TABLE OF TY_MSEG,IT_T001W TYPE STANDARD TABLE OF TY_T001W,IT_T001L TYPE STANDARD TABLE OF TY_T001L,IT_T001K TYPE STANDARD TABLE OF TY_T001K,IT_T001 TYPE STANDARD TABLE OF TY_T001,IT_MAKT TYPE STANDARD TABLE OF TY_MAKT,IT_ADRC TYPE STANDARD TABLE OF TY_ADRC,IT_ADR2 TYPE STANDARD TABLE OF TY_ADR2,IT_ADR3 TYPE STANDARD TABLE OF TY_ADR3.*-----------------------工作区声明--------------------------------DATA:WA_DATA TYPE TY_DATA,WA_MKPF TYPE TY_MKPF,WA_MSEG TYPE TY_MSEG,WA_T001W TYPE TY_T001W,WA_T001L TYPE TY_T001L,WA_T001K TYPE TY_T001K,WA_T001 TYPE TY_T001,WA_MAKT TYPE TY_MAKT,WA_ADRC TYPE TY_ADRC,WA_ADR2 TYPE TY_ADR2,WA_ADR3 TYPE TY_ADR3.*---------------------------alv声明------------------------------- TYPE-POOLS: slis.DATA: wa_fieldcat TYPE slis_fieldcat_alv,it_fieldcat TYPE slis_t_fieldcat_alv,wa_layout TYPE lvc_s_layo,it_sort TYPE lvc_t_sort,wa_sort TYPE lvc_s_sort,it_structure TYPE lvc_t_fcat,wa_structure TYPE lvc_s_fcat.DATA: g_title TYPE lvc_title.*---------------------------打印声明------------------------------- DATA: BEGIN OF itab OCCURS 0,racct LIKE faglflexa-racct, * kunnr LIKE kna1-kunnr, * lifnr LIKE lfa1-lifnr,rfarea LIKE bseg-fkber,tabix LIKE sy-tabix,END OF itab.*&---------------------------------------------------------------------* *& DEFINE fieldcat *&---------------------------------------------------------------------* * 增加表头宏 *----------------------------------------------------------------------*DEFINE fieldcat.CLEAR wa_structure.wa_structure-fieldname = &1.wa_structure-ref_field = &2.wa_structure-ref_table = &3.wa_structure-scrtext_m = wa_structure-scrtext_l = wa_structure-scrtext_s = wa_structure-reptext = &4.APPEND wa_structure TO it_structure. END-OF-DEFINITION.*&---------------------------------------------------------------------* * FORM ADD_ZERO *&---------------------------------------------------------------------* * 增加前导零 *&---------------------------------------------------------------------*DEFINE ADD_ZERO.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGINPUT = &1IMPORTINGOUTPUT = &1. END-OF-DEFINITION.************************************************************************ * SELECTION SCREEN ************************************************************************ SELECTION-SCREEN BEGIN OF BLOCK 001. SELECT-OPTIONS: S_WERKS for MSEG-WERKS OBLIGATORY. SELECT-OPTIONS: S_MATNR for MSEG-MATNR. SELECT-OPTIONS: S_LGORT for MSEG-LGORT. SELECT-OPTIONS: S_UMLGO for MSEG-UMLGO. SELECT-OPTIONS: S_MBLNR for MSEG-MBLNR. SELECT-OPTIONS: S_BUDAT for MKPF-BUDAT. SELECTION-SCREEN END OF BLOCK 001.************************************************************************ * EVENT START OF SELECTION ************************************************************************START-OF-SELECTION.PERFORM init_fieldcat.PERFORM frm_fetch_data.PERFORM init_layout.PERFORM frm_output.*&---------------------------------------------------------------------* *& Form init_fieldcat *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------*FORM init_fieldcat.fieldcat 'BUDAT' 'BUDAT' 'MKPF' '过账日期'.fieldcat 'MBLNR' 'MBLNR' 'MKPF' '转储出库物料凭证号'.fieldcat 'BWART' 'BWART' 'MSEG' '移动类型'.fieldcat 'WERKS' 'WERKS' 'MSEG' '工厂编码'.fieldcat 'NAME1' 'NAME1' 'T001W' '工厂描述'.fieldcat 'ZEILE' 'ZEILE' 'MSEG' '项目'.fieldcat 'MATNR' 'MATNR' 'MSEG' '物料编码'.fieldcat 'MAKTX' 'MAKTX' 'MAKT' '物料名称'.fieldcat 'LGORT' 'LGORT' 'MSEG' '库存地点'.fieldcat 'LGOBE' 'LGOBE' 'T001L' '库存地点描述'.fieldcat 'ERFME' 'ERFME' 'MSEG' '重量单位'.fieldcat 'ERFMG' 'ERFMG' 'MSEG' '数量'.fieldcat 'CHARG' 'CHARG' 'MSEG' '炉批号'.fieldcat 'USNAM' 'USNAM' 'MKPF' '用户名称'.fieldcat 'BKTXT' 'BKTXT' 'MKPF' '抬头备注'. ENDFORM. "init_fieldcat*&---------------------------------------------------------------------* *& Form init_layout *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM init_layout .wa_layout-zebra = 'X'.wa_layout-cwidth_opt = 'X'.wa_layout-box_fname = 'CHECKBOX'. ENDFORM. "init_layout*&---------------------------------------------------------------------* *& Form frm_output *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM frm_output .*ALV输出CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'EXPORTINGi_callback_program = sy-repidis_layout_lvc = wa_layoutit_fieldcat_lvc = it_structureit_sort_lvc = it_sorti_grid_title = g_titlei_save = 'A' * IT_EXCLUDING = "系统自带STATUS图标控制内表i_callback_pf_status_set = 'PF_STATUS_SET'i_callback_user_command = 'F_USER_COMMAND'TABLESt_outtab = IT_DATAEXCEPTIONSprogram_error = 1OTHERS = 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_output*&---------------------------------------------------------------------* *& Form frm_fetch_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* Form frm_fetch_data.DATA:L_ERFMG TYPE MSEG-ERFMG,L_SGTXT TYPE MSEG-SGTXT.SELECTMBLNRBWARTWERKSZEILEMATNRLGORTERFMEERFMGCHARGMJAHRUMLGOSGTXTPARENT_IDFROM MSEGINTO CORRESPONDING FIELDS OF TABLE IT_MSEGWHERE WERKS IN S_WERKSAND MATNR IN S_MATNRAND LGORT IN S_LGORTAND UMLGO IN S_UMLGOAND MBLNR IN S_MBLNRAND ( BWART = '313' )AND ( PARENT_ID = '' OR PARENT_ID = '1' ).SELECTBUDATMBLNRUSNAMBKTXTMJAHRFROM MKPFINTO CORRESPONDING FIELDS OF TABLE IT_MKPFWHERE BUDAT IN S_BUDAT.SELECTWERKSNAME1ADRNRSTRASFROM T001WINTO CORRESPONDING FIELDS OF TABLE IT_T001WWHEREWERKS IN S_WERKS.SELECTWERKSLGORTLGOBEFROM T001LINTO CORRESPONDING FIELDS OF TABLE IT_T001LWHEREWERKS IN S_WERKS.SELECTBWKEYBUKRSFROM T001KINTO CORRESPONDING FIELDS OF TABLE IT_T001K.SELECTBUKRSBUTXTFROM T001INTO CORRESPONDING FIELDS OF TABLE IT_T001.SELECTMATNRMAKTXFROM MAKTINTO CORRESPONDING FIELDS OF TABLE IT_MAKT.SELECTADDRNUMBERSTR_SUPPL3FROM ADRCINTO CORRESPONDING FIELDS OF TABLE IT_ADRC.SELECTADDRNUMBERTEL_NUMBERFROM ADR2INTO CORRESPONDING FIELDS OF TABLE IT_ADR2WHERE PERSNUMBER = ''.SELECTADDRNUMBERFAX_NUMBERFROM ADR3INTO CORRESPONDING FIELDS OF TABLE IT_ADR3WHERE PERSNUMBER = ''.SORT IT_MSEG BY MBLNR ZEILE.LOOP AT IT_MSEG INTO WA_MSEG WHERE PARENT_ID = '0'.READ TABLE IT_MKPF INTO WA_MKPF WITH KEY MBLNR = WA_MSEG-MBLNR MJAHR = WA_MSEG-MJAHR.IF WA_MKPF IS NOT INITIAL.AT NEW MBLNR.IF IT_DATA IS NOT INITIAL.WA_DATA-FLAG = 1.ENDIF.CLEAR L_ERFMG.ENDAT.MOVE-CORRESPONDING WA_MSEG TO WA_DATA.MOVE-CORRESPONDING WA_MKPF TO WA_DATA."新增 SGTXT默认取第一行 逻辑IF WA_DATA-SGTXT IS NOT INITIAL.L_SGTXT = WA_DATA-SGTXT.ELSE.WA_DATA-SGTXT = L_SGTXT.ENDIF.READ TABLE IT_T001K INTO WA_T001K WITH KEY BWKEY = WA_MSEG-WERKS.READ TABLE IT_T001 INTO WA_T001 WITH KEY BUKRS = WA_T001K-BUKRS.WA_DATA-BUTXT = WA_T001-BUTXT.READ TABLE IT_T001L INTO WA_T001L WITH KEY WERKS = WA_MSEG-WERKS LGORT = WA_MSEG-LGORT.WA_DATA-LGOBE = WA_T001L-LGOBE.READ TABLE IT_T001W INTO WA_T001W WITH KEY WERKS = WA_MSEG-WERKS.WA_DATA-NAME1 = WA_T001W-NAME1.READ TABLE IT_ADRC INTO WA_ADRC WITH KEY ADDRNUMBER = WA_T001W-ADRNR.CONCATENATE WA_T001W-STRAS ADRC-STR_SUPPL3 INTO WA_DATA-STRAS.READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_MSEG-MATNR.WA_DATA-MAKTX = WA_MAKT-MAKTX.READ TABLE IT_ADR2 INTO WA_ADR2 WITH KEY ADDRNUMBER = WA_T001W-ADRNR.WA_DATA-TEL_NUMBER = WA_ADR2-TEL_NUMBER.READ TABLE IT_ADR3 INTO WA_ADR3 WITH KEY ADDRNUMBER = WA_T001W-ADRNR.WA_DATA-FAX_NUMBER = WA_ADR3-FAX_NUMBER.L_ERFMG = L_ERFMG + WA_DATA-ERFMG." WA_DATA-SUM_ERFMG = L_ERFMG.APPEND WA_DATA TO IT_DATA.CLEAR WA_DATA.ENDIF.CLEAR WA_MKPF.CLEAR WA_MSEG.ENDLOOP.ENDFORM. "frm_fetch_data*&---------------------------------------------------------------------* *& Form set_pf_status *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->RT_EXTAB text *----------------------------------------------------------------------* FORM pf_status_set USING rt_extab TYPE slis_t_extab.SET PF-STATUS 'STANDARD'. ENDFORM. "pf_status_set *&---------------------------------------------------------------------* *& Form F_USER_COMMAND *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_UCOMM text * -->P_RS_SELFIELD text *----------------------------------------------------------------------* FORM F_USER_COMMAND USING P_UCOMM TYPE SY-UCOMMP_RS_SELFIELD TYPE SLIS_SELFIELD .data:qus type string,ans type c.CASE P_UCOMM.WHEN '&ZRNT' .PERFORM PRINT.ENDCASE.ENDFORM. "F_USER_COMMAND*&---------------------------------------------------------------------* *& Form PRINT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * * *----------------------------------------------------------------------*FORM PRINT.DATA: control TYPE ssfctrlop,output_info TYPE ssfcrescl,output_options TYPE ssfcompop,fm_name TYPE rs38l_fnam,L_ERFMG TYPE MSEG-ERFMG.DATA: m_fm TYPE rs38l_fnam.CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'EXPORTINGFORMNAME = 'ZMM035' * VARIANT = ' ' * DIRECT_CALL = ' 'IMPORTINGFM_NAME = m_fmEXCEPTIONSNO_FORM = 1NO_FUNCTION_MODULE = 2OTHERS = 3.IF SY-SUBRC <> 0.MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.control-no_open = 'X'.control-no_close = 'X'.output_options-tdiexit = 'X'.CALL FUNCTION 'SSF_OPEN'EXPORTINGcontrol_parameters = controlEXCEPTIONSformatting_error = 1internal_error = 2send_error = 3user_canceled = 4OTHERS = 5.IF sy-subrc <> 0. * error handlingMESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.EXIT.ENDIF.LOOP AT IT_DATA INTO WA_DATA WHERE CHECKBOX = 'X'.L_ERFMG = L_ERFMG + WA_DATA-ERFMG.WA_DATA-SUM_ERFMG = L_ERFMG.APPEND WA_DATA TO IT_DATA_PRINT2.ENDLOOP.LOOP AT IT_DATA_PRINT2 INTO WA_DATA.APPEND WA_DATA TO IT_DATA_PRINT.AT END OF MBLNR.CALL FUNCTION m_fmEXPORTINGcontrol_parameters = control.CLEAR IT_DATA_PRINT.ENDAT.ENDLOOP.CALL FUNCTION 'SSF_CLOSE'IMPORTINGjob_output_info = output_infoEXCEPTIONSformatting_error = 1internal_error = 2send_error = 3OTHERS = 4.IF sy-subrc <> 0. * error handlingMESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.CLEAR IT_DATA_PRINT.CLEAR IT_DATA_PRINT2. ENDFORM. "PRINT*Selection texts *---------------------------------------------------------- * S_BUDAT 转储出库过账时间 * S_LGORT 发货库存地点 * S_MATNR 物料代码 * S_MBLNR 转储出库物料凭证号 * S_UMLGO 收货库存地点 * S_WERKS 工厂
Extracted by Direct Download Enterprise version 1.3.1 - E.G.Mellodew. 1998-2005 UK. Sap Release 701
ABAP 出库单打印相关推荐
- 开源了一套wms系统，支持lodop和网页打印入库单、出库单。
若依wms简介 若依wms是一套基于若依的wms仓库管理系统,支持lodop和网页打印入库单.出库单.毫无保留给个人及企业免费使用. 前端采用Vue.Element UI(ant design 正在开 ...
- SAP打印出库单需求
*&---------------------------------------------------------------------* *& Report Z_SD_CKD ...
- 旺店通·企业奇门与用友BIP旺店通销售出库单对接销售订单
通过集成平台可视化的配置系统集成对接 源系统平台:旺店通·企业奇门 源系统接口: 查询销售出库单wdt.stockout.order.query.trade 目标系统平台: 用友BIP 目标系统接口: ...
- 金蝶KIS旗舰版盘点机PDA，销售出库单扫码校验，出库扫码校验核对,金蝶生产管理软件，金蝶仓库条码管理
金蝶KIS旗舰版盘点机PDA,销售出库单扫码校验,出库扫码校验核对,金蝶生产管理软件,金蝶仓库条码管理,移动扫码销售出库校验_哔哩哔哩_bilibili本期视频讲解:使用盘点机PDA ,扫描商品条码, ...
- 旺店通·企业奇门与金蝶云星空对接集成查询销售出库单连通[旺店通][销售出库单标准新增]-v1(旺店通-＞金蝶销售出库单--零售销售（手工运维）)
对接源平台:旺店通·企业奇门 旺店通是北京掌上先机网络科技有限公司旗下品牌,国内的零售云服务提供商,基于云计算SaaS服务模式,以体系化解决方案,助力零售企业数字化智能化管理升级.为零售电商企业的订单 ...
- 旺店通·企业奇门对接打通金蝶云星空查询销售出库单接口与销售出库新增接口
接入系统:旺店通·企业奇门 慧策最先以旺店通ERP切入商家核心管理痛点--订单管理,之后围绕电商经营管理中的核心管理诉求,先后布局流量获取.会员管理.仓库管理等其他重要经营模块.慧策的产品线从旺店通E ...
- 旺店通·企业版与畅捷通T+对接集成查询销售出库单连通创建销售出库单(WT+销售出库单)
对接源平台:旺店通·企业版 慧策最先以旺店通ERP切入商家核心管理痛点--订单管理,之后围绕电商经营管理中的核心管理诉求,先后布局流量获取.会员管理.仓库管理等其他重要经营模块.慧策的产品线从旺店通E ...
- 旺店通·企业奇门对接打通用友BIP查询销售出库单接口与销售订单单个保存接口
旺店通·企业奇门对接打通用友BIP查询销售出库单接口与销售订单单个保存接口 源系统:旺店通·企业奇门 慧策(原旺店通)是一家技术驱动型智能零售服务商,基于云计算PaaS.SaaS模式,以一体化智能零售 ...
- 金蝶K3,如何添加其它出库单出库类型
金蝶K3,如何添加其它出库单出库类型 问题性质:产品应用 问题表现: 金蝶K3,如何添加其它出库单出库类型 解决方法: 1.登录金蝶K/3系统,打开[K/3主界面]: 2.单击[系统设置]→[系统设 ...
最新文章
- SQLServer代理新建或者编辑作业报错
- 工业以太网交换机：核心优点解析
- python - 机器学习lightgbm相关实践
- 嵌入式开发之GCC编译器使用
- timesten mysql_timesten内存数据同步创建
- 安卓12解除进程限制的第三种方式：黑阈
- Fanuc机器人从控制柜导出GSD文件
- 对抗神经网络（一）——GAN
- android oppo 模拟器,小姚Android构建VIVO华为魅族OPPO小米联想手游Android模拟器
- C++使用ADO连接Access数据库方法
- photoshop笔记
- 一款高品质回音消除 模块 ： F-23
- 毕业薪酬行业第一？计算机+金融交叉学科真香
- 使用Amazon FreeRTOS快速和安全地连接设计到云
- 看完知乎轮子哥的编程之路，我只想说，收下我的膝盖...
- 高效率使用日历提醒事项备忘录便签,完成日程规划
- webrtc QOS方法二.3（FEC冗余度配置）
- POST请求返回：401 Unauthorized
- 【ML】range、arange和linspace函数
- LaTeX公式编辑教程