Просмотр исходного текста страницы ORL 170922

[[ORL_170922]] - это сведения из справочника [[R238]]
 Движение по товарам
[[Магазин]] - Сведения - Движение товаров с начала месяца по дату
= Условие отбора =
 public aa40, aa70
 local r20_kod, id, fld, sql, _, _2, msg, aa, am, i, ii
 id := InputDate()
 if Empty( id )
   return
 endif
 r20_kod := GETPARAM( 'TASKANAL' )
 M->QwrTitle := ' ( ' + BOM( id ) + ' - ' + id + ' ) ' + RealName( 'R20', r20_kod ) + ' ( ' + r20_kod + ' )'
 aa40 := 'Остаток;на утро;' + BOM( id )
 aa70 := 'Остаток;на вечер;' + id
 try
   WaitMsg( 'Подготовка данных', msg )
   fld := ' _0,C,10; _1,C,4; _2,N,5; _3,C,40; _4,N,14,4; _5,N,14,4; _6,N,14,4; _7,N,14,4; _8,C,40; _9,C,40; '
   _ := CreateTmpFile( fld, '_', ~IsFreeDel := true, ~Own := Self )
   _2 := CreateTmpFile( fld, '_2', ~IsFreeDel := true, ~Own := Self )
   // _4 остаток на начала месяца
   sql := [ Select REFL, KOD, BAMNT From MTUN] + Ret_f_ext( id ) + [ Where BKACNT = '41.2        ' and REFLANAL = 'R20 ' and ;
     ANAL = ] + r20_kod + [ and KOD > 0 and BAMNT <> 0 ]
   SimpleSql( [ Insert into ] + TmpFilePath( _2 ) + [( _1, _2, _4 ) ] + sql, OpdataPath )
   // _5 приход
   sql := [ Select DREFL2, DANAL2, AMNT From PRVS] + Ret_f_ext( id ) + [ Where DEBT = '41.2        ' and DREFL1 = 'R20 ' and ;
     DANAL1 = ] + r20_kod + [ AND DANAL2 > 0 and AMNT <> 0 and DATDOC <= '] + SqlDate( id ) + [' ]
   SimpleSql( [ Insert into ] + TmpFilePath( _2 ) + [( _1, _2, _5 ) ] + sql, OpdataPath )
   // _6 расход
   sql := [ Select KREFL2, KANAL2, AMNT From PRVS] + Ret_f_ext( id ) + [ Where KRED = '41.2        ' and KREFL1 = 'R20 ' and ;
     KANAL1 = ] + r20_kod + [ AND KANAL2 > 0 and AMNT <> 0 and DATDOC <= '] + SqlDate( id ) + [' ]
   SimpleSql( [ Insert into ] + TmpFilePath( _2 ) + [( _1, _2, _6 ) ] + sql, OpdataPath )
   // r08
   sql := [ Delete From ] + TmpFilePath( _2 ) + [ Where _1 = 'R11 ' ]
   SimpleSql( sql, TempPath )
   // _2 -> _
   sql := [ Select _2, Sum( _4 ), Sum( _5 ), Sum( _6 ) From ] + TmpFilePath( _2 ) + [ Group by _2 ]
   SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _2, _4, _5, _6 ) ] + sql, TempPath )
   // _7 остаток на дату
   sql := [ Update ] + TmpFilePath( _ ) + [ Set _7 = _4 + _5 - _6 ]
   SimpleSql( sql, TempPath )
   // r08
   sql := [ Update _ Set _0 = CODEGROUP, _3 = Left( PNAME, 40 ) From ] + TmpFilePath( _ ) + [ _ left outer join R08 ON _2 = KOD ]
   SimpleSql( sql, ReflisPath )
   ( _ )->( DbGoTop() )
   while !( _ )->( eof() )
     ( _ )->_8 := Left( FULLNAMEGROUP2( 'R08', ( _ )->_0, 3 ), 40 )
     ( _ )->_9 := Left( FULLNAMEGROUP2( 'R08', ( _ )->_0, 4 ), 40 )
     ( _ )->( DbSkip() )
   end
   ( _ )->( DbGoTop() )
   sql := [ Select DISTINCT _8 From ] + TmpFilePath( _ ) + [ Order by _8 ]
   aa := SqlToArr( sql, { '_8' }  )
   if !Empty( aa )
     aa := PrepareArr( aa )
   endif
 finally
   HideMsg( msg )
 end
 am := {}
 AcMenu( 'Выберите группы', aa, ~IsMultiChoice := true, ~ArChoice := am )
 if !Empty( am )
   for i := 1 to len( am )
     ii := am[i] + 1
     aa[ii] := 'zz'
   next
   for i := 1 to len( aa )
     sql := [ Delete From ] + TmpFilePath( _ ) + [ Where _8 = '] + aa[i] + [' ]
     SimpleSql( sql, TempPath )
   next
 endif
 result := _
 // _0 группа
 // _1 справочник
 // _2 код
 // _3 наименование
 // _4 остаток на начала месяца
 // _5 приход
 // _6 расход
 // _7 остаток на дату
 // _8 группа, уровень 3
 // _9 группа, уровень 4

= Смотрите также =
[[R238]]