''<!------------------------------------------------------------------
''  viewItems
''  項目の表示
''  構文：Call viewItems <顧客データ> <表示オブジェクト> <colspanの値>
''------------------------------------------------------------------->
' Sub viewItems $vCD $vCVItem $vColspan
'  If $vCD.CompanyID
'   Set $Items = $Customer.Person.Items
'  Else
'   Set $Items = $Customer.Company.Items
'  EndIf
'  For Each $Item in $Items
'   $IID = $Item.ID
'   $Access = $Command.Customer.IsAccessItem $Item
'   If ! $Access
'    Continue
'   EndIf
'   If $vCVItem and ( ! $vCVItem.$IID )
'    Continue
'   EndIf
 <tr><th nowrap>$Item.Name</th><td colspan="$vColspan">
'   $vFirst = 1
'   For Each $value in $vCD.Items.$IID
'    If $vFirst
'     $vFirst = 0
'    Else
 <br>
'    EndIf
'    If $Item.Type = "Date"
 $value.Year年 $value.Month月 $value.Day日
'    Elif $Item.Type = "Text"
'     View $value 1 0 1
'    Else
 $value
'    EndIf
'   Next
'   If $vFirst
 <br>
'   EndIf
 </td></tr>
'  Next
' EndSub
''<!------------------------------------------------------------------
''  viewFiles
''  ファイルの表示
''  構文：Call viewFiles <顧客データ> <colspanの値>
''------------------------------------------------------------------->
' Sub viewFiles $vCD $vColspan
'  If $vCD.CompanyID
'   $FileSize = $Customer.Person.File.Size
'  Else
'   $FileSize = $Customer.Company.File.Size
'  EndIf
'  Init $FileSize = 1
'  If $FileSize or $vCD.Files.Count
 <tr><th nowrap>添付ファイル</th><td colspan="$vColspan">
'   $vFirst = 1
'   For Each $File in $vCD.Files
'    If $vFirst
'     $vFirst = 0
'    Else
 <br>
'    EndIf
'    $System.SetParameter Inline "Inline$WID"
'    $System.FileLink $File "Customer" $Login.$Inline 0 "&wid=$WID&vid=$VID&cid=$vCD.OID"
'   Next
'   If $vFirst
<br>
'   EndIf
 </td></tr>
'  EndIf
' EndSub
''<!------------------------------------------------------------------
''  viewUserTime
''  ユーザーと日時の表示
''  構文：Call viewUserTime <キャプション> <日時> <ユーザーID> <ユーザー名> <colspanの値>
''------------------------------------------------------------------->
' Sub viewUserTime $vCaption $vTime $vUID $vName $vClass $vColspan
 <tr class="$vClass"><th nowrap>$vCaption</th><td colspan="$vColspan">
'  Set $vUser = $Users.$vUID
'  If $vUser
$vUser.Name
'  Else
$vName
'  EndIf
'  If $vTime
($vTime.Year/$vTime.Month/$vTime.Day $vTime.Hour:$vTime.Minute00)
'  EndIf
<br></td>
' EndSub
''<!------------------------------------------------------------------
''  viewAssignedUser
''  担当者の表示
''  構文：Call viewAssignedUser <顧客データ> <colspanの値>
''------------------------------------------------------------------->
' Sub viewAssignedUser $vCD $vColspan
 <tr><th nowrap>担当</th><td colspan="$vColspan">
'  $vFirst = 1
'  For Each $UID in $vCD.UIDs
'   Set $u = $Users.$UID
'   If ! $u
'    Continue
'   EndIf
'   If $vFirst
'    $vFirst = 0
'   Else
,
'   EndIf
$u.Name
'  Next
'  If $vFirst
<br>
'  EndIf
 </td></tr>
' EndSub
''<!------------------------------------------------------------------
''  viewData
''  詳細情報の表示
''  構文：Call viewAssignedUser <顧客データ> <表示オブジェクト> <colspanの値>
''------------------------------------------------------------------->
' Sub viewData $vCD $vCVItem $vColspan
'  If ( ! $vCVItem ) or $vCVItem.CGID
'   If $vCD.CompanyID
'    Set $vGroups = $Customer.Person.Groups
'   Else
'    Set $vGroups = $Customer.Company.Groups
'   EndIf
'   If $vGroups.Count
'    $vCGID = $vCD.CGID
'    Set $vGroup = $vGroups.$vCGID
 <tr><th nowrap>$CName$グループ</th><td colspan="$vColspan">$vGroup.Name<br></td></tr>
'   EndIf
'  EndIf
'  If ( ! $vCVItem ) or $vCVItem.Code
 <tr><th nowrap>$CName$コード</th><td colspan="$vColspan">$vCD.Code<br></td></tr>
'  EndIf
'  If ! $vCVItem
 <tr><th nowrap>\\
'   If $vCD.CompanyID
名前\\
'   Else
会社名\\
'   EndIf
</th><td colspan="$vColspan">$vCD.Name<br></td></tr>
'  EndIf
'  If ( ! $vCVItem ) or $vCVItem.Yomi
 <tr><th nowrap>\\
'   If $vCD.CompanyID
よみ\\
'   Else
会社よみ\\
'   EndIf
</th><td colspan="$vColspan">$vCD.Yomi<br></td></tr>
'  EndIf
'  If ( ! $vCVItem ) or $vCVItem.Section
'   If $vCD.Company.Sections.Count and ( ! $Customer.Person.Section.Disable )
 <tr><th nowrap>部課</th><td colspan="$vColspan">
'    $vSectionID = $vCD.SectionID
'    If $vSectionID
'     Set $vSection = $vCD.Company.Sections.$vSectionID
$vSection.Name
'    EndIf
<br></td></tr>
'   EndIf
'  EndIf
'  If ( ! $vCVItem ) or $vCVItem.Tel
 <tr><th nowrap>電話番号</th><td colspan="$vColspan">
'   $vFirst = 1
'   For Each $Tel in $vCD.Tels
'    If $vFirst
'     $vFirst = 0
'    Else
<br>
'    EndIf
$Tel
'   Next
'   If $vFirst
<br>
'   EndIf
 </td></tr>
'  EndIf
'  If ( ! $vCVItem ) or $vCVItem.Mail
'   If $vCD.CompanyID
 <tr><th nowrap>メールアドレス</th><td colspan="$vColspan">
'    $vFirst = 1
'    For Each $vCM in $vCD.Mails
'     If $vFirst
'      $vFirst = 0
'     Else
<br>
'     EndIf
$_vCM.MailTo
'    Next
'    If $vFirst
<br>
'    EndIf
 </td></tr>
'   EndIf
'  EndIf
'  If ( ! $vCVItem ) or $vCVItem.Post
'   If $vCD.CompanyID
 <tr><th nowrap>配信停止</th><td colspan="$vColspan">\\
'    If $vCD.Stop
配信停止\\
'    EndIf
<br></td></tr>
'   EndIf
'  EndIf
'  Call viewItems $vCD $vCVItem $vColspan"
'  If ( ! $vCVItem ) or $vCVItem.User
'   Call viewAssignedUser $vCD $vColspan
'  EndIf
'  If ( ! $vCVItem ) or $vCVItem.File
'   Call viewFiles $vCD $vColspan
'  EndIf
'  If ! $vCVItem
'   Call viewUserTime "登録情報" $vCD.CTime $vCD.UID $vCD.Creator "" $vColspan
'   Call viewUserTime "最終更新" $vCD.MTime $vCD.MID $vCD.Modifier "customerview-modifier" $vColspan
'  EndIf
' EndSub