R466 LASTUPDATE

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

R466_LASTUPDATE - это программа из справочника R266

Заполнить колонку LASTUPDATE в справочнике R466

R466_LASTUPDATE()

Текст

local r466, conn, sql, t
sql := [ Select Left( PARASSIGN, 10 ) LASTUPDATE From R217 Where PARNAME = 'LASTUPDATE' ]
try
  r466 := OpenKlsf( 'R466' )
  while !( r466 )->( eof() )
    if !Empty( ( r466 )->PATH_TO )
      try
        conn := CONNECT_TO_PLANT( ( r466 )->KOD, sql,,, true )
        t := SelectSql( sql, conn )
        ( r466 )->LASTUPDATE := CtoD( ( t )->LASTUPDATE )
      finally
        FreeAndNil( conn )
        CloseTable( t )
      end
    endif
    ( r466 )->( DbSkip() )
  end
finally
  CloseKlsf( r466 )
end

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

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

Функции Delphi