' $System.Access Login
' If $System.IsPost
'  $Command.Mail.AccessModify $BS $MID $Type 1 $DBID
'  $Command.Mail.ChangeCustomer $BS $MID $DBID $Type $CID $TID
'  $System.ContentType
' EndIf
' Set $c = $Command.Customer.GetCustomer $WID $CID
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
' Call cmHtmlHead
' If $System.IsPost
' Call cmLoadJavaScript "window"
<script language="JavaScript" type="text/javascript"><!--
if ( IsAliveWindow( window.parent.opener ) )
{
    window.parent.opener.location.reload();
}
window.parent.close();
//-->
</script>
'  Exit
' EndIf
<!--#include file="LibraryCustomerView.html"-->
' $CaptionTitle = "メールの顧客の設定"
' Call cmHead $CaptionTitle
<body>
' Call cmChildHeader $CaptionTitle
''
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerSetRelatedPerson">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="MID" value="$MID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="Type" value="$Type">
<input type="hidden" name="TID" value="$TID">
<input type="hidden" name="CID" value="$CID">
''
' Sub mainColumn
<p>メールアドレスが「<b>$Mail</b>」の顧客は「\\
' Call cmImage "person20.png"
<b>$c.Name</b>」が既に登録されています。</p>
<table class="dataView" width="100%">
' Call viewData $c
</table>
<p>メール\\
' If $Subject
「<b>$Subject</b>」\\
' EndIf
の顧客に上記の顧客を設定しますか？</p>
' EndSub
''
' Sub commitColumn
'  $System.SetParameter localURL "$Server?page=CustomerSetAddPerson&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&tid=$TID&force=1"
'  Call formCommit "はい" "いいえ" "" "location.href='$localURL.JSEscape';"
' EndSub
''
' Call layout_msg "" "" 0 mainColumn "" "" commitColumn
' Call cmChildFooter
</body>
</html>