Привет всем!!!!
Подскажите, пожалуйста, выполнение интерфейса/процедуры по пересчету сальдовых остатков МЦ (модуль Складской учет > Операции > Сальдовые остатки МЦ > Пересчет сальдовых остатков). Как выполнить пересчет в своем интерфейсе?
Гал-ка 8.0
Пересчет сальдовых остатков МЦ
Модераторы: m0p3e, edward_K, Модераторы
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
пересчет сальдо типа того
wasUpdateFlag:=TRUE
wasUpdateFlag := comp(string(year(Cur_Date))+string(month(Cur_Date))+
string(day(Cur_Date))+
string(hour(Cur_Time))+string(minute(Cur_Time))+
string(second(Cur_Time))+string(sec100(Cur_Time)) );
SpOrder.cSaldoFnd := wasUpdateFlag;
update current SpOrder;
AddSaldoMC(SpOrder.SP, SpOrder.cMC, SpOrder.ccPodr, SpOrder.ccMOL, SpOrder.cParty,
SpOrder.kol, SpOrder.srPrice, SpOrder.vPrice, SpOrder.cVal,
SpOrder.priceN, SpOrder.vPriceN,
SpOrder.dOrd, 2, FALSE);
а можно и так. Пометить в Pick (wlist=7) и вызвать
RunInterface(CountSal,skPr+100) ;
пересчет цен в расходный ордерах отдельная песня -
чего то мне не нравилось вызвывать просто фейс - вроде он пометку МЦ сбрасывал. По всем можно и просто вызвать с параметрами.
поищите фейс RecalcSpAuto - он вроде пересчитывает.
wasUpdateFlag:=TRUE
wasUpdateFlag := comp(string(year(Cur_Date))+string(month(Cur_Date))+
string(day(Cur_Date))+
string(hour(Cur_Time))+string(minute(Cur_Time))+
string(second(Cur_Time))+string(sec100(Cur_Time)) );
SpOrder.cSaldoFnd := wasUpdateFlag;
update current SpOrder;
AddSaldoMC(SpOrder.SP, SpOrder.cMC, SpOrder.ccPodr, SpOrder.ccMOL, SpOrder.cParty,
SpOrder.kol, SpOrder.srPrice, SpOrder.vPrice, SpOrder.cVal,
SpOrder.priceN, SpOrder.vPriceN,
SpOrder.dOrd, 2, FALSE);
а можно и так. Пометить в Pick (wlist=7) и вызвать
RunInterface(CountSal,skPr+100) ;
пересчет цен в расходный ордерах отдельная песня -
чего то мне не нравилось вызвывать просто фейс - вроде он пометку МЦ сбрасывал. По всем можно и просто вызвать с параметрами.
поищите фейс RecalcSpAuto - он вроде пересчитывает.