companyinfomaster.asp

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

<%
Class CompanyInfoMaster

	'/*******************************************************
	'/* 憅屔夛幮偺夛幮忣曬偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchCompanyInfo(l_dbaccess,l_inMdl)
		Dim l_strsql

		'SELECT
		l_strsql = "SELECT ROWNUM," &_
				"CM.COMPANY_NAME," &_
				"CM.COMPANY_NAME_KANA," &_
				"SM.POSTCODE," &_
				"SM.PREFECTURE," &_
				"SM.TOWN," &_
				"SM.HOUSE_NUMBER," &_
				"SM.BUILDING," &_
				"SM.SECTION_NAME," &_
				"SM.PERSON," &_
				"SM.TEL," &_
				"SM.FAX," &_
				"SM.MAIL," &_
				"SM.LOGIN_ID," &_
				"SM.PASSWORD"
		'FROM
		l_strsql = l_strsql & " FROM COMPANY_M CM,SECTION_M SM"
		'WHERE
		l_strsql = l_strsql & " WHERE CM.SYSTEM_ID='" & l_inMdl.l_SystemId & "'" &_
				" AND CM.COMPANY_ID='" & l_inMdl.l_CompanyId & "'"
		'AND
		l_strsql = l_strsql & " AND SM.SYSTEM_ID=CM.SYSTEM_ID" &_
				" AND SM.COMPANY_ID=CM.COMPANY_ID"

		'DB傛傝堦棗傪庢摼偟偰曉偡
		Set SearchCompanyInfo = l_dbaccess.ProcRecordset(l_strsql,1,1)

	End Function

	'晹栧峏怴
	Public Function UpdateSection(Param1,Param2)
		Dim l_SQL

		UpdateSection = True
		l_SQL = "UPDATE SECTION_M SET POSTCODE = '" & Param2.l_PostCode & "'," & _
				"PREFECTURE = '" & Param2.l_Prefecture & "'," & _
				"TOWN = '" & Param2.l_Town & "'," & _
				"HOUSE_NUMBER = '" & Param2.l_HouseNumber & "'," & _
				"BUILDING = '" & Param2.l_Building & "'," & _
				"SECTION_NAME = '" & Param2.l_SectionName & "'," & _
				"PERSON = '" & Param2.l_Person & "'," & _
				"TEL = '" & Param2.l_Tel & "'," & _
				"FAX = '" & Param2.l_FAX & "'," & _
				"MAIL = '" & Param2.l_Mail & "'," & _
				"LOGIN_ID = '" & Param2.l_LoginId & "'," & _
				"PASSWORD = '" & Param2.l_Password & "'," & _
				"UPDATE_YMD = SYSDATE" & _
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				" AND COMPANY_ID = '" & Param2.l_CompanyId & "'"
'Response.Write l_SQL

		'SQL敪峴
		If Not Param1.ProcExecute(l_SQL) Then
			Param1.ProcRollBack
			UpdateSection = False
			Exit Function
		End If

		l_SQL = "UPDATE COMPANY_M SET COMPANY_NAME = '" & Param2.l_CompanyName & "'," & _
				"COMPANY_NAME_KANA = '" & Param2.l_CompanyNameKana & "'," & _
				"UPDATE_YMD = SYSDATE " & _
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				" AND COMPANY_ID = '" & Param2.l_CompanyId & "'"
'Response.Write l_SQL
		'SQL敪峴
		If Not Param1.ProcExecute(l_SQL) Then
			Param1.ProcRollBack
			UpdateSection = False
		End If
	End Function
End Class
%>