twKatMaterials. Интерфейс предоставления данных сторонним модулям

Файл: Example\Src\VIP\Sklad\twKatMaterials.vip

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

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

#include IKatMaterials.vih

#component "C_SKLAD"

//******************************************************************************
#doc
 Реализация табличного объекта характеристик материала.
#end

interface twKatMaterials;

create view

as select
  *

from
  KatMaterials
;

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

property IKatMaterials.NRec : comp	 absolute KatMaterials.NRec  read;
property IKatMaterials.Name : string[40] absolute KatMaterials.Name  read;
property IKatMaterials.EI   : string[10] absolute KatMaterials.EI	read;
property IKatMaterials.Price: double	 absolute KatMaterials.Price read;

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

function IModify.doInsert : Word;
{
  Result := insert current KatMaterials;
}

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

function IModify.doUpdate : Word;
{
  Result := update current KatMaterials;
}

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

function IModify.doDelete : Word;
{
  Result := delete current KatMaterials;
}

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

implementation IModify.doFlush abstract;

index IKatMaterials.KatMaterials0 auto;

end.