ZCK24-批量发布价格(CK11N,CK24)

REPORT zck24.

---

• 事务代码： ZCK24
• 程序名称： 批量发布价格
• 程序目的： 批量发布价格
• 开发人员：
  *(修改日志)--------------------------------------------------------
• 日志号 修改人 修改时间 修改说明 传输号码

• ---

• 001

---

======================================================================

• INCLUDE
  ======================================================================
  INCLUDE zck24_top.
  INCLUDE zck24_f01.

======================================================================

• AT SELECTION-SCREEN.
  ======================================================================
  AT SELECTION-SCREEN OUTPUT.

======================================================================

• INITIALIZATION
  ======================================================================
  INITIALIZATION.

PERFORM frm_get_werks."获取默认工厂/公司

======================================================================

• START-OF-SELECTION.
  ======================================================================
  START-OF-SELECTION.

PERFORM frm_check_bs."必输检查

PERFORM frm_get_data."获取数据

PERFORM frm_alv_fieldcat."修改设置字段属性
PERFORM frm_alv_layout."设置输出格式
PERFORM frm_alv_display."ALV显示

======================================================================

• END-OF-SELECTION.
  ======================================================================
  END-OF-SELECTION.

&---------------------------------------------------------------------
*& 包含 ZCK24_TOP
&---------------------------------------------------------------------

TABLES: t001, t001w, mbew.

DATA: gt_out_list_vo TYPE STANDARD TABLE OF bapimarkingoutlist WITH HEADER LINE,
gt_return_vo TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE,
gt_out_list_fr TYPE STANDARD TABLE OF bapireleasingoutlist WITH HEADER LINE,
gt_return_fr TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE,
gs_valuation TYPE bapivaluation.

TYPES:BEGIN OF ty_alv,
led TYPE char30,
zbox TYPE c,
bukrs TYPE bukrs,
butxt TYPE butxt,
werks TYPE werks_d,
name1 TYPE name1,
matnr TYPE matnr,
maktx TYPE maktx,
kstel TYPE kstel,
mtart TYPE mtart,
mbrsh TYPE mbrsh,
kst001 TYPE kstel, "成本
feh_sta TYPE keko-feh_sta, "物料状态
ddtext TYPE val_text, "物料状态描述
kbetr TYPE kbetr, "价格
kalnr TYPE ck_kalnr1, "成本估算号 - 产品成本核算
losgr TYPE ck_losgr , "批量产品成本核算
kadat TYPE sy-datum , "成本起始日期
kadky TYPE sy-datum , "成本核算日期
msg TYPE char100,
END OF ty_alv.

DATA:gt_alv TYPE STANDARD TABLE OF ty_alv.
DATA:gs_alv TYPE ty_alv.

RANGES:rs_werks FOR t001w-werks,
rs_bukrs FOR t001-bukrs.

DATA:gv_butxt TYPE butxt.
DATA:gv_name1 TYPE name1.

DATA:gt_fieldcat TYPE lvc_t_fcat, "字段目录内表
gs_fieldcat TYPE lvc_s_fcat, "字段目录工作区
gs_layout TYPE lvc_s_layo. "用于定义ALV表单的相关格式、属性

SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE text-001.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(33) text-002 FOR FIELD p_buper MODIF ID cco.

SELECTION-SCREEN POSITION 35.
PARAMETERS p_buper TYPE ckipricesupdate-p_buper MEMORY ID bup MODIF ID cco.

SELECTION-SCREEN PO