RECALC PRVS — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 25: | Строка 25: | ||
if !IsLockDb( 'PRVS' + Ret_f_ext( my ) ) and !IsLockDb( 'DOCP' + Ret_f_ext( my ) ) | if !IsLockDb( 'PRVS' + Ret_f_ext( my ) ) and !IsLockDb( 'DOCP' + Ret_f_ext( my ) ) | ||
try | try | ||
| − | doc := | + | doc := [[OPENCHILDDOC]]( kinddoc, '1', ~ParentForm := "", ; |
~Month := Month( my ), ~Year := Year( my ) ) | ~Month := Month( my ), ~Year := Year( my ) ) | ||
( doc )-> ( SetFilter( filt ) ) | ( doc )-> ( SetFilter( filt ) ) | ||
| Строка 33: | Строка 33: | ||
end | end | ||
endif | endif | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 14:50, 31 августа 2017
RECALC_PRVS - это программа из справочника R266
Переформировать все проводки за выбранный месяц по указанному документу
RECALC_PRVS( my, kinddoc [, filter ] )
my - дата, например, DATE()
kinddoc - тип документа
filter - дополнительный фильтр
Текст
parameters my, kinddoc, filter
local doc, filt
if Empty( filter )
filt := [ KINDDOC = '] + kinddoc + [' and LVLNUM = '1' ]
else
filt := [ KINDDOC = '] + kinddoc + [' and LVLNUM = '1' and ( ] + filter + [ )]
endif
if Empty( my ) or Empty( kinddoc )
return
endif
if !IsLockDb( 'PRVS' + Ret_f_ext( my ) ) and !IsLockDb( 'DOCP' + Ret_f_ext( my ) )
try
doc := OPENCHILDDOC( kinddoc, '1', ~ParentForm := "", ;
~Month := Month( my ), ~Year := Year( my ) )
( doc )-> ( SetFilter( filt ) )
MakePrvs( ( doc )->( GetArea() ),, 2 )
finally
CloseTable( doc )
end
endif
