SELECTION-SCREEN语句错误

2020-08-14 09:19发布

         点击此处--->   EasySAP.com群内免费提供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)

         点击此处--->   EasySAP.com群内免费提供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)
付费偷看设置
发送
3条回答
小c菟菟
1楼 · 2020-08-14 09:52.采纳回答

您好 harry jing

您需要在以下属性中将程序标记为"可执行" 该程序。

亲切的问候,
Mateusz
悠然的二货
2楼-- · 2020-08-14 09:53

下面有错误(第12行)

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

粗暴的香蕉
3楼-- · 2020-08-14 09:52

我使用了SELECTION- LINE的屏幕开始以使用COMMENT

 SELECTION-SCREEN LINE的开始。
 选择画面位置6。
 参数p_amont RADIOBUTTON GROUP感。
 选择屏幕注释8(60)文本c01。
 选择屏幕行的结尾。

一周热门 更多>