zcomfun.cpp

科思ERP部分源码及控件

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "zcomfun.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)
Variant  ReturnNeedValue(Variant FieldValue, Variant Default)
{
  Variant retValue;
    if (FieldValue.IsNull())
        retValue=Default;
     else
        retValue=FieldValue;
    return retValue;
}