' $System.Access Customer
' $Command.Customer.AccessFile
' If $System.IsPost
'  If $Mode or ( $Mode = 0 )
<!--#include file="PartsChangeCondition.html"-->
'   $Search = 1
'   $System.ContentType
'  Else
'   $System.Redirect $Server/company.csv?page=CustomerExportCompanyFile&wid=$WID&vid=$VID&ct=1&oencoding=$xoencoding
'   $Command.Customer.SetExportCompany
'   Exit
'  EndIf
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
<!--#include file="PartsCustomerCondition.html"-->
' Call cmHtmlHead
' If $Env.IsMSIE
' Call cmLoadJavaScript "member_ie"
' Else
' Call cmLoadJavaScript "member_nn"
' EndIf
' $CaptionTitle = "会社データの書き出し"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=CustomerFile&wid=$WID&vid=$VID"
' $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID&vid=$VID"
' Call cmHeader $CaptionTitle $URLCustomerIndex $WorkSpace.Customer.Name $BackURL "ファイル入出力"
<form name="CustomerExport" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerExportCompany">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="Remove" value="">
' If $CC
<input type="hidden" name="CC" value="$CC">
' Else
'  Set $PersonalCustomer = $Command.Personal.GetCustomerObject $WID
'  Set $Export = $PersonalCustomer.ExportCompany
'  If $Export
'   $ItemName = $Export.ItemName
'   $Search = $Export.Search
'   $OR = $Export.OR
'   $Fuzzy = $Export.Fuzzy
'   Set $Conditions = $Export.Conditions
'   For Each $Item in $Export.Items
'    If $Item.Item = "Company"
'     $ItemID = $Item.IID
'     If $Customer.Company.Items.$ItemID
'      $System.AddParameter IIDs $ItemID
'     EndIf
'    Else
'     $System.AddParameter IIDs $Item.Item
'    EndIf
'   Next
'  Else
'   $ItemName = 1
'   If $Customer.Company.Groups.Count
'    $System.AddParameter IIDs "CompanyCGID"
'   EndIf
'   $System.AddParameter IIDs "CompanyCode"
'   $System.AddParameter IIDs "CompanyName"
'   $System.AddParameter IIDs "CompanyYomi"
'   $System.AddParameter IIDs "CompanyTel"
'   For Each $Item in $Customer.Company.Items
'    $System.AddParameter IIDs $Item.ID
'   Next
'   $System.AddParameter IIDs "CompanyUser"
'   If $Customer.Company.File.Size != 0
'    $System.AddParameter IIDs "CompanyFileName"
'   EndIf
'   $System.AddParameter IIDs "Member"
'  EndIf
'  If $Conditions.Count
<input type="hidden" name="CC" value="$Conditions.Count">
'  Else
<input type="hidden" name="CC" value="1">
'  EndIf
' EndIf
<p><img src="$IMG_PATH/company20.png">会社データをCSVファイルに書き出します。</p>
'' <!---------------------出力条件----------------------------->
<p><img src="$IMG_PATH/pin.png"> 出力条件</p>
<blockquote>
<p>
' $Count = $CYomiIndex.Company.Customers.Count
' Init $Count = 0
' Call formRadio "Search" "会社データを全て出力する ($Count件)" $Search.RChecked 0 "SearchAll"
</p><p>
' Call formRadio "Search" "会社データを絞り込んで出力する" $Search.Checked 1 "SearchFilter"
</p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td width="20"><br></td><td colspan="3">
<!--#include file="LibrarySearchCondition.html"-->
' Call searchCondition "Search[1].checked=true;"
</td></tr>
' If $CC
'  $Num = $CC - 1
'  For $i = 0 to $Num
'   $IID = $System.GetParameter IID$i
'   $Text = $System.GetParameter Text$i
'   $Expr = $System.GetParameter Expr$i
'   $Value = $System.GetParameter Value$i
'   Call QueryConditionRow $i $IID $Text $Expr $Value $Num "CustomerExport" "Company" 1 "PreSubmit( this.form, 'Items', 'IIDs' );"
'  Next
' Elif $Conditions
'  $CC = 0
'  If $Conditions.Count
'   $Num = $Conditions.Count - 1
'  Else
'   $Num = 0
'  EndIf
'  For Each $Cond in $Conditions
'   Call QueryConditionRow $CC $Cond.IID $Cond.Text $Cond.Expr $Cond.Value $Num "CustomerExport" "Company" 1 "PreSubmit( this.form, 'Items', 'IIDs' );"
'   Inc $CC
'  Next
' EndIf
' If ! $CC
'  Call QueryConditionRow 0 $IID $Text $Expr $Value 0 "CustomerExport" "Company" 1 "PreSubmit( this.form, 'Items', 'IIDs' );"
' EndIf
<tr><td><br></td><td colspan="3">
'  Call cmButton "条件を追加する" "Mode.value='add';PreSubmit( this.form, 'Items', 'IIDs' );this.form.submit();"
</td></tr>
</table>
</blockquote>
'' <!---------------------出力項目----------------------------->
<p><img src="$IMG_PATH/pin.png"> 出力項目</p>
<blockquote>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td align="middle">
' Call cmImageButton "Top( this.form, 'IIDs' ); return false;" "order_top20.png"
<br><br>
' Call cmImageButton "Up( this.form, 'IIDs' ); return false;" "order_up20.png"
<br><br>
' Call cmImageButton "Down( this.form, 'IIDs' ); return false;" "order_down20.png"
<br><br>
' Call cmImageButton "Bottom( this.form, 'IIDs' ); return false;" "order_bottom20.png"
</td>
<td nowrap>
<select name="IIDs" multiple size="15">
' For Each $IID in $IIDs
'  If $IID = "CompanyCGID"
'   If $Customer.Company.Groups.Count
<option value="CompanyCGID">会社グループ</option>
'   EndIf
'  Elif $IID = "CompanyCode"
<option value="CompanyCode">会社コード</option>
'  Elif $IID = "CompanyName"
<option value="CompanyName">会社名</option>
'  Elif $IID = "CompanyYomi"
<option value="CompanyYomi">会社よみ</option>
'  Elif $IID = "CompanyTel"
<option value="CompanyTel">電話番号</option>
'  Elif $IID = "CompanyUser"
<option value="CompanyUser">担当</option>
'  Elif $IID = "CompanyFileName"
'   If $Customer.Company.File.Size != 0
<option value="CompanyFileName">添付ファイル名</option>
'   EndIf
'  Elif $IID = "Member"
<option value="Member">所属する顧客</option>
'  Else
'   Set $Item = $Customer.Company.Items.$IID
'   $Access = $Command.Customer.IsAccessItem $Item
'   If $Access
<option value="$IID">$Item.Name</option>
'   EndIf
'  EndIf
' Next
<option>　　　　　　　　　　　　　　　　　　　　</option>
</select>
</td>
<td nowrap valign="middle">
' Call cmButton "<< 追加" "AddMember( this.form, 'Items', 'IIDs' );"
<br><br>
' Call cmButton "削除 >>" "RemoveMember( this.form, 'IIDs' );"
</td>
<td nowrap>
<select name="Items" multiple size="15">
' If $Customer.Company.Groups.Count
<option value="CompanyCGID">会社グループ</option>
' EndIf
<option value="CompanyCode">会社コード</option>
<option value="CompanyName">会社名</option>
<option value="CompanyYomi">会社よみ</option>
<option value="CompanyTel">電話番号</option>
' For Each $Item in $Customer.Company.Items
'  $Access = $Command.Customer.IsAccessItem $Item
'  If $Access
<option value="$Item.ID">$Item.Name</option>
'  EndIf
' Next
<option value="CompanyUser">担当</option>
' If $Customer.Company.File.Size != 0
<option value="CompanyFileName">添付ファイル名</option>
' EndIf
<option value="Member">所属する顧客</option>
<option>　　　　　　　　　　　　　　　　　　　　</option>
</select>
</td></tr>
</table>
</blockquote>
<p><img src="$IMG_PATH/pin.png"> その他の設定</p>
<blockquote>
<table border="0" cellspacing="0" cellpadding="4">
<tr><td colspan="2">
'' <!---------------------先頭行チェック----------------------------->
' Call formCheckBox "ItemName" "先頭行に項目名を書き出す" $ItemName 1 "ItemName"
</td></tr>
<tr><td valign="top" nowrap>文字コード</td>
<td nowrap>
' Call formOEncoding "xoencoding"
</td></tr>
</table>
</blockquote>
<p>
' Call cmButton "書き出す" "Mode.value='';PreSubmit( this.form, 'Items', 'IIDs' );this.form.submit();"
' Call cmButton "キャンセルする" "location.href='$BackURL.JSEscape';"
</p>
</form>
' If $VID
'  Call cmChildFooter $BackURL "ファイル入出力へ"
' Else
'  $BS = -2
'  Call cmFooter $BackURL "ファイル入出力へ"
' EndIf
</body>
</html>