<!-- #include file="../../include.asp" -->
<!-- #include file="../../user/bk/shiireuriage/fd_syorui_view_main_in.asp" -->
<!-- #include file="../../user/bk/shiireuriage/fd_nyusyukko_view_main_in.asp" -->
<!-- #include file="../../user/bk/ginkomadoguchi/fb_ginkosyorui_view_main_in.asp" -->
<!-- #include file="../../user/bk/ginko/fb_uketsukesyori_view_main_in.asp" -->
<!-- #include file="../../user/bk/tegata/fk_tegata_view_main_in.asp" -->
<!-- #include file="../../user/bk/unyusokomadoguchi/fc_syorui_view_main_in.asp" -->
<!-- #include file="../../user/bk/unso/seikyu/fu_seikyu_view_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_nyukinsyukin_view_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_shiireuriage_view_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_furikae_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_gokeizandakashisanhyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_hachiketaseisanhyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_shiwaketyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_shiwakenikkityo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_shiwakesyukeihyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_sokanjyomototyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_sokanjyomototyohyojyun_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_sonekikeisansyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_taisyakutaisyohyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_genkinsuitotyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_shiireuriagetyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_syohinaridakatyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_touzayokinsuitotyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_uketorisiharaitegatatyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_urikaikakekintyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/ryosyusyo/fk_ryosyusyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/jidotyobo/rm_sonekikeisansyohoukoku_main_in.asp" -->
<!-- #include file="../../user/bk/jidotyobo/rm_sonekikeisansyohoukoku_hanbaikairihi_main_in.asp" -->
<!-- #include file="../../user/bk/jidotyobo/rm_taisyakutaisyouhyohoukoku_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_zairyoshiire_view_main_in.asp" -->
<%
Dim WK_Zandaka_KanjyoCD()
Dim WK_Zandaka_KanjyoName()
Dim WK_Zandaka_KariKingaku()
Dim WK_Zandaka_KashiKingaku()
Dim WK_Zandaka_KanjyoKubun()
Dim WK_Zandaka_TaisyakuKubun()
Dim WK_Zandaka_SyukeiCD()
Dim ShowCount, MaxCount
Dim CSVOutput
'
'<!--
'################################################
' –¼Ì F‰‰K󋵈ꗗ•\Ž¦
' 쬓úF2002/9/6
' 쬎ÒF“¿“c
' –Ú“I@F‰‰K󋵈ꗗ•\Ž¦‰æ–Ê‚ð•\Ž¦‚·‚éB
' ŠT—v F
' <<•\Ž¦>>
' E‰‰K󋵈ꗗ•\Ž¦‰æ–Ê
'
'################################################
'-->
%>
<%
main()
Sub main()
Dim EnshuName, HyojiJyoken
Dim Query
Dim Content
Dim ErrMsg
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Joken
Joken = Request("Joken")
Dim Addr, AutoFlg
Dim tmp
Dim KaisyaCD, GakuseiNo, BunsyoSyuruiCD, BunsyoNaiyoCD
Dim Param1, Param2
Dim KaisyaSelect
KaisyaCD = Request("KaisyaCD")
GakuseiNo = Request("GakuseiNo")
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
Dim SakuseiKaisyaCD
'ƒTƒCƒo[‰ïŒv‚Å‚ÍŽ©ŽÐ‚Ì‚Ý•\Ž¦i091015¬–ìj
If KaisyaCD = "///" Or PackageMode = 1 Then
Query = "exec SPM‰ïŽÐ‘S•”ˆê—— '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If "" & Content.Fields("Ž©ŽÐƒtƒ‰ƒO") = "1" Then
KaisyaCD = Content.Fields("‰ïŽÐCD")
Exit Do
End If
Content.MoveNext
Loop
End If
AutoFlg = 0
If InStr(BunsyoSyuruiCD, ",") > 0 then
tmp = Split(BunsyoSyuruiCD, ",")
BunsyoSyuruiCD = tmp(0)
AutoFlg = tmp(1)
End If
If InStr(BunsyoNaiyoCD, ",") > 0 then
tmp = Split(BunsyoNaiyoCD, ",")
SakuseiKaisyaCD = tmp(0)
BunsyoNaiyoCD = tmp(1)
End If
If SakuseiKaisyaCD = "" Then
SakuseiKaisyaCD = KaisyaCD
End If
Param1 = Request("Param1")
Param2 = Request("Param2")
KaisyaSelect = KaisyaCD
If KaisyaCD = "///" Then
Query = "exec SPM‘I‘ð‰Â”\‰ïŽÐŽæ“¾ '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KaisyaCD = Content.Fields("‘I‘ð‰ïŽÐCD")
End If
End If
Dim EnshuKubunmei
EnshuKubunmei = GetEnshuParam(EnshuCD, "‰‰K‹æ•ª")
Dim PrevKaisyaCD, NextKaisyaCD, PrevGakuseiNo, NextGakuseiNo, PrevBunsyoSyuruiCD, NextBunsyoSyuruiCD, PrevBunsyoNaiyoCD, NextBunsyoNaiyoCD
Dim PrevAutoFlg, NextAutoFlg
Dim KaisyaMeisyo, KaisyaRyakuMeisyo, GakuseiShimei, BunsyoMeisyo
Dim bFlg
Query = "exec SPM‰ïŽÐ‘S•”ˆê—— '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
NextKaisyaCD = Content.Fields("‰ïŽÐCD")
End If
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("‰ïŽÐCD") = KaisyaCD Then
KaisyaMeisyo = Content.Fields("‰ïŽÐ–¼Ì")
KaisyaRyakuMeisyo = Content.Fields("‰ïŽÐ—ª–¼Ì")
Content.MoveNext
If Not(Content.BOF Or Content.EOF) Then
NextKaisyaCD = Content.Fields("‰ïŽÐCD")
End If
Exit Do
End If
PrevKaisyaCD = Content.Fields("‰ïŽÐCD")
Content.MoveNext
Loop
If PrevKaisyaCD = "" Then
If Not(Content.BOF Or Content.EOF) Then
Content.MoveFirst
End If
Do While Not(Content.BOF Or Content.EOF)
PrevKaisyaCD = Content.Fields("‰ïŽÐCD")
Content.MoveNext
Loop
End If
Dim RiyoDenpyoSu
Dim SeizobuRiyo
Dim InputShiwaketyoKyuVersionRiyo
Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "', '" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Session(HomeAlias & "EnshuMeisyo") = Content.Fields("‰‰K–¼Ì")
RiyoDenpyoSu = Content.Fields("—˜—p“`•[”‹æ•ª")
InputShiwaketyoKyuVersionRiyo = Content.Fields("Žè“ü—ÍŽd–ó’ ‹Œƒo[ƒWƒ‡ƒ“—˜—p")
SeizobuRiyo = "" & Content.Fields("Œ´‰¿‰ïŒv—˜—p")
'‰ïŒvŠJŽn“úEI—¹“ú‚ðƒZƒbƒgi‡ŒvŽc‚ŽŽŽZ•\‚ÌFromToƒtƒH[ƒ€‚Ì‚½‚ßj
GB_KaikeiKaishibi = "" & Content.Fields("‰ïŒvŠJŽn“ú")
GB_KaikeiSyuryobi = "" & Content.Fields("‰ïŒvI—¹“ú")
end If
EnshuMeisyo = Session(HomeAlias & "EnshuMeisyo")
Query = "exec SPMƒ†[ƒU[Žæ“¾ '" & GB_SystemCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Session(HomeAlias & "GakuseiShimei") = Content.Fields("Ž–¼")
end If
Session(HomeAlias & "KaisyaRyakuMeisyo") = KaisyaRyakuMeisyo
Session(HomeAlias & "GakuseiNo") = GakuseiNo
Session(HomeAlias & "EnshuCD") = EnshuCD
Session(HomeAlias & "KaisyaCD") = KaisyaCD
Query = "exec SPM‰‰K‘I‘ðƒ†[ƒU[ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
NextGakuseiNo = Content.Fields("Šw¶”Ô†")
End If
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("Šw¶”Ô†") = GakuseiNo Then
GakuseiShimei = Content.Fields("Ž–¼")
Content.MoveNext
If Not(Content.BOF Or Content.EOF) Then
NextGakuseiNo = Content.Fields("Šw¶”Ô†")
End If
Exit Do
End If
PrevGakuseiNo = Content.Fields("Šw¶”Ô†")
Content.MoveNext
Loop
If PrevGakuseiNo = "" Then
If Not(Content.BOF Or Content.EOF) Then
Content.MoveFirst
End If
Do While Not(Content.BOF Or Content.EOF)
PrevGakuseiNo = Content.Fields("Šw¶”Ô†")
Content.MoveNext
Loop
End If
Query = "exec SPR•¶‘Ží—ވꗗ '" & GB_SystemCD & "'" 'TC9•¶‘Ží—ÞM‚©‚çu‡˜v—ñƒ\[ƒg‚Å”²‚«o‚·‚¾‚¯
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
If Left(Content.Fields("•¶‘Ží—ÞCD"),1) <> "X" Then 'Œ_–ñ‘‚ÍœŠO
NextBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
NextAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
End If
End If
Do While Not(Content.BOF Or Content.EOF)
If Left(Content.Fields("•¶‘Ží—ÞCD"),1) <> "X" Then 'Œ_–ñ‘‚ÍœŠO
If Content.Fields("•¶‘Ží—ÞCD") = BunsyoSyuruiCD And Content.Fields("Ž©“®ƒtƒ‰ƒO") = AutoFlg Then
BunsyoMeisyo = Content.Fields("•¶‘–¼Ì")
Content.MoveNext
If Not(Content.BOF Or Content.EOF) And Left(Content.Fields("•¶‘Ží—ÞCD"),1) <> "X" Then 'Œ_–ñ‘‚ÍœŠO
NextBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
NextAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
End If
Exit Do
End If
PrevBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
PrevAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
End If
Content.MoveNext
Loop
If PrevBunsyoSyuruiCD = "" Then
If Not(Content.BOF Or Content.EOF) Then
Content.MoveFirst
End If
Do While Not(Content.BOF Or Content.EOF)
If Left(Content.Fields("•¶‘Ží—ÞCD"),1) <> "X" Then 'Œ_–ñ‘‚ÍœŠO
PrevBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
PrevAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
End If
Content.MoveNext
Loop
End If
' If Not(Content.BOF Or Content.EOF) Then
' NextBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
' NextAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
' End If
' Do While Not(Content.BOF Or Content.EOF)
' If Content.Fields("•¶‘Ží—ÞCD") = BunsyoSyuruiCD And Content.Fields("Ž©“®ƒtƒ‰ƒO") = AutoFlg Then
' BunsyoMeisyo = Content.Fields("•¶‘–¼Ì")
' Content.MoveNext
' If Not(Content.BOF Or Content.EOF) Then
' NextBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
' NextAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
' End If
' Exit Do
' End If
' PrevBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
' PrevAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
' Content.MoveNext
' Loop
' If PrevBunsyoSyuruiCD = "" Then
' If Not(Content.BOF Or Content.EOF) Then
' Content.MoveFirst
' End If
' Do While Not(Content.BOF Or Content.EOF)
' PrevBunsyoSyuruiCD = Content.Fields("•¶‘Ží—ÞCD")
' PrevAutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
' Content.MoveNext
' Loop
' End If
Query = "exec SPR•¶‘”Ô†ˆê—— '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
NextBunsyoNaiyoCD = Content.Fields("•¶‘“à—eCD")
If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
NextBunsyoNaiyoCD = Content.Fields("쬉ïŽÐCD") & "," & NextBunsyoNaiyoCD '¬ØŽèE–ñ‘©ŽèŒ`Eˆ×‘ÖŽèŒ`‚ÌꇂÍ쬉ïŽÐCD‚ð•t‰Ái061124¬–ìj
End If
End If
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("•¶‘“à—eCD") = BunsyoNaiyoCD Then
Content.MoveNext
If Not(Content.BOF Or Content.EOF) Then
NextBunsyoNaiyoCD = Content.Fields("•¶‘“à—eCD")
If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
NextBunsyoNaiyoCD = Content.Fields("쬉ïŽÐCD") & "," & NextBunsyoNaiyoCD '¬ØŽèE–ñ‘©ŽèŒ`Eˆ×‘ÖŽèŒ`‚ÌꇂÍ쬉ïŽÐCD‚ð•t‰Ái061124¬–ìj
End If
End If
Exit Do
End If
PrevBunsyoNaiyoCD = Content.Fields("•¶‘“à—eCD")
If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
PrevBunsyoNaiyoCD = Content.Fields("쬉ïŽÐCD") & "," & PrevBunsyoNaiyoCD '¬ØŽèE–ñ‘©ŽèŒ`Eˆ×‘ÖŽèŒ`‚ÌꇂÍ쬉ïŽÐCD‚ð•t‰Ái061124¬–ìj
End If
Content.MoveNext
Loop
If PrevBunsyoNaiyoCD = "" Then
If Not(Content.BOF Or Content.EOF) Then
Content.MoveFirst
End If
Do While Not(Content.BOF Or Content.EOF)
PrevBunsyoNaiyoCD = Content.Fields("•¶‘“à—eCD")
If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
PrevBunsyoNaiyoCD = Content.Fields("쬉ïŽÐCD") & "," & PrevBunsyoNaiyoCD '¬ØŽèE–ñ‘©ŽèŒ`Eˆ×‘ÖŽèŒ`‚ÌꇂÍ쬉ïŽÐCD‚ð•t‰Ái061124¬–ìj
End If
Content.MoveNext
Loop
End If
If KaisyaMeisyo = "" Then
KaisyaMeisyo = KaisyaCD
End If
If KaisyaRyakuMeisyo = "" Then
KaisyaRyakuMeisyo = KaisyaCD
End If
If GakuseiShimei = "" Then
GakuseiShimei = GakuseiNo
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% If 0=1 Then %>
<% ' ‘¹‰vŒvŽZ‘•ñ‘ ŽóŽæŽèŒ`—š—ð Žx•¥ŽèŒ`—š—ð %>
<% ElseIf AutoFlg = 1 And (BunsyoSyuruiCD = "LJ" Or BunsyoSyuruiCD = "MH" Or BunsyoSyuruiCD = "MI") Then %>
<link href="../../binx/sj3tyoboblack.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% ' ‘¹‰vŒvŽZ‘”Ì”„ŠÇ—”ïˆê—— Œ»‹à“üo‹à—š—𠤕iÝŒÉ (ˆÚ“®•½‹Ï–@) (‘•½‹Ï–@) —a‹à“üo‹à—š—ð “üŒÉŽÀÑ oŒÉŽÀÑ %>
<% ElseIf AutoFlg = 1 And (BunsyoSyuruiCD = "LK" Or BunsyoSyuruiCD = "MA" Or Left(BunsyoSyuruiCD, 2) = "MG" Or Left(BunsyoSyuruiCD, 2) = "MJ" Or Left(BunsyoSyuruiCD, 2) = "MK" Or Left(BunsyoSyuruiCD, 2) = "MB" Or Left(BunsyoSyuruiCD, 2) = "MC" Or Left(BunsyoSyuruiCD, 2) = "MD") Then %>
<link href="../../binx/sj3tyoboblack11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% ' Œ»‹ào”[’ Žd“ü’ ”„ã’ ¤•i—L‚’ “–À—a‹ào”[’ ”„Š|‹àŒ³’ ”ƒŠ|‹àŒ³’ %>
<% ElseIf Left(BunsyoSyuruiCD, 2) = "MA" Or Left(BunsyoSyuruiCD, 2) = "MC" Or Left(BunsyoSyuruiCD, 2) = "MD" Or Left(BunsyoSyuruiCD, 2) = "MG" Or Left(BunsyoSyuruiCD, 2) = "MB" Or Left(BunsyoSyuruiCD, 2) = "ME" Or Left(BunsyoSyuruiCD, 2) = "MF" Then %>
<link href="../../binx/sj3tyobored11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% ' iŽ©“®j Œ»‹ào”[’ Žd“ü’ ”„ã’ ¤•i—L‚’ “–À—a‹ào”[’ ”„Š|‹àŒ³’ ”ƒŠ|‹àŒ³’ ŽóŽæŽèŒ`‹L“ü’ Žx•¥ŽèŒ`‹L“ü’ %>
<% ElseIf Left(BunsyoSyuruiCD, 2) = "AA" Or Left(BunsyoSyuruiCD, 2) = "AH" Or Left(BunsyoSyuruiCD, 2) = "AG" Or Left(BunsyoSyuruiCD, 2) = "AI" Or Left(BunsyoSyuruiCD, 2) = "AB" Or Left(BunsyoSyuruiCD, 2) = "AC" Or Left(BunsyoSyuruiCD, 2) = "AD" Or Left(BunsyoSyuruiCD, 2) = "AE" Or Left(BunsyoSyuruiCD, 2) = "AF" Then %>
<link href="../../binx/sj3tyobored11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% ' ‡ŒvŽc‚ŽŽŽZ•\ 8Œ…¸ŽZ•\ Žd–óWŒv•\ Žd–ó’ ‘Š¨’茳’ ‘¹‰vŒvŽZ‘ ‘ÝŽØ‘ÎÆ•\ %>
<% ElseIf Left(BunsyoSyuruiCD, 2) = "LC" Or Left(BunsyoSyuruiCD, 2) = "LG" Or Left(BunsyoSyuruiCD, 2) = "LB" Or Left(BunsyoSyuruiCD, 2) = "LA" Or Left(BunsyoSyuruiCD, 2) = "LD" Or Left(BunsyoSyuruiCD, 2) = "LF" Or Left(BunsyoSyuruiCD, 2) = "LE" Then %>
<link href="../../binx/sj3tyobored11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% ' ‡ŒvŽc‚ŽŽŽZ•\ 8Œ…¸ŽZ•\ Žd–óWŒv•\ Žd–ó’ ‘Š¨’茳’ ‘¹‰vŒvŽZ‘ ‘ÝŽØ‘ÎÆ•\ %>
<% Else %>
<link href="../../binx/sj3tyobored.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% End If %>
<title><% = AppTitle %></title>
<script language="JavaScript" src="../../include.js?<% = TimeUniq() %>"></script>
<script language="JavaScript" src="../../includesj.js?<% = TimeUniq() %>"></script>
<% If 0=1 Then %>
<script language="JScript.Encode" src="../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../includesj_enc.js?<% = TimeUniq() %>"></script>
<% End If %>
<script type="text/javascript" src="../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" name="form1" method="GET" action="fm_tyohyo.asp" onSubmit="return SubmitCheck();" target="_top">
<input type="hidden" name="HyojiJyoken" value="<% = HyojiJyoken %>">
<input type="hidden" name="Joken" value="<% = Joken %>">
<input type="hidden" name="EnshuChange" value="">
<%
Response.Write(HtmlDesign(10))
Response.Write(HttpL1(4))
If GB_Admin = 2 Then
Response.Write(HttpL2("‰^—pŠÇ—ƒƒjƒ…[" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "‘—ވꗗ", "", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL2("‰^—pŠÇ—ƒƒjƒ…[" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "‘—ވꗗ", "", "" , "", "", "", "", "", "", ""))
End If
Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
' Response.Write(HttpL3_1("ˆóü", "PrintoutReal()", "", "", "", "", "", "", "", ""))
If PackageMode = 1 Then
Response.Write(HttpL3_1("ˆóü", "PrintoutReal()", " 쬑—ÞWŒvˆê—— ", "tblbtn('fm_tyohyo_ichiran.asp?EnshuCD=" & EnshuCD & "&GakuseiNo=" & GakuseiNo & "&KaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&Joken=" & Joken & "')", " ’ •[ˆêŠ‡ˆóü ", "tblbtn('fm_print_ikkatsu.asp');", "", "", "", ""))
Else
Response.Write(HttpL3_1("ˆóü", "PrintoutReal()", " 쬑—ÞWŒvˆê—— ", "tblbtn('fm_tyohyo_ichiran.asp?EnshuCD=" & EnshuCD & "&GakuseiNo=" & GakuseiNo & "&KaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&Joken=" & Joken & "')", " ’ •[ˆêŠ‡ˆóü ", "tblbtn('fm_print_ikkatsu.asp');", "‘—Mƒ[ƒ‹ˆê——", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "')", "", ""))
End If
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("‘—ވꗗ", ""))
Response.Write(HttpL5(ErrMsg))
%>
<%
If EnshuCD <> "" And KaisyaCD <> "" And GakuseiNo <> "" And BunsyoSyuruiCD <> "" Then 'ˆóüƒ{ƒ^ƒ“•\Ž¦‚ððŒ•ªŠòi061214¬–ìj
If BunsyoSyuruiCD = "LA" Or BunsyoSyuruiCD = "LC" Or BunsyoSyuruiCD = "LG" Or BunsyoSyuruiCD = "LE" Or BunsyoSyuruiCD = "LF" Or BunsyoSyuruiCD = "MA" Or BunsyoSyuruiCD = "MC" Or BunsyoSyuruiCD = "MD" Or BunsyoSyuruiCD = "MH" Or BunsyoSyuruiCD = "MI" Or BunsyoSyuruiCD = "LI" Or BunsyoSyuruiCD = "LJ" Or BunsyoSyuruiCD = "LK" Or BunsyoSyuruiCD = "AA" Or BunsyoSyuruiCD = "AB" Or BunsyoSyuruiCD = "AC" Or BunsyoSyuruiCD = "AD" Or BunsyoSyuruiCD = "AE" Or BunsyoSyuruiCD = "AF" Or BunsyoSyuruiCD = "AG" Or BunsyoSyuruiCD = "AH" Or BunsyoSyuruiCD = "AI" Or BunsyoNaiyoCD <> "" Then
%>
<div id="L3_1" style="position:absolute; visibility: hidden; left: 0px; top: 0px;">
<table width="70" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mwbtn_02_1.gif">
<tr>
<td nowrap height="30" align="center" class="tbtn2" onClick="SubmitFlg=0;PrintoutReal();" onMouseOver="if(SubmitFlg!=0){this.focus();}">ˆóü</td>
</tr>
</table>
<%
End If
End If
%>
</div>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="690" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td align="center" valign="top" height="45">
<TABLE WIDTH="670" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD HEIGHT="25" valign="middle">‘ÎÛ‰‰K–¼</TD>
<% If EnshuKubunmei = "P" Then %>
<TD HEIGHT="25" valign="middle">
<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = PrevGakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');">©</a>
@¶“k@
<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = NextGakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');">¨</a>
</TD>
<% End If %>
<TD HEIGHT="25" valign="middle">
<% If PackageMode = 1 Then 'ƒTƒCƒo[‰ïŒv‚Å‚ÍŽ©ŽÐ‚Ì‚Ý•\Ž¦i091015¬–ìj%>
@‰ïŽÐ–¼@
<% Else %>
<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = PrevKaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');">©</a>
@‰ïŽÐ–¼@
<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = NextKaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');">¨</a>
<% End If %>
</TD>
<TD HEIGHT="25" valign="middle">
<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = PrevBunsyoSyuruiCD %>,<% = PrevAutoFlg %>');">©</a>
@•¶‘–¼@
<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = NextBunsyoSyuruiCD %>,<% = NextAutoFlg %>');">¨</a>
</TD>
<TD HEIGHT="25" valign="middle">
<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = PrevBunsyoNaiyoCD %>');">©</a>
@“à—e@
<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = NextBunsyoNaiyoCD %>');">¨</a>
</TD>
</TR>
<TR ALIGN="CENTER">
<TD height="20" valign="middle">
<% If GB_Admin = 2 Then %>
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<% = EnshuMeisyo %>
<% Else %>
<select size="1" name="EnshuCD" onChange="form1.EnshuChange.value='1';SetSyokaiList(0);">
<option value="">ƒƒ ‘ÎÛ‰‰K‚ð‘I‘ð‚µ‚Ä‰º‚³‚¢ „„</option>
<%
Query = "exec SPM‰‰Kˆê—— '" & GB_SystemCD & "', 4"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If (PackageMode = 1 And "" & Content.Fields("ƒpƒbƒP[ƒW‹æ•ª") = "CA") Or (PackageMode = 0 And "" & Content.Fields("ƒpƒbƒP[ƒW‹æ•ª") <> "CA") Then
'H‹Æ•ë‹L‰‰K‚Í5ˆÈã‚Å•\Ž¦
If "" & Content.Fields("‰‰KCD") <> "SYS00006" Or MajorVersion >= 5 Then
Response.Write("<option value=""" & Content.Fields("‰‰KCD") & """")
If Content.Fields("‰‰KCD") = EnshuCD Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("‰‰K–¼Ì") & "</option>" & vbCrLf)
End If
End If
Content.MoveNext
Loop
%>
</select>
<% End If %>
</TD>
<% If EnshuKubunmei = "P" Then %>
<TD height="20" valign="middle">
<select size="1" name="GakuseiNo" onChange="SetSyokaiList(0);">
<option value="">‘I‘ð‚µ‚Ä‰º‚³‚¢</option>
<%
' Query = "exec SPM‰‰K‘I‘ðƒ†[ƒU[ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "'"
'ŽQ‰Á‚µ‚½‚±‚Æ‚Ì‚ ‚郆[ƒU[‚ð•\Ž¦‚·‚éi100907¬–ìj
Query = "exec SPM‰‰K‰ïŽÐ—š—ð '" & GB_SystemCD & "', '" & EnshuCD & "', 1" 'ƒ\[ƒg‹æ•ªŽw’è
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("<option value=""" & Content.Fields("Šw¶”Ô†") & """")
If Content.Fields("Šw¶”Ô†") = GakuseiNo Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("Ž–¼") & "</option>" & vbCrLf)
Content.MoveNext
Loop
%>
</select>
</TD>
<% End If %>
<TD height="20" valign="middle">
<select size="1" name="KaisyaCD" onChange="SetSyokaiList(0);">
<option value="">‘I‘ð‚µ‚Ä‰º‚³‚¢</option>
<%
Query = "exec SPM‰ïŽÐ‘S•”ˆê—— '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'ƒTƒCƒo[‰ïŒv‚Å‚ÍŽ©ŽÐ‚Ì‚Ý•\Ž¦i091015¬–ìj
If PackageMode <> 1 Or (PackageMode = 1 And "" & Content.Fields("Ž©ŽÐƒtƒ‰ƒO") = "1") Then
Response.Write("<option value=""" & Content.Fields("‰ïŽÐCD") & """")
If Content.Fields("‰ïŽÐCD") = KaisyaSelect Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("‰ïŽÐ—ª–¼Ì") & "</option>" & vbCrLf)
End If
Content.MoveNext
Loop
%>
</select>
</TD>
<TD height="20" valign="middle">
<select size="1" name="BunsyoSyuruiCD" onChange="SetSyokaiList(1);">
<option value="">‘I‘ð‚µ‚Ä‰º‚³‚¢</option>
<%
Query = "exec SPR•¶‘Ží—ވꗗ '" & GB_SystemCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'—˜—p“`•[”‚Å‚Ì“`•[œŠOðŒ
If (RiyoDenpyoSu < 3 And (Content.Fields("•¶‘Ží—ÞCD") = "D1" Or Content.Fields("•¶‘Ží—ÞCD") = "D2")) Or (RiyoDenpyoSu < 5 And (Content.Fields("•¶‘Ží—ÞCD") = "D3" Or Content.Fields("•¶‘Ží—ÞCD") = "D4")) Or (RiyoDenpyoSu < 1 And Content.Fields("•¶‘Ží—ÞCD") = "D5") Then
'ƒTƒCƒo[‰ïŒvƒ‚[ƒh‚Å‚ÌŽd–ó’ ƒgƒOƒ‹iŽè“®Žd–ó’ ‚ªŽ©“®ˆµ‚¢‚É‚È‚é‚Ì‚Å•\Ž¦”ñ•\Ž¦‚ÌØ‘Ö‚Ì‚Ý‚ÅOKBŽ©“®Žd–ó’ ‚ÍŽè“®Žd–ó’ ‚Ì‹tðŒj
ElseIf PackageMode = "1" And ((RiyoDenpyoSu > 0 And Content.Fields("•¶‘Ží—ÞCD") = "LA" And Content.Fields("Ž©“®ƒtƒ‰ƒO") = "0") Or (RiyoDenpyoSu < 1 And Content.Fields("•¶‘Ží—ÞCD") = "LA" And Content.Fields("Ž©“®ƒtƒ‰ƒO") = "1")) Then
'ƒTƒCƒo[‰ïŒvƒ‚[ƒh‚Å‚Ì‹@”\œŠOðŒ
ElseIf PackageMode = "1" And (Left(Content.Fields("•¶‘Ží—ÞCD"), 1) = "B" Or Left(Content.Fields("•¶‘Ží—ÞCD"), 1) = "C" Or Left(Content.Fields("•¶‘Ží—ÞCD"), 1) = "K" Or Left(Content.Fields("•¶‘Ží—ÞCD"), 1) = "S" Or Left(Content.Fields("•¶‘Ží—ÞCD"), 1) = "T" Or Left(Content.Fields("•¶‘Ží—ÞCD"), 1) = "R" Or Left(Content.Fields("•¶‘–¼Ì"), 2) = "¤•i" Or Right(Content.Fields("•¶‘–¼Ì"), 2) = "—š—ð" Or Right(Content.Fields("•¶‘–¼Ì"), 2) = "ŽÀÑ") Then
'»‘¢•””ñ—˜—pŽž‚ÌœŠOðŒ
ElseIf SeizobuRiyo <> "1" And (Content.Fields("•¶‘Ží—ÞCD") = "ZS" Or Content.Fields("•¶‘Ží—ÞCD") = "MU" Or Content.Fields("•¶‘Ží—ÞCD") = "D7" Or Content.Fields("•¶‘Ží—ÞCD") = "D8") Then
'ƒƒWƒƒ[ƒo[ƒWƒ‡ƒ“‚Å‚ÌœŠO”»’è 'Žc‚Ø–¾ˆË—Š‘ 'Žc‚Ø–¾‘
ElseIf MajorVersion < 5 And (Content.Fields("•¶‘Ží—ÞCD") = "BH" Or Content.Fields("•¶‘Ží—ÞCD") = "BU") Then
Else
If Content.Fields("•¶‘Ží—ÞCD") <> "CA" And Left(Content.Fields("•¶‘Ží—ÞCD"),1) <> "X" Then 'Œ_–ñ‘‚ÍœŠO
Response.Write("<option value=""" & Content.Fields("•¶‘Ží—ÞCD") & "," & Content.Fields("Ž©“®ƒtƒ‰ƒO") & """")
If Content.Fields("•¶‘Ží—ÞCD") = BunsyoSyuruiCD And Content.Fields("Ž©“®ƒtƒ‰ƒO") = AutoFlg Then
Addr = Content.Fields("ƒAƒhƒŒƒX")
AutoFlg = Content.Fields("Ž©“®ƒtƒ‰ƒO")
Response.Write(" selected")
End If
BunsyoMeisyo = Content.Fields("•¶‘–¼Ì")
Response.Write(">" & BunsyoMeisyo & "</option>" & vbCrLf)
End If
End If
Content.MoveNext
Loop
%>
</select>
</TD>
<TD height="20" valign="middle">
<select size="1" name="BunsyoNaiyoCD" onChange="SetSyokaiList(0);">
<% If BunsyoSyuruiCD = "LC" And AutoFlg = "1" Then %>
<option value="">ŒˆŽZ®—‘O</option>
<option value="1"<% If BunsyoNaiyoCD = "1" Then %> selected<% End If %>>ŒˆŽZ®—Œã</option>
<option value="2"<% If BunsyoNaiyoCD = "2" Then %> selected<% End If %>>ŒˆŽZU‘ÖŒã</option>
<% ElseIf (BunsyoSyuruiCD = "LE" Or BunsyoSyuruiCD = "LF" Or BunsyoSyuruiCD = "LG") And AutoFlg = "1" Then %>
<option value="">ŒˆŽZ®—‚Ü‚Å</option>
<option value="1"<% If BunsyoNaiyoCD = "1" Then %> selected<% End If %>>ŒˆŽZU‘ÖŒã</option>
<% ElseIf (BunsyoSyuruiCD = "AB" Or BunsyoSyuruiCD = "AC" Or BunsyoSyuruiCD = "AD") Then %>
<option value="">‘I‘ð‚µ‚Ä‰º‚³‚¢</option>
<%
Query = "exec SPM‰ïŽÐ‘S•”ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "','" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'ƒTƒCƒo[‰ïŒvƒ‚[ƒh‚Å‚Í‘S‰ïŽÐ‚ð•\Ž¦
If PackageMode = 1 Or ((BunsyoSyuruiCD = "AB" And Content.Fields("‹ÆŽíCD") = "B") Or (BunsyoSyuruiCD <> "AB" And Content.Fields("‹ÆŽíCD") <> "B")) Then
Response.Write("<option value=""" & Content.Fields("‰ïŽÐCD") & """")
If Content.Fields("‰ïŽÐCD") = BunsyoNaiyoCD Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("‰ïŽÐ–¼Ì") & "</option>" & vbCrLf)
End If
Content.MoveNext
Loop
%>
<% Else %>
<option value="">‘I‘ð‚µ‚Ä‰º‚³‚¢</option>
<% End If %>
<%
Query = "exec SPR•¶‘”Ô†ˆê—— '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("<option value=""" & Content.Fields("쬉ïŽÐCD") & "," & Content.Fields("•¶‘“à—eCD") & """")
If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
If Content.Fields("•¶‘“à—eCD") = BunsyoNaiyoCD Then '¬ØŽèE–ñ‘©ŽèŒ`Eˆ×‘ÖŽèŒ`‚ÌꇂÍ쬉ïŽÐCD‚ªˆÙ‚È‚Á‚Ä‚àselected‚³‚¹‚éi061124¬–ìj
Response.Write(" selected")
End If
Else
If Content.Fields("쬉ïŽÐCD") = SakuseiKaisyaCD AND Content.Fields("•¶‘“à—eCD") = BunsyoNaiyoCD Then
Response.Write(" selected")
End If
End If
Response.Write(">")
If Content.Fields("쬉ïŽÐ–¼Ì") <> "" Then
Response.Write(Content.Fields("쬉ïŽÐ–¼Ì"))
Response.Write(",")
End If
Response.Write(Content.Fields("•¶‘“à—e–¼Ì") & "</option>" & vbCrLf)
Content.MoveNext
Loop
%>
</select>
</TD>
</TR>
</table>
</td>
</tr>
<%
Dim Kaishibi
Dim Syuryobi
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
If Kaishibi = "" Then
Kaishibi = GB_KaikeiKaishibi
End If
If Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
End If
'‡ŒvŽc‚ŽŽŽZ•\E‘¹‰vŒvŽZ‘‚Ì‚½‚ß‚ÌFromToŽw’è
If BunsyoSyuruiCD = "LC" Or BunsyoSyuruiCD = "LF" Then %>
<tr>
<td height="30" align="center">
<TABLE BORDER="0" CELLSPACING="0" style="border:1px solid #000000">
<TR>
<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" class="tx1416">
<tr>
<td>
<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
<tr>
<td>
<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
<tr>
<td> WŒv“úF</td>
<td><input type="text" name="Kaishibi" size="12" value="<% = Kaishibi %>" onBlur="SetDate(this, 1, true)" class="tbox4"> ` <input type="text" name="Syuryobi" size="12" value="<% = Syuryobi %>" onBlur="SetDate(this, 1, true)" class="tbox4"></td>
</tr>
</table>
</td>
<td width="1"> </td>
<td>
<TABLE onClick="SetSyokaiList(0);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="80">
<TR>
<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>">@</TD>
<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="60">XV</TD>
<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>">@</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<%
'”ªŒ…¸ŽZ•\E‘ÝŽØ‘ÎÆ•\‚Ì‚½‚ß‚ÌToŽw’è
ElseIf BunsyoSyuruiCD = "LG" Or BunsyoSyuruiCD = "LE" Then
%>
<tr>
<td height="30" align="center">
<TABLE BORDER="0" CELLSPACING="0" style="border:1px solid #000000">
<TR>
<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" class="tx1416">
<tr>
<td>
<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
<tr>
<td>
<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
<tr>
<td> “ú•tF</td>
<td><input type="text" name="Syuryobi" size="12" value="<% = Syuryobi %>" onBlur="SetDate(this, 1, true)" class="tbox4"></td>
</tr>
</table>
</td>
<td width="1"> </td>
<td>
<TABLE onClick="SetSyokaiList(0);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="80">
<TR>
<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>">@</TD>
<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="60">XV</TD>
<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>">@</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<input type="hidden" name="Kaishibi" value="<% = Kaishibi %>">
<% Else %>
<input type="hidden" name="Kaishibi" value="<% = Kaishibi %>">
<input type="hidden" name="Syuryobi" value="<% = Syuryobi %>">
<% End If %>
<tr>
<td align="center"><%
'Response.Write("Ÿ" & BunsyoSyuruiCD & "<br>")
Select Case BunsyoSyuruiCD
Case "KI", "KM", "KC", "KU", "KB", "KN", "KX", "KO", "KY", "KW", "KV", "KP"
Response.Write(ShiireUriageSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0, 0))
Case "BA","BB","BC","BD","BE","BF","BG","BH"
Response.Write(GinkoSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
Case "BN","BO","BP","BQ","BR","BS","BT","BU"
Response.Write(GinkoUketsukeSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
Case "TG","TK","TY"
Response.Write(Tegata( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
Case "CA","CB","CC"
Response.Write(UnsoSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
Case "CD"
Response.Write(UnsoSeikyuSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
Case "D1", "D2"
Response.Write(DenpyoNyusyukin( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
Case "D3", "D4"
Response.Write(DenpyoShiireUriage( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
Case "D5"
Response.Write(DenpyoFurikae( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
Case "LA"
If InputShiwaketyoKyuVersionRiyo = 1 Then
Response.Write(TyoboShiwakenikkityo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
Else
Response.Write(TyoboShiwaketyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
End If
Case "LB"
Response.Write(TyoboShiwakeSyukeihyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
Case "LC"
Dim FromTo
FromTo = Syuryobi
If Kaishibi <> "" Then
FromTo = Kaishibi & ";" & FromTo
End If
'ŒˆŽZƒtƒ‰ƒO
Response.Write(TyoboGokeiZandakaShisanhyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, FromTo, BunsyoNaiyoCD, ""))
Case "LD"
If GetEnshuParam(EnshuCD, "‘Š¨’茳’ •W€Ž®—˜—p") = "1" Then
Response.Write(TyoboSokanjyoMototyoH( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
Else
Response.Write(TyoboSokanjyoMototyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
End If
Case "LE" 'To 'ŒˆŽZƒtƒ‰ƒO
Response.Write(TyoboTaisyakuTaisyohyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", Syuryobi, BunsyoNaiyoCD))
Case "LF" 'From 'To 'ŒˆŽZƒtƒ‰ƒO
Response.Write(TyoboSonekiKeisansyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, Kaishibi, Syuryobi, "", BunsyoNaiyoCD))
Case "LG" 'To 'ŒˆŽZƒtƒ‰ƒO
Response.Write(TyoboHachiketaSeisanhyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, Syuryobi, BunsyoNaiyoCD, ""))
Case "LI"
Response.Write(TyoboTaisyakuTaisyohyoHokokusyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
Case "LJ"
Response.Write(TyoboSonekiKeisansyoHokokusyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
Case "LK"
Response.Write(TyoboSonekiKeisansyoHanbaiKanrihi(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
Case "MA"
Response.Write(HojyoboGenkinSuitohyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
Case "MB"
Response.Write(HojyoboTozaYokinSuitohyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
Case "MC", "MD"
Response.Write(HojyoboShiireUriagetyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
Case "ME", "MF"
Response.Write(HojyoboUrikaikakekintyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, "", AutoFlg, 0))
Case "MG", "MJ", "MK"
Response.Write(HojyoboSyohinAridakatyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
Case "MH", "MI"
Response.Write(HojyoboUketoriShiharaiTegatatyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
Case "RA"
Response.Write(Ryosyusyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
Case "SC", "SS", "SU", "SX", "SY"
Response.Write(Nyusyukko( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
'Œ»‹ào”[’
Case "AA"
Response.Write(HojyoboGenkinSuitohyo(EnshuCD, KaisyaCD, KaisyaCD, "MA", "", 2, 0))
'“–À—a‹ào”[’
Case "AB"
Response.Write(HojyoboTozaYokinSuitohyo(EnshuCD, KaisyaCD, KaisyaCD, "MB", BunsyoNaiyoCD, 2, 0, "", "", ""))
'”„Š|‹àŒ³’
Case "AC"
Response.Write(HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, KaisyaCD, "ME", BunsyoNaiyoCD, "", 2, 0))
'”ƒŠ|‹àŒ³’
Case "AD"
Response.Write(HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, KaisyaCD, "MF", BunsyoNaiyoCD, "", 2, 0))
'ŽóŽæŽèŒ`‹L“ü’
Case "AE"
Response.Write(HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, KaisyaCD, "MH", "", 2, 0))
'Žx•¥ŽèŒ`‹L“ü’
Case "AF"
Response.Write(HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, KaisyaCD, "MI", "", 2, 0))
'”„ã’
Case "AG"
Response.Write(HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, KaisyaCD, "MD", "", 2, 0))
'Žd“ü’
Case "AH"
Response.Write(HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, KaisyaCD, "MC", "", 2, 0))
'¤•i—L‚’
Case "AI"
'»‘¢•”
Case "ZS", "MU"
Response.Write(Nyusyukko( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
Case "D7"
Response.Write(DenpyoZairyoShiire( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
Case "D8"
Response.Write(DenpyoFurikae( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
Case Else
End Select
%>
</td>
</tr>
</table>
</div>
</form>
<SCRIPT LANGUAGE="JavaScript">
function SetSyokaiList(iFlg) {
if (iFlg == 1) {
form1.BunsyoNaiyoCD.value = "";
}
if (form1.EnshuCD.value == "") {
alert("‘ÎÛ‰‰KƒR[ƒh‚ð‘I‘ð‚µ‚Ä‰º‚³‚¢");
return false;
}
SubmitReal(form1);
return false;
}
</script>
</body>
<SCRIPT LANGUAGE="JavaScript">
function GetKaikeiKaishibi(){return '<% = GB_KaikeiKaishibi %>';}
function GetKaikeiSyuryobi(){return '<% = GB_KaikeiSyuryobi %>';}
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
Init();
</SCRIPT>
</html>
<%
End Sub
%>