% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim SoushinButton ' SoushinButton = "送信" ' SoushinButton = "取引相手に手渡す(振出)" SoushinButton = "送信(取引相手に振出)" Dim SoushinMess ' SoushinMess = "送信" SoushinMess = "振出" Dim RouteType RouteType = Request("RouteType") Dim SenpoFlg Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim Title Title = ConvKubunMeisyo("手形種類区分", BunsyoSyuruiCD) Dim Query, Content Dim TmpKaisyaCD Dim SakuseiKaisyaCD Dim HikiukeninCD, FuridashininCD, UketorininCD Dim ShiharaiBasyo Dim BunsyoNaiyoCD, ShiharaiKijitsu, Furidashibi Dim Kingaku Dim Tekiyo Dim HasshinFlg Dim Tenmatsubi, TenmatsuKubun, HiuragakininCD Dim SakujyoFlg Dim SojyushinKubun Dim Action Action = Request("Action") Dim KaisyaCD1 Dim AdminMailFlag AdminMailFlag = 0 'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得 if Request("KaisyaCD1") <> "" then AdminMailFlag = 1 KaisyaCD = Request("KaisyaCD1") end if BunsyoNaiyoCD = Request("BunsyoNaiyoCD") '##### 2007.07.02 APPEND OldBunsyoNaiyoCD Dim OldBunsyoNaiyoCD OldBunsyoNaiyoCD = BunsyoNaiyoCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") If SakuseiKaisyaCD = "" Then SakuseiKaisyaCD = KaisyaCD End If If SakuseiKaisyaCD = KaisyaCD Then SenpoFlg = 0 Else SenpoFlg = 1 End If '########################################################################## '手形タイプが裏書なら作成会社CDが自会社CDではないので、ここで改めて取得する 'ここより前で取得してしまうと、自会社が作成した文書でないということになり、SenpoFlgに1が立ってしまう。 'TEST 'SakuseiKaisyaCD = "K001-SUZUKI" Dim sjk,skcd 'Dim ukcd sjk="" skcd="" 'ukcd="" 'WHERE句から作成会社CDの条件を除き、抽出(その他の手形と競合する可能性がないとは言えないので注意すること) Query = "select * from TGA手形F where システムCD= '" & GB_SystemCD & "' and 演習CD= '"& EnshuCD &"' and 会社CD= '"& KaisyaCD &"' and 文書種類CD= '"& BunsyoSyuruiCD &"' and 文書内容CD= '"& BunsyoNaiyoCD &"' " Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then sjk = Content.Fields("送受信区分") skcd = Content.Fields("作成会社CD") End If if sjk = "U" then SakuseiKaisyaCD = skcd 'ukcd = "1" 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 HikiukeninCD = Content.Fields("引受人CD") FuridashininCD = Content.Fields("振出人CD") UketorininCD = Content.Fields("受取人CD") ShiharaiBasyo = Content.Fields("支払場所CD") BunsyoNaiyoCD = Content.Fields("文書内容CD") ShiharaiKijitsu = Content.Fields("支払期日") Furidashibi = Content.Fields("取引日") Tekiyo = Content.Fields("摘要") Kingaku = Content.Fields("金額") HasshinFlg = Content.Fields("発行フラグ") SakujyoFlg = Content.Fields("削除フラグ") Tenmatsubi = "" & Content.Fields("顛末日") TenmatsuKubun = Content.Fields("顛末区分") HiuragakininCD = Content.Fields("被裏書人CD") SojyushinKubun = Content.Fields("送受信区分") End If If IsNull(TenmatsuKubun) Then TenmatsuKubun = "" End If Dim UketorininRyaku, Uketorinin, HikiukeninRyaku, Hikiukenin If HikiukeninCD = "etc" Then HikiukeninRyaku = "その他" Hikiukenin = "その他" Else HikiukeninRyaku = ConvKaisyaRyakuMeisyo(HikiukeninCD) Hikiukenin = ConvKaisyaMeisyoDx(EnshuCD, HikiukeninCD) End If If UketorininCD = "etc" Then UketorininRyaku = "その他" Uketorinin = "その他" Else UketorininRyaku = ConvKaisyaRyakuMeisyo(UketorininCD) Uketorinin = ConvKaisyaMeisyoDx(EnshuCD, UketorininCD) End If Dim TegataSyusei Dim KogitteHenkyaku Dim GinkoMadoguchiHyoji Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TegataSyusei = Content.Fields("手形修正") KogitteHenkyaku = "" & Content.Fields("小切手返却利用") GinkoMadoguchiHyoji = "" & Content.Fields("銀行窓口表示") End If '取引先銀行講座がいくつ存在するかのチェック Dim KozaCnt KozaCnt = 0 Dim TmpGinkoCD '銀行窓口非利用若しくは銀行受領控えなら除外 If GinkoMadoguchiHyoji = "1" And SenpoFlg = 1 And SojyushinKubun = "R" And HasshinFlg = "0" Then Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'T'" Set Content = OpenQuery(Query) Do While Not(Content.EOF Or Content.BOF) '口座を持っている銀行数をカウント If TmpGinkoCD <> Content.Fields("銀行CD") Then TmpGinkoCD = Content.Fields("銀行CD") KozaCnt = KozaCnt + 1 End If Content.MoveNext Loop End If '会社配列作成 Dim KaishaCDA Dim KaishaNameA Dim KaishaShijoA ReDim KaishaCDA(0) ReDim KaishaNameA(0) ReDim KaishaShijoA(0) Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) TmpKaisyaCD = Content.Fields("会社CD") If TmpkaisyaCD <> KaisyaCD And Content.Fields("業種CD") <> "B" Then '銀行を除外 ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1) '配列数+1 ReDim PreServe KaishaNameA(UBound(KaishaCDA)) ReDim PreServe KaishaShijoA(UBound(KaishaCDA)) KaishaCDA(UBound(KaishaCDA)) = "" & Content.Fields("会社CD") KaishaNameA(UBound(KaishaCDA)) = "" & Content.Fields("会社名称") KaishaShijoA(UBound(KaishaCDA)) = "" & Content.Fields("市場CD") End If Content.MoveNext Loop ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1) '配列数+1 ReDim PreServe KaishaNameA(UBound(KaishaCDA)) ReDim PreServe KaishaShijoA(UBound(KaishaCDA)) KaishaCDA(UBound(KaishaCDA)) = "etc" KaishaNameA(UBound(KaishaCDA)) = "その他" KaishaShijoA(UBound(KaishaCDA)) = "" Dim ii %> <% = HtmlHeader("") %>
<% = HtmlFooter %> <% End Sub %>