warecompanymaster.asp

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

<%
Class WareCompanyMaster

	Dim l_SQL
	Dim l_Cost
	'/*******************************************************
	'/* 憅屔夛幮忣曬庢摼
	'/* param丗Param1
	'/*        Param2
	'/*        Param3
	'/* return 拪弌寢壥
	'/*******************************************************
	Public Function SearchWareBase(Param1,Param2,Param3)
		l_SQL = "SELECT COMPANY_ID,COMPANY_NAME,STATUS" & _
				"  FROM COMPANY_M" & _
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND COMPANY_KIND = '" & COMPANY_KIND_WH & "'" & _
				"   AND DEL_FLG = '0'"
		If IsObject(Param3) Then
			l_SQL = l_SQL & " ORDER BY " & GetOrderByStr(Param3.Item("sortkey"),Param3.Item("sortdesc"))
		Else
			l_SQL = l_SQL & " ORDER BY COMPANY_NAME"
		End If
		debug_t(l_SQL)
		Set SearchWareBase = Param1.ProcRecordset(l_SQL,MAXROW_WARE_LIST,0)
	End Function

	'/*******************************************************
	'/* 僜乕僩暥庢摼
	'/* param丗l_sortkey	僜乕僩僉乕
	'/*        l_sortdesc 	僜乕僩弴
	'/* return 僜乕僩暥
	'/*******************************************************
	Public Function GetOrderByStr(l_sortkey, l_sortdesc)
		Dim l_retStr
		Dim l_seq

		'僜乕僩弴愝掕
		If l_sortdesc = FLG_ON Then
			l_seq = " DESC"
		End If

		'僜乕僩暥嶌惉
		If l_sortkey = SORT_KEY1 Then		'僨僼僅儖僩(嬈幰柤(徃弴))
			l_retStr = "COMPANY_NAME"
		ElseIf l_sortkey = SORT_KEY2 Then			'嬈幰ID
			l_retStr = "COMPANY_ID" & l_seq			
		ElseIf l_sortkey = SORT_KEY3 Then			'嬈幰柤
			l_retStr = "COMPANY_NAME" & l_seq
		ElseIf  l_sortkey = SORT_KEY4 Then			'忬嫷
			l_retStr = "STATUS" & l_seq
		End If

		GetOrderByStr = l_retStr
	End Function

	'/*******************************************************
	'/* 夛幮懚嵼僠僃僢僋
	'/* param丗Param1
	'/*        Param2 
	'/* return True丗懚嵼偡傞応崌丄False丗懚嵼偟側偄応崌
	'/*******************************************************
	Public Function CheckCompanyId(Param1,Param2)

		Dim l_RecSet

		CheckCompanyId = False

		'SQL暥惗惉
		l_SQL = "SELECT COUNT(*) FROM COMPANY_M" & _
				" WHERE SYSTEM_ID  = '" & Param2.l_SystemId & "'"  & _
				"   AND COMPANY_ID = '" & Param2.l_TraderId & "'"

		Set l_RecSet = Param1.ProcRecordset(l_SQL,10,0)

		'懚嵼偡傟偽True丄側偗傟偽False
		If l_RecSet.Fields.Item("COUNT(*)") <> 0 Then
			CheckCompanyId = True
		End If
	End Function
	'/*******************************************************
	'/* 夛幮憓擖
	'/* param丗Param1
	'/*        Param2 
	'/* return True丗惉岟偟偨応崌丄False丗幐攕偟偨応崌
	'/*******************************************************
	Public Function InsertCompany(Param1,Param2)
		InsertCompany = True

		'SQL暥惗惉
		'仸夛幮僥乕僽儖偺掲傔帪娫偼枹巊梡丅僟儈乕偲偟偰SYSDATE傪僙僢僩偡傞丅
		l_SQL = "INSERT INTO COMPANY_M VALUES ('" & Param2.l_SystemId & "','" & _
													Param2.l_TraderId & "','" & _
													Param2.l_CompanyName & "','" & _
													Param2.l_CompanyNameKana & "','" &_
													COMPANY_STATUS_ODR & "','" &_
													COMPANY_KIND_WH & "'," & _
												   "SYSDATE,' ',' ','0',SYSDATE,null,'0')"

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

	End Function

	'/*******************************************************
	'/* 庢堷拞巭張棟
	'/* param丗Param1
	'/*        Param2 
	'/* return True丗惉岟偟偨応崌丄False丗幐攕偟偨応崌
	'/*******************************************************
	Public Function CancelCompany(Param1,Param2)
		CancelCompany = True
		l_SQL = "UPDATE COMPANY_M SET STATUS = '" & Param2.l_Status & "'," & _
				"                     UPDATE_YMD = SYSDATE" & _
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND COMPANY_ID = '" & Param2.l_TraderId & "'"

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

	'/*******************************************************
	'/* 夛幮峏怴
	'/* param丗Param1
	'/*        Param2 
	'/* return True丗惉岟偟偨応崌丄False丗幐攕偟偨応崌
	'/*******************************************************
	Public Function UpdateCompany(Param1,Param2)
		UpdateCompany = True

		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_TraderId & "'"

		'SQL敪峴
		If Not Param1.ProcExecute(l_SQL) Then
			Param1.ProcRollBack
			UpdateCompany = False
		End If
	End Function
End Class
%>