<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :勘定残高設定 ' 作成日:2003/1/20 ' 作成者:山崎 ' 目的 :繰越残高設定画面を表示する。 ' 概要 : ' <<表示>> ' ・初期は"追加モード":伝票番号はNULL ' ・伝票番号が指定してある場合は"修正モード" ' <<入力チェック>> '################################################ '--> ' %> <% 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, RouteType, AutoFlg PageType = "勘定残高設定" If PackageMode = 1 Then PageType = "期首残高設定" End If '製造部対応(080411小野) Dim Mode Mode = Request("Mode") Dim ShijoCD ShijoCD = Request("ShijoCD") 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 Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaisyaMeisyo = Content.Fields("会社名称") KaisyaRyakuMeisyo = Content.Fields("会社略名称") End If If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="-1"> <link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script> <script type=""text/javascript"" src="../../../javascript.js?<% = TimeUniq() %>"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 2; //印刷余白指定(ミリ指定) PrintTopMargin = 20; PrintLeftMargin = 0; // PrintTopMargin = 0; // PrintLeftMargin = 0; --> </SCRIPT> <body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% = PrintScriptX %> <form OnKeyDown="FormKeyDown(this)" name="form1" method="POST" action="fk_kanjyozandaka_bin.asp"> <input type="hidden" name="DenpyoNo" value="0000000"> <input type="hidden" name="SendValue" value=""> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="top"> <table width="600" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center" valign="top"> <% Dim PageNo, RowBreakNum, RowCount, KaiPageFlg, TotalRowCount PageNo = 1 RowCount = 0 KaiPageFlg = 1 TotalRowCount = 0 Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '0000000', '" & GyosyuKubun & "'" Set Content = OpenQuery(Query) Dim jj, ii ii = 0 Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 RowBreakNum = 35 TotalRowCount = TotalRowCount + 1 if KaiPageFlg = 1 then Response.Write(PrintHeader(AutoFlg, "")) Response.Write(PrintFooter()) %> <table width="130" class="tx1820b" border="0" cellpadding="0" cellspacing="0" > <tr> <td align="center" nowrap> <ins><% If Mode = "Seizo" Then Response.Write("製造部") End If %><% = PageType %></ins> <% 'If Len(SyoruiMei) < 8 Then ' Response.Write(SetStringInsertSpace(SyoruiMei)) 'Else ' Response.Write(SyoruiMei) 'End If %> </td> </tr> </table> <TABLE WIDTH="640" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1214" STYLE="border-collapse: collapse"> <tr BGCOLOR="#DDDDDD"> <td HEIGHT="20" align="center" colspan="2">勘定科目</td> <td WIDTH="80" HEIGHT="20" align="center">摘要</td> <td WIDTH="110" HEIGHT="20" align="center">明細</td> <td WIDTH="100" HEIGHT="20" align="center">借方金額</td> <td WIDTH="100" HEIGHT="20" align="center">貸方金額</td> </tr> <% end if ii = ii + 1 Dim KarikataKingaku, KashikataKingaku KarikataKingaku = Content.Fields("借方金額") KashikataKingaku = Content.Fields("貸方金額") If Not(IsNull(KarikataKingaku)) Then KarikataGokei = KarikataGokei + KarikataKingaku End If If Not(IsNull(KashikataKingaku)) Then KashikataGokei = KashikataGokei + KashikataKingaku End If Response.Write("<tr>") Response.Write("<td WIDTH=""40"" HEIGHT=""20"" align=""center"">" & Content.Fields("勘定CD") & "</td>" & vbCrLf) Response.Write("<td>" & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, Content.Fields("勘定CD")) & "</td>" & vbCrLf) Response.Write("<td><span style=""width:80px; height:14px; overflow:hidden"">" & HardWrap(ConvTekiyoMeisyoDx(EnshuCD, KaisyaCD, Content.Fields("摘要CD"))) & "</span></td>" & vbCrLf) Response.Write("<td>" & Content.Fields("摘要") & "</td>" & vbCrLf) Response.Write("<td align=""right"">" & ConvIntToMoney(KarikataKingaku, false ,false) & "</td>" & vbCrLf) Response.Write("<td align=""right"">" & ConvIntToMoney(KashikataKingaku, false ,false) & "</td>" & vbCrLf) Response.Write("</tr>" & vbCrLf) Content.MoveNext KaiPageFlg = 0 if (RowCount Mod RowBreakNum = 0) then Response.Write("</TABLE>" & vbCrLf) 'Response.Write("<div class=""pagebreak""></div>" & vbCrLf) Response.Write(PageBreakBefore) RowCount = 0 KaiPageFlg = 1 end If Loop %> </TABLE> </td> </tr> <tr> <td align="center"> <TABLE WIDTH="640" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1214" STYLE="border-collapse: collapse"> <tr> <td BGCOLOR="#DDDDDD" HEIGHT="20">合計</td> <td WIDTH="100" align="right"><% = ConvIntToMoney(KarikataGokei, false ,false) %></td> <td WIDTH="100" align="right"><% = ConvIntToMoney(KashikataGokei, false ,false) %></td> </tr> </TABLE> </td> </tr> </table> </td> </tr> </table> </form> </body> <% = HtmlFooter %> </html> <% End Sub %>