formlistmain.asp

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

'		l_rec.l_class1Dsp = CStr(l_cmn.GetCodeName(l_db, CD_CLASS1, l_rs.Fields.Item("CLASS1")))
		l_rec.l_class1Dsp = l_rs.Fields.Item("CLASS1_NAME")
		'挔昜忬嫷(挔昜婎杮忣曬.挔昜忬嫷偺柤徧)
'		l_rec.l_listStatusDsp = CStr(l_cmn.GetCodeName(l_db, CD_LIST_STATUS, l_rs.Fields.Item("LIST_STATUS")))
		l_rec.l_listStatusDsp = l_rs.Fields.Item("LIST_STATUS_NAME")
		'挔昜娗棟斣崋
		l_rec.l_listManageNo = l_rs.Fields.Item("LIST_MANAGE_NO")
		'敪拲娗棟斣崋
'		l_rec.l_orderManageNo = l_rs.Fields.Item("ORDER_MANAGE_NO")
		'僙僢僩挔昜僼儔僌
		l_rec.l_setlistFlg = l_rs.Fields.Item("SETLIST_FLG")

		Set EditRec = l_rec
	End Function

	'/********************************************
	'/* 僜乕僩帪偺俫俿俵俴儕儞僋庢摼
	'/* param丗String l_sortkey 僜乕僩僉乕
	'/* return丗String 俫俿俵俴暥帤楍
	'/********************************************
	Public Function GetSortParmHtml(l_sortkey,l_oldSortDesc)
		Dim l_retStr
		Dim l_newSortDesc

		'僜乕僩弴偺愝掕(徃弴佁崀弴愗傝懼偊)
		If l_oldSortDesc = FLG_ON Then
			l_newSortDesc = FLG_OFF		'崀弴仺徃弴
		Else 
			l_newSortDesc =  FLG_ON		'徃弴仺崀弴
		End If

		'僷儔儊乕僞亖僜乕僩僉乕丄専嶕忦審
		l_retStr = "sessave=" & "2"  &_
			"&sortkey=" & l_sortkey &_
			"&sortdesc=" & l_newSortDesc 
		GetSortParmHtml = l_retStr
	End Function

	'/********************************************
	'/* 擖椡僠僃僢僋
	'/* param丗l_mdl 擖椡儗僐乕僪
	'/* return丗True:惓忢丄False丗僄儔乕
	'/********************************************
	Public Function CheckInput(l_mdl)
		Dim l_Index, l_baspobj
		Set l_baspobj = Server.Createobject("basp21")

		CheckInput = True

		l_Index = 0

		'挔昜斣崋僠僃僢僋
		If l_mdl.l_inListCd <> "" Then
			If Not l_chkUtil.IsNumericAlpha(l_mdl.l_inListCd) Then
				'挔昜斣崋偼敿妏悢帤偱偡
				l_errarray(l_Index) = IG11001E
				l_Index = l_Index + 1
				CheckInput = False
			End If
		End If

		'挔昜巬斣僠僃僢僋
		If l_mdl.l_inListEda <> "" Then 
			If l_chkUtil.number_chk(l_baspobj, l_mdl.l_inListEda) = 0  Then
				'挔昜巬斣偼敿妏悢帤偱偡
				l_errarray(l_Index) = IG11021E
				l_Index = l_Index + 1
				CheckInput = False
			End If
		End If

		'挔昜斣崋丄巬斣憡娭僠僃僢僋丂2006/02/28
		If l_mdl.l_inListEda <> "" And _
			(l_mdl.l_inListCd = "" Or _
			IsNull(l_mdl.l_inListCd)) Then
			l_ErrArray(l_Index) = IG11022E
			l_Index = l_Index + 1
			CheckInput = false
		End If

		'挔昜柤慡妏曄姺
		If l_mdl.l_inListName <> "" Then
			l_mdl.l_inListName = l_cutil.chg_HantoZen(l_mdl.l_inListName)
		End If

		'嶌惉擔(奐巒)僠僃僢僋
		If Not l_chkUtil.IsYMD(l_mdl.l_inPdFromYear,l_mdl.l_inPdFromMonth,l_mdl.l_inPdFromDay) Then
			'嶌惉擔(奐巒)偺巜掕偑晄惓偱偡
			l_errarray(l_Index) = IG01087E
			l_Index = l_Index + 1
			CheckInput = False
		End If

		'嶌惉擔(廔椆)僠僃僢僋
		If Not l_chkUtil.IsYMD(l_mdl.l_inPdToYear,l_mdl.l_inPdToMonth,l_mdl.l_inPdToDay) Then
			'嶌惉擔(廔椆)偺巜掕偑晄惓偱偡
			l_errarray(l_Index) = IG01088E
			l_Index = l_Index + 1
			CheckInput = False
		End If
		
		'2005/12/12捛壛
		'嶌惉擔(奐巒偲廔椆)僠僃僢僋
		If l_mdl.l_inPdFromYear <> "" And l_mdl.l_inPdFromMonth <> "" And l_mdl.l_inPdFromDay <> "" And _
			l_mdl.l_inPdToYear <> "" And l_mdl.l_inPdToMonth <> "" And l_mdl.l_inPdToDay <> "" Then
			If l_mdl.l_inPdFromYear & l_mdl.l_inPdFromMonth & l_mdl.l_inPdFromDay > _
				l_mdl.l_inPdToYear & l_mdl.l_inPdToMonth & l_mdl.l_inPdToDay Then
				l_errarray(l_Index) = IG11104E
				l_Index = l_Index + 1
				CheckInput = False
			End If
		End If

	End Function

	'/*************************************
	'/ 堦棗僿僢僟
	'/ return:html
	'/*************************************
	Public Function ListHeadDsp
		Dim l_html
		Dim l_CRLF
		Dim l_sortdsp

		l_CRLF = Chr(13) & Chr(10)

		'僜乕僩弴丂徃弴丗(仾)丂崀弴丗(伀)
		If l_flmdl.l_sortdesc = FLG_ON Then
			l_sortdsp = "(伀)"
		Else
			l_sortdsp = "(仾)"
		End If

		l_html = "<tr bgcolor=""#28A4A0"" align=""center""> " & l_CRLF &_
				 "<td class=""txt_m"" width=""80"" height=""20"">" &_
				 "<a href=""Form_List.asp?" & GetSortParmHtml("2",l_flmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">嶌惉擔"

		'嶌惉擔偱僜乕僩偺応崌
		If l_flmdl.l_sortkey = "2" Then
			l_html = l_html & l_sortdsp
		End If

		l_html = l_html & "</font></a></td>" & l_CRLF &_
				 "<td class=""txt_m"" width=""95"" height=""20"">" &_
				 "<a href=""Form_List.asp?" & GetSortParmHtml("3",l_flmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">挔昜斣崋"

		'挔昜斣崋偱僜乕僩偺応崌
		If l_flmdl.l_sortkey = "3" Then
			l_html = l_html & l_sortdsp
		End If

		l_html = l_html & "</font></a></td>" & l_CRLF &_
				 "<td class=""txt_m"" height=""20"">" &_
				 "<a href=""Form_List.asp?" & GetSortParmHtml("4",l_flmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">挔昜柤"

		'挔昜柤偱僜乕僩偺応崌
		If l_flmdl.l_sortkey = "4" Then
			l_html = l_html & l_sortdsp
		End If

		l_html = l_html & "</font></a></td>" & l_CRLF &_
				 "<td class=""txt_m"" height=""20"" width=""180"">" &_
				 "<font color=""#FFFFFF"">挔昜忣曬</font></td>" & l_CRLF &_
				 "</tr>" & l_CRLF

		ListHeadDsp = l_html
	End Function

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

End Class

'/************************************
'/挔昜堦棗専嶕忦審曐帩梡僋儔僗
'/************************************
Class FormListMdl
	Dim l_sysId				'僔僗僥儉ID(String)
	Dim l_coId				'夛幮ID(String)
	Dim l_cos_coId			'庢堷愭夛幮ID
	Dim l_userId			'儐乕僓乕ID(String)
	Dim l_secId				'晹栧俬俢(String)
	Dim l_sortkey			'僜乕僩僉乕
	Dim l_sortdesc			'僜乕僩弴
	'専嶕忦審擖椡棑昞帵崁栚
	Dim l_inMenuListCd		'儊僯儏乕挔昜僐乕僪
	Dim l_inListCd 			'擖椡棑梡(挔昜僐乕僪)
	Dim l_inListEda 		'擖椡棑梡(挔昜巬斣)
	Dim l_inListName		'擖椡棑梡(挔昜柤)
	Dim l_inPdTemplate		'擖椡棑梡(僾儖僟僂儞丒僥儞僾儗乕僩)
	Dim l_inPdListStatus	'擖椡棑梡(僾儖僟僂儞丒挔昜忬嫷)
	Dim l_inPdSel			'擖椡棑梡(僾儖僟僂儞丒晹彁)
	Dim l_inPdFromYear 		'擖椡棑梡(僾儖僟僂儞丒FROM擔晅(擭))
	Dim l_inPdFromMonth 	'擖椡棑梡(僾儖僟僂儞丒FROM擔晅(寧))
	Dim l_inPdFromDay 		'擖椡棑梡(僾儖僟僂儞丒FROM擔晅(擔))
	Dim l_inPdToYear		'擖椡棑梡(僾儖僟僂儞丒To擔晅(擭))
	Dim l_inPdToMonth 		'擖椡棑梡(僾儖僟僂儞丒To擔晅(寧))
	Dim l_inPdToDay	 		'擖椡棑梡(僾儖僟僂儞丒To擔晅(擔))
	'専嶕忦審昞帵崁栚
	Dim l_srhMenuListCd		'儊僯儏乕挔昜僐乕僪
	Dim l_srhListCdDsp 		'挔昜僐乕僪(挔昜僐乕僪-挔昜巬斣)
	Dim l_srhListName		'挔昜柤
	Dim l_srhTemplateName	'僥儞僾儗乕僩柤
	Dim l_srhListStatusName	'挔昜忬嫷柤徧
	Dim l_srhSelName		'晹彁柤徧
	Dim l_srhRegYmdDsp 		'嶌惉擔(FROM擔晅乣TO擔晅)
	'堦棗儗僐乕僪昞帵
	Dim l_regYmdDsp			'儗僐乕僪昞帵梡(嶌惉擔)
	Dim l_listCdDsp			'儗僐乕僪昞帵梡(挔昜僐乕僪)
	Dim l_listName			'儗僐乕僪昞帵梡(挔昜柤)
	Dim l_secretFlg			'儗僐乕僪昞帵梡(晹奜旈愝掕)
	Dim l_sectionName		'儗僐乕僪昞帵梡(庡娗晹柤徧)
	Dim l_class1Dsp			'儗僐乕僪昞帵梡(暘椶柤徧(挔昜婎杮忣曬.暘椶侾偺柤徧))
	Dim l_listStatusDsp		'儗僐乕僪昞帵梡(挔昜忬嫷(挔昜婎杮忣曬.挔昜忬嫷偺柤徧)
	Dim l_listManageNo		'儗僐乕僪昞帵梡(挔昜娗棟斣崋)
	Dim l_orderManageNo		'儗僐乕僪昞帵梡(敪拲娗棟斣崋)
	Dim l_setlistFlg		'儗僐乕僪昞帵梡(僙僢僩挔昜僼儔僌)
	Dim l_listCd			'儗僐乕僪昞帵梡(挔昜僐乕僪)
	Dim l_listEda			'儗僐乕僪昞帵梡(挔昜巬斣)
End Class

%>