ABAP 期初库存批量导入 demo1

&---------------------------------------------------------------------

*& Report ZMMCP005
&---------------------------------------------------------------------

作者： Liv
完成日期：
描述：期初库存导入
需求简要说明：
&---------------------------------------------------------------------
版本号日期作者修改描述功能更改说明书
&---------------------------------------------------------------------
1.0 2021/11/19 Liv 程序创建
*&
&---------------------------------------------------------------------
REPORT zmmcp005 MESSAGE-ID 00.

TABLES:sscrfields.

TYPE-POOLS: slis.

INCLUDE .

DEFINE append_str.

CONCATENATE &1 &2 INTO &1 SEPARATED BY ','.

END-OF-DEFINITION.

DATA: ok_code TYPE sy-ucomm,

save_ok TYPE sy-ucomm.

*&For DOC ALV

DATA: it_fieldcat TYPE slis_t_fieldcat_alv,

wa_fieldcat TYPE slis_fieldcat_alv,

it_event TYPE slis_t_event,

it_layout TYPE slis_layout_alv,

w_callback_ucomm TYPE slis_formname,

i_list_comments TYPE slis_t_listheader,

w_list_comments LIKE LINE OF i_list_comments,

i_events TYPE slis_t_event,

w_events LIKE LINE OF i_events.

*定义隐藏标准按钮的变量

DATA: wa_excluding TYPE slis_extab,

it_excluding TYPE slis_t_extab.

DEFINE initial_field.

wa_fieldcat-ddictxt = 'L'.

wa_fieldcat-fieldname = &1 .

wa_fieldcat-seltext_l = &2 .

wa_fieldcat-seltext_m = &2 .

wa_fieldcat-seltext_s = &2 .

wa_fieldcat-reptext_ddic = &2.

wa_fieldcat-no_zero = &3.

wa_fieldcat-key = &4.

wa_fieldcat-just = &5.

wa_fieldcat-ref_fieldname = &6.

wa_fieldcat-ref_tabname = &7.

IF WA_FIELDCAT-FIELDNAME = 'Z_KPI'.

  WA_FIELDCAT-INTLEN = 18.

ENDIF.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

END-OF-DEFINITION.

*DATA gt_input LIKE TABLE OF zcpfit_0600 WITH HEADER LINE. "久其报表KPI数据源配置表

DATA:BEGIN OF gt_input OCCURS 0,

zlsh TYPE i,

zhxm TYPE i,

zks , " 开始

zjs , " 结束

zmess_h(255) , " 抬头系统消息

zmess_i(255) , " 行项目系统消息

bldat LIKE gohead-bldat , " 凭证日期

budat LIKE gohead-budat , " 过账日期

bwart LIKE godefault_tv-bwart , " 移动类型

bktxt LIKE gohead-bktxt , " 抬头文本

werks LIKE goitem-werks, " 工厂

name1 LIKE t001w-name1 , " 工厂名称

lgobe LIKE goitem-lgobe , " 库存地点

zxh(20) , " 序号

matnr LIKE goitem-matnr , " 物料

maktx LIKE goitem-maktx , " 物料描述

xchar LIKE marc-xchar , " 批次启用标识

charg LIKE goitem-charg , " 批次

erfmg LIKE goitem-erfmg , " 数量

meins LIKE mara-meins , " 计量单位

lifnr LIKE goitem-lifnr , " 供应商

kunnr LIKE goitem-kunnr , " 客户

dmbtr LIKE goitem-dmbtr , " 总金额

sobkz LIKE goitem-sobkz , " 特殊库存标识

kdauf LIKE goitem-kdauf , " 销售订单

kdpos LIKE goitem-kdpos , " 行项目

bklas LIKE mbew-bklas , " 系统评估类

vprsv LIKE mbew-vprsv , " 系统价格控制

stprs LIKE mbew-stprs , " 系统标准单价

zprice LIKE goitem-dmbtr , " 系统计算总价

class LIKE klah-class , " 系统分类代码

    zflbm(20) ,                     "  分类代码

    mwert01      LIKE rctms-mwert , "  特性1

    mwert02      LIKE rctms-mwert , "  特性2

    mwert03      LIKE rctms-mwert , "  特性3

    mwert04      LIKE rctms-mwert , "  特性4

    mwert05      LIKE rctms-mwert , "  特性5

    mwert06      LIKE rctms-mwert , "  特性6

    mwert07      LIKE rctms-mwert , "  特性7

    mwert08      LIKE rctms-mwert , "  特性8

    mwert09      LIKE rctms-mwert , "  特性9

    mwert10      LIKE rctms-mwert , "  特性10

    mwert11      LIKE rctms-mwert , "  特性11

    mwert12      LIKE rctms-mwert , "  特性12

    mwert13      LIKE rctms-mwert , "  特性13
   icon         TYPE icon_d, "图标

END OF gt_input.

DATA gt_input_hd LIKE TABLE OF gt_input WITH HEADER LINE.

DATA gt_input_it LIKE TABLE OF gt_input WITH HEADER LINE.

DATA BEGIN OF iexcel OCCURS 0. " excel上载内表

INCLUDE STRUCTURE alsmex_tabline.

DATA END OF iexcel.

DATA: error TYPE REF TO cx_root,

lv_message TYPE string.

DATA: gv_message_h TYPE string,

gv_message_i TYPE string,

gv_msg_h TYPE string,

gv_msg_i TYPE string.

DATA: gv_subrc LIKE sy-subrc.

SELECTION-SCREEN FUNCTION KEY 1.

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.

PARAMETERS: p_file LIKE rlgrap-filename DEFAULT '' . "文件目录.

SELECTION-SCREEN SKIP.

*PARAMETERS: R1 RADIOBUTTON GROUP RG1,

         R2 RADIOBUTTON GROUP RG1.

SELECTION-SCREEN: END OF BLOCK b1.

INITIALIZATION.

sscrfields-functxt_01 = '模板下载'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

PERFORM get_filename.

** 权限检查

PERFORM AUTHORITY_CHECK.

AT SELECTION-SCREEN.

CASE sscrfields-ucomm .

WHEN 'FC01'.

DATA rec_objdata LIKE wwwdatatab.

rec_objdata-relid = 'MI'.

rec_objdata-objid = 'ZMMCP005'.

** 下载模版

CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'

EXPORTING

key = rec_objdata

destination = p_file.

WHEN OTHERS.

ENDCASE.

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

START-OF-SELECTION
*-----------------------------------------------------------------------

START-OF-SELECTION.

PERFORM read_data .

PERFORM check_data .

PERFORM initialize_fieldcat .

PERFORM build_layout .

PERFORM display_alv TABLES gt_input[].

&---------------------------------------------------------------------

*& Form READ_DATA
&---------------------------------------------------------------------

    text

----------------------------------------------------------------------

--> p1 text
<-- p2 text
----------------------------------------------------------------------
FORM read_data .

FIELD-SYMBOLS <fs_excel> LIKE LINE OF iexcel.

CLEAR: iexcel[],

iexcel.

*上载excel文件

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

filename = p_file

i_begin_col = 1

i_begin_row = 3

i_end_col = 50

i_end_row = 5000

TABLES

intern = iexcel

EXCEPTIONS

inconsistent_parameters = 1

upload_ole = 2

OTHERS = 3.

IF sy-subrc <> 0.

WRITE: / 'EXCEL 上载失败 ', p_file, sy-subrc.

STOP.

ELSE.

SORT iexcel BY row col.

ENDIF.

*excel内表中的数据放到内表中

LOOP AT iexcel ASSIGNING <fs_excel> .

CONDENSE <fs_excel>-value NO-GAPS.
CASE <fs_excel>-col.
WHEN 1. "开始
gt_input-zks = <fs_excel>-value.
WHEN 2. "结束
gt_input-zjs = <fs_excel>-value.
WHEN 4. "凭证日期
gt_input-bldat = <fs_excel>-value.
WHEN 5. "过账日期
gt_input-budat = <fs_excel>-value.
WHEN 6. "移动类型
gt_input-bwart = <fs_excel>-value.
WHEN 7. "抬头文本
gt_input-bktxt = <fs_excel>-value.
WHEN 8. "工厂
gt_input-werks = <fs_excel>-value.
WHEN 9. "库存地点
gt_input-lgobe = <fs_excel>-value.
WHEN 10. "序号
gt_input-zxh = <fs_excel>-value.
WHEN 11. "物料
gt_input-matnr = <fs_excel>-value.
WHEN 12. "物料描述
gt_input-maktx = <fs_excel>-value.
WHEN 13. "批次
gt_input-charg = <fs_excel>-value.
WHEN 14. "数量
gt_input-erfmg = <fs_excel>-value.
WHEN 15. "计量单位
gt_input-meins = <fs_excel>-value.
WHEN 16. "总金额
gt_input-dmbtr = <fs_excel>-value.
WHEN 17. "特殊库存标识
gt_input-sobkz = <fs_excel>-value.
WHEN 18. "销售订单
gt_input-kdauf = <fs_excel>-value.
WHEN 19. "行项目
gt_input-kdpos = <fs_excel>-value.
ENDCASE.

AT END OF row.
APPEND gt_input. CLEAR gt_input.
ENDAT.

ENDLOOP.

ENDFORM. "READ_DATA

FORM check_data .

DATA:l_tabix LIKE sy-tabix.

DATA:l_start_flag,l_end_flag.

DATA:l_lsh TYPE i,l_hxm TYPE i.

LOOP AT gt_input.

IF gt_input-zks = 'S'.

l_lsh = l_lsh + 1.

l_hxm = 1.

ELSE.

l_hxm = l_hxm + 1.

ENDIF.

gt_input-zlsh = l_lsh.
gt_input-zhxm = l_hxm.

   zhxm

MODIFY gt_input INDEX sy-tabix.

ENDLOOP.

LOOP AT gt_input WHERE zks = 'S' .

gt_input_hd = gt_input.

APPEND gt_input_hd.

ENDLOOP.

LOOP AT gt_input.

l_tabix = sy-tabix.

READ TABLE gt_input_hd WITH KEY zlsh = gt_input-zlsh.

CLEAR: gt_input-zmess_h,gt_input-zmess_i,gt_input-icon,gv_msg_h,gv_message_h,gv_msg_i,gv_message_i.

IF gt_input-zks = 'S' OR gt_input-zks IS INITIAL.

ELSE.

gt_input-icon = icon_led_red.

gv_msg_h = '凭证开始标识不为S'.