% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content Dim NRflg , ErrMSG Dim EnshuCD Dim EnshuName , EnshuKubun '演習CD、 演習名称、演習区分 Dim FromYmd , ToYmd , TaxRate '開始日、 終了日、消費税率 Dim DenpyoKubun, TradeKubun '伝票方式、商品取引方式 Dim DenpyoKubunNm, TradeKubunNm '伝票方式名、商品取引方式名 Dim GinkoSyoriKubun Dim FurikomiTesuryoTozaFutanKubun, FurikomiTesuryoHiTozaFutanKubun Dim SokanjyomototyoHyojyunshiki Dim InputHojyobo Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo, InputStockholderEquity Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo, AutoStockholderEquity Dim EnshuID, EnshuPassword Dim RiyoGinkoKozaSyurui Dim GinkoKozaToza, GinkoKozaFutu, GinkoKozaBetsudan, GinkoKozaTsumitate, GinkoKozaTeiki Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran Dim FurikomiTesuryoJiko1, FurikomiTesuryoJiko2, FurikomiTesuryoTako1, FurikomiTesuryoTako2, FurikomiTesuryoBorder Dim JidoGinkoWaribikiRiritsu Dim ZandakaJidoKeisan Dim FurikaeDenpyoGyousu Dim GinkoMadoguchiHyoji, KinkoHyoji Dim KogitteHyoji, YTegataHyoji, KTegataHyoji, RyosyusyoHyoji Dim GinkoKozaBango Dim GinkoTegataToriWari Dim GinkoShijokanRiyo Dim GinkoShomeiTesuryo Dim GinkoIraiHozon Dim MotoEnshuCD Dim Add Add = 1 EnshuCD = Request("EnshuCD") NRflg = Request("nr") If NRflg = "r" Then EnshuName = Request("EnshuName") EnshuKubun = Request("EnshuKubun") FromYmd = Request("FromYmd") ToYmd = Request("ToYmd") TaxRate = Request("TaxRate") DenpyoKubun = Request("DenpyoKubun") TradeKubun = Request("TradeKubun") MotoEnshuCD = Request("MotoEnshuCD") ErrMsg = Request("ErrMsg") EnshuID = Request("EnshuID") EnshuPassword = Request("EnshuPassword") GinkoSyoriKubun = Request("GinkoSyoriKubun") GinkoKozaBango = Request("GinkoKozaBango") GinkoTegataToriWari = Request("GinkoTegataToriWari") GinkoShijokanRiyo = Request("GinkoShijokanRiyo") GinkoShomeiTesuryo = Request("GinkoShomeiTesuryo") GinkoIraiHozon = Request("GinkoIraiHozon") AutoGenkinNyusyukinRireki = Request("AutoGenkinNyusyukinRireki") AutoYokinNyusyukinRireki = Request("AutoYokinNyusyukinRireki") AutoNyukoJisseki = Request("AutoNyukoJisseki") AutoSyukoJisseki = Request("AutoSyukoJisseki") AutoSyohinZaiko = Request("AutoSyohinZaiko") AutoUketoriTegataIchiran = Request("AutoUketoriTegataIchiran") AutoShiaraiTegataIchiran = Request("AutoShiaraiTegataIchiran") FurikaeDenpyoGyousu = Request("FurikaeDenpyoGyousu") GinkoMadoguchiHyoji = Request("GinkoMadoguchiHyoji") KinkoHyoji = Request("KinkoHyoji") KogitteHyoji = Request("KogitteHyoji") YTegataHyoji = Request("YTegataHyoji") KTegataHyoji = Request("KTegataHyoji") RyosyusyoHyoji = Request("RyosyusyoHyoji") Dim CheckFlg CheckFlg = Request("CheckFlg") InputHojyobo = Mid(CheckFlg, 1 ,1) InputShiwaketyo = Mid(CheckFlg, 2 ,1) InputShiwakeShukeihyo = Mid(CheckFlg, 3 ,1) InputGokeiZandakaShisanhyo = Mid(CheckFlg, 4 ,1) InputSokanjyoMototyo = Mid(CheckFlg, 5 ,1) InputTaisyakuTaisyohyo = Mid(CheckFlg, 6 ,1) InputSonekiKeisansyo = Mid(CheckFlg, 7 ,1) InputHachiketaSeisanhyo = Mid(CheckFlg, 8 ,1) AutoShiwaketyo = Mid(CheckFlg, 9 ,1) AutoShiwakeShukeihyo = Mid(CheckFlg, 10 ,1) AutoGokeiZandakaShisanhyo = Mid(CheckFlg, 11 ,1) AutoSokanjyoMototyo = Mid(CheckFlg, 12 ,1) AutoTaisyakuTaisyohyo = Mid(CheckFlg, 13 ,1) AutoSonekiKeisansyo = Mid(CheckFlg, 14 ,1) AutoHachiketaSeisanhyo = Mid(CheckFlg, 15 ,1) AutoGenkinNyusyukinRireki = Mid(CheckFlg, 16 ,1) AutoYokinNyusyukinRireki = Mid(CheckFlg, 17 ,1) AutoNyukoJisseki = Mid(CheckFlg, 18 ,1) AutoSyukoJisseki = Mid(CheckFlg, 19 ,1) AutoSyohinZaiko = Mid(CheckFlg, 20 ,1) AutoUketoriTegataIchiran = Mid(CheckFlg, 21 ,1) AutoShiaraiTegataIchiran = Mid(CheckFlg, 22 ,1) FurikomiTesuryoborder = 30000 FurikomiTesuryoJiko1 = 0 FurikomiTesuryoJiko2 = 0 FurikomiTesuryoTako1 = 315 FurikomiTesuryoTako2 = 630 JidoGinkoWaribikiRiritsu = 5 FurikomiTesuryoTozaFutanKubun = "s" FurikomiTesuryoHiTozaFutanKubun = "s" ElseIf EnshuCD <> "" Then Add = 0 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = Content.Fields("演習名称") EnshuKubun = Content.Fields("演習区分") FromYmd = Content.Fields("会計開始日") ToYmd = Content.Fields("会計終了日") TaxRate = Content.Fields("消費税") DenpyoKubun = Content.Fields("利用伝票数区分") GinkoSyoriKubun = Content.Fields("銀行自動処理") GinkoKozaBango = "" & Content.Fields("銀行口座番号手動") GinkoTegataToriWari = "" & Content.Fields("銀行手形取立割引手動") GinkoShijokanRiyo = "" & Content.Fields("銀行市場間利用") GinkoShomeiTesuryo = "" & Content.Fields("残高証明書手数料") GinkoIraiHozon = "" & Content.Fields("銀行窓口依頼保存") InputHojyobo = Content.Fields("手動補助簿表示") InputShiwaketyo = Content.Fields("手動仕訳帳表示") InputShiwakeShukeihyo = Content.Fields("手動仕訳集計表表示") InputGokeiZandakaShisanhyo = Content.Fields("手動合計残高試算表表示") InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示") InputTaisyakuTaisyohyo = Content.Fields("手動貸借対照表表示") InputSonekiKeisansyo = Content.Fields("手動損益計算書表示") InputHachiketaSeisanhyo = Content.Fields("手動8桁精算表表示") InputStockholderEquity = Content.Fields("手動株主資本等変動計算書表示") AutoShiwaketyo = Content.Fields("自動転記仕訳帳表示") AutoShiwakeShukeihyo = Content.Fields("自動転記仕訳集計表表示") AutoGokeiZandakaShisanhyo = Content.Fields("自動転記合計残高試算表表示") AutoSokanjyoMototyo = Content.Fields("自動転記総勘定元帳表示") AutoTaisyakuTaisyohyo = Content.Fields("自動転記貸借対照表表示") AutoSonekiKeisansyo = Content.Fields("自動転記損益計算書表示") AutoHachiketaSeisanhyo = Content.Fields("自動転記8桁精算表表示") AutoStockholderEquity = Content.Fields("自動転記株主資本等変動計算書表示") EnshuID = Content.Fields("演習管理者ID") EnshuPassword = Content.Fields("演習管理者パスワード") RiyoGinkoKozaSyurui = Content.Fields("利用銀行口座種類") Dim YobiA, YobiB 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) YobiB = Content.Fields("利用銀行口座種類") GinkoKozaToza = Mid(YobiB , 1, 1) GinkoKozaFutu = Mid(YobiB , 2, 1) GinkoKozaBetsudan = Mid(YobiB , 3, 1) GinkoKozaTsumitate = Mid(YobiB , 4, 1) GinkoKozaTeiki = Mid(YobiB , 5, 1) FurikomiTesuryoJiko1 = Content.Fields("振込手数料低金額自行間") FurikomiTesuryoJiko2 = Content.Fields("振込手数料高金額自行間") FurikomiTesuryoTako1 = Content.Fields("振込手数料低金額他行間") FurikomiTesuryoTako2 = Content.Fields("振込手数料高金額他行間") FurikomiTesuryoBorder = Content.Fields("振込手数料高低区切金額") JidoGinkoWaribikiRiritsu = Content.Fields("手形割引率") FurikomiTesuryoTozaFutanKubun = Content.Fields("振込手数料当座振込元負担") FurikomiTesuryoHiTozaFutanKubun = Content.Fields("振込手数料非当座振込元負担") SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用") ZandakaJidoKeisan = Content.Fields("残高自動計算") FurikaeDenpyoGyousu = Content.Fields("振替伝票表示行数") GinkoMadoguchiHyoji = "" & Content.Fields("銀行窓口表示") KinkoHyoji = "" & Content.Fields("金庫表示") KogitteHyoji = "" & Content.Fields("小切手表示") YTegataHyoji = "" & Content.Fields("約束手形表示") KTegataHyoji = "" & Content.Fields("為替手形表示") RyosyusyoHyoji = "" & Content.Fields("領収書表示") End If Else FromYmd = DateSerial(Year(Date()), 4, 1) ToYmd = DateSerial(Year(DateAdd("yyyy", 1, Date())), 3, 31) InputHojyobo = "1" InputSokanjyoMototyo = "1" AutoShiwaketyo = "1" AutoShiwakeShukeihyo = "1" AutoGokeiZandakaShisanhyo = "1" AutoSokanjyoMototyo = "1" AutoTaisyakuTaisyohyo = "1" AutoSonekiKeisansyo = "1" AutoHachiketaSeisanhyo = "1" AutoGenkinNyusyukinRireki = "1" AutoYokinNyusyukinRireki = "1" AutoNyukoJisseki = "1" AutoSyukoJisseki = "1" AutoSyohinZaiko = "1" AutoUketoriTegataIchiran = "1" AutoShiaraiTegataIchiran = "1" FurikomiTesuryoborder = 30000 FurikomiTesuryoJiko1 = 0 FurikomiTesuryoJiko2 = 0 FurikomiTesuryoTako1 = 315 FurikomiTesuryoTako2 = 630 JidoGinkoWaribikiRiritsu = 5 FurikomiTesuryoTozaFutanKubun = "0" FurikomiTesuryoHiTozaFutanKubun = "0" End If If "" & FurikaeDenpyoGyousu = "" Then FurikaeDenpyoGyousu = 5 End If If GinkoKozaBango <> "1" Then GinkoKozaBango = "0" End If If GinkoTegataToriWari <> "1" Then GinkoTegataToriWari = "0" End If If GinkoShijokanRiyo <> "1" Then GinkoShijokanRiyo = "0" End If If GinkoIraiHozon <> "1" Then GinkoIraiHozon = "0" End If Dim RouteType RouteType = Request("RouteType") Dim bType bType = 0 If EnshuCD = "" Or Request("Kodo") = "1" Then bType = 1 End If %>