COOL REPS

Материал из Фабиус wiki
Перейти к: навигация, поиск

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

Смотрите также

Полезные функции

Функции Delphi