*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
*& 对程序Z_BARRY_CDHDR_CDPOS的改进 *
*&---------------------------------------------------------------------*
REPORT ZTEST .
TYPE-POOLS slis.
DATA : cdhdr TYPE cdhdr.
SELECT-OPTIONS :
s_objcls FOR cdhdr-objectclas OBLIGATORY NO INTERVALS ,
s_objtid FOR cdhdr-objectid,
s_chngnr FOR cdhdr-changenr,
s_usrnam FOR cdhdr-username ,"DEFAULT sy-uname,
s_udate FOR cdhdr-udate DEFAULT sy-datum OBLIGATORY,
s_time FOR cdhdr-utime,
s_tcode FOR cdhdr-tcode,
s_plncnr FOR cdhdr-planchngnr,
s_chngno FOR cdhdr-act_chngno,
s_wsplnd FOR cdhdr-was_plannd,
s_chngid FOR cdhdr-change_ind.
SELECTION-SCREEN SKIP.
PARAMETERS p_max TYPE TBMAXSEL OBLIGATORY DEFAULT '200'.
TYPES: BEGIN OF ty_s_cdhdr.
INCLUDE STRUCTURE cdhdr.
TYPES: checkbox,
END OF ty_s_cdhdr.
TYPES: BEGIN OF ty_s_cdred.
INCLUDE STRUCTURE cdred.
TYPES: checkbox,
END OF ty_s_cdred.
DATA : gs_layout TYPE slis_layout_alv,
t_cdhdr TYPE TABLE OF ty_s_cdhdr.
DATA: BEGIN OF itab_obj OCCURS 10,
objcls TYPE text20,
objdes TYPE text40,
END OF itab_obj.
DEFINE m_sort.
add 1 to ls_sort-spos.
ls_sort-fieldname = &1.
ls_sort-up = 'X'.
append ls_sort to lt_sort.
END-OF-DEFINITION.
DATA :
ls_cdhdr TYPE ty_s_cdhdr,
ls_sort TYPE slis_sortinfo_alv,
lt_sort TYPE slis_t_sortinfo_alv,
lt_cdred TYPE TABLE OF ty_s_cdred.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_objcls-low .
PERFORM objclsf4.
INITIALIZATION.
PERFORM fillitab USING: 'INFOSATZ' '采购信息记录',
'ORDERBUCH' '货源清单',
'EINKBELEG' '采购订单',
'MAT_FULL' 'Material' ,
'MATERIAL' '物料主数据' ,
'KRED' '供货商主数据',
'ADRESSE' '地址',
'COND_A' '条件',
'DEBI' '客户主档',
