checkinputdirectorder.asp

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

<%
'擖椡僠僃僢僋(娙堈拲暥)
Class CheckInputDirectOrder
	'/********************************
	'/* 娙堈拲暥擖椡僠僃僢僋
	'/* param丗l_cku
	'/*        l_listcd
	'/*        l_quantity
	'/********************************
	Public Function CheckInput(l_cku,l_listcd,l_quantity)
		Dim l_basp

		Set l_basp = Server.CreateObject("basp21")

		'挔昜僐乕僪傪擖椡偟丄悢検偺擖椡偑側偄応崌
		If l_listcd <> "" And l_quantity = "" Then
			CheckInput = IG11003E

		'挔昜僐乕僪偑悢抣偱偼側偄応崌
		ElseIf Not l_cku.IsNumericAlpha(l_listcd) Then
			CheckInput = IG11001E
		'悢検傪擖椡偟丄挔昜僐乕僪偺擖椡偑側偄応崌
		ElseIf l_listcd = "" And l_quantity <> "" Then
			CheckInput = IG11004E

		'悢検偑悢帤偱偼側偄応崌
		ElseIf l_listcd <> "" And l_cku.number_chk(l_basp,l_quantity) = "0" Then
			CheckInput = IG11002E
		'悢検偑0偺応崌
		ElseIf l_quantity <> "" Then
			If int(l_quantity) = 0 Then
				CheckInput = IG11070E
			End If
		End If
	End Function
End Class
%>