ERP俱乐部
ERP爱好者、ERP从业者互相交流、互相学习的乐园;我们的愿景是成为全球一流的中文ERP(Enterprise Resource Planning)交流平台
网站首页 论坛首页 搜索 用户列表 FAQ 注册 登录  
ERP俱乐部 -> SAP专栏 -> ABAP -> RANGES的问题
  RANGES的问题
帖子发起人: cwen   发起时间: 2008-07-29 10:56 上午   回复数: 0
? 上一主题 下一主题 ?
楼主
  2008-07-29, 10:56 上午
cwen 离线,最后访问时间: 2010/2/26 14:16:53 cwen

无等级

30级
等级: 30级
注册: 2007年11月3日
经验: 63
积分: 43
精华: 0
发贴: 38
排名: 422
Site Registered Users
RANGES的问题
附件:
Doc1.doc(76K, 下载次数:144)
err.txt(95K, 下载次数:2002)
Doc1.doc(245K, 下载次数:160)
 

DEAR ALL:
   我依部门需求开发了一个相当于VF04的PROCESS BILL。其方法如一下, 第一:先查询出没有开立BILL的DN(存在内表ITAB1),以及这些DN的SO(存于内表JTAB1)(业务部门的需求,是为了他们在做BILL时知道哪一个SO的相关信息) REPORT。  第二:手工在REPORT上选择哪一些DN生成BILLING ,就是依据FALG的调 用VF04的SDBILLDL的程式。 但是如果DN超过一定的行数,就了出现错误题示,生成的REPORT样式及错误题示见附件。
如下为调用SDBILLDL代码。
data:begin of itab occurs 0,
      FLAG(1) TYPE C,
      KUNNR LIKE LIKP-KUNNR,  "送达方
      WERKS LIKE VBAP-WERKS,  "PLANT
      VBELN LIKE LIKP-VBELN,  "DN
      WADAT_IST LIKE LIKP-WADAT_IST, "DN DATA
 end of itab.
 data:itab1 like  itab OCCURS 0 with header line.

FORM EXCU_BILL.
RANGES:P_VBELN FOR LIPS-VBELN.
DATA:P_INDEX TYPE I.
REFRESH:P_VBELN,ITAB1.
CLEAR ITAB1.
SORT ITAB1 BY VBELN.
  DO.
    READ LINE SY-INDEX FIELD VALUE ITAB1-FLAG.
       IF SY-SUBRC <> 0.
         EXIT.
        ENDIF.
     IF ITAB1-FLAG = 'X'.
        READ LINE SY-INDEX FIELD VALUE ITAB1-VBELN.
           P_VBELN-SIGN = 'I'.
           P_VBELN-OPTION = 'EQ'.
           P_VBELN-LOW = ITAB1-VBELN.
         APPEND P_VBELN.
         CLEAR P_VBELN.
       ENDIF.
       ENDDO.
    IF P_VBELN[] IS INITIAL.
      MESSAGE S999 WITH 'NO DATA TO SELECT,PLEASE SELECT THE DATA'.
      ELSEIF P_ALLEL = 'X'.
        SUBMIT SDBILLDL
           WITH S_VBELN IN P_VBELN
           WITH P_ALLEL EQ 'X'
           WITH P_ALLEA EQ 'X'
        AND RETURN.
      ENDIF.
      ENDFORM.


分享按钮 IP 地址: 已登录   来自: 已登录    返回顶部
 第 1 页 总共 1 页 [共有 1 条记录]
ERP俱乐部 -> SAP专栏 -> ABAP -> RANGES的问题
(C)Copyright 2005-2020 www.erpclub.org All Rights Reserved.
Tel:+86-755-26444630
Email:webmaster@yok.com.cn