AKT2

Материал из Фабиус wiki
Перейти к: навигация, поиск

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