inlistmain.asp

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

<%
Class InListMain
	Dim l_db				'DBAccess DB傾僋僙僗梡
	Dim l_cutil				'暥帤儐乕僥傿儕僥傿
	Dim l_chkUtil			'嫟捠僋儔僗(CheckUtil)
	Dim l_cmn				'嫟捠僋儔僗(Common)
	Dim l_pctrl				'PageControl(儁乕僕僐儞僩儘乕儖)
	Dim l_rsPageCount		'儁乕僕僒僀僘(儁乕僕惂屼梡)
	Dim l_rsRecordCount		'儗僐乕僪審悢(儁乕僕惂屼梡)
	Dim l_page				'尰嵼偺儁乕僕悢(儁乕僕惂屼梡)
	Dim l_ilmdl				'専嶕忦審曐帩(InListMdl)
	Dim l_lb				'ListBaseMaster
	Dim l_errarray(10)		'僄儔乕攝楍

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Set l_chkUtil = New CheckUtil
		Set l_cutil = New CharUtil
		Set l_cmn = New Common
		Set l_pctrl = New PageControl
		Set l_ilmdl = New InListMdl
		Set l_lb = New InListMaster

		Call l_cmn.SearchSession
		'DB僐僱僋僔儑儞庢摼
		Set l_db = New DbAccess
		Call l_db.ProcConnection(DSN, USERID, PASSWD)

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_ilmdl.l_sysId = Session("User").Item("SYSTEM_ID")	'僔僗僥儉ID
		l_ilmdl.l_coId = Session("User").Item("COMPANY_ID")	'夛幮ID

		l_ilmdl.l_userId = Session("User").Item("USER_ID")	'儐乕僓乕ID
		'尰嵼偺儁乕僕悢愝掕(僷儔儊乕僞偵儁乕僕偑側偗傟偽1傪愝掕)
		l_page = Request.QueryString("page")
		If l_page = "" Then
			l_page = 1
		End If

	End Function

	
	'/********************************************
	'/* 挔昜堦棗専嶕儃僢僋僗
	'/* param:
	'/* return丗html
	'/********************************************
	Public Function GetSearchListBox
		Dim l_html	'html
		Dim l_CRLF	'夵峴僐乕僪

		l_CRLF = Chr(13) & Chr(10) 

		l_html = "<table width=""608"" border=""0"" cellspacing=""2"" cellpadding=""2"">" & l_CRLF &_
				 "<tr> " & l_CRLF &_
				 "<td class=""txt_m"" align=""right"">挔昜斣崋</td>" & l_CRLF &_
				 "<td class=""txt_m""> " & l_CRLF &_
				 "<input type=""text"" name=""listcd"" maxlength=""12"" style=""width:90px;"" value=""" &_
				 l_ilmdl.l_inListCd & """>" & l_CRLF &_
				 "- " & l_CRLF &_
				 "<input type=""text"" name=""listeda"" maxlength=""2"" style=""width:30px;"" value=""" &_
				 l_ilmdl.l_inListEda & """>" & l_CRLF &_
				 "<br>" & l_CRLF &_
				 "<span class=""tyu_m"">仸敿妏塸悢帤</span> </td>" & l_CRLF &_
				 "<td class=""txt_m"" align=""right"">挔昜柤</td>" & l_CRLF &_
				 "<td class=""txt_m""> " & l_CRLF &_
				 "<input type=""text"" name=""listname"" maxlength=""50"" style=""width:200px;"" value=""" &_
				 l_ilmdl.l_inListName & """>" & l_CRLF &_
				 "<span class=""tyu_m""><br>" & l_CRLF &_
				 "仸慡妏暥帤</span></td>" & l_CRLF &_
				 "</tr>" & l_CRLF &_
				 "<tr> " & l_CRLF &_
				 "  <td class=""txt_m"" align=""right"">忬嫷</td>" & l_CRLF &_
				 "  <td class=""txt_m"">" & l_CRLF 
		'枹擺偵僠僃僢僋偑偁傞応崌
		If l_ilmdl.l_inCheckbox1 <> "" Then
			l_html = l_html & "<input type=""checkbox"" name=""checkbox"" value=""" &_
			OSTS_ORDER & """ checked>枹擺" & l_CRLF 
		Else
			l_html = l_html & "<input type=""checkbox"" name=""checkbox"" value=""" &_
			OSTS_ORDER & """>枹擺" & l_CRLF 
		End If

		'暘擺偵僠僃僢僋偑偁傞応崌
		If l_ilmdl.l_inCheckbox2 <> "" Then
			l_html = l_html & "<input type=""checkbox"" name=""checkbox"" value=""" &_
			OSTS_DELIVERY_INST & """ checked>暘擺" & l_CRLF 
		Else
			l_html = l_html & "<input type=""checkbox"" name=""checkbox"" value=""" &_
			OSTS_DELIVERY_INST & """>暘擺" & l_CRLF 
		End If

		'姰擺偵僠僃僢僋偑偁傞応崌
		If l_ilmdl.l_inCheckbox3 <> "" Then
			l_html = l_html & "<input type=""checkbox"" name=""checkbox"" value=""" &_
			OSTS_DELIVERY & "," & OSTS_DELIVERY_CONF & "," & OSTS_PAYMENT_CONF & "," & OSTS_PAYMENT_FIN &_
			""" checked>姰擺" & l_CRLF
		Else
			l_html = l_html & "<input type=""checkbox"" name=""checkbox"" value=""" &_
			OSTS_DELIVERY & "," & OSTS_DELIVERY_CONF & "," & OSTS_PAYMENT_CONF & "," & OSTS_PAYMENT_FIN &_
			""">姰擺" & l_CRLF 
		End If

		l_html = l_html & " </td>" & l_CRLF &_
				 "</tr>" & l_CRLF &_
				 "<tr> " & l_CRLF &_
				 " <td class=""txt_m"" align=""right"" colspan=""4"">" &_
				 "<img src=""../img/common/spacer.gif"" width=""1"" height=""2""></td>" &_
				 "</tr>" & l_CRLF &_
				 "<tr> " & l_CRLF &_
				 "  <td class=""txt_m"" align=""right"">擖屔梊掕擔</td>" & l_CRLF &_
				 "  <td class=""txt_m"" colspan=""3""> " & l_CRLF &_
				 "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"">" & l_CRLF &_
				 "  <tr> " & l_CRLF &_
				 "<td class=""txt_m""> " & l_CRLF &_
				 "  <input type=""radio"" name=""pdimday"" value=""1"" "
		If l_ilmdl.l_inRdimDay = "1" Or l_ilmdl.l_inRdimDay = "" Then
			l_html = l_html & "checked"
		End If
		l_html = l_html & ">" & l_CRLF &_
				 "  摉擔</td>" & l_CRLF &_
				 "<td class=""txt_m"">" & Date & "</td>" & l_CRLF &_
				 "  </tr>" & l_CRLF &_
				 "  <tr> " & l_CRLF &_
				 "<td class=""txt_m""> " & l_CRLF &_
				 "  <input type=""radio"" name=""pdimday"" value=""2"" "
		If l_ilmdl.l_inRdimDay = "2" Then
			l_html = l_html & "checked"
		End If
		l_html = l_html & ">" & l_CRLF &_
				 "  偦偺懠</td>" & l_CRLF &_
				 "<td class=""txt_m""> " &_
				l_cmn.GetPdYear("pdimfmfromyear",l_ilmdl.l_inPdimFromYear) &_
				 "  擭 " & l_CRLF &_
				l_cmn.GetPdMonth("pdimfmfrommonth",l_ilmdl.l_inPdimFromMonth) &_
				 "  寧 " & l_CRLF &_
				l_cmn.GetPdDay("pdimfmfromday",l_ilmdl.l_inPdimFromDay) &_
				 "  擔 乣 " & l_CRLF &_
				l_cmn.GetPdYear("pdimfmtoyear",l_ilmdl.l_inPdimToYear) &_
				 "  擭 " & l_CRLF &_
				l_cmn.GetPdMonth("pdimfmtomonth",l_ilmdl.l_inPdimToMonth) &_
				 "  寧 " & l_CRLF &_
				l_cmn.GetPdDay("pdimfmtoday",l_ilmdl.l_inPdimToDay) &_
				 "  擔 </td>" & l_CRLF &_
				 "  </tr>" & l_CRLF &_
				 "</table>" & l_CRLF &_
				 "  </td>" & l_CRLF &_
				 "</tr>" & l_CRLF &_
				 "<!--憅屔夛幮慖戰-->" & l_CRLF 
		
		'儘僌僀儞儐乕僓偑庢堷愭偺応崌
		If Request.Cookies("Comp")("CompKind") = "0" Then
			l_html = l_html & "<tr> " & l_CRLF &_
					 "  <td class=""txt_m"" align=""right"">憅屔夛幮慖戰</td>" & l_CRLF &_
					 "  <td class=""txt_m"" colspan=""3""> " & l_CRLF &_
					 l_cmn.GetCompanyPullDown(l_db,"2","warehouse",l_ilmdl.l_inWarehouse,"1","1") &_
					 "  </td>" & l_CRLF &_
					 "</tr>" & l_CRLF 

		End If
		l_html = l_html & "<!--憅屔夛幮慖戰廔椆-->" & l_CRLF &_
				 "<tr> " & l_CRLF &_
				 " <td class=""txt_m"" align=""right"">&nbsp;</td>" & l_CRLF &_
				 "  <td class=""txt_m"" colspan=""3""> " & l_CRLF &_
				 "<input type=""image"" name=""fsearch2"" border=""0"" src=""../img/common/button_search.gif"" width=""34"" height=""18"" alt=""挔昜専嶕"">" & l_CRLF &_
				 "  </td>" & l_CRLF &_
				 "</tr>" & l_CRLF &_
				 "  </table>" & l_CRLF 

		GetSearchListBox = l_html

	End Function

	'/********************************************
	'/* 挔昜堦棗夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* return丗Scripting.Dictionary 昞帵儕僗僩
	'/********************************************
	Public Function GetList()

		Dim l_rs  	'ADODB.Recordset
		Dim l_result
		Dim l_basp
		
		Set l_cutil = New CharUtil
		Set l_basp = Server.CreateObject("basp21")		'擖椡抣愝掕
		
		Call l_cmn.SetSearchInfoSession("WareSearchInfo")

		'夋柺昞帵偡傞専嶕忦審傪庢摼偡傞
		If IsObject(Session("WareSearchInfo")) Then
			l_ilmdl.l_inMenuListCd = Replace(l_cutil.html_chg(l_basp,Session("WareSearchInfo").Item("menulistcd")),"""","&quot;")		'儊僯儏乕挔昜斣崋
		'	l_ilmdl.l_inListCd = Session("WareSearchInfo").Item("listcd")				'挔昜斣崋
			'html僞僌曄姺
			If Session("WareSearchInfo").Item("listcd") <> "" Then
				l_ilmdl.l_inListCd = Replace(l_cutil.html_chg(l_basp,Session("WareSearchInfo").Item("listcd")),"""","&quot;")
			Else
				l_ilmdl.l_inListCd = Session("WareSearchInfo").Item("listcd")
			End If
			l_ilmdl.l_inListEda = Replace(l_cutil.html_chg(l_basp,Session("WareSearchInfo").Item("listeda")),"""","&quot;")				'挔昜斣崋巬斣
			l_ilmdl.l_inListName = Session("WareSearchInfo").Item("listname")			'挔昜柤
			l_ilmdl.l_inCheckbox = Session("WareSearchInfo").Item("checkbox")
		'僗僥乕僞僗
			l_ilmdl.l_inRdimDay = Session("WareSearchInfo").Item("pdimday")
		'擖屔梊掕擔儔僕僆儃僞儞
			l_ilmdl.l_inPdimFromYear = Session("WareSearchInfo").Item("pdimfmfromyear")
		'擖屔梊掕擔(擭)FROM
			l_ilmdl.l_inPdimFromMonth = Session("WareSearchInfo").Item("pdimfmfrommonth")	'擖屔梊掕擔(寧)FROM
			l_ilmdl.l_inPdimFromDay = Session("WareSearchInfo").Item("pdimfmfromday")		'擖屔梊掕擔(擔)FROM
			l_ilmdl.l_inPdimToYear = Session("WareSearchInfo").Item("pdimfmtoyear")		'擖屔梊掕擔(擭)TO
			l_ilmdl.l_inPdimToMonth = Session("WareSearchInfo").Item("pdimfmtomonth")		'擖屔梊掕擔(寧)TO
			l_ilmdl.l_inPdimToDay = Session("WareSearchInfo").Item("pdimfmtoday")			'擖屔梊掕擔(擔)TO
			l_ilmdl.l_inWarehouse = Session("WareSearchInfo").Item("warehouse")			'憅屔夛幮
			l_ilmdl.l_sortkey = Session("WareSearchInfo").Item("sortkey")				'僜乕僩僉乕
			l_ilmdl.l_sortdesc = Session("WareSearchInfo").Item("sortdesc")				'僜乕僩弴

			'擖椡僠僃僢僋
			l_result = CheckInput()
			'l_result = True
		Else
			l_result = True
			l_ilmdl.l_sortkey = SORT_KEY1			'僜乕僩僉乕(嶌惉擔(搊榐擔)
			l_ilmdl.l_sortdesc = FLG_ON				'僜乕僩弴(崀弴)
		End If

		Dim l_retList	'Scripting.Dictionary
		Set l_retList = CreateObject("Scripting.Dictionary")

		If l_result Then
			'専嶕忦審傪曇廤偡傞(堦棗忋晹偺専嶕忦審昞帵曇廤)
			Call EditHead

			'儘僌僀儞儐乕僓偑庢堷愭偺応崌
			If Request.Cookies("Comp")("CompKind") = "0" Then
				'DB傛傝堦棗傪庢摼偡傞
				Set l_rs = l_lb.SearchListBase(l_db, l_ilmdl.l_sysId, l_ilmdl.l_inWarehouse, Session("WareSearchInfo"))
			Else
				'DB傛傝堦棗傪庢摼偡傞
				Set l_rs = l_lb.SearchListBase(l_db, l_ilmdl.l_sysId, l_ilmdl.l_coId, Session("WareSearchInfo"))
			End If
			'儁乕僕惂屼梡偺僒僀僘丄審悢傪愝掕
			'l_rsPageCount = l_rs.PageCount		'儁乕僕僒僀僘愝掕
			'l_rsRecordCount = l_rs.RecordCount	'儗僐乕僪審悢愝掕

			'庢摼偟偨儗僐乕僪傪曇廤偡傞
			Dim l_retRec, l_cnt
			l_cnt = 0
			Do Until l_rs.eof
				Set l_retRec = EditRec(l_rs)
				l_retList.add CStr(l_cnt), l_retRec
				l_cnt = l_cnt + 1
				l_rs.MoveNext
			Loop
			'儁乕僕惂屼梡偺僒僀僘丄審悢傪愝掕
			l_rsPageCount = Fix(l_retList.Count / MAXROW_IN_LIST + 0.99)		'儁乕僕僒僀僘愝掕
			l_rsRecordCount = l_retList.Count	'儗僐乕僪審悢愝掕

		Else
			Call EditHead

		End If

		Set GetList = l_retList

	End Function

	'/********************************************
	'/* 専嶕忦審偵昞帵偡傞儗僐乕僪傪曇廤偡傞
	'/* param丗ADODB.Recordset 挔昜婎杮忣曬儗僐乕僪
	'/* return丗FormListMdl 曇廤寢壥
	'/********************************************
	Public Function EditHead()
		Dim l_fromymd
		Dim l_toymd
		'儊僯儏乕挔昜斣崋
		l_ilmdl.l_srhMenuListCd = l_ilmdl.l_inMenuListCd
		'挔昜斣崋
		l_ilmdl.l_srhListCdDsp = l_cutil.editCdEda(l_ilmdl.l_inListCd, l_ilmdl.l_inListEda)
		'挔昜柤
		l_ilmdl.l_srhListName = l_cutil.chg_HantoZen(l_ilmdl.l_inListName)
		'忬嫷柤徧
		If l_ilmdl.l_inCheckbox <> "" Then
			Dim l_ArraySituation
			l_ilmdl.l_srhSituation = EditStatusName(l_ilmdl.l_inCheckbox)
		End If
		'擖屔梊掕擔(FROM擔晅(yyyy/mm/dd)乣TO擔晅(yyyy/mm/dd))
		If l_ilmdl.l_inRdimDay = "1" Or l_ilmdl.l_inRdimDay = "" Then
			l_ilmdl.l_srhImportDsp = "擖屔梊掕擔丗摉擔"
		Else
			'2006/03/07丂擔晅庢摼曄峏
			'l_fromymd = l_cutil.strToStrYMD(l_ilmdl.l_inPdimFromYear, l_ilmdl.l_inPdimFromMonth, l_ilmdl.l_inPdimFromDay)
			'l_toymd = l_cutil.strToStrYMD(l_ilmdl.l_inPdimToYear, l_ilmdl.l_inPdimToMonth, l_ilmdl.l_inPdimToDay)
			If l_ilmdl.l_inPdimFromYear <> "" Or l_ilmdl.l_inPdimFromMonth <> "" Or l_ilmdl.l_inPdimFromDay <> "" Then
				l_fromymd = l_ilmdl.l_inPdimFromYear & "/" & l_ilmdl.l_inPdimFromMonth & "/" & l_ilmdl.l_inPdimFromDay
			End If
			If l_ilmdl.l_inPdimToYear <> "" Or l_ilmdl.l_inPdimToMonth <> "" Or l_ilmdl.l_inPdimToDay <> "" Then
				l_toymd = l_ilmdl.l_inPdimToYear & "/" & l_ilmdl.l_inPdimToMonth & "/" & l_ilmdl.l_inPdimToDay
			End If

			If l_fromymd <> "" And l_toymd <> "" Then
				l_ilmdl.l_srhImportDsp = "擖屔梊掕擔丗" & l_fromymd & "乣" & l_toymd
			Else
				If l_fromymd <> "" Then
					l_ilmdl.l_srhImportDsp = "擖屔梊掕擔(奐巒)丗" & l_fromymd 
				End If
				If l_toymd <> "" Then
					l_ilmdl.l_srhImportDsp = "擖屔梊掕擔(廔椆)丗" & l_toymd 
				End If
			End If
		End If

	End Function

	'/********************************************
	'/* 専嶕寢壥偵昞帵偡傞忬嫷傪曇廤偡傞
	'/* return丗l_name 曇廤寢壥
	'/********************************************
	Public Function EditStatusName(l_inchkb)
		Dim l_Arraycode
		Dim l_cnt
		Dim l_name

		l_inchkb = Replace(l_inchkb,"," & OSTS_DELIVERY_CONF, "")