eis/src/dbax/T_LOV_PARAMDBAX.cpp

778 lines
19 KiB
C++

// Version: 2019.4.4 10:22:45
// File: T_LOV_PARAMDBAX.cpp
#include <log4cplus/LOG.h>
#include "T_LOV_PARAMDBAX.h"
#include "T_LOV_PARAM.h"
#define NORECORD 100
using namespace log4cplus;
extern iDA::Connection cn;
extern char sqlErrMsg[4000];
#define DB_EXECUTE() try{ cmd.Execute();}catch( iDA::Exception &e){ dbSqlCode=-1;strcpy( sqlErrMsg,e.ErrMsg().c_str());return sqlErrMsg;}
#define DB_UPDEXECUTE() try{ updatecmd.Execute();}catch( iDA::Exception &e){ dbSqlCode=-1;strcpy( sqlErrMsg,e.ErrMsg().c_str());return sqlErrMsg;}
#define DB_RDEXECUTE() try{ readcmd.Execute();}catch( iDA::Exception &e){ dbSqlCode=-1;strcpy( sqlErrMsg,e.ErrMsg().c_str());return sqlErrMsg;}
#define DB_INSEXECUTE() try{ insertcmd.Execute();}catch( iDA::Exception &e){ dbSqlCode=-1;strcpy( sqlErrMsg,e.ErrMsg().c_str());return sqlErrMsg;}
#define DB_FETCH() try{ if( !readcmd.FetchNext()){ dbSqlCode = NORECORD;strcpy( sqlErrMsg, "No record found");return sqlErrMsg;}}catch( iDA::Exception &e){ dbSqlCode=-1;strcpy( sqlErrMsg,e.ErrMsg().c_str());return sqlErrMsg;}
#define DB_UPDAFFECTED() if( updatecmd.RowsAffected() <= 0){ strcpy( sqlErrMsg, "No record affected");return sqlErrMsg;}
//
// Declare DB Hostvariables
//
#define OPENED 1
#define CLOSED 2
/* ****************************************************************************** */
/* */
/* define DB */
/* Hostvariables */
/* */
/* ****************************************************************************** */
static char db_paramName[60+1];
static char db_plantType[3+1];
static char db_cType[12+1];
static short db_cTypeZi;
static char db_curValC[100+1];
static short db_curValCZi;
static double db_curValN;
static short db_curValNZi;
static char db_description[254+1];
static char db_limitNameLl[60+1];
static short db_limitNameLlZi;
static char db_limitNameUl[60+1];
static short db_limitNameUlZi;
static char db_moddescr[254+1];
static short db_moddescrZi;
static char db_sortOrder[10+1];
static short db_sortOrderZi;
static char db_unit[10+1];
static char db_toc[27];
static short db_tocZi;
static char db_tom[27];
static short db_tomZi;
static char db_mop[121];
static short db_mopZi;
static char db_mou[31];
static short db_mouZi;
static long rowCnt;
// Host arguments for Primary key
static char k_db_paramName[60+1];
static char k_db_plantType[3+1];
//
// constructor
//
T_LOV_PARAMDBAX::T_LOV_PARAMDBAX()
{
}
//
// destructor
//
T_LOV_PARAMDBAX::~T_LOV_PARAMDBAX()
{
}
char* T_LOV_PARAMDBAX::execute(const char* sql , long* count ){
dbSqlCode = 0;
cmd.SetConnection( &cn);
cmd.SetCommandText( sql);
DB_EXECUTE();
if( count != NULL)
{
*count = cmd.RowsAffected();
}
return ( NULL );
}
char* T_LOV_PARAMDBAX::dbCommit(){
dbSqlCode = 0;
try{
cn.Commit();
}catch( iDA::Exception &e)
{
dbSqlCode = -1;
strcpy( sqlErrMsg,e.ErrMsg().c_str());
return sqlErrMsg;
}
return ( NULL );
}
char* T_LOV_PARAMDBAX::dbRollback(){
dbSqlCode = 0;
try{
cn.Rollback();
}catch( iDA::Exception &e)
{
dbSqlCode = -1;
strcpy( sqlErrMsg,e.ErrMsg().c_str());
return sqlErrMsg;
}
return ( NULL );
}
//
// private methode copyDB2Attribute
//
void T_LOV_PARAMDBAX::copyDB2Attribute( T_LOV_PARAM &dbObj ){
dbObj.set_paramName((char*)db_paramName);
dbObj.set_plantType((char*)db_plantType);
dbObj.set_cType((char*)db_cType);
dbObj.set_cTypeZi((short)db_cTypeZi);
dbObj.set_curValC((char*)db_curValC);
dbObj.set_curValCZi((short)db_curValCZi);
dbObj.set_curValN((double)db_curValN);
dbObj.set_curValNZi((short)db_curValNZi);
dbObj.set_description((char*)db_description);
dbObj.set_limitNameLl((char*)db_limitNameLl);
dbObj.set_limitNameLlZi((short)db_limitNameLlZi);
dbObj.set_limitNameUl((char*)db_limitNameUl);
dbObj.set_limitNameUlZi((short)db_limitNameUlZi);
dbObj.set_moddescr((char*)db_moddescr);
dbObj.set_moddescrZi((short)db_moddescrZi);
dbObj.set_sortOrder((char*)db_sortOrder);
dbObj.set_sortOrderZi((short)db_sortOrderZi);
dbObj.set_unit((char*)db_unit);
dbObj.set_toc((char*)db_toc);
dbObj.set_tocZi((short)db_tocZi );
dbObj.set_tom((char*)db_tom);
dbObj.set_tomZi((short)db_tomZi );
dbObj.set_mop((char*)db_mop);
dbObj.set_mopZi((short)db_mopZi );
dbObj.set_mou((char*)db_mou);
dbObj.set_mouZi((short)db_mouZi );
} // end of methode
//
// private methode copyAttribute2DB
//
void T_LOV_PARAMDBAX::copyAttribute2DB( T_LOV_PARAM &dbObj ){
if (strlen(dbObj.paramName()) < sizeof(db_paramName)){
strncpy ((char*)db_paramName, dbObj.paramName(), sizeof(db_paramName));
}
if (strlen(dbObj.plantType()) < sizeof(db_plantType)){
strncpy ((char*)db_plantType, dbObj.plantType(), sizeof(db_plantType));
}
if (strlen(dbObj.cType()) < sizeof(db_cType)){
strncpy ((char*)db_cType, dbObj.cType(), sizeof(db_cType));
}
db_cTypeZi = dbObj.cTypeZi();
if (strlen(dbObj.curValC()) < sizeof(db_curValC)){
strncpy ((char*)db_curValC, dbObj.curValC(), sizeof(db_curValC));
}
db_curValCZi = dbObj.curValCZi();
db_curValN = dbObj.curValN();
db_curValNZi = dbObj.curValNZi();
if (strlen(dbObj.description()) < sizeof(db_description)){
strncpy ((char*)db_description, dbObj.description(), sizeof(db_description));
}
if (strlen(dbObj.limitNameLl()) < sizeof(db_limitNameLl)){
strncpy ((char*)db_limitNameLl, dbObj.limitNameLl(), sizeof(db_limitNameLl));
}
db_limitNameLlZi = dbObj.limitNameLlZi();
if (strlen(dbObj.limitNameUl()) < sizeof(db_limitNameUl)){
strncpy ((char*)db_limitNameUl, dbObj.limitNameUl(), sizeof(db_limitNameUl));
}
db_limitNameUlZi = dbObj.limitNameUlZi();
if (strlen(dbObj.moddescr()) < sizeof(db_moddescr)){
strncpy ((char*)db_moddescr, dbObj.moddescr(), sizeof(db_moddescr));
}
db_moddescrZi = dbObj.moddescrZi();
if (strlen(dbObj.sortOrder()) < sizeof(db_sortOrder)){
strncpy ((char*)db_sortOrder, dbObj.sortOrder(), sizeof(db_sortOrder));
}
db_sortOrderZi = dbObj.sortOrderZi();
if (strlen(dbObj.unit()) < sizeof(db_unit)){
strncpy ((char*)db_unit, dbObj.unit(), sizeof(db_unit));
}
} // end of methode
//
// private methode copyKey2Host
//
void T_LOV_PARAMDBAX::copyKey2Host( T_LOV_PARAM &dbObj ){
if (strlen(dbObj.k_paramName()) < sizeof(k_db_paramName)){
strncpy ((char*)k_db_paramName, dbObj.k_paramName(), sizeof(k_db_paramName));
}
if (strlen(dbObj.k_plantType()) < sizeof(k_db_plantType)){
strncpy ((char*)k_db_plantType, dbObj.k_plantType(), sizeof(k_db_plantType));
}
} // end of methode
//
// private methode copyHost2Key
//
void T_LOV_PARAMDBAX::copyHost2Key( T_LOV_PARAM &dbObj ){
dbObj.set_k_paramName((char*)db_paramName);
dbObj.set_k_plantType((char*)db_plantType);
} // end of methode
//
// public methode readDB
//
char* T_LOV_PARAMDBAX::readDB(T_LOV_PARAM &dbObj ){
copyKey2Host( dbObj );
ostringstream ostr;
dbSqlCode = 0;
ostr << "SELECT ";
// all columns
ostr << "paramName";
ostr << ",plantType";
ostr << ",cType";
ostr << ",curValC";
ostr << ",curValN";
ostr << ",description";
ostr << ",limitNameLl";
ostr << ",limitNameUl";
ostr << ",moddescr";
ostr << ",sortOrder";
ostr << ",unit";
ostr << ",TO_CHAR( toc , 'YYYYMMDDHH24MISS')";
ostr << ",TO_CHAR( tom , 'YYYYMMDDHH24MISS')";
ostr << ",mop";
ostr << ",mou";
ostr << " FROM T_LOV_PARAM WHERE ";
// where
ostr << "paramName = '" << k_db_paramName << "'";
ostr << " AND plantType = '" << k_db_plantType << "'";
readcmd.SetConnection(&cn);
readcmd.SetCommandText( ostr.str());
DB_RDEXECUTE();
DB_FETCH();
// Primary Keys
strncpy( db_paramName, readcmd.Field(1).AsString().c_str(), sizeof( db_paramName));
// Primary Keys
strncpy( db_plantType, readcmd.Field(2).AsString().c_str(), sizeof( db_plantType));
// Normal columns
// cType
if( readcmd.Field(3).IsNull() == false)
{
db_cTypeZi = 0;
strncpy( db_cType, readcmd.Field(3).AsString().c_str(), sizeof( db_cType));
}
else
{
db_cTypeZi = -1;
memset( db_cType, 0x00, sizeof( db_cType));
}
// Normal columns
// curValC
if( readcmd.Field(4).IsNull() == false)
{
db_curValCZi = 0;
strncpy( db_curValC, readcmd.Field(4).AsString().c_str(), sizeof( db_curValC));
}
else
{
db_curValCZi = -1;
memset( db_curValC, 0x00, sizeof( db_curValC));
}
// Normal columns
// curValN
if( readcmd.Field(5).IsNull() == false)
{
db_curValNZi = 0;
db_curValN = ( double)readcmd.Field(5).AsDouble();
}
else
{
db_curValNZi = -1;
db_curValN = 0;
}
// Normal columns
// description
strncpy( db_description, readcmd.Field(6).AsString().c_str(), sizeof( db_description));
// Normal columns
// limitNameLl
if( readcmd.Field(7).IsNull() == false)
{
db_limitNameLlZi = 0;
strncpy( db_limitNameLl, readcmd.Field(7).AsString().c_str(), sizeof( db_limitNameLl));
}
else
{
db_limitNameLlZi = -1;
memset( db_limitNameLl, 0x00, sizeof( db_limitNameLl));
}
// Normal columns
// limitNameUl
if( readcmd.Field(8).IsNull() == false)
{
db_limitNameUlZi = 0;
strncpy( db_limitNameUl, readcmd.Field(8).AsString().c_str(), sizeof( db_limitNameUl));
}
else
{
db_limitNameUlZi = -1;
memset( db_limitNameUl, 0x00, sizeof( db_limitNameUl));
}
// Normal columns
// moddescr
if( readcmd.Field(9).IsNull() == false)
{
db_moddescrZi = 0;
strncpy( db_moddescr, readcmd.Field(9).AsString().c_str(), sizeof( db_moddescr));
}
else
{
db_moddescrZi = -1;
memset( db_moddescr, 0x00, sizeof( db_moddescr));
}
// Normal columns
// sortOrder
if( readcmd.Field(10).IsNull() == false)
{
db_sortOrderZi = 0;
strncpy( db_sortOrder, readcmd.Field(10).AsString().c_str(), sizeof( db_sortOrder));
}
else
{
db_sortOrderZi = -1;
memset( db_sortOrder, 0x00, sizeof( db_sortOrder));
}
// Normal columns
// unit
strncpy( db_unit, readcmd.Field(11).AsString().c_str(), sizeof( db_unit));
// toc
if( readcmd.Field(12).IsNull() == false)
{
db_tocZi = 0;
strncpy( db_toc, readcmd.Field(12).AsString().c_str(), sizeof( db_toc));
}
else
{
db_tocZi = -1;
memset( db_toc, 0x00, sizeof( db_toc));
}
// tom
if( readcmd.Field(13).IsNull() == false)
{
db_tomZi = 0;
strncpy( db_tom, readcmd.Field(13).AsString().c_str(), sizeof( db_tom));
}
else
{
db_tomZi = -1;
memset( db_tom, 0x00, sizeof( db_tom));
}
// mop
if( readcmd.Field(14).IsNull() == false)
{
db_mopZi = 0;
strncpy( db_mop, readcmd.Field(14).AsString().c_str(), sizeof( db_mop));
}
else
{
db_mopZi = -1;
memset( db_mop, 0x00, sizeof( db_mop));
}
// mou
if( readcmd.Field(15).IsNull() == false)
{
db_mouZi = 0;
strncpy( db_mou, readcmd.Field(15).AsString().c_str(), sizeof( db_mou));
}
else
{
db_mouZi = -1;
memset( db_mou, 0x00, sizeof( db_mou));
}
// copy host variables into Class attributes
copyDB2Attribute( dbObj );
return ( NULL );
} // end of methode
//
// public methode updateDB
//
char* T_LOV_PARAMDBAX::updateDB(T_LOV_PARAM &dbObj ){
copyKey2Host( dbObj );
copyAttribute2DB( dbObj );
dbSqlCode = 0;
ostringstream ostr;
ostr << "UPDATE T_LOV_PARAM SET ";
// Material Keys & Primary Keys
ostr << "paramName='" << db_paramName << "'";
ostr << ", plantType='" << db_plantType << "'";
// Normal column
if( db_cTypeZi != -1) ostr << ", cType = '" << db_cType << "'"; else ostr<<",cType = NULL";
if( db_curValCZi != -1) ostr << ", curValC = '" << db_curValC << "'"; else ostr<<",curValC = NULL";
if( db_curValNZi != -1) ostr << ", curValN = " << db_curValN; else ostr<<",curValN = NULL";
ostr << ", description = '" << db_description << "'";
if( db_limitNameLlZi != -1) ostr << ", limitNameLl = '" << db_limitNameLl << "'"; else ostr<<",limitNameLl = NULL";
if( db_limitNameUlZi != -1) ostr << ", limitNameUl = '" << db_limitNameUl << "'"; else ostr<<",limitNameUl = NULL";
if( db_moddescrZi != -1) ostr << ", moddescr = '" << db_moddescr << "'"; else ostr<<",moddescr = NULL";
if( db_sortOrderZi != -1) ostr << ", sortOrder = '" << db_sortOrder << "'"; else ostr<<",sortOrder = NULL";
ostr << ", unit = '" << db_unit << "'";
// where
ostr << " WHERE ";
ostr << "paramName = '" << db_paramName << "'";
ostr << " AND plantType = '" << db_plantType << "'";
updatecmd.SetConnection(&cn);
updatecmd.SetCommandText( ostr.str());
DB_UPDEXECUTE();
DB_UPDAFFECTED();
return ( NULL );
} // end of methode
//
// public methode insertDB
//
char* T_LOV_PARAMDBAX::insertDB(T_LOV_PARAM &dbObj ){
copyAttribute2DB( dbObj );
dbSqlCode = 0;
m_sql = "INSERT INTO T_LOV_PARAM VALUES( :1, :2, :3, :4, :5, :6, :7, :8, :9, :10, :11, :12, :13, :14, :15)";
insertcmd.SetConnection(&cn);
insertcmd.SetCommandText( m_sql);
// Primary columns
insertcmd.Param(1) = ( char *)db_paramName;
// Primary columns
insertcmd.Param(2) = ( char *)db_plantType;
// Normal columns
if( db_cTypeZi != -1) insertcmd.Param(3) = ( char *)db_cType; else insertcmd.Param(3).SetAsNull();
// Normal columns
if( db_curValCZi != -1) insertcmd.Param(4) = ( char *)db_curValC; else insertcmd.Param(4).SetAsNull();
// Normal columns
if( db_curValNZi != -1) insertcmd.Param(5) = ( double)db_curValN; else insertcmd.Param(5).SetAsNull();
// Normal columns
insertcmd.Param(6) = ( char *)db_description;
// Normal columns
if( db_limitNameLlZi != -1) insertcmd.Param(7) = ( char *)db_limitNameLl; else insertcmd.Param(7).SetAsNull();
// Normal columns
if( db_limitNameUlZi != -1) insertcmd.Param(8) = ( char *)db_limitNameUl; else insertcmd.Param(8).SetAsNull();
// Normal columns
if( db_moddescrZi != -1) insertcmd.Param(9) = ( char *)db_moddescr; else insertcmd.Param(9).SetAsNull();
// Normal columns
if( db_sortOrderZi != -1) insertcmd.Param(10) = ( char *)db_sortOrder; else insertcmd.Param(10).SetAsNull();
// Normal columns
insertcmd.Param(11) = ( char *)db_unit;
//TOCTOMMOPMOU
insertcmd.Param(12).SetAsNull();
insertcmd.Param(13).SetAsNull();
insertcmd.Param(14).SetAsNull();
insertcmd.Param(15).SetAsNull();
DB_INSEXECUTE();
return ( NULL );
} // end of methode
//
// public methode deleteDB
//
char* T_LOV_PARAMDBAX::deleteDB(T_LOV_PARAM &dbObj ){
ostringstream ostr;
dbSqlCode = 0;
copyKey2Host( dbObj );
ostr << "DELETE FROM T_LOV_PARAM WHERE ";
ostr << "paramName = '" << db_paramName << "'"; ostr << " AND plantType = '" << db_plantType << "'";
cmd.SetConnection( &cn);
cmd.SetCommandText( ostr.str());
DB_EXECUTE();
return ( NULL );
} // end of methode
//
// public methode deleteDB delete in case of a where clause
//
char* T_LOV_PARAMDBAX::deleteDB(const char* where , long* count){
dbSqlCode = 0;
*(count) = -1L;
m_sql = "DELETE FROM T_LOV_PARAM ";
if ( where != (char*)NULL ) {
m_sql.append( where );
}
cmd.SetConnection( &cn);
cmd.SetCommandText( m_sql);
DB_EXECUTE();
if( count != NULL){
*count = cmd.RowsAffected();
}
return ( NULL );
} // end of methode
//
// public methode openSetDB
//
char* T_LOV_PARAMDBAX::openSetDB(const char* where , const char* order){
dbSqlCode = 0;
m_sql = "SELECT paramName, plantType, cType, curValC, curValN, description, limitNameLl, limitNameUl, moddescr, sortOrder, unit, TO_CHAR( toc , 'YYYYMMDDHH24MISS'), TO_CHAR( tom , 'YYYYMMDDHH24MISS'), mop, mou FROM T_LOV_PARAM ";
if ( where != (char*)NULL ) {
m_sql.append( where);
m_sql.append( " ");
}
if (order != (char*)NULL){
m_sql.append( order);
}
readcmd.SetConnection(&cn);
readcmd.SetCommandText( m_sql);
DB_RDEXECUTE();
return ( NULL );
} // end of methode
//
// public methode getSetDB
//
char* T_LOV_PARAMDBAX::getSetDB( T_LOV_PARAM &dbObj ){
dbSqlCode = 0;
DB_FETCH();
// Primary columns
strncpy( db_paramName, readcmd.Field(1).AsString().c_str(), sizeof( db_paramName));
// Primary columns
strncpy( db_plantType, readcmd.Field(2).AsString().c_str(), sizeof( db_plantType));
// Normal columns
// cType
if( readcmd.Field(3).IsNull() == false)
{
db_cTypeZi = 0;
strncpy( db_cType, readcmd.Field(3).AsString().c_str(), sizeof( db_cType));
}
else
{
db_cTypeZi = -1;
memset( db_cType, 0x00, sizeof( db_cType));
}
// Normal columns
// curValC
if( readcmd.Field(4).IsNull() == false)
{
db_curValCZi = 0;
strncpy( db_curValC, readcmd.Field(4).AsString().c_str(), sizeof( db_curValC));
}
else
{
db_curValCZi = -1;
memset( db_curValC, 0x00, sizeof( db_curValC));
}
// Normal columns
// curValN
if( readcmd.Field(5).IsNull() == false)
{
db_curValNZi = 0;
db_curValN = ( double)readcmd.Field(5).AsDouble();
}
else
{
db_curValNZi = -1;
db_curValN = 0;
}
// Normal columns
// description
strncpy( db_description, readcmd.Field(6).AsString().c_str(), sizeof( db_description));
// Normal columns
// limitNameLl
if( readcmd.Field(7).IsNull() == false)
{
db_limitNameLlZi = 0;
strncpy( db_limitNameLl, readcmd.Field(7).AsString().c_str(), sizeof( db_limitNameLl));
}
else
{
db_limitNameLlZi = -1;
memset( db_limitNameLl, 0x00, sizeof( db_limitNameLl));
}
// Normal columns
// limitNameUl
if( readcmd.Field(8).IsNull() == false)
{
db_limitNameUlZi = 0;
strncpy( db_limitNameUl, readcmd.Field(8).AsString().c_str(), sizeof( db_limitNameUl));
}
else
{
db_limitNameUlZi = -1;
memset( db_limitNameUl, 0x00, sizeof( db_limitNameUl));
}
// Normal columns
// moddescr
if( readcmd.Field(9).IsNull() == false)
{
db_moddescrZi = 0;
strncpy( db_moddescr, readcmd.Field(9).AsString().c_str(), sizeof( db_moddescr));
}
else
{
db_moddescrZi = -1;
memset( db_moddescr, 0x00, sizeof( db_moddescr));
}
// Normal columns
// sortOrder
if( readcmd.Field(10).IsNull() == false)
{
db_sortOrderZi = 0;
strncpy( db_sortOrder, readcmd.Field(10).AsString().c_str(), sizeof( db_sortOrder));
}
else
{
db_sortOrderZi = -1;
memset( db_sortOrder, 0x00, sizeof( db_sortOrder));
}
// Normal columns
// unit
strncpy( db_unit, readcmd.Field(11).AsString().c_str(), sizeof( db_unit));
// toc
if( readcmd.Field(12).IsNull() == false)
{
db_tocZi = 0;
strncpy( db_toc, readcmd.Field(12).AsString().c_str(), sizeof( db_toc));
}
else
{
db_tocZi = -1;
memset( db_toc, 0x00, sizeof( db_toc));
}
// tom
if( readcmd.Field(13).IsNull() == false)
{
db_tomZi = 0;
strncpy( db_tom, readcmd.Field(13).AsString().c_str(), sizeof( db_tom));
}
else
{
db_tomZi = -1;
memset( db_tom, 0x00, sizeof( db_tom));
}
// mop
if( readcmd.Field(14).IsNull() == false)
{
db_mopZi = 0;
strncpy( db_mop, readcmd.Field(14).AsString().c_str(), sizeof( db_mop));
}
else
{
db_mopZi = -1;
memset( db_mop, 0x00, sizeof( db_mop));
}
// mou
if( readcmd.Field(15).IsNull() == false)
{
db_mouZi = 0;
strncpy( db_mou, readcmd.Field(15).AsString().c_str(), sizeof( db_mou));
}
else
{
db_mouZi = -1;
memset( db_mou, 0x00, sizeof( db_mou));
}
copyDB2Attribute( dbObj );
copyHost2Key( dbObj );
return ( NULL );
} // end of methode
//
// public methode closeSetDB
//
char* T_LOV_PARAMDBAX::closeSetDB(){
dbSqlCode = 0;
return ( NULL );
} // end of methode
//
// public methode countDB
//
char* T_LOV_PARAMDBAX::countDB(const char* where , long* count){
dbSqlCode = 0;
*(count) = -1L;
m_sql = "SELECT count(*) FROM T_LOV_PARAM ";
if ( where != (char*)NULL ) {
m_sql.append( where);
}
readcmd.SetConnection(&cn);
readcmd.SetCommandText( m_sql);
DB_RDEXECUTE();
DB_FETCH();
*count = ( long)readcmd.Field(1).AsLong();
return ( NULL );
} // end of methode