''<!------------------------------------------------------------------
''  配信エラーの一覧を表示する
''  構文：Call postErrors <配信情報オブジェクト>
''------------------------------------------------------------------->
' Sub postErrors $peCard $peRows $peArg $peStart
'  var $peNext = 0
'  var $localNext = 0
'  If $peStart > 0
'   $localNext = $peStart + $peRows
'  Else
'   $localNext = $peRows + 1
'  EndIf
'  If $peCard.Errors.Count >= $localNext
'   $peNext = $localNext
'  EndIf
'  Call showNavigation $peStart $peRows $peNext $peCard.ID $peArg
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  Call postErrorsTitle
'  $i = 0
'  $n = 0
'  For Each $c in $peCard.Errors
'   Inc $i
'   If $peStart
'    If $i < $peStart
'     Continue
'    EndIf
'   EndIf
'   Inc $n
'   If $n > $peRows
'    Exit
'   EndIf
<tr><td valign="top">\\
'   If $c.CompanyName
' Call cmImage company20.png
$c.CompanyName\\
'   Else
<br>\\
'   EndIf
</td>
'   If ( ! $WorkSpace.Customer.Disable ) and ( ! $Customer.Person.Section.Disable )
<td valign="top">$c.Section<br></td>
'   EndIf
<td valign="top">
'   $peCID = $c.CID
'   If $WorkSpace.Customer.Disable or ( ! $peCID )
'    Call cmImage "person20.png"
$c.Name
'   Else
'    Call cmLink $c.Name "person20.png" "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$peCID&dbid=$c.DBID" 0 1
'   EndIf
<td valign="top">$c.To<br></td>
<td valign="top">
'   $Error = $c.ErrorCode
'   If $Error = 1112
送信メールサーバーへの接続に失敗しました
'   Elif $Error = 1113
送信できませんでした
'   Elif ( $Error = 1114 ) or ( $Error = 22518 )
メールのサイズが制限を超えています
'   Elif ( $Error = 1115 ) or ( $Error = 22513 )
宛先が不正です
'   Elif $Error = 22205
対象のアドレスデータが削除されています
'   Elif $Error = 22517
メール本文が不正です
'   Elif $Error = 22705
顧客のメールアドレスが設定されていません
'   Elif $Error = 22706
この顧客への配信は停止されています
'   Elif $Error = 22716
配信先が重複しています
'   Else
システムエラーのため、送信できませんでした
'   EndIf
($Error)
</td></tr>
'  Next
'  Call postErrorsTitle
</table>
'  Call showNavigation $peStart $peRows $peNext $peCard.ID $peArg
' EndSub
''
''<!------------------------------------------------------------------
''  ナビゲーション
''  @see LibararyNabigation.html - Sub Navigation
''  構文：Call showNavigation <
''------------------------------------------------------------------->
'  Sub showNavigation $argStart $argRows $argNext $argPCID $argParams
<table border="0" width="100%" cellspacing="0" cellpadding="0">\\
<tr class="active">\\
<td style="height:30px;"><br></td>\\
<td class="naviColumn" nowrap>\\
<div class="navigation">\\
'  If $argStart
'   var $localBackDisable = 0
'   If ($argStart - $argRows) < $argRows
'    var $localPrev = 0
'   Else
'    var $localPrev = $argStart - $argRows
'   EndIf
'  Else
'   var $localBackDisable = 1
'  EndIf
'  If $argNext
'   var $localNextDisable = 0
'  Else
'   var $localNextDisable = 1
'  EndIf
'  Call cmLinkButton "" "arrow_back_double.png" "$Server?page=$Page&wid=$WID&vid=$VID&pcid=$argPCID$$argParams" $localBackDisable 0 0 "先頭へ"
'  Call cmLinkButton "" "arrow_back_single.png" "$Server?page=$Page&wid=$WID&vid=$VID&start=$localPrev&pcid=$argPCID$$argParams" $localBackDisable 0 0 "前の$navRows件へ"
'  Call cmLinkButton "" "arrow_next_single.png" "$Server?page=$Page&wid=$WID&vid=$VID&pcid=$argPCID&start=$argNext$$argParams" $localNextDisable 0 0 "次の$navRows件へ"
<script>
    $(window).load(function(){
        disposeNavigation();
        $(window).resize(function(){ disposeNavigation(); });
    });
    function disposeNavigation()
    {
''      //画面の横幅MAXを取得
        var val = $('#contentColumn').outerWidth();
        val -= $(window).width();
        $('.navigation').css('right',val);
    }
</script>
</div></td></tr></table>
'  EndSub
''
''<!------------------------------------------------------------------
''  配信エラーの一覧を表示する
''  構文：Call postErrors <配信情報オブジェクト>
''------------------------------------------------------------------->
' Sub postErrorsTitle
<tr class="table-header"><td nowrap>会社名</td>\\
'  If ( ! $WorkSpace.Customer.Disable ) and ( ! $Customer.Person.Section.Disable )
<td nowrap>部課</td>\\
'  EndIf
<td nowrap>名前</td><td nowrap>宛先</td><td nowrap>エラー内容</td></tr>
' EndSub