demandcharutil.asp

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

<%
'/帒椏惪媮暥帤楍曇廤僋儔僗
Class DemandCharUtil
	'/***************************************************************
	'/* 暥帤楍傪昞帵梡偵曇廤
	'/* 枹擖椡偺応崌丄嬻暥帤("")傪曉偡丅
	'/* (僒儉僱僀儖偺応崌偼NoImage夋憸偺僷僗傪曉偡)
	'/* param丗
	'/* return丗String 曇廤寢壥
	'/***************************************************************

	'僒儉僱僀儖偺僷僗
	Public Function editImage(l_inImage)
		Dim l_str
		If l_inImage <> "" Then
			l_str = l_inImage
		Else
			l_str = NO_IMAGE_URL
		End If
		editImage = l_str
	End Function

	'扨壙
	Public Function editPrice(l_inPrice,l_cutil)
		Dim l_str
		Dim l_arr
		If l_inPrice <> "" Then
			'彫悢揰偑懚嵼偡傞応崌
			If InStr(l_inPrice,".") <> 0 Then
				l_arr = Split(l_inPrice,".")
				l_str = l_cutil.NumericFormat(l_inPrice,false,Len(l_arr(1))) & "墌"
			Else
				l_str = l_cutil.NumericFormat(l_inPrice,false,0) & "墌"
			End If
		Else
			l_str = ""
		End If
		editPrice = l_str
	End Function

	'婜尷
	Public Function editLimit(l_inLimit)
		Dim l_str
		If l_inLimit <> "" Then
			l_str = l_inLimit & "枠"
		Else
			l_str = ""
		End If
		editLimit = l_str
	End Function

	'棙梡壜擻惂尷
	Public Function editDetailLimit(l_inLimit)
		Dim l_str
		If l_inLimit <> "" Then
			l_str = l_inLimit & "枠棙梡壜擻"
		Else
			l_str = ""
		End If
		editDetailLimit = l_str
	End Function

	'巇忋偘僒僀僘
	Public Function editResultSize(l_inUnit,l_inRow,l_inCol)
		Dim l_str
		l_str = l_inRow & "亊" & l_inCol & l_inUnit

		editResultSize = l_str
	End Function

	'儁乕僕悢
	Public Function editPageCnt(l_inPageCnt,l_cutil)
		Dim l_str
		If l_inPageCnt <> "" Then
			l_str = l_cutil.NumericFormat(l_inPageCnt,false,0) & "儁乕僕乛晹"
		Else
			l_str = ""
		End If
		editPageCnt = l_str
	End Function

	'擖傝悢
	Public Function editPackCnt(l_inPackCnt,l_cutil)
		Dim l_str
		If l_inPackCnt <> "" Then
			l_str = l_cutil.NumericFormat(l_inPackCnt,false,0) & "恖暘"
		Else
			l_str = ""
		End If
		editPackCnt = l_str
	End Function

	'帒椏惪媮婜娫
	Public Function editClaimTerm(l_inClaimStart,l_inClaimEnd)
		Dim l_str
		If l_inClaimStart <> "" and l_inClaimEnd <> "" Then
			l_str = l_inClaimStart & "乣" & l_inClaimEnd
		ElseIf IsNull(l_inClaimStart) and l_inClaimEnd <> "" Then
			l_str = "擺昳師戞惪媮奐巒乣" & l_inClaimEnd
		Else
			l_str = ""
		End If
		editClaimTerm = l_str
	End Function

End Class
%>