|
|
(не показаны 2 промежуточные версии этого же участника) |
Строка 1: |
Строка 1: |
− | = F7 РАСХОД =
| + | [[AKT2]] - это уровень 2 документа [[AKT]] |
− | 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]] |