Версия 09:29, 21 ноября 2016

INV19_EXCEL_2 - это функция из справочника R266

Очистить таблицу от нулей и записать вместо них значение null

INV19_EXCEL_2( _ )

_ - таблица

Это необходимо делать, для того, чтобы не перегружать лишней информацией пользователя

Текст программы

parameters _

local aa, i, sql

aa := ( _ )->( DbStruct() )

for i := 1 to len( aa )
  if aa[i,2] = 'N'
    sql := [ Update _ ;
      Set ] + aa[i,1] + [ = null ;
      From ] + TmpFilePath( _ ) + [ _ ;
      Where ] + aa[i,1] + [ = 0 ]
    SimpleSql( sql, TempPath )
  endif
next

Примеры

INV19_EXCEL_2( _ )

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

Функции Delphi

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