COOL REPS — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «COOL_REPS - это программа из справочника R266 Остатки для магазина COOL_REPS() = Текст = local fld,…») |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 18: | Строка 18: | ||
} | } | ||
sql := [ Update _ Set _3 = LEFT( PNAME, 40 ) From ] + TmpFilePath( _ ) + [ _ left outer join R08 ON _1 = KOD Where _2 = 'R08 ' ] | sql := [ Update _ Set _3 = LEFT( PNAME, 40 ) From ] + TmpFilePath( _ ) + [ _ left outer join R08 ON _1 = KOD Where _2 = 'R08 ' ] | ||
| − | SIMPLESQL( sql, ReflisPath ) // r08 | + | [[SIMPLESQL]]( sql, ReflisPath ) // r08 |
sql := [ Update _ Set _3 = LEFT( PNAME, 40 ) From ] + TmpFilePath( _ ) + [ _ left outer join R11 ON _1 = KOD Where _2 = 'R11 ' ] | sql := [ Update _ Set _3 = LEFT( PNAME, 40 ) From ] + TmpFilePath( _ ) + [ _ left outer join R11 ON _1 = KOD Where _2 = 'R11 ' ] | ||
SIMPLESQL( sql, ReflisPath ) // r11 | SIMPLESQL( sql, ReflisPath ) // r11 | ||
| Строка 35: | Строка 35: | ||
// _9 | // _9 | ||
// _0 | // _0 | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Текущая версия на 08:45, 12 января 2018
COOL_REPS - это программа из справочника R266
Остатки для магазина
COOL_REPS()
Текст
local fld, _, sql, tbl
fld := ' _1,N,5; _2,C,4; _3,C,40; _4,N,14,4; '
try
_ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
sql := [ Select ANAL2, REFL2, EAMNT From REPS] + RET_F_EXT( DATE() ) + [ Where ANAL2 > 0 and EAMNT <> 0 ]
SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1, _2, _4 ) ] + sql, OpdataPath )
( _ )->( DBGOTOP() )
tbl := { { 'Title', 'Остатки' }, { 'SHOWTYPE', 2 } }
fld := { ;
{ { 'FldName', '_1' }, { 'FldTitl', 'Код' } }, ;
{ { 'FldName', '_2' }, { 'FldTitl', 'Справочник' } }, ;
{ { 'FldName', '_3' }, { 'FldTitl', 'Наименование' } }, ;
{ { 'FldName', '_4' }, { 'FldTitl', 'Остаток' } } ;
}
sql := [ Update _ Set _3 = LEFT( PNAME, 40 ) From ] + TmpFilePath( _ ) + [ _ left outer join R08 ON _1 = KOD Where _2 = 'R08 ' ]
SIMPLESQL( sql, ReflisPath ) // r08
sql := [ Update _ Set _3 = LEFT( PNAME, 40 ) From ] + TmpFilePath( _ ) + [ _ left outer join R11 ON _1 = KOD Where _2 = 'R11 ' ]
SIMPLESQL( sql, ReflisPath ) // r11
MYGRID( _, tbl, fld, ~Modal := true )
finally
CLOSETABLE( _ )
end
// _1 код
// _2 справочник
// _3 наименование
// _4 остаток
// _5
// _6
// _7
// _8
// _9
// _0
