R466 LASTUPDATE — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «R466_LASTUPDATE - это программа из справочника R266 Заполнить колонку LASTUPDATE в справочнике R46…»)
 
м
 
Строка 1: Строка 1:
 
[[R466_LASTUPDATE]] - это программа из справочника [[R266]]
 
[[R466_LASTUPDATE]] - это программа из справочника [[R266]]
 
  Заполнить колонку LASTUPDATE в справочнике [[R466]]
 
  Заполнить колонку LASTUPDATE в справочнике [[R466]]
 +
[[R466_LASTUPDATE]]()
 
= Текст =
 
= Текст =
 
  local r466, conn, sql, t
 
  local r466, conn, sql, t
  sql := [ Select Left( PARASSIGN, 10 ) LASTUPDATE From R217 Where PARNAME = 'LASTUPDATE' ]
+
  sql := [ Select Left( PARASSIGN, 10 ) LASTUPDATE From [[R217]] Where PARNAME = 'LASTUPDATE' ]
 
  try
 
  try
 
   r466 := OpenKlsf( 'R466' )
 
   r466 := OpenKlsf( 'R466' )

Текущая версия на 08:18, 17 июля 2018

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