点击此处---> 群内免费提供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")
(84.3 kB)
您好 harry jing
您需要在以下属性中将程序标记为"可执行" 该程序。
亲切的问候,Mateusz
下面有错误(第12行)
SELECTION-SCREEN语句只能在选择屏幕的开始和屏幕结束之间使用(程序类型不是" 1")不是1" 1")
我使用了SELECTION- LINE的屏幕开始以使用COMMENT
一周热门 更多>