Store_Run Store....,можно ли ???

[Irina]

подобные функции и процедуры используемые в Галактике для расчета, можно ли в своих формах-отчетах (ard, link) их использовать. Как компилировать, что-то надо подключать дополнительно?

[enotik-ishimec]

Да да годы идут а вопрос остается, у меня точно такой же вопрос помогите кто может а то я тупо в текст ard Отчета добавила, а он мне тупо все строчки текстом в отчете и выдал как есть
Store_Init;
Store_ReInit;
Store_TypeOstatki(TRUE) ;
Store_SkladProizv(0);
Store_Run(d1,comp(0),comp(0),comp(0),comp(0), true, false, false);
Это пытаюсь нарисовать отчет в котором остатки и складские и производственные + движение
т.е
МЦ |склад остатки на начало| произв остатки на нач |складск прих|произв приход |скл расх| произв расх |скл ост на конец |произ остатки на конец
и если с движение разобралась то с остатками сижу и мучаюсь.... начиталась на форуме про функцию Store_Run а как ее к себе прикрутить тяму не хватает

[edward_K]

Store_SkladProizv(0) - задает почем собираете. 1 - будет производство.
Далее (со своими параметрами - мож понятней будет что к чему., последние 3 показывают нужно ли разворачивать по таком то разрезу, -2 - отбор идет по таблице Pick - wlist=11 - подразделение, 7 - МЦ)

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

   Store_Run ( sub_day(DTB,1), if(true,comp(0),comp(-2)) //МЦ
         ,if((filtr_type and 1)=0,comp(0),comp(-2)) // Подразделение
         ,comp(0) // Мол
         ,if(true,comp(0),comp(-2)) // по партии
          ,true, true,true  ) ;
    if Store_WasStopped then
    { message('Расчет остатков прерван', mfInformation+mfOkButton);
      Store_Done;
      Exit;
    }
    Rereadrecord(#TmpSaldo1)     
    _loop  TmpSaldo1  ordered by index TmpSaldo101 

Кроме приведеных есть еще
Store_ForceInVal(boGetTune('OPER.MULTICURRREG'));
Store_TypeOstatki(False) ; регулирует на начало или конец дня собирать остатки.

[Den]

2 enotik-ishimec

уже лет 10 в frm галактики лежит ard (INV_VED.FRM) с использованием Store_Run

[enotik-ishimec]

Да с параметрами функции то вроде понятно мне, на форуме подробно описано, я технически не понимаю как писать прямо в ard или надо в ard описать сначало эту функцию, как бы Vih-ов у меня никаких нет, получится ли у меня вообще ее использовать?
Вот как то так?

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

.NameInList 'Остатки STORE_init'
.ard
.var
 d1,d2: date;
.endvar
.begin
rundialog(C_Common::getinterval,d1,d2);
end.
Store_Init;
Store_ReInit;
Store_TypeOstatki(TRUE) ;
Store_SkladProizv(0);
Store_Run(d1,comp(0),comp(0),comp(0),comp(0), true, false, false);
.create view vhskl as select TMPSALDO1.cmc,TMPSALDO1.kol,TMPSALDO1.price,TMPSALDO1.cpodr,katmc.name,katpodr.prsklad
from TMPSALDO1,katmc,katpodr
where ((TMPSALDO1.cmc==katmc.nrec and TMPSALDO1.cpodr==katpodr.nrec))
order by katmc.name;
.fields
   d1
   d2
vhskl.name
vhskl.prsklad
vhskl.kol
vhskl.price
.endfields
^  ^
              Наименование МЦ                                        | 0-склад,1-подр| Кол-во              |Сумма
.{table 'vhskl' by katmc.name;
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@| @@@@@@@@@@@@@@|&&&&&&&&&&&&&&&&&&.&&|&&&&&&&&&&&&&&&&&&.&&
.}
.endform

[Den]

... я технически не понимаю как писать прямо в ard или надо в ard описать сначало эту функцию, как бы Vih-ов у меня никаких нет, получится ли у меня вообще ее использовать?

Нада в программном блоке begin end. писать store....vih-и не нужны в данном случае никакие...

[enotik-ishimec]

О как! Огромное спасибо меня именно это и интересовало

[enotik-ishimec]

как в одном ard запустить 4 раза Store_run с разными параметрами, вх скл, исхскл, вх произв, исхпроизв,
Пробовала

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

.begin  //исх скл
Store_Init;
Store_ReInit;
Store_SkladProizv(0);
Store_TypeOstatki(FALSE);
Store_Run(d2,4001F201854255D7h,comp(0),comp(0),comp(0),true,false,false);
end.
.create view ish as select TMPSALDO1.cmc,TMPSALDO1.PRIH,TMPSALDO1.kol,TMPSALDO1.price,TMPSALDO1.cpodr,TMPSALDO1.cmol,katmc.name,katpodr.name
from TMPSALDO1,katmc,katpodr
where ((TMPSALDO1.cmc==katmc.nrec and TMPSALDO1.cpodr==katpodr.nrec))and (TMPSALDO1.kol<>0 or TMPSALDO1.price<>0);
runinterface(z_katpodr::GETSOMSP,_corg);

.begin  // вх скл
Store_Init;
Store_ReInit;
Store_SkladProizv(0);
Store_TypeOstatki(TRUE);
Store_Run(d1,4001F201854255D7h,comp(0),comp(0),comp(0),true,false,false);
end.
.create view vh as select TMPSALDO1.cmc,TMPSALDO1.PRIH,TMPSALDO1.kol,TMPSALDO1.price,TMPSALDO1.cpodr,TMPSALDO1.cmol,katmc.name,katpodr.name
from TMPSALDO1,katmc,katpodr
where ((TMPSALDO1.cmc==katmc.nrec and TMPSALDO1.cpodr==katpodr.nrec))and (TMPSALDO1.kol<>0 or TMPSALDO1.price<>0);
                    

и

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

.begin  //исх скл
Store_Init;
Store_ReInit;
Store_SkladProizv(0);
Store_TypeOstatki(TRUE);
Store_Run(d1,4001F201854255D7h,comp(0),comp(0),comp(0),true,false,false);
Store_SkladProizv(1);
Store_TypeOstatki(TRUE);
Store_Run(d1,4001F201854255D7h,comp(0),comp(0),comp(0),true,false,false);
Store_SkladProizv(0);
Store_TypeOstatki(FALSE);
Store_Run(d2,4001F201854255D7h,comp(0),comp(0),comp(0),true,false,false);
Store_SkladProizv(1);
Store_TypeOstatki(FALSE);
Store_Run(d2,4001F201854255D7h,comp(0),comp(0),comp(0),true,false,false);

end.
.create view ish as select TMPSALDO1.cmc,TMPSALDO1.PRIH,TMPSALDO1.kol,TMPSALDO1.price,TMPSALDO1.cpodr,TMPSALDO1.cmol,katmc.name,katpodr.name
from TMPSALDO1,katmc,katpodr
where ((TMPSALDO1.cmc==katmc.nrec and TMPSALDO1.cpodr==katpodr.nrec))and (TMPSALDO1.kol<>0 or TMPSALDO1.price<>0);               

выдает или входящие или исходящие остатки
что не так делаю?

[edward_K]

1. View желательно опиывать перед програмным блоком
2. после каждого Store_run следует пробегать TmpSaldo1 и складывать данные в каую то другую таблицу