<TR>
	<TD class=MyCell>作成日</TD>
	<TD class=MyCell>
		<OBJECT
			NAME=In2002
			CLASSID='CLSID:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1'
			style='width:120;height:26'
		>
			<PARAM NAME="CurrentDate" VALUE="<?= $_POST["In2002"] ?>">
		</OBJECT>
	</TD>
</TR>

# **********************************************************
# データベースデータの編集
# **********************************************************
function EditQueryData( &$Column ) {

	$_POST["In2001"] = $Column['名称'];
	$_POST["In2002"] = GetDtpValue( $Column['作成日'] );

}

# **********************************************************
# 更新処理
# **********************************************************
function UpdateData( &$SQL ) {

	global $ErrMessage,$Message;
	global $Target,$KeyField,$KeyName;

	$Query = 'select * from ' . $Target;
	$Query .= ' where ' . $KeyName . ' = ' . Ss($_POST[$KeyField]);

	if ( $SQL->QueryEx( $Query ) ) {
		$Query = 'update ' . $Target;
		$Query .= ' set ';
		$Query .= '名称 = ' . Ss( $_POST['In2001'] );
		$Query .= ',作成日 = ' . Ss( GetDtpPostValue( $_POST['In2002'] ) );
		$Query .= ',更新日 = CURDATE()';
		$Query .= ' where ' . $KeyName . ' = ' . Ss($_POST[$KeyField]);

		if ( !$SQL->Execute( $Query ) ) {
			$ErrMessage = '更新に失敗しました';
			return FALSE;
		}

		$Message = '正常に更新されました';
	}
	else{

		$Query = 'insert into ' . $Target;
		$Query .= ' (商品分類,名称,作成日,更新日) ';
		$Query .= ' values(';
		$Query .=  Ss( $_POST[$KeyField] );
		$Query .= ' ,' . Ss( $_POST['In2001']);
		$Query .= ' ,CURDATE(),CURDATE()';
		$Query .= ' )';
		
		if ( !$SQL->Execute( $Query ) ) {
			$ErrMessage = '追加に失敗しました';
			return FALSE;
		}

		$Message = '新規登録に成功しました';
	}

	return TRUE;
}