' $System.Access Customer
' $System.NoWarning
' $Command.System.SetFrameView
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $vCD.CompanyID
'  $CName = "顧客"
' Else
'  $CName = "会社"
' EndIf
' $System.SetParameter CaptionTitle "$CNameデータの印刷"
<title>$CaptionTitle</title>
</head>
' $ViewIndex.WID = $WID
' Set $v = $ViewIndex.Add
' $v.OID = $CID
' $v.DBID = $DBID
' $ViewIndex.InitCompany = 1
' Set $c = $ViewIndex.GetHead
' If ! $c
<p>指定された$CNameデータは既に削除されています。</p>
</body>
</html>
'  Exit
' EndIf
' If $c.CompanyID
'  If $c.CompanyID != -1
'   Set $Company = $c.Company
'  EndIf
'  Set $Person = $c
' Else
'  Set $Company = $c
' EndIf
' $System.Print = 1
'' <!---------------------項目の表示----------------------------->
' Sub viewItems $vCD
'  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
 <tr><td width="160" valign="top" nowrap>$Item.Name</td><td>
'   $First = 1
'   For Each $value in $vCD.Items.$IID
'    If $First
'     $First = 0
'    Else
 <br>
'    EndIf
'    If $Item.Type = "Date"
 $value.Year$$CaptionYear $value.Month$$CaptionMonth $value.Day$$CaptionDay
'    Elif $Item.Type = "Text"
'     View $value
'    Else
 $value
'    EndIf
'   Next
'   If $First
 <br>
'   EndIf
 </td></tr>
'  Next
' EndSub
'' <!---------------------ファイルの表示----------------------------->
' Sub viewFiles $vCD
'  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><td width="160" valign="top" nowrap>添付ファイル</td><td>
'   $First = 1
'   For Each $File in $vCD.Files
'    If $First
'     $First = 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 $First
<br>
'   EndIf
 </td></tr>
'  EndIf
' EndSub
'' <!---------------------担当者の表示----------------------------->
' Sub viewAssignedUser $vCD
 <tr><td width="160" valign="top" nowrap>担当者</td><td>
'  $First = 1
'  For Each $UID in $vCD.UIDs
'   Set $u = $Users.$UID
'   If ! $u
'    Continue
'   EndIf
'   If $First
'    $First = 0
'   Else
,
'   EndIf
$u.Name
'  Next
'  If $First
<br>
'  EndIf
 </td></tr>
' EndSub
'' <!---------------------詳細情報の表示----------------------------->
' Sub viewData $vCD
 <table width="640" border="1" cellspacing="0" cellpadding="2">
'  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><td width="160" valign="top" nowrap>$CName$グループ</td><td>$vGroup.Name<br></td></tr>
'  EndIf
 <tr><td width="160" valign="top" nowrap>$CName$コード</td><td>$vCD.Code<br></td></tr>
 <tr><td width="160" valign="top" nowrap>\\
'  If $vCD.CompanyID
名前\\
'  Else
会社名\\
'  EndIf
</td><td>$vCD.Name<br></td></tr>
 <tr><td width="160" valign="top" nowrap>\\
'  If $vCD.CompanyID
よみ\\
'  Else
会社よみ\\
'  EndIf
</td><td>$vCD.Yomi<br></td></tr>
'  If ($vCD.CompanyID) and ( $Company.Sections.Count ) and ( ! $Customer.Person.Section.Disable )
 <tr><td width="160" valign="top" nowrap>部課</td><td>
'   $vSectionID = $vCD.SectionID
$Company.Sections.$vSectionID.Name<br></td></tr>
'  EndIf
 <tr><td width="160" valign="top" nowrap>電話番号</td><td>
'  $First = 1
'  For Each $Tel in $vCD.Tels
'   If $First
'    $First = 0
'   Else
<br>
'   EndIf
$Tel
'  Next
'  If $First
<br>
'  EndIf
 </td></tr>
'  If $vCD.CompanyID
 <tr><td width="160" valign="top" nowrap>メールアドレス</td><td>
'   $First = 1
'   For Each $m in $vCD.Mails
'    If $First
'     $First = 0
'    Else
<br>
'    EndIf
$m
'   Next
'   If $First
<br>
'   EndIf
 </td></tr>
 <tr><td width="160" valign="top" nowrap>配信停止</td><td>\\
'   If $vCD.Stop
配信停止\\
'   EndIf
<br></td></tr>
'  EndIf
'  Call viewItems $vCD
'  Call viewAssignedUser $vCD
'  Call viewFiles $vCD
 </table>
' EndSub
<body bgcolor="#ffffff" onLoad="window.print()">
' If $Person
<p><b>$Person.Name</b> さんの顧客データ
'  Call viewData $Person
</p>
' EndIf
' If $Company
<p><b>$Company.Name</b> の会社データ
'  Call viewData $Company
</p>
' EndIf
 </table>
</body>
</html>