AKT2
Материал из Фабиус wiki
Версия от 15:25, 30 января 2018; Hisava (обсуждение | вклад)
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 - жирность пахты