formdetailsmain.asp

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

<%
'/*********************************************
'/帒椏惪媮嵟怴挔昜堦棗偺僥乕僽儖傾僋僙僗僋儔僗
'/*********************************************
Class FormDetailsMain
	
	Dim l_db	'DBAccess DB傾僋僙僗梡
	Dim l_sysId	'僔僗僥儉ID(String)
	Dim l_coId	'夛幮ID(String)
	Dim l_cmn	'Common
	Dim l_dlb	'DemListBaseMaster
	Dim l_inListCd 		'昞帵梡(挔昜僐乕僪)
	Dim l_inListEda 	'昞帵梡(挔昜巬斣)
	Dim l_inListName	'昞帵梡(挔昜柤)
	Dim l_inQuantity	'昞帵梡(悢検)
	Dim l_cutil	'暥帤楍儐乕僥傿儕僥傿
	Dim l_dchar	'暥帤楍曇廤

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Dim l_dbinfo 'String
		Dim l_charutil
		Dim l_basp

		Set l_cmn = New Common
		Set l_charutil = New CharUtil
		Set l_basp = Server.CreateObject("basp21")

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

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_sysId = Session("User").Item("SYSTEM_ID")	'僔僗僥儉ID
		l_coId = Session("User").Item("COMPANY_ID")	'夛幮ID
		l_inQuantity = Request.QueryString("quantity")
		If l_inQuantity <> "" Then
			l_inQuantity = Replace(l_charutil.html_chg(l_basp,l_inQuantity),"""","&quot;")
		End If
	End Function

	'/****************************************************************
	'/* 徻嵶忣曬夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* return丗Scripting.Dictionary 昞帵儕僗僩(DemandListMdl宆偺攝楍)
	'/****************************************************************
	Public Function GetList()

		Dim l_rs  	'ADODB.Recordset

		Set l_dlb = New DemListBaseMaster

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

		'DB傛傝堦棗傪庢摼偡傞
		Set l_rs = l_dlb.SearchFormDetails(l_db,Session("DemandSearchDetails"))
		'庢摼偟偨儗僐乕僪傪曇廤偡傞
		Dim l_retRec
		Set l_retRec = EditDetailsRec(l_rs)

		Set GetList = l_retRec

	End Function

	'/****************************************************************
	'/* 娭楢挔昜儗僐乕僪傪拪弌偡傞
	'/* return丗Scripting.Dictionary 昞帵儕僗僩(DemandListMdl宆偺攝楍)
	'/****************************************************************
	Public Function GetRelated(l_inList1,l_inList2,l_inList3,l_inList4,l_inList5,l_inList6)
		Dim l_rers	'ADODB.Recordset

		'DB傛傝堦棗傪庢摼偡傞
		Dim l_retList	'Dictionary
		Dim l_cnt
		Dim l_retRec

		Set l_retList = CreateObject("Scripting.Dictionary")
		l_cnt = 0
		If l_inList1 <> "" Then
			Set l_rers = l_dlb.SearchRelatedList(l_db,Session("DemandSearchDetails"),l_inList1)
			Set l_retRec = EditRelatedRec(l_rers)
			l_retList.add(l_cnt),l_retRec
			l_cnt=l_cnt+1
		End If
		If l_inList2 <> "" Then
			Set l_rers = l_dlb.SearchRelatedList(l_db,Session("DemandSearchDetails"),l_inList2)
			Set l_retRec = EditRelatedRec(l_rers)
			l_retList.add(l_cnt),l_retRec
			l_cnt=l_cnt+1
		End If
		If l_inList3 <> "" Then
			Set l_rers = l_dlb.SearchRelatedList(l_db,Session("DemandSearchDetails"),l_inList3)
			Set l_retRec = EditRelatedRec(l_rers)
			l_retList.add(l_cnt),l_retRec
			l_cnt=l_cnt+1
		End If
		If l_inList4 <> "" Then
			Set l_rers = l_dlb.SearchRelatedList(l_db,Session("DemandSearchDetails"),l_inList4)
			Set l_retRec = EditRelatedRec(l_rers)
			l_retList.add(l_cnt),l_retRec
			l_cnt=l_cnt+1
		End If
		If l_inList5 <> "" Then
			Set l_rers = l_dlb.SearchRelatedList(l_db,Session("DemandSearchDetails"),l_inList5)
			Set l_retRec = EditRelatedRec(l_rers)
			l_retList.add(l_cnt),l_retRec
			l_cnt=l_cnt+1
		End If
		If l_inList6 <> "" Then
			Set l_rers = l_dlb.SearchRelatedList(l_db,Session("DemandSearchDetails"),l_inList6)
			Set l_retRec = EditRelatedRec(l_rers)
			l_retList.add(l_cnt),l_retRec
		End If
		Set GetRelated = l_retList

	End Function

	'/********************************************
	'/* 徻嵶忣曬偵昞帵偡傞儗僐乕僪傪曇廤偡傞
	'/* param丗ADODB.Recordset 嵟怴挔昜忣曬儗僐乕僪
	'/* return丗DemandListMdl 曇廤寢壥
	'/********************************************
	Public Function EditDetailsRec(l_rs)
		Dim l_rec

		Set l_cutil = New CharUtil
		Set l_dchar = New DemandCharUtil
		Set l_rec = New FormDetailsMdl

		'挔昜柤
		l_rec.l_DemName = l_rs.Fields.Item("LIST_NAME")

		If l_rs.Fields.Item("OPEN_IMAGE_FLAG") = FLG_ON Then
			'僒儉僱僀儖
			l_rec.l_DemThumb = l_rs.Fields.Item("THUMBNAIL")
			'僀儊乕僕
			l_rec.l_DemImage = l_rs.Fields.Item("LISTIMAGE1")
		End If

		l_rec.l_DembgColor = l_cmn.GetCodeName(l_db, CD_CLASS1_COLOR, l_rs.Fields.Item("CLASS1"))
		'挔昜斣崋(挔昜斣崋-挔昜斣崋巬斣)
		l_rec.l_DemNo = l_cutil.editCdEda(l_rs.Fields.Item("LIST_CD"), l_rs.Fields.Item("LIST_EDA"))
		'暘椶侾
		l_rec.l_DemClass1 = l_cmn.GetCodeName(l_db, CD_CLASS1, l_rs.Fields.Item("CLASS1"))
		'暘椶俀
		l_rec.l_DemClass2 = l_cmn.GetCodeName(l_db, CD_CLASS2, l_rs.Fields.Item("CLASS2"))
		'暘椶俁
		l_rec.l_DemClass3 = l_cmn.GetCodeName(l_db, CD_CLASS3, l_rs.Fields.Item("CLASS3"))

		'僒僀僘
		l_rec.l_DemResultSize = l_rs.Fields.Item("RESULT_SIZE")
		'儁乕僕悢
		l_rec.l_DemPageCnt = l_dchar.editPageCnt(l_rs.Fields.Item("PAGE_COUNT"),l_cutil)	'擖傝悢
		'挔昜娗棟扨埵
		l_rec.l_DemListUnit = l_rs.Fields.Item("LIST_UNIT")
		l_rec.l_DemPackCnt = l_dchar.editPackCnt(l_rs.Fields.Item("PACKING_COUNT"),l_cutil)	'棙梡壜擻惂尷
		l_rec.l_DemLimit = l_dchar.editDetailLimit(l_rs.Fields.Item("USEPOSSIBLE_TERM_END"))
		'挔昜庬暿侾
		l_rec.l_DemListClass1 = l_cmn.GetCodeName(l_db, CD_LIST_CLASS1, l_rs.Fields.Item("LIST_CLASS1"))
		'曐娗婜娫侾
		If Not l_rs.Fields.Item("STORAGE_PERIOD1") = STR_PERIOD_OTHER Then
			l_rec.l_DemStorPeriod1 = l_cmn.GetCodeName(l_db, CD_STORAGE_PERIOD1, l_rs.Fields.Item("STORAGE_PERIOD1"))
		Else
			l_rec.l_DemStorPeriod1 = l_rs.Fields.Item("STORAGE_PERIOD_OTHER1")
		End If
		'杮幮曐懚応強侾
		l_rec.l_DemOfficeKeep1 = l_cmn.GetCodeName(l_db, CD_HEADOFFICE_KEEP1, l_rs.Fields.Item("HEADOFFICE_KEEP1"))
		'挔昜庬暿俀
		l_rec.l_DemListClass2 = l_cmn.GetCodeName(l_db, CD_LIST_CLASS2, l_rs.Fields.Item("LIST_CLASS2"))
		'曐娗婜娫俀
		If Not l_rs.Fields.Item("STORAGE_PERIOD2") = STR_PERIOD_OTHER Then
			l_rec.l_DemStorPeriod2 = l_cmn.GetCodeName(l_db, CD_STORAGE_PERIOD2, l_rs.Fields.Item("STORAGE_PERIOD2"))
		Else
			l_rec.l_DemStorPeriod2 = l_rs.Fields.Item("STORAGE_PERIOD_OTHER2")
		End If
		'杮幮曐懚応強俀
		l_rec.l_DemOfficeKeep2 = l_cmn.GetCodeName(l_db, CD_HEADOFFICE_KEEP2, l_rs.Fields.Item("HEADOFFICE_KEEP2"))
		'挔昜庬暿俁
		l_rec.l_DemListClass3 = l_cmn.GetCodeName(l_db, CD_LIST_CLASS3, l_rs.Fields.Item("LIST_CLASS3"))
		'曐娗婜娫俁
		If Not l_rs.Fields.Item("STORAGE_PERIOD3") = STR_PERIOD_OTHER Then
			l_rec.l_DemStorPeriod3 = l_cmn.GetCodeName(l_db, CD_STORAGE_PERIOD3, l_rs.Fields.Item("STORAGE_PERIOD3"))
		Else
			l_rec.l_DemStorPeriod3 = l_rs.Fields.Item("STORAGE_PERIOD_OTHER3")
		End If
		'杮幮曐懚応強俁
		l_rec.l_DemOfficeKeep3 = l_cmn.GetCodeName(l_db, CD_HEADOFFICE_KEEP3, l_rs.Fields.Item("HEADOFFICE_KEEP3"))
		'帒椏惪媮婜娫
		l_rec.l_DemClaimTerm = l_dchar.editClaimTerm(l_rs.Fields.Item("CLAIM_PERIOD_START2"), l_rs.Fields.Item("CLAIM_PERIOD_END2"))
		'媽挔昜斣崋侾
		l_rec.l_DemOldCd1 = l_rs.Fields.Item("LISTNUMBER_OLD1")
		'媽挔昜斣崋俀
		l_rec.l_DemOldCd2 = l_rs.Fields.Item("LISTNUMBER_OLD2")
		'媽挔昜斣崋俁
		l_rec.l_DemOldCd3 = l_rs.Fields.Item("LISTNUMBER_OLD3")
		'怴挔昜斣崋侾
		l_rec.l_DemNewCd1 = l_rs.Fields.Item("LISTNUMBER_NEW1")
		'怴挔昜斣崋俀
		l_rec.l_DemNewCd2 = l_rs.Fields.Item("LISTNUMBER_NEW2")
		'怴挔昜斣崋俁
		l_rec.l_DemNewCd3 = l_rs.Fields.Item("LISTNUMBER_NEW3")
		'帒椏惪媮旛峫
		l_rec.l_DemNote = l_rs.Fields.Item("DATACLAIM_NOTE")
		'娭楢挔昜侾(僨乕僞曐帩梡)
		l_rec.l_DemRList1 = l_rs.Fields.Item("RELATED_LIST1")
		'娭楢挔昜俀(僨乕僞曐帩梡)
		l_rec.l_DemRList2 = l_rs.Fields.Item("RELATED_LIST2")
		'娭楢挔昜俁(僨乕僞曐帩梡)
		l_rec.l_DemRList3 = l_rs.Fields.Item("RELATED_LIST3")
		'娭楢挔昜係(僨乕僞曐帩梡)
		l_rec.l_DemRList4 = l_rs.Fields.Item("RELATED_LIST4")
		'娭楢挔昜俆(僨乕僞曐帩梡)
		l_rec.l_DemRList5 = l_rs.Fields.Item("RELATED_LIST5")
		'娭楢挔昜俇(僨乕僞曐帩梡)
		l_rec.l_DemRList6 = l_rs.Fields.Item("RELATED_LIST6")
		'僇僥僑儕侾(僨乕僞曐帩梡)
		l_rec.l_DemCategory1 = l_rs.Fields.Item("CATEGORY1")
		'僇僥僑儕俀(僨乕僞曐帩梡)
		l_rec.l_DemCategory2 = l_rs.Fields.Item("CATEGORY2")
		'僇僥僑儕俁(僨乕僞曐帩梡)
		l_rec.l_DemCategory3 = l_rs.Fields.Item("CATEGORY3")
		'僇僥僑儕係(僨乕僞曐帩梡)
		l_rec.l_DemCategory4 = l_rs.Fields.Item("CATEGORY4")
		'僇僥僑儕俆(僨乕僞曐帩梡)
		l_rec.l_DemCategory5 = l_rs.Fields.Item("CATEGORY5")
		'挔昜娗棟斣崋(僨乕僞曐帩梡)
		l_rec.l_DemManage = l_rs.Fields.Item("LIST_MANAGE_NO")
		'挔昜斣崋(僨乕僞曐帩梡)
		l_rec.l_DemListCd = l_rs.Fields.Item("LIST_CD")
		'挔昜斣崋巬斣(僨乕僞曐帩梡)
		l_rec.l_DemListEda = l_rs.Fields.Item("LIST_EDA")
		'岞奐婜娫奐巒乮僨乕僞曐帩梡乯
		l_rec.l_DemOpenStart = l_rs.Fields.Item("OPEN_PERIOD_START")
		'帒椏惪媮婜娫奐巒(僨乕僞曐帩梡)
		l_rec.l_DemClaimStart = l_rs.Fields.Item("CLAIM_PERIOD_START")
		'帒椏惪媮婜娫廔椆(僨乕僞曐帩梡)
		l_rec.l_DemClaimEnd = l_rs.Fields.Item("CLAIM_PERIOD_END")
		'帒椏惪媮婜娫僼儔僌(僨乕僞曐帩梡)
		l_rec.l_DemClaimFlg = l_rs.Fields.Item("CLAIM_PERIOD_FLAG")

		Set EditDetailsRec = l_rec
	End Function

	'/********************************************
	'/* 昞帵偡傞娭楢挔昜儗僐乕僪傪曇廤偡傞
	'/* param丗ADODB.Recordset 挔昜忣曬儗僐乕僪
	'/* return丗DemandListMdl 曇廤寢壥
	'/********************************************
	Public Function EditRelatedRec(l_rers)
		Dim l_rec
		Dim l_temp1
		Dim l_temp2
		Set l_rec = New FormRelatedMdl

		If Not l_rers.Eof Then
			l_temp1 = l_rers.Fields.Item("LIST_CD")
			l_temp2 = l_rers.Fields.Item("LIST_EDA")
			'挔昜斣崋(挔昜斣崋-挔昜斣崋巬斣)
			l_rec.l_DemNo = l_cutil.editCdEda(l_temp1,l_temp2)
			l_rec.l_DemSpace = "丂"
			'挔昜柤
			l_rec.l_DemName = l_rers.Fields.Item("LIST_NAME")
			'挔昜娗棟斣崋(僨乕僞曐帩梡)
			l_rec.l_DemManage = l_rers.Fields.Item("LIST_MANAGE_NO")

		End If
		Set EditRelatedRec = l_rec
	End Function

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

End Class

'/******************************************************
'/(徻嵶忣曬昞帵梡儗僐乕僪偺撪梕傪曐帩偡傞偨傔偺僋儔僗)
'/******************************************************
Class FormDetailsMdl
	Dim l_DemManage		'挔昜娗棟斣崋(NUMBER)
	Dim l_DemName		'挔昜柤(VARCHAR2)
	Dim l_DembgColor	'挔昜柤攚宨怓
	Dim l_DemThumb		'岞奐夋憸THUMB(VARCHAR2)
	Dim l_DemImage		'岞奐夋憸IMG
	Dim l_DemNo			'挔昜No(CHAR)
	Dim l_DemClass1		'暘椶侾(VARCHAR2)
	Dim l_DemClass2		'暘椶俀
	Dim l_DemClass3		'暘椶俁
	Dim l_DemResultSize	'巇忋偘僒僀僘
	Dim l_DemPageCnt	'儁乕僕悢
	Dim l_DemPackCnt	'擖傝悢
	Dim l_DemListUnit	'挔昜娗棟扨埵
	Dim l_DemLimit		'棙梡壜擻惂尷
	Dim l_DemListClass1		'挔昜庬暿侾
	Dim l_DemStorPeriod1	'曐娗婜娫侾
	Dim l_DemOfficeKeep1	'杮幮曐懚応強侾
	Dim l_DemListClass2		'挔昜庬暿俀
	Dim l_DemStorPeriod2	'曐娗婜娫俀
	Dim l_DemOfficeKeep2	'杮幮曐懚応強俀
	Dim l_DemListClass3		'挔昜庬暿俁
	Dim l_DemStorPeriod3	'曐娗婜娫俁
	Dim l_DemOfficeKeep3	'杮幮曐懚応強俁
	Dim l_DemClaimTerm	'帒椏惪媮婜娫
	Dim l_DemOldCd1		'媽挔昜斣崋侾
	Dim l_DemOldCd2		'媽挔昜斣崋俀
	Dim l_DemOldCd3		'媽挔昜斣崋俁
	Dim l_DemNewCd1		'怴挔昜斣崋侾
	Dim l_DemNewCd2		'怴挔昜斣崋俀
	Dim l_DemNewCd3		'怴挔昜斣崋俁
	Dim l_DemNote		'帒椏惪媮旛峫
	Dim l_DemRList1		'娭楢挔昜侾
	Dim l_DemRList2		'娭楢挔昜俀
	Dim l_DemRList3		'娭楢挔昜俁
	Dim l_DemRList4		'娭楢挔昜係
	Dim l_DemRList5		'娭楢挔昜俆
	Dim l_DemRList6		'娭楢挔昜俇
	Dim l_DemCategory1	'僇僥僑儕侾
	Dim l_DemCategory2	'僇僥僑儕俀
	Dim l_DemCategory3	'僇僥僑儕俁
	Dim l_DemCategory4	'僇僥僑儕係
	Dim l_DemCategory5	'僇僥僑儕俆
	Dim l_DemListCd		'挔昜斣崋乮僨乕僞曐帩梡乯
	Dim l_DemListEda	'挔昜斣崋巬斣乮僨乕僞曐帩梡乯
	Dim l_DemOpenStart	'岞奐婜娫奐巒乮僨乕僞曐帩梡乯
	Dim l_DemClaimStart	'帒椏惪媮婜娫奐巒乮僨乕僞曐帩梡乯
	Dim l_DemClaimEnd	'帒椏惪媮婜娫廔椆乮僨乕僞曐帩梡乯
	Dim l_DemClaimFlg	'帒椏惪媮婜娫僼儔僌 (僨乕僞曐帩梡)
End Class

'/******************************************************
'/(徻嵶忣曬昞帵梡儗僐乕僪偺撪梕傪曐帩偡傞偨傔偺僋儔僗)
'/******************************************************
Class FormRelatedMdl
	Dim l_DemManage		'挔昜娗棟斣崋(NUMBER)
	Dim l_DemName		'挔昜柤(VARCHAR2)
	Dim l_DemNo			'挔昜No(CHAR)
	Dim l_DemSpace		'嬻敀僗儁乕僗
End Class
%>