%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim HikiukeninCD, FuridashininCD, UketorininCD
Dim ShiharaiBasyo
Dim BunsyoNaiyoCD, OldBunsyoNaiyoCD, ShiharaiKijitsu, Furidashibi
Dim Kingaku
Dim Tekiyo
Dim TegataNo
Dim Title
Dim Query, Content
'############################################### 1.データの引継ぎ
TegataNo = Request("TegataNo")
HikiukeninCD = Request("HikiukeninCD")
FuridashininCD = Request("FuridashininCD")
UketorininCD = Request("UketorininCD")
ShiharaiBasyo = Request("ShiharaiBasyo")
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
'OldBunsyoNaiyoCD = BunsyoNaiyoCD' Request("OldBunsyoNaiyoCD")
OldBunsyoNaiyoCD = Request("OldBunsyoNaiyoCD")
ShiharaiKijitsu = Request("ShiharaiKijitsu")
Furidashibi = Request("Furidashibi")
Tekiyo = Request("Tekiyo")
Kingaku = ConvMoneyToInt(Request("Kingaku"))
Dim BunsyoSyuruiCD
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
Dim TegataSyuruiKubun
TegataSyuruiKubun = BunsyoSyuruiCD
Dim BinType
BinType = Request("BinType")
Dim Tenmatsubi, TenmatsuKubun, HiuragakininCD
Tenmatsubi = Request("Tenmatsubi")
TenmatsuKubun = Request("TenmatsuKubun")
HiuragakininCD = Request("HiuragakininCD")
If HiuragakininCD = "ETCETC" Then
' HiuragakininCD = ""
End If
Dim SakuseiKaisyaCD
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
If SakuseiKaisyaCD = "" Then
SakuseiKaisyaCD = KaisyaCD
End If
'顛末修正のためのフラグ入替
If Request("NewTenmatsuKubun") <> "" Then
TenmatsuKubun = Request("NewTenmatsuKubun")
End If
If BinType = "Tenmatsu" Then
Query = "exec SPK手形発信"
Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & SakuseiKaisyaCD & "'" '作成会社CD
Query = Query & ",'" & TegataSyuruiKubun & "'" '文書種類CD
Query = Query & ",'" & BunsyoNaiyoCD & "'"
If HiuragakininCD = "" Then
Query = Query & ",null"
Else
Query = Query & ",'" & HiuragakininCD & "'"
End If
If TenmatsuKubun <> "TU" Then
Query = Query & ",'0'"
Else
Query = Query & ",'1'"
End If
Query = Query & ",'" & Tenmatsubi & "'"
Query = Query & ",'" & TenmatsuKubun & "'"
Set Content = OpenQuery(Query)
Response.Redirect("fk_tegata_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BinType=" & BinType & TenmatsuKubun)
ElseIf BinType = "Hasshin" Then
Query = "exec SPK手形発信"
Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & SakuseiKaisyaCD & "'" '作成会社CD
Query = Query & ",'" & TegataSyuruiKubun & "'" '文書種類CD
Query = Query & ",'" & BunsyoNaiyoCD & "'"
Query = Query & ",'" & UketorininCD & "'"
Query = Query & ",1"
Query = Query & ",NULL"
Query = Query & ",''"
Set Content = OpenQuery(Query)
Response.Redirect("fk_tegata_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)
ElseIf BinType = "Sakujyo" Then
Query = "exec SPK手形削除"
Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & SakuseiKaisyaCD & "'" '文書種類CD
Query = Query & ",'" & TegataSyuruiKubun & "'" '文書種類CD
Query = Query & ",'" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
Response.Redirect("fk_tegata_ichiran.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ShowDel=1")
ElseIf BinType = "Henkyaku" Then
Query = "exec SPK手形返却"
Query = Query & " '" & GB_SystemCD & "' ,'" & EnshuCD & "'" '演習CD
Query = Query & ", '" & KaisyaCD & "'" '会社CD
Query = Query & ", '" & SakuseiKaisyaCD & "'" '文書種類CD
Query = Query & ", '" & TegataSyuruiKubun & "'" '文書種類CD
Query = Query & ", '" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
Response.Redirect("fk_tegata_ichiran.asp?SenpoFlg=1&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&TegataJyotaiKubun=TU")
Else
'文書内容CDは内部的な自動シーケンスなのでチェックは不要(091001小野)
If 0=1 And BunsyoNaiyoCD <> OldBunsyoNaiyoCD Then
Query = "exec SPK手形取得"
Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & TegataSyuruiKubun & "'" '文書種類CD
Query = Query & ",'" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF ) Then
Title = ConvKubunMeisyo("手形種類区分", BunsyoSyuruiCD)
Response.Write("この" & Title & "No.は既に存在します")
%>
戻る
<%
Exit Sub
End If
End If
'手形小切手番号は単なる文字列なので振出一覧から重複チェックする(091001)
If BinType <> "Syusei" Then
Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TF', '" & BunsyoSyuruiCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If TegataNo = "" & Content.Fields("手形番号") Then
Title = ConvKubunMeisyo("手形種類区分", BunsyoSyuruiCD)
Response.Write("この" & Title & "No.は既に存在します")
%>
戻る
<%
Exit Sub
End If
Content.MoveNext
Loop
End If
If BinType = "Syusei" Then
Query = "exec SPK手形更新"
Else
Query = "exec SPK手形挿入"
End If
Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & KaisyaCD & "'" '作成会社CD
Query = Query & ",'" & TegataSyuruiKubun & "'" '文書種類CD
Query = Query & ",'" & BunsyoNaiyoCD & "'"
If BinType = "Syusei" Then
Query = Query & ",'" & OldBunsyoNaiyoCD & "'"
End If
Query = Query & ",'" & TegataNo & "'"
Query = Query & ",'S'"
Query = Query & ",'" & FuridashininCD & "'"
Query = Query & ",'" & UketorininCD & "'"
Query = Query & ",'" & HikiukeninCD & "'"
Query = Query & ",'" & Furidashibi & "'"
If ShiharaiKijitsu = "" Then
Query = Query & ",null"
Else
Query = Query & ",'" & ShiharaiKijitsu & "'"
End If
Query = Query & "," & Kingaku
Query = Query & ",'" & ShiharaiBasyo & "'"
Query = Query & ",'" & Tekiyo & "'"
Query = Query & ",'" & GakuseiNo & "'"
End If
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
While Not Content Is Nothing
If Content.Fields.Count > 0 Then
BunsyoNaiyoCD = Content.Fields(0)
End If
Set Content = Content.NextRecordset
Wend
Response.Redirect("fk_tegata_view.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD)
End Sub
%>