' $System.Access Customer
' $Command.Customer.AccessModify $WID $CID $System.IsPost $DBID
' If $System.IsPost
'  $System.Redirect $Server?page=CustomerView&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT
'  $Command.Customer.ModifyCompany
'  Exit
' EndIf
' Set $c = $Command.Customer.GetCustomer $WID $CID 0 $DBID
' $SCGID = $c.CGID
' $Code = $c.Code
' $Name = $c.Name
' $Yomi = $c.Yomi
' Set $Files = $c.Files
' Set $UIDs = $c.UIDs
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="PartsCustomerSet.html"-->
<!--#include file="LibrarySelect.html"-->
' $CaptionTitle = "会社データの変更"
' Call cmHead $CaptionTitle
' Call jsOnSubmit 1
<script language="JavaScript" type="text/javascript"><!--
function onDeleteFile( delCheckID, fileid )
{
'  If $Env.IsMSIE
	var checkdel = document.getElementById( delCheckID );
	var e = document.getElementById( fileid );
	if( checkdel && e && e.style )
	{
		if( checkdel.checked == true )
		{
			e.style.display="";
		}
		else
		{
			e.style.display="none";
		}
	}
'  EndIf
}

function initializeFiles()
{
'  If $Env.IsMSIE
	var form = document.forms["CustomerModify"];
'   For Each $File in $Files
	onDeleteFile( 'Delete$File.ID', 'File$File.ID' );
'   Next
'  EndIf
}

'  If $Env.IsMSIE
function CheckModFile( delCheckID, modFileID )
{
	var checkdel = document.getElementById( delCheckID );
	if( checkdel && checkdel.checked == false )
	{
		modFile = document.getElementById( modFileID );
		if( modFile )
		{
			modFile.name = "skip"
		}
	}
}

'  EndIf
function CheckModFiles( form )
{
'  If $Env.IsMSIE
'   For Each $File in $Files
	CheckModFile( 'Delete$File.ID', 'Mod$File.ID' )
'   Next
'  EndIf
}
//-->
</script>
</head>
<body onLoad="initializeFiles()">
' $System.SetParameter BackURL "$Server?page=CustomerView&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT"
' $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID"
' Call cmHeader $CaptionTitle $URLCustomerIndex $WorkSpace.Customer.Name $BackURL "会社の詳細"
<form name="CustomerModify" method="post" action="$Server?" enctype="multipart/form-data">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerModifyCompany">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="CID" value="$CID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="BPT" value="$BPT">
会社の情報を入力してください。<br>
' Call formNote 1 1
<p>
<table border="0" cellspacing="0" cellpadding="2">
' Set $Company = $Customer.Company
' If $Company.Groups.Count
<tr><td valign="top" nowrap>会社グループ</td><td>
<select name="SCGID">
<option value="">----
'  Options $SCGID in $Company.Groups
</select>
</td></tr>
' EndIf
' If $Company.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 $Company.Yomi.Necessary
'  Call formNecessaryMark
' EndIf
</td><td>
' Call formText "Yomi" $Yomi 20 1
</td></tr>
<tr><td valign="top" nowrap>電話番号</td><td>
' Call formText "Tel" $c.Tels 20 2 "" "" 1
<br><font size="-1" color="#008800">複数ある場合は、1行にひとつずつ記述してください</font>
</td></tr>
' Call itemsForm $Company.Items "CustomerModify" $c 1
<tr><td valign="top" nowrap>担当</td><td>
' Set $AccessCommand = $Command.Customer
' Call selectUser "GID" "UIDs" "UID" $UIDs "" $Login.FirstGID "" $AccessCommand
</td></tr>
' $CompanyFileSize = $Company.File.Size
' Init $CompanyFileSize = 1
' For Each $File in $Files
<tr><td valign="top" nowrap>添付ファイル</td><td>
'  $System.SetParameter Inline "Inline$WID"
'  $System.FileLink $File "Customer" $Login.$Inline 0 "&wid=$WID&cid=$CID"
 :
'  Call formCheckBox "Delete" "削除する" "" $File.ID "Delete$File.ID" "onDeleteFile( 'Delete$File.ID', 'File$File.ID' );"
</td></tr>
'  If $Env.IsMSIE
<tr id="File$File.ID" style="display:none;"><td><br></td><td>
'   Call formFile "File" "" "" "" "Mod$File.ID"
</td></tr>
'  EndIf
' Next
' $incFileCount = $Files.Count + 1
' For $j = $incFileCount to $CompanyFileSize
<tr><td valign="top" nowrap>添付ファイル</td><td>
'  Call formFile "File"
</td></tr>
' Next
</table>
</p>
<p class="formCommit">
' Call cmButton "変更する" "if( onSubmit( this.form ) ){ CheckModFiles(this.form); this.form.submit(); }"
' Call cmButton "キャンセルする" "location.href='$BackURL.JSEscape';"
</p>
</form>
' $BS = -2
' Call cmFooter $BackURL "会社の詳細へ"
</body>
</html>