Доброе время суток!
Тема уже обсуждалась, но еще раз... Откликнитесь у кого есть PickBuh.vih.... бросьте на мыло jo_na@mail.ru
PickBuh
Модераторы: m0p3e, edward_K, Модераторы
-
- Местный житель
- Сообщения: 2896
- Зарегистрирован: 24 июн 2005, 12:12
- Откуда: Иркутская область
Код: Выделить всё
//------------------------------------------------------------------------------
// (c) Корпорация ГАЛАКТИКА
//------------------------------------------------------------------------------
// Галактика 5.8
// Обьектный интерфес работы с таблицей PickBuh
//------------------------------------------------------------------------------
#ifndef _PickBuh_vih_Included
#define _PickBuh_vih_Included
#ifdef ComponentVersion
#Component "F_BuhRep"
#end
#ifdef Gal8_1
!-------------------------------------------------------------------------------
Table struct PickBuh
(
KodTable : word "таблица"
,PickRec : tNRec "номер элемента в списке"
,PickKod : tSchet3 "код или NRec элемента"
,Schet : tSchet3 "бухг.счет"
,SubKau : tSchet3 "субсчет/КАУ"
,Name : tName "имя фильтра"
,Pick : integer "порядок выбора"
,PickKol : double "количество"
)
with index
(
PickBuhRec = KodTable + PickRec
,PickBuhKod = KodTable + PickKod
,PickBuhSch = KodTable + Schet + PickKod
,PickBuhPck = KodTable + Pick
);
!-------------------------------------------------------------------------------
#end
!-------------------------------------------------------------------------------
#doc
Серфисные функции для работы с таблицей PickBuh
#end
ObjInterface ObjPickBuh;
!-------------------------------------------------------------------------------
#doc
Подсчет количесва записей по коду таблицы
#end
function GetCountItem (wTab : word) : word;
!-------------------------------------------------------------------------------
#doc
Существуют ли записи по коду таблицы
#end
function FoundInPick (wTab : word) : boolean;
!-------------------------------------------------------------------------------
#doc
Вернуть PickRec первой найденной по коду таблицы записи
#end
function FoundInPick_GetRec
(wTab : word) : comp;
!-------------------------------------------------------------------------------
#doc
Вернуть PickKod первой найденной по коду таблицы записи
#end
function FoundInPick_GetKod
(wTab : word) : tSchet3;
!-------------------------------------------------------------------------------
#doc
Вернуть Schet первой найденной по коду таблицы записи
#end
function FoundInPick_GetSchet(wTab : word) : tSchet3;
!-------------------------------------------------------------------------------
#doc
Существуют ли запись по коду таблицы и PickKod
#end
function FoundInPickByKod (wTab : word; sKod : tSchet3) : boolean;
!-------------------------------------------------------------------------------
#doc
Существуют ли запись по коду таблицы и PickRec
#end
function FoundInPickByRec (wTab : word; cRec : comp) : boolean;
!-------------------------------------------------------------------------------
// приходится искать _Loop - ом, надо это дело как то грохать
#doc
Есть ли субсчет
#end
function FoundSubSch (Sch : tSchet3; Sub : tSubSch) : boolean;
!-------------------------------------------------------------------------------
#doc
Найти первый попавшийся субсчет и вернуть его и его счет
#end
function FoundFirstSub (var Sch : tSchet3;
var Sub : tSubSch) : boolean;
!-------------------------------------------------------------------------------
#doc
Есть ли в PickBuh субсчета указанного счета
#end
function FoundSubForSchet (Sch : tSchet3) : boolean;
!-------------------------------------------------------------------------------
#doc
Очистка таблицы
#end
function DeletePickBuh : boolean;
!-------------------------------------------------------------------------------
#doc
Удаление по коду таблицы
#end
function DeleteItem (wTbl : word) : boolean;
!-------------------------------------------------------------------------------
#doc
Удаление по коду таблицы и PickRec
#end
function DeleteItemByRec (wTab : word; cRec : comp) : boolean;
!-------------------------------------------------------------------------------
#doc
Удаление по коду таблицы и Счету
#end
function DeleteItemBySchet (wTab : word; Sch : tSchet3) : boolean;
!-------------------------------------------------------------------------------
#doc
Скопировать записи и вернуть количество
#end
function CopyItem (wOld, wNew : word) : word;
!-------------------------------------------------------------------------------
#doc
Перенести записи на новый код таблицы и вернуть количество
#end
function MoveItem (wOld, wNew : word) : word;
!-------------------------------------------------------------------------------
#doc
Вставить запись (все поля)
#end
function InsertFullRecord (wTbl : word;
cRec : comp;
sKod, sSch, sSub, sName : string;
iPick : integer;
dPick : double) : boolean;
!-------------------------------------------------------------------------------
#doc
Вставить запись (все поля для аналитики)
#end
function InsertAnRecord (wTbl : word;
cRec : comp;
sKod, sName : string;
iPick : integer) : boolean;
!-------------------------------------------------------------------------------
end;
!-------------------------------------------------------------------------------
VipInterface PickBuh implements ObjPickBuh #Licensed_Free;
!-------------------------------------------------------------------------------
#end // _PickBuh_vih_Included
Re: PickBuh
При подключении этого виха, получаю рантайм при вызове F_BUHSCHET::GetBuhSchet из любого места в галке или при использовании любого метода из данного виха. Help
-
- Местный житель
- Сообщения: 2896
- Зарегистрирован: 24 июн 2005, 12:12
- Откуда: Иркутская область
Re: PickBuh
как бы этот вих из другой компоненты. у вас в ехе\фрм в архиве должна быть ваша версия виха, которая вам нужна.
ну и в проекте указать #define ComponentVersion
ну и в проекте указать #define ComponentVersion