自动更改传票摘要

来源：互联网发布：网络环境被劫持是什么编辑：程序博客网时间：2024/05/15 23:51

*&---------------------------------------------------------------------*
*& FORM UPDATE
*&---------------------------------------------------------------------*
FORM UPDATE.

DESCRIBE TABLE ITAB LINES CNT_INPUT.
IF CNT_INPUT NE 0.
    sort itab by belnr.
    LOOP AT ITAB.
      UPDATE BSEG SET SGTXT = ITAB-SGTXT
                  WHERE
                      BELNR = ITAB-BELNR AND
                      BUKRS = ITAB-BUKRS AND
                      GJAHR = ITAB-GJAHR.
      CLEAR ITAB.
      WRITE: itab-belnr,
             itab-sgtxt,
             itab-gjahr,
             itab-bukrs,
             sy-dbcnt.
    ENDLOOP.
ELSE.
    WRITE :/ 'No data in text file'.
ENDIF.

ENDFORM.

*&---------------------------------------------------------------------*
*&      Form GET_USER_DEFAULT
*&---------------------------------------------------------------------*
FORM GET_USER_DEFAULT.
SELECT SINGLE * FROM USR01 WHERE BNAME = SY-UNAME.
IF SY-SUBRC <> 0.
    WRITE :/ 'Get user default fail'.
ENDIF.
ENDFORM.                               " GET_USER_DEFAULT

*&---------------------------------------------------------------------*
*& Form UPLOAD_FORM
*&---------------------------------------------------------------------*
FORM UPLOAD_FORM_PC.

CALL FUNCTION 'WS_UPLOAD'
       EXPORTING
            FILENAME            = P_FILENM
            FILETYPE            = 'ASC'
       IMPORTING
            FILELENGTH          = W_FLEN
       TABLES
            DATA_TAB            = ITAB
       EXCEPTIONS
            CONVERSION_ERROR    = 1
            FILE_OPEN_ERROR     = 2
            FILE_READ_ERROR     = 3
            INVALID_TABLE_WIDTH = 4
            INVALID_TYPE        = 5
            NO_BATCH            = 6
            UNKNOWN_ERROR       = 7
            OTHERS              = 8.

IF SY-SUBRC NE 0.
MESSAGE I722(AD) WITH P_FILENM.
STOP.
ENDIF.

ENDFORM. " UPLOAD_FORM_PC