<% ' ' %> <% 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 DenpyoNo, Torihikibi, DenpyoTekiyo,TorihikisakiCD '伝票番号、取引日、伝票摘要、取引先CD Dim DenpyoSyoriKubun,TujyoHenpinKubun,TmpTorihikisakiName '伝票処理区分、通常返品区分、取引先名称 Dim PageType 'ページの種類 "仕入" or "売上"かを判定 Dim SyohinCD(5) '商品コード Dim SyohinName(5) '商品名称 Dim Kakaku(5) '標準価格 Dim Suryo(5) '数量 Dim Tanka(5) '単価 Dim Kingaku(5) '金額 Dim GokeiKingaku '合計 Dim SyohizeiKingaku '消費税 Dim ZeikomiKingaku '税込み金額 Dim Checked_N,Checked_R Dim GakuseiShimei '学生氏名(係印) Dim OldDenpyoNo Dim ii Dim Query Dim Content Dim Genkin, Toza Dim Shimei DenpyoNo = Request("DenpyoNo") PageType= Request("Pagetype") Dim ShowDel ShowDel = Request("ShowDel") Dim LabelSoumu Dim LabelTanto Dim LabelKakari LabelSoumu = "" LabelTanto = "" LabelKakari = "係 印" If MHMINRANLEFT <> "" Then LabelSoumu = MHMINRANLEFT End If If MHMINRANCENTER <> "" Then LabelTanto = MHMINRANCENTER End If If MHMINRANRIGHT <> "" Then LabelKakari = MHMINRANRIGHT End If Dim title title = "材料仕入伝票" Dim GakuseiBango If Session(HomeAlias & "EnshuKubun") = "P" AND GB_JisyaFlag = "0" Then Else GakuseiBango = GB_GakuseiNo End If Dim ReturnValue ReturnValue = "" & Request("ReturnValue") 'Response.Write("あ" & ReturnValue & "あ") 'Exit Sub Dim TmpCnt Dim ErrorFlg ErrorFlg = Request("ErrorFlg") '追加モードでリジェクトされた場合はクエリを取得(090528小野) If ErrorFlg <> "" Then DenpyoNo = Request("DenpyoNo") Torihikibi = Request("Torihikibi") TorihikisakiCD = Request("TorihikisakiCD") TujyoHenpinKubun = Request("TujyoHenpinKubun") DenpyoTekiyo = Request("DenpyoTekiyo") If TujyoHenpinKubun = "N" Then '通常 Checked_N = "checked" Checked_R = "" Else Checked_R = "checked" Checked_N = "" End If '修正モード ElseIf DenpyoNo <> "" Then OldDenpyoNo = DenpyoNo 'この場合のみOldDenpyoNoを持たせる(090528小野) '/////// 1.「伝票」ヘッダ部のデータを取得。 Query = "exec SPK伝票_材料仕入伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) DenpyoTekiyo = Content.Fields("伝票摘要") DenpyoSyoriKubun = Content.Fields("伝票処理区分") TorihikisakiCD = Content.Fields("取引先CD") TujyoHenpinKubun = Content.Fields("通常返品区分") GakuseiShimei = Content.Fields("氏名") GakuseiBango = Content.Fields("学生番号") If TujyoHenpinKubun = "N" Then '通常 Checked_N = "checked" Checked_R = "" Else Checked_R = "checked" Checked_N = "" End If End If Else Checked_N = "checked" Checked_R = "" End If Dim jj,tmps ' Dim JidoBangoDenpyo ' JidoBangoDenpyo = GetEnshuParam(EnshuCD, "自動番号伝票") '自動番号伝票フラグ・実践日取得 Dim JidoBangoDenpyo Dim Jissenbi Jissenbi = "" Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then JidoBangoDenpyo = "" & Content.Fields("自動番号伝票") Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日")) End If Dim KouriRiyo KouriRiyo = KourihanbaiRiyo() '消費税率配列作成(消費税率マスタ及び商品マスタ・現在伝票からすべての設定税率を取得する) 'まず仮配列に代入しその後本配列にソートする Dim TmpTaxRateAry ReDim TmpTaxRateAry(0) Dim TmpTaxRate 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) ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '配列+1 TmpTaxRateAry(UBound(TmpTaxRateAry)) = Content.Fields("消費税率") 'Response.Write(TmpTaxRateAry(UBound(TmpTaxRateAry)) & "
") TmpTaxRate = TmpTaxRate & "'" & Content.Fields("消費税率") & "'" '存在チェック用羅列 Content.MoveNext Loop Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("標準消費税率") <> "" Then If InStr(TmpTaxRate, "'" & Content.Fields("標準消費税率") & "'") < 1 Then ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '配列+1 TmpTaxRateAry(UBound(TmpTaxRateAry)) = Content.Fields("標準消費税率") TmpTaxRate = TmpTaxRate & "'" & Content.Fields("標準消費税率") & "'" '存在チェック用羅列 End If End If Content.MoveNext Loop Query = "exec SPK伝票_材料仕入明細取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("消費税率") <> "" Then If InStr(TmpTaxRate, "'" & Content.Fields("消費税率") & "'") < 1 Then ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '配列+1 TmpTaxRateAry(UBound(TmpTaxRateAry)) = Content.Fields("消費税率") TmpTaxRate = TmpTaxRate & "'" & Content.Fields("消費税率") & "'" '存在チェック用羅列 End If End If Content.MoveNext Loop '本配列にソート Dim TCnt Dim TaxRateAry ReDim TaxRateAry(0) ReDim PreServe TaxRateAry(UBound(TmpTaxRateAry)) '仮配列と同じ長さ For TCnt = 1 To UBound(TaxRateAry) TaxRateAry(Tcnt) = 0 'すべてにゼロを代入 Next TmpTaxRate = "" '存在チェック用羅列リセット For TCnt = 1 To UBound(TaxRateAry) For TmpCnt = 1 To UBound(TmpTaxRateAry) 'その時点で有効な最大税率を取得する If InStr(TmpTaxRate, "'" & TmpTaxRateAry(TmpCnt) & "'") < 1 Then If TmpTaxRateAry(TmpCnt) > TaxRateAry(TCnt) Then TaxRateAry(TCnt) = TmpTaxRateAry(TmpCnt) End If End If Next TmpTaxRate = TmpTaxRate & "'" & TaxRateAry(TCnt) & "'" '存在チェック用羅列 Next For TmpCnt = 1 To UBound(TmpTaxRateAry) ' Response.Write(TmpTaxRateAry(TmpCnt) & "
") Next For TCnt = 1 To UBound(TaxRateAry) ' Response.Write(TaxRateAry(TCnt) & "
") Next 'Response.Write(TmpTaxRate & "
") 'Exit Sub %> <% = AppTitle %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(2)) 'Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", "材料仕入伝票", "", "", "", "", "")) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "伝票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", "材料仕入伝票", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) If OldDenpyoNo <> "" Then Response.Write(HttpL3_2("追加", "tblbtn( 'fk_zairyoshiire.asp?PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "一覧表示", "tblbtn( 'fk_zairyoshiire_ichiran.asp?DenpyoNo=" & DenpyoNo & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fk_zairyoshiire_ichiran.asp?DenpyoNo=" & DenpyoNo & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "", "", "", "", "", "", "", "")) End If If OldDenpyoNo <> "" Then Response.Write(HttpL4(Title, "修正")) Else Response.Write(HttpL4(Title, "追加")) End If Response.Write(HttpL5(ErrorFlg)) %>
<% = HtmlFooter %> <% End Sub %>