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
		Dim l_msgarray(1)
		Dim l_element
		
		Set l_agedic = CreateObject("Scripting.Dictionary")
		l_strSql = "SELECT A.COMPANY_ID," &_
				   "       A.SECTION_ID," &_
				   "       A.SECTION_NAME," &_
				   "       A.SECTION_NAME_KANA," &_
				   "       A.POSTCODE," &_
				   "       A.PREFECTURE," &_
				   "       A.TOWN," &_
				   "       A.HOUSE_NUMBER," &_
				   "       A.BUILDING," &_
				   "       A.PERSON," &_
				   "       A.TEL," &_
				   "       A.EXTENSION," &_
				   "       A.FAX," &_
				   "       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 A.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 "note",l_chutil.Asc_chk(Request.Form("note"),4)
		l_agedic.add "mail",Request.Form("mail")
		l_agedic.add "remail",Request.Form("remail")
		l_agedic.add "err",""
		'========================
		'擖椡僠僃僢僋
		'========================
		If Not InCheckDelivery(l_agedic) Then
			l_agedic.Item("err") = false
		End If
		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
		Dim l_msgarray(1)
		Dim l_basp

		Set l_dic = CreateObject("Scripting.Dictionary")
		Set l_rset = CreateObject("ADODB.Recordset")
		Set l_basp = Server.CreateObject("basp21")

		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 RECEIVE_ADDRESS_ID," &_
					   "       COMPANY_ID," &_
					   "       SECTION_ID," &_
					   "       SECTION_NAME," &_
					   "       SECTION_NAME_KANA," &_
					   "       COMPANY_NAME," &_
					   "       COMPANY_NAME_KANA," &_
					   "       CLASS," &_
					   "       POSTCODE," &_
					   "       PREFECTURE," &_
					   "       TOWN," &_
					   "       HOUSE_NUMBER," &_
					   "       BUILDING," &_
					   "       PERSON," &_
					   "       TEL," &_
					   "       EXTENSION," &_
				       "       FAX " &_
					   "FROM RECEIVEADDRESS_M " &_
					   "WHERE RECEIVE_ADDRESS_ID = '" & l_recieveid & "' " &_
					   "  AND DEL_FLG = '" & FLG_OFF & "' "

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

			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
			'-----5.23-----
			If l_dic.Count <> 0 Then
				l_dic.add "err",""
				If l_dic.Item("postcode") <> "" Then
					l_dic.add "postcode1",Replace(l_chutil.html_chg(l_basp,Left(l_dic.Item("postcode"),3)),"""","&quot;")
					l_dic.add "postcode2",Replace(l_chutil.html_chg(l_basp,Mid(l_dic.Item("postcode"),5,4)),"""","&quot;")
				Else
					l_dic.add "postcode1",Left(l_dic.Item("postcode"),3)
					l_dic.add "postcode2",Mid(l_dic.Item("postcode"),5,4)
				End If
				
				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",l_chutil.Asc_chk(Request.Form("note"),4)
				l_dic.add "remail",Request.Form("remail")
				l_dic.add "mail",Request.Form("mail")
			'攝憲愭偑懚嵼偟側偄応崌
			Else
				l_msgarray(0) = IG06023E
				Session("ErrMsg") = l_msgarray
				l_dic.add "err",false
				l_dic.add "deliradio",Request.Form("deliradio")
				'攝憲愭僐乕僪偑偁傞応崌丄html僞僌曄姺
				If Request.Form("ordercd") <> "" Then
					l_dic.add "ordercd",Replace(l_chutil.html_chg(l_basp,Request.Form("ordercd")),"""","&quot;")
				Else
					l_dic.add "ordercd",Request.Form("ordercd")
				End If
				'梄曋斣崋侾偑偁傞応崌丄Html僞僌曄姺
				If Request.Form("postcode1") <> "" Then
					l_dic.add "postcode1",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode1")),"""","&quot;")
				Else
					l_dic.add "postcode1",Request.Form("postcode1")
				End If
				'梄曋斣崋俀偑偁傞応崌丄Html僞僌曄姺
				If Request.Form("postcode1") <> "" Then
					l_dic.add "postcode2",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode2")),"""","&quot;")
				Else
					l_dic.add "postcode2",Request.Form("postcode2")
				End If
				l_dic.add "note",l_chutil.Asc_chk(Request.Form("note"),4)
				l_dic.add "prefecture",Request.Form("prefecture")
				l_dic.add "town",l_chutil.Asc_chk(Request.Form("town"),4)
				l_dic.add "house_number",l_chutil.Asc_chk(Request.Form("house_number"),4)
				l_dic.add "building",l_chutil.Asc_chk(Request.Form("building"),4)
				l_dic.add "company_name",l_chutil.Asc_chk(Request.Form("company_name"),4)
				l_dic.add "section_name",l_chutil.Asc_chk(Request.Form("section_name"),4)
				l_dic.add "person",l_chutil.Asc_chk(Request.Form("person"),4)
				'揹榖斣崋偑懚嵼偡傞応崌丄Html僞僌曄姺
				If Request.Form("tel") <> "" Then
					l_dic.add "tel",Replace(l_chutil.html_chg(l_basp,Request.Form("tel")),"""","&quot;")
				Else
					l_dic.add "tel",Request.Form("tel")
				End If
				'Fax偑偁傞応崌丄Html僞僌曄姺
				If Request.Form("fax") <> "" Then
					l_dic.add "fax",Replace(l_chutil.html_chg(l_basp,Request.Form("fax")),"""","&quot;")
				Else
					l_dic.add "fax",Request.Form("fax")
				End If
				l_dic.add "remail",Request.Form("remail")
				l_dic.add "mail",Request.Form("mail")
			End If
		'僄儔乕偺応崌
		Else
			l_dic.add "err",false
			l_dic.add "deliradio",Request.Form("deliradio")
			'攝憲愭僐乕僪偑偁傞応崌丄html僞僌曄姺
			If Request.Form("ordercd") <> "" Then
				l_dic.add "ordercd",Replace(l_chutil.html_chg(l_basp,Request.Form("ordercd")),"""","&quot;")
			Else
				l_dic.add "ordercd",Request.Form("ordercd")
			End If

			'梄曋斣崋侾偑偁傞応崌丄Html僞僌曄姺
			If Request.Form("postcode1") <> "" Then
				l_dic.add "postcode1",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode1")),"""","&quot;")
			Else
				l_dic.add "postcode1",Request.Form("postcode1")
			End If
			'梄曋斣崋俀偑偁傞応崌丄Html僞僌曄姺
			If Request.Form("postcode1") <> "" Then
				l_dic.add "postcode2",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode2")),"""","&quot;")
			Else
				l_dic.add "postcode2",Request.Form("postcode2")
			End If
			l_dic.add "note",l_chutil.Asc_chk(Request.Form("note"),4)
			l_dic.add "prefecture",Request.Form("prefecture")
			l_dic.add "town",l_chutil.Asc_chk(Request.Form("town"),4)
			l_dic.add "house_number",l_chutil.Asc_chk(Request.Form("house_number"),4)
			l_dic.add "building",l_chutil.Asc_chk(Request.Form("building"),4)
			l_dic.add "company_name",l_chutil.Asc_chk(Request.Form("company_name"),4)
			l_dic.add "section_name",l_chutil.Asc_chk(Request.Form("section_name"),4)
			l_dic.add "person",l_chutil.Asc_chk(Request.Form("person"),4)
			'揹榖斣崋偑懚嵼偡傞応崌丄Html僞僌曄姺
			If Request.Form("tel") <> "" Then
				l_dic.add "tel",Replace(l_chutil.html_chg(l_basp,Request.Form("tel")),"""","&quot;")
			Else
				l_dic.add "tel",Request.Form("tel")
			End If			
			'Fax偑偁傞応崌丄Html僞僌曄姺
			If Request.Form("fax") <> "" Then
				l_dic.add "fax",Replace(l_chutil.html_chg(l_basp,Request.Form("fax")),"""","&quot;")
			Else
				l_dic.add "fax",Request.Form("fax")
			End If		
			l_dic.add "remail",Request.Form("remail")
			l_dic.add "mail",Request.Form("mail")
		End If
	'	If Len(Request.Form("note")) > 250 Then
		If Len(l_dic.Item("note")) > 250 Then
	'	response.write 1
			'旛峫偑250暥帤傪挻偊偰偄傑偡
			l_msgarray(0) = IG11098E
			Session("ErrMsg") = l_msgarray
			l_dic.Item("err") = false
		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_cmn,l_class,l_compname,l_receiveid,l_sectionname,l_srcflg)
		Dim l_strSql
		Dim l_rset 'RecordSet
		Dim l_dic
		Dim l_count

		Set l_dic = CreateObject("Scripting.Dictionary")
		Set l_rset = CreateObject("ADODB.Recordset")