twPRJEXECUTORS. Реализация табличного врапера 'Исполнители (ресурсы)'

Файл: Example\Src\VIP\Core\twPrjExecutors.vip

Издание 01.2007. Добавлены директивы документирования.

Включен в проект начиная с издания 03.2005.

//******************************************************************************
//													(c) корпорация Галактика
// Демопроект 1.0 - Ядро приложения
// Реализация табличного врапера 'Исполнители'
//******************************************************************************

#include IPrjExecutors.vih

#component "C_CORE"

//******************************************************************************
#doc
 Реализация табличного врапера 'Исполнители'
#end

interface twPrjExecutors;
  create view as select * from PrjExecutors;

  property IPrjExecutors.NRec	 : comp   absolute PrjExecutors.NRec	 read write;
  property IPrjExecutors.cEmployee  : comp   absolute PrjExecutors.cEmployee  read write;
  property IPrjExecutors.cMaster	: comp   absolute PrjExecutors.cMaster	read write;
  property IPrjExecutors.MasterCode : word   absolute PrjExecutors.MasterCode read write;
  property IPrjExecutors.Status	 : byte   absolute PrjExecutors.Status	 read write;
  property IPrjExecutors.QuantP	 : double absolute PrjExecutors.QuantP	 read write;
  property IPrjExecutors.QuantF	 : double absolute PrjExecutors.QuantF	 read write;
  property IPrjExecutors.SummP	: double absolute PrjExecutors.SummP	read write;
  property IPrjExecutors.SummF	: double absolute PrjExecutors.SummF	read write;

  var _HaveRel2Obj : boolean;

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

constructor Init;
{
  _HaveRel2Obj := HaveObjRel4Obj( IPrjExecutors(Self) );
  result := true;
};

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

function IModify.doInsert: Word;
{
  result := insert current PrjExecutors;
}

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

function IModify.doUpdate: Word;
{
  if (_HaveRel2Obj)
	if (CheckObjRel4UpdatePK(IPrjExecutors(Self)))
	result := update current PrjExecutors;
	else
	result := tsOperationAbortedByTrigger;
  else
	result := update current PrjExecutors;
}

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

function IModify.doDelete: Word;
{
  if (_HaveRel2Obj)
	if (CheckObjRel4Delete(IPrjExecutors(Self)))
	result := delete current PrjExecutors;
	else
	result := tsOperationAbortedByTrigger;
  else
	result := delete current PrjExecutors;
}

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

function IManualIndex.Count: LongInt;
{
  result := RecordsInTable(#PRJEXECUTORS);
}

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

  implementation IModify.doFlush abstract;

  implementation IManualIndex.IndexActivated abstract;
  implementation IManualIndex.IndexDeactivated abstract;
  implementation IManualIndex.FilterChanged abstract;
  implementation IManualIndex.Find abstract;
  implementation IManualIndex.Move abstract;
  implementation IManualIndex.GetAddr abstract;
  implementation IManualIndex.GetDirect abstract;

  index IPrjExecutors.PrjExecutors0 auto;
  index IPrjExecutors.PrjExecutors01 auto;
  index IPrjExecutors.REF_PrjExecutors_4 auto;

end.