讀取數據庫 使用變量
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)
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博客 ” ，链接：https://blog.itpub.net/10339719/viewspace-607591/ ，如需转载，请注明出处，否则将追究法律责任。
