formconfirmmain.asp

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

<%
'/************************************
'/挔昜忣曬擖椡妋擣儊僀儞僋儔僗
'/************************************
Class FormConfirmMain
	Dim l_db				'DBAccess DB傾僋僙僗梡
	Dim l_cutil				'暥帤儐乕僥傿儕僥傿
	Dim l_cmn				'嫟捠僋儔僗(Common)
	Dim l_chkUtil			'嫟捠僋儔僗(CheckUtil)
	Dim l_mkmdl				'忦審曐帩(MakeStep1Mdl)
	Dim l_lb				'FmListBaseMaster
	Dim l_mn				'FmManageNoMaster
	Dim l_listManageNo		'挔昜娗棟斣崋
	Dim l_detaildic			'Dictionary

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Set l_cmn = New Common
		Set l_mkmdl = New MakeStep1Mdl
		Set l_lb = New FmListBaseMaster
		Set l_mn = New ManageNoMaster
		Set l_chkUtil = New CheckUtil
		Set l_cutil = New CharUtil

		Call l_cmn.SearchSession()

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

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_mkmdl.l_sysId = Session("User").Item("SYSTEM_ID")		'僔僗僥儉ID
		l_mkmdl.l_coId = Session("User").Item("COMPANY_ID")		'夛幮ID
		l_mkmdl.l_sectionId = Session("User").Item("SECTION_ID")	'晹彁俬俢
		l_mkmdl.l_userId = Session("User").Item("USER_ID")		'儐乕僓乕ID
		l_listManageNo =  Request.QueryString("listmanageno")


	End Function

	'/*******************************************
	'/* 挔昜忣曬偺僙僢僩
	'/* param丗
	'/* return丗
	'/*******************************************
	Public Function SetListDetail
		Dim l_rset,l_count

		Set l_detaildic = CreateObject("Scripting.Dictionary")
		Set l_rset = l_lb.SearchListBaseRec(l_db, l_mkmdl.l_sysId, l_mkmdl.l_coId, l_listManageNo,"")
		If Not l_rset.Eof Then
			Session.Contents.Remove("formmk")

			For l_count = 0 to l_rset.Fields.Count - 1
				l_detaildic.add l_cutil.Asc_chk(l_rset.Fields(l_count).Name,2),l_rset.Fields(l_count).Value
			Next
			

			'l_detaildic.add "listcode",l_detaildic.Item("LIST_CD") & "-" & l_detaildic.Item("LIST_EDA")
			Set Session("formmk") = l_detaildic
		End If

	End Function

	'/*******************************************
	'/* 儗儀儖昞帵
	'/* param丗
	'/* return丗
	'/*******************************************
	Public Function GetOpenAuthDsp
		Dim l_html
		Dim l_CRLF

		l_CRLF = Chr(13) & Chr(10)
		l_html = "<tr> " & l_CRLF &_
				 "<td width=""10"" class=""txt_m"">&nbsp;</td>" & l_CRLF &_
				 "<td width=""120"" class=""txt_m"" bgcolor=""#EBEBEB"">" &_
				 "<font color=""#DD0000"">仭</font>岞奐尃尷</td>"  & l_CRLF &_
				 "<td class=""txt_m"" width=""480"">" &_
				 "亂挔昜徠夛乮岞奐乯亃&nbsp;"
		'挔昜徠夛儗儀儖昞帵
		Select Case l_openAuthList
			case "1"
				l_html = l_html & "Level 1" & l_CRLF 
			case "4"
				l_html = l_html & "Level 2" & l_CRLF 
		End Select
		l_html = l_html & "<br>" &_
				"亂弌屔埶棅乮惪媮乯亃&nbsp;"

		'弌屔埶棅儗儀儖昞帵
		Select Case l_openAuthLeav
			case "1"
				l_html = l_html & "Level 1<br>" & l_CRLF 
			case "4"
				l_html = l_html & "Level 2<br>" & l_CRLF 
		End Select

		l_html = l_html & "</td>" & l_CRLF &_
				 "</tr>" & l_CRLF

		GetOpenAuthDsp = l_html
	End Function
End Class

'/************************************
'/挔昜婎杮忣曬擖椡夋柺僨乕僞曐帩梡僋儔僗
'/************************************
Class MakeStep1Mdl
	Dim l_sysId						'僔僗僥儉ID(String)
	Dim l_coId						'夛幮ID(String)
	Dim l_userId					'儐乕僓乕ID(String)

	Dim l_listCd					'挔昜斣
	Dim l_listEda					'挔昜巬斣
	Dim l_listName					'挔昜柤
	Dim l_sectionId					'庡娗晹栧
	Dim l_applicant					'怽惪幰
	Dim l_calcSubject				'姩掕壢栚
	Dim l_class1					'暘椶侾
	Dim l_class2					'暘椶俀
	Dim l_class3					'暘椶俁
	Dim l_listUnit					'挔昜娗棟扨埵
	Dim l_listManageNo				'挔昜娗棟斣崋
	Dim l_listStatus				'挔昜忬嫷
	Dim l_listCdDsp					'挔昜僐乕僪(挔昜僐乕僪-挔昜巬斣)
	Dim l_resultSize				'巇忋偘僒僀僘
	Dim l_packingCount				'1崼曪偺擖傝悢
	Dim l_openPeriodStartYY			'岞奐婜娫乮奐巒乯乮擭乯
	Dim l_openPeriodStartMM			'岞奐婜娫乮奐巒乯乮寧乯
	Dim l_openPeriodStartDD			'岞奐婜娫乮奐巒乯乮擔乯
	Dim l_openPeriodEndYY			'岞奐婜娫乮廔椆乯乮擭乯
	Dim l_openPeriodEndMM			'岞奐婜娫乮廔椆乯乮寧乯
	Dim l_openPeriodEndDD			'岞奐婜娫乮廔椆乯乮擔乯
	Dim l_claimPeriodStartYY		'惪媮婜娫乮奐巒乯乮擭乯
	Dim l_claimPeriodStartMM		'惪媮婜娫乮奐巒乯乮寧乯
	Dim l_claimPeriodStartDD		'惪媮婜娫乮奐巒乯乮擔乯
	Dim l_claimPeriodEndYY			'惪媮婜娫乮廔椆乯乮擭乯
	Dim l_claimPeriodEndMM			'惪媮婜娫乮廔椆乯乮寧乯
	Dim l_claimPeriodEndDD			'惪媮婜娫乮廔椆乯乮擔乯
	Dim l_claimPeriodFlag			'擺昳師戞惪媮奐巒僼儔僌
	Dim l_unitPrice					'攝晩扨壙
	Dim l_arrivalWait				'擖壸懸偪
	Dim l_usePossibleTermStartYY	'巊梡壜擻婜尷乮奐巒乯乮擭乯
	Dim l_usePossibleTermStartMM	'巊梡壜擻婜尷乮奐巒乯乮寧乯
	Dim l_usePossibleTermStartDD	'巊梡壜擻婜尷乮奐巒乯乮擔乯
	Dim l_usePossibleTermEndYY		'巊梡壜擻婜尷乮廔椆乯乮擭乯
	Dim l_usePossibleTermEndMM		'巊梡壜擻婜尷乮廔椆乯乮寧乯
	Dim l_usePossibleTermEndDD		'巊梡壜擻婜尷乮廔椆乯乮擔乯
	Dim l_leavDirection				'戝検弌屔巜帵
	Dim l_leavDirectionCount		'戝検弌屔巜帵悢
	Dim l_openImageFlag				'岞奐夋憸岞奐僼儔僌
	Dim l_openAuthList				'岞奐尃尷乮挔昜徠夛乮岞奐乯乯
	Dim l_openAuthLeav				'岞奐尃尷乮弌屔埶棅乮惪媮乯乯
	Dim l_listNumberNew1			'怴挔昜斣崋侾
	Dim l_listNumberNew2			'怴挔昜斣崋俀
	Dim l_listNumberNew3			'怴挔昜斣崋俁
	Dim l_listNumberOld1			'媽挔昜斣崋侾
	Dim l_listNumberOld2			'媽挔昜斣崋俀
	Dim l_listNumberOld3			'媽挔昜斣崋俁
	Dim l_dataClaimNote				'帒椏惪媮旛峫

End Class

%>