ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 讀取數據庫 使用變量

讀取數據庫 使用變量

原创 Linux操作系统 作者:heart_smile 时间:2009-06-26 09:07:44 0 删除 编辑

1:

 

  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; }   DATA:GV_SAPCE(1VALUE ' ',
        GV_VTWEG(6TYPE C,
        GV_AUART(8TYPE C,
        GV_WERKS(7TYPE C,
        GV_SQL(50TYPE C,
       GV_SQL1(18TYPE C.
  CLEAR:GV_SQL1,GV_SQL,GV_VTWEG,GV_AUART,GV_WERKS.
  IF P_VTWEG IS NOT INITIAL.
    CONCATENATE '  VTWEG = ' '''' P_VTWEG ''''INTO GV_SQL.
  ELSE.
    GV_SQL = ''.
  ENDIF.
  IF P_AUART IS NOT INITIAL.
    IF P_VTWEG IS NOT INITIAL.
      CONCATENATE  GV_SQL '  AND AUART = ' '''' P_AUART ''''INTO GV_SQL.
    ELSE.
      CONCATENATE  ' AUART = ' '''' P_AUART ''''INTO GV_SQL.
    ENDIF.
  ELSE.
    CONCATENATE GV_SQL  '' INTO GV_SQL.
  ENDIF.

  IF P_WERKS IS NOT INITIAL.
    CONCATENATE '  WERKS =  ' '''' P_WERKS '''' INTO GV_SQL1.
  ELSE.
    GV_SQL1 = ''.
  ENDIF.

 

  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S52 { color: #0000FF; }     SELECT
      VBELN
      KUNNR "Sold-to party ,就是 Customer number
      ERDAT "Date on Which Record Was Created
      VKORG "Sales Organization
      VTWEG "Distribution Channel
      INTO TABLE GI_VBAK
      FROM VBAK
      FOR ALL ENTRIES IN GI_VBELN
      WHERE VBELN = GI_VBELN-VBELN
      AND VKORG = P_VKORG
      AND (GV_SQL).  " 因為銷售通道,銷售文件類型 可以不填

 

  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S52 { color: #0000FF; }     SELECT
    VBELN
    POSNR "Item
    MATNR "Material Number
    ARKTX "Short text for sales order item
    KWMENG"Cumulative Order Quantity in Sales Units
    WERKS " Plant
    INTO TABLE GI_VBAP
    FROM VBAP
*    FOR ALL ENTRIES IN GI_VBAK
     FOR ALL ENTRIES IN GI_CDPOS_ALL
    WHERE VBELN = GI_CDPOS_ALL-VBELN
    AND POSNR = GI_CDPOS_ALL-POSNR
    AND (GV_SQL1).  " 工厂條件

 

 

2 :

 

DATAline(50).
  
IF p_ret = ''.
    
CONCATENATE ' VBAK~VBTYP EQ ''' 'C' '''' INTO line.
  
ELSE.
    
CONCATENATE ' VBAK~VBTYP IN ('''  'C' '''' ','' ' '' 'H' '''' ')' INTO line.
  
ENDIF.

  
CONDENSE line.


  
SELECT vbak~vbeln vbap~posnr vbap~matnr vbap~kwmeng vbap~netwr
         vbap~waerk vbap~kpein vbak~kunnr vbap~netpr  vbak~vbtyp
         vbap~arktx                                         
     
INTO (vbeln,posnr,matnr,kwmeng,netwr,waerk,kpein,kunnr,netpr,vbtyp,
           arktx)                                           

    FROM vbak INNER JOIN vbap
      
ON vbak~vbeln = vbap~vbeln
    
WHERE vbak~vkorg IN s_vkorg AND
          vbak~erdat 
IN erdat AND
          vbak~kunnr 
IN kunrg AND
          vbap~matnr 
IN metnr AND
          vbap~abgru 
EQ ''    AND       (line).   

sql.JPG

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10339719/viewspace-607591/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2008-11-15

  • 博文量
    32
  • 访问量
    61737