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

[[GHC_180601]] - это свод из справочника [[R238]] 
 Сравнить товарные отчеты с товарными отчетами по номенклатуре ( начало месяца )
= Условие =
 local sql, _, fld, _2, my
 my := MONTH_YEAR()
 if EMPTY( my )
   return
 endif
 my := STOD( my + '01' )
 M->QwrTitle := ' ' + DATE_STR_MY( my )
 fld := ' _1,N,5; _2,N,14,4; _3,N,14,4; _4,N,14,4; '
 _ := CreateTmpFile( fld, '_', ~IsFreeDel := true, ~Own := Self )
 _2 := CreateTmpFile( fld, '_2', ~IsFreeDel := true, ~Own := Self )
 sql := [ Select ANAL1, BSUM From REPS] + RET_F_EXT( my ) + [ Where REFL1 = 'R20 ' and CODEGRP = '130102' and SHIFT = '] + DTOS( my ) + [1' ]
 SimpleSql( [ Insert into ] + TmpFilePath( _2 ) + [( _1, _2 ) ] + sql, OpdataPath ) // отчеты
 sql := [ Select ANAL1, BSUM From REPS] + RET_F_EXT( my ) + [ Where REFL1 = 'R20 ' and CODEGRP = '290101' and SHIFT = '] + DTOS( my ) + [1' ]
 SimpleSql( [ Insert into ] + TmpFilePath( _2 ) + [( _1, _3 ) ] + sql, OpdataPath ) // отчеты по номенклатуре
 sql := [ Select _1, SUM( _2 ), SUM( _3 ) From ] + TmpFilePath( _2 ) + [ Group by _1 ]
 SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1, _2, _3 ) ] + sql, OpdataPath )
 sql := [ Update ] + TmpFilePath( _ ) + [ Set _4 = _2 - _3 ]
 SIMPLESQL( sql, tempPATH )
 ( _ )->( DBGOTOP() )
 result := _
 
 // _1 магазин
 // _2 отчет
 // _3 отчет по номенклатуре
 // _4 разница
= Смотрите также =
[[R238]]