formingupmain.asp

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

<%
Class FormingUpMain
	Dim l_db		'DbAccess
	Dim l_cmn		'Common
	Dim l_charu		'CharUtil
	Dim l_sysId
	Dim l_coId

	'/**************************************
	'/* 弶婜張棟
	'/**************************************
	Public Sub Init
		Set l_db = New DbAccess
		Set l_cmn = New Common
		Set l_charu = New CharUtil

		Call l_cmn.SearchSession()
		Call l_db.ProcConnection(DSN, USERID, PASSWD)
		l_sysId = Session("User").Item("SYSTEM_ID")
	'	l_coId = Session("User").Item("COMPANY_ID")
		l_coId = l_cmn.GetCustomerCompIdRec(l_db, l_sysId)
	End Sub


	'/*************************************
	'/廔椆張棟(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 FormingUpMdl
	Dim l_listcd		'挔昜僐乕僪
	Dim l_listeda		'挔昜巬斣
	Dim l_thumbnail		'僒儉僱僀儖
	Dim l_file1			'挔昜僀儊乕僕侾
	Dim l_file2			'挔昜僀儊乕僕俀
	Dim l_file3			'挔昜僀儊乕僕俁
	Dim l_file4			'挔昜僀儊乕僕係
	Dim l_file5			'挔昜僀儊乕僕俆
	Dim l_file6			'挔昜僀儊乕僕俇
	Dim l_file7			'挔昜僀儊乕僕俈
	Dim l_file8			'挔昜僀儊乕僕俉
	Dim l_thumbnaildb	'僒儉僱僀儖(DB搊榐梡)
	Dim l_file1db		'挔昜僀儊乕僕侾(DB搊榐梡)
	Dim l_file2db		'挔昜僀儊乕僕俀(DB搊榐梡)
	Dim l_file3db		'挔昜僀儊乕僕俁(DB搊榐梡)
	Dim l_file4db		'挔昜僀儊乕僕係(DB搊榐梡)
	Dim l_file5db		'挔昜僀儊乕僕俆(DB搊榐梡)
	Dim l_file6db		'挔昜僀儊乕僕俇(DB搊榐梡)
	Dim l_file7db		'挔昜僀儊乕僕俈(DB搊榐梡)
	Dim l_file8db		'挔昜僀儊乕僕俉(DB搊榐梡)
	Dim l_path			'僼傽僀儖僷僗
	Dim l_relatpath		'僼傽僀儖憡懳僷僗
End Class
%>