F11 406 1 20

Материал из Фабиус wiki
Версия от 11:17, 23 марта 2018; Hisava (обсуждение | вклад)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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

Из гр. 4 стр. 01 - Инвестиции в основные фонды, выполненные в отчетном году

F11_406_1_20( _year )

Текст

parameters _year

local fld, t, aa, sql, i

result := 0

// t
// t_KOD
// t_1
fld := ' t_KOD,N,5; t_1,N,19,4; '

try
  t  := CreateTmpFile( fld, 't' , ~IsFreeDel := true )
  // Ввод в эксплуатацию 01 08
  for i := 1 to 12
    sql := [ Select DANAL2, "SUM" ;
      From PRVS] + Padl( i, 2, '0' ) + _year + [ ;
      Where Left( DEBT, 2 ) = '01' and KRED = '08' and DREFL2 = 'R143' and ;
        DANAL2 > 0 ]
    SimpleSql( [ Insert into ] + TmpFilePath( t ) + [( t_KOD, t_1 ) ;
      ] + sql, OpdataPath )
  next
  sql := [ Select Sum( t_1 ) t_1 ;
    From ] + TmpFilePath( t )
  aa := SelectSqlToArr( sql, { 't_1' }, TempPath, false  )

  if !IsEmpty( aa )
    result := aa[1,1]
  endif

finally
  CloseTable( t )
end

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

Полезные функции

Функции Delphi