<!--#include file="LibraryForm.html"-->
' Sub jsOnSubmit $IsCompany
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
'  If $IsCompany
'   Set $Items = $Customer.Company.Items
	if( form.Name.value == '' )
	{
		alert( "会社名を入力してください。" );
		return false;
	}
'   If $Customer.Company.Yomi.Necessary
	if( form.Yomi.value == '' )
	{
		alert( "会社よみを入力してください。" );
		return false;
	}
'   EndIf
'  Else
'   Set $Items = $Customer.Person.Items
	if( form.Name.value == '' )
	{
		alert( "名前を入力してください。" );
		return false;
	}
'   If $Customer.Person.Yomi.Necessary
	if( form.Yomi.value == '' )
	{
		alert( "よみを入力してください。" );
		return false;
	}
'   EndIf
'  EndIf
'  For Each $Item in $Items
'   $IID = $Item.ID
'   $Access = $Command.Customer.IsAccessItem $Item
'   If ! $Access
'    Continue
'   EndIf
'   If $Item.Necessary
'    If $Item.Type = "Select"
'     If $Item.Multiple
'      $Count = $Item.Options.Count
'      Init $Count = 0
	var cc = 0;
	for( i = 0; i < $Count; i++ )
	{
		if( form.Item$IID$[i].checked )
		{
			cc++;
		}
	}
	if( cc == 0 )
	{
		alert( "$Item.Nameを入力してください。" );
		return false;
	}
'     EndIf
'    Elif $Item.Type = "Date"
'     If $Item.Input
	if( ( ! form.elements['Item$IID$.Year'].value ) || ( ! form.elements['Item$IID$.Month'].value ) || ( ! form.elements['Item$IID$.Day'].value ) )
	{
		alert( "$Item.Nameを入力してください。" );
		return false;
	}
'     EndIf
'    Else
	if( form.Item$IID$.value == '' )
	{
		alert( "$Item.Nameを入力してください。" );
		return false;
	}
'    EndIf
'   EndIf
'   If $Item.Type = "Number"
	if( form.Item$IID$.value && isNaN( form.Item$IID$.value ) )
	{
		alert( "$Item.Nameには数値を半角で入力してください。" );
		return false;
	}
'   EndIf
'  Next
	PreSubmitGID( form );
	return true;
}
//-->
</script>
' EndSub
' Sub itemsForm $sargItems $sargFormName $sargc $sargModify
'  For Each $Item in $sargItems
'   $IID = $Item.ID
'   $Access = $Command.Customer.IsAccessItem $Item
'   If ! $Access
'    Continue
'   EndIf
'   $Type = $Item.Type
<tr><td valign="top" nowrap>$Item.Name
'   If $Item.Necessary
'    Call formNecessaryMark
'   EndIf
'   If $Type = "Number"
'    Call formNumberMark
'   EndIf
</td><td>
'   Set $sargValues = $sargc.Items.$IID
'   If ! $Item.Multiple
'    $Value = ""
'    If $sargValues
'     For Each $Value in $sargValues
'      Exit
'     Next
'    Elif ! $sargModify
'     If $Type = "Date"
'      If $Item.Necessary or $Item.Default
'       $Value = $Date
'      EndIf
'     Else
'      $Value = $Item.Default
'     EndIf
'    EndIf
'   EndIf
'   If $Type = "Text"
'    Call formText "Item$IID" $Value $Item.Cols $Item.Rows
'   Elif $Type = "Number"
'    Call formText "Item$IID" $Value 20 1 15
'   Elif $Type = "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 = 0
'      If $sargValues
'       For Each $Value in $sargValues
'        If $Value = $Option
'         $Contains = 1
'         Exit
'        EndIf
'       Next
'      EndIf
'      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 $Type = "Date"
'    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" $sargFormName $Item.Necessary $Value
'    EndIf
'   EndIf
'   If $Item.Comment
<div><font color="#008800" size="-1">$Item.Comment</font></div>
'   EndIf
</td></tr>
'  Next
' EndSub