Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://asu.tyumbit.ru/
Вот содержимое данных файликов.hope писал(а):В 7.12 еще не было деления по компонентам, в FRM - где лежат исходники присоединенных форм - этих файлов нет.
Код: Выделить всё
#ifndef _ZPRIHORD_VIH_
#define _ZPRIHORD_VIH_
#ifdef ComponentVersion
#component "L_Sklad"
#end
#doc
Приходные складские ордера
#end
ObjInterface tPrihOrdIntf;
#doc
Печать приходного складского ордера
#end
procedure PrintOrder(_cSklOrder :comp);
#doc
Приходный складской ордер. Выбор позиций спецификации ордера в Pick. Pick.wList:= 64124
#end
function PickSpOrders(cSklOrder_, cSpOrder_: comp): boolean;
#doc
Приходный складской ордер. Выбор ордеров в Pick. Pick.wList:= 64125,
#end
function PickSklOrders(SP_, vidOrd_: word; cSklOrder_: comp): boolean; // vidOrd_= 0 -приходные, 1 -расходные
#doc
Приходный складской ордер. public-функция удаления ордера
#end
function Delete_Order(cSklOrder_: comp): boolean;
end;
#ifdef _ZPRIHORD_VIP_
VipInterface PrihOrd_Release implements tPrihOrdIntf
licensed
(
#include PRIHORD.lih
)
Parameters (pNrec :comp; SkPr :word);
public:
Function F_SklOrder_DelOnProtect: boolean;
Function F_SklOrder_Pick: boolean;
Function F_SetCurTable: boolean;
Function F_SpOrder_DelOnProtect: boolean;
Function F_SpOrder_Pick: boolean;
Procedure RunHotKeys;
Procedure OrdScan;
Function OneSpOrder_Delete: word;
end;
#else
VipInterface PrihOrd implements tPrihOrdIntf
licensed
(
#include PRIHORD.lih
)
Parameters (pNrec :comp; SkPr :word);
#end
#end //_ZPRIHORD_VIH_Код: Выделить всё
#ifndef _ZPRIHORDPR_VIH_
#define _ZPRIHORDPR_VIH_
#ifdef ComponentVersion
#component "L_Sklad" // ?
#end
#doc
Приходные складские ордера
#end
ObjInterface tPrihOrdPrIntf;
#doc
Печать приходного складского ордера
#end
procedure PrintOrder(_cSklOrder :comp);
#doc
Приходный складской ордер. Выбор позиций спецификации ордера в Pick. Pick.wList:= 64124
#end
function PickSpOrders(cSklOrder_, cSpOrder_: comp): boolean;
#doc
Приходный складской ордер. Выбор ордеров в Pick. Pick.wList:= 64125,
#end
function PickSklOrders(SP_, vidOrd_: word; cSklOrder_: comp): boolean; // vidOrd_= 0 -приходные, 1 -расходные
#doc
Приходный складской ордер. public-функция удаления ордера
#end
function Delete_Order(cSklOrder_: comp): boolean;
end;
VipInterface PrihOrdPr implements tPrihOrdPrIntf
#ifdef ATL51
licensed
(
FREE
)
Parameters (pNrec :comp; SkPr :word)
#end
;
#end //_ZPRIHORDPR_VIH_
Код: Выделить всё
#ifdef ComponentVersion
#component "L_Sklad"
#end
ObjInterface IObjMakeSkladOrder;
function DoMakeOrder(_TipOrd : word; _showmessage : boolean) : comp;
function GetOrderName(_nRec : comp; _extended : boolean) : string;
function CanDeleteOrder(_nRec : comp; _showmessage : boolean) : boolean;
function DeleteOrder(_nRec : comp; _showmessage : boolean) : boolean;
end;
VipInterface MakeSkladOrder implements IObjMakeSkladOrder
#ifdef ATL51
licensed (FREE)
#end
;