<%
'
'
%>
<%
main()
Sub main()
Dim DenpyoNo, Torihikibi, DenpyoTekiyo '伝票番号、取引日、伝票摘要
Dim KanjyoCD(10) '勘定科目コード
Dim Kanjyomei(10) '勘定科目名称
Dim Kingaku(10) '金額
Dim Tekiyo(10) '摘要
Dim TekiyoCD(10) '摘要CD
Dim Gokei '合計
Dim PageType 'ページタイプ '入金'OR'出金'
Dim SenColor,WakuColor '線の色
Dim OldDenpyoNo
Dim BinType
Dim Query
Dim Content
Dim Genkin, Toza
Dim GakuseiShimei
Dim Title, DenpyoKubun
DenpyoNo = Request("DenpyoNo")
PageType = Request("Pagetype")
Dim WndType, RouteType
WndType = Request("WndType")
RouteType = Request("RouteType")
Dim ShowDel
ShowDel = Request("ShowDel")
Dim GakuseiBango
If Session(HomeAlias & "EnshuKubun") = "P" AND GB_JisyaFlag = "0" Then
Else
GakuseiBango = GB_GakuseiNo
End If
Dim LabelSoumu
Dim LabelTanto
Dim LabelKakari
LabelSoumu = ""
LabelTanto = ""
LabelKakari = "係 印"
If MHMINRANLEFT <> "" Then LabelSoumu = MHMINRANLEFT End If
If MHMINRANCENTER <> "" Then LabelTanto = MHMINRANCENTER End If
If MHMINRANRIGHT <> "" Then LabelKakari = MHMINRANRIGHT End If
Dim GenkinKanjyoCD
If GB_Gyosyu <> "B" Then
Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','" & EnshuCD & "', 'DA'"
Else
Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','" & EnshuCD & "', 'DT'"
End If
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
GenkinKanjyoCD = Content.Fields("勘定CD")
Content.MoveNext
Loop
'############################################ 線の色の設定
If PageType = "Nyukin" Then
Title = "入金伝票"
SenColor = "#FF2211" '赤
WakuColor = "border:solid 2px #FF2211"
DenpyoKubun = 1
Else
Title = "出金伝票"
SenColor = "#1133FF" '青
WakuColor = "border:solid 2px #1133FF"
DenpyoKubun = 2
End If
Genkin = 0
Toza = 0
Gokei = 0
Dim TmpCnt
Dim ErrorFlg
ErrorFlg = Request("ErrorFlg")
'追加モードでリジェクトされた場合はクエリを取得（090528小野）
If ErrorFlg <> "" Then
DenpyoNo = Request("DenpyoNo")
Torihikibi = Request("Torihikibi")
DenpyoTekiyo = Request("DenpyoTekiyo")
For TmpCnt = 1 To 10
KanjyoCD(TmpCnt) = Request("KanjyoCD" & CStr(TmpCnt))
Kanjyomei(TmpCnt) = ConvKanjyoMeisyoDx(GB_SystemCD, GB_EnshuCD, KanjyoCD(TmpCnt))
Kingaku(TmpCnt) = Request("Kingaku" & CStr(TmpCnt))
TekiyoCD(TmpCnt) = Request("TekiyoCD" & CStr(TmpCnt))
Tekiyo(TmpCnt) = Request("Tekiyo" & CStr(TmpCnt))
If Kingaku(TmpCnt) <> "" Then
Gokei = Gokei + CLng(Kingaku(TmpCnt))
End If
Next
'修正モード
ElseIf DenpyoNo <> "" Then
OldDenpyoNo = DenpyoNo 'この場合のみOldDenpyoNoを持たせる（090528小野）
'/////// １．「伝票」ヘッダ部・明細部のデータを取得。
If PageType = "Nyukin" Then
Query = "exec SPK伝票_入金伝票取得 '" & GB_SystemCD & "','"
Else
Query = "exec SPK伝票_出金伝票取得 '" & GB_SystemCD & "','"
End If
Query = Query & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
DenpyoTekiyo = Content.Fields("伝票摘要")
GakuseiShimei = Content.Fields("氏名")
GakuseiBango = Content.Fields("学生番号")
i = 0
Do While Not(Content.BOF Or Content.EOF)
Dim DenpyoSEQ
DenpyoSEQ = Content.Fields("伝票SEQ")
If Content.Fields("勘定CD") <> GenkinKanjyoCD Then
i = i + 1
KanjyoCD(i) = Content.Fields("勘定CD")
Kanjyomei(i) = Content.Fields("勘定名称")
If PageType = "Nyukin" Then
Kingaku(i) = Content.Fields("貸方金額")
Gokei = Gokei + Content.Fields("貸方金額")
Else
Kingaku(i) = Content.Fields("借方金額")
Gokei = Gokei + Content.Fields("借方金額")
End If
Tekiyo(i) = Content.Fields("摘要")
TekiyoCD(i) = Content.Fields("摘要CD")
End if
Content.MoveNext
Loop
End If
End If
' Dim JidoBangoDenpyo
' JidoBangoDenpyo = GetEnshuParam(EnshuCD, "自動番号伝票")
'自動番号伝票フラグ・実践日取得
Dim JidoBangoDenpyo
Dim Jissenbi
Jissenbi = ""
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
JidoBangoDenpyo = "" & Content.Fields("自動番号伝票")
Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日"))
End If
Dim KouriRiyo
KouriRiyo = KourihanbaiRiyo()
'摘要配列作成
Dim TekiyoCDA
Dim TekiyoNameA
Dim TekiyoShijoA
ReDim TekiyoCDA(0)
ReDim TekiyoNameA(0)
ReDim TekiyoShijoA(0)
Query = "exec SPM摘要表示一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Not(Content.Fields("摘要区分") = "K" AND Content.Fields("摘要CD") = KaisyaCD) Then
ReDim PreServe TekiyoCDA(UBound(TekiyoCDA) + 1) '配列数+1
ReDim PreServe TekiyoNameA(UBound(TekiyoCDA))
ReDim PreServe TekiyoShijoA(UBound(TekiyoCDA))
TekiyoCDA(UBound(TekiyoCDA)) = "" & Content.Fields("摘要CD")
TekiyoNameA(UBound(TekiyoCDA)) = "" & Content.Fields("摘要")
TekiyoShijoA(UBound(TekiyoCDA)) = "" & Content.Fields("市場CD")
End If
Content.MoveNext
Loop
If KouriRiyo > 0 Then
ReDim PreServe TekiyoCDA(UBound(TekiyoCDA) + 1) '配列数+1
ReDim PreServe TekiyoNameA(UBound(TekiyoCDA))
ReDim PreServe TekiyoShijoA(UBound(TekiyoCDA))
TekiyoCDA(UBound(TekiyoCDA)) = "SJ4KOURIHANBAI"
TekiyoNameA(UBound(TekiyoCDA)) = "" & ConvKaisyaMeisyo("SJ4KOURIHANBAI")
TekiyoShijoA(UBound(TekiyoCDA)) = ""
End If
Dim ii
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>