''<!------------------------------------------------------------------
''  配信先一覧の表示
''  構文：Call PostTargetIndex <配信情報オブジェクトID> <CGI変数> <先頭ID> <チェックボックス表示フラグ> <抽出モード>
''------------------------------------------------------------------->
' Sub PostTargetIndex $ptiPCID $ptiArg $ptiHead $ptiCheckBox $ptiSearch
'  $ptiRows = $Customer.Rows
'  Init $ptiRows = 20
'  If $ptiPCID
'   Set $ptiPC = $Post.Cards.$ptiPCID
'   Set $rs = $ptiPC.Targets.RowSet
'   $rs.Rows = $ptiRows
'   If $Head
'    $rs.Head = $ptiHead
'   EndIf
'  Else
'   Set $rs = $Command.Post.GetTargetRowSet $WID $PDID $ptiRows $ptiHead
'  EndIf
'  $ViewIndex.WID = $WID
'  $ViewIndex.InitCompany = 1
'  For Each $c in $rs
'   Set $v = $ViewIndex.Add
'   If $ptiPCID
'    $v.OID = $c.CID
'   Else
'    $v.OID = $c.OID
'   EndIf
'   $v.DBID = $c.DBID
'   $v.ErrorCode = $c.ErrorCode
'   If $c.Sent or ( $ptiSearch = 2 )
'    $v.Name = $c.Name
'    $v.CompanyName = $c.CompanyName
'    $v.Section = $c.Section
'    $v.To = $c.To
'    $v.Sent = $c.Sent
'    $v.Init = 1
'   EndIf
'  Next
'  $ViewIndex.Prev = $rs.Prev
'  $ViewIndex.PID = $rs.PID
'  $ViewIndex.Next = $rs.Next
'  $ViewIndex.NID = $rs.NID
'  $Command.Customer.CloseIndexDatabase
'  $RowNum = 0
'  Call showNavigation $ViewIndex $ptiArg $ptiRows
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  Call PostTargetTitle $ptiCheckBox $ptiPC.Sent
'  For Each $v in $ViewIndex
'   Inc $RowNum
'   $Remainder = $Command.Math.Modulus $RowNum 2
'   If $Remainder = 0
'    $RowClass = "evenRow"
'   Else
'    $RowClass = "oddRow"
'   EndIf
<tr class="$RowClass">
'   If $ptiCheckBox
<td>\\
<!--#include file="LibraryForm.html"-->
'   Call formCheckBox "CID" "" "" "$v.OID"
</td>
'   EndIf
<td valign="top">
'   If $v.Sent or ( $ptiSearch = 2 )
'    $CompanyName = $v.CompanyName
'   Else
'    $CompanyName = $v.Company.Name
'   EndIf
'   If $CompanyName
'    Call cmImage "company20.png"
'   EndIf
$CompanyName<br></td>
'   If ( ! $WorkSpace.Customer.Disable ) and ( ! $Customer.Person.Section.Disable )
<td valign="top">
'    If $v.Sent or ( $ptiSearch = 2 )
$v.Section
'    Else
'     $SectionID = $v.SectionID
$v.Company.Sections.$SectionID.Name
'    EndIf
<br></td>
'   EndIf
<td valign="top">
'   If $v.Name
'    If $v.OID and ( ! $WorkSpace.Customer.Disable )
'     Call cmLink $v.Name "person20.png" "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$v.OID&dbid=$v.DBID" 0 1
'    Else
'     Call cmImage "person20.png"
$v.Name
'    EndIf
'   Else
<br>
'   EndIf
</td>
<td valign="top">
'   If $v.Sent or ( $ptiSearch = 2 )
$v.To
'   Else
$v.Mails.Head
'   EndIf
<br></td>
'   If $ptiPC.Sent
<td valign="top">
'    If $v.ErrorCode
エラー($v.ErrorCode)
'    Elif $v.Sent
送信成功
'    Else
未配信
'    EndIf
</td>
'   EndIf
</tr>
'  Next
'  Call PostTargetTitle $ptiCheckBox $ptiPC.Sent
</table>
'  Call showNavigation $ViewIndex $ptiArg $ptiRows
' EndSub
''
''<!------------------------------------------------------------------
''  配信先一覧表のタイトル部を表示する
''  構文：Call PostTargetTitle <チェックボックスセルを出すなら1> <配信状況セルを出すなら1>
''------------------------------------------------------------------->
'  Sub PostTargetTitle $argCheckBox $argSetStatus
<tr class="table-header">
'  If $argCheckBox
<td width="1%" nowrap>\\
'   Call cmImage "check20.png" "" "" 20 20
</td>
'  EndIf
<td nowrap>会社名</td>
'  If ( ! $WorkSpace.Customer.Disable ) and ( ! $Customer.Person.Section.Disable )
<td nowrap>部課</td>
'  EndIf
<td nowrap>名前</td>
<td nowrap>メールアドレス</td>
'  If $argSetStatus
<td nowrap>配信状況</td>
'  EndIf
</tr>
'  EndSub
''
''<!------------------------------------------------------------------
''  ナビゲーションを表示する
''  構文：Call showNavigation
''------------------------------------------------------------------->
'  Sub showNavigation $argViewIndex $argArg $artRows
<!--#include file="LibraryNavigation.html"-->
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr class="active">
'  Call Navigation $argViewIndex $argArg $artRows
</tr>
</table>
'  EndSub