<% ' main() Sub main() Dim EnshuName , EnshuKubun '‰‰�KCD�A ‰‰�K–¼�Ì�A‰‰�K‹æ•ª Dim FromYmd , ToYmd , TaxRate 'ŠJŽn“ú�A �I—¹“ú�A�Á”ï�Å—¦ Dim DenpyoKubun, TenkiKubun , TradeKubun '“`•[•ûŽ®�A“]‹L•ûŽ®�A�¤•iŽæˆø•ûŽ® Dim MotoEnshuCD , EnshuKubunNM 'ƒRƒs�[Œ³‰‰�K Dim rsts, Query Dim Content Dim Ng , ErrMSG Dim GinkoSyoriKubun, RiyoMailKubun, PrintHeaderHyoji Dim InputHojyobo Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo, InputStockholderEquity Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo, AutoStockholderEquity Dim RouteType Dim EnshuID, EnshuPassword Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran Dim GinkoKozaToza, GinkoKozaFutu, GinkoKozaBetsudan, GinkoKozaTsumitate, GinkoKozaTeiki Dim FurikomiTesuryoJiko1, FurikomiTesuryoJiko2, FurikomiTesuryoTako1, FurikomiTesuryoTako2, FurikomiTesuryoBorder Dim JidoGinkoWaribikiRiritsu Dim FurikomiTesuryoTozaFutanKubun, FurikomiTesuryoHiTozaFutanKubun, SeiriKinyuKeisiki Dim DbEnshuCD Dim SokanjyomototyoHyojyunshiki, ZandakaJidoKeisan Dim SokanjyomototyoMonthTotal Dim FurikaeDenpyoGyousu Dim GinkoMadoguchiHyoji, KinkoHyoji Dim KogitteHyoji, YTegataHyoji, KTegataHyoji, RyosyusyoHyoji, KyuyoDaichoHyoji Dim ShichoDenpyo Dim InputGenkinSuitotyo Dim InputKoguchiSuitocho Dim InputTouzayokinSuitotyo Dim InputUriagetyo Dim InputShiiretyo Dim InputUrikakekinMototyo Dim InputKaikakekinMototyo Dim InputUketoriTegatatyo Dim InputShiharaiTegatatyo Dim InputSyohinAridakatyo Dim AutoGenkinSuitotyo Dim AutoTouzayokinSuitotyo Dim AutoUriagetyo Dim AutoShiiretyo Dim AutoUrikakekinMototyo Dim AutoKaikakekinMototyo Dim AutoUketoriTegatatyo Dim AutoShiharaiTegatatyo Dim AutoSyohinAridakatyo Dim ZaimuTaishaku Dim ZaimuSoneki Dim ZaimuCashflow Dim ZaimuStockholder Dim BunsekiSonekijisseki Dim BunsekiAnzensei Dim BunsekiShuekisei Dim BunsekiSonekibunki Dim TozaHikidashiFurikomiKogitteHituyo Dim KogitteHenkyaku Dim ShiireUriageSyohizei Dim ShiwakebiShitei Dim AutoInputToggle DbEnshuCD = Request("DbEnshuCD") RouteType = Request("RouteType") EnshuCD = LCase(Request("EnshuCD")) EnshuName = Request("EnshuName") EnshuKubun = Request("EnshuKubun") FromYmd = Request("FromYmd") ToYmd = Request("ToYmd") TaxRate = Request("TaxRate") DenpyoKubun = Request("DenpyoKubun") TenkiKubun = Request("TenkiKubun") TradeKubun = Request("TradeKubun") MotoEnshuCD = Request("MotoEnshuCD") GinkoSyoriKubun = Request("GinkoSyoriKubun") RiyoMailKubun = Request("RiyoMailKubun") PrintHeaderHyoji = Request("PrintHeaderHyoji") InputHojyobo = Request("InputHojyobo") InputShiwaketyo = Request("InputShiwaketyo") InputShiwakeShukeihyo = Request("InputShiwakeShukeihyo") InputGokeiZandakaShisanhyo = Request("InputGokeiZandakaShisanhyo") InputSokanjyoMototyo = Request("InputSokanjyoMototyo") InputTaisyakuTaisyohyo = Request("InputTaisyakuTaisyohyo") InputSonekiKeisansyo = Request("InputSonekiKeisansyo") InputHachiketaSeisanhyo = Request("InputHachiketaSeisanhyo") InputStockholderEquity = Request("InputStockholderEquity") AutoShiwaketyo = Request("AutoShiwaketyo") AutoShiwakeShukeihyo = Request("AutoShiwakeShukeihyo") AutoGokeiZandakaShisanhyo = Request("AutoGokeiZandakaShisanhyo") AutoSokanjyoMototyo = Request("AutoSokanjyoMototyo") AutoTaisyakuTaisyohyo = Request("AutoTaisyakuTaisyohyo") AutoSonekiKeisansyo = Request("AutoSonekiKeisansyo") AutoHachiketaSeisanhyo = Request("AutoHachiketaSeisanhyo") AutoStockholderEquity = Request("AutoStockholderEquity") AutoGenkinNyusyukinRireki = Request("AutoGenkinNyusyukinRireki") AutoYokinNyusyukinRireki = Request("AutoYokinNyusyukinRireki") AutoNyukoJisseki = Request("AutoNyukoJisseki") AutoSyukoJisseki = Request("AutoSyukoJisseki") AutoSyohinZaiko = Request("AutoSyohinZaiko") AutoUketoriTegataIchiran = Request("AutoUketoriTegataIchiran") AutoShiaraiTegataIchiran = Request("AutoShiaraiTegataIchiran") EnshuID = Request("EnshuID") EnshuPassword = Request("EnshuPassword") GinkoKozaToza = Request("GinkoKozaToza") GinkoKozaFutu = Request("GinkoKozaFutu") GinkoKozaBetsudan = Request("GinkoKozaBetsudan") GinkoKozaTsumitate = Request("GinkoKozaTsumitate") GinkoKozaTeiki = Request("GinkoKozaTeiki") FurikomiTesuryoJiko1 = ConvMoneyToInt(Request("FurikomiTesuryoJiko1")) FurikomiTesuryoJiko2 = ConvMoneyToInt(Request("FurikomiTesuryoJiko2")) FurikomiTesuryoTako1 = ConvMoneyToInt(Request("FurikomiTesuryoTako1")) FurikomiTesuryoTako2 = ConvMoneyToInt(Request("FurikomiTesuryoTako2")) FurikomiTesuryoBorder = ConvMoneyToInt(Request("FurikomiTesuryoBorder")) JidoGinkoWaribikiRiritsu = Request("JidoGinkoWaribikiRiritsu") FurikomiTesuryoTozaFutanKubun = Request("FurikomiTesuryoTozaFutanKubun") FurikomiTesuryoHiTozaFutanKubun = Request("FurikomiTesuryoTozaFutanKubun") ' FurikomiTesuryoHiTozaFutanKubun = Request("FurikomiTesuryoHiTozaFutanKubun") SeiriKinyuKeisiki = Request("SeiriKinyuKeisiki") SokanjyomototyoHyojyunshiki = Request("SokanjyomototyoHyojyunshiki") SokanjyomototyoMonthTotal = Request("SokanjyomototyoMonthTotal") ZandakaJidoKeisan = Request("ZandakaJidoKeisan") FurikaeDenpyoGyousu = ConvMoneyToInt(Request("FurikaeDenpyoGyousu")) GinkoMadoguchiHyoji = Request("GinkoMadoguchiHyoji") KinkoHyoji = Request("KinkoHyoji") KogitteHyoji = Request("KogitteHyoji") YTegataHyoji = Request("YTegataHyoji") KTegataHyoji = Request("KTegataHyoji") RyosyusyoHyoji = Request("RyosyusyoHyoji") KyuyoDaichoHyoji = Request("KyuyoDaichoHyoji") InputGenkinSuitotyo = Request("InputGenkinSuitotyo") InputKoguchiSuitocho = Request("InputKoguchiSuitocho") InputTouzayokinSuitotyo = Request("InputTouzayokinSuitotyo") InputUriagetyo = Request("InputUriagetyo") InputShiiretyo = Request("InputShiiretyo") InputUrikakekinMototyo = Request("InputUrikakekinMototyo") InputKaikakekinMototyo = Request("InputKaikakekinMototyo") InputUketoriTegatatyo = Request("InputUketoriTegatatyo") InputShiharaiTegatatyo = Request("InputShiharaiTegatatyo") InputSyohinAridakatyo = Request("InputSyohinAridakatyo") AutoGenkinSuitotyo = Request("AutoGenkinSuitotyo") AutoTouzayokinSuitotyo = Request("AutoTouzayokinSuitotyo") AutoUriagetyo = Request("AutoUriagetyo") AutoShiiretyo = Request("AutoShiiretyo") AutoUrikakekinMototyo = Request("AutoUrikakekinMototyo") AutoKaikakekinMototyo = Request("AutoKaikakekinMototyo") AutoUketoriTegatatyo = Request("AutoUketoriTegatatyo") AutoShiharaiTegatatyo = Request("AutoShiharaiTegatatyo") AutoSyohinAridakatyo = Request("AutoSyohinAridakatyo") ZaimuTaishaku = Request("ZaimuTaishaku") ZaimuSoneki = Request("ZaimuSoneki") ZaimuCashflow = Request("ZaimuCashflow") ZaimuStockholder = Request("ZaimuStockholder") BunsekiSonekijisseki = Request("BunsekiSonekijisseki") BunsekiAnzensei = Request("BunsekiAnzensei") BunsekiShuekisei = Request("BunsekiShuekisei") BunsekiSonekibunki = Request("BunsekiSonekibunki") TozaHikidashiFurikomiKogitteHituyo = Request("TozaHikidashiFurikomiKogitteHituyo") KogitteHenkyaku = Request("KogitteHenkyaku") ShiireUriageSyohizei = Request("ShiireUriageSyohizei") ShiwakebiShitei = Request("ShiwakebiShitei") AutoInputToggle = Request("AutoInputToggle") ShichoDenpyo = Request("ShichoDenpyo") If InputHojyobo <> "1" Then InputHojyobo= "0" End If If InputShiwaketyo <> "1" Then InputShiwaketyo = "0" End If If InputShiwakeShukeihyo <> "1" Then InputShiwakeShukeihyo = "0" End If If InputGokeiZandakaShisanhyo <> "1" Then InputGokeiZandakaShisanhyo = "0" End If If InputSokanjyoMototyo <> "1" Then InputSokanjyoMototyo = "0" End If If InputTaisyakuTaisyohyo <> "1" Then InputTaisyakuTaisyohyo = "0" End If If InputSonekiKeisansyo <> "1" Then InputSonekiKeisansyo = "0" End If If InputHachiketaSeisanhyo <> "1" Then InputHachiketaSeisanhyo = "0" End If If InputStockholderEquity <> "1" Then InputStockholderEquity = "0" End If If AutoShiwaketyo <> "1" Then AutoShiwaketyo = "0" End If If AutoShiwakeShukeihyo <> "1" Then AutoShiwakeShukeihyo = "0" End If If AutoGokeiZandakaShisanhyo <> "1" Then AutoGokeiZandakaShisanhyo = "0" End If If AutoSokanjyoMototyo <> "1" Then AutoSokanjyoMototyo = "0" End If If AutoTaisyakuTaisyohyo <> "1" Then AutoTaisyakuTaisyohyo = "0" End If If AutoSonekiKeisansyo <> "1" Then AutoSonekiKeisansyo = "0" End If If AutoHachiketaSeisanhyo <> "1" Then AutoHachiketaSeisanhyo = "0" End If If AutoStockholderEquity <> "1" Then AutoStockholderEquity = "0" End If If AutoGenkinNyusyukinRireki <> "1" Then AutoGenkinNyusyukinRireki = "0" End If If AutoYokinNyusyukinRireki <> "1" Then AutoYokinNyusyukinRireki = "0" End If If AutoNyukoJisseki <> "1" Then AutoNyukoJisseki = "0" End If If AutoSyukoJisseki <> "1" Then AutoSyukoJisseki = "0" End If If AutoSyohinZaiko <> "1" Then AutoSyohinZaiko = "0" End If If AutoUketoriTegataIchiran <> "1" Then AutoUketoriTegataIchiran = "0" End If If AutoShiaraiTegataIchiran <> "1" Then AutoShiaraiTegataIchiran = "0" End If If GinkoMadoguchiHyoji <> "1" Then GinkoMadoguchiHyoji = "0" End If If KinkoHyoji <> "1" Then KinkoHyoji = "0" End If If KogitteHyoji <> "1" Then KogitteHyoji = "0" End If If YTegataHyoji <> "1" Then YTegataHyoji = "0" End If If KTegataHyoji <> "1" Then KTegataHyoji = "0" End If If RyosyusyoHyoji <> "1" Then RyosyusyoHyoji = "0" End If If KyuyoDaichoHyoji <> "1" Then KyuyoDaichoHyoji = "0" End If If InputGenkinSuitotyo <> "1" Then InputGenkinSuitotyo = "0" End If If InputKoguchiSuitocho <> "1" Then InputKoguchiSuitocho = "0" End If If InputTouzayokinSuitotyo <> "1" Then InputTouzayokinSuitotyo = "0" End If If InputUriagetyo <> "1" Then InputUriagetyo = "0" End If If InputShiiretyo <> "1" Then InputShiiretyo = "0" End If If InputUrikakekinMototyo <> "1" Then InputUrikakekinMototyo = "0" End If If InputKaikakekinMototyo <> "1" Then InputKaikakekinMototyo = "0" End If If InputUketoriTegatatyo <> "1" Then InputUketoriTegatatyo = "0" End If If InputShiharaiTegatatyo <> "1" Then InputShiharaiTegatatyo = "0" End If If InputSyohinAridakatyo <> "1" Then InputSyohinAridakatyo = "0" End If If AutoGenkinSuitotyo <> "1" Then AutoGenkinSuitotyo = "0" End If If AutoTouzayokinSuitotyo <> "1" Then AutoTouzayokinSuitotyo = "0" End If If AutoUriagetyo <> "1" Then AutoUriagetyo = "0" End If If AutoShiiretyo <> "1" Then AutoShiiretyo = "0" End If If AutoUrikakekinMototyo <> "1" Then AutoUrikakekinMototyo = "0" End If If AutoKaikakekinMototyo <> "1" Then AutoKaikakekinMototyo = "0" End If If AutoUketoriTegatatyo <> "1" Then AutoUketoriTegatatyo = "0" End If If AutoShiharaiTegatatyo <> "1" Then AutoShiharaiTegatatyo = "0" End If If AutoSyohinAridakatyo <> "1" Then AutoSyohinAridakatyo = "0" End If If GinkoKozaToza = "" Then GinkoKozaToza = "0" End If If GinkoKozaFutu = "" Then GinkoKozaFutu = "0" End If If GinkoKozaBetsudan = "" Then GinkoKozaBetsudan = "0" End If If GinkoKozaTsumitate = "" Then GinkoKozaTsumitate = "0" End If If GinkoKozaTeiki = "" Then GinkoKozaTeiki = "0" End If If FurikomiTesuryoJiko1 = "" Then FurikomiTesuryoJiko1 = "0" End If If FurikomiTesuryoJiko2 = "" Then FurikomiTesuryoJiko2 = "0" End If If FurikomiTesuryoTako1 = "" Then FurikomiTesuryoTako1 = "0" End If If FurikomiTesuryoTako2 = "" Then FurikomiTesuryoTako2 = "0" End If If FurikomiTesuryoBorder = "" Then FurikomiTesuryoBorder = "0" End If If JidoGinkoWaribikiRiritsu = "" Then JidoGinkoWaribikiRiritsu = "0" End If If KogitteHenkyaku = "" Then KogitteHenkyaku = "0" End If If ShiireUriageSyohizei = "" Then ShiireUriageSyohizei = "0" End If If ShiwakebiShitei = "" Then ShiwakebiShitei = "0" End If If AutoInputToggle = "" Then AutoInputToggle = "0" End If If ShichoDenpyo = "" Then ShichoDenpyo = "0" End If Query = "exec SPM‰‰�K�X�V22 '" & GB_SystemCD & "'," & "'" & EnshuCD & "'" Query = Query & ", '" & InputHojyobo & "'" Query = Query & ", '" & InputShiwaketyo & "'" Query = Query & ", '" & InputShiwakeShukeihyo & "'" Query = Query & ", '" & InputGokeiZandakaShisanhyo & "'" Query = Query & ", '" & InputSokanjyoMototyo & "'" Query = Query & ", '" & InputTaisyakuTaisyohyo & "'" Query = Query & ", '" & InputSonekiKeisansyo & "'" Query = Query & ", '" & InputHachiketaSeisanhyo & "'" Query = Query & ", '" & InputStockholderEquity & "'" Query = Query & ", '" & AutoShiwaketyo & "'" Query = Query & ", '" & AutoShiwakeShukeihyo & "'" Query = Query & ", '" & AutoGokeiZandakaShisanhyo & "'" Query = Query & ", '" & AutoSokanjyoMototyo & "'" Query = Query & ", '" & AutoTaisyakuTaisyohyo & "'" Query = Query & ", '" & AutoSonekiKeisansyo & "'" Query = Query & ", '" & AutoHachiketaSeisanhyo & "'" Query = Query & ", '" & AutoStockholderEquity & "'" Query = Query & ", '" & AutoGenkinNyusyukinRireki & AutoYokinNyusyukinRireki & AutoNyukoJisseki & AutoSyukoJisseki Query = Query & AutoSyohinZaiko & AutoUketoriTegataIchiran & AutoShiaraiTegataIchiran & "'" Query = Query & ", '" & SokanjyomototyoHyojyunshiki & "'" Query = Query & ", '" & SokanjyomototyoMonthTotal & "'" Query = Query & ", '" & ZandakaJidoKeisan & "'" Query = Query & ", '" & ShiwakebiShitei & "'" Query = Query & ", " & FurikaeDenpyoGyousu Query = Query & ", '" & KogitteHyoji & "'" Query = Query & ", '" & YTegataHyoji & "'" Query = Query & ", '" & KTegataHyoji & "'" Query = Query & ", '" & RyosyusyoHyoji & "'" Query = Query & ", '" & KyuyoDaichoHyoji & "'" Query = Query & ", '" & InputGenkinSuitotyo & "'" Query = Query & ", '" & InputKoguchiSuitocho & "'" Query = Query & ", '" & InputTouzayokinSuitotyo & "'" Query = Query & ", '" & InputUriagetyo & "'" Query = Query & ", '" & InputShiiretyo & "'" Query = Query & ", '" & InputUrikakekinMototyo & "'" Query = Query & ", '" & InputKaikakekinMototyo & "'" Query = Query & ", '" & InputUketoriTegatatyo & "'" Query = Query & ", '" & InputShiharaiTegatatyo & "'" Query = Query & ", '" & InputSyohinAridakatyo & "'" Query = Query & ", '" & AutoGenkinSuitotyo & "'" Query = Query & ", '" & AutoTouzayokinSuitotyo & "'" Query = Query & ", '" & AutoUriagetyo & "'" Query = Query & ", '" & AutoShiiretyo & "'" Query = Query & ", '" & AutoUrikakekinMototyo & "'" Query = Query & ", '" & AutoKaikakekinMototyo & "'" Query = Query & ", '" & AutoSyohinAridakatyo & "'" Query = Query & ", '" & AutoUketoriTegatatyo & "'" Query = Query & ", '" & AutoShiharaiTegatatyo & "'" Query = Query & ", '" & AutoInputToggle & "'" Query = Query & ", '" & ZaimuTaishaku & "'" Query = Query & ", '" & ZaimuSoneki & "'" Query = Query & ", '" & ZaimuCashflow & "'" Query = Query & ", '" & ZaimuStockholder & "'" Query = Query & ", '" & BunsekiSonekijisseki & "'" Query = Query & ", '" & BunsekiAnzensei & "'" Query = Query & ", '" & BunsekiShuekisei & "'" Query = Query & ", '" & BunsekiSonekibunki & "'" Query = Query & ", '" & TozaHikidashiFurikomiKogitteHituyo & "'" Query = Query & ", '" & KogitteHenkyaku & "'" Query = Query & ", '" & ShiireUriageSyohizei & "'" Query = Query & ", '" & ShichoDenpyo & "'" Set Content = OpenQuery(Query) If Content.Fields.Count > 0 Then rsts = Content.Fields(0) End If Session(HomeAlias & "EnshuCD") = EnshuCD Session(HomeAlias & "EnshuMeisyo") = ConvEnshuMeisyo(EnshuCD) Response.Redirect("fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType) End Sub %>