SAP 将未审批的销售订单提交到OA取审批，OA将审批结果返回给SAP。SAP冻结提交OA的销售订单 案例

**
**DATA:lo_clientproxy TYPE REF TO zyws_co_workflow_service_port . "proxy class 代理类
**DATA:lo_input TYPE zyws_do_create_workflow_reque1 . "输入参数
**DATA:lo_output TYPE zyws_do_create_workflow_reques. "输出参数
**DATA:l_title TYPE char50.
**
**data: aa type zlgb_workflow_request_info .
**data: bb type zlgb_workflow_base_info .
**data: cc type zlgb_workflow_main_table_info .
**
**
**data: ws_header TYPE REF TO if_wsprotocol_ws_header.
**
*** CONCATENATE’采购订单审批流程新:‘gl_output-ebeln’-Auto Created By SAP’INTO l_title.
*** 给参数 赋值
***aa-can_edit = ‘true’. "流程编辑权限
***aa-can_view = ‘true’. "流程阅读权限
**aa-creator_id = ‘3’. "创建人ID
**aa-isnextflow = ‘0’. "子流程？？？
*** aa-must_input_remark = ‘创建流程签字意见’. "创建流程签字意见
**aa-request_level = ‘2’. "请求级别
**aa-request_name = ‘IT005-IT问题申报处理流程 20190709’. "流程标题
**
**bb-workflow_id = ‘72’. "流程ID
**bb-workflow_name = ‘IT005-IT问题申报处理流程’. "流程标题
**bb-workflow_type_name = ‘信息管理部流程’. "流程标题
**
***“主表表单
**” lo_input-in0-workflow_main_table_info-request_records = ‘test’.
**cc-table_dbname = ‘formtable_main_51’.
**aa-workflow_main_table_info = cc .
**aa-workflow_base_info = bb .
**lo_input-in0 = aa .
**lo_input-in1 = ‘32’.
**
**
**TRY.
** CREATE OBJECT lo_clientproxy
** EXPORTING
** logical_port_name = ‘ZYWS_OAWS001’.
** .
** CATCH cx_ai_system_fault .
**ENDTRY.
**
**
**
**TRY.
** CALL METHOD lo_clientproxy->do_create_workflow_request
** EXPORTING
** do_create_workflow_request_req = lo_input
** IMPORTING
** do_create_workflow_request_res = lo_output.
** .
*** WS_HEADER ?= lo_clientproxy->GET_PROTOCOL( IF_WSPROTOCOL=>WS_HEADER ).
**
**
** CATCH cx_ai_system_fault .
**
** message id sy-msgid type sy-msgty number sy-msgno with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
**ENDTRY.
**WRITE lo_output-out."输出结果
**
**
**
**

---

*** Program Name :ZSD_BLOCK_SO_OA_CN *
*** Program Title : 冻结的销售订单传输到中间库 *
*** Application : SD *
*** Description : *
*** Func Spec ID : *
*** Requested by : *
*** Author : *
*** Req Date : *

---

*** MODIFICATIONS (latest entry at the top) *
*** ---------------------------------------------------------------------*
*** REL DATE NAME (COMPANY) DESCRIPTION TASK-NO *
*** — ---- ---- --------- ----------- ------- *
*** 2015-08-31 E0530 *

---

**
**report zsd_block_so_oa_cn.
**-----------------------------------------------------------------------
** TABLES
**-----------------------------------------------------------------------
*TABLES:ekbe,ekko,ekpo,lfa1,t001,usr21,adrp.
**-----------------------------------------------------------------------
** CONSTANTS
**-----------------------------------------------------------------------
*CONSTANTS:

• “c_id TYPE zsapoalog-interfaceid VALUE ‘01’,” ？？？
• c_e TYPE c LENGTH 1 VALUE ‘E’,
• c_s TYPE c LENGTH 1 VALUE ‘S’.

**&----------------------------------------------------
**& ALV data element definition.
**&----------------------------------------------------
*TYPE-POOLS slis.
*
*DATA: gt_fieldcat TYPE TABLE OF slis_fieldcat_alv .
*DATA: gs_layout TYPE slis_layout_alv.
*DATA: gt_list_top_of_page TYPE slis_t_listheader.
*DATA: gt_sortinfo_alv TYPE slis_t_sortinfo_alv.
*DATA: gs_print_alv TYPE slis_print_alv.
*DATA: gs_grid TYPE lvc_s_glay.
*DATA: gt_event TYPE slis_t_event.
*DATA: gs_event TYPE slis_alv_event.
*DATA: ref1 TYPE REF TO cl_gui_alv_grid,

•  ws_header TYPE REF TO if_wsprotocol_ws_header.
  

**-----------------------------------------------------------------------
** WORK VARIABLES
**-----------------------------------------------------------------------
*DATA: gt_so LIKE TABLE OF zsd_credit_check WITH HEADER LINE,

•  gt_vbeln    TYPE TABLE OF ekko WITH HEADER LINE,
  

•  gt_response TYPE TABLE OF zyws_do_create_workflow_reques WITH HEADER LINE.
  

*DATA: g_returncode LIKE sy-subrc,

•  g_retco      LIKE sy-subrc,
  

•  g_xscreen(1) TYPE c.
  

*DATA: response_meg(50) TYPE c."返回消息文字描述
*
*** DBlin 数据
*DATA: dbs LIKE dbcon-con_name VALUE ‘formtable_main_66’,

•  dbtype TYPE dbcon_dbms.
  

*DATA: sqlerr_ref TYPE REF TO cx_sql_exception,

•  exc_ref    TYPE REF TO cx_sy_native_sql_error,
  

•  error_text TYPE string.
  

*DATA : v_ok TYPE i, v_err TYPE i.
*DATA:gd_count TYPE p.
*
*DATA : BEGIN OF gt_display OCCURS 0,

•     creator_id               TYPE ekko-ernam,
  

•     request_level(1)         TYPE c,
  

•     request_name(100)        TYPE c,
  

•     workflow_base_info       TYPE ywsworkflow_base_info,
  

•     workflow_main_table_info TYPE ywsworkflow_main_table_info,
  

•     orderno                  TYPE ekbe-ebeln,
  

•     request_id               TYPE i,
  

•     erdat                    TYPE ekko-aedat,
  

•     reviewtype               TYPE c,
  

•     reviewerno               TYPE ekko-ernam,
  

•     reviewdept               TYPE ekko-ekgrp,
  

•     line_color               TYPE c LENGTH 4,
  

•     box                      TYPE c,
  

•     werks                    TYPE ekbe-werks, "工厂
  

•     "bukrs                   TYPE t001-bukrs, "公司代码
  

•     ebeln                    TYPE ekbe-ebeln, "采购凭证编号
  

•     ebelp                    TYPE ekbe-ebelp, "采购凭证的项目编号
  

•     matnr                    TYPE ekbe-matnr, "物料编号
  

•     banfn                    TYPE ekpo-banfn, "采购申请编号
  

•     bnfpo                    TYPE ekpo-bnfpo, "采购申请的项目编号
  

•     txz01                    TYPE ekpo-txz01, "短文本
  

•     frgke                    TYPE ekko-frgke, "批准标识：采购凭证
  

•     ernam                    TYPE ekko-ernam, "创建对象的人员名称