📄 whreservelistmaster.asp
字号:
<%
Class WhReserveListMaster
'/**********************************************
'/* 娙堈拲暥夋柺偱巜掕偟偨儗僐乕僪偺拪弌(侾儗僐乕僪)
'/* 仸帒椏惪媮偺僜乕僗傪僐僺乕仌廋惓
'/* 嶲峫ASP丗demand/master/ReserveListMaster.asp
'/* param丗l_db DbAccess
'/* l_sysid 僔僗僥儉俬俢
'/* l_coid 夛幮俬俢
'/* l_listmanage_no 挔昜娗棟斣崋
'/* l_listcd 挔昜斣崋
'/* l_listeda 挔昜斣崋巬斣崋
'/**********************************************
Public Function ReserveSerchList(l_db,l_sysid,l_coid,l_listmanage_no,l_listcd,l_listeda)
Dim l_name
Dim l_listSql
l_listSql = "SELECT LT.LIST_MANAGE_NO," &_
"LT.LIST_CD,LT.LIST_EDA," &_
"LT.LIST_NAME,LT.PACKING_COUNT," &_
"LT.ARRIVAL_WAIT," &_
"NVL(LT.UNIT_PRICE,0) AS UNIT_PRICE," &_
"LT.LEAV_DIRECTION," &_
"LT.LEAV_DIRECTION_COUNT," &_
"LT.CLAIM_PERIOD_START," &_
"LT.CLAIM_PERIOD_END," &_
"LT.CLAIM_PERIOD_FLAG," &_
"(SELECT NAME " &_
" FROM CODE_M " &_
" WHERE SYSTEM_ID = LT.SYSTEM_ID " &_
" AND CLASSIFIED_CODE = '" & CD_LIST_UNIT & "' " &_
" AND CODE = LT.LIST_UNIT) AS LIST_UNIT " &_
"FROM LISTBASE_T LT "&_
"WHERE LT.SYSTEM_ID = '" & l_sysId & "' " &_
" AND LT.LIST_CD = '" & l_listcd & "' " &_
" AND LT.LIST_EDA = '" & l_listeda & "' " &_
" AND LT.DEL_FLG <> '1' "
' " AND LT.OPEN_PERIOD_START <= '" & Date & "'" &_
' " AND LT.OPEN_PERIOD_END >= '" & Date & "'"
' " AND LT.LIST_STATUS in('" & LSTS_APPROVE & "','" & LSTS_ABOL & "')"
' l_listSql = l_listSql & " AND OD.ORDER_STATUS IN ('" & OSTS_APPROVE_FIN &_
' "','" & OSTS_ORDER &_
' "','" & OSTS_ORDER_CANCEL &_
' "','" & OSTS_DELIVERY_INST &_
' "','" & OSTS_DELIVERY &_
' "','" & OSTS_DELIVERY_CONF &_
' "','" & OSTS_PAYMENT_CONF &_
' "','" & OSTS_PAYMENT_FIN & "')"
Set ReserveSerchList = l_db.ProcRecordset(l_listSql,10,0)
End Function
'/*******************************************************
'/* 巜掕偟偨挔昜偵昍偯偔嵼屔偵儘僌僀儞夛幮偑懚嵼偡傞偐傪僠僃僢僋
'/* param丗dbaccess(DBAccess) DB傾僋僙僗
'/* sysid(String) 僔僗僥儉ID
'/* l_listCd 挔昜斣崋
'/* l_listEda 挔昜巬斣
'/* l_coId 夛幮ID(儘僌僀儞夛幮ID)
'/* return boolean True丗巜掕儗僐乕僪偑懚嵼偡傞丄False丗懚嵼偟側偄
'/*******************************************************
Public Function CheckStockCompany(l_dbaccess, l_sysId, l_listCd, l_listEda, l_coId)
Dim l_recSet
Dim l_sql
CheckStockCompany = False
'SQL暥惗惉
l_sql = "SELECT COUNT(*) FROM STOCK_T" & _
" WHERE SYSTEM_ID = '" & l_sysId & "'" & _
" AND LIST_CD = '" & l_listCd & "'" & _
" AND LIST_EDA = '" & l_listEda & "'" & _
" AND (DELIVERY_PLACE1 = '" & l_coId & "'" & _
" OR DELIVERY_PLACE2 = '" & l_coId & "'" & _
" OR DELIVERY_PLACE3 = '" & l_coId & "') " & _
" AND DEL_FLG <> '1'"
Set l_recSet = l_dbaccess.ProcRecordset(l_sql,10,0)
'懚嵼偡傟偽True丄側偗傟偽False
If l_recSet.Fields.Item("COUNT(*)") <> 0 Then
CheckStockCompany = True
End If
End Function
'/*******************************************************
'/* 巜掕偟偨挔昜偵昍偯偔嵼屔偵儘僌僀儞夛幮偑懚嵼偡傞偐傪僠僃僢僋
'/* param丗dbaccess(DBAccess) DB傾僋僙僗
'/* sysid(String) 僔僗僥儉ID
'/* l_listCd 挔昜斣崋
'/* l_listEda 挔昜巬斣
'/* l_coId 夛幮ID(儘僌僀儞夛幮ID)
'/* l_num 夋柺擖椡偟偨悢検
'/* return boolean True丗巜掕儗僐乕僪偑懚嵼偡傞丄False丗懚嵼偟側偄
'/*******************************************************
Public Function CheckStock(l_dbaccess, l_sysId, l_listCd, l_listEda, l_coId, l_num)
Dim l_recSet
Dim l_sql
CheckStock = False
'SQL暥惗惉
l_sql = "SELECT COUNT(*) FROM STOCK_T" & _
" WHERE SYSTEM_ID = '" & l_sysId & "'" & _
" AND LIST_CD = '" & l_listCd & "'" & _
" AND LIST_EDA = '" & l_listEda & "'" & _
" AND ((DELIVERY_PLACE1 = '" & l_coId & "' AND (NVL(NUM1,0)-NVL(RESERVE_STOCK_NUM1,0))>=" &_
l_num & ")" & _
" OR (DELIVERY_PLACE2 = '" & l_coId & "' AND (NVL(NUM2,0)-NVL(RESERVE_STOCK_NUM2,0))>=" &_
l_num & ")" & _
" OR (DELIVERY_PLACE3 = '" & l_coId & "' AND (NVL(NUM3,0)-NVL(RESERVE_STOCK_NUM3,0))>=" &_
l_num & ")) " & _
" AND DEL_FLG <> '1'"
'10/19
l_sql = "SELECT COUNT(*) " &_
" FROM STOCK_T S_T " & _
" WHERE S_T.SYSTEM_ID = '" & l_sysId & "'" & _
" AND S_T.LIST_CD = '" & l_listCd & "'" & _
" AND S_T.LIST_EDA = '" & l_listEda & "'" & _
" AND (" &_
"(S_T.DELIVERY_PLACE1 = '" & l_coId & "' AND "&_
"(NVL(S_T.NUM1,0)-" &_
"NVL((SELECT NVL(SUM(QUANTITY),0) FROM WORK_DATACLAIMORDER_T " &_
" WHERE LIST_CD ='" & l_listCd & "' " &_
" AND LIST_EDA = '" & l_listEda & "'" &_
" AND WAREHOUSE_ID = '" & l_coId & "'),0) - " &_
"NVL((SELECT NVL(SUM(QUANTITY),0) FROM DATACLAIMORDER_M " &_
" WHERE LIST_CD = '" & l_listCd & "' " &_
" AND LIST_EDA = '" & l_listEda & "' " &_
" AND DEL_FLG = '" & FLG_OFF & "' " &_
" AND CLAIM_SITUATION IN" &_
" ('" & CLM_SITUATION_UNSHIPPING & "'," &_
" '" & CLM_SITUATION_WAIT & "'," &_
" '" & CLM_SITUATION_WORKING & "') " &_
" AND WAREHOUSE_ID = '" & l_coId & "'),0)>=" & l_num & ")" & _
" OR " &_
"(S_T.DELIVERY_PLACE2 = '" & l_coId & "' AND " &_
"(NVL(S_T.NUM2,0)-" &_
"NVL((SELECT NVL(SUM(QUANTITY),0) FROM WORK_DATACLAIMORDER_T " &_
" WHERE LIST_CD ='" & l_listCd & "' " &_
" AND LIST_EDA = '" & l_listEda & "'" &_
" AND WAREHOUSE_ID = '" & l_coId & "'),0) - " &_
"NVL((SELECT NVL(SUM(QUANTITY),0) FROM DATACLAIMORDER_M " &_
" WHERE LIST_CD = '" & l_listCd & "' " &_
" AND LIST_EDA = '" & l_listEda & "' " &_
" AND DEL_FLG = '" & FLG_OFF & "' " &_
" AND CLAIM_SITUATION IN" &_
" ('" & CLM_SITUATION_UNSHIPPING & "'," &_
" '" & CLM_SITUATION_WAIT & "'," &_
" '" & CLM_SITUATION_WORKING & "') " &_
" AND WAREHOUSE_ID = '" & l_coId & "'),0))>=" & l_num & ")" & _
" OR " &_
"(S_T.DELIVERY_PLACE3 = '" & l_coId & "' AND " &_
"(NVL(S_T.NUM3,0)-" &_
"NVL((SELECT NVL(SUM(QUANTITY),0) FROM WORK_DATACLAIMORDER_T " &_
" WHERE LIST_CD ='" & l_listCd & "' " &_
" AND LIST_EDA = '" & l_listEda & "'" &_
" AND WAREHOUSE_ID = '" & l_coId & "'),0) - " &_
"NVL((SELECT NVL(SUM(QUANTITY),0) FROM DATACLAIMORDER_M " &_
" WHERE LIST_CD = '" & l_listCd & "' " &_
" AND LIST_EDA = '" & l_listEda & "' " &_
" AND DEL_FLG = '" & FLG_OFF & "' " &_
" AND CLAIM_SITUATION IN" &_
" ('" & CLM_SITUATION_UNSHIPPING & "'," &_
" '" & CLM_SITUATION_WAIT & "'," &_
" '" & CLM_SITUATION_WORKING & "') " &_
" AND WAREHOUSE_ID = '" & l_coId & "'),0))>=" & l_num & ")" & _
" )" &_
")" & _
" AND S_T.DEL_FLG <> '1'"
'Response.Write l_sql & "<br>"
Set l_recSet = l_dbaccess.ProcRecordset(l_sql,10,0)
'懚嵼偡傟偽True丄側偗傟偽False
If l_recSet.Fields.Item("COUNT(*)") <> 0 Then
CheckStock = True
End If
End Function
'/*******************************************************
'/* 嵟廔嵼屔僠僃僢僋乮捈愙拲暥惪媮帪乯
'/* param丗dbaccess(DBAccess) DB傾僋僙僗
'/* sysid(String) 僔僗僥儉ID
'/* l_listCd 挔昜斣崋
'/* l_listEda 挔昜巬斣
'/* l_coId 夛幮ID(儘僌僀儞夛幮ID)
'/* l_num 夋柺擖椡偟偨悢検
'/* l_receptno 庴晅斣崋
'/* return boolean True丗巜掕儗僐乕僪偑懚嵼偡傞丄False丗懚嵼偟側偄
'/*******************************************************
Public Function LastCheckStock(l_dbaccess, l_sysId, l_listCd, l_listEda, l_coId, l_num, l_receptno)
Dim l_recSet
Dim l_sql
LastCheckStock = False
'SQL暥惗惉
l_sql = "SELECT COUNT(*) FROM STOCK_T" & _
" WHERE SYSTEM_ID = '" & l_sysId & "'" & _
" AND LIST_CD = '" & l_listCd & "'" & _
" AND LIST_EDA = '" & l_listEda & "'" & _
" AND ((DELIVERY_PLACE1 = '" & l_coId & "' AND (NVL(NUM1,0)-NVL(RESERVE_STOCK_NUM1,0))>=" &_
l_num & ")" & _
" OR (DELIVERY_PLACE2 = '" & l_coId & "' AND (NVL(NUM2,0)-NVL(RESERVE_STOCK_NUM2,0))>=" &_
l_num & ")" & _
" OR (DELIVERY_PLACE3 = '" & l_coId & "' AND (NVL(NUM3,0)-NVL(RESERVE_STOCK_NUM3,0))>=" &_
l_num & ")) " & _
" AND DEL_FLG <> '1'"
'10/19
l_sql = "SELECT COUNT(*) " &_
" FROM STOCK_T S_T " & _
" WHERE S_T.SYSTEM_ID = '" & l_sysId & "'" & _
" AND S_T.LIST_CD = '" & l_listCd & "'" & _
" AND S_T.LIST_EDA = '" & l_listEda & "'" & _
" AND (" &_
"(S_T.DELIVERY_PLACE1 = '" & l_coId & "' AND "&_
"(NVL(S_T.NUM1,0)-" &_
"NVL((SELECT NVL(SUM(QUANTITY),0) FROM WORK_DATACLAIMORDER_T " &_
" WHERE LIST_CD ='" & l_listCd & "' " &_
" AND LIST_EDA = '" & l_listEda & "'" &_
" AND WAREHOUSE_ID = '" & l_coId & "' ),0) - " &_
"NVL((SELECT NVL(SUM(QUANTITY),0) FROM DATACLAIMORDER_M " &_
" WHERE LIST_CD = '" & l_listCd & "' " &_
" AND LIST_EDA = '" & l_listEda & "' " &_
" AND DEL_FLG = '" & FLG_OFF & "' " &_
" AND CLAIM_SITUATION IN" &_
" ('" & CLM_SITUATION_UNSHIPPING & "'," &_
" '" & CLM_SITUATION_WAIT & "'," &_
" '" & CLM_SITUATION_WORKING & "') " &_
" AND RECEPT_NO <> '" & l_receptno & "' " &_
" AND WAREHOUSE_ID = '" & l_coId & "'),0)>=" & l_num & ")" & _
" OR " &_
"(S_T.DELIVERY_PLACE2 = '" & l_coId & "' AND " &_
"(NVL(S_T.NUM2,0)-" &_
"NVL((SELECT NVL(SUM(QUANTITY),0) FROM WORK_DATACLAIMORDER_T " &_
" WHERE LIST_CD ='" & l_listCd & "' " &_
" AND LIST_EDA = '" & l_listEda & "'" &_
" AND WAREHOUSE_ID = '" & l_coId & "'),0) - " &_
"NVL((SELECT NVL(SUM(QUANTITY),0) FROM DATACLAIMORDER_M " &_
" WHERE LIST_CD = '" & l_listCd & "' " &_
" AND LIST_EDA = '" & l_listEda & "' " &_
" AND DEL_FLG = '" & FLG_OFF & "' " &_
" AND CLAIM_SITUATION IN" &_
" ('" & CLM_SITUATION_UNSHIPPING & "'," &_
" '" & CLM_SITUATION_WAIT & "'," &_
" '" & CLM_SITUATION_WORKING & "') " &_
" AND RECEPT_NO <> '" & l_receptno & "' " &_
" AND WAREHOUSE_ID = '" & l_coId & "'),0))>=" & l_num & ")" & _
" OR " &_
"(S_T.DELIVERY_PLACE3 = '" & l_coId & "' AND " &_
"(NVL(S_T.NUM3,0)-" &_
"NVL((SELECT NVL(SUM(QUANTITY),0) FROM WORK_DATACLAIMORDER_T " &_
" WHERE LIST_CD ='" & l_listCd & "' " &_
" AND LIST_EDA = '" & l_listEda & "'" &_
" AND WAREHOUSE_ID = '" & l_coId & "'),0) - " &_
"NVL((SELECT NVL(SUM(QUANTITY),0) FROM DATACLAIMORDER_M " &_
" WHERE LIST_CD = '" & l_listCd & "' " &_
" AND LIST_EDA = '" & l_listEda & "' " &_
" AND DEL_FLG = '" & FLG_OFF & "' " &_
" AND CLAIM_SITUATION IN" &_
" ('" & CLM_SITUATION_UNSHIPPING & "'," &_
" '" & CLM_SITUATION_WAIT & "'," &_
" '" & CLM_SITUATION_WORKING & "') " &_
" AND RECEPT_NO <> '" & l_receptno & "' " &_
" AND WAREHOUSE_ID = '" & l_coId & "'),0))>=" & l_num & ")" & _
" )" &_
")" & _
" AND S_T.DEL_FLG <> '1'"
'Response.Write l_sql & "<br>"
Set l_recSet = l_dbaccess.ProcRecordset(l_sql,10,0)
'懚嵼偡傟偽True丄側偗傟偽False
If l_recSet.Fields.Item("COUNT(*)") <> 0 Then
LastCheckStock = True
End If
End Function
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -