%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query, Content
Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo
Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo
Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo
Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo
Dim RiyoDenpyoSu
Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki
Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran
Dim SokanjyomototyoHyojyunshiki
Dim Kitakuriyou
Dim KinkoHyoji
Dim YTegataHyoji
Dim KTegataHyoji
Dim TegataHyoji
TegataHyoji = "1"
Dim AutoGenkinSuitotyo
Dim AutoTouzayokinSuitotyo
Dim AutoUriagetyo
Dim AutoShiiretyo
Dim AutoUrikakekinMototyo
Dim AutoKaikakekinMototyo
Dim AutoUketoriTegatatyo
Dim AutoShiharaiTegatatyo
'’•¶¿‘Šm”F—v•s—vƒgƒOƒ‹
Dim UkeshoKakunin
UkeshoKakunin = 1
Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
RiyoDenpyoSu = Content.Fields("—˜—p“`•[”‹æ•ª")
InputShiwaketyo = Content.Fields("Žè“®Žd–ó’ •\Ž¦")
InputShiwakeShukeihyo = Content.Fields("Žè“®Žd–óWŒv•\•\Ž¦")
InputGokeiZandakaShisanhyo = Content.Fields("Žè“®‡ŒvŽc‚ŽŽŽZ•\•\Ž¦")
InputSokanjyoMototyo = Content.Fields("Žè“®‘Š¨’茳’ •\Ž¦")
InputTaisyakuTaisyohyo = Content.Fields("Žè“®‘ÝŽØ‘ÎÆ•\•\Ž¦")
InputSonekiKeisansyo = Content.Fields("Žè“®‘¹‰vŒvŽZ‘•\Ž¦")
InputHachiketaSeisanhyo = Content.Fields("Žè“®8Œ…¸ŽZ•\•\Ž¦")
AutoShiwaketyo = Content.Fields("Ž©“®“]‹LŽd–ó’ •\Ž¦")
AutoShiwakeShukeihyo = Content.Fields("Ž©“®“]‹LŽd–óWŒv•\•\Ž¦")
AutoGokeiZandakaShisanhyo = Content.Fields("Ž©“®“]‹L‡ŒvŽc‚ŽŽŽZ•\•\Ž¦")
AutoSokanjyoMototyo = Content.Fields("Ž©“®“]‹L‘Š¨’茳’ •\Ž¦")
AutoTaisyakuTaisyohyo = Content.Fields("Ž©“®“]‹L‘ÝŽØ‘ÎÆ•\•\Ž¦")
AutoSonekiKeisansyo = Content.Fields("Ž©“®“]‹L‘¹‰vŒvŽZ‘•\Ž¦")
AutoHachiketaSeisanhyo = Content.Fields("Ž©“®“]‹L8Œ…¸ŽZ•\•\Ž¦")
SokanjyomototyoHyojyunshiki = Content.Fields("‘Š¨’茳’ •W€Ž®—˜—p")
Dim YobiA
YobiA = Content.Fields("—š—ð•\Ž¦")
AutoGenkinNyusyukinRireki = Mid(YobiA, 1, 1)
AutoYokinNyusyukinRireki = Mid(YobiA, 2, 1)
AutoNyukoJisseki = Mid(YobiA, 3, 1)
AutoSyukoJisseki = Mid(YobiA, 4, 1)
AutoSyohinZaiko = Mid(YobiA, 5, 1)
AutoUketoriTegataIchiran = Mid(YobiA, 6, 1)
AutoShiaraiTegataIchiran = Mid(YobiA, 7, 1)
Kitakuriyou = "" & Content.Fields("Šñ‘õ‘qŒÉ—˜—p")
KinkoHyoji = "" & Content.Fields("‹àŒÉ•\Ž¦")
YTegataHyoji = "" & Content.Fields("–ñ‘©ŽèŒ`•\Ž¦")
KTegataHyoji = "" & Content.Fields("ˆ×‘ÖŽèŒ`•\Ž¦")
If YTegataHyoji <> "1" And KTegataHyoji <> "1" Then
TegataHyoji = "0"
End If
AutoGenkinSuitotyo = "" & Content.Fields("Ž©“®“]‹LŒ»‹ào”[’ •\Ž¦")
AutoTouzayokinSuitotyo = "" & Content.Fields("Ž©“®“]‹L“–À—a‹ào”[’ •\Ž¦")
AutoUriagetyo = "" & Content.Fields("Ž©“®“]‹L”„ã’ •\Ž¦")
AutoShiiretyo = "" & Content.Fields("Ž©“®“]‹LŽd“ü’ •\Ž¦")
AutoUrikakekinMototyo = "" & Content.Fields("Ž©“®“]‹L”„Š|‹àŒ³’ •\Ž¦")
AutoKaikakekinMototyo = "" & Content.Fields("Ž©“®“]‹L”ƒŠ|‹àŒ³’ •\Ž¦")
AutoUketoriTegatatyo = "" & Content.Fields("Ž©“®“]‹LŽóŽæŽèŒ`‹L“ü’ •\Ž¦")
AutoShiharaiTegatatyo = "" & Content.Fields("Ž©“®“]‹LŽx•¥ŽèŒ`‹L“ü’ •\Ž¦")
UkeshoKakunin = Content.Fields("’•¶¿‘Šm”F—˜—p")
End If
If "" & UkeshoKakunin = "" Then
UkeshoKakunin = 1
End If
'Šñ‘õ—˜—pó‘Ԃ𮔉»i070207¬–ìj
If Kitakuriyou = "1" Then
Kitakuriyou = 1
Else
Kitakuriyou = 0
End If
%>
<% = HtmlHeader("") %>
<%
Response.Write(HtmlDesign(4))
Response.Write(HttpL1(3))
Response.Write(HttpL2("ƉïEWŒvƒEƒBƒ“ƒhƒE" ,"", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3("", "", "", "", "","" ,"", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("ƉïEWŒvƒEƒBƒ“ƒhƒE", ""))
%>
 |
Œo—•” |
 |
 |
 |
“`•[ |
 |
<% If RiyoDenpyoSu = "5" Or RiyoDenpyoSu = "3" Then %>
E“ü‹à“`•[ |
<% End If %>
<% If RiyoDenpyoSu = "5" Or RiyoDenpyoSu = "3" Then %>
Eo‹à“`•[ |
<% End If %>
EU‘Ö“`•[ |
<% If RiyoDenpyoSu = "5" Then %>
EŽd“ü“`•[ |
<% End If %>
<% If RiyoDenpyoSu = "5" Then %>
E”„ã“`•[ |
<% End If %>
 |
Ž©“®“]‹L’ •ë |
 |
<% If AutoShiwaketyo = "1" Then %>
EŽd–ó’ |
<% End If %>
<% If AutoShiwakeShukeihyo = "1" Then %>
EŽd–óWŒv•\ |
<% End If %>
<% If AutoGokeiZandakaShisanhyo = "1" Then %>
E‡ŒvŽc‚ŽŽŽZ•\ |
<% End If %>
<% If AutoSokanjyoMototyo = "1" Then %>
<% If SokanjyomototyoHyojyunshiki = "1" Then %>
E‘Š¨’茳’ |
<% Else %>
E‘Š¨’茳’ |
<% End If %>
<% End If %>
<% If AutoTaisyakuTaisyohyo = "1" Then %>
E‘ÝŽØ‘ÎÆ•\ |
<% End If %>
<% If AutoSonekiKeisansyo = "1" Then %>
E‘¹‰vŒvŽZ‘ |
<% End If %>
<% If AutoHachiketaSeisanhyo = "1" Then %>
E8Œ…¸ŽZ•\ |
<% End If %>
<% If AutoGenkinSuitotyo = "1" Or AutoTouzayokinSuitotyo = "1" Or AutoUriagetyo = "1" Or AutoShiiretyo = "1" Or AutoUrikakekinMototyo = "1" Or AutoKaikakekinMototyo = "1" Or AutoUketoriTegatatyo = "1" Or AutoShiharaiTegatatyo = "1" Then %>
 |
Ž©“®“]‹L•â••ë |
 |
<% If AutoGenkinSuitotyo = "1" Then %>
EŒ»‹ào”[’ |
<% End If %>
<% If AutoTouzayokinSuitotyo = "1" Then %>
E“–À—a‹ào”[’ |
<% End If %>
<% If AutoUriagetyo = "1" Then %>
E”„ã’ |
<% End If %>
<% If AutoShiiretyo = "1" Then %>
EŽd“ü’ |
<% End If %>
<% If AutoUrikakekinMototyo = "1" Then %>
E”„Š|‹àŒ³’ |
<% End If %>
<% If AutoKaikakekinMototyo = "1" Then %>
E”ƒŠ|‹àŒ³’ |
<% End If %>
<% If AutoUketoriTegatatyo = "1" Then %>
EŽóŽæŽèŒ`‹L“ü’ |
<% End If %>
<% If AutoShiharaiTegatatyo = "1" Then %>
EŽx•¥ŽèŒ`‹L“ü’ |
<% End If %>
<% End If %>
|
 |
 |
 |
 |
|
|
<% If Kitakuriyou > 0 And GB_Gyosyu = "U" Or Kitakuriyou > 0 And GB_Gyosyu = "K" Then 'Šñ‘õ—˜—p‰‰K‚ÌŠÇ—•”E‰^—A‘qŒÉ‚ÍŽd“ü•”E”Ì”„•”‚ð—˜—p‚Å‚«‚È‚¢ %>
<% Else %>
 |
Žd“ü•” |
 |
 |
 |
Žd“ü‘—Þ |
 |
EŒ©ÏˆË—Š‘ |
E’•¶‘ |
<% If UkeshoKakunin > 0 Then %>
Eæ•û’•¶¿‘Šm”F |
<% End If %>
E•¨•iŽó—Ì‘ |
 |
Žd“ü–⇂¹ |
 |
|
|
 |
 |
 |
|
 |
”Ì”„•” |
 |
 |
 |
”Ì”„‘—Þ |
 |
<% If Kourihanbairiyo() > 0 Then %>
 |
¬”„”Ì”„ |
 |
<% End If %>
|
 |
 |
 |
 |
|
<% End If %>
<% If Kitakuriyou > 0 And GB_Gyosyu = "U" Or Kitakuriyou > 0 And GB_Gyosyu = "K" Then %>
<% Else %>
<% End If %>
 |
<% If Kitakuriyou > 0 And GB_Gyosyu = "U" Or Kitakuriyou > 0 And GB_Gyosyu = "K" Then %>
ŽÐ’·ŽºE‘–±•” |
<% Else %>
ŽÐ’·ŽºE‘–±•” |
<% End If %>
 |
 |
<% If Kitakuriyou > 0 And GB_Gyosyu = "U" Or Kitakuriyou > 0 And GB_Gyosyu = "K" Then %>
<% Else %>
<% End If %>
 |
Œ»•¨o“ü—š—ð |
 |
<% If KinkoHyoji = "1" Then %>
<% If AutoGenkinNyusyukinRireki = "1" Then %>
EŒ»‹à“üo‹à—š—ð |
<% End If %>
<% End If %>
<% If AutoYokinNyusyukinRireki = "1" Then %>
E—a‹à“üo‹à—š—ð |
<% End If %>
<% If Kitakuriyou > 0 And GB_Gyosyu = "U" Or Kitakuriyou > 0 And GB_Gyosyu = "K" Then %>
<% Else %>
<% If AutoNyukoJisseki = "1" Then %>
E¤•i“üŒÉ—š—ð |
<% End If %>
<% If AutoSyukoJisseki = "1" Then %>
E¤•ioŒÉ—š—ð |
<% End If %>
<% If AutoSyohinZaiko = "1" Then %>
E¤•iÝŒÉi¤•i—L‚’ j |
<% End If %>
<% End If %>
<% If TegataHyoji = "1" Then %>
<% If AutoUketoriTegataIchiran = "1" Then %>
EŽóŽæŽèŒ`—š—ð |
<% End If %>
<% If AutoShiaraiTegataIchiran = "1" Then %>
EŽx•¥ŽèŒ`—š—ð |
<% End If %>
<% End If %>
<% If Kitakuriyou > 0 And GB_Gyosyu = "U" Or Kitakuriyou > 0 And GB_Gyosyu = "K" Then %>
<% Else %>
|
|
<% End If %>
 |
à–±WŒv |
 |
EƒLƒƒƒbƒVƒ…ƒtƒ[ŒvŽZ‘ |
E‘¹‰vŽÀÑ |
EŽû‰v«‚Ì•ªÍ |
EˆÀ‘S«‚Ì•ªÍ |
E‘¹‰v•ªŠò“_•ªÍ |
E‘ÝŽØ‘ÎÆ•\i•ñ‘Œ`Ž®j |
E‘¹‰vŒvŽZ‘i•ñ‘Œ`Ž®j |
EŠ”ŽåŽ‘–{“™•Ï“®ŒvŽZ‘ |
|
|
 |
 |
 |
 |
|
|
<% = HtmlFooter %>
<%
End Sub
%> | |