''<!------------------------------------------------------------------
''  postViewCond
''  配信エラーの一覧を表示する
''  構文：Call postViewCond <配信情報オブジェクト>
''------------------------------------------------------------------->
' Sub postViewCond $pvcCard
'  If $pvcCard.Search = 2
CSVファイルから読み込んで配信する 
'  ElIf $pvcCard.Search
'   $pvcFirst = 1
'   For Each $pvcCond in $pvcCard.Conditions
'    $pvcIID = $pvcCond.IID
'    If $Customer.Person.Items.$pvcIID
'     Set $pvcItem = $Customer.Person.Items.$pvcIID
'     If $pvcItem.Access
'      $pvcContains = $Command.Customer.IsAccessItem $pvcItem
'      If ! $pvcContains
'       Continue
'      EndIf
'     EndIf
'    Elif $Customer.Company.Items.$pvcIID
'     Set $pvcItem = $Customer.Company.Items.$pvcIID
'     If $pvcItem.Access
'      $pvcContains = $Command.Customer.IsAccessItem $pvcItem
'      If ! $pvcContains
'       Continue
'      EndIf
'     EndIf
'    EndIf
'    If $pvcFirst
'     $pvcFirst = 0
'    Else
<br>
'     If $pvcCard.OR
または、
'     Else
かつ、
'     EndIf
'    EndIf
'    $pvcType = ""
'    If $pvcIID = "Name"
名前
'    Elif $pvcIID = "Yomi"
よみ
'    Elif $pvcIID = "Code"
顧客コード
'    Elif $pvcIID = "Tel"
電話番号
'    Elif $pvcIID = "Mail"
メールアドレス
'    Elif $pvcIID = "Stop"
配信停止
'    Elif $pvcIID = "User"
'     $pvcType = "User"
担当
'    Elif $pvcIID = "CGID"
顧客グループ
'    Elif $pvcIID = "Company"
会社名
'    Elif $pvcIID = "CompanyYomi"
会社よみ
'    Elif $pvcIID = "CompanyCode"
会社コード
'    Elif $pvcIID = "CompanyTel"
電話番号(会社)
'    Elif $pvcIID = "CompanyUser"
'     $pvcType = "User"
担当(会社)
'    Elif $pvcIID = "CompanyCGID"
会社グループ
'    Elif $pvcIID = "UID"
'     $pvcType = "User"
登録者
'    Elif $pvcIID = "CTime"
'     $pvcType = "Date"
登録日時
'    Elif $pvcIID = "MID"
'     $pvcType = "User"
最終更新者
'    Elif $pvcIID = "MTime"
'     $pvcType = "Date"
更新日時
'    Elif $pvcIID = "LastTime"
'     $pvcType = "Date"
最終履歴(日時)
'    Elif $Customer.Person.Items.$pvcIID
'     Set $pvcItem = $Customer.Person.Items.$pvcIID
'     $pvcType = $pvcItem.Type
$pvcItem.Name
'    Elif $Customer.Company.Items.$pvcIID
'     Set $pvcItem = $Customer.Company.Items.$pvcIID
'     $pvcType = $pvcItem.Type
$pvcItem.Name
'    EndIf
が「
'    If $pvcIID = "Stop"
'     If $pvcCond.Text
配信停止
'     EndIf
'    Elif $pvcType = "User"
'     $pvcUID = $pvcCond.Text
$Users.$pvcUID.Name
'    Elif $pvcType = "Date"
'     $pvcDate = $pvcCond.Text
'     If $pvcDate = -1
(未設定)
'     Elif $pvcDate = 1
今日
'     Elif $pvcDate = 2
昨日
'     Elif $pvcDate = 3
明日
'     Elif $pvcDate = 4
今週
'     Elif $pvcDate = 5
先週
'     Elif $pvcDate = 6
来週
'     Elif $pvcDate = 7
今月
'     Elif $pvcDate = 8
先月
'     Elif $pvcDate = 9
来月
'     Elif $pvcDate = 10
今年
'     Elif $pvcDate = 11
昨年
'     Elif ! $pvcDate
'      $pvcDate = $pvcCond.Value
$pvcDate.Year年 $pvcDate.Month月 $pvcDate.Day日
'     EndIf
'    Elif $pvcType = "Select"
'     If $pvcCond.Text
$pvcCond.Text
'     Else
$pvcCond.Value
'     EndIf
'    Elif $pvcIID = "CGID"
'     $pvcCGID = $pvcCond.Text
$Customer.Person.Groups.$pvcCGID.Name
'    Elif $pvcIID = "CompanyCGID"
'     $pvcCGID = $pvcCond.Text
$Customer.Company.Groups.$pvcCGID.Name
'    Else
$pvcCond.Text
'    EndIf
'    If $pvcCond.Expr = 1
」を含む
'    Elif $pvcCond.Expr = 2
」を含まない
'    Elif $pvcCond.Expr = 3
」と同じ
'    Elif $pvcCond.Expr = 4
」と異なる
'    Elif $pvcCond.Expr = 5
」以降
'    Elif $pvcCond.Expr = 6
」以前
'    Elif $pvcCond.Expr = 7
」より大きい
'    Elif $pvcCond.Expr = 8
」以上
'    Elif $pvcCond.Expr = 9
」より小さい
'    Elif $pvcCond.Expr = 10
」以下
'    EndIf
'   Next
'  Else
全ての顧客に配信する
'  EndIf
' EndSub