ABAP 自定义附件

SWO1

关键字

 

*------------------------------------------------------------*
REPORT ZTEST_CSW1.

*TABLES:SRGBTBREL,SOOD, SOC3, SSCRFIELDS.
TABLES: SOOD,SSCRFIELDS.
DATA: ITAB_SRGB LIKE TABLE OF SRGBTBREL WITH HEADER LINE.
DATA:GS_HEAD TYPE ZTCSW.
PARAMETERS:ZHTH LIKE ZTCSW-ZHTH.

*SELECTION-SCREEN FUNCTION KEY 1.

INITIALIZATION.

*  SSCRFIELDS-FUNCTXT_01 = 'LIST'.

AT SELECTION-SCREEN.
*  CHECK SY-UCOMM = 'FCO1'.
*  DATA:WA TYPE SWOTOBJID .
*  WA-LOGSYS = ''.
*  WA-OBJTYPE = 'ZZFJ'.
*  WA-OBJKEY = ZHTH.
*  WA-DESCRIBE = ''.
*  CALL FUNCTION 'SWU_OBJECT_DISPATCH_SERVICE'
*    EXPORTING
*      SERVICE = 'SG1I'
**     CALLED_BY_SYSTEM       = 'X'
*      OBJECT  = WA
**     HELP_INFOS             =
*    .
*
*
*AT SELECTION-SCREEN OUTPUT.
*  CALL FUNCTION 'SWU_OBJECT_REFRESH'.
*  IF NOT ZHTH IS INITIAL.
*    CALL FUNCTION 'SWU_OBJECT_PUBLISH'
*      EXPORTING
*        OBJTYPE           = 'ZZFJ'
*        OBJKEY            = ZHTH
*      EXCEPTIONS
*        OBJTYPE_NOT_FOUND = 1
*        OTHERS            = 2.
*  ENDIF.

START-OF-SELECTION.

  PERFORM FRM_GET_DATA.

  IF GS_HEAD IS NOT INITIAL.
    CALL SCREEN 100.
  ENDIF.

 END-OF-SELECTION.

FORM FRM_GET_DATA.
  SELECT  SINGLE * INTO CORRESPONDING FIELDS OF GS_HEAD FROM ZTCSW WHERE ZHTH = ZHTH.

ENDFORM.
*  SELECT * FROM SRGBTBREL INTO TABLE ITAB_SRGB
*  WHERE INSTID_A = ZHTH AND
*  TYPEID_A = 'ZZFJ' AND
*  CATID_A = 'BO' AND
*  LOGSYS_A = ''.

*  LOOP AT ITAB_SRGB.
*    SELECT SINGLE * FROM SOOD
*    WHERE OBJTP = ITAB_SRGB-INSTID_B+17(3) AND
*    OBJYR = ITAB_SRGB-INSTID_B+20(2) AND
*    OBJNO = ITAB_SRGB-INSTID_B+22(12).
*    WRITE:/ SOOD-FILE_EXT,
*            SOOD-OBJDES,
*            SOOD-CRONAM,
*            SOOD-CRDAT.
*    HIDE:ITAB_SRGB-INSTID_B.
*  ENDLOOP.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
 SET PF-STATUS 'STATUS'.
 SET TITLEBAR '处理屏幕'.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
  DATA lv_UCOMM TYPE SY-UCOMM.
  lv_UCOMM = SY-UCOMM.

  CASE lv_UCOMM.
    WHEN 'ZZ1'.
      DATA:WA TYPE SWOTOBJID .
      WA-LOGSYS = ''.
      WA-OBJTYPE = 'ZZFJ'.
      WA-OBJKEY = ZHTH.
      WA-DESCRIBE = ''.
      CALL FUNCTION 'SWU_OBJECT_DISPATCH_SERVICE'
        EXPORTING
          SERVICE = 'SG1I'
*         CALLED_BY_SYSTEM       = 'X'
          OBJECT  = WA
*         HELP_INFOS             =
        .
      CALL FUNCTION 'SWU_OBJECT_REFRESH'.
      CALL FUNCTION 'SWU_OBJECT_PUBLISH'
        EXPORTING
          OBJTYPE           = 'ZZFJ'
          OBJKEY            = ZHTH
        EXCEPTIONS
          OBJTYPE_NOT_FOUND = 1
          OTHERS            = 2.
WHEN 'ZSAVE'.
  COMMIT WORK.
    WHEN OTHERS.
      LEAVE TO SCREEN 0 .
  ENDCASE.

ENDMODULE.