点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

 计划ZJGLTEST11。
 *参数
 *销售凭证类型
 带框架标题text-001的BLOCk blc的选择屏幕开始。
 选择屏幕注释2（20）v_text FOR FIELD p_auart。
 参数：p_auart像auart义务。
 BLC块的选择屏幕结束。


 *销售组织
 选择屏幕行的开始。
 选择屏幕注释2（20）v_text1 FOR FIELD p_vkorg。
 参数：p_vkorg类型vkorg义务。
 选择屏幕行尾。


 * 分销渠道
 选择屏幕行的开始。
 选择屏幕注释2（20）v_text2 FOR FIELD p_vtweg。
 参数：p_vtweg类型vtweg义务。
 选择屏幕行尾。


 *部门。
 选择屏幕行的开始。
 选择屏幕注释2（20）v_text3 FOR FIELD p_spart。
 参数：p_spart类型spart强制。
 选择屏幕行尾。


 跳过1。


 * 卖给
 选择屏幕行的开始。
 选择屏幕注释2（20）v_text4 FOR FIELD p_sold。
 参数：p_sold类型kunnr强制性。
 选择屏幕行尾。


 * 运送到
 选择屏幕行的开始。
 选择屏幕注释2（20）v_text5 FOR FIELD p_ship。
 参数：p_ship类型kunnr强制性。
 选择屏幕行尾。


 跳过1。


 *材料
 选择屏幕行的开始。
 选择屏幕注释2（20）v_text6 FOR FIELD p_matnr。
 参数：p_matnr类型matnr强制性。
 选择屏幕行尾。


 *数量。
 选择屏幕行的开始。
 选择屏幕注释2（20）v_text7 FOR FIELD p_menge。
 参数：p_menge类型kwmeng强制性。
 选择屏幕行尾。


 *植物
 选择屏幕行的开始。
 SELECTION-SCREEN评论2（20）v_text9 FOR FIELD p_plant。
 参数：p_plant类型werks_d强制性。
 选择屏幕行尾。


 *数据声明。
 数据：v_vbeln类似于vbak-vbeln。
 数据：标头类似bapisdhead1。
 数据：headerx类似于bapisdhead1x。
 数据：带有标题行的项类似于bapisditem OCCURS 0。
 数据：itemx类似于bapisditemx出现在标题行中的0。
 数据：合作伙伴喜欢bapipartnr发生与标题行一起的0。
 数据：使用标题行返回类似bapiret2的OCCURS 0。
 数据：bapischdlx的lt_schedules_inx类型标准表
                          带标题行。
 数据：lt_schedules_in bapischdl的类型标准表
                          带标题行。


 *初始化。
 初始化。
 v_text ='订单类型'。
 v_text1 ='销售组织'。
 v_text2 ='分发渠道'。
 v_text3 ="部门"。
 v_text4 ="已售出"。
 v_text5 ='运送至'。
 v_text6 ='材料'。
 v_text7 ="数量"。
 v_text9 ='植物'。


 *选择开始。
 选择开始。


 *标头数据


 *销售凭证类型
   header-doc_type = p_auart。
   headerx-doc_type ='X'。


 *销售组织
   header-sales_org = p_vkorg。
   headerx-sales_org ='X'。


 * 分销渠道
   header-distr_chan = p_vtweg。
   headerx-distr_chan ='X'。


 *部门
   标头分区= p_spart。
   headerx-divvision ='X'。


   headerx-updateflag ='I'。


 *合作伙伴数据
 * 卖给
   partner-partn_role ='AG'。
   partner-partn_numb = p_sold。
   APPEND合作伙伴。


 * 运送到
   partner-partn_role ='WE'。
   partner-partn_numb = p_ship。
   APPEND合作伙伴。


 *项目数据
   itemx-updateflag ='I'。


 *订单项编号。
   item-itm_number ='000010'。
   itemx-itm_number ='X'。


 *材料
   物料= p_matnr。
   itemx-material ='X'。


 *植物
   item-plant = p_plant。
   itemx-plant ='X'。


 *数量
   item-target_qty = p_menge。
   itemx-target_qty ='X'。


   APPEND项目。
   附录itemx。


 *填写时间表行
   lt_schedules_in-itm_number ='000010'。
   lt_schedules_in-sched_line ='0001'。
   lt_schedules_in-req_qty = p_menge。
   附加lt_schedules_in。


 *填写时间表行标志
   lt_schedules_inx-itm_number ='000010'。
   lt_schedules_inx-sched_line ='0001'。
   lt_schedules_inx-updateflag ='X'。
   lt_schedules_inx-req_qty ='X'。
   附加lt_schedules_inx。


 *调用BAPI创建销售订单。
 *从4.6C开始，此BAPI已过时。 请改用BAPI_SALESORDER_CREATEFROMDAT2。
   通话功能'BAPI_SALESDOCU_CREATEFROMDATA1'
        出口
             sales_header_in =标头
             sales_header_inx = headerx
        输入
             salesdocument_ex = v_vbeln
        桌子
             返回=返回
             sales_items_in =物品
             sales_items_inx = itemx
             sales_schedules_in = lt_schedules_in
             sales_schedules_inx = lt_schedules_inx
             sales_partners =合作伙伴。


 *检查退货表。
   LOOP AT返回WHERE类型='E'或类型='A'。
     出口。
   结局。


   如果sy-subrc = 0。


     写：/'创建文档时出错'。


   其他。


 *提交工作。
     提交工作并等待。


     写：/'文档'，v_vbeln，'创建'。


   万一。
 

SELECTION-SCREEN语句只能在选择屏幕的开始和屏幕结束之间使用（程序类型不是" 1"）不是1" 1"）