<% If SenpoFlg <> "1" And (BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TY") Then %>

<% If BunsyoSyuruiCD = "TK" Then %> 引受人市場 <% End If %> 受取人市場

<% End If %>

<% If SenpoFlg = "1" Then %> <% End If %>

<% If SenpoFlg = "1" Then %> （表面）

NO．<% = TegataNo %>

<% If Len(Title) < 8 Then Response.Write(SetStringInsertSpace(Title)) Else Response.Write(Title) %>

拒絶証書不要

<% If BunsyoSyuruiCD = "TK" OR BunsyoSyuruiCD = "TY" Then %>

* * *
* * *
* * *

<% End If %>

<% If BunsyoSyuruiCD = "TK" Then %>

引受人	<% = Hikiukenin %>殿

金額　￥<% = ConvIntToMoney(Kingaku, false, false) %>※

受取人	<% = Uketorinin %>

振出日　<% = SetDate(Furidashibi, 3) %>

<% ElseIf BunsyoSyuruiCD = "TY" Then %>

受取人	<% = Uketorinin %>

金額　￥<% = ConvIntToMoney(Kingaku, false, false) %>※

振出日　<% = SetDate(Furidashibi, 3) %>

<% Else %>

金額　￥<% = ConvIntToMoney(Kingaku, false, false) %>※

上記の金額をこの小切手と引替に
持参人へお支払いください

振出日　<% = SetDate(Furidashibi, 3) %>

<% End If %>

<% If BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TY" Then %> <% End If %>

支払期日
<% = SetDate(ShiharaiKijitsu, 3) %>

支払場所
<% = ConvKaisyaMeisyoDx(EnshuCD, ShiharaiBasyo) %>

<% If BunsyoSyuruiCD = "TK" Then %> <% Else %> <% End If %>

<% If BunsyoSyuruiCD = "TK" OR BunsyoSyuruiCD = "TY" Then %>

税付印
務に紙
署つ税
承き申
認 ○ 告
済 ○ 納

<% End If %>

振出人　
<% = ConvKaisyaJyusyo1(EnshuCD, FuridashininCD) %>
<% = ConvKaisyaName(EnshuCD, FuridashininCD) %>
代表取締役　<% = ConvDaihyoName(EnshuCD, FuridashininCD) %>

<% If JitsuinRiyo = "1" Then %>

<% End If %>

引受人　
<% = ConvKaisyaJyusyo1(EnshuCD, HikiukeninCD) %>
<% = Hikiukenin %>

<% If JitsuinRiyo = "1" Then %>

<% End If %>

<% Else %>

<% = Spacer(1,15) %>

<% If BunsyoSyuruiCD = "TK" Then %> <% End If %> <% If BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TY" Then %> <% End If %> <% If BunsyoSyuruiCD = "TG" Then %> <% End If %>

NO．<% = TegataNo %>

受取人：<% = UketorininRyaku %>

引受人：<% = HikiukeninRyaku %>

金額：<% = ConvIntToMoney(Kingaku, false, false) %>

支払期日：<% = SetDate(ShiharaiKijitsu, 3) %>

支払場所：<% = ConvKaisyaRyakuMeisyo(ShiharaiBasyo) %>

振出日：<% = SetDate(Furidashibi, 3) %>

摘要：

<% If JidoBangoTegata = "1" Then %> NO． <% Else %> NO． <% End If %>

<% If Len(Title) < 8 Then Response.Write(SetStringInsertSpace(Title)) Else Response.Write(Title) %>

拒絶証書不要

<% If BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TY" Then %>

* * *
* * *
* * *

<% End If %>

<% If BunsyoSyuruiCD = "TK" Then %>

引受人殿

金額　￥※

受取人殿

振出日　 <% If Jissenbi <> "" Then '日付固定モード %> <% = JissenbiG %> <% Else %> <% End If %> <% If Jissenbi <> "" Then '日付固定モード %> <% Else %> <% End If %>年 <% If Jissenbi <> "" Then '日付固定モード %> <% Else %> <% End If %>月 <% If Jissenbi <> "" Then '日付固定モード %> <% Else %> <% End If %>日

<% ElseIf BunsyoSyuruiCD = "TY" Then %>

受取人殿

金額　￥※

振出日 <% If Jissenbi <> "" Then '日付固定モード %> <% = JissenbiG %> <% Else %> <% End If %> <% If Jissenbi <> "" Then '日付固定モード %> <% Else %> <% End If %>年 <% If Jissenbi <> "" Then '日付固定モード %> <% Else %> <% End If %>月 <% If Jissenbi <> "" Then '日付固定モード %> <% Else %> <% End If %>日

<% Else %>

金額　￥※

上記の金額をこの小切手と引替に
持参人へお支払いください

<% End If %>

<% If BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TY" Then %> <% End If %>

支払期日
<% If Jissenbi <> "" Then '日付固定モード %> <% = JissenbiG %> <% Else %> <% End If %> 年
月日

支払場所

<% If BunsyoSyuruiCD = "TK" OR BunsyoSyuruiCD = "TY" Then %>

税付印
務に紙
署つ税
承き申
認 ○ 告
済 ○ 納

<% End If %>

振出人　
<% = ConvKaisyaJyusyo1(EnshuCD, KaisyaCD) %>
<% = KaisyaMeisyo %>
代表取締役　<% = ConvDaihyoName(EnshuCD, KaisyaCD) %>

<% End If %>

（裏面）

<% Dim TmpTenmatsubi, TmpUragakininCD, TmpHiuragakininCD, TmpTenmatsuKubun, TmpUragakininMeisyo, TmpHiuragakininMeisyo, TmpTenmatsuKubunMeisyo Dim TenmatsubiY,TenmatsubiM,TenmatsubiD Dim TenmatsubiG TmpTenmatsubi = "" Query = "exec SPK手形取得裏書" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & SakuseiKaisyaCD & "'" '会社CD Query = Query & ",'" & BunsyoSyuruiCD & "'" Query = Query & ",'" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) TmpTenmatsubi = Content.Fields("取引日") TmpUragakininCD = Content.Fields("裏書人CD") TmpHiuragakininCD = Content.Fields("被裏書人CD") TmpTenmatsuKubun = Content.Fields("顛末区分") TmpUragakininMeisyo = Content.Fields("裏書人略名称") TmpHiuragakininMeisyo = Content.Fields("被裏書人略名称") TmpTenmatsuKubunMeisyo = Content.Fields("顛末区分名称") %>

表記金額を
下記被裏書人へお支払いください

日付

<% = SetDate(TmpTenmatsubi, 3) %>

拒絶証書不要

裏書人

<% = TmpUragakininMeisyo %>

(目的)　

<% = TmpTenmatsuKubunMeisyo %>の為

被裏書人	<% If TmpHiuragakininCD = "" Or IsNull(TmpHiuragakininCD) Then Response.Write("（銀行以外の被受取人）") Else Response.Write(TmpHiuragakininMeisyo) End If %>

<% Content.MoveNext Loop If TmpTenmatsubi = "" Then TmpTenmatsubi = Jissenbi End If If TmpTenmatsubi <> "" Then TenmatsubiG = SetGengo(TmpTenmatsubi) TenmatsubiY = Year(TmpTenmatsubi) - SetYearGengo(TenmatsubiG) + 1 TenmatsubiM = Month(TmpTenmatsubi) TenmatsubiD = Day(TmpTenmatsubi) End If %> <% If Request("TenmatsuShusei") <> "1" Then %> <% Else %> <% End If %>

表記金額を
下記被裏書人へお支払いください

日付 <% If Jissenbi <> "" Then '日付固定モード %> <% = JissenbiG %> <% Else %> <% End If %> <% If Jissenbi <> "" Then '日付固定モード %> <% Else %> <% End If %>年 <% If Jissenbi <> "" Then '日付固定モード %> <% Else %> <% End If %>月 <% If Jissenbi <> "" Then '日付固定モード %> <% Else %> <% End If %>日

拒絶証書不要

裏書人　<% = KaisyaMeisyo %>

（目的）　<% = ConvKubunMeisyo("顛末区分", TenmatsuKubun) %>の為

（目的）　の為

被裏書人