' $System.Access Form
' $System.NoWarning
' $Command.System.SetFrameView
' $AppliName = $WorkSpace.Forms.$BS.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $System.SetParameter CaptionTitle "$AppliNameの印刷"
<title>$CaptionTitle</title>
</head>
' Set $FormProfile = $Command.Form.GetFormTop $BS
' Set $d = $Command.Form.GetFormData $BS $RID $DBID
' If ! $d
<p>指定された履歴データは既に削除されています。</p>
</body>
</html>
'  Exit
' EndIf
' $System.Print = 1
<body bgcolor="#ffffff" onLoad="window.print()">
<table width="640" border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap><font size="+1"><b>$d.Subject</b></font> (No. $d.Code)</td>
' $UID = $d.UID
' $UserName = $Users.$UID.Name
' Init $UserName = $d.Creator
' $t = $d.CTime
<td align="right" nowrap><b>$UserName</b>&nbsp; $t.Year/$t.Month/$t.Day($t.WDay) $t.Hour:$t.Minute00</td></tr>
</table>
<table width="640" border="1" cellspacing="0" cellpadding="2">
<tr><td width="160" valign="top" nowrap>日時</td>
<td width="100%">
' $Type = $FormProfile.DateTime.Type
' $SetDate = $d.SetDate
' $EndDate = $d.EndDate
' $SetTime = $d.SetTime
' $EndTime = $d.EndTime
' If $Type = 1
$SetDate.Year/$SetDate.Month/$SetDate.Day($SetDate.WDay) ～
'  If $EndDate
$EndDate.Year/$EndDate.Month/$EndDate.Day($EndDate.WDay)
'  EndIf
' Elif $Type = 2
$SetDate.Year/$SetDate.Month/$SetDate.Day($SetDate.WDay)
'  If $SetTime
$SetTime.Hour:$SetTime.Minute00
'  EndIf
' Elif $Type = 3
$SetDate.Year/$SetDate.Month/$SetDate.Day($SetDate.WDay)
'  If $SetTime
$SetTime.Hour:$SetTime.Minute00
'  EndIf
～
'  If $EndDate
$EndDate.Year/$EndDate.Month/$EndDate.Day($EndDate.WDay)
'  EndIf
'  If $EndTime
$EndTime.Hour:$EndTime.Minute00
'  EndIf
' Else
$SetDate.Year/$SetDate.Month/$SetDate.Day($SetDate.WDay)
' EndIf
</td></tr>
<tr><td width="160" valign="top" nowrap>顧客</td><td width="100%">
' For Each $c in $d.Customers
'  If $c.Company
<div>$c.Name</div>
'   For Each $p in $c.Persons
<div style="text-indent:20;">$p.Name</div>
'   Next
'  Else
<div>$c.Name</div>
'  EndIf
' Next
' If ! $d.Customers.Count
<br>
' EndIf
</td></tr>
' For Each $Item in $FormProfile.Items
<tr><td width="160" valign="top" nowrap>$Item.Name<br></td>
<td width="100%">
'  $First = 1
'  $IID = $Item.ID
'  Set $Values = $d.Items.$IID
'  $Type = $Item.Type
'  If $Type = "Date"
'   For Each $Value in $Values
$Value.Year/$Value.Month/$Value.Day($Value.WDay)
'    $First = 0
'    Exit
'   Next
'  Elif $Type = "User"
'   For Each $Value in $Values
'    Set $u = $Users.$Value
'    If ! $u
'     Continue
'    EndIf
$u.Name
'    $First = 0
'    If $Item.Multiple
<br>
'    Else
'     Exit
'    EndIf
'   Next
'  Elif $Type = "Select"
'   For Each $Value in $Values
$Value
'    $First = 0
'    If $Item.Multiple
<br>
'    Else
'     Exit
'    EndIf
'   Next
'  Else
'   For Each $Value in $Values
'    View $Value
'    $First = 0
'    Exit
'   Next
'  EndIf
'  If $First
<br>
'  EndIf
</td></tr>
' Next
' $FileSize = $FormProfile.File.Size
' Init $FileSize = 1
' If $FileSize or $d.Files.Count
<tr><td class="title" width="160" valign="top" nowrap>添付ファイル</td>
<td width="100%">
'  $First = 1
'  For Each $File in $d.Files
'   If $First
'    $First = 0
'   Else
 <br>
'   EndIf
'   $System.SetParameter Inline "Inline$WID"
'   $System.FileLink $File "Form" $Login.$Inline 0 "&wid=$WID&bs=$BS&vid=$VID&dbid=$DBID"
'  Next
'  If $First
<br>
'  EndIf
</td></tr>
' EndIf
</table>
</body>
</html>