<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If 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 GinkoIraiHozon Dim FurikomiTesuryoJiko1, FurikomiTesuryoJiko2, FurikomiTesuryoTako1, FurikomiTesuryoTako2, FurikomiTesuryoBorder Dim JidoGinkoWaribikiRiritsu Dim FurikomiTesuryoTozaFutanKubun, FurikomiTesuryoHiTozaFutanKubun, SeiriKinyuKeisiki Dim DbEnshuCD Dim SokanjyomototyoHyojyunshiki, ZandakaJidoKeisan Dim FurikaeDenpyoGyousu Dim GinkoMadoguchiHyoji, KinkoHyoji Dim KogitteHyoji, YTegataHyoji, KTegataHyoji, RyosyusyoHyoji Dim GinkoKozaBango Dim GinkoTegataToriWari Dim GinkoShijokanRiyo Dim GinkoShomeiTesuryo 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") GinkoKozaBango = Request("GinkoKozaBango") GinkoTegataToriWari = Request("GinkoTegataToriWari") GinkoShijokanRiyo = Request("GinkoShijokanRiyo") GinkoIraiHozon = Request("GinkoIraiHozon") 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") GinkoShomeiTesuryo = ConvMoneyToInt(Request("GinkoShomeiTesuryo")) FurikomiTesuryoTozaFutanKubun = Request("FurikomiTesuryoTozaFutanKubun") FurikomiTesuryoHiTozaFutanKubun = Request("FurikomiTesuryoTozaFutanKubun") ' FurikomiTesuryoHiTozaFutanKubun = Request("FurikomiTesuryoHiTozaFutanKubun") SeiriKinyuKeisiki = Request("SeiriKinyuKeisiki") SokanjyomototyoHyojyunshiki = Request("SokanjyomototyoHyojyunshiki") 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") 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 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 GinkoShomeiTesuryo = "" Then GinkoShomeiTesuryo = "0" End If Query = "exec SPM‰‰�K�X�V2 '" & GB_SystemCD & "'," & "'" & EnshuCD & "'" Query = Query & ",'" & GinkoSyoriKubun & "'" Query = Query & ",'" & GinkoKozaBango & "'" Query = Query & ",'" & GinkoTegataToriWari & "'" Query = Query & ",'" & GinkoShijokanRiyo & "'" Query = Query & ",'" & GinkoIraiHozon & "'" Query = Query & "," & FurikomiTesuryoJiko1 Query = Query & "," & FurikomiTesuryoJiko2 Query = Query & "," & FurikomiTesuryoTako1 Query = Query & "," & FurikomiTesuryoTako2 Query = Query & "," & FurikomiTesuryoBorder Query = Query & "," & JidoGinkoWaribikiRiritsu Query = Query & ",'" & FurikomiTesuryoTozaFutanKubun & "'" Query = Query & ",'" & FurikomiTesuryoHiTozaFutanKubun & "'" Query = Query & ", " & GinkoShomeiTesuryo Query = Query & ",'" & GinkoMadoguchiHyoji & "'" Query = Query & ",'" & KinkoHyoji & "'" '‹â�s‘‹Œû”ñ—˜—pŽž‚Í�¬�ØŽè�E–ñ‘©ŽèŒ`�Eˆ×‘ÖŽèŒ`‚ð”ñ—˜—p‚É�Ý’è‚·‚é�i100917�¬–ì�j If GinkoMadoguchiHyoji = "0" Then Query = Query & ",'1'" Else Query = Query & ",''" End If 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_enshu2_view.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType) End Sub %>