Текущая версия на 14:23, 29 июля 2020

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

Форма П-1 строка 01

ZP1_01( data )

data - дата для определения месяца

Смотрите также

@@ Строка 3: / Строка 3: @@
 [[ZP1_01]]( data )
   data - дата для определения месяца
-= Текст =
- parameters data
- local sql, aa
- sql := [ Select KOD From R11 Where LEFT( BKACNT, 2 ) = '41' ]
- aa := [[SQLTOARR]]( sql, { 'KOD' }, ReflisPath )
- aa := PrepareArr( aa )
- if FactoryId = 'DTV'
-   // RTH
-   sql := [ Select Sum( "SUM" ) From DOCS] + Ret_f_ext( data ) + [ Where KINDDOC = 'RTH' and LVLNUM = '3' and ;
-     "SUM" <> 0 and Left( CATTR10, 1 ) <> 'Д' and AMNT <> 0 and KREFL2 = 'R11 ' and KANAL2 not in ( ] + ArrAsString( aa ) + [ ) ]
-   aa := SqlToArr( sql )
-   if !IsEmpty( aa )
-     result := Round( aa / 1000, 0 )
-   else
-     result := 0
-   end
- endif
- // если ищем данные за прошлый месяц или год - сначала надо поискать документ ZP1
- // добавить параметр - from_last_doc
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]