Из АО — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→5141021162) |
Hisava (обсуждение | вклад) м |
||
| (не показано 7 промежуточных версий этого же участника) | |||
| Строка 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() | |
| − | rmtreflispath := uu_path + '\data\fabius\reflis\dict.add' | + | ga := getarea() |
| − | if !checkconnection( rmtreflispath ) | + | try |
| − | + | ||
| − | + | ||
| − | endif | + | |
| − | dbgotop() | + | |
| − | ga := getarea() | + | |
| − | try | + | |
try | try | ||
conn := createconnection( rmtreflispath, 'admuser', "ora=1" ) | conn := createconnection( rmtreflispath, 'admuser', "ora=1" ) | ||
| Строка 30: | Строка 24: | ||
r11 := selectsql( sql, conn ) | r11 := selectsql( sql, conn ) | ||
r11kod := ( r11 )->kod | r11kod := ( r11 )->kod | ||
| − | sql := [ insert into r547 ( bar_code, r11kod, r08kod ) values ( '] + bar + [', ] + r11kod + [, ] + r08kod + [ ) ] | + | sql := [ insert into r547 ( bar_code, r11kod, r08kod ) values |
| + | ( '] + bar + [', ] + r11kod + [, ] + r08kod + [ ) ] | ||
simplesql( sql, reflispath ) | simplesql( sql, reflispath ) | ||
endif | endif | ||
| Строка 36: | Строка 31: | ||
( ga )->( dbskip() ) | ( ga )->( dbskip() ) | ||
end | end | ||
| − | finally | + | finally |
freeandnil( conn ) | freeandnil( conn ) | ||
closetable( r11 ) | closetable( r11 ) | ||
| − | end | + | 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
