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

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Irina
Новичок
Сообщения: 20
Зарегистрирован: 29 мар 2005, 17:49

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

Сообщение Irina »

подобные функции и процедуры используемые в Галактике для расчета, можно ли в своих формах-отчетах (ard, link) их использовать. Как компилировать, что-то надо подключать дополнительно?
enotik-ishimec
Сообщения: 4
Зарегистрирован: 14 июл 2011, 09:25

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

Сообщение enotik-ishimec »

Да да годы идут а вопрос остается, у меня точно такой же вопрос помогите кто может :shock: а то я тупо в текст 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 а как ее к себе прикрутить тяму не хватает :oops:
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

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

Сообщение 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
Местный житель
Сообщения: 1844
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

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

Сообщение Den »

2 enotik-ishimec

уже лет 10 в frm галактики лежит ard (INV_VED.FRM) с использованием Store_Run
enotik-ishimec
Сообщения: 4
Зарегистрирован: 14 июл 2011, 09:25

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

Сообщение 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
Местный житель
Сообщения: 1844
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

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

Сообщение Den »

enotik-ishimec писал(а):... я технически не понимаю как писать прямо в ard или надо в ard описать сначало эту функцию, как бы Vih-ов у меня никаких нет, получится ли у меня вообще ее использовать?
Нада в программном блоке begin end. писать store....vih-и не нужны в данном случае никакие...
enotik-ishimec
Сообщения: 4
Зарегистрирован: 14 июл 2011, 09:25

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

Сообщение enotik-ishimec »

О как! Огромное спасибо меня именно это и интересовало :-)
enotik-ishimec
Сообщения: 4
Зарегистрирован: 14 июл 2011, 09:25

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

Сообщение 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);               
выдает или входящие или исходящие остатки :-(
что не так делаю? :x
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

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

Сообщение edward_K »

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