ПРОДАЖИ +7 (991) 312-04-37 trade@bestnet.ru |
ПОДДЕРЖКА +7 (495) 775-66-76 consult@bestnet.ru |
СКАЧАТЬ Обновления Дистрибутивы |
ФорумПоиск
... cText:="Внимание! функция отрабатывает без параметров, это приведет к непредсказуемым последствиям"
ucWork:="0"
else
ucWork:=aPars[1]
endif
mdoc1->(dbsetfilter(formulpars("left(mdoc1->time,1)=ucWork .and. mdoc1->id_reg0 .and. right(mdoc1->time,1)='*'",{""})))
mdoc1->(dbgotop())
DBPOP()
RestSet(aSet)
RestSetKey(aSetKey)
return
суть его в следующем ...
Изменен: 28.02.2008
Читать сообщение на форуме или сайте. |