一:根据对方给的wsdl 的接口地址创建Web 的逻辑端口
1:例如这个用C#写的Web
2.我们需要在SAP里建立一个Service Consumers 的服务记得后缀要加?wsdl
2:然后就会生成对应方法的出参 入参 返回的消息根据接口方法来判断
二:如何通过LPCONFIG建立逻辑端口或者通过SOAMANAGER来建立
1:指定对应的名称
2:绑定对应的地址再绑定对应SOAP的操作
SOAP操作 = ”Namespace && 调用方法“
三:程序里改如何调用呢
*&---------------------------------------------------------------------*
*& REPORT ZMM_COUNT_MATNR
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zmm_count_matnr.DATA:lr_alv_data TYPE REF TO data.FIELD-SYMBOLS : <lt_alv_data> TYPE ANY TABLE .
FIELD-SYMBOLS : <ls_data> TYPE any.DATA:zwb_log_s TYPE zwb_log.
DATA:zwb_log_t TYPE TABLE OF zwb_log.DATA:zwb_log_id TYPE TABLE OF zwb_log.
DATA:zwb_log_del TYPE TABLE OF zwb_log.
DATA:zwb_log_in TYPE TABLE OF zwb_log.DATA:lt_lgort TYPE TABLE OF zwb_lgort.DATA:lv_x.DATA:BEGIN OF gs_excel,werks TYPE string,lgort TYPE string,matnr TYPE string,charg TYPE string,labst TYPE string,fact TYPE string,extime TYPE char08,type TYPE string,message TYPE string,datum TYPE string,END OF gs_excel.
DATA:zwb_log_excel LIKE TABLE OF gs_excel.DATA gt_fieldcat TYPE lvc_t_fcat. "列结构
DATA gs_fieldcat TYPE lvc_s_fcat. "列结构 --工作区
DATA gs_layout TYPE lvc_s_layo. "表单格式TYPES: BEGIN OF ty_fieldname,name TYPE char20,END OF ty_fieldname.DATA: lt_fieldname TYPE TABLE OF ty_fieldname WITH HEADER LINE.DATA:lv_data1 TYPE sy-datum.
DATA:lv_data2 TYPE sy-datum.IF sy-datum+7(1) = 1.lv_data1 = sy-datum.lv_data2 = sy-datum - 1.
ELSE.lv_data1 = sy-datum.lv_data2 = sy-datum.
ENDIF.DEFINE fieldcatset.CLEAR gs_fieldcat.gs_fieldcat-fieldname = &1. "字段名称gs_fieldcat-coltext = &2. "字段显示名称gs_fieldcat-outputlen = &3. "输出长度APPEND gs_fieldcat TO gt_fieldcat.
END-OF-DEFINITION.PARAMETERS:s_werks1 TYPE marc-werks OBLIGATORY.
RANGES:s_werks FOR marc-werks.
RANGES:s_matnr FOR mara-matnr.
RANGES:s_lgort FOR mard-lgort.DATA: lcx_ex TYPE REF TO cx_ai_system_fault.
DATA: lv_err_msg TYPE string,lcx_fault TYPE REF TO cx_ai_application_fault,lcl_zmm20 TYPE REF TO zmm20co_if_trs_cpi_delivery_so,ls_acc_input TYPE zmm20get_pdmaterial_data_soap1,ls_acc_output TYPE zmm20get_pdmaterial_data_soap,ls_return TYPE zmm20pdmaterial_return_item.
DATA:zmm20pdmaterial_result_item TYPE zmm20pdmaterial_result_item.AT SELECTION-SCREEN OUTPUT.IF sy-datum+6(2) = '01' .MESSAGE '还未到盘点时间' TYPE 'E'.ENDIF.END-OF-SELECTION.PERFORM get_data. "获取数据PERFORM check_data. "检查数据PERFORM frm_pr