<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim Content2 Dim EnshuName Dim MasterEnshu Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = "" & Content.Fields("演習名称") MasterEnshu = "" & Content.Fields("マスター演習") End If '0件になったら税率0%を自動作成 Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TDA消費税率M " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Set Content = OpenQuery(Query) If Content.BOF Or Content.EOF Then Query = "" Query = Query & " " Query = Query & " INSERT INTO TDA消費税率M (システムCD, 演習CD, 消費税率, 標準, 運送費標準) " Query = Query & " VALUES ('" & GB_SystemCD & "', '" & EnshuCD & "', 0, '1', '1') " Set Content = OpenQuery(Query) End If Dim MSG MSG = Request("MSG") If MSG = "Update" Then MSG = "更新しました" End If %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '../../admenu_w.asp')", "マスター管理", "tblbtn( '../fm_master_select.asp')", "消費税率マスター", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) 'If MasterEnshu = "1" Then Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) 'Else ' If GB_Admin = 2 Then 'Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) ' Else ' Response.Write(HttpL3_1("保存", "SubmitCheck()", " 全演習に適用する ", "SubmitAll()", "", "", "", "", "", "")) '複雑過ぎてムリ ' End If 'End If Response.Write(HttpL3_2("戻る", "tblbtn('../fm_master_select.asp')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("消費税率マスター", "")) If MasterEnshu = "1" Then Response.Write(HttpL5("マスター演習に設定されているため変更できません")) Else Response.Write(HttpL5(MSG)) End If %>

対象演習名

<%= EnshuName %>

<% If PackageMode = 1 Then %> <% Else %> <% End If %> <% Dim ii, jj, Cnt ii = 0 Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TDA消費税率M " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " ORDER BY 消費税率 DESC " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) %> <% If PackageMode = 1 Then %> <% Else %> <% End If %> <% Content.MoveNext Loop %>

			標準税率	運送費税率
新規登録	％		標準税率	運送費税率
税率変更	" size="6" value="<% = Content.Fields("消費税率") %>" onKeyup="FormStrFloat(this,2,2);" onKeypress="FormStrFloat(this,2,2);" onBlur="FormStrFloatEdge(this,2,2,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(this);" class="tbox5">％	');">	" <% If "" & Content.Fields("標準") = "1" Then %> checked<% Else %> onClick="DefaultChange('<% = Content.Fields("消費税率") %>');"<% End If %>>	" <% If "" & Content.Fields("運送費標準") = "1" Then %> checked<% Else %> onClick="DefaultUnsoChange('<% = Content.Fields("消費税率") %>');"<% End If %>>	');">

※税率を変更・削除しても商品・伝票等に記録されている税率は変更されません

<% = HtmlFooter %> <% End Sub %>