<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/denpyo/fk_nyukinsyukin_view_main_in.asp" -->
<!-- #include file="../../../user/bk/denpyo/fk_furikae_view_main_in.asp" -->
<!-- #include file="../../../user/bk/denpyo/fk_shiireuriage_view_main_in.asp" -->
<!-- #include file="../../../user/bk/denpyo/fk_zairyoshiire_view_main_in.asp" -->
<%
'<!--
'################################################
' 名称 ：伝票連続印刷
' 作成日：2007/6/6
' 作成者：小野
' 目的 ：伝票を連続印刷する
' 概要 ：A4縦に2伝票ずつ印刷する
'################################################
'-->
%>
<%
main()
Sub main()
Dim DenpyoNoAry
Dim SendValue
Dim ii
SendValue = Request("SendValue")
DenpyoNoAry = Split(SendValue,",")
Dim DenpyoNo, Torihikibi, DenpyoTekiyo
Dim PageType
Dim KanjyoCD(10)
Dim Kanjyomei(10)
Dim Kingaku(10)
Dim TekiyoCD(10)
Dim Tekiyo(10)
Dim Gokei,i
Dim DenpyoKubun
Dim RouteType
Dim Mode
DenpyoNo = Request("DenpyoNo")
PageType = Request("PageType")
RouteType = Request("RouteType")
Mode = Request("Mode")
If Mode = "Zairyo" Then
DenpyoKubun = "D7"
ElseIf Mode = "Seizo" Then
DenpyoKubun = "D8"
ElseIf PageType = "Nyukin" Then
DenpyoKubun = "D1"
ElseIf PageType = "Shukkin" Then
DenpyoKubun = "D2"
ElseIf PageType = "Shiire" Then
DenpyoKubun = "D3"
ElseIf PageType = "Uriage" Then
DenpyoKubun = "D4"
Else
DenpyoKubun = "D5"
End If
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 0;
//印刷余白指定（ミリ指定）
PrintTopMargin = 12;
PrintLeftMargin = 18;
// 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 %>
<%
' For ii = 0 to UBound(DenpyoNoAry)
' ResponseWrite(DenpyoNoAry(ii) & vbCrLf)
' Next
Dim AutoFlg
AutoFlg = 0
'改ページロジック
'PrintFlg = 2 なら改ページを入れる
'先頭伝票は改ページさせないので 1・0・2・0・2・0・・・・の順にする
Dim FirstDenpyoFlg
FirstDenpyoFlg = 1
Dim PageBreak
PageBreak = 1
For ii = 0 to UBound(DenpyoNoAry)
If DenpyoNoAry(ii) <> "" Then
If DenpyoKubun = "D1" Or DenpyoKubun = "D2" Then
Response.Write(DenpyoNyusyukin(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNoAry(ii), AutoFlg, PageBreak))
ElseIf DenpyoKubun = "D3" Or DenpyoKubun = "D4" Then
Response.Write(DenpyoShiireUriage(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNoAry(ii), AutoFlg, PageBreak))
ElseIf DenpyoKubun = "D7" Then
'材料仕入伝票は毎回改ページ
Response.Write(DenpyoZairyoShiire(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNoAry(ii), AutoFlg, 2))
Else 'D5・D8
Response.Write(DenpyoFurikae(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNoAry(ii), AutoFlg, PageBreak))
End If
'PageBreak引数はPrintFlgを代用してるので注意。1 はPrintFlgで使ってるので 0 or 2
If PageBreak > 0 Then
PageBreak = 0
Else
PageBreak = 2
End If
End If
Next
%>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>