initordermain.asp

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

<%
Class InitOrderMain

	Dim l_inListCd(10)
	Dim l_inListEda(10)
	Dim l_inQuant(10)

	'/********************************************
	'/* 擖椡僨乕僞曐帩
	'/********************************************
	Public Function GetData()
		Dim l_count
		Dim l_workcd
		Dim l_workeda
		Dim l_workquant

		If IsArray(Session("InitOrderListCd")) Then
			l_workcd = Session("InitOrderListCd")
			For l_count = 0 to 9
				l_inListCd(l_count) = l_workcd(l_count)
			Next
		End If
		If IsArray(Session("InitOrderListEda")) Then
			l_workeda = Session("InitOrderListEda")
			For l_count = 0 to 9
				l_inListEda(l_count) = l_workeda(l_count)
			Next
		End If
		If IsArray(Session("InitOrderQuant")) Then
			l_workquant = Session("InitOrderQuant")
			For l_count = 0 to 9
				l_inQuant(l_count) = l_workquant(l_count)
			Next
		End If
	End Function
End Class
%>