ACDOCA表数据修正

Sean_2022

已于 2022-06-09 14:37:05 修改

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

文章标签： abap

于 2022-05-06 15:02:57 首次发布

本文链接：https://blog.csdn.net/Sean_2022/article/details/124610494

类cl_fins_acdoc_change，可以对acdoca数据进行修正

*&---------------------------------------------------------------------*
*& Report ZFI_UPDATE_ACDOCA
*&---------------------------------------------------------------------*
REPORT zfi_update_acdoca.

TABLES:acdoca,bseg.

"红绿灯
CONSTANTS:gc_red     LIKE icon-internal VALUE '@5C@',
          gc_yellow  LIKE icon-internal VALUE '@5D@',
          gc_green   LIKE icon-internal VALUE '@5B@',
          gc_status  TYPE slis_formname VALUE 'FRM_STATUS',
          gc_command TYPE slis_formname VALUE 'FRM_COMMAND'.

TYPES:BEGIN OF ty_data,
        sel,
        rldnr       TYPE acdoca-rldnr,
        rbukrs      TYPE acdoca-rbukrs,
        gjahr       TYPE acdoca-gjahr,
        belnr       TYPE acdoca-belnr,
        buzei       TYPE acdoca-buzei,
        docln       TYPE acdoca-docln,
        koart       TYPE acdoca-koart,
        racct       TYPE acdoca-racct,
        mwskz       TYPE acdoca-mwskz,
        bttype      TYPE acdoca-bttype,
        kunnr       TYPE acdoca-kunnr,
        bseg_kunnr  TYPE acdoca-kunnr,
        kunnr_name1 TYPE ze_kunnr_name,
        lifnr       TYPE acdoca-lifnr,
        bseg_lifnr  TYPE acdoca-lifnr,
        lifnr_name1 TYPE ze_lifnr_name,
        budat       TYPE acdoca-budat,
        blart       TYPE acdoca-blart,
        sgtxt       TYPE acdoca-sgtxt,
      END OF ty_data,
      ty_t_data TYPE TABLE OF ty_data.

DATA:gs_data     TYPE ty_data,
     gt_data     TYPE ty_t_data,
     gs_lay      TYPE lvc_s_layo,           " layout
     gt_fieldcat TYPE lvc_t_fcat,           " fieldcat
     gs_fieldcat TYPE lvc_s_fcat.

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

  PARAMETERS: p_gjahr TYPE acdoca-gjahr DEFAULT sy-datum+0(4) OBLIGATORY." 会计年度
  SELECT-OPTIONS: s_belnr FOR acdoca-belnr,   " 会计凭证
                  s_bukrs FOR acdoca-rbukrs.  " 公司代码

  SELECTION-SCREEN SKIP 1.
  SELECTION-SCREEN BEGIN OF LINE.
*第一个RADIOBUTTON
    SELECTION-SCREEN POSITION 1.
    PARAMETERS:p1 RADIOBUTTON GROUP r1 DEFAULT 'X' USER-COMMAND ucl.
    SELECTION-SCREEN COMMENT