Текущая версия на 09:16, 3 июля 2017

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