ZPRSD_TELECOM_MANUAL

ZPRSD_TELECOM_MANUAL

*&---------------------------------------------------------------------*
*& Report  ZPRSD_TELECOM_MANUAL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zprsd_telecom_manual.


PARAMETERS:
  p_bukrs TYPE bukrs OBLIGATORY,
  p_kunnr TYPE kunnr OBLIGATORY,
  p_datum TYPE datum OBLIGATORY DEFAULT sy-datum,
  start TYPE datum OBLIGATORY,
  finish TYPE datum OBLIGATORY.

PARAMETERS:
  v_value1 TYPE kbetr, " 'SVNPABXMN01' FORA_ESTADO
  v_value2 TYPE kbetr, " 'SVNPABXMN02' PABX_INTERNACIONAL
  v_value3 TYPE kbetr, " 'SVNPABXMN03' PABX_LOCAIS
  v_value4 TYPE kbetr. " 'SVNPABXMN04' PABX_NO_ESTADO


START-OF-SELECTION.

  DATA: sales_items TYPE TABLE OF zstlw_sales_order5,
        messages TYPE TABLE OF bapiret2,
        v_vbeln TYPE vbak-vbeln,
        w_item LIKE LINE OF sales_items.


  perform fill_items tables sales_items..


  CALL FUNCTION 'ZFMLW_CREATE_SALES_ORDER'
    EXPORTING
      issue_company           = p_bukrs
      created_at              = sy-datum
      origin                  = 'BACK'
      cod_customer            = p_kunnr
      priced_at               = p_datum
*   CHECKOUT_ORDER_ID       =
*   BOLETO                  =
*   CREDIT_LIMIT            =
     started_at              = start
     finished_at             = finish
   IMPORTING
     sales_order_id          = v_vbeln
    TABLES
      items                   = sales_items
      messages                = messages
            .