ZP1 01

Материал из Фабиус wiki
Перейти к: навигация, поиск

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

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

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