F11 406 1 20 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «= Смотрите также = Полезные функции Функции Delphi») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| + | [[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]] | [[Функции Delphi]] | ||
Текущая версия на 11:17, 23 марта 2018
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
