|
|
| Строка 1: |
Строка 1: |
| | = F7 РАСХОД = | | = 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]] |
