AKT2 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «= Смотрите также = AKT») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| + | = F7 РАСХОД = | ||
| + | local sql, aa, _, fld, sj | ||
| + | |||
| + | // средняя жирность молока | ||
| + | sj := DOCS1->AMNT | ||
| + | |||
| + | fld := ' _1,C,4; _2,N,5; _3,N,14,4; ' | ||
| + | |||
| + | if !recalc | ||
| + | // проверим, заполнен ли этаж 4 | ||
| + | sql := [ Select TOP 1 PARENT ; | ||
| + | From DOCP] + Ret_f_ext() + [ ; | ||
| + | Where KINDDOC = 'AKT' and LVLNUM = '4' and PARENT = '] + RGNUM + [' ] | ||
| + | aa := SqlToArr( sql, { 'PARENT' } ) | ||
| + | |||
| + | if !IsEmpty( aa ) | ||
| + | ViewContens( '4' ) | ||
| + | return | ||
| + | endif | ||
| + | endif | ||
| + | |||
| + | recalc := false | ||
| + | |||
| + | try | ||
| + | _ := CreateTmpFile( fld, '_', ~IsFreeDel := true ) | ||
| + | _AKT_( _, DANAL2, val( CATTR2 ), sj, NATTR2, NATTR1, NATTR5, NATTR6, NATTR7 ) | ||
| + | |||
| + | sql := [ Select _1, _2, _3 ; | ||
| + | From ] + TmpFilePath( _ ) | ||
| + | aa := SqlToArr( sql, { '_1', '_2', '_3' } ) | ||
| + | if !IsEmpty( aa ) | ||
| + | fld := { 'KREFL2', 'KANAL2', 'AMNT' } | ||
| + | AddAll( 'AKT', '4', DOCS2->RGNUM,, fld, aa ) | ||
| + | endif | ||
| + | finally | ||
| + | CloseTable( _ ) | ||
| + | end | ||
| + | |||
| + | ViewContens( '4' ) | ||
| + | |||
| + | // _1 - справочники | ||
| + | // _2 - код | ||
| + | // _3 - расход | ||
| + | |||
| + | // уровень 4 | ||
| + | // KREFL2 - справочник | ||
| + | // KANAL2 - код номенклатуры | ||
| + | // AMNT - количество | ||
| + | |||
| + | // уровень 2 | ||
| + | // DANAL2 - код изделия | ||
| + | // CATTR2 - номер рецептуры | ||
| + | // NATTR1 - м.д.ж. | ||
| + | // NATTR2 - остаток в натуральном количестве | ||
| + | // NATTR5 - жирность сливок | ||
| + | // NATTR6 - жирность пахты | ||
= Смотрите также = | = Смотрите также = | ||
[[AKT]] | [[AKT]] | ||
Версия 15:25, 30 января 2018
F7 РАСХОД
local sql, aa, _, fld, sj
// средняя жирность молока
sj := DOCS1->AMNT
fld := ' _1,C,4; _2,N,5; _3,N,14,4; '
if !recalc
// проверим, заполнен ли этаж 4
sql := [ Select TOP 1 PARENT ;
From DOCP] + Ret_f_ext() + [ ;
Where KINDDOC = 'AKT' and LVLNUM = '4' and PARENT = '] + RGNUM + [' ]
aa := SqlToArr( sql, { 'PARENT' } )
if !IsEmpty( aa )
ViewContens( '4' )
return
endif
endif
recalc := false
try
_ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
_AKT_( _, DANAL2, val( CATTR2 ), sj, NATTR2, NATTR1, NATTR5, NATTR6, NATTR7 )
sql := [ Select _1, _2, _3 ;
From ] + TmpFilePath( _ )
aa := SqlToArr( sql, { '_1', '_2', '_3' } )
if !IsEmpty( aa )
fld := { 'KREFL2', 'KANAL2', 'AMNT' }
AddAll( 'AKT', '4', DOCS2->RGNUM,, fld, aa )
endif
finally
CloseTable( _ )
end
ViewContens( '4' )
// _1 - справочники
// _2 - код
// _3 - расход
// уровень 4
// KREFL2 - справочник
// KANAL2 - код номенклатуры
// AMNT - количество
// уровень 2
// DANAL2 - код изделия
// CATTR2 - номер рецептуры
// NATTR1 - м.д.ж.
// NATTR2 - остаток в натуральном количестве
// NATTR5 - жирность сливок
// NATTR6 - жирность пахты
