' $System.Access Form
' If $System.IsPost
'  $System.Redirect $Server?page=FormDocView&wid=$WID&bs=$BS&rid=$RID&dbid=$DBID&bpt=$BPT
'  $Command.Form.AddComment
'  Exit
' EndIf
' $SystemName = $WorkSpace.Forms.$BS.Name
' $Disable = $WorkSpace.Forms.$BS.Disable
' If $WCH
'  Set $BP = $Command.Personal.SetBackPage $WCH "CustomerHistory"
'  $BP.Args.cid = $BCID
'  $BP.Args.dbid = $BDBID
'  $BP.Args.aid = $AID
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BP.Args.haid = $HAID
'  $BP.Args.ctype = $CType
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $WFS
'  Set $BP = $Command.Personal.SetBackPage $WFS "FormDocSearch"
'  $BP.Args.st = $ST
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BPT = $BP.TimeStamp
' Elif $WFI
'  Set $BP = $Command.Personal.SetBackPage $WFI "FormIndex"
'  $BP.Args.st = $ST
'  $BP.Args.qid = $QID
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BPT = $BP.TimeStamp
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryToolBar.html"-->
' $System.SetParameter CaptionTitle "$SystemNameの詳細"
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
'  Init $CType = $BP.args.ctype
' EndIf
' If $CType = "company"
'  $CName = "会社"
' Else
'  $CName = "顧客"
' EndIf
' If $BP.Page = "CustomerHistory"
'  $System.SetParameter CaptionBackPage "$CName$の履歴一覧へ"
'  $System.SetParameter BackURL "$Server?page=$BP.Page&wid=$WID&vid=$VID$$BP.Param&CAID=$BS&COID=$RID"
' Elif $BP.Page = "CustomerView"
'  $System.SetParameter CaptionBackPage "$CName$の詳細へ"
'  $System.SetParameter BackURL "$Server?page=$BP.Page&wid=$WID&vid=$VID$$BP.Param"
' Elif ( $BP.Page = "FormDocSearch" ) and ( ! $Disable )
'  $System.SetParameter CaptionBackPage "$SystemNameの検索へ"
'  $System.SetParameter BackURL "$Server?page=$BP.Page&wid=$WID&bs=$BS&vid=$VID&rid=$RID$$BP.Param"
' Else
'  $System.SetParameter CaptionBackPage "$SystemNameの一覧へ"
'  $System.SetParameter BackURL "$Server?page=FormIndex&wid=$WID&bs=$BS&vid=$VID&rid=$RID$$BP.Param"
' EndIf
' $Command.System.OnBrowse $SystemName $RID $WID
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function onPrint()
{
	window.open( '$Server?page=FormDocPrint&wid=$WID&bs=$BS&vid=$VID&rid=$RID&dbid=$DBID', 'PrintDoc', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );
}
jQuery(function($) {
    var form = document.forms['Form'];
    if (form && form.elements.Refresh.value == '1') {
        postComment(form, '$Server?page=AjaxComments&app=Form', null);
    }
});
//-->
</script>
</head>
<body>
' $System.SetParameter URLFormIndex "$Server?page=FormIndex&wid=$WID&bs=$BS&vid=$VID&rid=$RID"
' Call cmHeader $CaptionTitle $URLFormIndex $SystemName
<form method="post" action="$Server?" onSubmit="if( ! Text.value ){ return false; }">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerSearchIndex">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
<table class="menuColumn"><tr><td nowrap>
' Call tbCreateForm $BS
' Call tbSearchForm $BS
<td width="1%" nowrap>
' Call cmLinkButton "印刷する" "btn_print20.png" "" 0 0 0 "" "onPrint();"
</td><td><br></td>\\
' If ! $VID
<td align="right" nowrap>
'  Call tbSearchCustomer
</td>
' EndIf
</tr></table>
</form>
' $System.CloseDatabase "mw"
' Set $FormProfile = $Command.Form.GetFormTop $BS
' Set $d = $Command.Form.GetFormData $BS $RID $DBID
' If ! $d
<p>指定された履歴データは既に削除されています。</p>
'  If $VID
'   Call cmChildFooter $BackURL $CaptionBackPage
'  Else
'   Call cmFooter $BackURL $CaptionBackPage
'  EndIf
</body>
</html>
'  Exit
' EndIf
<form method="post" name="Form" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="FormDocView">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="RID" value="$RID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="Refresh" value="">
<table width="800" border="0" cellspacing="0" cellpadding="2">
' If $FormProfile.Image
'  $Image = $FormProfile.Image
' Else
'  $Image = "browse20.png"
' EndIf
<tr><td nowrap><img src="$IMG_PATH/$Image"><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>
' If ! $VID
<hr>
'  $AccessCreate = $Command.Form.IsAccessCreate $BS
'  $AccessModify = $Command.Form.IsAccessModify $BS $RID 0 $DBID
'  If $AccessModify and ( ! $Disable )
'   Call cmLink "変更する" "write20.png" "$Server?page=FormDocModify&wid=$WID&bs=$BS&rid=$RID&dbid=$DBID&bpt=$BPT"
'  EndIf
'  $AccessDelete = $Command.Form.IsAccessDelete $BS $RID 0 $DBID
'  If $AccessDelete and ( ! $Disable )
'   Call cmLink "削除する" "delete20.png" "$Server?page=FormDocDelete&wid=$WID&bs=$BS&rid=$RID&dbid=$DBID&bpt=$BPT"
'  EndIf
'  If $AccessCreate and ( ! $Disable )
'   Call cmLink "再利用作成" "recycle20.png" "$Server?page=FormDocAdd&wid=$WID&bs=$BS&rid=$RID&dbid=$DBID&bpt=$BPT"
'  EndIf
'  If ( ! $VID ) and ( ! $mw.DisableNotify )
'   Call cmLink "他のユーザーに通知する" "notice20.png" "$Server?page=FormDocNotify&wid=$WID&bs=$BS&rid=$RID&dbid=$DBID&bpt=$BPT"
'  EndIf
' EndIf
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr><td class="title" width="160" valign="top" nowrap>日時</td>
<td width="640">
' $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 class="title" valign="top" nowrap>顧客</td><td>
' For Each $c in $d.Customers
'  $CID = $c.CID
'  Set $cd = $CIndex.Cards.$CID
'  If $c.Company
<div>
'   If $cd and ( ! $WorkSpace.Customer.Disable )
'    Call cmLink $c.Name "company20.png" "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$c.CID&bid=$BS&brid=$RID&bdbid=$DBID&bpt=$BPT&WFV=$Login.ID"
'   Else
'    Call cmImage "company20.png"
$c.Name
'   EndIf
</div>
'   For Each $p in $c.Persons
'    $CID = $p.CID
'    Set $cd = $CIndex.Cards.$CID
<div style="text-indent:20;">
'    If $cd and ( ! $WorkSpace.Customer.Disable )
'     Call cmLink $p.Name "person20.png" "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$p.CID&bid=$BS&brid=$RID&bdbid=$DBID&bpt=$BPT&WFV=$Login.ID"
'    Else
'     Call cmImage "person20.png"
$p.Name
'    EndIf
</div>
'   Next
'  Else
<div>
'   If $cd and ( ! $WorkSpace.Customer.Disable )
'    Call cmLink $c.Name "person20.png" "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$c.CID&bid=$BS&brid=$RID&bdbid=$DBID&bpt=$BPT&WFV=$Login.ID"
'   Else
'    Call cmImage "person20.png"
$c.Name
'   EndIf
</div>
'  EndIf
' Next
' If ! $d.Customers.Count
<br>
' EndIf
</td></tr>
' For Each $Item in $FormProfile.Items
<tr><td class="title" valign="top" nowrap>$Item.Name<br></td>
<td>
'  $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
'    $UserName = $Command.User.GetUserName $Value
'    If ! $UserName
'     Continue
'    EndIf
$UserName
'    $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" valign="top" nowrap>添付ファイル</td>
<td>
'  $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
<tr><td class="title" valign="top" nowrap>最終更新</td><td nowrap>
' $UID = $d.MID
' $UserName = $Users.$UID.Name
' Init $UserName = $d.Modifier
' $t = $d.MTime
$UserName ($t.Year/$t.Month/$t.Day $t.Hour:$t.Minute00)
</td></tr>
' If ! $VID
<!--#include file="LibraryComment.html"-->
<tr><td class="title" valign="top" nowrap>コメント</td><td>
'  Call commentAdd "Form" "Comment" "Write"
'  Call commentView "Form"
</td></tr>
' EndIf
</table>
</form>
' If $VID
'  Call cmChildFooter $BackURL $CaptionBackPage
' Else
'  Call cmFooter $BackURL $CaptionBackPage
' EndIf
</body>
</html>