%
Function HojyoboTozaYokinSuitohyoTutyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Param1, Param2, Param3)
'期中口座開設の有無を確認するフラグ
Dim KichuKaisetsu
KichuKaisetsu = false
Dim GinkoCD
GinkoCD = BunsyoNaiyoCD
Dim RowBreakNum, RowCount
Dim Page
RowCount = 0
If PrintFlg = 1 Then
RowBreakNum = 35
Else
RowBreakNum = MaxRowBreakNum
MaxPage = 1
End If
Dim DbKarikataKingakuTotal
Dim DbKashikataKingakuTotal
DbKarikataKingakuTotal = 0
DbKashikataKingakuTotal = 0
Dim KozaKubun, KozaBango
KozaKubun = Param1
KozaBango = Param2
Dim SyoruiMei
If AutoFlg = 1 Then
'Query = "exec SPB銀行口座入出金一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & GinkoCD & "', '" & Param1 & "', '" & Param2 & "'"
Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '', '" & GinkoCD & "', '" & Param1 & "', '" & Param2 & "'"
SyoruiMei = "預金通帳(未完成)"
Else
Query = "exec SPK補助簿_当座預金出納帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & GinkoCD & "'"
SyoruiMei = "当座預金出納帳"
End If
Set Content = OpenQuery(Query)
If 0=1 And PrintFlg = 0 Then
%>
<%
End If
For Page = 1 To MaxPage
If Page <> 1 Then
Response.Write(PageBreakBefore)
End If
%>
<% If PrintFlg = 0 Then %>
<% Else %>
<% End If %>
<%
If PrintFlg = 1 Then
Response.Write(PrintHeader1(AutoFlg))
End if
%>
<% If PrintFlg = 0 Then %>
<% Else %>
<% End If %>
 |
<% =ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD) %> <% = ConvKubunMeisyo("口座区分", KozaKubun) & "預金" %> <% = KozaBango %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %> |
 |
|
|
年月日 |
お支払金額 |
お預り金額 |
差引残高 |
取引内訳 |
摘要 |
|
|
|
<% If PrintFlg <> 1 Then %>
<% End If %>
<%
Dim Query
Dim Content
Dim ii, jj
ii = 0
If GinkoCD <> "" Then
Do While Not(Content.BOF Or Content.EOF)
'期中に口座開設が行われている場合は繰越金額0のゴミレコードを表示しない
If Not(KichuKaisetsu) Or Content.Fields("処理時期区分") <> 0 Or Content.Fields("金額") > 0 Then
RowCount = RowCount + 1
Dim TouzaYokinSuitotyoCD, Torihikibi, Tekiyo, KogitteNO, Azukeire, Hikidasi, Taisyaku, Zandaka
Azukeire = ""
Hikidasi = ""
Dim Torihiki
Torihiki = "" & Content.Fields("銀行取引区分名称")
If Torihiki = "証明書手数料" Then
Torihiki = "証明手数料"
End If
If AutoFlg = 0 Then
Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
KogitteNO = Content.Fields("小切手NO")
Azukeire = Content.Fields("預入金額")
Hikidasi = Content.Fields("払出金額")
Taisyaku = Content.Fields("貸借略名称")
Zandaka = Content.Fields("残高")
Else
If Content.Fields("処理時期区分") <> 0 And "" & Content.Fields("結果通知種類CD") = "BN" Then
'期中に口座開設が行われている場合にフラグを立てる
KichuKaisetsu = True
End If
Torihikibi = SetTimeYYYYMMDD(Content.Fields("処理日"))
If Right(Content.Fields("銀行取引区分"), 1) = "N" Then
Azukeire = Content.Fields("金額")
'金額NULLの例外対策(110112小野)
If "" & Azukeire <> "" Then
Zandaka = Zandaka + Azukeire
End If
Else
Hikidasi = Content.Fields("金額")
'金額NULLの例外対策(110112小野)
If "" & Hikidasi <> "" Then
Zandaka = Zandaka - Hikidasi
End If
End If
If Zandaka >= 0 Then
Taisyaku = "借"
Else
Taisyaku = "貸"
End If
End If
Tekiyo = Content.Fields("摘要")
Response.Write("" & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Hikidasi, false, false) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Azukeire, false, false) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Zandaka, false, false) & " | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" ")
ii = ii + 1
Content.MoveNext
If (RowCount Mod RowBreakNum = 0) Then
Exit Do
End If
Else
Content.MoveNext
End If
Loop
End If
For jj = RowCount + 1 To Max(35, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg)
' For jj = ii To RowBreakNum
Response.Write("" & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" ")
Next
%>
<% If PrintFlg <> 1 Then %>
<% End If %>
|
|
<%
If PrintFlg = 1 Then
Response.Write(PrintFooter())
End If
%>
|
<%
If (Content.BOF Or Content.EOF) Then
Exit For
End If
Next
If 0=1 And PrintFlg = 0 Then
%>
|
|
<%
End if
End Function
%>
|