historydetailsmain.asp

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

<%
'/************************************
'/*棜楌徻嵶忣曬儊僀儞僋儔僗
'/************************************
Class HistoryDetailsMain
	Dim l_CutilObject				'CharUtil僋儔僗
	Dim l_ChkUtilObject				'CheckUtil僋儔僗
	Dim l_CommonObject				'Common僋儔僗
	Dim l_DBObject					'DbAccess僋儔僗
	Dim l_HistoryDetailsMdl1Object	'HistoryDetailsMdl1僋儔僗
	Dim l_HistoryMasterObject		'HistoryMaster僋儔僗

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Set l_CutilObject = New CharUtil
		Set l_ChkUtilObject = New CheckUtil
		Set l_CommonObject = New Common
		Set l_HistoryDetailsMdl1Object = New HistoryDetailsMdl1
		Set l_HistoryMasterObject = New HistoryDetailsMaster

		Call l_CommonObject.SearchSession
		'DB僐僱僋僔儑儞庢摼
		Set l_DBObject = New DbAccess
		Call l_DBObject.ProcConnection(DSN,USERID,PASSWD)

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_HistoryDetailsMdl1Object.l_SystemId = Session("User").Item("SYSTEM_ID")
		l_HistoryDetailsMdl1Object.l_CompanyId = Session("User").Item("COMPANY_ID")
		l_HistoryDetailsMdl1Object.l_SectionId = Session("User").Item("SECTION_ID")
		l_HistoryDetailsMdl1Object.l_UserId = Session("User").Item("USER_ID")
		l_HistoryDetailsMdl1Object.l_UserName = Session("User").Item("NAME")

	End Function

	'/********************************************
	'/* 棜楌徻嵶忣曬丂庴晅擔帪丒惪媮幰庢摼
	'/********************************************
	Public Function GetList1(Param1)
		Dim l_HistoryDetailsMdl2Object
		Dim l_RecSet

		'DB傛傝忣曬庢摼

		'庴晅擔帪丒惪媮幰庢摼
		Set l_HistoryDetailsMdl2Object = New HistoryDetailsMdl2
		Set l_RecSet = l_HistoryMasterObject.SearchReceptInfo(l_DBObject,l_HistoryDetailsMdl1Object,Param1)

		If Not l_RecSet.eof Then
			l_HistoryDetailsMdl2Object.l_ReceptYmd = l_RecSet.Fields.Item("RECEPT_YMD")
			l_HistoryDetailsMdl2Object.l_CompanyName = l_RecSet.Fields.Item("COMPANY_NAME")
			l_HistoryDetailsMdl2Object.l_SectionName = l_RecSet.Fields.Item("SECTION_NAME")
			l_HistoryDetailsMdl2Object.l_Name = l_RecSet.Fields.Item("NAME")
		End If

		Set GetList1 = l_HistoryDetailsMdl2Object

	End Function

	'/********************************************
	'/* 憅屔柤丒敪憲梊掕擔丒庢徚偟壜擻擔丒忬嫷庢摼
	'/* param丗庴晅斣崋
	'/*        攝憲愭僐乕僪
	'/* return丗憅屔夛幮忣曬
	'/********************************************
	Public Function GetList2(Param1,Param2)
		Dim l_HistoryDetailsMdl3Object
		Dim l_RecSet
		Dim l_DetailsList
		Dim l_Index
		Dim l_RetRec
		Dim l_warehouseId	'憅屔夛幮ID

		l_warehouseId = ""

		'庴晅擔帪丒惪媮幰庢摼
		Set l_HistoryDetailsMdl3Object = New HistoryDetailsMdl3
		'儘僌僀儞儐乕僓偑憅屔夛幮偺応崌
		'If Request.Cookies("Comp")("CompKind") = "2" Then
		'	l_warehouseId = l_HistoryDetailsMdl1Object.l_CompanyId
		'End If
		Set l_RecSet = l_HistoryMasterObject.SearchWarehouseInfo(l_DBObject,l_HistoryDetailsMdl1Object,Param1,Param2,l_warehouseId)

		'儗僐乕僪曇廤
		Set l_DetailsList = CreateObject("Scripting.Dictionary")
		
		l_Index = 0
		Do Until l_RecSet.eof
			Set l_RetRec = EditRec2(l_RecSet)
			l_DetailsList.add CStr(l_Index), l_RetRec
			l_Index = l_Index + 1
			l_RecSet.MoveNext
		Loop

		Set GetList2 = l_DetailsList

	End Function

	Public Function EditRec2(l_RecSet)
		Dim l_Rec
		Set l_Rec = New HistoryDetailsMdl3

		l_Rec.l_MdlWarehouseId = l_RecSet.Fields.Item("WAREHOUSE_ID")
		l_Rec.l_MdlWarehouseName = l_RecSet.Fields.Item("COMPANY_NAME")
		l_Rec.l_MdlBundleTime = l_RecSet.Fields.Item("BUNDLE_TIME")
		l_Rec.l_MdlSendYmd = l_RecSet.Fields.Item("SEND_YMD")
		l_Rec.l_MdlCancelPossibleYmd = l_RecSet.Fields.Item("CANCEL_POSSIBLE_YMD")
		l_Rec.l_DspCancelPossibleYmd = l_RecSet.Fields.Item("DSP_CANCEL_POSSIBLE_YMD")
		l_Rec.l_MdlClaimSituation = l_RecSet.Fields.Item("CLAIM_SITUATION")
		l_Rec.l_MdlSystemYmd = l_RecSet.Fields.Item("SYSTEM_YMD")
		Set EditRec2 = l_Rec
	End Function

	'/********************************************
	'/* 惪媮幰忣曬庢摼
	'/********************************************
	Public Function GetList3(Param1)
		Dim l_HistoryDetailsMdl4Object
		Dim l_RecSet

		'DB傛傝忣曬庢摼

		'庴晅擔帪丒惪媮幰庢摼
		Set l_HistoryDetailsMdl4Object = New HistoryDetailsMdl4
		Set l_RecSet = l_HistoryMasterObject.SearchClaimInfo(l_DBObject,l_HistoryDetailsMdl1Object,Param1)

		If Not l_RecSet.eof Then
			l_HistoryDetailsMdl4Object.l_MdlDeliveryKind = l_RecSet.Fields.Item("DELIVERY_KIND")
			l_HistoryDetailsMdl4Object.l_MdlPostCode = l_RecSet.Fields.Item("POSTCODE")
			l_HistoryDetailsMdl4Object.l_MdlPrefecture = l_RecSet.Fields.Item("PREFECTURE")
			l_HistoryDetailsMdl4Object.l_MdlTown = l_RecSet.Fields.Item("TOWN")
			l_HistoryDetailsMdl4Object.l_MdlHouseNumber = l_RecSet.Fields.Item("HOUSE_NUMBER")
			l_HistoryDetailsMdl4Object.l_MdlBuilding = l_RecSet.Fields.Item("BUILDING")
			l_HistoryDetailsMdl4Object.l_MdlCompanyName = l_RecSet.Fields.Item("COMPANY_NAME")
			l_HistoryDetailsMdl4Object.l_MdlSectionName = l_RecSet.Fields.Item("SECTION_NAME")
			l_HistoryDetailsMdl4Object.l_MdlName = l_RecSet.Fields.Item("NAME")
			l_HistoryDetailsMdl4Object.l_MdlTel = l_RecSet.Fields.Item("TEL")
			l_HistoryDetailsMdl4Object.l_MdlFax = l_RecSet.Fields.Item("FAX")
			l_HistoryDetailsMdl4Object.l_MdlMail = l_RecSet.Fields.Item("MAIL")
		End If

		Set GetList3 = l_HistoryDetailsMdl4Object
	End Function

	'/********************************************
	'/* 攝憲愭忣曬庢摼
	'/* param丗Param1丂庴晅斣崋
	'/*        Param2丂攝憲愭ID
	'/********************************************
	Public Function GetList4(Param1,Param2)
		Dim l_HistoryDetailsMdl5Object
		Dim l_RecSet

		'DB傛傝忣曬庢摼

		'庴晅擔帪丒惪媮幰庢摼
		Set l_HistoryDetailsMdl5Object = New HistoryDetailsMdl5
		Set l_RecSet = l_HistoryMasterObject.SearchSendInfo(l_DBObject,l_HistoryDetailsMdl1Object,Param1,Param2)

		If Not l_RecSet.eof Then
			l_HistoryDetailsMdl5Object.l_MdlDeliveryKind = l_RecSet.Fields.Item("DELIVERY_KIND")
			l_HistoryDetailsMdl5Object.l_MdlPostCode = l_RecSet.Fields.Item("POSTCODE")
			l_HistoryDetailsMdl5Object.l_MdlPrefecture = l_RecSet.Fields.Item("PREFECTURE")
			l_HistoryDetailsMdl5Object.l_MdlTown = l_RecSet.Fields.Item("TOWN")
			l_HistoryDetailsMdl5Object.l_MdlHouseNumber = l_RecSet.Fields.Item("HOUSE_NUMBER")
			l_HistoryDetailsMdl5Object.l_MdlBuilding = l_RecSet.Fields.Item("BUILDING")
			l_HistoryDetailsMdl5Object.l_MdlCompanyName = l_RecSet.Fields.Item("COMPANY_NAME")
			l_HistoryDetailsMdl5Object.l_MdlSectionName = l_RecSet.Fields.Item("SECTION_NAME")
			l_HistoryDetailsMdl5Object.l_MdlReceiveName = l_RecSet.Fields.Item("RECEIVE_NAME")
			l_HistoryDetailsMdl5Object.l_MdlTel = l_RecSet.Fields.Item("TEL")
			l_HistoryDetailsMdl5Object.l_MdlFax = l_RecSet.Fields.Item("FAX")
			l_HistoryDetailsMdl5Object.l_MdlNote = l_RecSet.Fields.Item("NOTE")
		End If

		Set GetList4 = l_HistoryDetailsMdl5Object
	End Function

	'/********************************************
	'/* 惪媮撪梕忣曬庢摼
	'/* param丗Param1	庴晅斣崋
	'/*        Param2	僙僢僔儑儞忣曬
	'/*        Param3	攝憲愭僐乕僪
	'/********************************************
	Public Function GetList5(Param1,Param2,Param3)
		Dim l_HistoryDetailsMdl6Object
		Dim l_RecSet
		Dim l_ContentsList
		Dim l_Index
		Dim l_RetRec

		'DB傛傝忣曬庢摼

		'庴晅擔帪丒惪媮幰庢摼
		Set l_HistoryDetailsMdl6Object = New HistoryDetailsMdl6
		Set l_RecSet = l_HistoryMasterObject.SearchContentsInfo(l_DBObject,l_HistoryDetailsMdl1Object,Param1,Param2,Param3)

		'儗僐乕僪曇廤
		Set l_ContentsList = CreateObject("Scripting.Dictionary")
		
		l_Index = 0
		Do Until l_RecSet.eof
			Set l_RetRec = EditRec3(l_RecSet)
			l_ContentsList.add CStr(l_Index), l_RetRec
			l_Index = l_Index + 1
			l_RecSet.MoveNext
		Loop

		Set GetList5 = l_ContentsList

	End Function

	Public Function EditRec3(l_RecSet)
		Dim l_Rec
		Dim l_tmp_arr
		Set l_Rec = New HistoryDetailsMdl6

		l_Rec.l_MdlListCd = l_RecSet.Fields.Item("LIST_CD")
		l_Rec.l_MdlListEda = l_RecSet.Fields.Item("LIST_EDA")
		l_Rec.l_MdlListName = l_RecSet.Fields.Item("LIST_NAME")
		'彫悢揰偑偁傞偲偒乮扨壙乯
		If InStr(l_RecSet.Fields.Item("UNIT_PRICE"),".") <> 0 Then
			l_tmp_arr = Split(l_RecSet.Fields.Item("UNIT_PRICE"),".")
			l_Rec.l_MdlUnitPrice = l_CutilObject.NumericFormat(l_RecSet.Fields.Item("UNIT_PRICE"),true,Len(l_tmp_arr(1)))
		Else
			l_Rec.l_MdlUnitPrice = l_CutilObject.NumericFormat(l_RecSet.Fields.Item("UNIT_PRICE"),true,0)
		End If
		l_Rec.l_MdlQuantity = l_RecSet.Fields.Item("QUANTITY")
		l_Rec.l_MdlListUnit = l_RecSet.Fields.Item("LIST_UNIT")
		l_Rec.l_MdlPackingCount = l_RecSet.Fields.Item("PACKING_COUNT")
		'l_Rec.l_MdlDspSubTotal = l_RecSet.Fields.Item("DSP_SUB_TOTAL")
		'彫悢揰偑偁傞偲偒乮彫寁乯
		If InStr(l_RecSet.Fields.Item("SUB_TOTAL"),".") <> 0 Then
			l_tmp_arr = Split(l_RecSet.Fields.Item("SUB_TOTAL"),".")
			l_Rec.l_MdlDspSubTotal = l_CutilObject.NumericFormat(l_RecSet.Fields.Item("SUB_TOTAL"),true,Len(l_tmp_arr(1)))
		Else
			l_Rec.l_MdlDspSubTotal = l_CutilObject.NumericFormat(l_RecSet.Fields.Item("SUB_TOTAL"),true,0)
		End If
		l_Rec.l_MdlSubTotal = l_RecSet.Fields.Item("SUB_TOTAL")
		l_Rec.l_MdlSeqNo = l_RecSet.Fields.Item("SEQ_NO")
		Set EditRec3 = l_Rec
	End Function

	'/********************************************
	'/* 敪憲梊掕擔峏怴張棟
	'/* param:Param1 憅屔ID
	'/*		  Param2 曄峏慜敪憲梊掕擔
	'/*       Param3 庢徚壜擻擔
	'/********************************************
	Public Function UpdateSendYmd(Param1,Param2,Param3)
		Dim l_SendY,l_SendM,l_SendD
		Dim l_SendYmd
		Dim l_err(0)

		UpdateSendYmd = True
		If Param1 = "" Or l_Param2 = "" Then
			Exit Function
		End If

		l_SendY = Request.Form("send_y")
		l_SendM = Request.Form("send_m")
		l_SendD = Request.Form("send_d")

		l_SendYmd = l_SendY & "/" & l_SendM & "/" & l_SendD

		'僇儗儞僟乕偵懚嵼偡傞擔晅偐僠僃僢僋
		If Not l_ChkUtilObject.IsYMD(l_SendY,l_SendM,l_SendD) Then
			l_err(0) = IG06018E & l_SendYmd
			Session("HisErr") = l_err
			UpdateSendYmd = False

		ElseIf DateDiff("d",Param3,l_SendYmd) < 0 Then
			l_err(0) = IG06048E & "丂擖椡擔晅丗[" & l_SendYmd & "]"
			Session("HisErr") = l_err
			UpdateSendYmd = False

		Else
			'僩儔儞僓僋僔儑儞奐巒
			Call l_DBObject.ProcBeginTrans 

			'巟暐擔晅偺峏怴
			If Not l_HistoryMasterObject.UpdateSendYmd(l_DBObject,l_HistoryDetailsMdl1Object,Param1,Param2,l_SendYmd) Then
				UpdateSendYmd = False
			End If

			'僩儔儞僓僋僔儑儞廔椆
			l_DBObject.ProcCommit

		End If

	End Function

	'/********************************************
	'/* 僋儘乕僘
	'/********************************************
	Public Function Close
		Call l_DBObject.CloseRecodeset
		Call l_DBObject.CloseConnection
	End Function
End Class

'/************************************
'/*専嶕忦審曐帩僋儔僗
'/************************************

'僙僢僔儑儞忣曬
Class HistoryDetailsMdl1
	Dim l_SystemId
	Dim l_CompanyId
	Dim l_SectionId
	Dim l_UserId
	Dim l_UserName
End Class

'庴晅擔帪丒惪媮幰忣曬
Class HistoryDetailsMdl2
	Dim l_ReceptYmd
	Dim l_CompanyName
	Dim l_SectionName
	Dim l_Name
End Class
'憅屔柤丒敪憲梊掕擔丒庢徚偟壜擻擔丒忬嫷忣曬
Class HistoryDetailsMdl3
	Dim l_MdlWarehouseId
	Dim l_MdlWarehouseName
	Dim l_MdlBundleTime
	Dim l_MdlSendYmd
	Dim l_MdlCancelPossibleYmd
	Dim l_DspCancelPossibleYmd
	Dim l_MdlClaimSituation
	Dim l_MdlSystemYmd
End Class

'惪媮幰忣曬
Class HistoryDetailsMdl4
	Dim l_MdlDeliveryKind
	Dim l_MdlPostCode
	Dim l_MdlPrefecture
	Dim l_MdlTown
	Dim l_MdlHouseNumber
	Dim l_MdlBuilding
	Dim l_MdlCompanyName
	Dim l_MdlSectionName
	Dim l_MdlName
	Dim l_MdlTel
	Dim l_MdlFax
	Dim l_MdlMail

End Class

'攝憲愭忣曬
Class HistoryDetailsMdl5
	Dim l_MdlDeliveryKind
	Dim l_MdlPostCode
	Dim l_MdlPrefecture
	Dim l_MdlTown
	Dim l_MdlHouseNumber
	Dim l_MdlBuilding
	Dim l_MdlCompanyName
	Dim l_MdlSectionName
	Dim l_MdlReceiveName
	Dim l_MdlTel
	Dim l_MdlFax
	Dim l_MdlNote
End Class

'惪媮撪梕忣曬
Class HistoryDetailsMdl6
	Dim l_MdlListCd
	Dim l_MdlListEda
	Dim l_MdlListName
	Dim l_MdlUnitPrice
	Dim l_MdlQuantity
	Dim l_MdlListUnit
	Dim l_MdlPackingCount
	Dim l_MdlDspSubTotal
	Dim l_MdlSubTotal
	Dim l_MdlSeqNo
End Class
%>