GHC 180601 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «GHC_180601 - это свод из справочника R238 Сравнить товарные отчеты с товарными отчетами по…») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[GHC_180601]] - это свод из справочника [[R238]] | [[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]] | [[R238]] | ||
Версия 10:40, 1 июня 2018
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 разница
