Версия 09:49, 27 июля 2017

CREATE_PLAN_NHC_3 - это функция из справочника R266

Вернуть рецептуру распакованным массивом

Текст

parameters kod

local fld, active, _, sql, aa

active := Active_Rec( kod )

fld := ' _1,C,4; _2,N,5; _3,C,30; _4,N,14,4; '

try
  _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )

  sql := [ Select REFL, KOD, TON_AMNT From R71 Where KODPROD = ] + kod + [ and VAR_NUM = ] + active
  SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1, _2, _4 ) ] + sql, ReflisPath )

  // r08
  sql := [ Update _ Set _3 = Left( PNAME, 30 ) From ] + TmpFilePath( _ ) + [ _ left outer join R08 ON _2 = KOD Where _1 = 'R08 ' ]
  SimpleSql( sql, ReflisPath )

  // r11
  sql := [ Update _ ;
    Set _3 = Left( PNAME, 30 ) ;
    From ] + TmpFilePath( _ ) + [ _ ;
      left outer join R11 ON _2 = KOD ;
    Where _1 = 'R11 ' ]
  SimpleSql( sql, ReflisPath )

  ( _ )->( DbGoTop() )
  while !( _ )->( eof() )
    if ( _ )->_1 = 'R11 '
      aa := StrTran( str( Round( ( _ )->_4 * R11Wght( ( _ )->_2 ), 4 ) ) , ',', '.' )
      sql := [ Select REFL, KOD, Round( TON_AMNT * ] + aa + [ / 1000, 4 );
        From R71 ;
        Where KODPROD = ] + ( _ )->_2 + [ and VAR_NUM = ] + Active_Rec( ( _ )->_2 )
      SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1, _2, _4 ) ;
        ] + sql, ReflisPath )
    endif
    ( _ )->( DbSkip() )
  end

  // в результате возвращаю массив
  sql := [ Select _2, Sum( _4 ) _4 ;
    From ] + TmpFilePath( _ ) + [ ;
    Where _1 = 'R08 ' ;
    Group by _2 ]
  aa := SqlToArr( sql, { '_2', '_4' } )

  if !IsEmpty( aa )
    result := aa
  endif

finally
  CloseTable( _ )
end

// _1 - справочник
// _2 - код
// _3 - наименование
// _4 - количество на тонну TON_AMNT

Смотрите также

CREATE_PLAN_NHC_2

CREATE_PLAN_NHC

Полезные функции

Функции Delphi