<%
'
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query
Dim Content
Dim ii, jj, iiSyukeihyoSelect, ShiwakeData, iiMototyoSelect, MototyoData
Dim SokanjyoMototyoCD
Dim DbKanjyoCD, DbShiwakeData, DbDenpyoTekiyo, DbTekiyo1, DbTekiyo2
Dim DbKanjyoMeisyo, DbMototyo
Dim DbDenpyoKubun, DbDenpyoNo , DbDenpyoSEQ
Dim DbTekiyo, DbTorihikibi, DbTorihikibi2, DbShityo, DbZandaka, DbMototyoData
Dim DbKarikataKingaku, DbKashikataKingaku
Dim DbKarikataKingakuTotal, DbKashikataKingakuTotal
Dim DbSokanjyoMototyoCD
Dim KanjyoCD
Dim Torihikibi
Dim Torihikibi2
Dim Mode
Dim DenpyoKubun, DenpyoNo, DenpyoSEQ
KanjyoCD = Request("KanjyoCD")
Torihikibi = Request("Torihikibi")
Torihikibi2 = Request("Torihikibi2")
Mode = Request("Mode")
DenpyoKubun = Request("DenpyoKubun")
DenpyoNo = Request("DenpyoNo")
DenpyoSEQ = Request("DenpyoSEQ")
If Mode = "Tanjitsu" Then
Torihikibi2 = ""
End If
Dim PageType
PageType = "仕訳集計表"
Dim RouteType
RouteType = Request("RouteType")
%>
<% = HtmlHeader("sj3tyobored11") %>
<% = HtmlFooter %>
<%
End Sub
%>