<%
If PrintFlg = 1 Then
Response.Write(PrintHeader(AutoFlg, ""))
If BunsyoSyuruiCD = "TG" Then
If HasshinFlg = 0 And SenpoFlg = 0 Then
Response.Write("作成小切手")
ElseIf HasshinFlg = 1 And SenpoFlg = 0 Then
Response.Write("振出小切手")
Else
Response.Write("受取小切手")
End If
ElseIf (BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TY") And TegataType <> "VE" And TegataType <> "VF" And TegataType <> "VG" Then '裏書譲渡控え・手形引受控え・銀行受領控えには表記しない
If HasshinFlg = 0 And SenpoFlg = 0 Then
Response.Write("作成手形")
ElseIf HasshinFlg = 1 And SenpoFlg = 0 Then
Response.Write("振出手形")
Else
Response.Write("受取手形")
End If
End If
End If
%>
<% If TegataType = "VE" Or TegataType = "VF" Or TegataType = "VG" Then %>
"TG") And PrintFlg = 0 Then %>820<% Else %>700<% End If %>" height="300">
<% If InStr(RouteType, "MailOnly") = 0 and InStr(RouteType, "RMail") = 0 Then %>
<% If TegataType = "VE" Then %>
裏書譲渡控え
<% ElseIf TegataType = "VG" Then %>
手形引受控え
<% Else %>
銀行受領控え
<% End If %>
<% end if %>
<% End If %>
"TG") And PrintFlg = 0 Then %>820<% Else %>700<% End If %>">
<%
'社長室・総務部から入った場合の記述を追加 GB_Gyosyu <> "S"
If InStr(RouteType, "Hakushi") > 0 Or ((TegataType = "VA" OR TegataType = "VB") and InStr(RouteType, "SMail") = 0 and InStr(RouteType, "syatyo") = 0) Then
%>
<% If JitsuinRiyo = "1" And InStr(RouteType, "Hakushi") < 1 Then %>
<% End If %>
| NO．<% = TegataNo %> |
受取人：
<% = Uketorinin %> |
<% If BunsyoSyuruiCD = "TK" Then %>
引受人：
<% = Hikiukenin %> |
<% End If %>
| 金額：<% = ConvIntToMoney(Kingaku, false, false) %> |
<% If BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TY" Then %>
支払期日：
<% = SetDate(ShiharaiKijitsu, 3) %> |
<% End If %>
支払場所：
<% = ShiharaibasyoMeisyo %> |
振出日：
<% = SetDate(Furidashibi, 3) %> |
<% If BunsyoSyuruiCD = "TG" Then %>
摘要：
<% = HardWrap(Tekiyo) %> |
<% End If %>
|
<% End If %>
<%
'社長室・総務部から入った場合の記述を追加
If SoufuzumiTegataHyoji = "0" And TegataType = "VB" And InStr(RouteType, "SMail") = 0 And InStr(RouteType, "syatyo") = 0 Then
%>
 |
<% End If %>
<%
'社長室・総務部から入った場合の記述を追加
If (SoufuzumiTegataHyoji = "1" And TegataType = "VB") Or TegataType = "" Or TegataType = "VA" Or TegataType = "VC" Or TegataType = "VD" OR TegataType = "VE" Or TegataType = "VF" Or TegataType = "VG" Or InStr(RouteType, "SMail") <> 0 Or InStr(RouteType, "syatyo") > 0 Then
%>
<% '送付済み（印刷時は半透明処理が効かないため除外する）
If PrintFlg = 0 And TegataType = "VB" And InStr(RouteType, "SMail") = 0 And InStr(RouteType, "syatyo") = 0 Then %>
<% '廃棄済み（印刷時は半透明処理が効かないため除外する）
ElseIf PrintFlg = 0 And SakujyoFlg = 1 And TegataType = "VA" And InStr(RouteType, "SMail") = 0 And InStr(RouteType, "syatyo") = 0 Then %>
<% End If %>
<% If JitsuinRiyo = "1" And InStr(RouteType, "Hakushi") < 1 Then %>
<% End If %>
|
NO．<% = TegataNo %>
|
<% If Len(Title) < 8 Then Response.Write(SetStringInsertSpace(Title)) Else Response.Write(Title) %><% If PrintFlg = 1 And TegataType = "VB" And InStr(RouteType, "SMail") = 0 And InStr(RouteType, "syatyo") = 0 Then %> （送付済み）<% End If %> |
拒絶証書不要 |
|
|
|
|
<% If BunsyoSyuruiCD = "TK" OR BunsyoSyuruiCD = "TY" Then %>
<% End If %>
|
<% If BunsyoSyuruiCD = "TK" Then %>
| 引受人 |
0 Then %> align="right"<% End If %>><% = Hikiukenin %>殿
|
| 金額 ￥<% If InStr(RouteType, "Hakushi") > 0 Then %> <% Else %><% = ConvIntToMoney(Kingaku, false, false) %><% End If %>※ |
|
|
|
| 振出日 <% = SetDate(Furidashibi, 3) %> |
<% ElseIf BunsyoSyuruiCD = "TY" Then %>
| 受取人 |
0 Then %> align="right"<% End If %>><% = Uketorinin %>殿
|
| 金額 ￥<% If InStr(RouteType, "Hakushi") > 0 Then %> <% Else %><% = ConvIntToMoney(Kingaku, false, false) %><% End If %>※ |
|
| 振出日 <% = SetDate(Furidashibi, 3) %> |
<% Else %>
| 金額 ￥<% If InStr(RouteType, "Hakushi") > 0 Then %> <% Else %><% = ConvIntToMoney(Kingaku, false, false) %><% End If %>※ |
|
上記の金額をこの小切手と引替に
持参人へお支払いください |
| 振出日 <% = SetDate(Furidashibi, 3) %> |
<% End If %>
|
<% If BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TY" Then %>
支払期日
<% = SetDate(ShiharaiKijitsu, 3) %> |
<% End If %>
支払場所
<% = ShiharaibasyoMeisyo %> |
|
|
|
|
<% If BunsyoSyuruiCD = "TK" OR BunsyoSyuruiCD = "TY" Then %>
税 付 印
務 に 紙
署 つ 税
承 き 申
認 ○ 告
済 ○ 納 |
<% End If %>
|
振出人
<% = ConvKaisyaJyusyo1(EnshuCD, FuridashininCD) %>
<% = ConvKaisyaName(EnshuCD, FuridashininCD) %>
代表取締役 <% = ConvDaihyoName(EnshuCD, FuridashininCD) %>
<% If JitsuinRiyo = "1" And InStr(RouteType, "Hakushi") < 1 Then %>
<% End If %>
|
|
<% If BunsyoSyuruiCD = "TK" Then %>
引受人
<% = ConvKaisyaJyusyo1(EnshuCD, HikiukeninCD) %>
<% = Hikiukenin %>
<% If JitsuinRiyo = "1" And InStr(RouteType, "Hakushi") < 1 Then %>
<% End If %>
|
<% Else %>
|
<% End If %>
|
|
<% End If %>
<% If (TegataType = "VC" OR TegataType = "VD" OR TegataType = "VE" Or TegataType = "VF") And BunsyoSyuruiCD <> "TG" Then %>
(表面)
|
<% If PrintFlg = 1 Then '印刷時は裏書を回り込み %>
<% If TegataType = "VE" Or TegataType = "VF" Or TegataType = "VG" Then %>
|
<% End If %>
|
<% If TegataType = "VE" Or TegataType = "VF" Or TegataType = "VG" Then %>
<% End If %>
<% End If %>
<% If PrintFlg = 0 Then '画面表示は縦が足らないので縮める(^^; %>
<% Else %>
<% End If %>
<% If PrintFlg = 0 Then %>
<% End If %>
<%
Query = "exec SPK手形取得裏書"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & SakuseiKaisyaCD & "'" '会社CD
Query = Query & ",'" & BunsyoSyuruiCD & "'"
Query = Query & ",'" & BunsyoNaiyoCD & "'"
'Response.write(Query)
Set Content = OpenQuery(Query)
Dim cnt1,i
cnt1 = 0
Do While Not(Content.BOF Or Content.EOF)
cnt1 = cnt1 + 1 '裏書の件数を調べる
Content.MoveNext
Loop
Set Content = OpenQuery(Query)
'手形タイプがU(裏書)またはRで、かつ送受信文書ならば、自分が送ったぶんは表示させないので所得数を-1する
'RouteType="MailOnlyRmail"
'if (SojyushinKubun = "U" or SojyushinKubun = "R") and InStr(RouteType, "RMail") <> 0 then
'if (SojyushinKubun = "U") and InStr(RouteType, "RMail") <> 0 then
if (TenmatsuKubun = "TU" or TenmatsuKubun = "TT" or TenmatsuKubun = "TW") and InStr(RouteType, "RMail") <> 0 then
cnt1 = cnt1 - 1
end if
for i = 1 to cnt1 'ループし裏書情報を取得
'Do While Not(Content.BOF Or Content.EOF)
Tenmatsubi = SetTimeYYYYMMDD(Content.Fields("取引日"))
UragakininCD = Content.Fields("裏書人CD")
HiuragakininCD = Content.Fields("被裏書人CD")
TenmatsuKubun = Content.Fields("顛末区分")
UragakininMeisyo = Content.Fields("裏書人略名称")
HiuragakininMeisyo = Content.Fields("被裏書人略名称")
TenmatsuKubunMeisyo = Content.Fields("顛末区分名称")
BunsyoNaiyouSEQ = Content.Fields("文書内容SEQ")
%>
表記金額を
下記被裏書人へお支払いください |
| <% = SetDate(Tenmatsubi, 3) %> |
拒絶証書不要 |
|
| 裏書人 |
<% = UragakininMeisyo %> |
| （目的） |
<% = TenmatsuKubunMeisyo %>の為 |
| 被裏書人 |
<% If HiuragakininCD = "" Or IsNull(HiuragakininCD) Then
Response.Write("（銀行以外の被受取人）")
Else
Response.Write(HiuragakininMeisyo)
End If
%> |
|
<%
Content.MoveNext
'Loop
next
%>
<% If PrintFlg = 0 Then %>
|
（裏面）
<% End If %>
<% If TegataType = "VE" Or TegataType = "VF" Or TegataType = "VG" Then %>
|
<% End If %>
<%
If PrintFlg = 1 Then
Response.Write(PrintFooter())
End if
%>
|
<%
End Function
%>
|
