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