Текущая версия на 09:01, 25 апреля 2019

RECALC_PRVS - это программа из справочника R266

Переформировать все проводки за выбранный месяц по указанному документу

RECALC_PRVS( my, kinddoc [, filter ] )

my - дата, например, DATE()

kinddoc - тип документа

filter - дополнительный фильтр

Пример

RECALC_PRVS( stod( shift ), 'PAC', flt )

@@ Строка 8: / Строка 8: @@
 filter - дополнительный фильтр
-= Текст =
+= Пример =
-  parameters my, kinddoc, filter
+  [[RECALC_PRVS]]( stod( shift ), '[[PAC]]', flt )
- 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
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]