Generische Objektdienste (GOS)

Coding

FuBas, Klassen

Konvertierungen

BIN zu XSTRING

DATA lt_solixtab TYPE solix_tab.
DATA lv_docsize  TYPE i.
DATA lv_xstring TYPE xstring.

  CALL FUNCTION 'SO_SOLITAB_TO_SOLIXTAB'
    EXPORTING
      ip_solitab  = it_object_content "TYPE SOFOLENTI1
    IMPORTING
      ep_solixtab = lt_solixtab.

  lv_docsize = lines( lt_solixtab ) * 255.

  CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
    EXPORTING
      input_length = lv_docsize
    IMPORTING
      buffer       = lv_xstring
    TABLES
      binary_tab   = lt_solixtab
    EXCEPTIONS
      failed       = 1
      OTHERS       = 2.

XSTRING zu BIN

DATA lt_content_x    TYPE solix_tab.
  DATA lv_solix_length TYPE i.

  CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
    EXPORTING
      buffer        = iv_xstring
    IMPORTING
      output_length = lv_solix_length
    TABLES
      binary_tab    = lt_content_x.

  CALL FUNCTION 'SO_SOLIXTAB_TO_SOLITAB'
    EXPORTING
      ip_solixtab = lt_content_x
    IMPORTING
      ep_solitab  = lt_content.

Inhalt Datei bekommen

  CALL FUNCTION 'SO_DOCUMENT_READ_API1'
    EXPORTING
      document_id                = iv_docno " TYPE SO_ENTRYID
    IMPORTING
      document_data              = ls_docoument_data
    TABLES
      object_header              = lt_object_header
      object_content             = lt_object_content
    EXCEPTIONS
      document_id_not_exist      = 1
      operation_no_authorization = 2
      x_error                    = 3
      OTHERS                     = 4.

"convert bin zu xstring

Anhänge bekommen

DATA(ls_lpor) = VALUE sibflporb( instid = *Business Objekt Key* "z.B. Belegnummer Kundenauftrag
                                 typeid = *Business Objekt TYPE* "z.B. Kundenauftrag BUS2032
                                 catid  = 'BO' ).

DATA(lt_rel_options) = VALUE obl_t_relt( ( sign   = 'I'
                                           option = 'EQ'
                                           low    = 'ATTA' ) ).

cl_binary_relation=>read_links_of_binrels(
 EXPORTING
  is_object           = ls_lpor
  it_relation_options = lt_rel_options
  ip_role             = 'GOSAPPLOBJ'
 IMPORTING
  et_links            = DATA(lt_links) ).
 CATCH cx_obl_parameter_error
  cx_obl_internal_error
  cx_obl_model_error.

Anhänge kopieren

"Prüfen, ob die Quelle Anhänge hat, s. o.
DATA(ls_source) = VALUE sibflporb( instid = *Business Objekt Key* "z.B. Belegnummer Kundenauftrag
                                   typeid = *Business Objekt TYPE* "z.B. Kundenauftrag BUS2032
                                   catid  = 'BO' ).

DATA(ls_target) = VALUE sibflporb( instid = *Business Objekt Key* "z.B. Belegnummer Kontrakt
                                   typeid = *Business Objekt TYPE* "z.B. Kontrakt BUS2034
                                   catid  = 'BO' ).

cl_gos_service_tools=>copy_linked_objects( is_source            = ls_source
                                           is_target            = ls_target
                                           it_service_selection = VALUE tgos_sels( ( sign   = 'I'
                                                                                     option = 'EQ'
                                                                                     low    = 'PCATTA_CREA' ) 
                                                                                  ) 
                                          ).

  "is_link TYPE OBL_S_LINK 
 
  DATA ls_lpor_a TYPE sibflporb.
  DATA ls_lpor_b TYPE sibflporb.

  DATA ls_folder_id TYPE soodk.
  DATA ls_object_id TYPE soodk.

  IF is_link IS INITIAL.
    RETURN.
  ENDIF.

  ls_lpor_a = VALUE #( catid  = is_link-catid_a
                       typeid = is_link-typeid_a
                       instid = is_link-instid_a ).

  ls_lpor_b = VALUE #( catid  = is_link-catid_b
                       typeid = is_link-typeid_b
                       instid = is_link-instid_b ).

  TRY.
      cl_binary_relation=>delete_link( is_object_a = ls_lpor_a
                                       is_object_b = ls_lpor_b
                                       ip_reltype  = is_link-reltype ).
    CATCH cx_obl_parameter_error
          cx_obl_internal_error
          cx_obl_model_error.
      RETURN.
  ENDTRY.

  ls_folder_id = VALUE #( objtp = is_link-instid_b+0(3)
                          objyr = is_link-instid_b+3(2)
                          objno = is_link-instid_b+5(12) ).

  ls_object_id = VALUE #( objtp =   is_link-instid_b+17(3)
                          objyr =  is_link-instid_b+20(2)
                          objno =  is_link-instid_b+22(12) ).

  CALL FUNCTION 'SO_OBJECT_DELETE'
    EXPORTING
      folder_id                  = ls_folder_id
      object_id                  = ls_object_id
    EXCEPTIONS
      communication_failure      = 1
      folder_not_empty           = 2
      folder_not_exist           = 3
      folder_no_authorization    = 4
      forwarder_not_exist        = 5
      object_not_exist           = 6
      object_no_authorization    = 7
      operation_no_authorization = 8
      owner_not_exist            = 9
      substitute_not_active      = 10
      substitute_not_defined     = 11
      system_failure             = 12
      x_error                    = 13
      OTHERS                     = 14.

  IF sy-subrc = 0.
    "Löschen erfolgreich. Commit ist noch erforderlich.
    rv_deleted = abap_true.
  ENDIF.

APIs

• CV_ATTACHMENT_SRV
• API_CV_ATTACHMENT_SRV