<!--#include file="LibraryForm.html"-->
<!--#include file="LibrarySelect.html"-->
''<!------------------------------------------------------------------
''  履歴入力フォームのJavascript文
''  構文：Call jsfDocSet <履歴フォーム情報> <ドラフト>
''------------------------------------------------------------------->
' Sub jsfDocSet $jsfFormProfile $jsfDraft
<script language="JavaScript" type="text/javascript"><!--
function PreSubmit( form )
{
'  For Each $jsfItem in $jsfFormProfile.Items
'   $jsfIID = $jsfItem.ID
'   $jsfType = $jsfItem.Type
'   If ( $jsfType = "User" ) and $jsfItem.Multiple
	PreSubmitGID$jsfIID( form );
'   EndIf
'  Next
}
function onSubmit( form )
{
	if( form.Mode.value == 'Search' )
	{
		var i = form.SearchItem.selectedIndex;
		window.open( '$Server?page=FormSelectCustomer&wid=$WID&bs=$BS&did=$jsfDraft.ID&OnSearch=1&searchitem=' + form.SearchItem.options[i].value, 'SelectCustomer', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );
		return false;
	}
	else if( form.Mode.value != 'Submit' )
	{
		PreSubmit( form );
		return true;
	}
'  If $jsfFormProfile.Subject.Necessary
'   If $jsfFormProfile.Subject.Type
	var i = form.SubjectSelect.selectedIndex;
	if( ! form.SubjectSelect.options[i].value )
	{
'    If $jsfFormProfile.Subject.Type = 2
		alert( "件名を入力してください。" );
		return false;
'    Else
		if( ! form.SubjectInput.value )
		{
			alert( "件名を入力してください。" );
			return false;
		}
'    EndIf
	}
'   Else
	if( ! form.SubjectInput.value )
	{
		alert( "件名を入力してください。" );
		return false;
	}
'   EndIf
'  EndIf
'  For Each $jsfItem in $jsfFormProfile.Items
'   $jsfIID = $jsfItem.ID
'   $jsfType = $jsfItem.Type
'   If $jsfItem.Necessary
'    If $jsfType = "Select"
'     If $jsfItem.Multiple
'      $jsfCount = $jsfItem.Options.Count
'      Init $jsfCount = 0
	var cc = 0;
	for( i = 0; i < $jsfCount; i++ )
	{
		if( form.Item$jsfIID$[i].checked )
		{
			cc++;
		}
	}
	if( cc == 0 )
	{
		alert( "$jsfItem.Nameを入力してください。" );
		return false;
	}
'     EndIf
'    Elif $jsfType = "User"
'     If $jsfItem.Multiple
	if( form.Item$jsfIID$.length <= 1 )
	{
		alert( "$jsfItem.Nameを入力してください。" );
		return false;
	}
'     EndIf
'    Elif $jsfType = "Date"
'     If $jsfItem.Input
	if( ( ! form.elements['Item$jsfIID$.Year'].value ) || ( ! form.elements['Item$jsfIID$.Month'].value ) || ( ! form.elements['Item$jsfIID$.Day'].value ) )
	{
		alert( "$jsfItem.Nameを入力してください。" );
		return false;
	}
'     EndIf
'    Else
	if( ! form.Item$jsfIID$.value )
	{
		alert( "$jsfItem.Nameを入力してください。" );
		return false;
	}
'    EndIf
'   EndIf
'   If $jsfType = "Number"
	if( form.Item$jsfIID$.value && isNaN( form.Item$jsfIID$.value ) )
	{
		alert( "$jsfItem.Nameには数値を半角で入力してください。" );
		return false;
	}
'   EndIf
'  Next
	PreSubmit( form );
	return true;
}
function onCancel( form )
{
	if( confirm( "編集中の内容が破棄されますが、よろしいですか？" ) )
	{
		form.Mode.value ="Cancel";
		form.submit();
	}
}
function onRemoveCustomer( form, dcid )
{
	form.CID.value = dcid;
	form.Mode.value = 'Delete';
	PreSubmit( form );
	form.submit();
}
function onAddMember( form, dcid )
{
	form.CID.value = dcid;
	form.Mode.value = 'Add';
	PreSubmit( form );
	form.submit();
}
function onRemoveMember( form, dcid )
{
	form.CID.value = dcid;
	form.Mode.value = 'Remove';
	PreSubmit( form );
	form.submit();
}
function onAddPerson( cid, dbid )
{
	window.open( '$Server?page=CustomerSetAddPerson&wid=$WID&bs=$BS&companyid=' + cid + '&companydb=' + dbid, 'AddPerson', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );
}
function onChangeSection( form )
{
	form.Mode.value = '';
	PreSubmit( form );
	form.submit();
}
function onDeleteFile( checkdel, fileid )
{
'  If $Env.IsMSIE
	var e = document.getElementById( fileid );
	if( e && e.style )
	{
		if( checkdel.checked == true )
		{
			e.style.display="";
		}
		else
		{
			e.style.display="none";
		}
	}
'  EndIf
}
//-->
</script>
' EndSub
''<!------------------------------------------------------------------
''  会社のメンバー選択
''  構文：Call optionsPerson <顧客インデックスオブジェクト> <メンバー一覧オブジェクト>
''------------------------------------------------------------------->
' Sub optionsPerson $Cards $Persons
'  For Each $cp in $Persons
'   $CPID = $cp.CID
'   Set $p = $Cards.$CPID
 <option value="$p.ID">$p.Name</option>
'  Next
' EndSub
''<!------------------------------------------------------------------
''  履歴入力フォーム
''  構文：Call fdSet <履歴フォームID> <履歴フォーム情報> <ドラフト> <画面移動時に渡す引数>
''------------------------------------------------------------------->
' Sub fdSet $fdsBS $fdsFormProfile $fdsDraft $fdsArg
<p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>日時
' Call formNecessaryMark
</td><td>
' $fdsType = $fdsFormProfile.DateTime.Type
' $fdsSpan = $fdsFormProfile.DateTime.Span
' If $fdsType = 1
'  Call formDate "SetDate" "FormDoc" 1 $fdsDraft.SetDate
～
'  If $fdsDraft.EndDate
'   $fdsEndDate = $fdsDraft.EndDate
'  Else
'   $fdsEndDate = $fdsDraft.SetDate
'  EndIf
'  Call formDate "EndDate" "FormDoc" 1 $fdsEndDate
' Elif $fdsType = 2
'  Call formDate "SetDate" "FormDoc" 1 $fdsDraft.SetDate
'  Call formTime "SetTime" "" $fdsDraft.SetTime $fdsSpan
' Elif $fdsType = 3
'  Call formDate "SetDate" "FormDoc" 1 $fdsDraft.SetDate
'  Call formTime "SetTime" "" $fdsDraft.SetTime $fdsSpan
～
'  If $fdsDraft.EndDate
'   $fdsEndDate = $fdsDraft.EndDate
'  Else
'   $fdsEndDate = $fdsDraft.SetDate
'  EndIf
'  Call formDate "EndDate" "FormDoc" 1 $fdsEndDate
'  Call formTime "EndTime" "" $fdsDraft.EndTime $fdsSpan
' Else
'  Call formDate "SetDate" "FormDoc" 1 $fdsDraft.SetDate
' EndIf
</td></tr>
<tr><td valign="top" nowrap>件名
' If $fdsFormProfile.Subject.Necessary
'  Call formNecessaryMark
' EndIf
</td><td nowrap>
' $fdsType = $fdsFormProfile.Subject.Type
' If $fdsType
<select name="SubjectSelect">
'  If ( $fdsType != 2 ) or ( ! $fdsFormProfile.Subject.Necessary )
<option value="">----</option>
'  EndIf
'  For Each $fdsOption in $fdsFormProfile.Subject.Options
'   If $fdsOption = $fdsDraft.SubjectSelect
'    $fdsSel = "Selected"
'   Else
'    $fdsSel = ""
'   EndIf
<option value="$fdsOption" $fdsSel>$fdsOption</option>
'  Next
</select>
' EndIf
' If $fdsType != 2
'  Call formText "SubjectInput" $fdsDraft.SubjectInput 20 1
' EndIf
</td></tr>
' If ! $WorkSpace.Customer.Disable
<tr><td valign="top" nowrap>顧客</td><td nowrap>
'  Set $Cards = $CIndex.Cards
'  For Each $dc in $fdsDraft.Customers
<div class="personSelect">
'   If $dc.Company
'    $Image = "company20.png"
'   Else
'    $Image = "person20.png"
'   EndIf
'   Set $c = $Command.Customer.GetCustomer $WID $dc.CID 0 $dc.DBID
 <table border="0" cellspacing="0" cellpadding="2">
 <tr><td nowrap>
'   If $c
'    Call cmLink $dc.Name $Image "$Server?page=CustomerView&wid=$WID&cid=$dc.CID&dbid=$dc.DBID&wfs=$Login.ID$$fdsArg"
'   Else
'    Call cmImage $Image
$dc.Name
'   EndIf
 </td>
 <td nowrap>\\
'   Call cmButton "削除する" "onRemoveCustomer( this.form, $dc.ID );"
</td>
'   If $dc.Company
'    If $c and $WorkSpace.Customer.IsAccessCreate
 <td nowrap>
'     Call cmLink "顧客を登録する" "person20.png" "javascript:onAddPerson( $dc.CID, $dc.DBID );"
 </td>
'    EndIf
'    If $c.Persons.Count or $dc.Persons.Count
 </tr></table>
 <table border="0" cellspacing="0" cellpadding="2">
'     If ! $Customer.Section.Disable
'      $SCID = $dc.SectionID
'      If $c.Sections.Count
 <tr><td colspan="2"><br></td><td>
 <select name="Section$dc.CID" onChange="onChangeSection( this.form );">
  <option value="">(全て)</option>
'        Options $SCID in $c.Sections
</select>
</td></tr>
'      EndIf
'     EndIf
 <tr><td>
<select name="Person$dc.ID" size="4" multiple>
'     For Each $dp in $dc.Persons
 <option value="$dp.ID">$dp.Name</option>
'     Next
 <option value="">　　　　　　　　　　</option>
</select>
</td>
 <td><div>
'     If $dc.CID
'      Call cmButton "← 追加" "onAddMember( this.form, $dc.CID );"
'     Else
'      Call cmButton "← 追加"
'     EndIf
</div><div style="margin-top:5;">\\
'     Call cmButton "削除 →" "onRemoveMember( this.form, $dc.ID );"
</div></td>
 <td><select name="Customer$dc.CID" size="4" multiple>
'     If $Customer.Section.Disable
'      Call optionsPerson $Cards $c.Persons
'     Else
'      If $c.Sections.$SCID
'       Call optionsPerson $Cards $c.Sections.$SCID.Member
'      Else
'       Call optionsPerson $Cards $c.Member
'       For Each $Section in $c.Sections
'        Call optionsPerson $Cards $Section.Member
'       Next
'      EndIf
'     EndIf
<option value="">　　　　　　　　　　</option>
</select>
</td></tr>
 <tr><td><span class="fontNotice">メンバーの選択</span></td><td></td>
 <td><span class="fontNotice">複数選択できます。</span></td>
'    EndIf
'   EndIf
 </tr></table>
</div>
'  Next
<div class="personSearch">
'  Call cmButton "顧客を追加する" "window.open( '$Server?page=FormSelectCustomer&wid=$WID&bs=$fdsBS&did=$fdsDraft.ID', 'SelectCustomer', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );"
'  Call cmImage "search20.png"
$WorkSpace.Customer.Name$検索\\
'  Set $PersonalCustomer = $Command.Customer.GetPersonalCustomer $WID
'  Init $SearchItem = $PersonalCustomer.SearchItem
<select name="SearchItem">
<option value="company" $SearchItem.Selected_company>会社名</option>
<option value="name" $SearchItem.Selected_name>名前</option>
<option value="tel" $SearchItem.Selected_tel>電話番号</option>
<option value="code" $SearchItem.Selected_code>顧客コード</option>
<option value="mail" $SearchItem.Selected_mail>メールアドレス</option>
</select>
'  Call formText "Text" $Text 20 1
'  Call formSubmit "Search" "検索" "Mode.value='Search';"
</div>
</td></tr>
' EndIf
' For Each $Item in $fdsFormProfile.Items
'  $IID = $Item.ID
'  Set $Values = $fdsDraft.Items.$IID
'  If ! $Item.Multiple
'   $Value = ""
'   For Each $Value in $Values
'    Exit
'   Next
'  EndIf
'  $fdsType = $Item.Type
<tr><td valign="top" nowrap>$Item.Name
'  If $Item.Necessary
'   Call formNecessaryMark
'  EndIf
'  If $fdsType = "Number"
'   Call formNumberMark
'  EndIf
</td><td>
'  If $fdsType = "Text"
'   Call formText "Item$IID" $Value $Item.Cols $Item.Rows
'  Elif $fdsType = "Number"
'   Call formText "Item$IID" $Value 20 1 15
'  Elif $fdsType = "Select"
'   If $Item.Multiple
'    $i = 0
'    If $Item.Line
'     $l = 0
<table border="0" cellspacing="0" cellpadding="2"><tr>
'    EndIf
'    For Each $Option in $Item.Options
'     Inc $i
'     If $Item.Line
'      If $l = $Item.Line
'       $l = 0
</tr><tr>
'      EndIf
<td nowrap>\\
'      Inc $l
'     EndIf
'     $Contains = $Values.Contains $Option
'     Call formCheckBox "Item$IID" $Option $Contains $Option "$IID-$i"
'     If $Item.Line
</td>
'     EndIf
'    Next
'    If $Item.Line
'     $Cols = $Item.Line - $l
'     If $Cols
<td colspan="$Cols"><br></td>
'     EndIf
</tr></table>
'    EndIf
'   Else
'    Call formSelect "Item$IID" $Item.Options $Value $Item.Necessary
'   EndIf
'  Elif $fdsType = "Date"
'   If $Item.Necessary and ( ! $Value )
'    $Value = $Date
'   EndIf
'   If $Item.Input
'    Call formText "Item$IID$.Year" $Value.Year 8 1 4
年
'    Call formText "Item$IID$.Month" $Value.Month 4 1 2
月
'    Call formText "Item$IID$.Day" $Value.Day 4 1 2
日
'   Else
'    Call formDate "Item$IID" "FormDoc" $Item.Necessary $Value
'   EndIf
'  Elif $fdsType = "User"
'   If $Item.Multiple
'    Call selectUser "GID$IID" "Item$IID" "UID$IID" $Values "" $Login.FirstGID "" "" "" "" "" 1
'   Else
<select name="Item$IID">
'    If ! $Item.Necessary
<option value="">----</option>
'    EndIf
'    If ! $Users.$Value
'     $selUserName = $Command.User.GetUserName $Value
'     If $selUserName
<option value="$Value" selected>$selUserName</option>
'     EndIf
'    EndIf
'    Options $Value in $Users
</select>
'   EndIf
'  EndIf
'  If $Item.Comment
<div><span class="fontNotice">$Item.Comment</span></div>
'  EndIf
</td></tr>
' Next
' $FileSize = $fdsFormProfile.File.Size
' Init $FileSize = 1
' $i = 1
' For Each $File in $fdsDraft.Files
'  Inc $i
<tr><td valign="top" nowrap>添付ファイル</td><td>
'  $System.SetParameter Inline "Inline$WID"
'  $System.FileLink $File Personal $Login.$Inline 0 $Login.ID
 :
'  Call formCheckBox "Delete$File.ID" "削除する" "" 1 "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"
</td></tr>
'  EndIf
' Next
' For $j = $i to $FileSize
<tr><td valign="top" nowrap>添付ファイル</td><td>
'  Call formFile "File"
</td></tr>
' Next
</table>
</p>
' EndSub