读取采购订单附件(GOS)-[BDS_GOS_CONNECTIONS_GET/SO_DOCUMENT_READ_API1]详解编程语言

REPORT ytest_gos_export_attachment. 
 
PARAMETERS:p_ebeln TYPE ekko-ebeln. 
 
DATA:lv_logical_system  LIKE  bapibds01-log_system, 
     classname          LIKE  bapibds01-classname, 
     gos_objkey         LIKE  swotobjid-objkey, 
     lt_gos_connections LIKE bdn_con OCCURS 1 WITH HEADER LINE. 
DATA:lv_id             TYPE sofolenti1-doc_id, 
     ls_doc_data       TYPE sofolenti1, 
     lt_object_header  TYPE STANDARD TABLE OF solisti1 WITH HEADER LINE, 
     lt_object_content TYPE STANDARD TABLE OF solisti1 WITH HEADER LINE, 
     lt_hex            TYPE STANDARD TABLE OF solix WITH HEADER LINE. 
 
CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET' 
  IMPORTING 
    own_logical_system                = lv_logical_system 
  EXCEPTIONS 
    own_lv_logical_system_not_defined = 1 
    OTHERS                            = 2. 
. 
gos_objkey = p_ebeln. "采购订单 
 
CALL FUNCTION 'BDS_GOS_CONNECTIONS_GET' 
  EXPORTING 
    logical_system     = lv_logical_system 
    classname          = 'BUS2012'  "用来标识采购订单 
    objkey             = gos_objkey 
    client             = sy-mandt 
  TABLES 
    gos_connections    = lt_gos_connections 
  EXCEPTIONS 
    no_objects_found   = 1 
    internal_error     = 2 
    internal_gos_error = 3 
    OTHERS             = 4. 
 
LOOP AT lt_gos_connections. 
 
  lv_id = lt_gos_connections-loio_id. 
  CALL FUNCTION 'SO_DOCUMENT_READ_API1' 
    EXPORTING 
      document_id                = lv_id          
    IMPORTING 
      document_data              = ls_doc_data 
    TABLES 
      object_header              = lt_object_header 
      object_content             = lt_object_content 
      contents_hex               = lt_hex 
    EXCEPTIONS 
      document_id_not_exist      = 1 
      operation_no_authorization = 2 
      x_error                    = 3 
      OTHERS                     = 4. 
  BREAK-POINT. 
 
ENDLOOP.