formstockmain.asp

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

				'幚嵼屔悢検3偑0枹枮丄傑偨偼丄嵟戝寘悢傪挻偊偰偄傑偡
				l_errarray(l_Index) = IG08012E
				l_Index = l_Index + 1
				CheckInput = False
			End If
		End If
		
		'20051031 捛壛
		'嵼屔悢崌寁僠僃僢僋
	'	If Not CheckSumTotal(l_stmdl.l_num1,l_stmdl.l_Num1Db,l_stmdl.l_num2,l_stmdl.l_Num2Db,l_stmdl.l_num3,l_stmdl.l_Num3Db) Then
	'		Redim Preserve l_errarray(l_Index)
			'嵼屔悢崌寁偑嵟戝寘悢傪挻偊偰偄傑偡
	'		l_errarray(l_Index) = "嵼屔悢崌寁偑嵟戝寘悢傪挻偊偰偄傑偡"
	'		l_Index = l_Index + 1
	'		CheckInput = False
	'	End If

		'僄儔乕儊僢僙乕僕傪僙僢僔儑儞偵曐帩
		If l_Index > 0 Then
			Session("ErrMsg") = l_errarray
		End If
	End Function

	'/********************************************
	'/* 悢検僠僃僢僋
	'/* param丗l_data1 悢抣侾
	'/*        l_data2 悢抣俀
	'/* 
	'/********************************************
	Private Function CheckSum(l_data1, l_data2)
		Dim l_sum
		CheckSum = True
		l_sum = CDbl(l_data1) + CDbl(l_data2)
		If l_sum < 0 or l_sum > 999999999999 Then
			CheckSum = False
		End If

	End Function
	
	'20051031  捛壛
	'/********************************************
	'/* 悢検乮崌寁乯僠僃僢僋
	'/* param丗l_data1 悢抣侾
	'/*        l_data2 悢抣俀
	'/* 
	'/********************************************
'	Private Function CheckSumTotal(l_data1, l_data2, l_data3, l_data4, l_data5, l_data6)
'		Dim l_sumTotal
'		CheckSumTotal = True
'		l_sumTotal = CDbl(l_data1) + CDbl(l_data2) + CDbl(l_data3) + CDbl(l_data4) + CDbl(l_data5) + CDbl(l_data6)
'		If l_sumTotal < 0 or l_sumTotal > 999999999999 Then
'			CheckSumTotal = False
'		End If

'	End Function

	
	'/********************************************
	'/* 擖椡抣傪僙僢僔儑儞偵愝掕偡傞
	'/********************************************
	Public Function SetSessionInData()
		Dim l_dic
		Set l_dic = CreateObject("Scripting.Dictionary")
		
		'慜夋柺傛傝忣曬庢摼
		'僔僗僥儉ID
		l_dic.add "sysid", l_stmdl.l_sysId
		'夛幮ID
		l_dic.add "coid", l_stmdl.l_coId
		'挔昜斣崋
		l_dic.add "listcd", l_stmdl.l_listCd
		'挔昜斣崋巬斣
		l_dic.add "listeda", l_stmdl.l_listEda
		'挔昜柤
		l_dic.add "listname",l_stmdl.l_listName
		'嵼屔悢
		l_dic.add "stocknum", Request.Form("stocknum") 
		'嵼屔忬嫷
		l_dic.add "stockstatus", Request.Form("stockstatus") 
		'敪拲揰
		l_dic.add "orderpoint", Request.Form("orderpoint") 
		'嬞媫敪拲揰
		l_dic.add "urgentorderpoint", Request.Form("urgentorderpoint") 
		'擺昳応強1
		l_dic.add "deliveryplace1", Request.Form("deliveryplace1") 
		'悢検1
		l_dic.add "num1", Request.Form("num1") 
		'梊栺嵼屔悢1
		l_dic.add "reservestocknum1", Request.Form("reservestocknum1") 
		'悢検1(DB偺抣)
		l_dic.add "num1db", Request.Form("num1db") 
		'擺昳応強2
		l_dic.add "deliveryplace2", Request.Form("deliveryplace2") 
		'悢検2
		l_dic.add "num2", Request.Form("num2") 
		'梊栺嵼屔悢2
		l_dic.add "reservestocknum2", Request.Form("reservestocknum2") 
		'悢検2(DB偺抣)
		l_dic.add "num2db", Request.Form("num2db") 
		'擺昳応強3
		l_dic.add "deliveryplace3", Request.Form("deliveryplace3") 
		'悢検3
		l_dic.add "num3", Request.Form("num3") 
		'梊栺嵼屔悢3
		l_dic.add "reservestocknum3", Request.Form("reservestocknum3") 
		'悢検3(DB偺抣)
		l_dic.add "num3db", Request.Form("num3db") 

		'挔昜娗棟扨埵
		l_dic.add "listunit", Request.Form("listunit") 
		'擺昳忣曬ID
		l_dic.add "deliveryinfo", Request.Form("deliveryinfo") 

		'挔昜娗棟斣崋(嵍儊僯儏乕梡)
		l_dic.add "listmanageno", Request.Form("listmanageno") 
		Set Session("InputData") = l_dic

	End Function

	'/********************************************
	'/* 挔昜忣曬夋柺偺撪梕傪俢俛峏怴偡傞
	'/********************************************
	Public Function FormStockUpdate()
		Dim l_errarray(1), l_element
		l_element = 0

		FormStockUpdate = True

		'儗僐乕僪懚嵼僠僃僢僋
		If l_fm.CheckStockRec(l_db,l_stmdl.l_sysId,l_stmdl.l_listCd,l_stmdl.l_listEda) Then

			'DB峏怴(嵼屔僥乕僽儖峏怴)
			If Not l_fm.UpdateFormStockRec(l_db,l_stmdl) Then
				FormStockUpdate = false
			End If

'***************2005/1/7嶍彍奐巒
'			'DB峏怴(擺昳忣曬僥乕僽儖偺擺昳応強傕峏怴偡傞)仸僙僢僩挔昜偺応崌偼擺昳忣曬偑側偄偺偱峏怴張棟傪偟側偄
'			If l_stmdl.l_setlistFlg <> FLG_ON Then
'				'擺昳応強侾
'				Dim l_deliM, l_deliRec
'				Set l_deliM = New FmDeliveryInfoMaster
'				If FormStockUpdate Then
'					Set l_deliRec = EditDeliveryInfoRec(l_stmdl.l_deliveryInfo,1,l_stmdl.l_deliveryPlace1)
'					If Not l_deliM.UpdateDeliveryPlace(l_db, l_deliRec) Then
'						FormStockUpdate = false
'					End If
'				End If
'				'擺昳応強俀
'				If FormStockUpdate Then
'					Set l_deliRec = EditDeliveryInfoRec(l_stmdl.l_deliveryInfo,2,l_stmdl.l_deliveryPlace2)
'					If Not l_deliM.UpdateDeliveryPlace(l_db, l_deliRec) Then
'						FormStockUpdate = false
'					End If
'				End If
'				'擺昳応強俁
'				If FormStockUpdate Then
'					Set l_deliRec = EditDeliveryInfoRec(l_stmdl.l_deliveryInfo,3,l_stmdl.l_deliveryPlace3)
'					If Not l_deliM.UpdateDeliveryPlace(l_db, l_deliRec) Then
'						FormStockUpdate = false
'					End If
'				End If
'			End If
'***************2005/1/7嶍彍廔椆

			'嵼屔忬嫷峏怴
			If FormStockUpdate Then
				If Not l_cmn.UpdateStockStatus(l_db,l_stmdl.l_sysId,l_stmdl.l_listCd,l_stmdl.l_listEda) Then
					FormStockUpdate = false
				End If
			End If

			If FormStockUpdate = false Then
				'擖椡偝傟偨忣曬偺峏怴偵幐攕偟傑偟偨
				l_errarray(l_element) = IG11042E
				l_element = l_element + 1
			End If
		Else
			'奩摉偡傞忣曬偼婛偵嶍彍偝傟偰偄傞偐懚嵼偟傑偣傫
			l_errarray(l_element) = IG11045E
			l_element = l_element + 1
			FormStockUpdate = false
		End If

		'僄儔乕偺応崌僄儔乕夋柺傪昞帵
		If FormStockUpdate = false Then
			Session("ErrMsg") = l_errarray
			Response.ReDirect "../error.asp"
		End If

	End Function

	'/********************************************
	'/* 擺昳忣曬儗僐乕僪僆僽僕僃僋僩庢摼
	'/* param丗l_deliveryInfo丂擺昳忣曬ID
	'/*        l_no NO
	'/*        l_deliveryPlace 擺昳応強
	'/********************************************
	Public Function EditDeliveryInfoRec(l_deliveryInfo, l_no, l_deliveryPlace)
		Dim l_deliRec
		Set l_deliRec = New DeliveryInfoMdl

		'僔僗僥儉ID
		l_deliRec.l_sysId = Session("User").Item("SYSTEM_ID")
		'夛幮ID
		l_deliRec.l_coId = Session("User").Item("COMPANY_ID")
		'擺昳忣曬ID
		l_deliRec.l_deliveryInfo = l_deliveryInfo
		'僔乕働儞僗斣崋
		l_deliRec.l_seqNo = l_no
		'擺昳応強俬俢
		l_deliRec.l_deliveryPlace = l_deliveryPlace

		Set EditDeliveryInfoRec = l_deliRec
	End Function
	'/********************************************
	'/* 僋儘乕僘
	'/********************************************
	Public Function Close
		Call l_db.CloseRecodeset
		Call l_db.CloseConnection
	End Function

End Class

'/************************************
'/挔昜娗棟丄塣梡娗棟嫟桳
'/嵼屔儗僐乕僪丒僨乕僞曐帩梡僋儔僗
'/************************************
Class FormStockMdl
	Dim l_sysId				'僔僗僥儉ID
	Dim l_coId				'夛幮ID
	Dim l_listCd			'挔昜斣崋
	Dim l_listEda			'挔昜斣崋巬斣
	Dim l_listName			'挔昜柤
	Dim l_stockNum			'嵼屔悢
	Dim l_stockStatus		'嵼屔忬嫷
	Dim l_orderPoint		'敪拲揰
	Dim l_urgentOrderPoint	'嬞媫敪拲揰
	Dim l_deliveryPlace1	'擺昳応強1
	Dim l_Num1				'悢検1
	Dim l_reserveStockNum1	'梊栺嵼屔悢1
	Dim l_Num1Db			'悢検DB1(DB偺抣)
	Dim l_deliveryPlace2	'擺昳応強2
	Dim l_Num2				'悢検2
	Dim l_reserveStockNum2	'梊栺嵼屔悢2
	Dim l_Num2Db			'悢検DB2(DB偺抣)
	Dim l_deliveryPlace3	'擺昳応強3
	Dim l_Num3				'悢検3
	Dim l_reserveStockNum3	'梊栺嵼屔悢3
	Dim l_Num3Db			'悢検DB3(DB偺抣)

	Dim l_listManageNo		'挔昜娗棟斣崋
	Dim l_listunit			'挔昜娗棟扨埵
	Dim l_deliveryInfo		'擺昳応強ID
	Dim l_setlistFlg		'僙僢僩挔昜僼儔僌
End Class
%>