whcommon.asp

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

<%
'/
'/挔昜嶌惉婡擻嫟捠僋儔僗
'/
Class WhCommon
	'/**********************************************************
	'/* 悢抣梡俽俻俴庢摼
	'/* 擖椡抣亖""偺偲偒偼0丄偦偆偱側偄応崌偼擖椡抣傪偦偺傑傑曉偡
	'/* param丗l_data 擖椡抣
	'/**********************************************************
	Public Function GetNumSql(l_data)
		If l_data = "" or IsNull(l_data) Then
			GetNumSql = 0 
		Else
			GetNumSql = l_data
		End If
	End Function

	'/**********************************************************
	'/* 悢抣梡俽俻俴庢摼(枹擖椡偺応崌偼NULL)
	'/* 擖椡抣亖""偺偲偒偼Null丄偦偆偱側偄応崌偼擖椡抣傪偦偺傑傑曉偡
	'/* param丗l_data 擖椡抣
	'/**********************************************************
	Public Function GetNumSqlNull(l_data)
		If l_data = "" or IsNull(l_data) Then
			GetNumSqlNull = "NULL" 
		Else
			GetNumSqlNull = l_data
		End If
	End Function

	'/********************************************
	'/* 庢堷拞偺憅屔夛幮堦棗傪庢摼偟丄嵼屔Mdl偵僙僢僩偟偰曉偡
	'/* param丗l_db DBAccess
	'/*        l_sysid 僔僗僥儉ID
	'/* return丗FormStockMdl僆僽僕僃僋僩 寢壥
	'/********************************************
	Public Function GetCompanyStock(l_db,l_sysid)
		Dim l_Result,l_cmpM,l_index,l_mdlobj
		Set l_cmpM = New CompanyMaster
		Set l_mdlobj = New FormStockMdl

		'庢堷拞偺憅屔夛幮儕僗僩傪庢摼偡傞
		Set l_Result = l_cmpM.SearchCompanyTrade(l_db, Session("User").Item("SYSTEM_ID"), "2")
			
		'庢摼偟偨憅屔夛幮儕僗僩偺忋偐傜俁偮傪嵼屔儗僐乕僪偵愝掕偡傞
		If IsObject(l_Result) Then
			l_index = 0
			Do Until l_Result.Eof
				If l_index = 0 Then
					l_mdlobj.l_deliveryPlace1 = l_Result.Fields("COMPANY_ID").Value
				ElseIf l_index = 1 Then
					l_mdlobj.l_deliveryPlace2 = l_Result.Fields("COMPANY_ID").Value
				ElseIf l_index = 2 Then
					l_mdlobj.l_deliveryPlace3 = l_Result.Fields("COMPANY_ID").Value
				End If
				l_index = l_index + 1
				l_Result.MoveNext
			Loop
		End If
		
		Set GetCompanyStock = l_mdlobj

	End Function

	'/**********************************************************
	'/* 暥帤偺Null丄嬻敀僠僃僢僋
	'/* param丗True丗Null偐嬻敀丄False丗偦傟埲奜
	'/**********************************************************
	Public Function IsNullStr(l_data)
		If l_data = "" or IsNull(l_data) Then
			IsNullStr = True
		Else
			IsNullStr = False
		End If
	End Function

	'/**********************************************************
	'/* 挔昜僀儊乕僕搊榐夋憸偺愨懳僷僗傪庢摼
	'/* param丗l_path 憡懳僷僗(../item/挔昜斣崋/僼傽僀儖柤)
	'/* return丗愨懳僷僗
	'/**********************************************************
	Public Function GetFullItemPath(l_path)
		GetFullItemPath = ""

		'憡懳僷僗柤偑嬻偺応崌偼張棟傪敳偗傞
		If IsNull(l_path) or l_path = "" Then
			Exit Function
		End If

		'愨懳僷僗傪嶌惉偡傞
		Dim l_array
		Dim l_tmpimg
		//l_array = Split(l_path,"/")
		l_tmpimg = Replace(l_path,"../item/","")
		l_tmpimg = Replace(l_tmpimg,"/","\")
		//If Not IsNull(l_array) Then
		If Not IsNull(l_tmpimg) Then
		//	If IsArray(l_array) Then
				'擖椡抣偑"../item/挔昜斣崋/僼傽僀儖柤"偺偲偒偺傒愨懳僷僗嶌惉
				//If UBound(l_array) = 3 Then
					'愨懳僷僗嶌惉(d:\wakasu\item\亄挔昜斣崋亄\僼傽僀儖柤乯
					//GetFullItemPath = ITEM_FILE_PATH & l_array(2) & "\" & l_array(3)
					GetFullItemPath = ITEM_FILE_PATH & l_tmpimg
				//End If
		//	End If
		End If

	End Function

	'/********************************************
	'/* 嬕検傪曇廤偡傞
	'/* (巇條忣曬擖椡夋柺丄儁乕僕巇條擖椡夋柺寭梡)
	'/* param丗l_data 	擖椡抣
	'/* return丗String 曇廤寢壥
	'/********************************************
	Public Function EditQuantity(l_data)
		Dim l_quantityDsp

		'嬕検(嬕検亄"Kg") 1/5 kg攑巭
		If IsNull(l_data) Then
			l_quantityDsp = ""
		ElseIf l_data <> "" Then
			'l_quantityDsp = l_data & "Kg"
			l_quantityDsp = l_data 
		End If

		'曇廤寢壥傪曉偡
		EditQuantity = l_quantityDsp
	End Function

	'/********************************************
	'/* 怓悢傪曇廤偡傞
	'/* (巇條忣曬擖椡夋柺梡)
	'/* param丗l_cmn 嫟捠僋儔僗僆僽僕僃僋僩(Common)
	'/*        l_db DBAccess
	'/*        l_color 	怓悢
	'/*		   l_colorNumber 怓悢(摿怓偺応崌偺悢)
	'/* return丗String 曇廤寢壥
	'/********************************************
	Public Function EditColor(l_cmn, l_db, l_color, l_colorNumber)
		Dim l_str

		If l_color = COLOR_SPECIAL Then
			'摿怓
			l_str = "摿怓丗" & l_colorNumber
		Else
			'怓悢
			l_str = CStr(l_cmn.GetCodeName(l_db, CD_COLOR, l_color))
		End If

		'曇廤寢壥傪曉偡
		EditColor = l_str
	End Function

	'/********************************************
	'/* 尭姶丒BC傪曇廤偡傞
	'/* (巇條忣曬擖椡夋柺梡)
	'/* param丗l_cmn 嫟捠僋儔僗僆僽僕僃僋僩(Common)
	'/*        l_db DBAccess
	'/*        l_decreBc 	尭姶丒BC
	'/*		   l_decreBcOther 尭姶丒BC偦偺懠
	'/* return丗String 曇廤寢壥
	'/********************************************
	Public Function EditDecreBc(l_cmn, l_db, l_decreBc, l_decreBcOther)
		Dim l_str
		
		If l_decreBc = DECRE_OTHER Then
			'尭姶丒BC
			l_str = l_decreBcOther
		Else
			'尭姶丒BC偦偺懠
			l_str = CStr(l_cmn.GetCodeName(l_db, CD_DECRE_BC, l_decreBc))
		End If

		'曇廤寢壥傪曉偡
		EditDecreBc = l_str
	End Function

	'/********************************************
	'/* 曐娗婜娫傪曇廤偡傞(妋擣夋柺梡)
	'/* param丗l_cmn 嫟捠僋儔僗僆僽僕僃僋僩(Common)
	'/*        l_db DBAccess
	'/*        l_clfs1 				暘椶僐乕僪(挔昜庬暿)
	'/*        l_listClass 			挔昜庬暿
	'/*        l_clfs2 				暘椶僐乕僪(曐娗婜娫)
	'/*        l_storagePeriod 		曐娗婜娫
	'/*		   l_storagePeriodOther 曐娗婜娫(偦偺懠乯
	'/*        l_clfs3 				暘椶僐乕僪(杮幮曐懚応強)
	'/*        l_headOfficeKeep 	杮幮曐懚応強
	'/* return丗String 曇廤寢壥
	'/********************************************
	Public Function EditStorage(l_cmn,l_db,l_clfs1,l_listClass,l_clfs2,l_storagePeriod,l_storagePeriodOther,l_clfs3,l_headOfficeKeep)
		Dim l_wkStr
		l_wkStr = ""

		'挔昜庬暿
		If IsNullStr(l_listClass) = False Then
			l_wkStr = l_cmn.GetCodeName(l_db, l_clfs1, l_listClass) & "丂"
		End If

		If IsNullStr(l_storagePeriod) = False Then
			If l_storagePeriod = STR_PERIOD_OTHER Then
				'偦偺懠偺応崌丄偦偺懠僼傿乕儖僪偺抣傪昞帵
				l_wkStr = l_wkStr & l_storagePeriodOther & "丂"
			Else
				'偦傟埲奜偺応崌偼僐乕僪儅僗僞偺柤徧傪昞帵
				l_wkStr = l_wkStr & l_cmn.GetCodeName(l_db, l_clfs2, l_storagePeriod) & "丂"
			End If
		End If

		'杮幮曐懚応強
		If IsNullStr(l_headOfficeKeep) = False Then
			l_wkStr = l_wkStr & l_cmn.GetCodeName(l_db, l_clfs3, l_headOfficeKeep)
		End If
		EditStorage = l_wkStr

	End Function
	'/**********************************************************
	'/* 擔晅(擭)昞帵僨乕僞庢摼
	'/* param丗l_date Date宆偺僨乕僞
	'/*		   l_sesYY 僙僢僔儑儞偵曐帩偟偨擖椡抣
	'/*		   l_effFlg "1"丗擖椡僄儔乕偁傝丄"0"丗擖椡僄儔乕側偟
	'/**********************************************************
	Public Function GetDispYY(l_date, l_sesYY, l_effFlg)
		If l_effFlg = FLG_ON Then
			'擖椡僄儔乕偺応崌偼僄儔乕慜偺擖椡僨乕僞傪曉偡
			GetDispYY = l_sesYY 
		Else
			'偦偆偱側偄応崌偼Date宆偺擔晅(擭)傪曉偡
			GetDispYY = Year(l_date)
		End If
	End Function

	'/**********************************************************
	'/* 擔晅(寧)昞帵僨乕僞庢摼
	'/* param丗l_date Date宆偺僨乕僞
	'/*		   l_sesMM 僙僢僔儑儞偵曐帩偟偨擖椡抣
	'/*		   l_effFlg "1"丗擖椡僄儔乕偁傝丄"0"丗擖椡僄儔乕側偟
	'/**********************************************************
	Public Function GetDispMM(l_date, l_sesMM, l_effFlg)
		If l_effFlg = FLG_ON Then
			'擖椡僄儔乕偺応崌偼僄儔乕慜偺擖椡僨乕僞傪曉偡
			GetDispMM = GetStrFrontZero(l_sesMM)
		Else
			'偦偆偱側偄応崌偼Date宆偺擔晅(寧)傪曉偡
			GetDispMM = GetStrFrontZero(Month(l_date))
		End If
	End Function

	'/**********************************************************
	'/* 擔晅(擔)昞帵僨乕僞庢摼
	'/* param丗l_date Date宆偺僨乕僞
	'/*		   l_sesYY 僙僢僔儑儞偵曐帩偟偨擖椡抣
	'/*		   l_effFlg "1"丗擖椡僄儔乕偁傝丄"0"丗擖椡僄儔乕側偟
	'/**********************************************************
	Public Function GetDispDD(l_date, l_sesDD, l_effFlg)
		
		If l_effFlg = FLG_ON Then
			'擖椡僄儔乕偺応崌偼僄儔乕慜偺擖椡僨乕僞傪曉偡
			GetDispDD = GetStrFrontZero(l_sesDD)
		Else
			'偦偆偱側偄応崌偼Date宆偺擔晅(擔)傪曉偡
			GetDispDD = GetStrFrontZero(Day(l_date))
		End If
	End Function

	'/**********************************************************
	'/* 擔晅(帪)昞帵僨乕僞庢摼
	'/* param丗l_date Date宆偺僨乕僞
	'/*		   l_sesYY 僙僢僔儑儞偵曐帩偟偨擖椡抣
	'/*		   l_effFlg "1"丗擖椡僄儔乕偁傝丄"0"丗擖椡僄儔乕側偟
	'/**********************************************************
	Public Function GetDispHH(l_date, l_sesHH, l_effFlg)
		
		If l_effFlg = FLG_ON Then
			'擖椡僄儔乕偺応崌偼僄儔乕慜偺擖椡僨乕僞傪曉偡
			GetDispHH = GetStrFrontZero(l_sesHH)
		Else
			'偦偆偱側偄応崌偼Date宆偺擔晅(帪)傪曉偡
			GetDispHH = Hour(l_date)
		End If

	End Function

	'/**********************************************************
	'/* 慜僛儘傪偮偗偰曉偡(俀寘)
	'/* param丗l_data 僨乕僞
	'/**********************************************************
	Private Function GetStrFrontZero(l_data)
		GetStrFrontZero = l_data
		If IsNull(l_data) or l_data = "" Then
			GetStrFrontZero = ""
		ElseIf Len(l_data) <= 1 and CInt(l_data) < 10 Then
			GetStrFrontZero = "0" & l_data
		End If
	End Function
	'/**********************************************************
	'/* 娗棟尃尷傪庢摼偡傞
	'/* return丗"0":娗棟尃尷側偟
	'/*         "1"丗娗棟尃尷偁傝(塣梡娗棟尃尷偑偁傞応崌)
	'/**********************************************************
	Public Function GetMenuAuth()

			GetMenuAuth = FLG_OFF

			If Session("User").Item("EMPLOY_AUCTION") = EMPLOY_AUCTION and _
			  	Session("User").Item("EMPLOY_ORDER_MANAGE") = EMPLOY_ORDER_MANAGE and _
				Session("User").Item("EMPLOY_ACCOUNTING") = EMPLOY_ACCOUNTING and _
				Session("User").Item("EMPLOY_STOCK") = EMPLOY_STOCK and _
				Session("User").Item("EMPLOY_DATA_CLAIM") = EMPLOY_DATA_CLAIM and  _
				Session("User").Item("EMPLOY_GOODS_PROMOTION") = EMPLOY_GOODS_PROMOTION and _
				Session("User").Item("EMPLOY_ORDER_PROMOTION") = EMPLOY_ORDER_PROMOTION and _
				Session("User").Item("EMPLOY_LIST_EXT") = EMPLOY_LIST_EXT and _
				Session("User").Item("EMPLOY_ORDER_EXT") = EMPLOY_ORDER_EXT and _
				Session("User").Item("EMPLOY_ORDER_IN") = EMPLOY_ORDER_IN and _
				Session("User").Item("EMPLOY_RATE_REPORT") = EMPLOY_RATE_REPORT Then

				'塣梡娗棟尃尷偑偁傞応崌
				GetMenuAuth = FLG_ON