warestructmain.asp

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

<%
'/************************************
'/擖屔巜帵棜楌堦棗儊僀儞僋儔僗
'/************************************
Class WareStructMain
	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_flmdl				'専嶕忦審曐帩(FormListMdl)
	'Dim l_fmcmn
	Dim l_authListManage

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	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_flmdl 	= New FormListMdl

		Call l_cmn.SearchSession()

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

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_flmdl.l_sysId = Session("User").Item("SYSTEM_ID")	'僔僗僥儉ID
		l_flmdl.l_coId = Session("User").Item("COMPANY_ID")	'夛幮ID
		l_flmdl.l_userId = Session("User").Item("USER_ID")	'儐乕僓乕ID
		l_flmdl.l_secId = Session("User").Item("SECTION_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_lb	'FmListBaseMaster
		Dim l_rs  	'ADODB.Recordset
		Dim l_ma	'MenuAuthMaster
		Dim l_rsMa	'ADODB.Recordset
		Dim l_result
 
		'擖椡抣愝掕
		Call l_cmn.SetSearchInfoSession("SearchInfo")

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

		'夋柺昞帵偡傞専嶕忦審傪庢摼偡傞
		If IsObject(Session("SearchInfo")) Then
			l_flmdl.l_inRdoDeliveryYMD = Session("SearchInfo").Item("rdoDeliveryYMD") '擖屔梊掕擔
			l_flmdl.l_inPdFromYear = Session("SearchInfo").Item("pdfromyear")	'擖屔梊掕擔(擭)FROM
			l_flmdl.l_inPdFromMonth = Session("SearchInfo").Item("pdfrommonth")	'擖屔梊掕擔(寧)FROM
			l_flmdl.l_inPdFromDay = Session("SearchInfo").Item("pdfromday")		'擖屔梊掕擔(擔)FROM
			l_flmdl.l_inPdToYear = Session("SearchInfo").Item("pdtoyear")		'擖屔梊掕擔(擭)TO
			l_flmdl.l_inPdToMonth = Session("SearchInfo").Item("pdtomonth")		'擖屔梊掕擔(寧)TO
			l_flmdl.l_inPdToDay = Session("SearchInfo").Item("pdtoday")			'擖屔梊掕擔(擔)TO
			l_flmdl.l_inPddeliPlace = Session("SearchInfo").Item("pdDeliveryPlace")	'擺昳応強
			l_flmdl.l_sortkey = Session("SearchInfo").Item("sortkey")			'僜乕僩僉乕
			l_flmdl.l_sortdesc = Session("SearchInfo").Item("sortdesc")			'僜乕僩弴

			'擖椡僠僃僢僋
			l_result = CheckInput(l_flmdl)

		Else
			'l_flmdl.l_inPdListStatus = LSTS_DRAFT	'挔昜僗僥乕僞僗(壓彂偒)
			l_flmdl.l_sortkey = SORT_KEY1			'僜乕僩僉乕(嶌惉擔(搊榐擔)乯
			l_flmdl.l_sortdesc = FLG_ON				'僜乕僩弴(崀弴)
		End If

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

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

		If l_result Then

			'DB傛傝堦棗傪庢摼偡傞
			Set l_lb = New WareinMaster
			Set l_rs = l_lb.SearchListBase(l_db, l_cutil, l_flmdl.l_sysId, l_flmdl.l_coId, Session("SearchInfo"))

			'庢摼偟偨儗僐乕僪傪曇廤偡傞
			Dim l_retRec, l_cnt
			l_cnt = 0

			Do Until l_rs.eof
				Set l_retRec = EditRec(l_rs, l_authListManage)
				l_retList.add CStr(l_cnt), l_retRec
				l_cnt = l_cnt + 1
				l_rs.MoveNext
			Loop
		End If

		'儁乕僕惂屼梡偺僒僀僘丄審悢傪愝掕
		l_rsPageCount = Fix(l_retList.Count / MAXROW_FORM_LIST + 0.99)		'儁乕僕僒僀僘愝掕
		l_rsRecordCount = l_retList.Count	'儗僐乕僪審悢愝掕

		Set GetList = l_retList

	End Function

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

		'擖屔梊掕擔
		l_flmdl.l_srhRdoDeliveryYMD = l_flmdl.l_inRdoDeliveryYMD

		'2006/3/6擔晅昞帵廋惓
		'擖屔梊掕擔(FROM擔晅(yyyy/mm/dd)乣TO擔晅(yyyy/mm/dd))
		'l_fromymd = l_cutil.strToStrYMD(l_flmdl.l_inPdFromYear, l_flmdl.l_inPdFromMonth, l_flmdl.l_inPdFromDay)
		'l_toymd = l_cutil.strToStrYMD(l_flmdl.l_inPdToYear, l_flmdl.l_inPdToMonth, l_flmdl.l_inPdToDay)

		'l_flmdl.l_srhDeliYmdDsp = l_fromymd
		'If l_toymd <> "" Then	'TO擔晅偑擖椡偝傟偰偄偨傜"乣TO擔晅"傪昞帵
		'	l_flmdl.l_srhDeliYmdDsp = l_flmdl.l_srhDeliYmdDsp & "乣" & l_toymd
		'End If
		'If l_flmdl.l_srhDeliYmdDsp = "" Then
		'	l_flmdl.l_srhDeliYmdDsp = "巜掕側偟"
		'End If

		'擖屔梊掕擔(FROM擔晅(yyyy/mm/dd)乣TO擔晅(yyyy/mm/dd))
		If l_flmdl.l_inPdFromYear <> "" Or l_flmdl.l_inPdFromMonth <> "" Or l_flmdl.l_inPdFromDay <> "" Then
			l_fromymd = l_flmdl.l_inPdFromYear & "/" & l_flmdl.l_inPdFromMonth & "/" & l_flmdl.l_inPdFromDay
		End If

		If l_flmdl.l_inPdToYear <> "" Or l_flmdl.l_inPdToMonth <> "" Or l_flmdl.l_inPdToDay <> "" Then
			l_toymd = l_flmdl.l_inPdToYear & "/" & l_flmdl.l_inPdToMonth & "/" & l_flmdl.l_inPdToDay
		End If

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

		'擺昳応強
		l_flmdl.l_srhdeliPlace = l_flmdl.l_inPddeliPlace
		
	End Function

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

		'擖屔梊掕擔
		l_rec.l_DeliYmdDsp = CStr(l_cutil.dtToStrYMD(l_rs.Fields.Item("DELIVERY_YMD")))

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

		'敪拲娗棟斣崋
		l_rec.l_orderManageNo = l_rs.Fields("ORDER_MANAGE_NO")

		'擖屔悢
		l_rec.l_deliNum = l_rs.Fields.Item("DELIVERY_NUM")

		'擺昳応強
		l_rec.l_deliPlace = l_rs.Fields.Item("DELIVERY_PLACE")
		
		'挔昜柤
'		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
'			l_rec.l_secretFlg = FLG_OFF
'		End If

		Set EditRec = l_rec

	End Function

	'/********************************************
	'/* 僜乕僩帪偺俫俿俵俴儕儞僋庢摼
	'/* param丗String l_sortkey 僜乕僩僉乕
	'/* return丗String 俫俿俵俴暥帤楍