<% Function Tegata(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg) Dim RouteType RouteType = Request("RouteType") Dim SenpoFlg Dim Title Title = ConvKubunMeisyo("手形種類区分", BunsyoSyuruiCD) Dim JitsuinRiyo Dim SoufuzumiTegataHyoji Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SoufuzumiTegataHyoji = "" & Content.Fields("送付済み手形表示様式") If BunsyoSyuruiCD = "TG" Then SoufuzumiTegataHyoji = "" & Content.Fields("送付済み小切手表示様式") End If JitsuinRiyo = "" & Content.Fields("実印利用") End If SenpoFlg = 0 If SakuseiKaisyaCD <> KaisyaCD Then SenpoFlg = 1 End If Dim Query, Content Dim TmpKaisyaCD Dim HikiukeninCD, FuridashininCD, UketorininCD Dim ShiharaiBasyo Dim ShiharaiKijitsu, Furidashibi Dim Kingaku Dim Tekiyo Dim HasshinFlg Dim Tenmatsubi, TenmatsuKubun, HiuragakininCD, UragakininCD Dim SakujyoFlg Dim SojyushinKubun Dim MainTenmatsubi, MainTenmatsuKubun, MainHiuragakininCD Dim FuridashininMeisyo, UketorininMeisyo, HikiukeninMeisyo, HiuragakininMeisyo, ShiharaibasyoMeisyo, TegataSyuruiMeisyo Dim UragakininMeisyo, TenmatsuKubunMeisyo Dim TegataNo Dim BunsyoNaiyouSEQ If GB_JisyaFlag <> "" Then '運用管理・演習管理(自社フラグ無し)では開封フラグを立てない(061213小野) 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) 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 & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TegataNo = Content.Fields("手形番号") FuridashininMeisyo = Content.Fields("振出人名称") UketorininMeisyo = Content.Fields("受取人名称") HikiukeninMeisyo = Content.Fields("引受人名称") HiuragakininMeisyo = Content.Fields("被裏書人名称") ShiharaibasyoMeisyo = Content.Fields("支払場所名称") TegataSyuruiMeisyo = Content.Fields("手形種類名称") HikiukeninCD = Content.Fields("引受人CD") FuridashininCD = Content.Fields("振出人CD") UketorininCD = Content.Fields("受取人CD") ShiharaiBasyo = Content.Fields("支払場所CD") BunsyoNaiyoCD = Content.Fields("文書内容CD") ShiharaiKijitsu = SetTimeYYYYMMDD(Content.Fields("支払期日")) Furidashibi = SetTimeYYYYMMDD(Content.Fields("取引日")) Tekiyo = Content.Fields("摘要") Kingaku = Content.Fields("金額") HasshinFlg = Content.Fields("発行フラグ") SakujyoFlg = Content.Fields("削除フラグ") Tenmatsubi = SetTimeYYYYMMDD(Content.Fields("顛末日")) TenmatsuKubun = Content.Fields("顛末区分") SojyushinKubun = Content.Fields("送受信区分") HiuragakininCD = Content.Fields("被裏書人CD") End If MainTenmatsubi = Tenmatsubi MainTenmatsuKubun = TenmatsuKubun MainHiuragakininCD = HiuragakininCD Dim UketorininRyaku, Uketorinin, HikiukeninRyaku, Hikiukenin If HikiukeninCD = "etc" Then HikiukeninRyaku = "その他" Hikiukenin = "その他" Else HikiukeninRyaku = HikiukeninMeisyo Hikiukenin = HikiukeninMeisyo End If If UketorininCD = "etc" Then UketorininRyaku = "その他" Uketorinin = "その他" Else UketorininRyaku = ConvKaisyaRyakuMeisyo(UketorininCD) Uketorinin = ConvKaisyaMeisyoDx(EnshuCD, UketorininCD) End If If IsNull(TenmatsuKubun) Then TenmatsuKubun = "" End If Dim TegataType TegataType = "" If SojyushinKubun = "S" And HasshinFlg = 0 Then TegataType = "VA" ElseIf SojyushinKubun = "S" And HasshinFlg <> 0 Then TegataType = "VB" ElseIf SojyushinKubun = "R" And HasshinFlg <> 2 And TenmatsuKubun = "" Then TegataType = "VC" ElseIf SojyushinKubun = "R" And HasshinFlg <> 2 And TenmatsuKubun <> "" Then TegataType = "VD" ElseIf SojyushinKubun = "R" And HasshinFlg >= 2 Then TegataType = "VF" ElseIf SojyushinKubun = "U" Then TegataType = "VE" ElseIf SojyushinKubun = "H" Then TegataType = "VG" End IF Dim BackColor Dim BackColor2 Dim BackColor3 BackColor = "FFF8DB" BackColor2 = "FFFFF1" BackColor3 = "FFF0C0" If BunsyoSyuruiCD = "TG" Then BackColor = "FBFFE0" BackColor2 = "FCFFFC" BackColor3 = "F7FFC8" End If 'DEBUG 'Response.Write("デバッグ中だす(^^ゞ
") 'Response.Write("EnshuCD:"&EnshuCD&"
") 'Response.Write("KaisyaCD:"&KaisyaCD&"
") 'Response.Write("SakuseiKaisyaCD:"&SakuseiKaisyaCD&"
") 'Response.Write("BunsyoSyuruiCD:"&BunsyoSyuruiCD&"
") 'Response.Write("BunsyoNaiyoCD:"&BunsyoNaiyoCD&"
") 'Response.Write("AutoFlg:"&AutoFlg&"
") 'Response.Write("PrintFlg:"&PrintFlg&"
") 'Response.Write("RouteType:"&RouteType&"
") 'Response.Write("TegataNo:"&TegataNo&"
") 'Response.Write("SojyushinKubun:"&SojyushinKubun&"
") 'Response.Write("TegataType:"&TegataType&"
") 'Response.Write("HasshinFlg:" & HasshinFlg & "
") 'Response.Write("TenmatsuKubun:"&TenmatsuKubun&"
") %>
<% 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 %>"> <% If PrintFlg = 1 Then '印刷時は裏書を回り込み %>
<% '社長室・総務部から入った場合の記述を追加 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 %> <% 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 %> <% End If %>
<% If JitsuinRiyo = "1" And InStr(RouteType, "Hakushi") < 1 Then %> <% End If %>
<% If BunsyoSyuruiCD = "TK" Then %> <% End If %> <% If BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TY" Then %> <% End If %> <% If BunsyoSyuruiCD = "TG" Then %> <% End If %>
NO.<% = TegataNo %>
受取人:
<% = Uketorinin %>
引受人:
<% = Hikiukenin %>
金額:<% = ConvIntToMoney(Kingaku, false, false) %>
支払期日:
<% = SetDate(ShiharaiKijitsu, 3) %>
支払場所:
<% = ShiharaibasyoMeisyo %>
振出日:
<% = SetDate(Furidashibi, 3) %>
摘要:
<% = HardWrap(Tekiyo) %>
<% '送付済み(印刷時は半透明処理が効かないため除外する) If PrintFlg = 0 And TegataType = "VB" And InStr(RouteType, "SMail") = 0 And InStr(RouteType, "syatyo") = 0 Then %>
IMG
<% '廃棄済み(印刷時は半透明処理が効かないため除外する) ElseIf PrintFlg = 0 And SakujyoFlg = 1 And TegataType = "VA" And InStr(RouteType, "SMail") = 0 And InStr(RouteType, "syatyo") = 0 Then %>
IMG
<% 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 %>
受取人 <% = Uketorinin %>
振出日 <% = 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 %> <% End If %>
支払期日
<% = SetDate(ShiharaiKijitsu, 3) %>
支払場所
<% = ShiharaibasyoMeisyo %>
 
<% 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" And InStr(RouteType, "Hakushi") < 1 Then %> <% End If %>
引受人 
<% = ConvKaisyaJyusyo1(EnshuCD, HikiukeninCD) %>
<% = Hikiukenin %>
<% If JitsuinRiyo = "1" And InStr(RouteType, "Hakushi") < 1 Then %> <% End If %>
 
<% If (TegataType = "VC" OR TegataType = "VD" OR TegataType = "VE" Or TegataType = "VF") And BunsyoSyuruiCD <> "TG" 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 %>
(裏面) <% 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 %>