<table border="0" cellspacing="0" cellpadding="2">
' Set $Person = $Customer.Person
' If $Person.Groups.Count
<tr><td valign="top" nowrap>顧客グループ</td><td>
<select name="SCGID">
<option value="">----
'  Options $SCGID in $Person.Groups
</select>
</td></tr>
' EndIf
' If $Person.Code.Manual
<tr><td valign="top" nowrap>顧客コード</td><td>
'  Call formText "Code" $Code 20 1
</td></tr>
' EndIf
<tr><td valign="top" nowrap>名前
' Call formNecessaryMark
</td><td>
' Call formText "Name" $Name 20 1
</td></tr>
<tr><td valign="top" nowrap>よみ
' If $Person.Yomi.Necessary
'  Call formNecessaryMark
' EndIf
</td><td>
' Call formText "Yomi" $Yomi 20 1
</td></tr>
' If $Company.Sections.Count and ( ! $Person.Section.Disable )
<tr><td valign="top" nowrap>部課</td><td>
<select name="SectionID">
<option value="">----
'  Options $SectionID in $Company.Sections
</select>
</td></tr>
' EndIf
<tr><td valign="top" nowrap>電話番号</td><td>
' Call formText "Tel" $Tel 20 2
<br><span class="fontNotice">複数ある場合は、1行にひとつずつ記述してください</span>
</td></tr>
<tr><td valign="top" nowrap>メールアドレス</td><td>
' Call formText "Mail" $Mail 20 2
<br><span class="fontNotice">複数ある場合は、1行にひとつずつ記述してください</span>
</td></tr>
' If $Person.Post.Default
'  $Stop = 1
' EndIf
<tr><td valign="top" nowrap>配信停止</td><td>
' Call formCheckBox "Stop" "配信停止" $Stop 1 "Stop"
</td></tr>
' Call itemsForm $Person.Items "CustomerAdd" $dc
<tr><td valign="top" nowrap>担当</td><td>
' If $Company
'  Set $UIDs = $Company.UIDs
' Else
'  $UIDs = $Login.ID
' EndIf
' Set $AccessCommand = $Command.Customer
' Call selectUser "GID" "UIDs" "UID" $UIDs "" $Login.FirstGID "" $AccessCommand
</td></tr>
' $PersonFileSize = $Person.File.Size
' Init $PersonFileSize = 1
' For $i = 1 to $PersonFileSize
<tr><td valign="top" nowrap>添付ファイル</td><td>
'  Call formFile "File"
</td></tr>
' Next
</table>