*&---------------------------------------------------------------------*
*& Report ZMMR018
*&---------------------------------------------------------------------*
*& 库存盘点清单导出
*&---------------------------------------------------------------------*
REPORT ZMMR018.
*----------------------------------------------------------------------*
* Defination
*----------------------------------------------------------------------*
"Data table
TYPES:
BEGIN OF TP_T001L,
WERKS TYPE T001L-WERKS,
LGORT TYPE T001L-LGORT,
LGOBE TYPE T001L-LGOBE,
END OF TP_T001L,
BEGIN OF TP_T001W,
WERKS TYPE T001W-WERKS,
NAME1 TYPE T001W-NAME1,
END OF TP_T001W,
BEGIN OF TP_MARD,
MATNR TYPE MARD-MATNR,
WERKS TYPE MARD-WERKS,
LGORT TYPE MARD-LGORT,
LGPBE TYPE MARD-LGPBE, "库存仓位
LABST TYPE MARD-LABST, "非限制使用库存
INSME TYPE MARD-INSME, "质检库存
SPEME TYPE MARD-SPEME, "已冻结库存
END OF TP_MARD,
BEGIN OF TP_ISEG,
IBLNR TYPE ISEG-IBLNR, "凭证号码
ZEILI TYPE ISEG-ZEILI, "行号
GJAHR TYPE ISEG-GJAHR,
WERKS TYPE ISEG-WERKS, "工厂
LGORT TYPE ISEG-LGORT, "库存地点
MATNR TYPE ISEG-MATNR, "物料编码
ERFME TYPE ISEG-ERFME, "单位
BUCHM TYPE ISEG-BUCHM, "账面数量
ERFMG TYPE ISEG-ERFMG, "实盘数
BSTAR TYPE ISEG-BSTAR, "库存类型
SOBKZ TYPE ISEG-SOBKZ, "特殊库存
KDAUF TYPE ISEG-KDAUF, "销售订单数
KDPOS TYPE ISEG-KDPOS, "销售订单中的条款数
LIFNR TYPE ISEG-LIFNR, "供应商帐户号
KUNNR TYPE ISEG-KUNNR, "客户的帐户编号
GIDAT TYPE IKPF-GIDAT, "计划盘点日期
ZLDAT TYPE IKPF-ZLDAT, "实际盘点日期
XNULL TYPE ISEG-XNULL, "零盘点
END OF TP_ISEG,
BEGIN OF TP_EQBS,
MATNR TYPE ISEG-MATNR, "物料编码
WERKS TYPE ISEG-WERKS, "工厂
LGORT TYPE ISEG-LGORT, "库存地点
EQUNR TYPE EQBS-EQUNR, "序列号
KDAUF TYPE EQBS-KDAUF, "销售订单号
KDPOS TYPE EQBS-KDPOS, "销售订单项目号
KUNNR TYPE EQBS-KUNNR, "客户编号
* 12/30/17 09:37:41 增加库存类型
LBBSA TYPE EQBS-LBBSA, "货物移动的库存类型
* 12/30/17 09:37:41 增加库存类型
* BSTAR TYPE SER07-BSTAR, "库存类型
END OF TP_EQBS,
BEGIN OF TP_SER07,
OBKNR TYPE SER07-OBKNR, "对象列表编号
IBLNR TYPE SER07-IBLNR, "库存盘点凭证
ZEILI TYPE SER07-ZEILI, "行号
MJAHR TYPE SER07-MJAHR, "财年
OLTPI TYPE SER07-OLTPI, "对象清单功能 - 库存盘点
WERK TYPE SER07-WERK, "工厂
LAGERORT TYPE SER07-LAGERORT, "库存地点
SERNR TYPE OBJK-SERNR, "序列号
BSTAR TYPE SER07-BSTAR, "库存类型
END OF TP_SER07,
BEGIN OF TP_MSLB, "供应商特殊库存
MATNR TYPE MSLB-MATNR,
WERKS TYPE MSLB-WERKS,
SOBKZ TYPE MSLB-SOBKZ,
LBLAB TYPE MSLB-LBLAB,
LBINS TYPE MSLB-LBINS, "质检库存
* 12/30/17 11:08:47 增加供应商
LIFNR TYPE MSLB-LIFNR, "供应商
* 12/30/17 11:08:47 增加供应商
END OF TP_MSLB,
BEGIN OF TP_MSKU, "客户的特殊库存
MATNR TYPE MSKU-MATNR,
WERKS TYPE MSKU-WERKS,
SOBKZ TYPE MSKU-SOBKZ,
KULAB TYPE MSKU-KULAB,
KUINS TYPE MSKU-KUINS, "质检库存
* 12/30/17 11:08:47 增加客户编号
KUNNR TYPE MSKU-KUNNR, "客户编号
* 12/30/17 11:08:47 增加客户编号
END OF TP_MSKU,
BEGIN OF TP_MSKA, "销售订单库存
MATNR TYPE MSKA-MATNR,
WERKS TYPE MSKA-WERKS,
LGORT TYPE MSKA-LGORT,
SOBKZ TYPE MSKA-SOBKZ, "特殊库存标识
KALAB TYPE MSKA-KALAB,
KAINS TYPE MSKA-KAINS, "质检库存
KASPE TYPE MSKA-KASPE, "冻结库存
END OF TP_MSKA,
BEGIN OF TP_DOWN,
STR TYPE STRING,
END OF TP_DOWN,
BEGIN OF TP_OUT,
CHECKBOX,
IBLNR TYPE ISEG-IBLNR, "凭证号码
ZEILI TYPE ISEG-ZEILI, "行号
WERKS TYPE ISEG-WERKS, "工厂
LGORT TYPE ISEG-LGORT, "库存地点
LGOBE TYPE T001L-LGOBE, "仓储地点的描述
LGPBE TYPE MARD-LGPBE, "仓位
MATNR TYPE STRING, "物料编码
MAKTX TYPE MAKT-MAKTX, "物料描述
ERFME TYPE ISEG-ERFME, "单位
BUCHM TYPE STRING, "账面数量
ERFMG TYPE STRING, "实盘数
BSTAR TYPE ISEG-BSTAR, "库存类型
SERNR TYPE OBJK-SERNR, "序列号
SOBKZ TYPE ISEG-SOBKZ, "特殊库存
TSKCH TYPE STRING, "特殊库存编号
GIDAT TYPE IKPF-GIDAT, "计划盘点日期
ZLDAT TYPE IKPF-ZLDAT, "实际盘点日期
ZPYPK TYPE CHAR10, "盘盈盘亏标记
END OF TP_OUT.
DATA:
GT_T001L TYPE TABLE OF TP_T001L,
GT_T001W TYPE TABLE OF TP_T001W,
GT_MAKT TYPE TABLE OF MAKT,
GT_MARD TYPE TABLE OF TP_MARD,
GT_MSLB TYPE TABLE OF TP_MSLB,
GT_MSKU TYPE TABLE OF TP_MSKU,
GT_MSKA TYPE TABLE OF TP_MSKA,
GT_SER07 TYPE TABLE OF TP_SER07,
GT_EQBS TYPE TABLE OF TP_EQBS,
GT_EQBS2 TYPE TABLE OF TP_EQBS,
GT_ISEG TYPE TABLE OF TP_ISEG,
GT_DOWN TYPE TABLE OF TP_DOWN,
GT_PRINT TYPE TABLE OF ZMMS013,
GT_OUT TYPE TABLE OF TP_OUT.
"Defination for search help
TYPES:
BEGIN OF TP_IBLNR,
IBLNR TYPE IKPF-IBLNR,
GJAHR TYPE IKPF-GJAHR,
END OF TP_IBLNR.
DATA:GT_IBLNR TYPE TABLE OF TP_IBLNR.
"select option types
DATA:
TP_IBLNR TYPE ISEG-IBLNR,
TP_GJAHR TYPE ISEG-GJAHR,
TP_MATNR TYPE ISEG-MATNR,
TP_WERKS TYPE ISEG-WERKS,
TP_LGORT TYPE ISEG-LGORT,
TP_BUDAT TYPE ISEG-BUDAT. "凭证中的过帐日期
"ALV
DATA:
WA_LAYO TYPE LVC_S_LAYO,
WA_FCAT TYPE LVC_S_FCAT,
GT_FCAT TYPE LVC_T_FCAT.
DATA: BEGIN OF IT_LBBSA OCCURS 0,
LBBSA TYPE EQBS-LBBSA, "货物移动的库存类型
BSTAR TYPE SER07-BSTAR, "库存类型
END OF IT_LBBSA.
*----------------------------------------------------------------------*
* Screen Defination
*----------------------------------------------------------------------*
SELECT-OPTIONS:
S_IBLNR FOR TP_IBLNR , "库存盘点凭证
S_GJAHR FOR TP_GJAHR NO INTERVALS, "财年
S_MATNR FOR TP_MATNR , "物料编号
S_WERKS FOR TP_WERKS , "工厂
S_LGORT FOR TP_LGORT , "库存地点
S_BUDAT FOR TP_BUDAT . "过帐日期
*----------------------------------------------------------------------*
* Screen Events
*----------------------------------------------------------------------*
INITIALIZATION.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_IBLNR-LOW .
PERFORM FRM_F4_IBLNR USING 'S_IBLNR-LOW' 'IBLNR'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_IBLNR-HIGH.
PERFORM FRM_F4_IBLNR USING 'S_IBLNR-HIGH' 'IBLNR'.
START-OF-SELECTION.
PERFORM FRM_GET_DATA.
PERFORM FRM_EDIT_DATA.
PERFORM FRM_DISPLAY_DATA.
*&---------------------------------------------------------------------*
*& Form FRM_F4_IBLNR
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
FORM FRM_F4_IBLNR USING SFNAME FIELD.
IF GT_IBLNR IS INITIAL.
SELECT IBLNR GJAHR FROM IKPF INTO TABLE GT_IBLNR.
ENDIF.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = FIELD
DYNPPROG = SY-REPID
DYNPNR = SY-DYNNR
DYNPROFIELD = SFNAME
VALUE_ORG = 'S'
TABLES
VALUE_TAB = GT_IBLNR. "存储搜索帮助内容的内表
IF SY-SUBRC <> 0.
MESSAGE '没有相关搜索帮助' TYPE 'I'.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
FORM FRM_GET_DATA .
DATA:LT_ISEG TYPE TABLE OF TP_ISEG.
"库存盘点凭证
SELECT B~IBLNR "库存盘点凭证
B~ZEILI "盘点凭证项目号
B~GJAHR "财年
B~WERKS "工厂
B~LGORT "库存地点
B~MATNR "物料编号
B~ERFME "输入单位(库存盘点)
B~BUCHM &#
smartforms例子
最新推荐文章于 2022-10-08 17:48:22 发布
这是一个SAP ABAP报告,用于库存盘点清单的导出。程序从IKPF和ISEG表中检索库存盘点凭证和项目信息,包括凭证号码、物料编码、工厂、库存地点、计划和实际盘点日期等,并将数据转换为适合输出的格式。同时,程序还提供了搜索帮助、屏幕定义和数据导出功能。
摘要由CSDN通过智能技术生成