<% = AppTitle %>

<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = Request("PageType") Dim Title, SenColor If PageType = "Nyukin" Then Title = "入金伝票" SenColor = "#FF2211" '赤 Else Title = "出金伝票" SenColor = "#1133FF" '青 End If Dim Label If PageType = "Nyukin" Then Label = "入金伝票" ElseIf PageType = "Shukkin" Then Label = "出金伝票" ElseIf PageType = "Shiire" Then Label = "仕入伝票" ElseIf PageType = "Uriage" Then Label = "売上伝票" Else Label = "振替伝票" End If %> <% = AppTitle %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "白紙帳票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s42.asp')", Label, "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(Label, "")) %>

<% If PageType = "Nyukin" Or PageType = "Shukkin" Then %>

<% = Left(title, 1) %> 金伝票
取引日：

伝票番号：
伝票摘要：

		係　印

勘定コード

勘定名称

取引先

明細摘要

金　額

合　　計

　

<% ElseIf PageType = "Shiire" Or PageType = "Uriage" Then %>

<% = Left(Label,1) & space(1) & Mid(Label, 2, 1) %> 伝票

伝票番号：

　

取引日：

　

摘要：

　

取引先：

　

伝票区分：

　

		係　印

商品名称

標準価格

数　量

単　価

金　額

	合計金額
	消費税額
	税込金額

<% Else %>

振替伝票
取引日：

伝票番号：
伝票摘要：

		係　印

借　　方

勘定コード

勘定名称

金　額

取引先

明細摘要

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

借方合計

　　

貸　　方

勘定コード

勘定名称

金　額

取引先

明細摘要

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

　

貸方合計

　

<% End If %>

<% = HtmlFooter %>　 <% End Sub %>