inlistmain.asp

印刷物の発注、在庫管理、出庫処理を一元管理

		l_inchkb = Replace(l_inchkb,"," & OSTS_PAYMENT_CONF, "")
		l_inchkb = Replace(l_inchkb,"," & OSTS_PAYMENT_FIN, "")

		'僠僃僢僋儃僞儞攝楍嶌惉
		l_Arraycode = Split(l_inchkb,", ")

		Redim l_Arrayname(UBound(l_Arraycode)+1)
		'柤慜攝楍嶌惉
		For l_cnt = 0 to UBound(l_Arraycode)

			l_Arrayname(l_cnt) = l_cmn.GetCodeName(l_db,CD_WAREHOUSE_SITUATION,l_Arraycode(l_cnt))

			If l_Arraycode(l_cnt) = OSTS_ORDER Then
				l_ilmdl.l_inCheckbox1 = "1"
			ElseIf l_Arraycode(l_cnt) = OSTS_DELIVERY_INST Then
				l_ilmdl.l_inCheckbox2 = "2"
			ElseIf l_Arraycode(l_cnt) = OSTS_DELIVERY Then
				l_ilmdl.l_inCheckbox3 = "3"
			End If
		Next

		'柤慜偺寢崌
		l_name = Join(l_Arrayname," ")
		EditStatusName = l_name
	End Function

	'/********************************************
	'/* 挔昜堦棗偵昞帵偡傞儗僐乕僪傪曇廤偡傞
	'/* param丗ADODB.Recordset 挔昜婎杮忣曬儗僐乕僪
	'/* return丗FormListMdl 曇廤寢壥
	'/********************************************
	Public Function EditRec(l_rs)
		Dim l_rec	'OutListMdl
		Set l_rec = New InListMdl

		'挔昜斣崋(挔昜斣崋-挔昜斣崋巬斣)
		l_rec.l_listCdDsp = CStr(l_cutil.editCdEda(l_rs.Fields("LIST_CD"), l_rs.Fields.Item("LIST_EDA")))
		'挔昜柤
		l_rec.l_listName = l_rs.Fields.Item("LIST_NAME")
		'挔昜娗棟扨埵
		l_rec.l_listUnit = l_rs.Fields.Item("LIST_UNIT")
		'擺昳梊掕擔/擺昳擔
		l_rec.l_DeliveryDate = l_rs.Fields.Item("DELIVERY_YMD")
		l_rec.l_AcceptDate = l_rs.Fields.Item("ACCEPT_YMD")
		'擺昳梊掕悢
		l_rec.l_Amount = l_rs.Fields.Item("DELIVERY_NUM")
		'擺昳悢
		l_rec.l_StoreNum = l_rs.Fields.Item("STORE_NUM")
		'報嶞
		l_rec.l_Print = l_rs.Fields.Item("COMPANY_NAME")
		'忬嫷(柤徧)
		'l_rec.l_Status = l_cmn.GetCodeName(l_db,CD_ORDER_STATUS,l_rs.Fields.Item("ORDER_STATUS"))
		l_rec.l_Status = l_rs.Fields.Item("ORDER_STATUS_NAME")
		Set EditRec = l_rec
	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_ilmdl.l_inPdimToYear & "/" &_
		'		   l_ilmdl.l_inPdimToMonth & "/" &_
		'		   l_ilmdl.l_inPdimToDay

		CheckInput = true
		l_element = 0

		'挔昜斣崋丄巬斣憡娭僠僃僢僋
		If l_ilmdl.l_inListCd = "" And l_ilmdl.l_inListEda <> "" Then
			CheckInput = false
			l_errarray(l_element) = IG11022E
			l_element = l_element + 1
		End If

		'挔昜斣崋僠僃僢僋
		If Not l_chkUtil.IsNumericAlpha(l_ilmdl.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_ilmdl.l_inListEda) = "0" Then
			CheckInput = false
			l_errarray(l_element) = IG11021E
			l_element = l_element + 1
		End If
		'20051107  捛壛
		'挔昜柤慡妏曄姺
		If l_ilmdl.l_inListName <> "" Then
			l_ilmdl.l_inListName = l_cutil.chg_HantoZen(l_ilmdl.l_inListName)
		End If

		'擔晅僠僃僢僋
		If l_ilmdl.l_inRdimDay = "2" Then
			'擖屔梊掕擔(奐巒)
			If Not l_chkUtil.IsYMD(l_ilmdl.l_inPdimFromYear,_
									l_ilmdl.l_inPdimFromMonth,_
									l_ilmdl.l_inPdimFromDay) Then
				CheckInput = false
				l_errarray(l_element) = IG11071E
				l_element = l_element + 1
			Else
				l_startYMD = l_cutil.strToStrYMD(l_ilmdl.l_inPdimFromYear,_
									l_ilmdl.l_inPdimFromMonth,_
									l_ilmdl.l_inPdimFromDay)
			End If
			'擖屔梊掕擔(廔椆)
			If Not l_chkUtil.IsYMD(l_ilmdl.l_inPdimToYear,_
									l_ilmdl.l_inPdimToMonth,_
									l_ilmdl.l_inPdimToDay) Then
				CheckInput = false
				l_errarray(l_element) = IG11072E
				l_element = l_element + 1
			Else
				l_endYMD = l_cutil.strToStrYMD(l_ilmdl.l_inPdimToYear,_
									l_ilmdl.l_inPdimToMonth,_
									l_ilmdl.l_inPdimToDay)
			End If
			'12/5捛壛
			'If l_startYMD <> "" And l_endYMD <> "" Then
			'	If DateDiff("d",l_startYMD,l_endYMD) < 0 Then
			'		CheckInput = false
			'		l_errarray(l_element) = "擖屔梊掕擔丂奐巒乣廔椆偺巜掕偑晄惓偱偡"
			'		l_element = l_element + 1
			'	End If
			'End If
			
			'2005/12/12捛壛
			'擖屔梊掕擔(奐巒偲廔椆)僠僃僢僋
		'	If l_startYMD <>"" & l_endYMD <>"" Then
		'		If l_startYMD > l_endYMD Then
		'			CheckInput = false
		'			l_errarray(l_element) = IG11105E
		'			l_element = l_element + 1
		'		End If
		'	End If
		
			If l_ilmdl.l_inPdimFromYear <> "" And l_ilmdl.l_inPdimFromMonth <> "" And l_ilmdl.l_inPdimFromDay <> "" And _
				l_ilmdl.l_inPdimToYear <> "" And l_ilmdl.l_inPdimToMonth <> "" And l_ilmdl.l_inPdimToDay <> "" Then
					If l_ilmdl.l_inPdimFromYear & l_ilmdl.l_inPdimFromMonth & l_ilmdl.l_inPdimFromDay > _
						l_ilmdl.l_inPdimToYear & l_ilmdl.l_inPdimToMonth & l_ilmdl.l_inPdimToDay Then
							CheckInput = false
							l_errarray(l_element) = IG11105E
							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_ilm.l_ilmdl.l_sortdesc = FLG_ON Then
			l_sortdsp = "(伀)"
		Else
			l_sortdsp = "(仾)"
		End If

		l_html = "<tr> " & l_CRLF &_
				 "<td class=""txt_m"" width=""100"" height=""20"" bgcolor=""#666666"" align=""center"">" &_
				 "<a href=""in_list.asp?" & GetSortParmHtml("2",l_ilmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">挔昜斣崋"
		'挔昜斣崋偱僜乕僩偺応崌
		If l_ilmdl.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"" height=""20"" bgcolor=""#666666"" align=""center"">" &_
				 "<a href=""in_list.asp?" & GetSortParmHtml("3",l_ilmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">挔昜柤"
		'挔昜柤偱僜乕僩偺応崌
		If l_ilmdl.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"" height=""20"" width=""100"" bgcolor=""#666666"" align=""center"">" &_
				 "<a href=""in_list.asp?" & GetSortParmHtml("4",l_ilmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">擺昳擔"
		'擺昳擔偱僜乕僩偺応崌
		If l_ilmdl.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"" width=""100"" bgcolor=""#666666"" align=""center"">" &_
				 "<a href=""in_list.asp?" & GetSortParmHtml("7",l_ilmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">擺昳悢"
		'擺昳悢偱僜乕僩偺応崌
		If l_ilmdl.l_sortkey = "7" Then
			l_html = l_html & l_sortdsp
		End If
		l_html = l_html & "</font></a>" &_
				"<font color=""#FFFFFF"">/</font>" &_
				"<a href=""in_list.asp?" & GetSortParmHtml("5",l_ilmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">梊掕悢"
		'梊掕悢偱僜乕僩偺応崌
		If l_ilmdl.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=""70"" bgcolor=""#666666"" align=""center"">" &_
				 "<a href=""in_list.asp?" & GetSortParmHtml("6",l_ilmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">忬嫷"
		'忬嫷偱僜乕僩偺応崌
		If l_ilmdl.l_sortkey = "6" Then
			l_html = l_html & l_sortdsp
		End If
		l_html = l_html & "</font></a></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 InListMdl
	Dim l_sysId				'僔僗僥儉ID(String)
	Dim l_coId				'夛幮ID(String)
	Dim l_userId			'儐乕僓乕ID(String)
	Dim l_sortkey			'僜乕僩僉乕
	Dim l_sortdesc			'僜乕僩弴

	'専嶕忦審擖椡棑昞帵崁栚
	Dim l_inMenuListCd		'儊僯儏乕挔昜僐乕僪
	Dim l_inListCd	 		'挔昜僐乕僪(挔昜僐乕僪)
	Dim l_inListEda	 		'挔昜僐乕僪(挔昜巬斣)
	Dim l_inListName		'挔昜柤
	Dim l_inListStatusName	'忬嫷柤徧
	Dim l_inCheckbox1			'僠僃僢僋儃僢僋僗1
	Dim l_inCheckbox2			'僠僃僢僋儃僢僋僗2
	Dim l_inCheckbox3			'僠僃僢僋儃僢僋僗3
	Dim l_inCheckbox
	Dim l_inRdimDay			'擖椡棑梡(擖屔梊掕擔儔僕僆儃僞儞)
	Dim l_inPdimFromYear 	'擖椡棑梡(擖屔梊掕擔僾儖僟僂儞丒FROM擔晅(擭))
	Dim l_inPdimFromMonth 	'擖椡棑梡(擖屔梊掕擔僾儖僟僂儞丒FROM擔晅(寧))
	Dim l_inPdimFromDay 	'擖椡棑梡(擖屔梊掕擔僾儖僟僂儞丒FROM擔晅(擔))
	Dim l_inPdimToYear		'擖椡棑梡(擖屔梊掕擔僾儖僟僂儞丒To擔晅(擭))
	Dim l_inPdimToMonth 	'擖椡棑梡(擖屔梊掕擔僾儖僟僂儞丒To擔晅(寧))
	Dim l_inPdimToDay	 	'擖椡棑梡(擖屔梊掕擔僾儖僟僂儞丒To擔晅(擔))
	Dim l_inWarehouse		'憅屔夛幮

	'専嶕忦審昞帵崁栚
	Dim l_srhMenuListCd		'儊僯儏乕挔昜僐乕僪
	Dim l_srhListCdDsp 		'挔昜僐乕僪(挔昜僐乕僪-挔昜巬斣)
	Dim l_srhListName		'挔昜柤
	Dim l_srhSituation		'忬嫷柤徧
	Dim l_srhImportDsp 		'擖屔梊掕擔(FROM擔晅乣TO擔晅)

	'堦棗儗僐乕僪昞帵
	Dim l_listCdDsp 		'儗僐乕僪昞帵梡(挔昜僐乕僪)
	Dim l_listName			'儗僐乕僪昞帵梡(挔昜柤)
	Dim l_listUnit			'儗僐乕僪昞帵梡(挔昜娗棟扨埵)
	Dim l_DeliveryDate		'儗僐乕僪昞帵梡(擺昳梊掕擔擔晅)
	Dim l_AcceptDate		'儗僐乕僪昞帵梡(擺昳擔擔晅)
	Dim l_Amount			'儗僐乕僪昞帵梡(擺昳梊掕悢)
	Dim l_StoreNum			'儗僐乕僪昞帵梡(擺昳悢)
	Dim l_Print				'儗僐乕僪昞帵梡(報嶞)
	Dim l_Status			'儗僐乕僪昞帵梡(忬嫷)

	Dim l_listCoId			'(夛幮ID)
	Dim l_listManageNo		'(挔昜娗棟斣崋)
	Dim l_orderManageNo		'(敪拲娗棟斣崋)
End Class
%>