%
'
%>
<%
main()
Sub main()
'繰越記入にトグルするためのフラグ(081021小野)
Dim Kimatsu
Kimatsu = Request("Kimatsu")
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")
RouteType = Request("RouteType")
If Kimatsu = "Kurikoshi" Then
DenpyoKubun = "10"
Else
DenpyoKubun = "9"
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
Response.Write(KimatsuFurikaeDenpyo(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNoAry(ii), AutoFlg, PageBreak))
If PageBreak > 0 Then
PageBreak = 0
Else
PageBreak = 2
End If
End If
Next
%>
<% = HtmlFooter %>
<%
End Sub
%>