<% Function HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg) Dim Query Dim Content Dim Content2 Dim RowBreakNum, RowCount Dim Page RowCount = 0 Dim DbKarikataKingakuTotal Dim DbKashikataKingakuTotal DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 Dim YTegataHyoji Dim KTegataHyoji Dim TegataHyoji TegataHyoji = "1" Dim SyoruiMei Dim Mode If AutoFlg > 0 Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then YTegataHyoji = "" & Content.Fields("約束手形表示") KTegataHyoji = "" & Content.Fields("為替手形表示") End If If YTegataHyoji <> "1" And KTegataHyoji <> "1" Then TegataHyoji = "0" End If If AutoFlg = 2 Then ' Query = "exec SPK伝票_振替伝票一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" If BunsyoSyuruiCD = "MH" Then SyoruiMei = "受取手形記入帳（自動）" Mode = "AE" Else SyoruiMei = "支払手形記入帳（自動）" Mode = "AF" End If Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Mode & "', '%', '', ''" ElseIf TegataHyoji <> "1" Then Query = "exec SPK伝票_振替伝票一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" If BunsyoSyuruiCD = "MH" Then SyoruiMei = "受取手形履歴" Else SyoruiMei = "支払手形履歴" End If Else If BunsyoSyuruiCD = "MH" Then Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TX', ''" SyoruiMei = "受取手形履歴" Else Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TY', ''" SyoruiMei = "支払手形履歴" End If End If Else If BunsyoSyuruiCD = "MH" Then Query = "exec SPK補助簿_受取手形記入帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "受取手形記入帳" Else Query = "exec SPK補助簿_支払手形記入帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "支払手形記入帳" End If End If If PrintFlg = 1 Then If AutoFlg <> 2 And TegataHyoji = "1" Then RowBreakNum = 32 Else RowBreakNum = 37 End If Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Set Content = OpenQuery(Query) If PrintFlg = 0 Then %>
<% End If Dim WidthCell0, WidthCell1, WidthCell2, WidthCell3, WidthCell4, WidthCell5, WidthCell6, WidthCell7, WidthParent, WidthParent2 If AutoFlg = 2 Or TegataHyoji <> "1" Then WidthCell0 = 120 WidthCell1 = 30 WidthCell2 = 75 WidthCell3 = 80 WidthCell4 = 80 WidthCell5 = 100 WidthCell6 = 80 If PrintFlg = 0 Then WidthCell7 = 311 WidthParent = 720 WidthParent2 = 700 Else WidthCell7 = 232 WidthParent = 620 WidthParent2 = 620 End If Else If PrintFlg = 0 Then WidthCell0 = 80 WidthCell1 = 30 WidthCell2 = 75 WidthCell3 = 38 WidthCell4 = 65 WidthCell5 = 100 WidthCell6 = 132 WidthCell7 = 159 WidthParent = 920 WidthParent2 = 900 Else WidthCell0 = 68 WidthCell1 = 24 WidthCell2 = 60 WidthCell3 = 30 WidthCell4 = 60 WidthCell5 = 90 WidthCell6 = 52 WidthCell7 = 121 WidthParent = 700 WidthParent2 = 700 End If If Right(SyoruiMei, 4) = "手形履歴" Then WidthCell7 = WidthCell7 + 2 End If End If For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>
<% If PrintFlg = 1 Then Response.Write(PrintHeader1(AutoFlg)) End if %>
<% = SetStringInsertSpace(SyoruiMei) %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %>
<% If AutoFlg <> 2 And TegataHyoji = "1" Then %> <% Else %> <% End If %> <% If AutoFlg <> 2 And TegataHyoji = "1" Then %> <% Else %> <% End If %> <% If AutoFlg <> 2 And TegataHyoji = "1" Then %> <% End If %>
取引
日		取引日摘要 金額種類 手形番号 <% If BunsyoSyuruiCD = "MH" Then %>支払人<% Else %>受取人<% End If %>伝票番号 <% If BunsyoSyuruiCD = "MH" Then %>支払人<% Else %>受取人<% End If %><% If BunsyoSyuruiCD = "MH" Then %>振出人また
は裏書人<% Else %>振出人<% End If %>		 振出
日		 満期日 支払場所 顛末
日付		 顛末摘要
<% If PrintFlg <> 1 Then %>
<% End If %> <% Dim ii, jj ii = 0 Dim UketoriSiharaiTegataTyoCD, Torihikibi, Tekiyo, Kingaku,TegataSyurui, TegataNo Dim SiharaiUketorinin,FuridasiUragakinin,Furidasibi,Mankibi,Siharaibasyo,Tenmatubi,TenmatuTekiyo Dim TegataSyuruiName Dim SiharaibasyoName, SiharaiUketorininName, FuridasiUragakininName If AutoFlg <> 2 And TegataHyoji = "1" Then Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 If AutoFlg = 0 Then If BunsyoSyuruiCD = "MH" Then UketoriSiharaiTegataTyoCD = Content.Fields("受取手形記入帳CD") SiharaiUketorininName = Content.Fields("支払人名称") FuridasiUragakininName = Content.Fields("振出人名称") Else UketoriSiharaiTegataTyoCD = Content.Fields("支払手形記入帳CD") SiharaiUketorininName = Content.Fields("受取人名称") FuridasiUragakininName = Content.Fields("振出人名称") End If TegataSyuruiName = Content.Fields("手形種類名称") TegataNo = Content.Fields("手形番号") Furidasibi = SetTimeYYYYMMDD(Content.Fields("振出日")) Mankibi = SetTimeYYYYMMDD(Content.Fields("満期日")) SiharaibasyoName = Content.Fields("支払場所名称") Tenmatubi = SetTimeYYYYMMDD(Content.Fields("顛末日付")) Else If BunsyoSyuruiCD = "MH" Then If IsNull(Content.Fields("引受人名称")) Then SiharaiUketorininName = Content.Fields("振出人名称") Else SiharaiUketorininName = Content.Fields("引受人名称") End If If IsNull(Content.Fields("裏書人名称")) Then FuridasiUragakininName = Content.Fields("振出人名称") Else FuridasiUragakininName = Content.Fields("裏書人名称") End If Else SiharaiUketorininName = Content.Fields("受取人名称") FuridasiUragakininName = Content.Fields("振出人名称") End If TegataSyuruiName = Replace(Content.Fields("手形種類名称"), "手形", "") TegataNo = Content.Fields("手形番号") Furidasibi = SetTimeYYYYMMDD(Content.Fields("取引日")) Mankibi = SetTimeYYYYMMDD(Content.Fields("支払期日")) SiharaibasyoName = Content.Fields("支払場所名称") Tenmatubi = SetTimeYYYYMMDD(Content.Fields("顛末日")) End If Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) Tekiyo = Content.Fields("摘要") Kingaku = Content.Fields("金額") TenmatuTekiyo = Content.Fields("顛末摘要") If AutoFlg = 1 Then If Content.Fields("削除フラグ") = 1 Then '削除フラグが立っている場合は TenmatuTekiyo = "廃棄" '顛末摘要に「廃棄」と表示（061110小野） End if End if 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("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") Content.MoveNext If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop Else '手形非利用時及び自動帳簿 Do While Not(Content.BOF Or Content.EOF) '自動帳簿 If AutoFlg = 2 Then RowCount = RowCount + 1 TegataNo = Content.Fields("伝票番号") Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) Tekiyo = Content.Fields("伝票摘要") If Tekiyo = "" Then Tekiyo = Content.Fields("摘要") End If If BunsyoSyuruiCD = "MH" Then Kingaku = Content.Fields("借方金額") Else Kingaku = Content.Fields("貸方金額") End If SiharaiUketorininName = Content.Fields("取引先略名称") 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("" & vbCrLf) ' Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") If (RowCount Mod RowBreakNum = 0) Then Exit Do End If '手形非利用時 ElseIf "" & Content.Fields("削除フラグ") <> "1" Then Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & Content.Fields("伝票番号") & "', '" & ConvKaisyaGyosyuKubun(KaisyaCD) & "'" Set Content2 = OpenQuery(Query) Do While Not(Content2.BOF Or Content2.EOF) If (BunsyoSyuruiCD = "MH" And "" & Content2.Fields("チェック区分") = "AE") Or (BunsyoSyuruiCD = "MI" And "" & Content2.Fields("チェック区分") = "AF") Then RowCount = RowCount + 1 TegataNo = Content2.Fields("伝票番号") Torihikibi = SetTimeYYYYMMDD(Content2.Fields("取引日")) Tekiyo = Content2.Fields("伝票摘要") If Tekiyo = "" Then Tekiyo = Content2.Fields("摘要") End If If BunsyoSyuruiCD = "MH" Then Kingaku = Content2.Fields("借方金額") Else Kingaku = Content2.Fields("貸方金額") End If SiharaiUketorininName = Content2.Fields("摘要会社名称") 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("" & vbCrLf) ' Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") If (RowCount Mod RowBreakNum = 0) Then Exit Do End If End If Content2.MoveNext Loop End If Content.MoveNext Loop End If For jj = RowCount + 1 To Max(35, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If AutoFlg <> 2 And TegataHyoji = "1" Then Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) If AutoFlg <> 2 And TegataHyoji = "1" Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("") Next %>
" & SetTimeMMDD(Torihikibi) & "
" & HardWrap(Tekiyo) & "
" & ConvIntToMoney(Kingaku , false, false) & "" & TegataSyuruiName & "" & TegataNo & "" & SiharaiUketorininName & "" & FuridasiUragakininName & "" & SetTimeMMDD(Furidasibi) & "" & Mankibi & "" & SiharaibasyoName & "" & SetTimeMMDD(Tenmatubi) & "
" & HardWrap(TenmatuTekiyo) & "
" & SetDate(Torihikibi, 1) & "
" & HardWrap(Tekiyo) & "
" & ConvIntToMoney(Kingaku , false, false) & " " & TegataSyuruiName & "" & TegataNo & "" & SiharaiUketorininName & "" & FuridasiUragakininName & "" & SetTimeMMDD(Furidasibi) & "" & Mankibi & "" & SiharaibasyoName & "" & SetTimeMMDD(Tenmatubi) & "" & TenmatuTekiyo & "
" & SetDate(Torihikibi, 1) & "
" & HardWrap(Tekiyo) & "
" & ConvIntToMoney(Kingaku , false, false) & " " & TegataSyuruiName & "" & TegataNo & "" & SiharaiUketorininName & "" & FuridasiUragakininName & "" & SetTimeMMDD(Furidasibi) & "" & Mankibi & "" & SiharaibasyoName & "" & SetTimeMMDD(Tenmatubi) & "" & TenmatuTekiyo & "
<% 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 PrintFlg = 0 Then %>
<% End if End Function %>