<!-- #include file="../../include.asp" --> <% '<!-- '################################################ ' 名称 :演習追加入力 ' 作成日:2002/9/4 ' 作成者:徳田 ' 目的 :演習追加入力の画面を表示する。 ' 概要 : ' <<表示>> ' ・演習追加入力画面 ' '############################################### '--> main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim EnshuName, EnshuID, EnshuPassword Dim JidoBangoDenpyo, JidoBangoShiireUriageSyorui, JidoBangoGinkoSyorui, JidoBangoTegata, JidoBangoRyosyusyo Dim RiyoMailKubun, PrintHeaderHyoji, TutyoSyusei, MeishiKyuVersionRiyo, NatsuinRiyo Dim TozaHikidashiFurikomiKogitteHituyo, TegataSyusei Dim SyohinCheck, GenbutsuCheck, UnsohiSeikyusyoKyuVersionRiyo Dim SyohinNyusyukkoSeikousei, SyohinKaihatukaRiyo Dim ErrMsg Dim KitakuSokoRiyo Dim NyuShukkoTanto Dim EnshuKubun Dim WebCollaboRiyo Dim KouriHanbaiRiyo Dim GenkaKaikeiRiyo Dim ShiireUriageJyuHasshin Dim ShiireUriageSyoruiHikae Dim SouhuzumiTegataHyoji Dim Jissenbi Dim MasterEnshu Dim InputShiwaketyoKyuVersionRiyo Dim JitsuinRiyo Dim UkeshoKakunin Dim SenpoHitsuyo Dim ShukkoUkeshoHitsuyo Dim AiteShukkoHitsuyo Dim JishaZaikoHitsuyo Dim ShijokanShiireRiyo Dim KanribuUnchinShogakari Dim ShiireUriageKenninKI '見積依頼書 Dim ShiireUriageKenninKM '見積書 Dim ShiireUriageKenninKC '注文書 Dim ShiireUriageKenninKU '注文請書 Dim ShiireUriageKenninKB '物品受領書 Dim ShiireUriageKenninKN '納品請求書 Dim ShiireUriageKenninKX '管理部買入申込書 Dim ShiireUriageKenninKO '管理部宛物品受領書 Dim ShiireUriageKenninKY '管理部売渡申込書 Dim ShiireUriageKenninKP '管理部宛納品請求書 Dim ShameiYusen Dim HaraidashiTankaRiyo Dim KurikoshiEnshuCD Dim KurikoshiEnshuMei Dim Query Dim Content EnshuCD = Request("EnshuCD") If EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = Content.Fields("演習名称") EnshuKubun = Content.Fields("演習区分") EnshuID = Content.Fields("演習管理者ID") EnshuPassword = Content.Fields("演習管理者パスワード") JidoBangoDenpyo = Content.Fields("自動番号伝票") JidoBangoShiireUriageSyorui = Content.Fields("自動番号仕入売上書類") JidoBangoGinkoSyorui = Content.Fields("自動番号銀行書類") JidoBangoTegata = Content.Fields("自動番号手形") JidoBangoRyosyusyo = Content.Fields("自動番号領収書") RiyoMailKubun = Content.Fields("メール利用") PrintHeaderHyoji = Content.Fields("印刷ヘッダー表示") TutyoSyusei = Content.Fields("通帳手動修正") MeishiKyuVersionRiyo = Content.Fields("名刺作成旧バージョン利用") InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用") NatsuinRiyo = Content.Fields("捺印利用") TozaHikidashiFurikomiKogitteHituyo = Content.Fields("当座引出振込小切手必要") TegataSyusei = Content.Fields("手形修正") SyohinCheck = Content.Fields("商品チェック表示") GenbutsuCheck = Content.Fields("現物チェック表示") UnsohiSeikyusyoKyuVersionRiyo = Content.Fields("運送費請求書旧バージョン利用") SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用") SyohinKaihatukaRiyo = Content.Fields("商品開発課利用") KitakuSokoRiyo = "" & Content.Fields("寄託倉庫利用") NyuShukkoTanto = "" & Content.Fields("倉庫部利用") WebCollaboRiyo = "" & Content.Fields("WebCollabo利用") KouriHanbaiRiyo = Content.Fields("小売販売有無") GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") ShiireUriageJyuHasshin = Content.Fields("仕入売上書類受発信利用") ShiireUriageSyoruiHikae = Content.Fields("仕入売上書類控え印刷") ShameiYusen = "" & Content.Fields("仕入売上書類社名優先") Dim TmpKnnin If InStr("" & Content.Fields("仕入売上書類検認利用"), ";") > 0 Then TmpKnnin = Split("" & Content.Fields("仕入売上書類検認利用"), ";") Else TmpKnnin = Split("" & Content.Fields("仕入売上書類検認利用"), ",") '旧仕様整合のため End If Dim KCnt For KCnt = 0 To UBound(TmpKnnin) TmpKnnin(KCnt) = Trim(TmpKnnin(KCnt)) If TmpKnnin(KCnt) = "KI" Then ShiireUriageKenninKI = TmpKnnin(KCnt) '見積依頼書 ElseIf TmpKnnin(KCnt) = "KM" Then ShiireUriageKenninKM = TmpKnnin(KCnt) '見積書 ElseIf TmpKnnin(KCnt) = "KC" Then ShiireUriageKenninKC = TmpKnnin(KCnt) '注文書 ElseIf TmpKnnin(KCnt) = "KU" Then ShiireUriageKenninKU = TmpKnnin(KCnt) '注文請書 ElseIf TmpKnnin(KCnt) = "KB" Then ShiireUriageKenninKB = TmpKnnin(KCnt) '物品受領書 ElseIf TmpKnnin(KCnt) = "KN" Then ShiireUriageKenninKN = TmpKnnin(KCnt) '納品請求書 ElseIf TmpKnnin(KCnt) = "KX" Then ShiireUriageKenninKX = TmpKnnin(KCnt) '管理部買入申込書 ElseIf TmpKnnin(KCnt) = "KO" Then ShiireUriageKenninKO = TmpKnnin(KCnt) '管理部宛物品受領書 ElseIf TmpKnnin(KCnt) = "KY" Then ShiireUriageKenninKY = TmpKnnin(KCnt) '管理部売渡申込書 ElseIf TmpKnnin(KCnt) = "KP" Then ShiireUriageKenninKP = TmpKnnin(KCnt) '管理部宛納品請求書 End If Next SouhuzumiTegataHyoji = Content.Fields("送付済み手形表示様式") Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日")) JitsuinRiyo = "" & Content.Fields("実印利用") UkeshoKakunin = "" & Content.Fields("注文請書確認利用") SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") ShukkoUkeshoHitsuyo = "" & Content.Fields("出庫時注文請書必要") KanribuUnchinShogakari = "" & Content.Fields("管理部買入売渡運賃諸掛") AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要") JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要") ShijokanShiireRiyo = "" & Content.Fields("仕入他市場管理部利用") MasterEnshu = Content.Fields("マスター演習") HaraidashiTankaRiyo = "" & Content.Fields("出庫時払出単価入力") 'この後ろに追加すると期末繰越先演習のパラメータを取得してしまうので注意 KurikoshiEnshuCD = "" & Content.Fields("期末繰越先演習CD") If KurikoshiEnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & KurikoshiEnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KurikoshiEnshuMei = "" & Content.Fields("演習名称") End If End If End If Else End If If KanribuUnchinShogakari = "" Then KanribuUnchinShogakari = "1" End If If UkeshoKakunin = "" Then UkeshoKakunin = "1" End If If ShameiYusen <> "1" Then ShameiYusen = "0" End If If HaraidashiTankaRiyo = "" Then HaraidashiTankaRiyo = "0" End If If WebCollaboRiyo = "" Then WebCollaboRiyo = "0" End If If GenkaKaikeiRiyo = "" Then GenkaKaikeiRiyo = "0" End If Dim RouteType RouteType = Request("RouteType") If RiyoMailKubun = "" Or IsNull(RiyoMailKubun) Then RiyoMailKubun = "1" End If If ShiireUriageSyoruiHikae <> "0" Then ShiireUriageSyoruiHikae = "1" '2枚印刷は廃止。控え印刷フラグに書き換える。(190809小野) End If %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 1; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" method="GET" name="form1" action="fm_enshu3_bin.asp"> <input type="hidden" name="RouteType" value="<% = RouteType %>"> <input type="hidden" name="DbEnshuCD" value="<% = EnshuCD%>"> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If Request("RouteType") = "Kantan" Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "演習管理", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If DebugFlg > 1 Or MasterEnshu <> "1" Then 'Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu3.asp?EnshuCD=" & EnshuCD & "')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "", "", "")) Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu3.asp?EnshuCD=" & EnshuCD & "')", "演習操作", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control');", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "")) Else 'Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1(" 演習操作 ", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin')", "", "", "", "", "", "")) End If If GB_Admin = 1 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu4_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "")) ' Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", "")) Else Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu4_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "")) ' Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("演習管理", "仕入販売")) If MasterEnshu = "1" Then Response.Write(HttpL5("マスター演習は設定を変更出来ません")) Else Response.Write(HttpL5("<font color=""#FF0000"">" & ErrMsg & "</font>")) End If %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%"> <tr> <TD ALIGN="CENTER"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="740" HEIGHT="100%"> <TR> <TD HEIGHT="30" VALIGN="TOP" ALIGN="left" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <TABLE WIDTH="800" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse" width="740"> <tr> <td height="24" align="center" bgcolor="#FFEE88">演習名称</td> <td height="24" align="center"><% = EnshuName %></td> <td height="24" align="center" bgcolor="#FFEE88" onclick="tblbtn('fm_enshu0_view.asp?EnshuCD=<% = EnshuCD %>')">演習コード</td> <td height="24" align="center"><% = EnshuCD %></td> </tr> </table> <input type="hidden" name="EnshuCD" value="<% = EnshuCD %>"> <TABLE WIDTH="740" BORDER="0" CELLPADDING="0" CELLSPACING="0"> <tr> <td valign="top"> <TABLE WIDTH="800" HEIGHT="100%" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse"> <!-- <tr> <td height="20" bgcolor="#FFEE88"><nbsp>入庫には相手出庫を必要とする / 出庫には在庫を必要とする</nbsp></td> <td height="20"> <% If SyohinNyusyukkoSeikousei <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %> <% If SyohinNyusyukkoSeikousei <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %> </td> </tr> --> <tr> <td width="330" height="20" bgcolor="#FFEE88"><nbsp>入庫には相手出庫を必要とする</nbsp></td> <td width="470" height="20"> <% If AiteShukkoHitsuyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %> <% If AiteShukkoHitsuyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88"><nbsp>出庫には在庫を必要とする</nbsp></td> <td height="20"> <% If JishaZaikoHitsuyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %> <% If JishaZaikoHitsuyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88"><nbsp>出庫時に払出単価を入力する</nbsp></td> <td height="20"> <% If HaraidashiTankaRiyo <> "0" Then Response.Write("<font color=""#888888"">入力する</font>") Else Response.Write("入力する") End If %> <% If HaraidashiTankaRiyo <> "1" Then Response.Write("<font color=""#888888"">入力しない</font>") Else Response.Write("入力しない") End If %> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88">出庫時の注文請書または管理部売渡申込書の利用</td> <td height="20"> <% If ShukkoUkeshoHitsuyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %> <% If ShukkoUkeshoHitsuyo <> "3" Then Response.Write("<font color=""#888888"">発信が必要</font>") Else Response.Write("発信が必要") End If %> <% If ShukkoUkeshoHitsuyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %> <% If ShukkoUkeshoHitsuyo <> "2" Then Response.Write("<font color=""#888888"">利用させない</font>") Else Response.Write("利用させない") End If %> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88">他市場の管理部からの仕入を利用する</td> <td height="20"> <% If ShijokanShiireRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If ShijokanShiireRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88">仕入販売書類作成時の先方書類の利用</td> <td height="20"> <% If SenpoHitsuyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %> <% If SenpoHitsuyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %> <% If SenpoHitsuyo <> "2" Then Response.Write("<font color=""#888888"">利用させない</font>") Else Response.Write("利用させない") End If %> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88">注文請書確認手続きを利用する</td> <td height="20"> <% If UkeshoKakunin <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If UkeshoKakunin <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88">管理部買入・売渡の運賃諸掛を商社側に固定する</td> <td height="20"> <% If KanribuUnchinShogakari <> "1" Then Response.Write("<font color=""#888888"">固定する</font>") Else Response.Write("固定する") End If %> <% If KanribuUnchinShogakari <> "0" Then Response.Write("<font color=""#888888"">固定しない</font>") Else Response.Write("固定しない") End If %> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88">仕入販売書類の受発信機能を利用する</td> <td height="20"> <% If ShiireUriageJyuHasshin <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If ShiireUriageJyuHasshin <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> </td> </tr> <% If ShiireHanbaiKennin = 1 Then %> <tr> <td height="20" bgcolor="#FFEE88">仕入販売書類の発信前に教師の確認を必要とする</td> <td height="20"> <% If ShiireUriageKenninKI <> "KI" Then Response.Write("<font color=""#888888"">見積依頼書</font>") Else Response.Write("見積依頼書") End If %> <% If ShiireUriageKenninKC <> "KC" Then Response.Write("<font color=""#888888"">注文書</font>") Else Response.Write("注文書") End If %> <% If ShiireUriageKenninKB <> "KB" Then Response.Write("<font color=""#888888"">物品受領書</font>") Else Response.Write("物品受領書") End If %> <% If ShiireUriageKenninKX <> "KX" Then Response.Write("<font color=""#888888"">管理部買入申込書</font>") Else Response.Write("管理部買入申込書") End If %><br> <% If ShiireUriageKenninKM <> "KM" Then Response.Write("<font color=""#888888"">見積書</font>") Else Response.Write("見積書") End If %> <% If ShiireUriageKenninKU <> "KU" Then Response.Write("<font color=""#888888"">注文請書</font>") Else Response.Write("注文請書") End If %> <% If ShiireUriageKenninKN <> "KN" Then Response.Write("<font color=""#888888"">納品請求書</font>") Else Response.Write("納品請求書") End If %> <% If ShiireUriageKenninKY <> "KY" Then Response.Write("<font color=""#888888"">管理部売渡申込書</font>") Else Response.Write("管理部売渡申込書") End If %><br> <% If ShiireUriageKenninKO <> "KO" Then Response.Write("<font color=""#888888"">管理部宛物品受領書</font>") Else Response.Write("管理部宛物品受領書") End If %> <% If ShiireUriageKenninKP <> "KP" Then Response.Write("<font color=""#888888"">管理部宛納品請求書</font>") Else Response.Write("管理部宛納品請求書") End If %> </td> </tr> <% End If %> <tr> <!-- <td height="20" bgcolor="#FFEE88">仕入販売書類の作成側の印刷様式</td> <td height="20"> <% If ShiireUriageSyoruiHikae <> "0" Then Response.Write("<font color=""#888888"">通常印刷</font>") Else Response.Write("通常印刷") End If %> <% If ShiireUriageSyoruiHikae <> "1" Then Response.Write("<font color=""#888888"">控え印刷</font>") Else Response.Write("控え印刷") End If %> <% If ShiireUriageSyoruiHikae <> "2" Then Response.Write("<font color=""#888888"">2枚印刷</font>") Else Response.Write("2枚印刷") End If %> </td> --> <td height="20" bgcolor="#FFEE88">仕入販売書類の控え印刷</td> <td height="20"> <% If ShiireUriageSyoruiHikae <> "1" Then Response.Write("<font color=""#888888"">利用させる</font>") Else Response.Write("利用させる") End If %> <% If ShiireUriageSyoruiHikae <> "0" Then Response.Write("<font color=""#888888"">利用させない</font>") Else Response.Write("利用させない") End If %> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88">仕入販売書類で自社名を優先表示する</td> <td height="20"> <% If ShameiYusen <> "0" Then Response.Write("<font color=""#888888"">優先(住所の上)</font>") Else Response.Write("優先(住所の上)") End If %> <% If ShameiYusen <> "1" Then Response.Write("<font color=""#888888"">非優先(住所の下)</font>") Else Response.Write("非優先(住所の下)") End If %> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88">入出庫の担当部署</td> <td height="20"> <% If NyuShukkoTanto <> "0" Or KitakuSokoRiyo = "1" Then Response.Write("<font color=""#888888"">仕入部・販売部</font>") Else Response.Write("仕入部・販売部") End If %> <% If NyuShukkoTanto <> "1" Or KitakuSokoRiyo = "1" Then Response.Write("<font color=""#888888"">倉庫部</font>") Else Response.Write("倉庫部") End If %> <% If KitakuSokoRiyo <> "1" Then Response.Write("<font color=""#888888"">寄託倉庫会社</font>") Else Response.Write("寄託倉庫会社") End If %> </td> </tr> </TABLE> </td> </tr> </table> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </div> </form> </body> <% = HtmlFooter %> </html> <SCRIPT LANGUAGE="JavaScript"> function SubmitCheck() { SubmitReal(form1); return true; } </script> <% End Sub %>