Startseite Beiträge veröffentlicht von admin (Seite 57)

[ABAP] Auslieferung und Splitfluss (Liefersplit) lesen 

* Belegnummer Auslieferung
PARAMETERS: p_vbeln TYPE vbeln_vl DEFAULT '100000000'.

DATA: it_ledspd_flow_tree TYPE ledspd_flow_tree_t.
DATA: it_ledspd_flow TYPE ledspd_flow_t.
DATA: if_reference_delivery TYPE vbeln_vl.
DATA: if_root_delivery TYPE vbeln_vl.
DATA: if_items_belong_to TYPE ledspd_items_belong_to.
DATA: if_split_profile TYPE ledspd_pmode.

* Lesen des Splitflusses (in Baumdarstellung)
CALL FUNCTION 'LE_DSP_READ_FLOW'
  EXPORTING
    if_vbeln              = p_vbeln
*   IF_CHECK_GOODS_ISSUE  = ' '
  IMPORTING
    et_ledspd_flow_tree   = it_ledspd_flow_tree
    et_ledspd_flow        = it_ledspd_flow
    ef_reference_delivery = if_reference_delivery
    ef_root_delivery      = if_root_delivery
    ef_items_belong_to    = if_items_belong_to
    ef_split_profile      = if_split_profile
  EXCEPTIONS
    internal_error        = 1
    OTHERS                = 2.

IF sy-subrc = 0.
  cl_demo_output=>write_data( it_ledspd_flow_tree ).
  cl_demo_output=>write_data( it_ledspd_flow ).
  cl_demo_output=>write_data( if_reference_delivery ).
  cl_demo_output=>write_data( if_root_delivery ).
  cl_demo_output=>write_data( if_items_belong_to ).
  cl_demo_output=>write_data( if_split_profile ).
  cl_demo_output=>display( ).
ENDIF.

[ABAP] Binärdaten per RFC aus dem Archiv (Content-Repository) lesen 

* System-ID
PARAMETERS: p_rfc TYPE sy-sysid DEFAULT 'XYZ'.
* Content-Repository
PARAMETERS: p_rep TYPE saearchivi DEFAULT 'AR'.
* ARC_DOC_ID
PARAMETERS: p_arc TYPE saeardoid DEFAULT '1402EC8FAAB21EC888CA63622402D29F'.

START-OF-SELECTION.

  DATA: lv_message TYPE bapiret2.
  DATA: it_raw_1024 TYPE STANDARD TABLE OF tbl1024 WITH DEFAULT KEY.

* Binärdaten eines Dokumentes über RFC zurückgeben
  CALL FUNCTION 'ALINK_RFC_TABLE_GET' DESTINATION p_rfc
    EXPORTING
      im_docid              = p_arc
      im_crepid             = p_rep
    IMPORTING
      ex_message            = lv_message
    TABLES
      ex_document           = it_raw_1024
    EXCEPTIONS
      system_failure        = 1
      communication_failure = 2
      OTHERS                = 3.

  WRITE: / lv_message-message.

  IF sy-subrc = 0.
* weitere Schritte mit it_raw_1024

  ENDIF.

[ABAP] RFC-Abruf aller verlinkten Dokumente zu einem Business Object 

* System-ID
PARAMETERS: p_rfc TYPE sy-sysid DEFAULT 'XYZ'.
* Typ-Material 
PARAMETERS: p_sobj TYPE toav0-sap_object DEFAULT 'BUS1001006'.
* MATNR
PARAMETERS: p_oid TYPE toav0-object_id DEFAULT '000000001234567890'.

START-OF-SELECTION.

  DATA: lv_message TYPE bapiret2.
  DATA: it_results TYPE STANDARD TABLE OF toars_s WITH DEFAULT KEY.
  DATA: it_urls TYPE STANDARD TABLE OF toadurl_s WITH DEFAULT KEY.

* Gibt alle Dokumente zum Business Object zurück
  CALL FUNCTION 'ALINK_RFC_DOCUMENTS_GET' DESTINATION p_rfc
    EXPORTING
      im_botype             = p_sobj
      im_boid               = p_oid
      im_x_urls             = abap_false " Schalter zum Füllen von IT_URLS => Performance beachten
    IMPORTING
      ex_message            = lv_message
    TABLES
      ex_results            = it_results
      ex_urls               = it_urls
    EXCEPTIONS
      system_failure        = 1
      communication_failure = 2
      OTHERS                = 3.

  WRITE: / lv_message-message.

  IF sy-subrc = 0.
    cl_demo_output=>display( it_results ).
  ENDIF.