<% ' %> <% main() Sub main() 'マスタの標準消費税率を取得 Dim StdTaxRate Dim StdTaxRateUnso StdTaxRate = GB_Shohizei StdTaxRateUnso = GB_Shohizei If GB_ShohizeiMode = 1 Then Query = " SELECT * FROM TDA消費税率M WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND (標準 = '1' OR 運送費標準 = '1') " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("標準") = "1" Then StdTaxRate = Content.Fields("消費税率") End If If "" & Content.Fields("運送費標準") = "1" Then StdTaxRateUnso = Content.Fields("消費税率") End If Content.MoveNext Loop End If Dim TmpCnt Dim SyoriYMD Dim Query Dim Content Dim Action Dim TorihikisakiCD If Not(SessionCheck()) Then Exit Sub End If Dim BunsyoNaiyoCD, Syoribi, GakuseiBango Dim ShiharaiHoho , HasshinFlg, Tekiyo Dim GokeiKingaku, SyohizeiKingaku, ZeikomiKingaku Dim ShiireUriageBunsyoNaiyoCD, tmps Dim HakoFlg, SakujyoFlg Dim MeisaiUnsobi(5) Dim MeisaiUnsosakiCD(5) Dim MeisaiUnsohi(5) BunsyoNaiyoCD = Request("BunsyoNaiyoCD") TorihikisakiCD = Request("TorihikisakiCD") SyoriYMD = Request("SyoriYMD") Action = Request("Action") ShiireUriageBunsyoNaiyoCD = Request("ShiireUriageBunsyoNaiyoCD") Dim BunsyoSyuruiCD BunsyoSyuruiCD = "CD" Dim SyoruiMei SyoruiMei = "運送費請求書" Query = "exec SPC運送費請求書取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Syoribi = Content.Fields("処理日") TorihikisakiCD = Content.Fields("取引先CD") ShiharaiHoho = Content.Fields("支払方法") Tekiyo = Content.Fields("摘要") HakoFlg = Content.Fields("発行フラグ") SakujyoFlg = Content.Fields("削除フラグ") GakuseiBango = Content.Fields("学生番号") ii = 0 Do While Not(Content.BOF Or Content.EOF) ii = ii + 1 MeisaiUnsobi(ii) = Content.Fields("運送日") MeisaiUnsosakiCD(ii) = Content.Fields("運送先CD") MeisaiUnsohi(ii) = Content.Fields("運送費") Content.MoveNext Loop End If tmps = split(ShiireUriageBunsyoNaiyoCD, ",") Dim UnsohiSeikyusyoKyuVersionRiyo UnsohiSeikyusyoKyuVersionRiyo = GetEnshuParam(EnshuCD, "運送費請求書旧バージョン利用") %> <% = AppTitle %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(1)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "運送費請求書", "", "", "", "", "")) Response.Write(HttpL3( "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1( "保存","SubmitCheck()", "", "", "", "", "", "", "", "")) If UnsohiSeikyusyoKyuVersionRiyo = "1" Then Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_seikyu_ichiran.asp')", "請求先一覧","tblbtn( 'fu_seikyu_ichiran1.asp')", "","", "", "", "", "")) Else Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_seikyu_ichiran.asp')", "","", "","", "", "", "", "")) End If Response.Write(HttpL4("運送費請求書", "追加")) %>
　 <% = HtmlFooter %> <% End Sub %>