📄 outlistmain.asp
字号:
'/********************************************
Public Function EditHead()
Dim l_fromymd
Dim l_toymd
'挔昜斣崋
l_olmdl.l_srhListCdDsp = l_cutil.editCdEda(l_olmdl.l_inListCd, l_olmdl.l_inListEda)
'庴晅斣崋
l_olmdl.l_srhReceptNo = l_olmdl.l_inReceptNo
'挔昜柤
l_olmdl.l_srhListName = l_cutil.chg_HantoZen(l_olmdl.l_inListName)
'忬嫷柤徧
l_olmdl.l_srhSituation = l_cmn.GetCodeName(l_db,CD_LEAVING_SITUATION,l_olmdl.l_inSituation)
'弌屔梊掕擔(FROM擔晅(yyyy/mm/dd)乣TO擔晅(yyyy/mm/dd))
If l_olmdl.l_inRdoutDay = "2" Then
'2006/03/07丂擔晅庢摼曄峏
'l_fromymd = l_cutil.strToStrYMD(l_olmdl.l_inPdoutFromYear, l_olmdl.l_inPdoutFromMonth, l_olmdl.l_inPdoutFromDay)
'l_toymd = l_cutil.strToStrYMD(l_olmdl.l_inPdoutToYear, l_olmdl.l_inPdoutToMonth, l_olmdl.l_inPdoutToDay)
If l_olmdl.l_inPdoutFromYear <> "" Or l_olmdl.l_inPdoutFromMonth <> "" Or l_olmdl.l_inPdoutFromDay <> "" Then
l_fromymd = l_olmdl.l_inPdoutFromYear & "/" & l_olmdl.l_inPdoutFromMonth & "/" & l_olmdl.l_inPdoutFromDay
End If
If l_olmdl.l_inPdoutToYear <> "" Or l_olmdl.l_inPdoutToMonth <> "" Or l_olmdl.l_inPdoutToDay <> "" Then
l_toymd = l_olmdl.l_inPdoutToYear & "/" & l_olmdl.l_inPdoutToMonth & "/" & l_olmdl.l_inPdoutToDay
End If
If l_fromymd <> "" And l_toymd <> "" Then
l_olmdl.l_srhImportDsp = "弌屔梊掕擔丗" & l_fromymd & "乣" & l_toymd
Else
If l_fromymd <> "" Then
l_olmdl.l_srhImportDsp = "弌屔梊掕擔(奐巒)丗" & l_fromymd
End If
If l_toymd <> "" Then
l_olmdl.l_srhImportDsp = "弌屔梊掕擔(廔椆)丗" & l_toymd
End If
End If
Else
l_olmdl.l_srhImportDsp = "弌屔梊掕擔丗摉擔"
End If
End Function
'/********************************************
'/* 僜乕僩帪偺俫俿俵俴儕儞僋庢摼
'/* param丗String l_sortkey 僜乕僩僉乕
'/* return丗String 俫俿俵俴暥帤楍
'/********************************************
Public Function GetSortParmHtml(l_sortkey,l_oldSortDesc)
Dim l_retStr
Dim l_newSortDesc
'僜乕僩弴偺愝掕(徃弴佁崀弴愗傝懼偊)
If l_oldSortDesc = FLG_ON Then
l_newSortDesc = FLG_OFF '崀弴仺徃弴
Else
l_newSortDesc = FLG_ON '徃弴仺崀弴
End If
'僷儔儊乕僞亖僜乕僩僉乕丄専嶕忦審
l_retStr = "sessave=" & "2" &_
"&sortkey=" & l_sortkey &_
"&sortdesc=" & l_newSortDesc
GetSortParmHtml = l_retStr
End Function
'/********************************************
'/* 擖椡僠僃僢僋
'/* param丗l_mdl丂挔昜堦棗専嶕忦審曐帩梡僋儔僗
'/* return丗boolean
'/********************************************
Public Function CheckInput
Dim l_basp
Dim l_element
Dim l_startYMD
Dim l_endYMD
Set l_basp = Server.CreateObject("basp21")
l_endYMD = l_olmdl.l_inPdoutToYear & "/" &_
l_olmdl.l_inPdoutToMonth & "/" &_
l_olmdl.l_inPdoutToDay
CheckInput = true
l_element = 0
'庴晅斣崋
If l_chkUtil.number_chk(l_basp,l_olmdl.l_inReceptNo) = "0" Then
CheckInput = false
l_errarray(l_element) = IG11018E
l_element = l_element + 1
End If
'挔昜斣崋丄巬斣憡娭僠僃僢僋
If l_olmdl.l_inListCd = "" And l_olmdl.l_inListEda <> "" Then
CheckInput = false
l_errarray(l_element) = IG11022E
l_element = l_element + 1
End If
'挔昜斣崋僠僃僢僋
If Not l_chkUtil.IsNumericAlpha(l_olmdl.l_inListCd) Then
CheckInput = false
l_errarray(l_element) = IG11001E
l_element = l_element + 1
End If
'挔昜巬斣僠僃僢僋
If l_chkUtil.number_chk(l_basp,l_olmdl.l_inListEda) = "0" Then
CheckInput = false
l_errarray(l_element) = IG11021E
l_element = l_element + 1
End If
'20051107 捛壛
'挔昜柤慡妏曄姺
If l_olmdl.l_inListName <> "" Then
l_olmdl.l_inListName = l_cutil.chg_HantoZen(l_olmdl.l_inListName)
End If
'擔晅僠僃僢僋
If l_olmdl.l_inRdoutDay = "2" Then
'弌屔梊掕擔(奐巒)
If Not l_chkUtil.IsYMD(l_olmdl.l_inPdoutFromYear,_
l_olmdl.l_inPdoutFromMonth,_
l_olmdl.l_inPdoutFromDay) Then
CheckInput = false
l_errarray(l_element) = IG06014E
l_element = l_element + 1
Else
l_startYMD = l_cutil.strToStrYMD(l_olmdl.l_inPdoutFromYear,_
l_olmdl.l_inPdoutFromMonth,_
l_olmdl.l_inPdoutFromDay)
End If
'弌屔梊掕擔(廔椆)
If Not l_chkUtil.IsYMD(l_olmdl.l_inPdoutToYear,_
l_olmdl.l_inPdoutToMonth,_
l_olmdl.l_inPdoutToDay) Then
CheckInput = false
l_errarray(l_element) = IG06015E
l_element = l_element + 1
Else
l_endYMD = l_cutil.strToStrYMD(l_olmdl.l_inPdoutToYear,_
l_olmdl.l_inPdoutToMonth,_
l_olmdl.l_inPdoutToDay)
End If
'2005/12/12捛壛
'弌屔梊掕擔(奐巒偲廔椆)僠僃僢僋
' If l_startYMD <>"" & l_endYMD <>"" Then
' If l_startYMD > l_endYMD Then
' CheckInput = false
' l_errarray(l_element) = IG11106E
' l_element = l_element + 1
' End If
' End If
If l_olmdl.l_inPdoutFromYear <> "" And l_olmdl.l_inPdoutFromMonth <> "" And l_olmdl.l_inPdoutFromDay <> "" And _
l_olmdl.l_inPdoutToYear <> "" And l_olmdl.l_inPdoutToMonth <> "" And l_olmdl.l_inPdoutToDay <> "" Then
If l_olmdl.l_inPdoutFromYear & l_olmdl.l_inPdoutFromMonth & l_olmdl.l_inPdoutFromDay > _
l_olmdl.l_inPdoutToYear & l_olmdl.l_inPdoutToMonth & l_olmdl.l_inPdoutToDay Then
CheckInput = false
l_errarray(l_element) = IG11106E
l_element = l_element + 1
End If
End If
End If
End Function
'/*************************************
'/ 堦棗僿僢僟
'/ return:html
'/*************************************
Public Function ListHeadDsp
Dim l_html
Dim l_CRLF
Dim l_sortdsp
l_CRLF = Chr(13) & Chr(10)
'僜乕僩弴丂徃弴丗(仾)丂崀弴丗(伀)
If l_olmdl.l_sortdesc = FLG_ON Then
l_sortdsp = "(伀)"
Else
l_sortdsp = "(仾)"
End If
l_html = "<tr> " & l_CRLF &_
"<td class=""txt_m"" width=""80"" height=""20"" bgcolor=""#666666"" align=""center"">" &_
"<a href=""out_list.asp?" & GetSortParmHtml("2",l_olmdl.l_sortdesc) & """>" &_
"<font color=""#FFFFFF"">弌屔擔"
'弌屔擔偱僜乕僩偺応崌
If l_olmdl.l_sortkey = "2" Then
l_html = l_html & l_sortdsp
End If
l_html = l_html & "</font></a></td>" & l_CRLF &_
"<td class=""txt_m"" width=""80"" height=""20"" bgcolor=""#666666"" align=""center"">" &_
"<a href=""out_list.asp?" & GetSortParmHtml("3",l_olmdl.l_sortdesc) & """>" &_
"<font color=""#FFFFFF"">庴晅斣崋"
'庴晅斣崋偱僜乕僩偺応崌
If l_olmdl.l_sortkey = "3" Then
l_html = l_html & l_sortdsp
End If
l_html = l_html & "</font></a></td>" & l_CRLF &_
"<td class=""txt_m"" width=""100"" height=""20"" bgcolor=""#666666"" align=""center"">" &_
"<a href=""out_list.asp?" & GetSortParmHtml("4",l_olmdl.l_sortdesc) & """>" &_
"<font color=""#FFFFFF"">挔昜斣崋"
'挔昜斣崋偱僜乕僩偺応崌
If l_olmdl.l_sortkey = "4" Then
l_html = l_html & l_sortdsp
End If
l_html = l_html & "</font></a></td>" & l_CRLF &_
"<td class=""txt_m"" height=""20"" bgcolor=""#666666"" align=""center"">" &_
"<a href=""out_list.asp?" & GetSortParmHtml("5",l_olmdl.l_sortdesc) & """>" &_
"<font color=""#FFFFFF"">挔昜柤"
'挔昜柤偱僜乕僩偺応崌
If l_olmdl.l_sortkey = "5" Then
l_html = l_html & l_sortdsp
End If
l_html = l_html & "</font></a></td>" & l_CRLF &_
"<td class=""txt_m"" height=""20"" width=""100"" bgcolor=""#666666"" align=""center"">" &_
"<font color=""#FFFFFF"">挔昜忣曬</font></td>" & l_CRLF &_
"</tr>" & l_CRLF
ListHeadDsp = l_html
End Function
'/*************************************
'/廔椆張棟(DB愗抐)
'/*************************************
Public Sub Close
If IsObject(l_db.l_objADO_Rset) Then
Call l_db.CloseRecodeset
End If
If IsObject(l_db.l_objADO_Conn) Then
Call l_db.CloseConnection
End If
End Sub
End Class
'/************************************
'/挔昜堦棗専嶕忦審曐帩梡僋儔僗
'/************************************
Class OutListMdl
Dim l_sysId '僔僗僥儉ID(String)
Dim l_coId '夛幮ID(String)
Dim l_userId '儐乕僓乕ID(String)
Dim l_sortkey '僜乕僩僉乕
Dim l_sortdesc '僜乕僩弴
'専嶕忦審擖椡棑昞帵崁栚
Dim l_inListCd '挔昜僐乕僪(挔昜僐乕僪)
Dim l_inListEda '挔昜僐乕僪(挔昜巬斣)
Dim l_inReceptNo '庴晅斣崋
Dim l_inListName '挔昜柤
Dim l_inListStatusName '忬嫷柤徧
Dim l_inSituation '忬嫷
Dim l_inRdoutDay '擖椡棑梡(弌屔梊掕擔儔僕僆儃僞儞)
Dim l_inToday '擖椡棑梡(摉擔)
Dim l_inPdoutFromYear '擖椡棑梡(弌屔梊掕擔僾儖僟僂儞丒FROM擔晅(擭))
Dim l_inPdoutFromMonth '擖椡棑梡(弌屔梊掕擔僾儖僟僂儞丒FROM擔晅(寧))
Dim l_inPdoutFromDay '擖椡棑梡(弌屔梊掕擔僾儖僟僂儞丒FROM擔晅(擔))
Dim l_inPdoutToYear '擖椡棑梡(弌屔梊掕擔僾儖僟僂儞丒To擔晅(擭))
Dim l_inPdoutToMonth '擖椡棑梡(弌屔梊掕擔僾儖僟僂儞丒To擔晅(寧))
Dim l_inPdoutToDay '擖椡棑梡(弌屔梊掕擔僾儖僟僂儞丒To擔晅(擔))
Dim l_inWarehouse '憅屔夛幮ID
Dim l_WarehouseId '憅屔夛幮ID(徻嵶夋柺傊偺僷儔儊乕僞)
'専嶕忦審昞帵崁栚
Dim l_srhMenuListCd '儊僯儏乕挔昜僐乕僪
Dim l_srhListCdDsp '挔昜僐乕僪(挔昜僐乕僪-挔昜巬斣)
Dim l_srhReceptNo '庴晅斣崋
Dim l_srhListName '挔昜柤
Dim l_srhSituation '忬嫷柤徧
Dim l_srhImportDsp '弌屔梊掕擔(FROM擔晅乣TO擔晅)
'堦棗儗僐乕僪昞帵
Dim l_listCd '挔昜僐乕僪(徻嵶夋柺僷儔儊乕僞)
Dim l_listEda '挔昜巬斣(徻嵶夋柺僷儔儊乕僞)
Dim l_listCdDsp '儗僐乕僪昞帵梡(挔昜僐乕僪)
Dim l_listName '儗僐乕僪昞帵梡(挔昜柤)
Dim l_ReceptNo '儗僐乕僪昞帵梡(庴晅斣崋)
Dim l_SendYmd '儗僐乕僪昞帵梡(弌屔擔)
Dim l_Quantity '儗僐乕僪昞帵梡(悢検)
Dim l_Situation '儗僐乕僪昞帵梡(忬嫷)
Dim l_listCoId '(夛幮ID)
Dim l_listManageNo '(挔昜娗棟斣崋)
Dim l_orderManageNo '(敪拲娗棟斣崋)
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -