''<!------------------------------------------------------------------
''  tbSearchCustomer
''  顧客検索
''  構文：Call tbSearchCustomer <選択検索項目> <検索文字列> <検索ボタンのonClick>
''------------------------------------------------------------------->
' Sub tbSearchCustomer $tbSearchItem $tbText $tbOnClick
'  If ! $WorkSpace.Customer.Disable
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
'   Call cmImage menu_sep.png "" "" "" "" "" "" "menusep"
'   Call cmLinkButton "$WorkSpace.Customer.Name$検索" "" "$Server?page=CustomerSearch&wid=$WID&vid=$VID&cgid=$CGID"
'   Set $PersonalCustomer = $Command.Customer.GetPersonalCustomer $WID
'   Init $tbSearchItem = $PersonalCustomer.SearchItem
<select name="SearchItem">
<option value="company" $tbSearchItem.Selected_company>会社名
<option value="name" $tbSearchItem.Selected_name>名前
<option value="tel" $tbSearchItem.Selected_tel>電話番号
<option value="code" $tbSearchItem.Selected_code>顧客コード
<option value="mail" $tbSearchItem.Selected_mail>メールアドレス
</select>
<div class="search">
'   Call formTextBox "Text" "$tbText" 100 "" "" "" "searchText"
'   Call formSubmit "Search" "" "$tbOnClick" "searchButton"
</div>
'  EndIf
' EndSub
''
''<!------------------------------------------------------------------
''  tbCreateMail
''  メールの作成ボタン
''  構文：Call tbCreateMail <メールシステムID> <ボタン押下時に付与するCGI引数>
''------------------------------------------------------------------->
' Sub tbCreateMail $tbID $tbArg
'  $tbMailTo = $Command.Mail.GetMailTo $tbID $tbArg
'  If $tbMailTo
<td width="1%" nowrap>
'   Call cmLinkButton "作成する" "btn_write20.png" "$tbMailTo"
</td>
'  EndIf
' EndSub
''
''<!------------------------------------------------------------------
''  tbFormGetCreateIcon
''  作成アイコンの取得
''  構文：Call tbFormGetCreateIcon <履歴システムオブジェクトID>
''------------------------------------------------------------------->
' Sub tbFormGetCreateIcon $tbFormID
'  Set $tbFP = $Command.Form.GetFormTop $tbFormID
'  If $tbFP.ImageBase
'   $System.SetParameter tbImage "btn_$tbFP.ImageBase$20$tbFP.ImageExtension"
'  ElIf $tbFP.Image
'   Var $localLen = $Command.String.StrLen $tbFP.Image
'   Var $localFirst = $localLen - 6
'   Var $localBase = $Command.String.StrMid $tbFP.Image 0 $localFirst 0
'   Var $localSuffix = $Command.String.StrMid $tbFP.Image $localFirst 6 0
'   If $localBase and ( $localSuffix = "20.png" )
'    $System.SetParameter tbImage "btn_$localBase$$localSuffix"
'   Else
'    $tbImage = $tbFP.Image
'   EndIf
'  Else
'   $tbImage = "write20.png"
'  EndIf
' EndSub
''
''<!------------------------------------------------------------------
''  tbCreateFormCommon
''  履歴の作成ボタン
''  構文：Call tbCreateForm <履歴システムオブジェクト> <ボタン押下時に付与するCGI引数>
''------------------------------------------------------------------->
' Sub tbCreateFormCommon $tbForm $tbArg
'  $tbFormID = $tbForm.ID
'  If $WorkSpace.Forms.$tbFormID.IsAccessCreate
'   Call tbFormGetCreateIcon $tbFormID
<td width="1%" nowrap>
'   Call cmLinkButton "$tbForm.Nameの作成" "$tbImage" "$Server?page=FormDocAdd&wid=$WID&bs=$tbFormID$$tbArg" 0 0 0 "$tbForm.Nameの作成"
</td>
'  EndIf
' EndSub
''
''<!------------------------------------------------------------------
''  tbCreateForm
''  履歴の作成ボタン
''  構文：Call tbCreateForm <履歴システムID> <ボタン押下時に付与するCGI引数>
''------------------------------------------------------------------->
' Sub tbCreateForm $tbFormID $tbArg
'  Set $tbForm = $WorkSpace.Forms.$tbFormID
'  Call tbCreateFormCommon $tbForm $tbArg
' EndSub
''
''<!------------------------------------------------------------------
''  tbCreateForms
''  履歴の作成ボタン
''  構文：Call tbCreateForms <ボタン押下時に付与するCGI引数>
''------------------------------------------------------------------->
' Sub tbCreateForms $tbArg
'  For Each $tbForm in $WorkSpace.Forms
'   Call tbCreateFormCommon $tbForm $tbArg
'  Next
' EndSub
''
''<!------------------------------------------------------------------
''  tbCreate
''  メール・履歴の作成ボタン
''  構文：Call tbCreate <ボタン押下時に付与するCGI引数>
''------------------------------------------------------------------->
' Sub tbCreate $tbArg
'  Call tbCreateMail "" $tbArg
'  Call tbCreateForms $tbArg
' EndSub
''
''<!------------------------------------------------------------------
''  tbSearchForm
''  履歴の検索ボタン
''  構文：Call tbSearchForm <履歴システムID> <ボタン押下時に付与するCGI引数>
''------------------------------------------------------------------->
' Sub tbSearchForm $tbFormID $tbArg
'  Set $tbForm = $WorkSpace.Forms.$tbFormID
'  If $tbForm.Disable
'   Exit
'  EndIf
'  Set $tbFP = $Command.Form.GetFormTop $tbForm.ID
<td width="1%" nowrap>
'  Call cmLinkButton "$tbForm.Nameの検索" "btn_search20.png" "$Server?page=FormDocSearch&wid=$WID&bs=$tbFormID&vid=$VID$$tbArg"
</td>
' EndSub