Просмотр исходного текста страницы RET R08 R11 R547

[[RET_R08_R11_R547]] - это программа из справочника [[R266]]
 Вернуть код по штрихкоду из справочника [[R08]] [[R11]] или [[R547]]
= Текст =
 parameters bar
 local r08_kod, r11_kod
 // bar := '4640013601014'
 // r08
 r08_kod := [[SeekRef]]( '[[R08]]', bar, 'KOD', 8 )
 // r08_2
 if [[Empty]]( r08_kod )
   r08_kod := [[SeekRef]]( '[[R547]]', bar, 'R08KOD', 1 )
 endif
 if ![[IsEmpty]]( r08_kod )
   result := { { '[[R08]] ', r08_kod } }
   return
 endif
 // r11
 r11_kod := [[SeekRef]]( '[[R11]]', bar, 'KOD', 10 )
 if !IsEmpty( r11_kod )
   result := { { '[[R11]] ', r11_kod } }
   return
 endif
 
 
 
 // 8698111282266
 
 // Индексы справочника R547
 // 1    BAR_CODE
 // 2    R11KOD
 // 3    R08KOD
 // 4    RGNUM
= Смотрите также =
[[Полезные функции]]

[[Функции Delphi]]