deliveryspecify.asp

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

<%
Class DeliverySpecify
	Dim l_db	'DBAccess DB傾僋僙僗梡
	Dim l_chutil 'CharUtil梡
	Dim l_sysId	'僔僗僥儉ID(String)
	Dim l_coId	'夛幮ID(String)
	Dim l_total	'崌寁嬥妟
	Dim l_bundletime '掲傔帪娫
	Dim l_cku	'CheckUtil

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Dim l_dbinfo 'String

		'DB僐僱僋僔儑儞庢摼
		Set l_db = New DbAccess
		Set l_chutil = New CharUtil
		Set l_cku = New CheckUtil
		Call l_db.ProcConnection(DSN, USERID, PASSWD)

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_sysId = Session("User").Item("SYSTEM_ID")	'僔僗僥儉ID
		l_coId = Session("User").Item("COMPANY_ID")	'夛幮ID
		l_total	= 0									'崌寁嬥妟
		l_bundletime = Request.Cookies("Comp")("Time")
	End Function

	'/********************************************
	'/* 攝憲愭偺庢摼
	'/********************************************
	Public Function GetDelivery
		Dim l_radiobutton

		l_radiobutton = Request.Form("deliradio")

		Select Case l_radiobutton
			Case "000001" 
				Set GetDelivery = GetAgency
			Case "000002"
				Set GetDelivery = GetReceive
			Case "000003"
				Set GetDelivery = GetAddress
			Case Else
				Set GetDelivery = GetAgency
		End Select
	End Function

	'/********************************************
	'/* 埶棅尦偺庢摼
	'/* return丗dictionary
	'/********************************************
	Public Function GetAgency
		Dim l_strSql
		Dim l_rset
		Dim l_agedic
		Dim l_count

		Set l_agedic = CreateObject("Scripting.Dictionary")
		l_strSql = "SELECT A.*,B.COMPANY_NAME FROM SECTION_M A,COMPANY_M B " &_
				   "WHERE A.SYSTEM_ID = '" & Session("User").Item("SYSTEM_ID") & "' " &_
				   "AND A.SYSTEM_ID = B.SYSTEM_ID " &_
				   "AND A.COMPANY_ID = '" & Session("User").Item("COMPANY_ID") & "' " &_
				   "AND A.COMPANY_ID = B.COMPANY_ID " &_
				   "AND SECTION_ID = '" & Session("User").Item("SECTION_ID") & "' " 

		Set l_rset = l_db.ProcRecordset(l_strSql,10,1)

		Do Until l_rset.Eof
			For l_count = 0 to l_rset.Fields.Count - 1
				l_agedic.add l_chutil.Asc_chk(l_rset.Fields(l_count).Name,2),l_rset.Fields(l_count).Value	
			Next
			l_rset.MoveNext
		Loop
		l_agedic.add "postcode1",Left(l_agedic.Item("postcode"),3)
		l_agedic.add "postcode2",Mid(l_agedic.Item("postcode"),5,4)
		l_agedic.add "deliradio",Request.Form("deliradio")
		l_agedic.add "delikind","埶棅尦偵憲晅"
		l_agedic.add "consubmit",Request.Form("consubmit")
		l_agedic.add "note",Left(l_chutil.Asc_chk(Request.Form("note"),4),250)
		l_agedic.add "err",""
		Set GetAgency = l_agedic
	End Function

	'/********************************************
	'/* 搊榐愭偺庢摼
	'/* param丗
	'/* return丗
	'/********************************************
	Public Function GetReceive
		Dim l_strSql
		Dim l_dic
		Dim l_rset
		Dim l_count
		Dim l_recieveid
		Set l_dic = CreateObject("Scripting.Dictionary")
		Set l_rset = CreateObject("ADODB.Recordset")

		l_recieveid = Request.Form("ordercd")

		'========================
		'偙偺偁偨傝偵擖椡僠僃僢僋
		'========================

		'If l_recieveid = "" Then
		'	l_dic.add "err","搊榐愭ID傪巜掕偟偰偔偩偝偄"
		'Else
		'	l_dic.add "err",""
		'End If

		If CheckRecieve(l_recieveid) Then
			l_dic.add "err",""
			l_strSql = "SELECT * " &_
					   "FROM RECEIVEADDRESS_M " &_
					   "WHERE RECEIVE_ADDRESS_ID = '" & l_recieveid & "' " &_
					   "  AND DEL_FLG = '" & FLG_OFF & "' "
response.write l_strsql
			Set l_rset = l_db.ProcRecordset(l_strSql,10,1)

			Do Until l_rset.Eof
				For l_count = 0 to l_rset.Fields.Count - 1
					l_dic.add l_chutil.Asc_chk(l_rset.Fields(l_count).Name,2),l_rset.Fields(l_count).Value	
				Next
				l_rset.MoveNext
			Loop
			l_dic.add "postcode1",Left(l_dic.Item("postcode"),3)
			l_dic.add "postcode2",Mid(l_dic.Item("postcode"),5,4)
			l_dic.add "ordercd",l_recieveid
			l_dic.add "deliradio",Request.Form("deliradio")
			l_dic.add "delikind","搊榐愭偵憲晅"
			l_dic.add "consubmit",Request.Form("consubmit")
			l_dic.add "note",Left(l_chutil.Asc_chk(Request.Form("note"),4),250)
		Else
			l_dic.add "err",false
			l_dic.add "deliradio",Request.Form("deliradio")
		End If
		Set GetReceive = l_dic
	End Function

	'/********************************************
	'/* 僒僽夋柺偐傜搊榐愭偺庢摼
	'/* param丗l_class 僇僥僑儕
	'/*        l_compname 婇嬈柤徧 {婇嬈偺慖戰夋柺偐傜偺応崌丗僇僫
	'/*                             巟揦慖戰夋柺偐傜偺応崌丗娍帤}
	'/*        l_sectionid 憲晅愭ID
	'/*        l_sectionname 晹栧柤
	'/*        l_srcflg 張棟僼儔僌丂侾丗婇嬈偺慖戰夋柺偐傜丂俀丗巟揦慖戰夋柺偐傜
	'/* return丗
	'/********************************************
	Public Function GetSubReceive(l_class,l_compname,l_receiveid,l_sectionname,l_srcflg)
		Dim l_strSql
		Dim l_rset 'RecordSet
		Dim l_dic
		Dim l_count
		Dim l_fildcnt
		Set l_dic = CreateObject("Scripting.Dictionary")
		Set l_rset = CreateObject("ADODB.Recordset")

		l_strSql = "SELECT * " &_
				   "FROM RECEIVEADDRESS_M "
		'/張棟僼儔僌偵傛傝SQL暥惗惉偺愗傝暘偗
		Select Case l_srcflg
			Case 1
				If l_class <> "" Then
					l_strSql = l_strSql & "WHERE CLASS = '" & l_class & "' " &_
								          "  AND DEL_FLG = '" & FLG_OFF & "' "

					If l_compname <> "" Then
						l_strSql = l_strSql & "AND COMPANY_NAME_KANA LIKE '" & l_compname & "%'"
					End If
				ElseIf l_compname <> "" Then
					l_strSql = l_strSql & "WHERE COMPANY_NAME_KANA LIKE '" & l_compname & "%'" &_
								          "  AND DEL_FLG = '" & FLG_OFF & "' "

				End If
			Case 2
				l_strSql = l_strSql & "WHERE CLASS = '" & l_class & "' " &_
						   "AND COMPANY_NAME = '" & l_compname & "' " &_
						   "AND COMPANY_ID = '" & CStr(l_receiveid) & "' " &_
						   "AND DEL_FLG = '" & FLG_OFF & "' "
				'Response.Write l_strSql
				If l_sectionname <> "" Then
					l_strSql = l_strSql & "AND SECTION_NAME_KANA LIKE '" &  l_sectionname & "%' "
				End If
		End Select
		Set l_rset = l_db.ProcRecordset(l_strSql,10,1)
		If l_rset.RecordCount <> 0 Then
			l_count = 0
			Do Until l_rset.Eof
				For l_fildcnt = 0 to l_rset.RecordCount -1
					l_dic.add CStr(l_fildcnt),SetReceive(l_rset)
					l_rset.MoveNext
				Next
			Loop
		End If

		Set GetSubReceive = l_dic
	End Function

	'/********************************************
	'/* 搊榐愭傪Dictionary偵愝掕
	'/* param丗l_class 僇僥僑儕
	'/*        l_compname 婇嬈柤徧
	'/* return丗
	'/********************************************
	Public Function SetReceive(l_rset)
		Dim l_count
		Dim l_detaildic

		Set l_detaildic = CreateObject("Scripting.Dictionary")

		
		For l_count = 0 to l_rset.Fields.Count - 1
			l_detaildic.add l_chutil.Asc_chk(l_rset.Fields(l_count).Name,2),l_rset.Fields(l_count).Value
		Next
		
		Set SetReceive = l_detaildic
	End Function

	'/********************************************
	'/* 攝憲愭偺庢摼(庤擖椡)
	'/* return丗dictionary
	'/********************************************
	Public Function GetAddress
		Dim l_addressdic
		Dim l_name

		Set l_addressdic = CreateObject("Scripting.Dictionary")

		'For Each l_name In Request.Form
		'	l_addressdic.add l_name,Request.Form(l_name)
		'Next
		'梄曋斣崋
		l_addressdic.add "postcode1",Request.Form("postcode1")
		l_addressdic.add "postcode2",Request.Form("postcode2")
		'搒摴晎導
		l_addressdic.add "prefecture",Request.Form("prefecture")
		'巗挰懞
		l_addressdic.add "town",l_chutil.Asc_chk(Request.Form("town"),4)
		'斣抧
		l_addressdic.add "house_number",l_chutil.Asc_chk(Request.Form("house_number"),4)
		'價儖柤
		l_addressdic.add "building",l_chutil.Asc_chk(Request.Form("building"),4)
		'夛幮
		l_addressdic.add "company_name",l_chutil.Asc_chk(Request.Form("company_name"),4)
		'晹栧
		l_addressdic.add "section_name",l_chutil.Asc_chk(Request.Form("section_name"),4)
		'偍撏偗愭柤
		l_addressdic.add "person",l_chutil.Asc_chk(Request.Form("person"),4)
		'揹榖斣崋
		l_addressdic.add "tel",Request.Form("tel")
		'Fax
		l_addressdic.add "fax",Request.Form("fax")
		'旛峫
		l_addressdic.add "note",Left(l_chutil.Asc_chk(Request.Form("note"),4),250)
		'儊乕儖
		l_addressdic.add "mail",Request.Form("mail")
		'妋擣儊乕儖
		l_addressdic.add "remail",Request.Form("remail")
		'儃僞儞柤
		l_addressdic.add "consubmit",Request.Form("consubmit")

		l_addressdic.add "postcode",l_addressdic.Item("postcode1") & "-" & l_addressdic.Item("postcode2")
		l_addressdic.add "delikind","偦偺懠偵憲晅"	
		If l_addressdic.Item("ordercd") <> "" Then
			l_addressdic.Remove("ordercd")
		End If

		'========================
		'擖椡僠僃僢僋
		'========================
		If Not InCheckDelivery(l_addressdic) Then
			l_addressdic.add "err",false
		End If
		Set GetAddress = l_addressdic

	End Function

	'/********************************************
	'/* 攝憲愭僐乕僪偺擖椡僠僃僢僋
	'/* param丗l_reccode
	'/* return丗boolean
	'/********************************************
	Public Function CheckRecieve(l_reccode)
		Dim l_msgarray(1)

		CheckRecieve = true
		If l_reccode = "" Or IsNull(l_reccode) Then
			l_msgarray(0) = IG11017E
			CheckRecieve = false
			Session("ErrMsg") = l_msgarray
		ElseIf Not l_cku.IsNumericAlpha(l_reccode) Then
			l_msgarray(0) = IG06024E
			CheckRecieve = false
			Session("ErrMsg") = l_msgarray

		End If

	End Function
	'/********************************************
	'/* 偦偺懠攝憲愭偺擖椡僠僃僢僋
	'/* param丗dictionary
	'/* return丗boolean
	'/********************************************
	Public Function InCheckDelivery(l_dic)
		Dim l_msgarray(20)
		Dim l_element
		Dim l_count

		l_element = 0
		InCheckDelivery = true
		'梄曋斣崋僠僃僢僋
		If l_dic.Item("postcode1") = "" Or l_dic.Item("postcode2") = "" Then
			l_msgarray(l_element) = IG11006E
			l_element = l_element + 1
			InCheckDelivery = false
		ElseIf Not l_cku.Zip_chk(l_dic.Item("postcode")) Then
			l_msgarray(l_element) = IG11007E
			l_element = l_element + 1
			InCheckDelivery = false
		End If

		'搒摴晎導僠僃僢僋
		If l_dic.Item("prefecture") = "慖戰偟偰偔偩偝偄" Then
			l_msgarray(l_element) = IG11008E
			l_element = l_element + 1
			InCheckDelivery = false
		End If

		'巗挰懞僠僃僢僋
		If l_dic.Item("town") = "" Then
			l_msgarray(l_element) = IG11009E
			l_element = l_element + 1
			InCheckDelivery = false
		End If

		'斣抧僠僃僢僋
		If l_dic.Item("house_number") = "" Then
			l_msgarray(l_element) = IG11010E
			l_element = l_element + 1
			InCheckDelivery = false
		End If

		'夛幮柤僠僃僢僋
		If l_dic.Item("company_name") = "" Then
			l_msgarray(l_element) = IG11011E
			l_element = l_element + 1
			InCheckDelivery = false
		End If

		'偍撏偗愭柤僠僃僢僋
		If l_dic.Item("person") = "" Then
			l_msgarray(l_element) = IG11012E
			l_element = l_element + 1
			InCheckDelivery = false
		End If

		'Tel僠僃僢僋
		If l_dic.Item("tel") = "" Then
			l_msgarray(l_element) = IG11013E
			l_element = l_element + 1
			InCheckDelivery = false
		ElseIf Not l_cku.Tel_chk(l_dic.Item("tel")) Then
			l_msgarray(l_element) = IG11014E
			l_element = l_element + 1
			InCheckDelivery = false
		End If

		'Fax僠僃僢僋
		If l_dic.Item("fax") <> "" Then
			If Not l_chkutil.Tel_chk(l_dic.Item("fax")) Then
				l_msgarray(l_element) = IG11035E
				l_element = l_element + 1
				InCheckDelivery = false
			End If
		End If

		'儊乕儖傾僪儗僗僠僃僢僋
		If l_dic.Item("mail") <> "" Then
			If Not l_cku.email_chk(l_dic.Item("mail")) Then
				l_msgarray(l_element) = IG11015E
				l_element = l_element + 1
				InCheckDelivery = false
			ElseIf l_dic.Item("mail") <> l_dic.Item("remail") Then
				l_msgarray(l_element) = IG11016E
				l_element = l_element + 1
				InCheckDelivery = false
			End If
		End If
		ReDim l_re_msgarray(l_element)

		For l_count = 0 to l_element
			l_re_msgarray(l_count) = l_msgarray(l_count)
		Next

		Session("ErrMsg") = l_re_msgarray
	End Function
	'/********************************************
	'/* 僋儘乕僘
	'/********************************************
	Public Function Close
		If IsObject(l_db.l_objADO_Rset) Then
			Call l_db.CloseRecodeset
		End If
		If IsObject(l_db.l_objADO_Conn) Then
			Call l_db.CloseConnection
		End If
	End Function
End Class
%>