Из АО — различия между версиями
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→5141021162) |
||
| Строка 5: | Строка 5: | ||
[ where p.KANAL2 = I.KOD and amnt <> 0 and lvlnum='3' and kinddoc='RTH' and numdoc=']+ltrim(docs1->cattr2)+[' order by rgnum] | [ where p.KANAL2 = I.KOD and amnt <> 0 and lvlnum='3' and kinddoc='RTH' and numdoc=']+ltrim(docs1->cattr2)+[' order by rgnum] | ||
= 5141021162 = | = 5141021162 = | ||
| + | <nowiki>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 | ||
| + | |||
| + | |||
| + | |||
| + | |||
| + | // | ||
| + | // | ||
| + | // | ||
| + | // | ||
| + | // | ||
| + | // dbskip() | ||
| + | // end</nowiki> | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[ALCO_KLM]] | [[ALCO_KLM]] | ||
Версия 16:06, 14 октября 2021
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 // // // // // // dbskip() // end
