Удаление складского ордера

[hope]

Может быть кто-нибудь знает функцию удаления складского ордера для Галактики 7.12?

Спасибо!

[edward_K]

//#include zPrihOrd.vih
#include zPrihOrdPr.vih

//var iPrihOrd : PrihOrd;
var iPrihOrd : PrihOrdPr;

iPrihOrd.Delete_Order(sklorder.nrec)

[hope]

Понятно! Спасибо! Но, к сожалению, этих файлов у меня нет...

[BlazeBio]

Попробуйте найти архив ...\FRM\L_Sklad.rar и распокавать его. Там вы найдёте zPrihOrd.vih и zPrihOrdPr.vih.

[hope]

А они подойдут для 7.12?

[BlazeBio]

А у вас стоит 7.12? Так возьмите L_Sklad.rar с того места, где установлена Галактика. Я думаю, что он должен подойти...

[hope]

В 7.12 еще не было деления по компонентам, в FRM - где лежат исходники присоединенных форм - этих файлов нет.

[BlazeBio]

В 7.12 еще не было деления по компонентам, в FRM - где лежат исходники присоединенных форм - этих файлов нет.

Вот содержимое данных файликов.

zPrihOrd.vih:

Код: Выделить всё

#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_

zPrihOrdPr.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_

[KATZ]

Нашел раритетный файл 2004 года MAKE_ORD.VIH, вроде бы от версии 7.12. Может, будет полезен.

Код: Выделить всё

#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
;

[hope]

Спасибо, Всем! Буду пробовать.

[hope]

Спасибо, KATZ! Все получилось!