讀取數據庫 使用變量

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(1) VALUE ' ',
        GV_VTWEG(6) TYPE C,
        GV_AUART(8) TYPE C,
        GV_WERKS(7) TYPE C,
        GV_SQL(50) TYPE C,
       GV_SQL1(18) TYPE 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 :

 

DATA: line(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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10339719/viewspace-607591/