% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Cnt Dim tmp, tmp2, tmp3 Dim Dic Dim KurikoshiFlg Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim ShijoCD ShijoCD = Request("ShijoCD") Dim DenpyoNo, Torihikibi, DenpyoTekiyo '伝票番号、取引日、伝票摘要 Dim KanjyoCD(10) '勘定科目コード Dim Kanjyomei(10) '勘定科目名称 Dim Kingaku(10) '金額 Dim Tekiyo(10) '摘要 Dim TekiyoCD(10) '取引先CD Dim KarikataGokei, KashikataGokei '借方合計、貸方合計 Dim Query Dim Content Dim Genkin, Toza Dim Amend Dim Shimei Dim GakuseiBango Dim PageType PageType = "勘定残高設定" If PackageMode = 1 Then PageType = "期首残高設定" End If '製造部対応(080411小野) Dim Mode Mode = Request("Mode") Dim GyosyuKubun GyosyuKubun = ConvKaisyaGyosyuKubun(KaisyaCD) If Mode = "Seizo" Then '製造部対応(080411小野) GyosyuKubun = "G" ElseIf GyosyuKubun = "B" Then ' GyosyuKubun = "BS" '銀行で商社科目を利用する場合(保留中) End If Amend = Request("amend") DenpyoNo = Request("DenpyoNo") Genkin = 0 Toza = 0 KashikataGokei = 0 KarikataGokei = 0 Dim TekiyoCDs Query = "exec SPM摘要表示一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If TekiyoCDs <> "" Then TekiyoCDs = TekiyoCDs & "," End If TekiyoCDs = TekiyoCDs & Content.Fields("摘要CD") Content.MoveNext Loop '取引先市場配列作成(081111小野) Dim TorihikisakiCDAry ReDim TorihikisakiCDAry(0) Dim TorihikisakiMeishoAry ReDim TorihikisakiMeishoAry(0) Dim TorihikisakiShijoAry ReDim TorihikisakiShijoAry(0) Query = "exec SPM摘要表示一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" ' Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("摘要CD") <> KaisyaCD Then ' If Content.Fields("会社CD") <> KaisyaCD Then ReDim PreServe TorihikisakiCDAry(UBound(TorihikisakiCDAry) + 1) ReDim PreServe TorihikisakiMeishoAry(UBound(TorihikisakiMeishoAry) + 1) ReDim PreServe TorihikisakiShijoAry(UBound(TorihikisakiShijoAry) + 1) TorihikisakiCDAry(UBound(TorihikisakiCDAry)) = "" & Content.Fields("摘要CD") TorihikisakiMeishoAry(UBound(TorihikisakiMeishoAry)) = "" & Content.Fields("摘要") TorihikisakiShijoAry(UBound(TorihikisakiShijoAry)) = "" & Content.Fields("市場CD") End If Content.MoveNext Loop Dim PreShijoCD '現金繰越残高の取得 Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Genkin = Content.Fields("金額") End If '繰越商品の明細を取得しておく変数(期首仕入伝票作成のため) Dim KurikoshiSyohinMeisai KurikoshiSyohinMeisai = "" '商品(材料)繰越残高の取得 Dim QueryNyusyuko, ContentNyusyuko, KingakuNyusyuko, NyusyukoBango KingakuNyusyuko = 0 If Mode = "Seizo" Then '製造部対応(080411小野) QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '', 'ZS'" Else QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '', 'SS'" End If Set ContentNyusyuko = OpenQuery(QueryNyusyuko) Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) If ContentNyusyuko.Fields("処理時期区分") = 0 Then NyusyukoBango = ContentNyusyuko.Fields("文書内容CD") End If ContentNyusyuko.MoveNext Loop If Mode = "Seizo" Then '製造部対応(080411小野) QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '', 'ZS', '" & NyusyukoBango & "'" Else QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '', 'SS', '" & NyusyukoBango & "'" End If Set ContentNyusyuko = OpenQuery(QueryNyusyuko) Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) KingakuNyusyuko = KingakuNyusyuko + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価") '繰越商品の明細を取得しておく(期首仕入伝票作成のため) If KurikoshiSyohinMeisai <> "" Then KurikoshiSyohinMeisai = KurikoshiSyohinMeisai & ";" End If KurikoshiSyohinMeisai = KurikoshiSyohinMeisai & ContentNyusyuko.Fields("商品CD") & ":" & ContentNyusyuko.Fields("数量") & ":" & ContentNyusyuko.Fields("単価") ContentNyusyuko.MoveNext Loop '製品繰越残高の取得 Dim KingakuSeihin KingakuSeihin = 0 QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '', 'MS'" Set ContentNyusyuko = OpenQuery(QueryNyusyuko) Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) If ContentNyusyuko.Fields("処理時期区分") = 0 Then NyusyukoBango = ContentNyusyuko.Fields("文書内容CD") End If ContentNyusyuko.MoveNext Loop QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '', 'MS', '" & NyusyukoBango & "'" Set ContentNyusyuko = OpenQuery(QueryNyusyuko) Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) KingakuSeihin = KingakuSeihin + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価") ContentNyusyuko.MoveNext Loop '銀行繰越残高の取得 Dim QueryKoza, ContentKoza Dim TozaKinagku,FutsuKingaku, TeikiKingaku, TsumitateKingaku, BetsudanKingaku Dim TozaGinko, FutsuGinko, TeikiGinko, TsumitateGinko, BetsudanGinko TozaKinagku = 0 FutsuKingaku = 0 TeikiKingaku = 0 TsumitateKingaku = 0 BetsudanKingaku = 0 TozaGinko = "" FutsuGinko = "" TeikiGinko = "" TsumitateGinko = "" BetsudanGinko = "" QueryKoza = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', ''" Set ContentKoza = OpenQuery(QueryKoza) Do While Not(ContentKoza.BOF Or ContentKoza.EOF) Dim MyGinkoCD, MyKozaKubun MyGinkoCD = "" MyKozaKubun = "" If Not(ContentKoza.BOF Or ContentKoza.EOF) Then MyGinkoCD = ContentKoza.Fields("銀行CD") MyKozaKubun = ContentKoza.Fields("口座区分") End If Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MyGinkoCD & "', '" & MyKozaKubun & "', ''" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("処理時期区分") = 0 Then If MyKozaKubun = "B" Then BetsudanKingaku = BetsudanKingaku + Content.Fields("金額") '同一区分口座が複数存在する場合は先頭の銀行CDが取得される(手抜きだがあまり大幅にいじりたくないので)(110124小野) If BetsudanGinko = "" Then BetsudanGinko = MyGinkoCD End If ElseIf MyKozaKubun = "F" Then FutsuKingaku = FutsuKingaku + Content.Fields("金額") If FutsuGinko = "" Then FutsuGinko = MyGinkoCD End If ElseIf MyKozaKubun = "L" Then TeikiKingaku = TeikiKingaku + Content.Fields("金額") If TeikiGinko = "" Then TeikiGinko = MyGinkoCD End If ElseIf MyKozaKubun = "M" Then TsumitateKingaku = TsumitateKingaku + Content.Fields("金額") If TsumitateGinko = "" Then TsumitateGinko = MyGinkoCD End If ElseIf MyKozaKubun = "T" Then TozaKinagku = TozaKinagku + Content.Fields("金額") If TozaGinko = "" Then TozaGinko = MyGinkoCD End If End If End If Content.MoveNext Loop ContentKoza.MoveNext Loop '定款資本金の取得 Dim Shihonkin Dim KanjoCDShihonkin Dim KanjoCDShihonkinNM KanjoCDShihonkin = "" Dim TmpGyoshu Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Shihonkin = "" & Content.Fields("資本金") TmpGyoshu = "" & Content.Fields("業種CD") End If If Shihonkin = "0" Then Shihonkin = "" End If If TmpGyoshu <> "B" Then TmpGyoshu = "S" End If If Shihonkin <> "" Then Query = "exec SPM勘定科目詳細一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & TmpGyoshu & "','%'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If (TmpGyoshu <> "B" And Content.Fields("特別勘定区分") = "DR") Or Content.Fields("特別勘定区分") = "DV" Then KanjoCDShihonkin = Content.Fields("勘定CD") KanjoCDShihonkinNM = Content.Fields("特別勘定区分名称") End If Content.MoveNext Loop End If '製造部は材料繰越残高以外をリセットする If Mode = "Seizo" Then '製造部対応(080411小野) Genkin = 0 Toza = 0 TozaKinagku = 0 FutsuKingaku = 0 TeikiKingaku = 0 TsumitateKingaku = 0 BetsudanKingaku = 0 Shihonkin = "" End If '勘定科目配列作成 Dim KanjoCnt Dim KanjoCD Dim KanjoSaimoku Dim KanjoMeisho ReDim KanjoCD(0) ReDim KanjoSaimoku(0) ReDim KanjoMeisho(0) Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GyosyuKubun & "', '" & KanjyoMeisai & "', '" & GB_KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ReDim PreServe KanjoCD(UBound(KanjoCD) + 1) '配列+1 ReDim PreServe KanjoSaimoku(UBound(KanjoCD)) ReDim PreServe KanjoMeisho(UBound(KanjoCD)) KanjoCD(UBound(KanjoCD)) = "" & Content.Fields("勘定CD") KanjoSaimoku(UBound(KanjoCD)) = "" & Content.Fields("勘定細目") KanjoMeisho(UBound(KanjoCD)) = "" & Content.Fields("勘定名称") Content.MoveNext Loop Dim PreKanjyoMeisai %> <% = HtmlHeader("") %>
<% = HtmlFooter %> <% Dim KanjyoCDCol KanjyoCDCol = 1 %> <% If GB_IEmode <> "1" Then %> <% Else 'IEモード %> <% End If %> <% End Sub %>