<!-- #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 %>