formstocklistmain.asp

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

<%
'/************************************
'/嵼屔堦棗儊僀儞僋儔僗
'/************************************
Class FormStockListMain
	Dim l_db				'DBAccess DB傾僋僙僗梡
	Dim l_cutil				'暥帤儐乕僥傿儕僥傿
	Dim l_cmn				'嫟捠僋儔僗(Common)
	Dim l_pctrl				'PageControl(儁乕僕僐儞僩儘乕儖)
	Dim l_rsPageCount		'儁乕僕僒僀僘(儁乕僕惂屼梡)
	Dim l_rsRecordCount		'儗僐乕僪審悢(儁乕僕惂屼梡)
	Dim l_page				'尰嵼偺儁乕僕悢(儁乕僕惂屼梡)
	Dim l_fmmdl				'専嶕忦審丄拪弌僨乕僞曐帩(FormManageMdl)
	Dim l_chek
	Dim l_fmcmn
	Dim l_authListManage
	Dim l_basp

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Set l_cutil = New CharUtil
		Set l_cmn = New Common
		Set l_fmcmn = New FmCommon
		Set l_pctrl = New PageControl
		Set l_fmmdl = New FormManageMdl
		Set l_chek = New CheckUtil
		Set l_basp = Server.CreateObject("basp21")

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

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_fmmdl.l_sysId = Session("User").Item("SYSTEM_ID")	'僔僗僥儉ID
		l_fmmdl.l_coId = Session("User").Item("COMPANY_ID")	'夛幮ID
		l_fmmdl.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

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

		Dim l_stmst	'FmStockMaster
		Dim l_rs  	'ADODB.Recordset
		Dim l_retList	'Scripting.Dictionary

		Set l_retList = CreateObject("Scripting.Dictionary")

		'擖椡抣愝掕
		Call l_cmn.SetSearchInfoSession("FmSearchInfo")

		'娗棟尃尷傪庢摼偡傞("1"丗娗棟尃尷偁傝(塣梡娗棟尃尷偑偁傞応崌)丄"0"丗娗棟尃尷側偟)
		l_authListManage = l_fmcmn.GetMenuAuth()

		'夋柺昞帵偡傞専嶕忦審傪庢摼偡傞
		If IsObject(Session("FmSearchInfo")) Then
			'挔昜斣崋
			l_fmmdl.l_inListCd = Replace(l_cutil.html_chg(l_basp,Session("FmSearchInfo").Item("listcd")),"""","&quot;")
			'挔昜斣崋巬斣
			l_fmmdl.l_inListEda = Replace(l_cutil.html_chg(l_basp,Session("FmSearchInfo").Item("listeda")),"""","&quot;")
			'挔昜柤
			l_fmmdl.l_inListName = l_cutil.chg_HantoZen(Session("FmSearchInfo").Item("listname"))
			'僇僥僑儕
			l_fmmdl.l_inPdClass1 = Session("FmSearchInfo").Item("pdclass1")
			'庡娗晹
			l_fmmdl.l_inPdSel = Session("FmSearchInfo").Item("pdsel")
			'嵼屔忬嫷
			l_fmmdl.l_inChkStockStatus = Session("FmSearchInfo").Item("chkststatus")
			'僜乕僩僉乕
			l_fmmdl.l_sortkey = Session("FmSearchInfo").Item("sortkey")
			'僜乕僩弴
			l_fmmdl.l_sortdesc = Session("FmSearchInfo").Item("sortdesc")
		Else
			'敪拲揰愗傟,嬞媫敪拲揰愗傟
			l_fmmdl.l_inChkStockStatus = STSTS_ODR_POINT & "," & STSTS_URGODR_POINT
			l_fmmdl.l_sortkey = SORT_KEY1			'僜乕僩僉乕(嶌惉擔(搊榐擔)乯
			l_fmmdl.l_sortdesc = FLG_ON				'僜乕僩弴(崀弴)
		End If

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

		If CheckInManage Then
			'DB傛傝堦棗傪庢摼偡傞
			Set l_stmst = New FmStockMaster
			Set l_rs = l_stmst.SearchStockList(l_db, l_cutil, l_fmmdl.l_sysId, l_fmmdl.l_coId, Session("FmSearchInfo"))

			'庢摼偟偨儗僐乕僪傪曇廤偡傞
			Dim l_retRec
			Dim 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_STOCK_LIST + 0.99)		'儁乕僕僒僀僘愝掕
			l_RsRecordCount = l_retList.Count	'儗僐乕僪審悢愝掕
		End If

		Set GetList = l_retList

	End Function

	'/********************************************
	'/* 専嶕忦審偵昞帵偡傞儗僐乕僪傪曇廤偡傞
	'/* param丗ADODB.Recordset 挔昜婎杮忣曬儗僐乕僪
	'/* return丗FormListMdl 曇廤寢壥
	'/********************************************
	Public Function EditHead()
		Dim l_fromymd
		Dim l_toymd
		Dim l_checkboxArray

		'挔昜斣崋
		l_fmmdl.l_srhListCdDsp = l_cutil.editCdEda(l_fmmdl.l_inListCd, l_fmmdl.l_inListEda)
		'挔昜柤
		l_fmmdl.l_srhListName = l_fmmdl.l_inListName

		'僇僥僑儕柤徧
		l_fmmdl.l_srhCateoryName = l_cmn.GetCodeName(l_db, CD_CLASS1, l_fmmdl.l_inPdClass1)
		'庡娗晹栧柤徧
		l_fmmdl.l_srhSelName = l_cmn.GetSectionName(l_db, l_cmn.GetCustomerCompIdRec(l_db,l_fmmdl.l_sysId),l_fmmdl.l_inPdSel)
		'嵼屔忬嫷柤徧
		l_checkboxArray = Split(l_fmmdl.l_inChkStockStatus,",")
		Dim l_row
		For l_row = 0 To UBound(l_checkboxArray)
			l_fmmdl.l_srhStockStatusName = l_fmmdl.l_srhStockStatusName & l_cmn.GetCodeName(l_db, CD_STOCK_STATUS, Trim(l_checkboxArray(l_row))) & " "
		Next

	End Function

	'/********************************************
	'/* 嵼屔堦棗偵昞帵偡傞儗僐乕僪傪曇廤偡傞
	'/* param丗ADODB.Recordset 挔昜婎杮忣曬儗僐乕僪
	'/* return丗FormManageMdl 曇廤寢壥
	'/********************************************
	Public Function EditRec(l_rs)
		Dim l_rec				'FormManageMdl
		Set l_rec = New FormManageMdl
		Dim l_rsCodeRec 	'僐乕僪儅僗僞寢壥曐帩
		Dim l_listUnitName
		Dim l_dbSectionId

		'僥乕僽儖偺晹栧ID
		l_dbSectionId = l_rs.Fields.Item("SECTION_ID")

		'挔昜斣崋(挔昜斣崋-挔昜斣崋巬斣)
		l_rec.l_listCdDsp = CStr(l_cutil.editCdEda(l_rs.Fields("LIST_CD"), l_rs.Fields.Item("LIST_EDA")))

		'挔昜柤
		if l_rs.Fields("SECRET_FLG") = FLG_ON and l_rs.Fields.Item("SECRET_PASSWORD") <> "" _
		  and l_authListManage <> FLG_ON and l_dbSectionId <> Session("User").Item("SECTION_ID") Then
			'晹奜旈愝掕偺応崌(岞奐尃尷亖"1")偐偮丄娗棟尃尷偑側偄偐偮丄帺晹栧埲奜偺
			'挔昜柤偵[旕岞奐挔昜]偲昞帵
			l_rec.l_listName = SECRET_LIST_NAME
			l_rec.l_secretFlg = FLG_ON
		Else
			'偦傟埲奜偼挔昜婎杮忣曬僥乕僽儖偺挔昜柤傪昞帵
			If IsObject(l_rs.Fields.Item("LIST_NAME")) Then
				l_rec.l_listName = l_rs.Fields.Item("LIST_NAME")
			Else
				l_rec.l_listName = ""
			End If
		End If

		'嵼屔悢乛敪拲揰乽10,000晹乛8,000晹乿
'		l_listUnitName = l_cmn.GetCodeName(l_db, CD_LIST_UNIT, l_rs.Fields.Item("LIST_UNIT"))
		l_listUnitName = l_rs.Fields.Item("LIST_UNIT_NAME")
		l_rec.l_listStockNumDsp = l_rs.Fields.Item("STOCK_NUM") & l_listUnitName & "乛" & l_rs.Fields.Item("ORDER_POINT") & l_listUnitName

		'庡娗晹柤徧
		l_rec.l_sectionName = l_rs.Fields.Item("SECTION_NAME")
		'暘椶柤徧(挔昜婎杮忣曬.暘椶侾偺柤徧)
		l_rec.l_class1Dsp = l_rs.Fields.Item("CLASS1_NAME")
		'嵼屔忬嫷(嵼屔僥乕僽儖.嵼屔忬嫷偺柤徧)
		l_rec.l_stockStatusName = l_rs.Fields.Item("STOCK_STATUS_NAME")
		'挔昜娗棟斣崋
		l_rec.l_listManageNo = l_rs.Fields.Item("LIST_MANAGE_NO")

		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

	
	'/***************************************
	'/* 擖椡僠僃僢僋
	'/* return丗boolean
	'/***************************************
	Public Function CheckInManage
		Dim l_ErrArray(3)
		Dim l_element
		Dim l_Index


		l_element = 0

		CheckInManage = true

		'挔昜斣崋僠僃僢僋
		If Not l_chek.IsNumericAlpha(l_fmmdl.l_inListCd) Then
			l_ErrArray(l_element) = IG11001E
			l_element = l_element + 1
			CheckInManage = false
		End If

		'挔昜巬斣僠僃僢僋
		If l_chek.number_chk(l_basp,l_fmmdl.l_inListEda) = "0" Then
			l_ErrArray(l_element) = IG11021E
			l_element = l_element + 1
			CheckInManage = false
		End If

		'挔昜斣崋丄巬斣憡娭僠僃僢僋
		If l_fmmdl.l_inListEda <> "" And _
			(l_fmmdl.l_inListCd = "" Or _
			IsNull(l_fmmdl.l_inListCd)) Then
			l_ErrArray(l_element) = IG11022E
			l_element = l_element + 1
			CheckInManage = false
		End If

		ReDim l_ReErrArray(l_element)

		If Not CheckInManage Then
			For l_Index = 0 to l_element
				l_ReErrArray(l_Index) = l_ErrArray(l_Index)
			Next
			Session("ErrMsg") = l_ReErrArray
		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_fmmdl.l_sortdesc = FLG_ON Then
			l_sortdsp = "(伀)"
		Else
			l_sortdsp = "(仾)"
		End If

		l_html = "		<tr align=""center""> " & l_CRLF &_
				 "		  <td class=""txt_m"" width=""95"" height=""20"" bgcolor=""#28A4A0""><a href=""form_stocklist.asp?" & GetSortParmHtml("2",l_fmmdl.l_sortdesc) & """><font color=""#FFFFFF"">挔昜斣崋"

		'挔昜斣崋偱偺僜乕僩偺応崌
		If l_fmmdl.l_sortkey = SORT_KEY2 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=""#28A4A0""><a href=""form_stocklist.asp?" & GetSortParmHtml("3",l_fmmdl.l_sortdesc) & """><font color=""#FFFFFF"">挔昜柤"

		'挔昜柤偱偺僜乕僩偺応崌
		If l_fmmdl.l_sortkey = SORT_KEY3 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=""120"" bgcolor=""#28A4A0""><a href=""form_stocklist.asp?" & GetSortParmHtml("4",l_fm.l_fmmdl.l_sortdesc) & """><font color=""#FFFFFF"">嵼屔悢"

		'嵼屔悢偱偺僜乕僩偺応崌
		If l_fmmdl.l_sortkey = SORT_KEY4 Then
			l_html = l_html & l_sortdsp
		End If

		l_html = l_html & "</font><font color=""#FFFFFF"">乛</font><a href=""form_stocklist.asp?" & GetSortParmHtml("5",l_fm.l_fmmdl.l_sortdesc) & """><font color=""#FFFFFF"">敪拲揰"

		'敪拲揰偱偺僜乕僩偺応崌
		If l_fmmdl.l_sortkey = SORT_KEY5 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=""120"" bgcolor=""#28A4A0""><font color=""#FFFFFF"">挔昜忣曬</font></td>" & l_CRLF &_
				"        </tr>" & l_CRLF
		ListHeadDsp = l_html

	End Function
	'/********************************************
	'/* 僋儘乕僘
	'/********************************************
	Public Function Close
		Call l_db.CloseRecodeset
		Call l_db.CloseConnection
	End Function

End Class

'/************************************
'/嵼屔堦棗僨乕僞曐帩梡僋儔僗
'/************************************
Class FormManageMdl
	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_inListName		'擖椡棑梡(挔昜柤)
'	Dim l_inPdTemplate		'擖椡棑梡(僾儖僟僂儞丒僥儞僾儗乕僩)
	Dim l_inPdClass1		'擖椡棑梡(僾儖僟僂儞丒僇僥僑儕)
	Dim l_inPdSel			'擖椡棑梡(僾儖僟僂儞丒庡娗晹栧)
	Dim l_inChkStockStatus	'擖椡棑梡(嵼屔忬嫷)
	'専嶕忦審昞帵崁栚
	Dim l_srhListCdDsp 			'挔昜僐乕僪(挔昜僐乕僪-挔昜巬斣)
	Dim l_srhListName			'挔昜柤
'	Dim l_srhTemplateName		'僥儞僾儗乕僩柤
	Dim l_srhCateoryName		'僇僥僑儕乕柤
	Dim l_srhSelName			'晹彁柤徧
	Dim l_srhStockStatusName	'嵼屔忬嫷
	'堦棗儗僐乕僪昞帵
	Dim l_listCdDsp			'儗僐乕僪昞帵梡(挔昜僐乕僪)
	Dim l_listName			'儗僐乕僪昞帵梡(挔昜柤)
	Dim l_listStockNumDsp	'儗僐乕僪昞帵梡(嵼屔悢丒敪拲揰悢)
	Dim l_sectionName		'儗僐乕僪昞帵梡(庡娗晹柤徧)
	Dim l_stockStatusName	'儗僐乕僪昞帵梡(嵼屔忬嫷(嵼屔僥乕僽儖.嵼屔忬嫷偺柤徧)
	Dim l_class1Dsp			'儗僐乕僪昞帵梡(暘椶柤徧(挔昜婎杮忣曬.暘椶侾偺柤徧))
	Dim l_listCd			'儗僐乕僪昞帵梡(挔昜斣崋乯
	Dim l_listEda			'儗僐乕僪昞帵梡(挔昜斣崋巬斣)
	Dim l_listManageNo		'儗僐乕僪昞帵梡(挔昜娗棟斣崋)
'	Dim l_orderId			'儗僐乕僪昞帵梡(敪拲斣崋)
'	Dim l_secretFlg			'儗僐乕僪昞帵梡(晹奜旈愝掕)
End Class

%>