Из АО

UU_PATH

RmtOpdata := uu_path + '\data\fabius\opdata\dict.add'

sql:=[Select I.BAR_CODE, KANAL2, AMNT, Round(]+SqlField('P.PLNPRICE',,'Sql_Double')+[,2) plnPrice ]+;
    [ from Refl.R11 I, ]+prv+[ p ]+;
    [ where p.KANAL2 = I.KOD and amnt <> 0 and lvlnum='3' and kinddoc='RTH' and numdoc=']+ltrim(docs1->cattr2)+[' order by rgnum]

5141021162

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