Из АО — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «= Смотрите также = ALCO_KLM»)
 
м
 
(не показано 12 промежуточных версий этого же участника)
Строка 1: Строка 1:
 +
local bar, sql, rmtreflispath, aa, r11, conn, ga, r08kod, r11kod
 +
rmtreflispath := uu_path + '\data\fabius\reflis\dict.add'
 +
if !checkconnection( rmtreflispath )
 +
  message( 'Нет связи c основным сервером' )
 +
  return
 +
endif
 +
dbgotop()
 +
ga := getarea()
 +
try
 +
  try
 +
    conn := createconnection( rmtreflispath, 'admuser', "ora=1" )
 +
  except
 +
    message( 'Произошла ошибка связи, попробуйте еще раз' )
 +
    freeandnil( connection )
 +
    return
 +
  end
 +
  while !( ga )->( eof() )
 +
    r08kod := seekref( 'r547', danal2, 'r08kod', 3 )
 +
    if empty( r08kod )
 +
      bar := seekref( drefl2, danal2, 'bar_code', 1 )
 +
      if left( bar, 1 ) = '4' and drefl2 = 'R08 '
 +
        r08kod := danal2
 +
        sql := [ select kod from r11 where bar_code = '] + bar + [' ]
 +
        r11 := selectsql( sql, conn )
 +
        r11kod := ( r11 )->kod
 +
        sql := [ insert into r547 ( bar_code, r11kod, r08kod ) values
 +
                            ( '] + bar + [', ] + r11kod + [, ] + r08kod + [  ) ]
 +
        simplesql( sql, reflispath )
 +
      endif
 +
    endif
 +
    ( ga )->( dbskip() )
 +
  end
 +
finally
 +
  freeandnil( conn )
 +
  closetable( r11 )
 +
end
 +
 
= Смотрите также =
 
= Смотрите также =
 
[[ALCO_KLM]]
 
[[ALCO_KLM]]

Текущая версия на 16:09, 14 октября 2021

local bar, sql, rmtreflispath, aa, r11, conn, ga, r08kod, r11kod
rmtreflispath := uu_path + '\data\fabius\reflis\dict.add'
if !checkconnection( rmtreflispath )
  message( 'Нет связи c основным сервером' )
  return
endif
dbgotop()
ga := getarea()
try
 try
   conn := createconnection( rmtreflispath, 'admuser', "ora=1" )
 except
   message( 'Произошла ошибка связи, попробуйте еще раз' )
   freeandnil( connection )
   return
 end
 while !( ga )->( eof() )
   r08kod := seekref( 'r547', danal2, 'r08kod', 3 )
   if empty( r08kod )
     bar := seekref( drefl2, danal2, 'bar_code', 1 )
     if left( bar, 1 ) = '4' and drefl2 = 'R08 '
       r08kod := danal2
       sql := [ select kod from r11 where bar_code = '] + bar + [' ]
       r11 := selectsql( sql, conn )
       r11kod := ( r11 )->kod
       sql := [ insert into r547 ( bar_code, r11kod, r08kod ) values
                            ( '] + bar + [', ] + r11kod + [, ] + r08kod + [  ) ]
       simplesql( sql, reflispath )
     endif
   endif
   ( ga )->( dbskip() )
 end
finally
 freeandnil( conn )
 closetable( r11 )
end

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

ALCO_KLM