% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If 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 Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim ShijoCD ShijoCD = Request("ShijoCD") '製造部対応(080411小野) Dim Mode Mode = Request("Mode") Dim AutoPrint AutoPrint = Request("AutoPrint") Dim GyosyuKubun GyosyuKubun = ConvKaisyaGyosyuKubun(KaisyaCD) If Mode = "Seizo" Then '製造部対応(080411小野) GyosyuKubun = "G" 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 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 QueryNyusyuko, ContentNyusyuko, KingakuNyusyuko, NyusyukoBango KingakuNyusyuko = 0 QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'S'" 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 & "', '', 'S', '" & NyusyukoBango & "'" Set ContentNyusyuko = OpenQuery(QueryNyusyuko) Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) KingakuNyusyuko = KingakuNyusyuko + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価") ContentNyusyuko.MoveNext Loop Dim QueryKoza, ContentKoza Dim TozaKinagku,FutsuKingaku, TeikiKingaku, TsumitateKingaku, BetsudanKingaku TozaKinagku = 0 FutsuKingaku = 0 TeikiKingaku = 0 TsumitateKingaku = 0 BetsudanKingaku = 0 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("金額") ElseIf MyKozaKubun = "F" Then FutsuKingaku = FutsuKingaku + Content.Fields("金額") ElseIf MyKozaKubun = "L" Then TeikiKingaku = TeikiKingaku + Content.Fields("金額") ElseIf MyKozaKubun = "M" Then TsumitateKingaku = TsumitateKingaku + Content.Fields("金額") ElseIf MyKozaKubun = "T" Then TozaKinagku = TozaKinagku + Content.Fields("金額") End If End If Content.MoveNext Loop ContentKoza.MoveNext Loop Dim KishusetteiRiyo Dim KishusetteiRiyoKanjo Dim KishusetteiRiyoKurikoshi Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KishusetteiRiyo = "" & Content.Fields("期首設定経理部利用") End If If "" & KishusetteiRiyo = "" Then KishusetteiRiyo = "3" End If KishusetteiRiyoKanjo = "1" KishusetteiRiyoKurikoshi = "1" If KishusetteiRiyo = "2" Or KishusetteiRiyo = "0" Then '勘定残高のみ KishusetteiRiyoKurikoshi = "0" End If If KishusetteiRiyo = "1" Or KishusetteiRiyo = "0" Then '繰越残高のみ KishusetteiRiyoKanjo = "0" End If %> <% = HtmlHeader("") %>
onLoad="PrintoutReal();"<% End If %> bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% = HtmlFooter %> <% End Sub %>