Appendix: Program for Object Type Z_BUS2032 

  1. ***** Implementation of object type Z_BUS2032 *****
  2. INCLUDE <OBJECT>.
  3. BEGIN_DATA OBJECT. " Do not change.. DATA is generated
  4. * only private members may be inserted into structure private
  5. DATA:
  6. " begin of private,
  7. " to declare private attributes remove comments and
  8. " insert private attributes here ...
  9. " end of private,
  10. BEGIN OF KEY,
  11. SALESDOCUMENT LIKE VBAK-VBELN,
  12. END OF KEY,
  13. SALESGROUP TYPE SWC_OBJECT,
  14. ..ITEMS TYPE SWC_OBJECT OCCURS 0,
  15. TEXTWITHDOCUMENTNO LIKE SYST-TITLE,
  16. _VBAK LIKE VBAK.
  17. END_DATA OBJECT. " Do not change.. DATA is generated
  19. TABLES VBAK.
  20. *
  21. GET_TABLE_PROPERTY VBAK.
  22. DATA SUBRC LIKE SY-SUBRC.
  23. * Fill TABLES VBAK to enable Object Manager Access to Table Properties
  24. PERFORM SELECT_TABLE_VBAK USING SUBRC.
  25. IF SUBRC NE 0.
  26. EXIT_OBJECT_NOT_FOUND.
  27. ENDIF.
  28. END_PROPERTY.
  29. *
  30. * Use Form also for other(virtual) Properties to fill TABLES VBAK
  31. FORM SELECT_TABLE_VBAK USING SUBRC LIKE SY-SUBRC.
  32. * Select single * from VBAK, if OBJECT-_VBAK is initial
  33. IF OBJECT-_VBAK-MANDT IS INITIAL
  34. AND OBJECT-_VBAK-VBELN IS INITIAL.
  35. SELECT SINGLE * FROM VBAK CLIENT SPECIFIED
  36. WHERE MANDT = SY-MANDT
  37. AND VBELN = OBJECT-KEY-SALESDOCUMENT.
  38. SUBRC = SY-SUBRC.
  39. IF SUBRC NE 0. EXIT. ENDIF.
  40. OBJECT-_VBAK = VBAK.
  41. ELSE.
  42. SUBRC = 0.
  43. VBAK = OBJECT-_VBAK.
  44. ENDIF.
  45. ENDFORM.
  47. GET_PROPERTY TEXTWITHDOCUMENTNO CHANGING CONTAINER.
  48. DATA:
  49. SALESDOCUMENT LIKE VBAK-VBELN,
  50. DOCUMENTDATE LIKE VBAK-AUDAT.
  51. SWC_GET_PROPERTY SELF 'SalesDocument' SALESDOCUMENT.
  52. SWC_GET_PROPERTY SELF 'DocumentDate' DOCUMENTDATE.
  53. CONCATENATE 'sales order' SALESDOCUMENT 'of' DOCUMENTDATE
  54. INTO OBJECT-TEXTWITHDOCUMENTNO SEPARATED BY SPACE.
  55. SWC_SET_ELEMENT CONTAINER 'TextWithDocumentNo'
  56. OBJECT-TEXTWITHDOCUMENTNO.
  57. END_PROPERTY.
  59. GET_PROPERTY SALESGROUP CHANGING CONTAINER.
  60. SELECT SINGLE * FROM VBAK WHERE VBELN = OBJECT-KEY-SALESDOCUMENT.
  61. SWC_CREATE_OBJECT OBJECT-SALESGROUP 'TVKGR' VBAK-VKGRP.
  62. SWC_SET_ELEMENT CONTAINER 'SalesGroup' OBJECT-SALESGROUP.
  63. END_PROPERTY.
  65. GET_PROPERTY ITEMS CHANGING CONTAINER.
  67. * Declare data
  68. TABLES VBAP.
  69. REFRESH OBJECT-ITEMS.
  70. DATA ITEM TYPE SWC_OBJECT.
  71. DATA:
  72. BEGIN OF VBAP_KEY,
  73. VBELN LIKE VBAP-VBELN,
  74. POSNR LIKE VBAP-POSNR,
  75. END OF VBAP_KEY.
  76. DATA BEGIN OF VBAP_TAB OCCURS 0.
  77. INCLUDE STRUCTURE VBAP.
  78. DATA END OF VBAP_TAB.
  80. * Select data
  81. SELECT * FROM VBAP INTO TABLE VBAP_TAB
  82. WHERE VBELN = OBJECT-KEY-SALESDOCUMENT.
  84. VBAP_KEY-VBELN = OBJECT-KEY-SALESDOCUMENT.
  85.
  86. * Create object reference
  87. LOOP AT VBAP_TAB.
  88. VBAP_KEY-POSNR = VBAP_TAB-POSNR.
  89. SWC_CREATE_OBJECT ITEM 'VBAP' VBAP_KEY.
  90. APPEND ITEM TO OBJECT-ITEMS.
  91. ENDLOOP.
  93. * Assign object reference to container element
  94. SWC_SET_TABLE CONTAINER 'Items' OBJECT-ITEMS.
  96. END_PROPERTY.
  98. BEGIN_METHOD EDIT CHANGING CONTAINER.
  99. SET PARAMETER ID 'AUN' FIELD OBJECT-KEY-SALESDOCUMENT.
  100. CALL TRANSACTION 'VA02' AND SKIP FIRST SCREEN.
  101. SWC_REFRESH_OBJECT SELF.
  102. END_METHOD.
  104. BEGIN_METHOD EXISTENCECHECK CHANGING CONTAINER.
  105. SELECT SINGLE * FROM VBAK
  106. WHERE VBELN = OBJECT-KEY-SALESDOCUMENT.
  108. IF SY-SUBRC NE 0.
  109. EXIT_RETURN 0001 SPACE SPACE SPACE SPACE.
  110. ENDIF.
  111. END_METHOD.
  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.
  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.