/*=================================================================
   Copyright (C) 2013 BizStation Corp All rights reserved.

   This program is free software; you can redistribute it and/or
   modify it under the terms of the GNU General Public License
   as published by the Free Software Foundation; either version 2
   of the License, or (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software 
   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
   02111-1307, USA.
=================================================================*/
#include "stdafx.h"
#include "FieldDef.h"
#include "Flags.h"

STDMETHODIMP CFieldDef::get_Name(BSTR* Value)
{
    CComBSTR ret;
    ret = fielddef()->name();
    *Value = ret.Copy();
    return S_OK;
}

STDMETHODIMP CFieldDef::put_Name(BSTR Value)
{
    fielddef()->setName(Value);
    return S_OK;
}

STDMETHODIMP CFieldDef::get_Type(eFieldType* Value)
{
    *Value = (eFieldType)fielddef()->type;
    return S_OK;
}

STDMETHODIMP CFieldDef::put_Type(eFieldType Value)
{
    fielddef()->type = (uchar_td)Value;
    return S_OK;
}

STDMETHODIMP CFieldDef::get_Len(short* Value)
{
    *Value = fielddef()->len;
    return S_OK;
}

STDMETHODIMP CFieldDef::put_Len(short Value)
{
    fielddef()->len = Value;
    return S_OK;
}

STDMETHODIMP CFieldDef::get_Decimals(unsigned char* Value)
{
    *Value = fielddef()->decimals;
    return S_OK;
}

STDMETHODIMP CFieldDef::put_Decimals(unsigned char Value)
{
    fielddef()->decimals = Value;
    return S_OK;
}

STDMETHODIMP CFieldDef::get_Max(double* Value)
{
    *Value = fielddef()->max;
    return S_OK;
}

STDMETHODIMP CFieldDef::put_Max(double Value)
{
    fielddef()->max = Value;
    return S_OK;
}

STDMETHODIMP CFieldDef::get_Min(double* Value)
{
    *Value = fielddef()->min;
    return S_OK;
}

STDMETHODIMP CFieldDef::put_Min(double Value)
{
    fielddef()->min = Value;
    return S_OK;
}

STDMETHODIMP CFieldDef::get_DefValue(double* Value)
{
    *Value = fielddef()->defValue;
    return S_OK;
}

STDMETHODIMP CFieldDef::put_DefValue(double Value)
{
    fielddef()->defValue = Value;
    return S_OK;
}

STDMETHODIMP CFieldDef::get_LookTable(unsigned char* Value)
{
    *Value = fielddef()->lookTable;
    return S_OK;
}

STDMETHODIMP CFieldDef::put_LookTable(unsigned char Value)
{
    fielddef()->lookTable = Value;
    return S_OK;
}

STDMETHODIMP CFieldDef::get_LookField(unsigned char* Value)
{
    *Value = fielddef()->lookField;
    return S_OK;
}

STDMETHODIMP CFieldDef::put_LookField(unsigned char Value)
{
    fielddef()->lookField = Value;
    return S_OK;
}

STDMETHODIMP CFieldDef::get_LookViewField(short Index, unsigned char* Value)
{
    *Value = fielddef()->lookFields[Index];
    return S_OK;
}

STDMETHODIMP CFieldDef::put_LookViewField(short Index, unsigned char Value)
{
    fielddef()->lookFields[Index] = Value;
    return S_OK;
}

STDMETHODIMP CFieldDef::get_EnableFlags(IFlags** Value)
{
    CComObject<CFlags> *piObj;
    CComObject<CFlags>::CreateInstance(&piObj);
	if (piObj)
	{
		piObj->m_flags = fielddef()->enableFlags;
		IFlags* fl;
		piObj->QueryInterface(IID_IFlags, (void**)&fl);
		_ASSERTE(fl);
		*Value = piObj;
	}else
		*Value = 0;
    return S_OK;
}

STDMETHODIMP CFieldDef::put_EnableFlags(IFlags* Value)
{
    Value->All(&fielddef()->enableFlags.all);
    return S_OK;
}

STDMETHODIMP CFieldDef::get_Keylen(unsigned short* Value)
{
	*Value = fielddef()->keylen;
    return S_OK;
}

STDMETHODIMP CFieldDef::put_Keylen(unsigned short Value)
{
	fielddef()->keylen = Value;
    return S_OK;
}

STDMETHODIMP CFieldDef::get_NullValue(unsigned short* Value)
{
	*Value = fielddef()->nullValue;
    return S_OK;
}

STDMETHODIMP CFieldDef::put_NullValue(unsigned short Value)
{
	fielddef()->nullValue = (uchar_td)Value;
    return S_OK;
}

STDMETHODIMP CFieldDef::get_Align(unsigned int* Value)
{
	*Value = fielddef()->align();
    return S_OK;
}

STDMETHODIMP CFieldDef::get_TypeName( BSTR* Value)
{
	*Value = ::SysAllocString(fielddef()->typeName());
    return S_OK;
}

STDMETHODIMP CFieldDef::get_IsStringType( VARIANT_BOOL* Value)
{
	*Value = fielddef()->isStringType();
    return S_OK;
}

STDMETHODIMP CFieldDef::get_CharsetIndex(eCharset* Value)
{
	*Value = (eCharset)fielddef()->charsetIndex();
    return S_OK;
}

STDMETHODIMP CFieldDef::put_CharsetIndex(eCharset Value)
{
	fielddef()->setCharsetIndex((unsigned char)Value);
    return S_OK;
}

STDMETHODIMP CFieldDef::get_CodePage(unsigned int* Value)
{
	*Value = fielddef()->codePage();
    return S_OK;
}

STDMETHODIMP CFieldDef::get_CharNum(unsigned int* Value)
{
	*Value = fielddef()->charNum();
    return S_OK;
}

STDMETHODIMP CFieldDef::SetLenByCharnum(unsigned short Value)
{
	fielddef()->setLenByCharnum(Value);
    return S_OK;
}