deliveryspecify.asp

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

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

					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 = '0' "
				End If
				l_strSql = l_strSql & " GROUP BY COMPANY_ID,COMPANY_NAME,COMPANY_NAME_KANA,CLASS"
			Case 2
				l_strSql = "SELECT COMPANY_ID, " &_
						   "       SECTION_ID," &_
						   "       SECTION_NAME," &_
						   "       RECEIVE_ADDRESS_ID " &_
						   "  FROM RECEIVEADDRESS_M "
				l_strSql = l_strSql & "WHERE CLASS = '" & l_class & "' " &_
						   "AND COMPANY_NAME = '" & l_compname & "' " &_
						   "AND COMPANY_ID = '" & CStr(l_receiveid) & "' " &_
						   "AND DEL_FLG = '0' "


				If l_sectionname <> "" Then
					l_strSql = l_strSql & "AND SECTION_NAME_KANA LIKE '" &  l_sectionname & "%' "
				End If
		End Select
		
'Response.Write l_strSql
		Set l_rset = l_db.ProcRecordset(l_strSql,10,0)
		Set l_dic = l_cmn.GetDictionaryFromRs(l_rset)
		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
		Dim l_basp

		Set l_addressdic = CreateObject("Scripting.Dictionary")
		Set l_basp = Server.CreateObject("basp21")
		'For Each l_name In Request.Form
		'	l_addressdic.add l_name,Request.Form(l_name)
		'Next
		'梄曋斣崋
		'梄曋斣崋侾偑偁傞応崌丄Html僞僌曄姺
		If Request.Form("postcode1") <> "" Then
			l_addressdic.add "postcode1",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode1")),"""","&quot;")
		Else
			l_addressdic.add "postcode1",Request.Form("postcode1")
		End If
		'梄曋斣崋俀偑偁傞応崌丄Html僞僌曄姺
		If Request.Form("postcode1") <> "" Then
			l_addressdic.add "postcode2",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode2")),"""","&quot;")
		Else
			l_addressdic.add "postcode2",Request.Form("postcode2")
		End If

		'搒摴晎導
		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)
		'揹榖斣崋
		'揹榖斣崋偑懚嵼偡傞応崌丄Html僞僌曄姺
		If Request.Form("tel") <> "" Then
			l_addressdic.add "tel",Replace(l_chutil.html_chg(l_basp,Request.Form("tel")),"""","&quot;")
		Else
			l_addressdic.add "tel",Request.Form("tel")
		End If			
		'Fax
		'Fax偑偁傞応崌丄Html僞僌曄姺
		If Request.Form("fax") <> "" Then
			l_addressdic.add "fax",Replace(l_chutil.html_chg(l_basp,Request.Form("fax")),"""","&quot;")
		Else
			l_addressdic.add "fax",Request.Form("fax")
		End If		
		'旛峫
		l_addressdic.add "note",l_chutil.Asc_chk(Request.Form("note"),4)
		'儊乕儖
		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","偦偺懠偵憲晅"
		l_addressdic.add "deliradio",Request.Form("deliradio")	
		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)
		Dim l_basp
		Set l_basp = Server.Createobject("basp21")

		CheckRecieve = true
		If l_reccode = "" Or IsNull(l_reccode) Then
			l_msgarray(0) = IG06022E
			CheckRecieve = false
			Session("ErrMsg") = l_msgarray
		'ElseIf l_cku.number_chk(l_basp,l_reccode) = "0" Then
		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()
		Dim l_element
		Dim l_count

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

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

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

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

		'夛幮柤僠僃僢僋 20051205 僐儊儞僩傾僂僩嶍彍
		If l_dic.Item("company_name") = "" Then
			Redim Preserve l_msgarray(l_element)
			l_msgarray(l_element) = IG11011E
			l_element = l_element + 1
			InCheckDelivery = false
		End If

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

		'Tel僠僃僢僋
		If l_dic.Item("tel") = "" Then
			Redim Preserve l_msgarray(l_element)
			l_msgarray(l_element) = IG11013E
			l_element = l_element + 1
			InCheckDelivery = false
		ElseIf Not l_cku.Tel_chk(l_dic.Item("tel")) Then
			Redim Preserve l_msgarray(l_element)
			l_msgarray(l_element) = IG11014E
			l_element = l_element + 1
			InCheckDelivery = false
		End If
		
		'Fax僠僃僢僋 20051202 捛壛
		If l_dic.Item("fax") <> "" Then
			If Not l_cku.Tel_chk(l_dic.Item("fax")) Then
				Redim Preserve l_msgarray(l_element)
				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
				Redim Preserve l_msgarray(l_element)
				l_msgarray(l_element) = IG11015E
				l_element = l_element + 1
				InCheckDelivery = false
			ElseIf l_dic.Item("mail") <> l_dic.Item("remail") Then
				Redim Preserve l_msgarray(l_element)
				l_msgarray(l_element) = IG11016E
				l_element = l_element + 1
				InCheckDelivery = false
			End If
		End If
		'旛峫偺暥帤悢僠僃僢僋	20051111 廋惓
		If l_dic.Item("note") <> "" Then
			If Len(l_dic.Item("note")) > 250 Then
				Redim Preserve l_msgarray(l_element)
				'旛峫偑250暥帤傪挻偊偰偄傑偡
				l_msgarray(l_element) = IG11098E
				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
		If l_element > 0 Then
		'	Session("ErrMsg") = l_re_msgarray
			Session("ErrMsg") = l_msgarray
		End If
	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
%>