ZSD_ORDER_LOG

• ZSD_ORDER_LOG is a transparent table of the exported ABAP Dictionary (table class TRANSP SCHEMA:DDIC:ZSD_ORDER_LOG.TABLE_CLASS=TRANSPchecked, customer object) SCHEMA:DDIC:ZSD_ORDER_LOGchecked
• Short text of ZSD_ORDER_LOG: Sales order channel and status log SCHEMA:DDIC:ZSD_ORDER_LOGchecked
• Settings of ZSD_ORDER_LOG: delivery class A (application table) SCHEMA:DDIC:ZSD_ORDER_LOG.DELIVERY_CLASS=Achecked, data class APPL1 (transaction data) SCHEMA:DDIC:ZSD_ORDER_LOG.DATA_CLASS=APPL1checked, buffering N (not allowed) SCHEMA:DDIC:ZSD_ORDER_LOG.BUFFERING=Nchecked
• Key of ZSD_ORDER_LOG: ZSD_ORDER_LOG-MANDT, ZSD_ORDER_LOG-VBELN SCHEMA:DDIC:ZSD_ORDER_LOG.KEY=MANDT,VBELNchecked

Use in the exported code

Database statements

• ZSD_ENH_ORDER_CHANNEL=========E inserts into ZSD_ORDER_LOG GRAPH:CREATESchecked SCHEMA:DDIC:ZSD_ORDER_LOGchecked CODE:zsd_enh_order_channel=========e.abap:11checked (in ZSD_ENH_ORDER_CHANNEL)
• LZSD_ORDERU01 inserts into ZSD_ORDER_LOG GRAPH:CREATESchecked SCHEMA:DDIC:ZSD_ORDER_LOGchecked CODE:lzsd_orderu01.abap:55checked — in function ZSD_ORDER_CREATE (in ZSD_ORDER)
• ZSD_I_SALESORDER selects from ZSD_ORDER_LOG GRAPH:READSchecked SCHEMA:DDIC:ZSD_ORDER_LOGchecked CODE:zsd_i_salesorder.abap:6checked (in ZSD_I_SALESORDER)
• ZSD_ENH_ORDER_CHANNEL=========E reads ZSD_ORDER_LOG GRAPH:READSchecked SCHEMA:DDIC:ZSD_ORDER_LOGchecked CODE:zsd_enh_order_channel=========e.abap:5checked (in ZSD_ENH_ORDER_CHANNEL)
• ZSD_ORDER_MONITOR_F01 reads ZSD_ORDER_LOG GRAPH:READSchecked SCHEMA:DDIC:ZSD_ORDER_LOGchecked CODE:zsd_order_monitor_f01.abap:5checked — in form SELECT_ORDERS (in ZSD_ORDER_MONITOR)
• ZWM_PICK_LABEL reads ZSD_ORDER_LOG GRAPH:READSchecked SCHEMA:DDIC:ZSD_ORDER_LOGchecked CODE:zwm_pick_label.abap:22checked (in ZWM_PICK_LABEL)
• LZSD_ORDERU04 updates ZSD_ORDER_LOG GRAPH:WRITESchecked SCHEMA:DDIC:ZSD_ORDER_LOGchecked CODE:lzsd_orderu04.abap:8checked — in function ZSD_ORDER_STATUS_UPDATE (in ZSD_ORDER)

Fields (6)

'—': the export carries no value (texts: INFERRED:no text in the languages the export read (E,master,E)).

Foreign keys

• ZSD_ORDER_LOG-VBELN is checked against VBAK SCHEMA:DDIC:ZSD_ORDER_LOG-VBELN.CHECK_TABLE=VBAKchecked, cardinality CN SCHEMA:DDIC:ZSD_ORDER_LOG-VBELN.CARDINALITY=CNchecked SCHEMA:DDIC:VBAKchecked (see VBAK)

1"Name: \PR:SAPMV45A\FO:BELEG_SICHERN\SE:BEGIN\EI2ENHANCEMENT 0 ZSD_ENH_ORDER_CHANNEL.    "active version3*4  DATA ls_log TYPE zsd_order_log.5  SELECT SINGLE * FROM zsd_order_log INTO ls_log WHERE vbeln = vbak-vbeln.6  IF sy-subrc <> 0 AND vbak-zz_channel IS NOT INITIAL.7    ls_log-vbeln   = vbak-vbeln.8    ls_log-channel = vbak-zz_channel.9    ls_log-status  = 'C'.10    ls_log-erdat   = sy-datum.11    INSERT zsd_order_log FROM ls_log.12  ENDIF.13ENDENHANCEMENT.

1FUNCTION zsd_order_create.2*"----------------------------------------------------------------------3*"*"Local Interface:4*"  IMPORTING5*"     VALUE(IS_HEADER) TYPE  BAPISDHD16*"     VALUE(IT_ITEMS) TYPE  ZSD_T_ORDER_ITEMS7*"     VALUE(IV_KUNNR) TYPE  KUNNR8*"     VALUE(IV_AMOUNT) TYPE  NETWR_AK9*"     VALUE(IV_CHANNEL) TYPE  ZSD_CHANNEL10*"  EXPORTING11*"     VALUE(EV_VBELN) TYPE  VBELN_VA12*"     VALUE(ET_RETURN) TYPE  BAPIRET2_T13*"----------------------------------------------------------------------14  DATA lt_items TYPE STANDARD TABLE OF bapisditm.15  DATA lt_partners TYPE STANDARD TABLE OF bapiparnr.16  DATA ls_log TYPE zsd_order_log.17 18  CALL FUNCTION 'ZSD_ORDER_CHECK_CREDIT'19    EXPORTING20      iv_kunnr     = iv_kunnr21      iv_amount    = iv_amount22    EXCEPTIONS23      credit_block = 124      OTHERS       = 2.25  IF sy-subrc <> 0.26    MESSAGE e010(zsd_msg) WITH iv_kunnr INTO DATA(lv_msg).27    PERFORM add_return USING lv_msg CHANGING et_return.28    RETURN.29  ENDIF.30 31  lt_items = CORRESPONDING #( it_items ).32  APPEND VALUE #( partn_role = 'AG' partn_numb = iv_kunnr ) TO lt_partners.33  CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'34    EXPORTING35      order_header_in = is_header36    IMPORTING37      salesdocument   = ev_vbeln38    TABLES39      return          = et_return40      order_items_in  = lt_items41      order_partners  = lt_partners.42 43  IF ev_vbeln IS INITIAL.44    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.45    RETURN.46  ENDIF.47  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'48    EXPORTING49      wait = abap_true.50 51  ls_log-vbeln   = ev_vbeln.52  ls_log-channel = iv_channel.53  ls_log-status  = 'C'.54  ls_log-erdat   = sy-datum.55  INSERT zsd_order_log FROM ls_log.56  PERFORM log_event USING ev_vbeln 'Order created'.57ENDFUNCTION.

1@AbapCatalog.sqlViewName: 'ZSDISO'2@AccessControl.authorizationCheck: #CHECK3@EndUserText.label: 'Sales order with channel and status'4define view ZSD_I_SALESORDER5  as select from vbak6    left outer join zsd_order_log as log on log.vbeln = vbak.vbeln7  association [0..*] to ZSD_I_SALESORDER_ITEM as _Item on _Item.vbeln = vbak.vbeln8{9  key vbak.vbeln,10      vbak.erdat,11      vbak.vkorg,12      vbak.kunnr,13      vbak.netwr,14      vbak.waerk,15      log.channel,16      log.status,17      _Item18}

1*----------------------------------------------------------------------*2* Form routines of ZSD_ORDER_MONITOR3*----------------------------------------------------------------------*4FORM select_orders.5  SELECT a~vbeln, a~erdat, a~kunnr, a~netwr, a~waerk, l~channel, l~status6    FROM vbak AS a7    LEFT OUTER JOIN zsd_order_log AS l ON l~vbeln = a~vbeln8    WHERE a~vkorg IN @s_vkorg9      AND a~erdat IN @s_erdat10      AND a~kunnr IN @s_kunnr11    INTO CORRESPONDING FIELDS OF TABLE @gt_rows.12  IF p_open = abap_true.13    DELETE gt_rows WHERE status = 'X'.14  ENDIF.15ENDFORM.16 17FORM add_prices.18  DATA lo_pricing TYPE REF TO zcl_sd_pricing.19  lo_pricing = NEW zcl_sd_pricing( ).20  LOOP AT gt_rows ASSIGNING FIELD-SYMBOL(<ls_row>).21    <ls_row>-net_price = lo_pricing->get_net_price( iv_vbeln = <ls_row>-vbeln ).22  ENDLOOP.23ENDFORM.24 25FORM add_overdue.26  LOOP AT gt_rows ASSIGNING FIELD-SYMBOL(<ls_row>).27    SELECT SUM( dmbtr ) FROM zfi_i_openitems28      WHERE kunnr = @<ls_row>-kunnr29      INTO @<ls_row>-overdue.30  ENDLOOP.31ENDFORM.32 33FORM display_alv.34  DATA lo_alv TYPE REF TO cl_salv_table.35  TRY.36      cl_salv_table=>factory( IMPORTING r_salv_table = lo_alv37                              CHANGING  t_table      = gt_rows ).38      lo_alv->get_functions( )->set_all( abap_true ).39      lo_alv->display( ).40    CATCH cx_salv_msg INTO DATA(lx_msg).41      MESSAGE lx_msg TYPE 'E'.42  ENDTRY.43ENDFORM.

1REPORT zwm_pick_label.2 3PARAMETERS p_vbeln TYPE vbeln_vl OBLIGATORY.4PARAMETERS p_form TYPE tdsfname DEFAULT 'ZWM_PICK_LABEL'.5 6DATA gt_items TYPE STANDARD TABLE OF lips.7DATA gv_fm TYPE rs38l_fnam.8DATA gs_log TYPE zwm_label_log.9DATA gv_channel TYPE zsd_channel.10DATA gv_vbeln_so TYPE vbeln_va.11 12START-OF-SELECTION.13  SELECT * FROM lips INTO TABLE @gt_items14    WHERE vbeln = @p_vbeln.15  IF sy-subrc <> 0.16    MESSAGE e001(zwm_msg) WITH p_vbeln.17  ENDIF.18 19  SELECT SINGLE vbeln_so FROM zsd_dlv_queue20    WHERE vbeln = @p_vbeln21    INTO @gv_vbeln_so.22  SELECT SINGLE channel FROM zsd_order_log23    WHERE vbeln = @gv_vbeln_so24    INTO @gv_channel.25 26  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'27    EXPORTING28      formname = p_form29    IMPORTING30      fm_name  = gv_fm.31 32  CALL FUNCTION gv_fm33    EXPORTING34      iv_vbeln   = p_vbeln35      iv_channel = gv_channel36    TABLES37      it_items   = gt_items.38 39  UPDATE zsd_dlv_queue SET label_printed = abap_true WHERE vbeln = p_vbeln.40  CALL FUNCTION 'ZSD_ORDER_STATUS_UPDATE' IN UPDATE TASK41    EXPORTING42      iv_vbeln  = gv_vbeln_so43      iv_status = 'L'.44  COMMIT WORK.45 46  gs_log-vbeln      = p_vbeln.47  gs_log-printed_on = sy-datum.48  gs_log-printed_at = sy-uzeit.49  INSERT zwm_label_log FROM gs_log.

1FUNCTION zsd_order_status_update.2*"----------------------------------------------------------------------3*"*"Local Interface:4*"  IMPORTING5*"     VALUE(IV_VBELN) TYPE  VBELN_VA6*"     VALUE(IV_STATUS) TYPE  ZSD_ORDER_STATUS7*"----------------------------------------------------------------------8  UPDATE zsd_order_log SET status = iv_status9                           aedat = sy-datum10    WHERE vbeln = iv_vbeln.11  IF sy-subrc <> 0.12    MESSAGE a012(zsd_msg) WITH iv_vbeln.13  ENDIF.14ENDFUNCTION.