waredetailsmain.asp

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

<%
Class WareDetailsMain

Dim l_db
Dim l_cmn
Dim l_cimdl
Dim l_chutil

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		'DB僐僱僋僔儑儞庢摼
		Set l_db = New DbAccess
		Set l_cmn = New Common

		Call l_cmn.SearchSession
		Call l_db.ProcConnection(DSN, USERID, PASSWD)

		Set l_cimdl = New CompanyInfoMdl
		Set l_chutil = New CharUtil
		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_cimdl.l_SystemId = Session("User").Item("SYSTEM_ID")		'僔僗僥儉ID
		l_cimdl.l_CompanyId = Session("User").Item("COMPANY_ID")	'夛幮ID
		l_cimdl.l_UserName = Session("User").Item("NAME")			'儐乕僓柤

	End Function

	'/****************************************************************
	'/* 憅屔夛幮夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* return丗Scripting.Dictionary 昞帵儕僗僩(CompanyInfoMdl宆偺攝楍)
	'/****************************************************************
	Public Function GetList()
		Dim l_rs  		'ADODB.Recordset
		Dim l_cim
		Dim l_retList

		'DB傛傝忣曬庢摼
		Set l_cim = New CompanyInfoMaster
		Set l_rs = l_cim.SearchCompanyInfo(l_db,l_cimdl)

		If Request.Form("P1") <> "" Then
			l_cimdl.l_PostCode1 = Request.Form("postcode1")
			l_cimdl.l_PostCode2 = Request.Form("postcode2")
			l_cimdl.l_Prefecture = Request.Form("prefecture")
			l_cimdl.l_Town = Request.Form("town")
			l_cimdl.l_HouseNumber = Request.Form("House_Number")
			l_cimdl.l_Building = Request.Form("building")
			l_cimdl.l_CompanyName = Request.Form("companyname")
			l_cimdl.l_CompanyNameKana = Request.Form("companyname_kana")
			l_cimdl.l_SectionName = Request.Form("sectionname")
			l_cimdl.l_Person = Request.Form("person")
			l_cimdl.l_Tel = Request.Form("tel")
			l_cimdl.l_Fax = Request.Form("fax")
			l_cimdl.l_Mail = Request.Form("Mail")
			l_cimdl.l_ReMail = Request.Form("ReMail")
			l_cimdl.l_LoginId = Request.Form("loginId")
			l_cimdl.l_Password = Request.Form("password")

			Set GetList = l_cimdl
		Else
			'庢摼偟偨儗僐乕僪傪曇廤偡傞
			Set l_retList = EditRec(l_rs)

			Set GetList = l_retList
		End If
	End Function

	'/********************************************
	'/* 搊榐僨乕僞庢摼
	'/********************************************
	Public Function EditRec(l_rs)
		Dim l_Arraypost

		'忣曬庢摼
		l_Arraypost = Split(l_rs.Fields.Item("POSTCODE"),"-")
		l_cimdl.l_PostCode1 = l_Arraypost(0)
		l_cimdl.l_PostCode2 = l_Arraypost(1)

		l_cimdl.l_Prefecture = l_rs.Fields.Item("PREFECTURE")
		l_cimdl.l_Town = l_rs.Fields.Item("TOWN")
		l_cimdl.l_HouseNumber = l_rs.Fields.Item("HOUSE_NUMBER")
		l_cimdl.l_Building = l_rs.Fields.Item("BUILDING")
		l_cimdl.l_CompanyName = l_rs.Fields.Item("COMPANY_NAME")
		l_cimdl.l_CompanyNameKana = l_rs.Fields.Item("COMPANY_NAME_KANA")
		l_cimdl.l_SectionName = l_rs.Fields.Item("SECTION_NAME")
		l_cimdl.l_Person = l_rs.Fields.Item("PERSON")
		l_cimdl.l_Tel = l_rs.Fields.Item("TEL")
		l_cimdl.l_Fax = l_rs.Fields.Item("FAX")
		l_cimdl.l_Mail = l_rs.Fields.Item("MAIL")
		l_cimdl.l_ReMail = l_rs.Fields.Item("MAIL")
		l_cimdl.l_LoginId = l_rs.Fields.Item("LOGIN_ID")
		l_cimdl.l_Password = l_rs.Fields.Item("PASSWORD")

		Set EditRec = l_cimdl
	End Function


End Class

'/******************************************************
'/(徻嵶忣曬昞帵梡儗僐乕僪偺撪梕傪曐帩偡傞偨傔偺僋儔僗)
'/******************************************************
Class CompanyInfoMdl
	Dim l_SystemId
	Dim l_CompanyId
	Dim l_UserName

	'擖椡棑崁栚
	Dim l_PostCode1
	Dim l_PostCode2
	Dim l_PostCode
	Dim l_Prefecture
	Dim l_Town
	Dim l_HouseNumber
	Dim	l_Building
	Dim l_CompanyName
	Dim l_CompanyNameKana
	Dim	l_SectionName
	Dim l_Person
	Dim	l_Tel
	Dim l_Fax
	Dim l_Mail
	Dim l_ReMail
	Dim l_LoginId
	Dim l_Password
End Class
%>