ZP1 01 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[ZP1_01]] - это программа из справочника [[R266]] | [[ZP1_01]] - это программа из справочника [[R266]] | ||
Форма П-1 строка 01 | Форма П-1 строка 01 | ||
| − | [[ZP1_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]] | [[Функции Delphi]] | ||
Версия 08:14, 1 декабря 2017
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
