whcommon.asp

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

			End If

	End Function

	'/**********************************************************
	'/* 挔昜娗棟URL僠僃僢僋
	'/* return丗True:Session(PRE_URL)偵愝掕偝傟偨URL偑挔昜娗棟偺挔昜堦棗傑偨偼""偺偲偒
	'/*         False丗偦傟埲奜偺応崌
	'/**********************************************************
	Public Function CheckApproveUrl()
		Dim l_wkUrlArray, l_wkUrl
		CheckApproveUrl = False
		'僙僢僔儑儞偵曐帩偝傟偨URL傪庢摼乮"?"埲崀偺僷儔儊乕僞傪彍偔)
		If Not IsNull(Session(PRE_URL)) Then
			l_wkUrlArray = Split(Session(PRE_URL),"?")

			If IsArray(l_wkUrlArray) Then
				If UBound(l_wkUrlArray) > 0 Then
					l_wkUrl = l_wkUrlArray(0)
				End If
			Else
				l_wkUrl = Session(PRE_URL)
			End If

			If l_wkUrl = "../formmk/Approve_List.asp" or l_wkUrl = "../order/order_app_list.asp" Then
				CheckApproveUrl = True
			End If
		End If
	End Function

	'/**********************************************************
	'/* 僷僗儚乕僪夋柺偺僆乕僾儞僠僃僢僋
	'/* param丗l_secretFlg 晹奜旈岞奐僼儔僌
	'/*		   l_secretPassword 晹奜旈岞奐僷僗儚乕僪
	'/*		   l_sectionId 晹栧ID乮庡娗晹栧)
	'/* return丗True:岞奐偡傞丄僷僗儚乕僪偁傝丄娗棟尃尷偑側偄丄帺晹栧埲奜偺応崌
	'/*         False丗偦傟埲奜
	'/**********************************************************
	Public Function CheckPassWinOpen(l_secretFlg,l_secretPassword,l_sectionId)

		Dim l_menuAuth,l_wkPass

		CheckPassWinOpen = False

		'塣梡娗棟尃尷庢摼("1"丗娗棟尃尷偁傝(塣梡娗棟尃尷偑偁傞応崌)丄"0"丗娗棟尃尷側偟)
		l_menuAuth = l_fmcmn.GetMenuAuth()
		l_wkPass = l_secretPassword
		If IsNull(l_secretPassword) Or l_secretPassword = "" Then
			l_wkPass = ""
		End If

		'僷僗儚乕僪夋柺昞帵敾掕
		If l_secretFlg = FLG_ON And _
			l_wkPass <> "" And _
			l_menuAuth <> FLG_ON And _
			l_sectionId <> Session("User").Item("SECTION_ID") Then
			'岞奐偡傞丄僷僗儚乕僪偁傝丄娗棟尃尷偑側偄丄帺晹栧埲奜偺応崌丄僷僗儚乕僪夋柺傪昞帵
			CheckPassWinOpen = True
		End If
	End Function

	'/**********************************************************
	'/* 挔昜娗棟丒峏怴僼儔僌庢摼(嫟捠乯
	'/* 娗棟尃尷偑側偄丄偐偮丄帺晹栧偱側偄応崌偼偡傋偰偺僼傿乕儖僪偑擖椡晄壜丅
	'/* 俢俛峏怴偼峴傢側偄丅
	'/* param丗l_secId 晹栧俬俢
	'/*		   l_mySecId 晹栧俬俢乮儘僌僀儞晹栧俬俢乯
	'/*		   l_menuAuth 娗棟尃尷
	'/* return: "1"丗峏怴壜丄"0"丗峏怴晄壜
	'/**********************************************************
	Public Function GetFmUpdateFlg(l_secId, l_mySecId, l_menuAuth)
		GetFmUpdateFlg = FLG_OFF
		
		If l_menuAuth = FLG_ON or l_secId  = l_mySecId Then
			'娗棟尃尷偑偁傞傑偨偼丄帺晹栧偺応崌偼擖椡壜乮峏怴張棟傪偡傞)
			GetFmUpdateFlg = FLG_ON
		End If
	End Function

	'/**********************************************************
	'/* 俽俿俤俹俀夋柺丄俽俿俤俹俀亅俀夋柺丒昞帵僼儔僌庢摼(嫟捠乯
	'/* param丗l_listSts 挔昜忬嫷
	'/*		   l_odrSts 敪拲忬嫷
	'/* return: "1"丗擖椡壜丄"0"丗擖椡晄壜
	'/**********************************************************
	Public Function GetDspFlgStep2Cmn(l_listSts, l_odrSts)
		GetDspFlgStep2Cmn = FLG_OFF

		If l_listSts = LSTS_APPROVE and _
		  (l_odrSts = ASTS_RECEIPT or l_odrSts = ASTS_AUCTION_FIN or l_odrSts = OSTS_ORDER_TEMP) Then
			'挔昜僗僥乕僞僗亖彸擣嵪傒偐偮丄
			'敪拲忬嫷亖怽惪庴晅丄僆乕僋僔儑儞廔椆丄壖敪拲偺偲偒擖椡壜
			GetDspFlgStep2Cmn = FLG_ON
		ElseIf l_listSts = LSTS_DRAFT or l_listSts = LSTS_CONF or _
			(l_listSts = LSTS_APPROVE and IsNull(l_odrSts)) Then
			'挔昜僗僥乕僞僗亖壓彂偒丄妋掕丄彸擣嵪傒偺偲偒擖椡壜
			GetDspFlgStep2Cmn = FLG_ON
		End If
	End Function

	'/**********************************************************
	'/* 俽俿俤俹俀丒俽俿俤俹俀亅俀丒俽俿俤俹俀亅俁夋柺儃僞儞昞帵僼儔僌庢摼
	'/* param丗l_listSts 挔昜忬嫷
	'/*		   l_odrSts 敪拲忬嫷
	'/* return: "1"丗擖椡壜丄"0"丗擖椡晄壜
	'/**********************************************************
	Public Function GetDspFlgStep2BtnCmn(l_listSts, l_odrSts)
		GetDspFlgStep2BtnCmn = FLG_OFF
		If l_listSts = LSTS_APPROVE and _
		  (l_odrSts = ASTS_RECEIPT or  _
		   l_odrSts = ASTS_AUCTION_FIN or l_odrSts = OSTS_ORDER_TEMP) Then
			'挔昜僗僥乕僞僗亖彸擣嵪傒偐偮丄
			'敪拲忬嫷亖怽惪庴晅丄僆乕僋僔儑儞廔椆丄壖敪拲偺偲偒擖椡壜
			GetDspFlgStep2BtnCmn = FLG_ON
		ElseIf l_listSts = LSTS_DRAFT or l_listSts = LSTS_CONF or _
			(l_listSts = LSTS_APPROVE and IsNull(l_odrSts)) Then
			'挔昜忬嫷亖壓彂偒丄妋掕丄彸擣嵪傒偺偲偒擖椡壜
			GetDspFlgStep2BtnCmn = FLG_ON
		End If
	End Function

	'/**********************************************************
	'/* 俽俿俤俹俀丒俽俿俤俹俀亅俀丒俽俿俤俹俀亅俁夋柺儃僞儞昞帵僼儔僌庢摼(嫟捠俀乯
	'/* param丗l_listSts 挔昜忬嫷
	'/*		   l_odrSts 敪拲忬嫷
	'/* return: "1"丗擖椡壜丄"0"丗擖椡晄壜
	'/**********************************************************
	Public Function GetDspFlgStep2BtnCmn2(l_listSts, l_odrSts)
		GetDspFlgStep2BtnCmn2 = FLG_OFF
		If l_listSts = LSTS_APPROVE and _
		 (l_odrSts = ASTS_RECEIPT or  l_odrSts = ASTS_AUCTION or _
		   l_odrSts = ASTS_AUCTION_FIN or l_odrSts = OSTS_ORDER_TEMP) Then
			'挔昜僗僥乕僞僗亖彸擣嵪傒偐偮丄
			'敪拲忬嫷亖怽惪庴晅丄僆乕僋僔儑儞拞丄僆乕僋僔儑儞廔椆丄壖敪拲偺偲偒擖椡壜
			GetDspFlgStep2BtnCmn2 = FLG_ON
		ElseIf l_listSts = LSTS_DRAFT or l_listSts = LSTS_CONF or _
			(l_listSts = LSTS_APPROVE and IsNull(l_odrSts)) Then
			'挔昜忬嫷亖壓彂偒丄妋掕丄彸擣嵪傒 偺偲偒擖椡壜
			GetDspFlgStep2BtnCmn2 = FLG_ON
		End If
	End Function

	'/*******************************************************
	'/* 報嶞暘椶昞帵
	'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
	'/*		   l_dbaccess (DBAccess) 	DB傾僋僙僗
	'/*        l_cmn Common僆僽僕僃僋僩
	'/*        l_printClass  報嶞暘椶
	'/*******************************************************
	Public Sub DispPrintClass(l_dspFlg,l_dbaccess,l_cmn,l_printClass)
		If l_dspFlg = FLG_ON Then
%>
			  <%=l_cmn.GetPullDown(l_dbaccess, CD_PRINT_CLASS, "printclass", l_printClass, FLG_ON) %>
<%		Else
%>		
			  <%=CStr(l_cmn.GetCodeName(l_db, CD_PRINT_CLASS, l_printClass))%>
			丂<input type="hidden" name="printclass" value="<%=l_printClass%>">
<%		End If

	End Sub

	'/*******************************************************
	'/* 儁乕僕悢昞帵
	'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
	'/*        l_indata		擖椡僨乕僞
	'/*******************************************************
	Public Sub DispPageCount(l_dspflg,l_data)
		If l_dspFlg = FLG_ON Then
%>
			  <input type="text" name="pagecount" maxlength="12" style="width:80px;" value="<%=l_data%>">
              <span class="tyu_m">仸敿妏悢帤</span>
<%		Else 
%>
			  <%=l_cutil.NumericFormat(l_data,False,0)%>儁乕僕
			  <input type="hidden" name="pagecount" value="<%=l_data%>">
<%		End If
	End Sub

	'/*******************************************************
	'/* 1嶜偁偨傝偺僙僢僩悢昞帵
	'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
	'/*        l_indata		擖椡僨乕僞
	'/*******************************************************
	Public Sub DispSetCount(l_dspflg,l_data)
		If l_dspFlg = FLG_ON Then
%>
			  <input type="text" name="setcount" maxlength="12" style="width:80px;" value="<%=l_data%>">
              <span class="tyu_m">仸敿妏悢帤</span>
<%		Else 
%>
			  <%=l_cutil.NumericFormat(l_data,False,0)%>
			  <input type="hidden" name="setcount" value="<%=l_data%>">
<%		End If
	End Sub

	'/*******************************************************
	'/* 巇忋偘僒僀僘昞帵
	'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
	'/*		   l_dbaccess (DBAccess) 	DB傾僋僙僗
	'/*        l_cmn Common僆僽僕僃僋僩
	'/*        l_resultSize  巇忋偘僒僀僘
	'/*        l_resultRow  巇忋偘僒僀僘廲
	'/*        l_resultCol  巇忋偘僒僀僘墶
	'/*        l_resultUnit  巇忋偘僒僀僘扨埵
	'/*******************************************************
	Public Sub DispResultSize(l_dspFlg,l_dbaccess,l_cmn,l_resultSize, l_resultRow, l_resultCol, l_resultUnit)
		If l_dspFlg = FLG_ON Then
%>
			  <%=l_cmn.GetPullDown(l_dbaccess, CD_RESULT_SIZE, "resultsize", l_resultSize, FLG_ON) %>

              丂仸曄宍偺応崌丗廲 
              <input name="resultrow" type="text" size="10" maxlength="8" value="<%=l_resultRow%>">
              亊 墶 
              <input name="resultcol" type="text" size="10" maxlength="8" value="<%=l_resultCol%>">
              <%=l_cmn.GetPullDown(l_dbaccess, CD_SIZE_UNIT, "resultunit", l_resultUnit, FLG_OFF) %>
<%		Else
%>		
			  <%=CStr(l_cmn.GetCodeName(l_db, CD_RESULT_SIZE, l_resultSize))%>

<%			If l_resultSize = RESULT_MODI Then
%>              丂廲 
              <%=l_resultRow%>
              亊 墶 
              <%=l_resultCol%>
              <%=CStr(l_cmn.GetCodeName(l_db, CD_SIZE_UNIT, l_resultUnit))%>
<%			End If
%>			  <input type="hidden" name="resultsize" value="<%=l_resultSize%>">
			  <input type="hidden" name="resultrow" value="<%=l_resultRow%>">
			  <input type="hidden" name="resultcol" value="<%=l_resultCol%>">

<%		End If
	End Sub

	'/*******************************************************
	'/* 揥奐僒僀僘昞帵
	'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
	'/*		   l_dbaccess (DBAccess) 	DB傾僋僙僗
	'/*        l_cmn Common僆僽僕僃僋僩
	'/*        l_deploySize  揥奐僒僀僘
	'/*        l_deployRow  揥奐僒僀僘廲
	'/*        l_deployCol  揥奐僒僀僘墶
	'/*        l_deployUnit  揥奐僒僀僘扨埵
	'/*******************************************************
	Public Sub DispDeploySize(l_dspFlg,l_dbaccess,l_cmn,l_deploySize, l_deployRow, l_deployCol, l_deployUnit)
		If l_dspFlg = FLG_ON Then
%>
			  <%=l_cmn.GetPullDown(l_dbaccess, CD_DEPLOY_SIZE, "deploysize", l_deploySize, FLG_ON) %>

              丂仸曄宍偺応崌丗廲 
              <input name="deployrow" type="text" size="10" maxlength="8" value="<%=l_deployRow%>">
              亊 墶 
              <input name="deploycol" type="text" size="10" maxlength="8" value="<%=l_deployCol%>">
              <%=l_cmn.GetPullDown(l_dbaccess, CD_SIZE_UNIT, "deployunit", l_deployUnit, FLG_OFF) %>
<%		Else
%>		
			  <%=CStr(l_cmn.GetCodeName(l_db, CD_DEPLOY_SIZE, l_deploySize))%>

<%			If l_resultSize = DEPLOY_MODI Then
%>              丂廲 
              <%=l_deployRow%>
              亊 墶 
              <%=l_deployCol%>
              <%=CStr(l_cmn.GetCodeName(l_db, CD_SIZE_UNIT, l_deployUnit))%>
<%			End If
%>			  <input type="hidden" name="deploysize" value="<%=l_deploySize%>">
			  <input type="hidden" name="deployrow" value="<%=l_deployRow%>">
			  <input type="hidden" name="deploycol" value="<%=l_deployCol%>">
<%		End If
	End Sub

	'/*******************************************************
	'/* 惢杮昞帵
	'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
	'/*		   l_dbaccess (DBAccess) 	DB傾僋僙僗
	'/*        l_cmn Common僆僽僕僃僋僩
	'/*        l_bookbinding  惢杮
	'/*        l_bookbindingOther  惢杮偦偺懠
	'/*******************************************************
	Public Sub DispBookbinding(l_dspFlg,l_dbaccess,l_cmn,l_bookbinding, l_bookbindingOther)
		If l_dspFlg = FLG_ON Then
%>
			  <%=l_cmn.GetPullDown(l_dbaccess, CD_BOOKBINDING, "bookbinding", l_bookbinding, FLG_ON) %>
              丂仸偦偺懠偺応崌 
              <input type="text" name="bookbindingother" maxlength="20" style="width:250px;" value="<%=l_bookbindingOther%>">
<%		Else
%>			  <%=CStr(l_cmn.GetCodeName(l_db, CD_BOOKBINDING, l_bookbinding))%>
<%			If l_bookbinding = BOOKBINDING_OTHER Then
%>              丂仸偦偺懠偺応崌 
			  <%=l_bookbindingOther%>
<%			End If
%>			  <input type="hidden" name="bookbinding" value="<%=l_bookbinding%>">
			  <input type="hidden" name="bookbindingother" value="<%=l_bookbindingOther%>">
<%		End If
	End Sub

	'/*******************************************************
	'/* 壛岺摿婰昞帵
	'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
	'/*        l_indata		擖椡僨乕僞
	'/*******************************************************
	Public Sub DispProcessingNote(l_dspFlg,l_data)
		If l_dspFlg = FLG_ON Then
%>
			  <textarea name="processingnote" rows="5" style="width:350px;"><%=l_data%></textarea>
<%		Else 
%>
			  <%=l_data%>
			  <input type="hidden" name="processingnote" value="<%=l_data%>">
<%		End If
	End Sub

	'/*******************************************************
	'/* 崼曪宍懺昞帵
	'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
	'/*        l_indata		擖椡僨乕僞
	'/*******************************************************
	Public Sub DispPackingForm(l_dspFlg,l_data)
		If l_dspFlg = FLG_ON Then
%>
              <input type="text" name="packingform" maxlength="50" style="width:200px;" value="<%=l_data%>">