001 *****      Implementation of object type Z_BUS2032           ****
002 INCLUDE <OBJECT>.
003 BEGIN_DATA OBJECT. " Do not change.. DATA is generated
004 * only private members may be inserted into structure private
005 DATA:
006 " begin of private,
007 "   to declare private attributes remove comments and
008 "   insert private attributes here...
009 " end of private,
010   BEGIN OF KEY,
011     SALESDOCUMENT LIKE VBAK-VBELN,
012   END OF KEY,
013   SALESGROUP TYPE SWC_OBJECT,
014 ..ITEMS TYPE SWC_OBJECT OCCURS 0,
015   TEXTWITHDOCUMENTNO LIKE SYST-TITLE,
016   _VBAK LIKE VBAK.
017 END_DATA OBJECT. " Do not change.. DATA is generated 
018
019 TABLES VBAK.
020 *
021 GET_TABLE_PROPERTY VBAK.
022 DATA SUBRC LIKE SY-SUBRC.
023 * Fill TABLES VBAK to enable Object Manager Access to Table Properties
024   PERFORM SELECT_TABLE_VBAK USING SUBRC.
025   IF SUBRC NE 0.
026     EXIT_OBJECT_NOT_FOUND.
027   ENDIF.
028 END_PROPERTY.
029 *
030 * Use Form also for other(virtual) Properties to fill TABLES VBAK
031 FORM SELECT_TABLE_VBAK USING SUBRC LIKE SY-SUBRC.
032 * Select single * from VBAK, if OBJECT-_VBAK is initial
033   IF OBJECT-_VBAK-MANDT IS INITIAL
034   AND OBJECT-_VBAK-VBELN IS INITIAL.
035     SELECT SINGLE * FROM VBAK CLIENT SPECIFIED
036       WHERE MANDT = SY-MANDT
037       AND VBELN = OBJECT-KEY-SALESDOCUMENT.
038     SUBRC = SY-SUBRC.
039     IF SUBRC NE 0. EXIT. ENDIF.
040     OBJECT-_VBAK = VBAK.
041   ELSE.
042     SUBRC = 0.
043     VBAK = OBJECT-_VBAK.
044   ENDIF.
045 ENDFORM.
046
047 GET_PROPERTY TEXTWITHDOCUMENTNO CHANGING CONTAINER.
048   DATA:
049     SALESDOCUMENT LIKE VBAK-VBELN,
050     DOCUMENTDATE LIKE VBAK-AUDAT.
051   SWC_GET_PROPERTY SELF 'SalesDocument' SALESDOCUMENT.
052   SWC_GET_PROPERTY SELF 'DocumentDate' DOCUMENTDATE.
053   CONCATENATE 'Kundenauftrag' SALESDOCUMENT 'vom' DOCUMENTDATE
054     INTO OBJECT-TEXTWITHDOCUMENTNO SEPARATED BY SPACE.
055   SWC_SET_ELEMENT CONTAINER 'TextWithDocumentNo'
056     OBJECT-TEXTWITHDOCUMENTNO.
057 END_PROPERTY.
058
059 GET_PROPERTY SALESGROUP CHANGING CONTAINER.
060     SELECT SINGLE * FROM VBAK WHERE VBELN = OBJECT-KEY-SALESDOCUMENT.
061   SWC_CREATE_OBJECT OBJECT-SALESGROUP 'TVKGR' VBAK-VKGRP.
062   SWC_SET_ELEMENT CONTAINER 'SalesGroup' OBJECT-SALESGROUP.
063 END_PROPERTY.
064
065 GET_PROPERTY ITEMS CHANGING CONTAINER.
066
067 * Declare data
068   TABLES VBAP.
069   REFRESH OBJECT-ITEMS.
070   DATA ITEM TYPE SWC_OBJECT.
071   DATA:
072     BEGIN OF VBAP_KEY,
073       VBELN LIKE VBAP-VBELN,
074       POSNR LIKE VBAP-POSNR,
075     END OF VBAP_KEY.
076   DATA BEGIN OF VBAP_TAB OCCURS 0.
077     INCLUDE STRUCTURE VBAP.
078   DATA END OF VBAP_TAB.
079
080 * Select data
081   SELECT * FROM VBAP INTO TABLE VBAP_TAB
082     WHERE VBELN = OBJECT-KEY-SALESDOCUMENT.
083
084     VBAP_KEY-VBELN = OBJECT-KEY-SALESDOCUMENT.
085
086 *   Create object reference
087     LOOP AT VBAP_TAB.
088       VBAP_KEY-POSNR = VBAP_TAB-POSNR.
089       SWC_CREATE_OBJECT ITEM 'VBAP' VBAP_KEY.
090       APPEND ITEM TO OBJECT-ITEMS.
091     ENDLOOP.
092
093 * Assign object reference to container element
094   SWC_SET_TABLE CONTAINER 'Items' OBJECT-ITEMS.
095
096 END_PROPERTY.
097
098 BEGIN_METHOD EDIT CHANGING CONTAINER.
099   SET PARAMETER ID 'AUN' FIELD OBJECT-KEY-SALESDOCUMENT.
100   CALL TRANSACTION 'VA02' AND SKIP FIRST SCREEN.
101   SWC_REFRESH_OBJECT SELF.
102 END_METHOD.
103
104 BEGIN_METHOD EXISTENCECHECK CHANGING CONTAINER.
105   SELECT SINGLE * FROM VBAK
106     WHERE VBELN = OBJECT-KEY-SALESDOCUMENT.
107
108     IF SY-SUBRC NE 0.
109       EXIT_RETURN 0001 SPACE SPACE SPACE SPACE.
110     ENDIF.
111 END_METHOD.
112
113 BEGIN_METHOD DISPLAY CHANGING CONTAINER.
114   SET PARAMETER ID 'AUN' FIELD OBJECT-KEY-SALESDOCUMENT.
115   CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
116 END_METHOD.
117
118 BEGIN_METHOD CREATE CHANGING CONTAINER.
119 DATA:
120      SALESDOCUMENTTYPE LIKE VBAK-AUART.
121   SWC_GET_ELEMENT CONTAINER 'SalesDocumentType' SALESDOCUMENTTYPE.
122   SET PARAMETER ID 'AAT' FIELD SALESDOCUMENTTYPE.
123   CALL TRANSACTION 'VA01' AND SKIP FIRST SCREEN.
124   GET PARAMETER ID 'AUN' FIELD OBJECT-KEY-SALESDOCUMENT.
125 END_METHOD.