%
'
%>
<%
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
%>
<% = AppTitle %>
<% = 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, 1))
Else 'D5・D8
Response.Write(DenpyoFurikae(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNoAry(ii), AutoFlg, PageBreak))
End If
If PageBreak > 0 Then
PageBreak = 0
Else
PageBreak = 2
End If
End If
Next
%>
<% = HtmlFooter %>
<%
End Sub
%>