<% ' ' %> <% 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 %>