outlistmain.asp

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

<%
Class OutListMain
	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_olmdl				'専嶕忦審曐帩(OutListMdl)
	Dim l_olmas				'OutListMaster
	Dim l_sortSql			'僜乕僩SQL
	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_olmdl = New OutListMdl
		Set l_olmas = New OutListMaster

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

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_olmdl.l_sysId = Session("User").Item("SYSTEM_ID")	'僔僗僥儉ID
		l_olmdl.l_coId = Session("User").Item("COMPANY_ID")	'夛幮ID
		l_olmdl.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=""receptno"" maxlength=""8"" style=""width:80px;"" value=""" &_
				 l_olmdl.l_inReceptNo & """>" & l_CRLF &_
				 "<span class=""tyu_m"">仸敿妏悢帤</span></td>" & l_CRLF &_
				 " <td class=""txt_m"" align=""right"">&nbsp;</td>" & l_CRLF &_
				 "  <td class=""txt_m"">&nbsp;</td>" & l_CRLF &_
				 "</tr>" & 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_olmdl.l_inListCd & """>" & l_CRLF &_
				 "- " & l_CRLF &_
				 "<input type=""text"" name=""listeda"" maxlength=""2"" style=""width:30px;"" value=""" &_
				 l_olmdl.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_olmdl.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"" colspan=""3""> " & l_CRLF &_
				l_cmn.GetPullDown(l_db,CD_LEAVING_SITUATION,"situation",l_olmdl.l_inSituation,"1") &_
				 "  </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>" & l_CRLF &_
				 "</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=""02"">" & l_CRLF &_
				 "  <tr> " & l_CRLF &_
				 "<td class=""txt_m""> " & l_CRLF &_
				 "  <input type=""radio"" name=""pdoutday"" value=""1"""
		If l_olmdl.l_inRdoutDay = "1" Or l_olmdl.l_inRdoutDay = "" 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=""pdoutday"" value=""2"""
		If l_olmdl.l_inRdoutDay = "2" Then
			l_html = l_html & "checked"
		End If
		l_html = l_html & ">" & l_CRLF &_
				 "  偦偺懠</td>" & l_CRLF &_
				 "<td class=""txt_m""> " & l_CRLF &_
				  l_cmn.GetPdYear("pdoutfmfromyear",l_olmdl.l_inPdoutFromYear) &_
				 " 擭 " & l_CRLF &_
				  l_cmn.GetPdMonth("pdoutfmfrommonth",l_olmdl.l_inPdoutFromMonth) &_
				 "  寧 " & l_CRLF &_
				  l_cmn.GetPdDay("pdoutfmfromday",l_olmdl.l_inPdoutFromDay) &_
				 "  擔 乣 " & l_CRLF &_
				  l_cmn.GetPdYear("pdoutfmtoyear",l_olmdl.l_inPdoutToYear) &_
				 "  擭 " & l_CRLF &_
				  l_cmn.GetPdMonth("pdoutfmtomonth",l_olmdl.l_inPdoutToMonth) &_
				 "  寧 " & l_CRLF &_
				  l_cmn.GetPdDay("pdoutfmtoday",l_olmdl.l_inPdoutToDay) &_
				 "  擔 </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_olmdl.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")		'擖椡抣愝掕
		
		l_result = true
		'擖椡抣愝掕
		Call l_cmn.SetSearchInfoSession("WareSearchInfo")

		'夋柺昞帵偡傞専嶕忦審傪庢摼偡傞
		If IsObject(Session("WareSearchInfo")) Then

		'	l_olmdl.l_inListCd = Session("WareSearchInfo").Item("listcd")
			If Session("WareSearchInfo").Item("listcd") <> "" Then			'挔昜斣崋
				l_olmdl.l_inListCd = Replace(l_cutil.html_chg(l_basp,Session("WareSearchInfo").Item("listcd")),"""","&quot;")
			Else
				l_olmdl.l_inListCd = Session("WareSearchInfo").Item("listcd")
			End If
			l_olmdl.l_inListEda = Replace(l_cutil.html_chg(l_basp,Session("WareSearchInfo").Item("listeda")),"""","&quot;")			'挔昜斣崋巬斣
		'	l_olmdl.l_inReceptNo = Session("WareSearchInfo").Item("receptno")
			If Session("WareSearchInfo").Item("receptno") <> "" Then		'庴晅斣崋
				l_olmdl.l_inReceptNo = Replace(l_cutil.html_chg(l_basp,Session("WareSearchInfo").Item("receptno")),"""","&quot;")
			Else
				l_olmdl.l_inReceptNo = Session("WareSearchInfo").Item("receptno")
			End If

			l_olmdl.l_inListName = Session("WareSearchInfo").Item("listname")		'挔昜柤
			l_olmdl.l_inSituation = Session("WareSearchInfo").Item("situation")		'忬嫷
		'弌屔梊掕擔儔僕僆儃僞儞
			l_olmdl.l_inRdoutDay = Session("WareSearchInfo").Item("pdoutday")
		'弌屔梊掕擔(摉擔)
			l_olmdl.l_inToday = Date
		'弌屔梊掕擔(擭)FROM
			l_olmdl.l_inPdoutFromYear = Session("WareSearchInfo").Item("pdoutfmfromyear")	'弌屔梊掕擔(擭)FROM
			l_olmdl.l_inPdoutFromMonth = Session("WareSearchInfo").Item("pdoutfmfrommonth")	'弌屔梊掕擔(寧)FROM
			l_olmdl.l_inPdoutFromDay = Session("WareSearchInfo").Item("pdoutfmfromday")		'弌屔梊掕擔(擔)FROM
			l_olmdl.l_inPdoutToYear = Session("WareSearchInfo").Item("pdoutfmtoyear")		'弌屔梊掕擔(擭)TO
			l_olmdl.l_inPdoutToMonth = Session("WareSearchInfo").Item("pdoutfmtomonth")		'弌屔梊掕擔(寧)TO
			l_olmdl.l_inPdoutToDay = Session("WareSearchInfo").Item("pdoutfmtoday")			'弌屔梊掕擔(擔)TO
			l_olmdl.l_inWarehouse = Session("WareSearchInfo").Item("warehouse")				'憅屔夛幮
			l_olmdl.l_sortkey = Session("WareSearchInfo").Item("sortkey")			'僜乕僩僉乕
			l_olmdl.l_sortdesc = Session("WareSearchInfo").Item("sortdesc")			'僜乕僩弴
			'擖椡僠僃僢僋
			l_result = CheckInput
		Else
			l_result = True
			l_olmdl.l_sortkey = SORT_KEY1			'僜乕僩僉乕(嶌惉擔(搊榐擔)
			l_olmdl.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_olmas.SearchClaimList(l_db, l_olmdl.l_inWarehouse,l_olmdl, l_cutil)
				l_olmdl.l_WarehouseId = l_olmdl.l_inWarehouse
			Else
				'DB傛傝堦棗傪庢摼偡傞
				Set l_rs = l_olmas.SearchClaimList(l_db, l_olmdl.l_coId,l_olmdl, l_cutil)
				l_olmdl.l_WarehouseId = l_olmdl.l_coId
			End If

			'庢摼偟偨儗僐乕僪傪曇廤偡傞
			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 = l_rs.PageCount		'儁乕僕僒僀僘愝掕
			'l_rsRecordCount = l_rs.RecordCount	'儗僐乕僪審悢愝掕
			l_rsPageCount = Fix(l_retList.Count / MAXROW_OUT_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 EditRec(l_rs)
		Dim l_rec	'OutListMdl
		Set l_rec = New OutListMdl

		'挔昜斣崋
		l_rec.l_listCd = l_rs.Fields("LIST_CD")
		'挔昜巬斣
		l_rec.l_listEda = l_rs.Fields.Item("LIST_EDA")
		'挔昜斣崋(挔昜斣崋-挔昜斣崋巬斣)
		l_rec.l_listCdDsp = CStr(l_cutil.editCdEda(l_rs.Fields("LIST_CD"), l_rs.Fields.Item("LIST_EDA")))
		'庴晅斣崋
		l_rec.l_ReceptNo = l_rs.Fields.Item("RECEPT_NO")
		'挔昜柤
		l_rec.l_listName = l_rs.Fields.Item("LIST_NAME")

		'弌屔擔
		If Not IsNull(l_rs.Fields.Item("SEND_YMD")) Or _
			l_rs.Fields.Item("SEND_YMD") = "" Then
			l_rec.l_SendYmd = CStr(l_cutil.dtToStrYMD(l_rs.Fields.Item("SEND_YMD")))
		End If
		'悢検
		l_rec.l_Quantity = l_rs.Fields.Item("QUANTITY")
		'忬嫷(柤徧) 12/5 慡惪媮忬嫷仺惪媮忬嫷偵曄峏
		'l_rec.l_Situation = l_cmn.GetCodeName(l_db,CD_LEAVING_SITUATION,l_rs.Fields.Item("TOTAL_SITUATION"))
		'l_rec.l_Situation = l_cmn.GetCodeName(l_db,CD_LEAVING_SITUATION,l_rs.Fields.Item("CLAIM_SITUATION"))
		l_rec.l_Situation = l_rs.Fields.Item("CLAIM_SITUATION")
		Set EditRec = l_rec
	End Function

	'/********************************************
	'/* 専嶕忦審偵昞帵偡傞儗僐乕僪傪曇廤偡傞
	'/* param丗ADODB.Recordset 挔昜婎杮忣曬儗僐乕僪
	'/* return丗FormListMdl 曇廤寢壥