outdetailsmain.asp

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

<%
Class OutDetailsMain
	Dim l_db				'DBAccess DB傾僋僙僗梡
	Dim l_cutil				'暥帤儐乕僥傿儕僥傿
	Dim l_chkUtil			'嫟捠僋儔僗(CheckUtil)
	Dim l_cmn				'嫟捠僋儔僗(Common)
	Dim l_odmdl				'徻嵶忣曬僋儔僗
	Dim l_olmas				'OutListMaster僋儔僗

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Set l_chkUtil = New CheckUtil
		Set l_cutil = New CharUtil
		Set l_cmn = New Common
		Set l_odmdl = New OutDetailsMdl
		Set l_olmas = New OutListMaster

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

		l_odmdl.l_sysId = Session("User").Item("SYSTEM_ID")
		'l_odmdl.l_coId = Session("User").Item("COMPANY_ID")
		l_odmdl.l_coId = Request.QueryString("P2")
		l_odmdl.l_receptNo = Request.QueryString("P1")
		
	End Function

	'/*************************************
	'/* 挔昜忣曬庢摼
	'/* param丗
	'/*************************************
	Public Function GetListDetails
		Dim l_rset
		Dim l_quantityset

		Set l_rset = l_olmas.GetListDetailsRec(l_db,l_odmdl)
		If Not l_rset.Eof Then
			Call EditRec(l_rset)
			
		End If	
	End Function

	'/*************************************
	'/* 庴晅忣曬僙僢僩
	'/* param丗l_rset
	'/*************************************
	Public Sub EditRec(l_rset)
		l_odmdl.l_companyId = l_rset.Fields.Item("COMPANY_ID")				'埶棅幰夛幮ID
		l_odmdl.l_sectionId	= l_rset.Fields.Item("SECTION_ID")				'埶棅幰晹栧ID
		l_odmdl.l_userId = l_rset.Fields.Item("USER_ID")					'埶棅幰儐乕僓ID
		l_odmdl.l_sendYMD = l_rset.Fields.Item("SEND_YMD")					'弌屔擔
		l_odmdl.l_situation = l_rset.Fields.Item("TOTAL_SITUATION")			'慡惪媮忬嫷(僐乕僪)
		l_odmdl.l_situationname = l_rset.Fields.Item("SITUATION_NAME")		'慡惪媮忬嫷
'		l_odmdl.l_sectionname = l_rset.Fields.Item("CLAIM_SECTION_NAME")	'埶棅幰晹栧柤
'		l_odmdl.l_person = l_rset.Fields.Item("USER_NAME")					'埶棅幰柤
		l_odmdl.l_deliveryKind = l_rset.Fields.Item("DELIVERY_KIND")		'攝憲愭庬暿
		l_odmdl.l_delicompanyName = l_rset.Fields.Item("COMPANY_NAME")		'攝憲愭夛幮柤
		l_odmdl.l_delisecName = l_rset.Fields.Item("SECTION_NAME")			'攝憲愭晹栧柤
		l_odmdl.l_receiveName = l_rset.Fields.Item("RECEIVE_NAME")			'埶棅幰柤
		l_odmdl.l_deliPostCode = l_rset.Fields.Item("POSTCODE")				'攝憲愭梄曋斣崋
		l_odmdl.l_deliPrefecture = l_rset.Fields.Item("PREFECTURE")			'攝憲愭搒摴晎導
		l_odmdl.l_deliTown = l_rset.Fields.Item("TOWN")						'攝憲愭巗嬫孲挰懞
		l_odmdl.l_deliHouseNumber = l_rset.Fields.Item("HOUSE_NUMBER")		'攝憲愭斣抧
		l_odmdl.l_deliBuilding = l_rset.Fields.Item("BUILDING")				'攝憲愭價儖柤
		l_odmdl.l_deliTel = l_rset.Fields.Item("TEL")						'攝憲愭揹榖
		l_odmdl.l_deliFax = l_rset.Fields.Item("FAX")						'攝憲愭FAX
		l_odmdl.l_delinote = l_rset.Fields.Item("NOTE")						'攝憲愭旛峫
		l_odmdl.l_claimMethod = l_rset.Fields.Item("CLAIM_METHOD")			'惪媮曽朄

	End Sub

	'/*************************************
	'/* 弌屔忣曬庢摼
	'/* param丗
	'/*************************************
	Public Function GetDeliInfo
		Dim l_rset
		Dim l_retRec
		Dim l_cnt
		Dim l_retList

		Set l_retList = CreateObject("Scripting.Dictionary")
		Set l_rset = l_olmas.GetDeliInfoRec(l_db,l_odmdl)
		l_cnt = 0
		Do Until l_rset.Eof
			Set l_retRec = EditDeliRec(l_rset)
			l_retList.add CStr(l_cnt), l_retRec
			l_cnt = l_cnt + 1
			l_rset.MoveNext
		Loop
		Set GetDeliInfo = l_retList
	End Function

	'/*************************************
	'/* 挔昜忣曬僙僢僩
	'/* param丗l_rset
	'/*************************************
	Public Function EditDeliRec(l_rset)
		Dim l_mdl

		Set l_mdl = New OutDetailsMdl

		l_mdl.l_listCd = l_rset.Fields.Item("LIST_CD")							'挔昜斣崋
		l_mdl.l_listEda = l_rset.Fields.Item("LIST_EDA")						'挔昜巬斣
		l_mdl.l_listCdDsp = l_cutil.editCdEda(l_mdl.l_listCd,l_mdl.l_listEda)	'挔昜斣崋-挔昜巬斣
		l_mdl.l_listName = l_rset.Fields.Item("LIST_NAME")						'挔昜柤
		l_mdl.l_quantity = l_rset.Fields.Item("QUANTITY")						'悢検
		l_mdl.l_claimsituation = l_rset.Fields.Item("CLAIM_SITUATIONNAME")		'惪媮忬嫷
		Set EditDeliRec = l_mdl
	End Function

	'/*************************************
	'/* 埶棅尦庢摼
	'/* param
	'/*************************************
	Public Function GetClaim
		Dim l_rset

		Set l_rset = l_olmas.GetClaimRec(l_db,l_odmdl)
		
		If Not l_rset.Eof Then
			l_odmdl.l_clmPostCode = l_rset.Fields.Item("POSTCODE")			'埶棅尦梄曋斣崋
			l_odmdl.l_clmPrefecture = l_rset.Fields.Item("PREFECTURE")		'埶棅尦搒摴晎導
			l_odmdl.l_clmTown = l_rset.Fields.Item("TOWN")					'埶棅尦巗嬫孲挰懞
			l_odmdl.l_clmHouseNumber = l_rset.Fields.Item("HOUSE_NUMBER")	'埶棅尦斣抧
			l_odmdl.l_clmBuilding = l_rset.Fields.Item("BUILDING")			'埶棅尦價儖柤
			l_odmdl.l_clmCompName = l_rset.Fields.Item("COMPANY_NAME")		'埶棅尦夛幮柤
			l_odmdl.l_clmTel = l_rset.Fields.Item("TEL")					'埶棅尦揹榖
			l_odmdl.l_clmFax = l_rset.Fields.Item("FAX")					'埶棅尦FAX
			l_odmdl.l_clmMail = l_rset.Fields.Item("MAIL")					'埶棅尦儊乕儖
			l_odmdl.l_sectionname = l_rset.Fields.Item("SECTION_NAME")		'埶棅幰晹栧柤
			l_odmdl.l_person = l_rset.Fields.Item("NAME")					'埶棅幰柤
		End If
	End Function

	'/*************************************
	'/廔椆張棟(DB愗抐)
	'/*************************************
	Public Sub Close
		If IsObject(l_db.l_objADO_Rset) Then
			Call l_db.CloseRecodeset
		End If
		If IsObject(l_db.l_objADO_Conn) Then
			Call l_db.CloseConnection
		End If
	End Sub	
End Class

Class OutDetailsMdl
	'挔昜忣曬
	Dim l_sysId				'僔僗僥儉ID
	Dim l_coId				'夛幮ID
	Dim l_companyId			'惪媮幰夛幮ID
	Dim l_sectionId			'惪媮愭晹栧ID
	Dim l_userId			'惪媮愭儐乕僓ID
	Dim l_sendYMD			'弌屔擔
	Dim l_receptNo			'庴晅斣崋
	Dim l_situation			'忬嫷(僐乕僪)
	Dim l_situationname		'忬嫷
	Dim l_sectionname		'怽惪幰晹栧柤
	Dim l_person			'怽惪幰

	'弌屔忣曬
	Dim l_listCd			'挔昜斣崋
	Dim l_listEda			'挔昜巬斣
	Dim l_listCdDsp			'挔昜斣崋(仜仜仜仜-仜仜)
	Dim l_listName			'挔昜柤
	Dim l_quantity			'悢検
	Dim l_claimsituation	'惪媮忬嫷

	'埶棅尦忣曬
	Dim l_clmCompName		'埶棅尦夛幮柤
	Dim l_clmPostCode		'埶棅尦梄曋斣崋
	Dim l_clmPrefecture		'埶棅尦搒摴晎導
	Dim l_clmTown			'埶棅尦巗嬫孲挰懞
	Dim l_clmHouseNumber	'埶棅尦斣抧
	Dim l_clmBuilding		'埶棅尦價儖柤
	Dim l_clmTel			'埶棅尦揹榖
	Dim l_clmFax			'埶棅尦FAX
	Dim l_clmMail			'埶棅尦儊乕儖

	'攝憲愭忣曬
	Dim l_deliveryKind		'攝憲愭庬暿
	Dim l_delicompanyName	'攝憲愭夛幮柤
	Dim l_delisecName		'攝憲愭晹栧柤
	Dim l_receiveName		'攝憲愭埶棅尦柤
	Dim l_deliPostCode		'攝憲愭梄曋斣崋
	Dim l_deliPrefecture	'攝憲愭搒摴晎導
	Dim l_deliTown			'攝憲愭巗嬫孲挰懞
	Dim l_deliHouseNumber	'攝憲愭斣抧
	Dim l_deliBuilding		'攝憲愭價儖柤
	Dim l_deliTel			'攝憲愭揹榖
	Dim l_deliFax			'攝憲愭FAX
	Dim l_deliNote			'攝憲愭旛峫

	Dim l_claimMethod		'惪媮曽朄
End Class
%>