%
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 %>">
<%
'社長室・総務部から入った場合の記述を追加 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 %>
|
(裏面)
<% 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
%>
|