Объектный фейс L_Sklad::Makeorder

[timaskraft]

Возникла необходимость создавать ордера, хочу использовать объектный фейс MakeOrder

В Galdoc нашел описание объектных функций, но некоторые параметры функций остаются загадкой .
может кто поделится исходничком, или знает их значения?

нужно пояснение параметров - выделенных бордовым цветом
Формирование приходного ордера
Function MakePrihOrder (pKatSopr : Comp; showMess : Boolean; var firstRozn : Boolean; var prRozn : Boolean; wSkPr : Word; wMode : Word; wParam : Word) : Boolean;

pKatSopr : nrec Katsopr
showMess : выводить ли сообщения
firstRozn : ????? (подозреваю для розницы)
prRozn : ????? ---/-----
wSkPr : Склад/ производство (0/1)
wMode : ?????
wParam : ????
и тоже самое непонятно по формированию расходного ордера
Function MakeRashOrder (pKatSopr : Comp; dForm : Date; Counts : Integer; doDoocen : Boolean; nDescr : Boolean; frmHandle : LongInt; var wMsgForm : Word; wSkPr : Word; wMode : Word; wParam : Word) : Boolean;

[edward_K]

вот это может поможет
oMakeOrder.MakeRashOrd(katsopr.nrec,false,katsopr.dsopr,0,0,0,errF.handle)
errf - это форма
Form errF ('errPeres.out', 'errr') with novisual;
wMsgForm - видимо возвращает признак ошибки.

[timaskraft]

вот это может поможет
oMakeOrder.MakeRashOrd(katsopr.nrec,false,katsopr.dsopr,0,0,0,errF.handle)
errf - это форма
Form errF ('errPeres.out', 'errr') with novisual;
wMsgForm - видимо возвращает признак ошибки.

Попробую, спасибо.
p.s. решили проблему другим способом - написали алгоритм, который создает ордера на Java скрипте, и вызываем его через Runinterface.

[n0where]

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

Function MakeRashOrd (pKatSopr: comp; NeedMsg: boolean; pDateOrd: date; wSkPr, wMode, wParam: word; frmProt: longint): Boolean;

pKatSopr - nRec KATSOPR
NeedMsg - true - выводит message иначе через errrash
pDateOrd - дата ордера
wSkPr
Устанавливается в SklOrder.SP // для склада 0, для производства 1
wMode
Пакетный режим 1, обычный - 0
wParam
1бит аналог #define smetakoladd
2бит аналог #define _USE_SERIAL_
3бит аналог #define g_l_pr_vpp
4бит аналог #define _BoxNeedAuto
5бит аналог #define _prihod_
6бит аналог #define __PAKET_VIP__
frmProt
можно 0

[n0where]

wMsgForm - видимо возвращает признак ошибки.

1 бит = 1 - выводить все масаги в форму
2 бит возвращаяет 1, если были ошибки, но не критичные.

[Dmitry_Sol]

По поводу makeprihorder. Там для получения даты оприходования существует event функция omakeorder.canMakeOrder

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

function canmakeorder:date;
 {
  canmakeorder:=katsopr.dsopr;
 }
......

 BindEvent(CanMakeOrder, oMakeOrder.CanMakeOrder);
 oMakeOrder.MakePrihOrder (nrecKatSopr,false,false,false,0,1,32);
 UnBindEvent(CanMakeOrder, oMakeOrder.CanMakeOrder);

Таким образом мы избавляемся от запроса даты оприходования
Чтобы избавиться от запроса склада, необходимо заполнить таблицу soprordb

[Руслан]

Можно ли функцией MakePrihOrder оприходовать накладную на приход ГП в модуле "Управление производственной логистикой". Какие тогда параметры указывать? Пытаюсь таким образом:

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

...
 Function CanMakeOrder : date;
{
CanMakeOrder:=dat_per2;
}
...
BindEvent(CanMakeOrder,Obj.CanMakeOrder);
Obj.MakePrihOrder(vKatsoprCreate.katsopr.nrec,false,true,true,0,1,32+128);
UnBindEvent(CanMakeOrder, Obj.CanMakeOrder);  
...

[Den]

Насколько помню там CalcOrd.vih можно заюзать
Делал так когда то
1. CalcOrd.Initialization()
2. Вставляешь в InputKatSopr запись , указывая в cSopr нужный katsopr.nrec
2. Дергаешь CalcOrd.RunInter()

Но в свое время была "фишка", что перед этим всем нужно было проверить наличие на складе отдельно нужных разрезов.
А то в минус могло просто списать и все (т.е. RunInter() не контролировал никак наличие)

[Руслан]

Это ведь накладная на приход, а не списание, в минус никак не уйти. Если можно пример вызова, пожалуйста.

[Den]

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

#include CalcOrd.vih
...
var soCalcOrd: oCalcOrd;
...
if (NullVIPRef(soCalcOrd))
   LoadVIPRef(soCalcOrd,'M_UP::CalcOrd');
soCalcOrd.Initialization();
mtClear(#InputKatSopr,fmNormal);
ClearBuffer(#InputKatSopr);
InputKatSopr.cSopr := KatSopr.nrec;
insert current InputKatSopr;
soCalcOrd.RunInter();

как то так делал, насколько помню
По контролю наличия может погорячился я. Но помоему у заказчика сырье как то контролировалось при списании . Деталей не помню. Уж лет 5 прошло

[Руслан]

Ругается на таблицу

Ошибка: Нет такой функции, поля или метода : #INPUTKATSOPR D:\Viper\SRC\MakePrihodGpOrder.vip(стр. 83, поз. 22)

Пробовал добавлять в интерфейс, та же ошибка.

[edward_K]

Это какая то времянка. Подправьте под себя

[Руслан]

Да. Это table struct и она в CalcOrd.vih описана. Подскажите, пожалуйста, каким образом подправить?

[Руслан]

Заметил ещё такую особенность, что по накладной, которую оприходовал и потом отменил ордера, по ней MakePrihOrder отрабатывает. Т.е. функция отрабатывает. Видимо какие-то поля не заполняю при создании накладной.

[Den]

Ругается на таблицу

Ошибка: Нет такой функции, поля или метода : #INPUTKATSOPR D:\Viper\SRC\MakePrihodGpOrder.vip(стр. 83, поз. 22)

Пробовал добавлять в интерфейс, та же ошибка.

Во вью нужно добавить InputKatSopr и все должно собраться без ошибок будет.