<%

Function GetBackupPath()
	Dim Query, Content
	Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		GetBackupPath = Content.Fields("共通データパス")
	End If

End Function



'/////////////////////////////////////////////////////////////////////////////////////
'	名称：CyberQuery
'	目的：サイバートレードのクエリー文を実行する
'	作成：2003/1/30 徳田
'/////////////////////////////////////////////////////////////////////////////////////
Function Ct21Query(F_Query)
	Dim db


	Set db = Server.CreateObject("ADODB.Connection")
	db.Open ct21Conn
	Set Ct21Query = ExecQuery(db, F_Query)

End Function

Function CheckSeiriKinyugo(F_KaisyaCD, Syoribi)
	Dim Query, Content
	CheckSeiriKinyugo = 0
	Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & F_KaisyaCD & "', '', -1, -1, 9"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		CheckSeiriKinyugo = 1
	End If
End Function

Function CheckKessanFurikaego(F_KaisyaCD, Syoribi)
	Dim Query, Content
	CheckKessanFurikaego = 0
	Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & F_KaisyaCD & "', '', -1, -1, 10"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		CheckKessanFurikaego = 1
	End If
End Function

Function KimatsuTanaoroshiKingaku(Syoribi)
	Dim Query, Content
	Dim bExistSyuseiKinyu
	bExistSyuseiKinyu = 0
	Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', -1, -1, 9"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		bExistSyuseiKinyu = 1
	End If

	If bExistSyuseiKinyu = 0 Then
		KimatsuTanaoroshiKingaku = KimatsuTanaoroshiKingakuSeiriKinyuMae(Syoribi)
	Else
		KimatsuTanaoroshiKingaku = KimatsuTanaoroshiKingakuSeiriKinyuGo(Syoribi)
	End If
End Function

Function KimatsuTanaoroshiKingakuSeiriKinyuMae(Syoribi)
	Dim tmp
	Dim Query, Content
	tmp = 0
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		tmp = tmp + NyusyukoZaikoKingaku(EnshuCD, KaisyaCD, Content.fields("商品CD"), Syoribi)
		Content.MoveNext
	Loop
	KimatsuTanaoroshiKingakuSeiriKinyuMae = tmp
End Function


Function KimatsuTanaoroshiKingakuSeiriKinyuGo(Syoribi)
	''''''1210繰越商品
	Dim tmp
	Dim Query, Content
	tmp = 0

	Dim KanjyoCDKurikoshiSyohin
	Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','" & EnshuCD & "', 'DJ'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		KanjyoCDKurikoshiSyohin = Content.Fields("勘定CD")
		Content.MoveNext
	Loop

	If "" & KanjyoCDKurikoshiSyohin <> "" Then
		Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCDKurikoshiSyohin & "', 0, 1, 9"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			tmp = Content.Fields("借方金額") - Content.Fields("貸方金額")
		End If
	End If

	KimatsuTanaoroshiKingakuSeiriKinyuGo = tmp
End Function


Function KisyuTanaoroshiKingaku(Syoribi)
	''''''1210繰越商品
	Dim tmp
	Dim Query, Content
	tmp = 0

	Dim KanjyoCDKurikoshiSyohin
	Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','" & EnshuCD & "', 'DJ'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		KanjyoCDKurikoshiSyohin = Content.Fields("勘定CD")
		Content.MoveNext
	Loop

	If "" & KanjyoCDKurikoshiSyohin <> "" Then
		Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCDKurikoshiSyohin & "', 0, -1, -1"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			tmp = Content.Fields("借方金額") - Content.Fields("貸方金額")
		End If
	End If

	KisyuTanaoroshiKingaku = tmp
End Function


Function KityuShiireKingaku(Syoribi)

	Dim tmp
	Dim Query, Content
	tmp = 0

	Dim KanjyoCDShiire
	Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','" & EnshuCD & "', 'DL'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		KanjyoCDShiire = Content.Fields("勘定CD")
		Content.MoveNext
	Loop

	If "" & KanjyoCDShiire <> "" Then
		Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCDShiire & "', 0, 1, -1"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			tmp = Content.Fields("借方金額") - Content.Fields("貸方金額")
		End If
	End If

	KityuShiireKingaku = tmp
End Function


'分析用区分での期中売上原価集計（KityuShiireKingakuでは仕入以外が集計できない）（180419小野）
Function KityuUriageGenka(Syoribi)

	Dim tmp
	Dim Query, Content
	tmp = 0

	'分析用区分「仕入」の全科目を配列化
	Dim KanjyoCDUriageGenka
	ReDim KanjyoCDUriageGenka(0)
	Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '', '', '" & GB_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("分析用区分") = "DB" Then '「仕入」区分
			ReDim PreServe KanjyoCDUriageGenka(UBound(KanjyoCDUriageGenka) + 1) '配列+1
			KanjyoCDUriageGenka(UBound(KanjyoCDUriageGenka)) =  Content.Fields("勘定CD")
		End If
		Content.MoveNext
	Loop

	Dim Cnt
	For Cnt = 1 To UBound(KanjyoCDUriageGenka)
		Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCDUriageGenka(Cnt) & "', 0, 1, -1"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			tmp = tmp + Content.Fields("借方金額") - Content.Fields("貸方金額")
		End If
	Next

	KityuUriageGenka = tmp
End Function


Function UriageGenkaSyutoku(Syoribi)

'	UriageGenkaSyutoku = KisyuTanaoroshiKingaku(Syoribi) + KityuShiireKingaku(Syoribi) - KimatsuTanaoroshiKingaku(Syoribi)
	                                                      'KityuShiireKingakuでは仕入以外の売上原価が集計できない（180419小野）
	UriageGenkaSyutoku = KisyuTanaoroshiKingaku(Syoribi) + KityuUriageGenka(Syoribi) - KimatsuTanaoroshiKingaku(Syoribi)

End Function


'//################################################
'//	名称：UketoriKanjoShutoku
'//	目的：受取勘定を取得する
'//	作成：2009/9/7　小野
'//################################################
Function UketoriKanjoShutoku(Syoribi)

	Dim tmp
	Dim Query, Content
	tmp = 0

	'特別勘定区分から勘定CDを特定
	Dim KanjyoCDUrikakekin
	Dim KanjyoCDUketoriTegata
	Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "', '" & EnshuCD & "', ''"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("特別勘定区分") = "DN" Then
			KanjyoCDUrikakekin = Content.Fields("勘定CD")
		ElseIf Content.Fields("特別勘定区分") = "DW" Then
			KanjyoCDUketoriTegata = Content.Fields("勘定CD")
		End If
		Content.MoveNext
	Loop

	'売掛金
	If "" & KanjyoCDUrikakekin <> "" Then
		Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCDUrikakekin & "', 0, 1, 9"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			tmp = tmp + Content.Fields("借方金額") - Content.Fields("貸方金額")
		End If
	End If

	'受取手形
	If "" & KanjyoCDUketoriTegata <> "" Then
		Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCDUketoriTegata & "', 0, 1, 9"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			tmp = tmp + Content.Fields("借方金額") - Content.Fields("貸方金額")
		End If
	End If

	UketoriKanjoShutoku = tmp

End Function


'移動平均法なので誤差が出る
Function NyusyukoZaikoKingaku(EnshuCD, KaisyaCD, SyohinCD, Syuryobi)
	Dim Query, Content
	Query = "exec SPR入出庫在庫明細 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & SyohinCD & "','" & Syuryobi & "'"
	Set Content = OpenQuery(Query)

	Dim KubunNM
	Dim NyukoSu , NyukoTanka , NyukoKingaku
	Dim SyukoSu , SyukoTanka , SyukoKingaku
	Dim ZaikoSu , ZaikoTanka , ZaikoKingaku

	ZaikoKingaku = 0
	ZaikoSu = 0
	ZaikoTanka = 0

	Dim TmpHaraidashiTanka
	TmpHaraidashiTanka = 0

	Do While Not(Content.BOF Or Content.EOF)
		Select Case Content.fields("文書種類CD")
			Case	"SC" 'オリジナル入庫
				KubunNM = "仕入"
				NyukoSu =	Content.fields("数量")
				NyukoTanka =	Content.fields("単価")
				SyukoSu =	0
				SyukoTanka =	0
			Case	"SS" '仕入入庫
				If Content.fields("文書内容CD") = 0 Then
					KubunNM = "前期繰越"
				Else
					KubunNM = "仕入"
				End If
				NyukoSu =	Content.fields("数量")
				NyukoTanka =	Content.fields("単価")
				SyukoSu =	0
				SyukoTanka =	0
			Case	"SU" '売上出庫
				KubunNM = "売上"
				NyukoSu =	0
				NyukoTanka =	0
				SyukoSu =	Content.fields("数量")
				SyukoTanka = ZaikoTanka
				If SyukoTanka = 0 Then
					SyukoTanka = TmpHaraidashiTanka
				End If
				TmpHaraidashiTanka = SyukoTanka
			Case	"SX" '仕入返品
				KubunNM = "仕入返品"
				NyukoSu =	 0
				NyukoTanka = 0
				SyukoSu =	Content.fields("数量")
				SyukoTanka =	Content.fields("単価")
				TmpHaraidashiTanka = SyukoTanka
			Case	"SY" '売上返品
				KubunNM = "売上返品"
				NyukoSu =	Content.fields("数量")
				NyukoTanka = ZaikoTanka
				If NyukoTanka = 0 Then
					NyukoTanka = TmpHaraidashiTanka
				End If
				SyukoSu =	0
				SyukoTanka =	0
			Case	Else
				KubunNM = "その他"
				NyukoSu =	Content.fields("数量")
				NyukoTanka =	Content.fields("単価")
				SyukoSu =	Content.fields("数量")
				SyukoTanka =	Content.fields("単価")
		End Select
		If IsNull(NyukoSu) Or NyukoSu="" Then
			Nyukosu = 0
		End If
		If IsNull(NyukoTanka) Or NyukoTanka="" Then
			NyukoTanka = 0
		End If
		If IsNull(SyukoSu) Or SyukoSu="" Then
			Syukosu = 0
		End If
		If IsNull(SyukoTanka) Or SyukoTanka="" Then
			SyukoTanka = 0
		End If
		NyukoKingaku =	Nyukosu	* NyukoTanka
		SyukoKingaku =	Syukosu	* SyukoTanka

		ZaikoSu = ZaikoSu + NyukoSu - SyukoSu

		If ZaikoSu >= 0 Then

On Error Resume Next
			ZaikoKingaku = ZaikoKingaku + NyukoKingaku - SyukoKingaku
			If ZaikoSu <> 0 Then
				ZaikoTanka = CLng(ZaikoKingaku / ZaikoSu)
			Else
				ZaikoTanka = 0
			End If
			ZaikoKingaku = ZaikoTanka * ZaikoSu
On Error Goto 0

		Else	'在庫がマイナスになった場合は仕入単価が存在しないので便宜上払出単価を仕入単価とする

			ZaikoTanka = Content.Fields("単価")
			ZaikoKingaku = ZaikoTanka * ZaikoSu

		End If

		Content.MoveNext
	Loop

	NyusyukoZaikoKingaku = ZaikoKingaku
End Function


'/////////////////////////////////////////////////////////////////////////////////////
'	名称：GetKozaSyoyuKaisyaCD
'	目的：口座番号から口座所有会社略名称に変更
'	作成：2002/11/13 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function GetKozaSyoyuKaisyaCD(EnshuCD, GinkoCD, KozaKubun, KozaBango)
	Dim Query, Content
	Query = "exec SPB銀行口座取得"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"								'演習CD	
	Query = Query & ", '" & GinkoCD & "'"								'取引先CD
	Query = Query & ", '" & KozaKubun & "'"								'口座区分	
	Query = Query & ", '" & KozaBango &"'"								'口座番号			'BAの場合は空文字列
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) THen
		GetKozaSyoyuKaisyaCD = ConvKaisyaRyakuMeisyoDx(GB_EnshuCD, Content.Fields("会社CD"))
	End If
End Function


'/////////////////////////////////////////////////////////////////////////////////////
'	名称：GetKozaShoyuKaishaCD
'	目的：口座番号から口座所有会社CDを取得
'	作成：2009/10/28 小野
'	概要：GetKozaSyoyuKaisyaCDが何故か略名称の取得になっているので新設。関数名の綴りが異なるので注意！
'/////////////////////////////////////////////////////////////////////////////////////
Function GetKozaShoyuKaishaCD(EnshuCD, GinkoCD, KozaKubun, KozaBango)
	Dim Query, Content
	Query = "exec SPB銀行口座取得"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"								'演習CD	
	Query = Query & ", '" & GinkoCD & "'"								'取引先CD
	Query = Query & ", '" & KozaKubun & "'"								'口座区分	
	Query = Query & ", '" & KozaBango &"'"								'口座番号			'BAの場合は空文字列
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) THen
		GetKozaShoyuKaishaCD = Content.Fields("会社CD")
	End If
End Function


Function GetKozaOutput(EnshuCD, GinkoCD, KozaKubun, KozaBango)
	GetKozaOutput = GetKozaSyoyuKaisyaCD(EnshuCD, GinkoCD, KozaKubun, KozaBango) & "　" & ConvKaisyaMeisyoDx(EnshuCD, GinkoCD) & "　" & ConvKubunMeisyo("口座区分", KozaKubun) & "　" & KozaBango
End Function

'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvKubunMeisyo
'	目的：区分CDから区分名称に変換する
'	作成：2002/11/13 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function GetEnshuParam(EnshuCD, ParamMeisyo)
	Dim Query, Content
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	GetEnshuParam = ""
	If Not(Content.BOF Or Content.EOF) Then
		GetEnshuParam = Content.Fields(ParamMeisyo)
	End If
End Function

'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvKubunMeisyo
'	目的：区分CDから区分名称に変換する
'	作成：2002/11/13 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvKubunMeisyo(F_DataShikibetsu, F_KubunCD)
	Dim Query, Content
	Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','" & F_DataShikibetsu & "'"
	Set Content = OpenQuery(Query)
	If Not(IsNull(F_KubunCD)) Then
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("区分CD") = CStr(F_KubunCD) Then
				ConvKubunMeisyo = Content.Fields("区分名称")
			End If
			Content.MoveNext
		Loop
	End If
End Function



'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvRevKubunMeisyo
'	目的：区分から区分CDに変換する
'	作成：2002/11/14 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvRevKubunMeisyo(F_DataShikibetsu, F_Kubun)
	Dim Query, Content
	Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','" & F_DataShikibetsu & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("区分名称") = F_Kubun Then
			ConvRevKubunMeisyo = Content.Fields("区分CD")
		End If
		Content.MoveNext
	Loop
End Function


'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvEnshuKubun
'	目的：摘要CDから摘要に変換する
'	作成：2002/8/21 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvEnshuKubun(F_EnshuCD)
	Dim Query, Content
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & F_EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ConvEnshuKubun = Content.Fields("演習区分")
	End If

End Function


'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvEnshuMeisyo
'	目的：摘要CDから摘要に変換する
'	作成：2002/8/21 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvEnshuMeisyo(F_EnshuCD)
	Dim Query, Content
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & F_EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ConvEnshuMeisyo = Content.Fields("演習名称")
	End If

End Function




'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvTekiyoMeisyo
'	目的：摘要CDから摘要に変換する
'	作成：2002/8/21 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvTekiyoMeisyo(F_TekiyoCD)
	If UCase(F_TekiyoCD) = "SJ4KOURIHANBAI" Then
		ConvTekiyoMeisyo = "小売販売"
	ElseIf UCase(F_TekiyoCD) = "SJ4SEIZOZIES" Then
		ConvTekiyoMeisyo = "製造部"
	Else
		Dim Query, Content
		Query = "exec SPM摘要表示一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("摘要CD") = F_TekiyoCD Then
				ConvTekiyoMeisyo = Content.Fields("摘要")
			End If
			Content.MoveNext
		Loop
	End If
End Function



'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvTekiyoMeisyoDx
'	目的：摘要CDから摘要に変換する
'	作成：2002/8/21 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvTekiyoMeisyoDx(F_EnshuCD, F_KaisyaCD, F_TekiyoCD)
	If UCase(F_TekiyoCD) = "SJ4KOURIHANBAI" Then
		ConvTekiyoMeisyoDx = "小売販売"
	ElseIf UCase(F_TekiyoCD) = "SJ4SEIZOZIES" Then
		ConvTekiyoMeisyoDx = "製造部"
	Else
		Dim Query, Content
		Query = "exec SPM摘要表示一覧 '" & GB_SystemCD & "','" & F_EnshuCD & "', '" & F_KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("摘要CD") = F_TekiyoCD Then
				ConvTekiyoMeisyoDx = Content.Fields("摘要")
			End If
			Content.MoveNext
		Loop
	End If
End Function


'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvRevTekiyoMeisyo
'	目的：摘要から摘要CDに変換する
'	作成：2002/8/21 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvRevTekiyoMeisyo(F_TekiyoMeisyo)
	If F_TekiyoMeisyo = "小売販売" Then
		ConvRevTekiyoMeisyo = "SJ4KOURIHANBAI"
	ElseIf F_TekiyoMeisyo = "製造部" Then
		ConvRevTekiyoMeisyo = "SJ4SEIZOZIES"
	Else
		Dim Query, Content
		Query = "exec SPM摘要表示一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("摘要") = F_TekiyoMeisyo Then
				ConvRevTekiyoMeisyo = Content.Fields("摘要CD")
			End If
			Content.MoveNext
		Loop
	End If
End Function


'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvKanjyoMeisyo
'	目的：勘定CDから勘定科目に変換する
'	作成：2002/8/9 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvKanjyoMeisyo(F_KanjyoCD)'削除予定
	Dim Query, Content
	Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("勘定CD") = F_KanjyoCD Then
			ConvKanjyoMeisyo = Content.Fields("勘定名称")
		End If
		Content.MoveNext
	Loop
	If ConvKanjyoMeisyo = "" And  GB_GyosyuKubun = "S" Then
		Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 'G', '', '" & GB_KaisyaCD & "'"	'製造原価科目
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("勘定CD") = F_KanjyoCD Then
				ConvKanjyoMeisyo = Content.Fields("勘定名称")
			End If
			Content.MoveNext
		Loop
	End If
End Function

'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvKanjyoMeisyoDx
'	目的：勘定CDから勘定科目に変換する
'	作成：2002/8/9 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvKanjyoMeisyoDx(F_SystemCD, F_EnshuCD, F_KanjyoCD)
	Dim Query, Content
	Query = "exec SPM勘定科目一覧 '" & F_SystemCD & "','" & F_EnshuCD & "', '', '', '" & GB_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("勘定CD") = F_KanjyoCD Then
			ConvKanjyoMeisyoDx = Content.Fields("勘定名称")
		End If
		Content.MoveNext
	Loop
End Function

'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvRevKanjyoMeisyo
'	目的：勘定CDから勘定科目に変換する
'	作成：2002/11/13 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvRevKanjyoMeisyo(F_KanjyoMeisyo)
	Dim Query, Content
	Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("勘定名称") = F_KanjyoMeisyo Then
			ConvRevKanjyoMeisyo = Content.Fields("勘定CD")
		End If
		Content.MoveNext
	Loop
	If ConvRevKanjyoMeisyo = "" And  GB_GyosyuKubun = "S" Then
		Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 'G', '', '" & GB_KaisyaCD & "'"	'製造原価科目
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("勘定名称") = F_KanjyoMeisyo Then
				ConvRevKanjyoMeisyo = Content.Fields("勘定CD")
			End If
			Content.MoveNext
		Loop
	End If
End Function



'/////////////////////////////////////////////////////////////////////////////////////
'	名称：GetKanjyouZan
'	目的：勘定科目ごとの残高を取得する。
'	作成：2002/7/30 川崎
'		-- 2002/8/19 修正　川崎　sj2web　DB対応による修正。
'/////////////////////////////////////////////////////////////////////////////////////
Function GetKanjyouZan(F_KaisyaCD,F_EnsyuCD,F_KanjyoCD,F_KaikeiKaishibi,F_KaikeiSyuryobi,F_GakuseiNo)
	Dim Query, Content
	Query = "exec SPK勘定残高データ取得 '" & GB_SystemCD & "','"
	Query = Query & F_EnsyuCD  & "', '"
	Query = Query & F_KaisyaCD & "', '"
	Query = Query & F_KanjyoCD & "','"
	Query = Query & F_KaikeiKaishibi & "','"
	Query = Query & F_KaikeiSyuryobi & "','"
	Query = Query & F_GakuseiNo & "'"

	Set Content = OpenQuery(Query)

	If	Not(Content.BOF Or Content.EOF) Then
		GetKanjyouZan = Content.Fields("勘定残高")
	Else
		GetKanjyouZan = 0
	End IF

End Function

'/////////////////////////////////////////////////////////////////////////////////////
'	名称：GetLastTorihikiDay
'	目的：勘定科目ごとの最終取引日を取得する。
'	作成：2002/7/30 川崎
'		-- 2002/8/4 修正　川崎
'		-- 2002/8/19 修正　川崎　sj2web　DB対応による修正。
'	補足：「GetKanjyouZan」で使用しているストアドプロシージャーを使用。
'/////////////////////////////////////////////////////////////////////////////////////
Function GetLastTorihikiDay(F_KaisyaCD,F_EnsyuCD,F_KanjyoCD,F_KaikeiKaishibi,F_KaikeiSyuryobi,F_GakuseiNo)
	Dim Query, Content
	Query = "exec SPK勘定残高データ取得 '" & GB_SystemCD & "','"
	Query = Query & F_EnsyuCD  & "', '"
	Query = Query & F_KaisyaCD & "', '"
	Query = Query & F_KanjyoCD & "','"
	Query = Query & F_KaikeiKaishibi & "','"
	Query = Query & F_KaikeiSyuryobi & "','"
	Query = Query & F_GakuseiNo & "'"

	Set Content = OpenQuery(Query)

	If	Not(Content.BOF Or Content.EOF) Then
		GetLastTorihikiDay = Content.Fields("最終取引日")
	Else
		GetLastTorihikiDay	= Null
	End IF

End Function


'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvKaisyaGyosyuKubun
'	目的：会社CDから業種区分に変換する
'	作成：2003/10/8 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvKaisyaGyosyuKubun(F_KaisyaCD)
	Dim Query, Content
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & F_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ConvKaisyaGyosyuKubun = Content.Fields("業種CD")
		If ConvKaisyaGyosyuKubun <> "B" Then
			ConvKaisyaGyosyuKubun = "S"
		End If
	End If
End Function



'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvKaisyaGakuseiNo
'	目的：会社CDからその会社の学生番号に変換する
'	作成：2003/10/8 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvKaisyaGakuseiNo(F_EnshuCD, F_KaisyaCD)
	Dim Query, Content
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & F_EnshuCD & "', '" & F_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ConvKaisyaGakuseiNo = Content.Fields("学生番号")
	End If
End Function


'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvKaisyaJisyaFlg
'	目的：会社CDからその会社の自社フラグを取得する
'	作成：2008/9/18 小野
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvKaisyaJisyaFlg(F_EnshuCD, F_KaisyaCD)
	Dim Query, Content
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & F_EnshuCD & "', '" & F_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ConvKaisyaJisyaFlg = Content.Fields("自社フラグ")
	End If
End Function


'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvKaisyaMeisyo
'	目的：会社CDから会社名称に変換する
'	作成：2002/8/29 川崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvKaisyaMeisyo(F_KaisyaCD)
	If UCase(F_KaisyaCD) = "SJ4KOURIHANBAI" Then
		ConvKaisyaMeisyo = "小売販売"
	ElseIf UCase(F_KaisyaCD) = "SJ4SEIZOZIES" Then
		ConvKaisyaMeisyo = "製造部"
	Else
		Dim Query, Content
	'	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & F_KaisyaCD & "'"

		Set Content = OpenQuery(Query)

		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("会社CD") = F_KaisyaCD Then
				ConvKaisyaMeisyo = Content.Fields("会社名称")
			End If
			Content.MoveNext
		Loop
	End If
End Function

'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvKaisyaMeisyoDx
'	目的：会社CDから会社名称に変換する
'	作成：2002/8/29 川崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvKaisyaMeisyoDx(F_EnshuCD, F_KaisyaCD)
	If UCase(F_KaisyaCD) = "SJ4KOURIHANBAI" Then
		ConvKaisyaMeisyoDx = "小売販売"
	ElseIf UCase(F_KaisyaCD) = "SJ4SEIZOZIES" Then
		ConvKaisyaMeisyoDx = "製造部"
	Else
		Dim Query, Content
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & F_EnshuCD & "', '" & F_KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			ConvKaisyaMeisyoDx = Content.Fields("会社名称")
		End If
	End If
End Function

'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvRevKaisyaMeisyoDx
'	目的：会社名称から会社CDに変換する
'	作成：2009/4/24 小野
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvRevKaisyaMeisyoDx(F_EnshuCD, F_KaisyaMeisho)
	If UCase(F_KaisyaMeisho) = "小売販売" Then
		ConvRevKaisyaMeisyoDx = "SJ4KOURIHANBAI"
	ElseIf UCase(F_KaisyaMeisho) = "製造部" Then
		ConvRevKaisyaMeisyoDx = "SJ4SEIZOZIES"
	Else
		Dim Query, Content
		Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & F_EnshuCD & "', 2"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("会社名称") = F_KaisyaMeisho Then
				ConvRevKaisyaMeisyoDx = Content.Fields("会社CD")
				Exit Do
			End If
			Content.MoveNext
		Loop
	End If
End Function


Function ConvKaisyaJyusyo1(F_EnshuCD, F_KaisyaCD)
	Dim Query, Content
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & F_EnshuCD & "', '" & F_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ConvKaisyaJyusyo1 = Content.Fields("住所1")
	End If
End Function


Function ConvKaisyaJyusyo2(F_EnshuCD, F_KaisyaCD)
	Dim Query, Content
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & F_EnshuCD & "', '" & F_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ConvKaisyaJyusyo2 = Content.Fields("住所2")
	End If
End Function



'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvKaisyaRyakuMeisyoDx
'	目的：会社CDから会社名称に変換する
'	作成：2002/8/29 川崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvKaisyaRyakuMeisyoDx(F_EnshuCD, F_KaisyaCD)
	If UCase(F_KaisyaCD) = "SJ4KOURIHANBAI" Then
		ConvKaisyaRyakuMeisyoDx = "小売販売"
	ElseIf UCase(F_KaisyaCD) = "SJ4SEIZOZIES" Then
		ConvKaisyaRyakuMeisyoDx = "製造部"
	Else
		Dim Query, Content
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & F_KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			ConvKaisyaRyakuMeisyoDx = Content.Fields("会社略名称")
		End If
	End If
End Function

'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvKaisyaRyakuMeisyo
'	目的：会社CDから会社略名称に変換する
'	作成：2002/10/23 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvKaisyaRyakuMeisyo(F_KaisyaCD)
	If UCase(F_KaisyaCD) = "SJ4KOURIHANBAI" Then
		ConvKaisyaRyakuMeisyo = "小売販売"
	ElseIf UCase(F_KaisyaCD) = "SJ4SEIZOZIES" Then
		ConvKaisyaRyakuMeisyo = "製造部"
	Else
		Dim Query, Content
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & F_KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			ConvKaisyaRyakuMeisyo = Content.Fields("会社略名称")
		End If
	End If
End Function

'/////////////////////////////////////////////////////////////////////////////////////
'	名称：ConvRevKaisyaRyakuName
'	目的：会社略名称から会社CDに変換する
'	作成：2002/11/13 山崎
'/////////////////////////////////////////////////////////////////////////////////////
Function ConvRevKaisyaRyakuName(F_KaisyaRyakuMeisyo)
	If F_KaisyaRyakuMeisyo = "小売販売" Then
		ConvRevKaisyaRyakuName = "SJ4KOURIHANBAI"
	ElseIf F_KaisyaRyakuMeisyo = "製造部" Then
		ConvRevKaisyaRyakuName = "SJ4SEIZOZIES"
	Else
		Dim Query, Content
		Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("会社略名称") = F_KaisyaRyakuMeisyo Then
				ConvRevKaisyaRyakuName = Content.Fields("会社CD")
			End If
			Content.MoveNext
		Loop
	End If
End Function

'//################################################
'//	名称：ConvSyohinHanbaiTanka
'//	目的：商品リストの表示
'//　作成：2002/8/26　川崎
'//　概要：TS商品Mの標準販売単価を返す。
'//################################################
Function ConvSyohinHanbaiTanka(F_SyohinCD)
	Dim Query, Content
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("商品CD") = F_SyohinCD Then
			ConvSyohinHanbaiTanka= Content.Fields("標準販売単価")
		End If
		Content.MoveNext
	Loop
End Function


'//################################################
'//	名称：ConvSyohinGazo
'//	目的：商品リストの表示
'//　作成：2002/8/26　川崎
'//　概要：TS商品Mの標準販売単価を返す。
'//################################################
Function ConvSyohinGazo(F_EnshuCD, F_SyohinCD)
	Dim Query, Content
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & F_EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("商品CD") = F_SyohinCD Then
			ConvSyohinGazo= Content.Fields("画像ファイル")
		End If
		Content.MoveNext
	Loop
End Function


'//################################################
'//	名称：ConvSyohinZaiko
'//	目的：商品在庫数リストの表示
'//　作成：2002/8/26　川崎
'//　概要：指定日時の商品在庫数を返す。
'//################################################
Function	ConvSyohinZaiko(F_SyohinCD)
	Dim Query, Content
	Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "','" &	KaisyaCD & "','" & GB_KaikeiSyuryobi & "'"
	Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			 If Content.Fields("商品CD") = F_SyohinCD Then
				ConvSyohinZaiko = Content.Fields("在庫数")
			 End If
		Content.MoveNext
		Loop
End Function


'//################################################
'//	名称：ConvSyohinMeisyo
'//	目的：商品名の表示
'//　作成：2002/8/26　川崎
'//　概要：TS商品Mの商品名称を返す。
'//################################################
Function ConvSyohinMeisyo(F_SyohinCD)
	Dim Query, Content
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("商品CD") = F_SyohinCD Then
			ConvSyohinMeisyo = Content.Fields("商品名称")
		End If
		Content.MoveNext
	Loop
End Function

'//################################################
'//	名称：ConvSyohinMeisyoAdmin
'//	目的：商品名の表示
'//　作成：2007/6/12　小野
'//　概要：TS商品Mの商品名称を返す（運用管理版）
'//################################################
Function ConvSyohinMeisyoAdmin(F_SyohinCD, F_GakuseiNo)
	Dim Query, Content
		Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & F_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("商品CD") = F_SyohinCD Then
			ConvSyohinMeisyoAdmin = Content.Fields("商品名称")
		End If
		Content.MoveNext
	Loop
End Function


'//################################################
'//	名称：ConvSyohinRyakuMeisyo
'//	目的：商品略名称の表示
'//　作成：2002/10/2　山崎
'//　概要：TS商品Mの商品略名称を返す。
'//################################################
Function ConvSyohinRyakuMeisyo(F_SyohinCD)
	Dim Query, Content
	Query = "exec SPM商品一覧2 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("商品CD") = F_SyohinCD Then
			ConvSyohinRyakuMeisyo = Content.Fields("商品略名称")
		End If
		Content.MoveNext
	Loop
End Function


'//################################################
'//	名称：ConvRevSyohinMeisyo
'//	目的：商品CDの取得
'//　作成：2006/10/30　小野
'//　概要：商品名称から商品CDを返す。
'//################################################
Function ConvRevSyohinMeisyo(F_SyohinMeisyo)
	Dim Query, Content
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("商品名称") = F_SyohinMeisyo Then
			ConvRevSyohinMeisyo = Content.Fields("商品CD")
		End If
		Content.MoveNext
	Loop
End Function


'//################################################
'//	名称：ConvRevSyohinMeisyoAdmin
'//	目的：商品CDの取得
'//　作成：2008/4/15　小野
'//　概要：商品名称から商品CDを返す。
'//################################################
Function ConvRevSyohinMeisyoAdmin(F_SyohinMeisyo, F_GakuseiNo)
	Dim Query, Content
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & F_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("商品名称") = F_SyohinMeisyo Then
			ConvRevSyohinMeisyoAdmin = Content.Fields("商品CD")
		End If
		Content.MoveNext
	Loop
End Function


'//################################################
'//	名称：ConvRevSyohinRyakuMeisyo
'//	目的：商品略名称の表示
'//　作成：2002/11/13　山崎
'//　概要：商品略名称から商品CDを返す。
'//################################################
Function ConvRevSyohinRyakuMeisyo(F_SyohinRyakuMeisyo)
	Dim Query, Content
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("商品略名称") = F_SyohinRyakuMeisyo Then
			ConvRevSyohinRyakuMeisyo = Content.Fields("商品CD")
		End If
		Content.MoveNext
	Loop
End Function





'//################################################
'//	名称：ConvZairyoZaiko
'//	目的：材料在庫数の取得
'//　作成：2008/3/28　小野
'//　概要：材料在庫数を返す。
'//################################################
Function ConvZairyoZaiko(F_ZairyoCD)
	Dim Query, Content
	Query = "exec SPR材料入出庫在庫 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & GB_KaikeiSyuryobi & "'"
	Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			 If Content.Fields("商品CD") = F_ZairyoCD Then
				ConvZairyoZaiko = Content.Fields("在庫数")
			 End If
		Content.MoveNext
		Loop
End Function

'//################################################
'//	名称：ConvZairyoHanbaiTanka
'//	目的：材料CDから標準単価を返す
'//	作成：2008/3/14　小野
'//################################################
Function ConvZairyoHanbaiTanka(F_ZairyoCD)
	Dim Query, Content
	Query = "exec SPM材料一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("材料CD") = F_ZairyoCD Then
			ConvZairyoHanbaiTanka= Content.Fields("標準販売単価")
		End If
		Content.MoveNext
	Loop
End Function

'//################################################
'//	名称：ConvZairyoGazo
'//	目的：材料CDから画像ファイルを返す
'//	作成：2008/3/14　小野
'//################################################
Function ConvZairyoGazo(F_EnshuCD, F_ZairyoCD)
	Dim Query, Content
	Query = "exec SPM材料一覧 '" & GB_SystemCD & "','" & F_EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("材料CD") = F_ZairyoCD Then
			ConvZairyoGazo= Content.Fields("画像ファイル")
		End If
		Content.MoveNext
	Loop
End Function

'//################################################
'//	名称：ConvZairyoMeisyo
'//	目的：材料CDから名称を返す
'//	作成：2008/3/14　小野
'//################################################
Function ConvZairyoMeisyo(F_ZairyoCD)
	Dim Query, Content
	Query = "exec SPM材料一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("材料CD") = F_ZairyoCD Then
			ConvZairyoMeisyo = Content.Fields("材料名称")
		End If
		Content.MoveNext
	Loop
End Function

'//################################################
'//	名称：ConvZairyoMeisyoAdmin
'//	目的：材料CDから名称を返す（運用管理版）
'//	作成：2008/3/14　小野
'//################################################
Function ConvZairyoMeisyoAdmin(F_ZairyoCD, F_GakuseiNo)
	Dim Query, Content
	Query = "exec SPM材料一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & F_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("材料CD") = F_ZairyoCD Then
			ConvZairyoMeisyoAdmin = Content.Fields("材料名称")
		End If
		Content.MoveNext
	Loop
End Function

'//################################################
'//	名称：ConvZairyoRyakuMeisyo
'//	目的：材料CDから略名称を返す
'//	作成：2008/3/14　小野
'//################################################
Function ConvZairyoRyakuMeisyo(F_ZairyoCD)
	Dim Query, Content
	Query = "exec SPM材料一覧2 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("材料CD") = F_ZairyoCD Then
			ConvZairyoRyakuMeisyo = Content.Fields("材料略名称")
		End If
		Content.MoveNext
	Loop
End Function

'//################################################
'//	名称：ConvRevZairyoMeisyo
'//	目的：材料名称からCDを返す
'//	作成：2008/3/14　小野
'//################################################
Function ConvRevZairyoMeisyo(F_ZairyoMeisyo)
	Dim Query, Content
	Query = "exec SPM材料一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("材料名称") = F_ZairyoMeisyo Then
			ConvRevZairyoMeisyo = Content.Fields("材料CD")
		End If
		Content.MoveNext
	Loop
End Function


'//################################################
'//	名称：ConvRevZairyoMeisyoAdmin
'//	目的：商品CDの取得
'//　作成：2006/10/30　小野
'//　概要：商品名称から商品CDを返す。
'//################################################
Function ConvRevZairyoMeisyoAdmin(F_ZairyoMeisyo, F_GakuseiNo)
	Dim Query, Content
	Query = "exec SPM材料一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & F_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("材料名称") = F_ZairyoMeisyo Then
			ConvRevZairyoMeisyoAdmin = Content.Fields("材料CD")
		End If
		Content.MoveNext
	Loop
End Function


'//################################################
'//	名称：ConvRevZairyoRyakuMeisyo
'//	目的：材料略名称からCDを返す
'//	作成：2008/3/14　小野
'//################################################
Function ConvRevZairyoRyakuMeisyo(F_ZairyoRyakuMeisyo)
	Dim Query, Content
	Query = "exec SPM材料一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("材料略名称") = F_ZairyoRyakuMeisyo Then
			ConvRevZairyoRyakuMeisyo = Content.Fields("材料CD")
		End If
		Content.MoveNext
	Loop
End Function





'//################################################
'//	名称：ConvShimeiRyakuMeisyo
'//	目的：学生氏名の表示
'//　作成：2002/9/26　川崎
'//　概要：TS学生Mの学生氏名を返す
'//　修正：071015小野	：バイト数で改行処理するよう修正
'//　					：※ include_func.asp の AscLen・AscLeft関数を使っているので注意
'//################################################
Function ConvShimeiRyakuMeisyo(GakuseiNo)
	Dim Query, Content

	Dim NatsuinRiyo
	NatsuinRiyo = "" & GetEnshuParam(EnshuCD, "捺印利用")
	Dim TmpStr

	If NatsuinRiyo = "1" Then
		Query = "exec SPMユーザー取得 '" & GB_SystemCD & "','" & GakuseiNo & "'"
		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then
			ConvShimeiRyakuMeisyo= Content.Fields("氏名略名称")
			If AscLen(ConvShimeiRyakuMeisyo) > 6 Then
				TmpStr = AscLeft(ConvShimeiRyakuMeisyo,4)
				ConvShimeiRyakuMeisyo = TmpStr & "<br>" & Right(ConvShimeiRyakuMeisyo, Len(ConvShimeiRyakuMeisyo) - Len(TmpStr))
			End If
		End If
	End If

End Function

'//################################################
'//	名称：ConvGakuseiShimei
'//	目的：学生氏名の表示
'//　作成：2007/5/25　小野
'//　概要：TS学生Mの学生氏名を返す
'//################################################
Function ConvGakuseiShimei(GakuseiNo)
	Dim Query, Content
	Query = "exec SPMユーザー取得 '" & GB_SystemCD & "','" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ConvGakuseiShimei= Content.Fields("氏名")
	End If

End Function

'//################################################
'//	名称：ConvKaisyaGakuseiShimei
'//	目的：学生氏名の表示
'//　作成：2011/11/24　小野
'//　概要：会社CDから学生氏名を返す
'//################################################
Function ConvKaisyaGakuseiShimei(F_EnshuCD, F_KaisyaCD)
	Dim Query, Content
	ConvKaisyaGakuseiShimei = ""
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & F_EnshuCD & "','" & F_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		If "" & Content.Fields("学生番号") <> "" Then
			Query = "exec SPMユーザー取得 '" & GB_SystemCD & "','" & Content.Fields("学生番号") & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				ConvKaisyaGakuseiShimei= Content.Fields("氏名")
			End If
		End If
	End If
End Function

'//################################################
'//	名称：ConvKaisyaName
'//	目的：会社名称の表示
'//　作成：2006/2/10　Java濱田
'//　概要：TDA会社Mの会社名を返す（小切手振り出し部分）
'//################################################

Function ConvKaisyaName(F_EnshuCD, F_KaisyaCD)
	If UCase(F_KaisyaCD) = "SJ4KOURIHANBAI" Then
		ConvKaisyaName = "小売販売"
	ElseIf UCase(F_KaisyaCD) = "SJ4SEIZOZIES" Then
		ConvKaisyaName = "製造部"
	Else
		Dim Query, Content
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & F_EnshuCD & "', '" & F_KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			ConvKaisyaName = Content.Fields("会社名称")
		End If
	End If
End Function


'//################################################
'//	名称：ConvKaisyaShijyo
'//	目的：所属市場の表示
'//　作成：2007/6/20　小野
'//　概要：会社CDから市場CDを返す
'//################################################

Function ConvKaisyaShijyo(F_EnshuCD, F_KaisyaCD)
	Dim Query, Content
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & F_EnshuCD & "', '" & F_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ConvKaisyaShijyo = Content.Fields("市場CD")
	End If
End Function


'//################################################
'//	名称：ConvShijyoName
'//	目的：市場名称の表示
'//　作成：2009/10/8　小野
'//　概要：市場CDから市場名称を返す
'//################################################

Function ConvShijyoName(F_EnshuCD, F_ShijoCD)
	Dim Query, Content
	Query = "exec SPM市場取得 '" & GB_SystemCD & "','" & F_EnshuCD & "', '" & F_ShijoCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ConvShijyoName = Content.Fields("市場名称")
	End If
End Function


'//################################################
'//	名称：ConvKaisyaName
'//	目的：代表者の表示
'//　作成：2006/2/10　Java濱田
'//　概要：TDA会社Mの代表者名を返す（小切手振り出し部分）
'//　07/06/25小野 参照先をTTA社員台帳Mに変更
'//################################################

Function ConvDaihyoName(F_EnshuCD, F_KaisyaCD)
	Dim Query, Content
	ConvDaihyoName = ""
	Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & F_EnshuCD & "', '" & F_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("代表取締役フラグ") = "1" Then
			ConvDaihyoName = Content.Fields("氏名")
			Exit Do
		End If
	Content.MoveNext
	Loop
End Function

'//################################################
'//	名称：ConvSyohinKitakuZaiko
'//	目的：商品在庫数リストの表示
'//　作成：2006/12/17　鈴木
'//　概要：指定日時の商品在庫数を返す。
'//################################################

Function ConvSyohinKitakuZaiko(F_SyohinCD,KCD)
	Dim Query, Content
	Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "','" &	KCD & "','" & GB_KaikeiSyuryobi & "'"
	Set Content = OpenQuery(Query)

		Do While Not(Content.BOF Or Content.EOF)
			 If Content.Fields("商品CD") = F_SyohinCD Then
				ConvSyohinKitakuZaiko = Content.Fields("在庫数")
			 End If
		Content.MoveNext
		Loop
End Function

'//################################################
'//	名称：ConvSyainNumber
'//	目的：社員番号の表示
'//	作成：2006/12/20　小野
'//	概要：TTA社員台帳Fの'氏名'から'社員番号'を返す
'//################################################
Function ConvSyainNumber(SyainShimei)
	ConvSyainNumber = ConvSyainNumber2(SyainShimei)
'	Dim Query, Content
'	Query = "exec SPK社員一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'	Set Content = OpenQuery(Query)
'	Do While Not(Content.BOF Or Content.EOF)
'		 If Content.Fields("氏名") = SyainShimei Then
'			ConvSyainNumber = Content.Fields("社員番号")
'		 End If
'	Content.MoveNext
'	Loop
End Function

'//################################################
'//	名称：ConvSyainShimei
'//	目的：社員番号の表示
'//	作成：2006/12/20　小野
'//	概要：TTA社員台帳Fの'社員番号'から'氏名'を返す
'//################################################
Function ConvSyainShimei(SyainNumber)
	ConvSyainShimei = ConvSyainShimei2(SyainNumber)
'	Dim Query, Content
'	Query = "exec SPK社員一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'	Set Content = OpenQuery(Query)
'	Do While Not(Content.BOF Or Content.EOF)
'		 If "" & Content.Fields("社員番号") = SyainNumber Then
'			ConvSyainShimei = Content.Fields("氏名")
'		 End If
'	Content.MoveNext
'	Loop
End Function

'//################################################
'//	名称：KitakuKeiyakuJoutai
'//	目的：寄託利用状態を返す
'//	作成：2007/02/07　小野
'//	概要：
'//	TDA会社M.寄託倉庫会社CD <> ""
'//	TGA契約書F.返信フラグ = 1
'//	TGA契約書F.削除フラグ = 0
'//	以上3つが成立していればint1を返す
'//################################################
Function KitakuKeiyakuJoutai()
	KitakuKeiyakuJoutai = 0
	Dim Query, Content
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		If "" & Content.Fields("寄託会社CD") <> "" Or "" & Content.Fields("寄託会社CD") = " " Or "" & Content.Fields("寄託会社CD") <> "　" Then
			Query = "exec SPK契約書一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', 'S'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If "" & Content.Fields("返信フラグ") = "1" And  "" & Content.Fields("削除フラグ") = "0" Then
					KitakuKeiyakuJoutai = 1
				End If
			Content.MoveNext
			Loop
		End If
	End If
End Function

'//################################################
'//	名称：KourihanbaiRiyo
'//	目的：小売販売利用状態を返す
'//	作成：2007/03/19　小野
'//	概要：int
'//################################################
Function KourihanbaiRiyo()
	Dim Query, Content
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		KourihanbaiRiyo = "" & Content.Fields("小売販売有無")
	End If
	If KourihanbaiRiyo = "1" Then
		KourihanbaiRiyo = 1
	Else
		KourihanbaiRiyo = 0
	End If
End Function

'//################################################
'//	名称：ConvGroupMeisyo
'//	目的：グループ名称の表示
'//	作成：2007/3/20　小野
'//	概要：グループCDからグループ名称を返す
'//################################################
Function ConvGroupMeisyo(GroupCD)
	Dim Query, Content
	Query = "exec SPMグループ一覧 '" & GB_SystemCD & "',''"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If UCase(Content.Fields("学生グループCD")) = UCase(GroupCD) Then
			ConvGroupMeisyo = Content.Fields("グループ名称")
		 End If
	Content.MoveNext
	Loop
End Function

'//################################################
'//	名称：ConvRevGroupMeisyo
'//	目的：グループ名称の表示
'//	作成：2007/3/20　小野
'//	概要：グループCDからグループ名称を返す
'//################################################
Function ConvRevGroupMeisyo(GroupMeisyo)
	Dim Query, Content
	Query = "exec SPMグループ一覧 '" & GB_SystemCD & "',''"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("グループ名称") = GroupMeisyo Then
			ConvRevGroupMeisyo = Content.Fields("学生グループCD")
		 End If
	Content.MoveNext
	Loop
End Function


'//################################################
'//	名称：ConvSyainNumber2
'//	目的：社員番号の表示
'//	作成：2007/6/5　小野
'//	概要：TTA社員台帳Mの'氏名'から'社員番号'を返す
'//	備考：引数char
'//################################################
Function ConvSyainNumber2(SyainShimei)
	Dim Query, Content
	Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		 If Content.Fields("氏名") = SyainShimei Then
			ConvSyainNumber2 = Content.Fields("社員番号")
		 End If
	Content.MoveNext
	Loop
End Function

'//################################################
'//	名称：ConvSyainShimei2
'//	目的：社員番号の表示
'//	作成：2007/6/5　小野
'//	概要：TTA社員台帳Mの'社員番号'から'氏名'を返す
'//	備考：引数int→charに変換
'//################################################
Function ConvSyainShimei2(SyainNumber)
	Dim Query, Content
	Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		 If "" & Content.Fields("社員番号") = "" & SyainNumber Then
			ConvSyainShimei2 = Content.Fields("氏名")
		 End If
	Content.MoveNext
	Loop
End Function
'//################################################
'//	名称：ConvSyainBirth2
'//	目的：社員番号の表示
'//	作成：2007.06.14　和田
'//	概要：TTA社員台帳Mの'社員番号'から'生年月日'を返す
'//	備考：引数int→charに変換
'//################################################
Function ConvSyainBirth2(SyainNumber)
	Dim Query, Content
	Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("社員番号") = "" & SyainNumber Then
			ConvSyainBirth2 = Content.Fields("生年月日")
		End If
		Content.MoveNext
	Loop
End Function
'//################################################
'//	名称：ConvSyainShimei2
'//	目的：社員番号の表示
'//	作成：2007.06.14　和田
'//	概要：TTA社員台帳Mの'社員番号'から'扶養人数'を返す
'//	備考：引数int→charに変換
'//################################################
Function ConvSyainFuyosu2(SyainNumber)
	Dim Query, Content
	Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("社員番号") = "" & SyainNumber Then
			ConvSyainFuyosu2 = Content.Fields("扶養家族人数")
		End If
		Content.MoveNext
	Loop
End Function
'//################################################
'//	名称：ConvSyainShimei2
'//	目的：社員番号の表示
'//	作成：2007.06.14　和田
'//	概要：TTA社員台帳Mの'社員番号'から'役職'を返す
'//	備考：引数int→charに変換
'//################################################
Function ConvSyainYakushoku2(SyainNumber)
	Dim Query, Content
	Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("社員番号") = "" & SyainNumber Then
			ConvSyainYakushoku2 = Content.Fields("役職")
		End If
		Content.MoveNext
	Loop
End Function

'//################################################
'//	名称：ConvSyohinSoryoTanka
'//	目的：商品送料単価の取得
'//　作成：2007/9/3　小野
'//　概要：商品CDから送料単価を返す。
'//################################################
Function ConvSyohinSoryoTanka(F_SyohinCD)
	Dim Query, Content
	Query = "exec SPM商品取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & F_SyohinCD & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("商品CD") = F_SyohinCD Then
			ConvSyohinSoryoTanka = Content.Fields("運送料単価")
		End If
		Content.MoveNext
	Loop
End Function

%>