https://wiki.sftserv.ru/index.php?action=history&feed=atom&title=RET_R08_R11_R547 2026-05-13T07:24:54Z История изменений этой страницы в вики MediaWiki 1.26.3 https://wiki.sftserv.ru/index.php?title=RET_R08_R11_R547&diff=23238&oldid=prev 2017-07-03T06:16:31Z

<p>Новая страница: «<a href="/index.php/RET_R08_R11_R547" title="RET R08 R11 R547">RET_R08_R11_R547</a> - это программа из справочника <a href="/index.php/R266" title="R266">R266</a> Вернуть код по штрихкоду из справочника […»</p> <p><b>Новая страница</b></p><div>[[RET_R08_R11_R547]] - это программа из справочника [[R266]]<br /> Вернуть код по штрихкоду из справочника [[R08]] [[R11]] или [[R547]]<br /> = Текст =<br /> parameters bar<br /> local r08_kod, r11_kod<br /> // bar := '4640013601014'<br /> // r08<br /> r08_kod := [[SeekRef]]( '[[R08]]', bar, 'KOD', 8 )<br /> // r08_2<br /> if [[Empty]]( r08_kod )<br /> r08_kod := [[SeekRef]]( '[[R547]]', bar, 'R08KOD', 1 )<br /> endif<br /> if ![[IsEmpty]]( r08_kod )<br /> result := { { '[[R08]] ', r08_kod } }<br /> return<br /> endif<br /> // r11<br /> r11_kod := [[SeekRef]]( '[[R11]]', bar, 'KOD', 10 )<br /> if !IsEmpty( r11_kod )<br /> result := { { '[[R11]] ', r11_kod } }<br /> return<br /> endif<br /> <br /> <br /> <br /> // 8698111282266<br /> <br /> // Индексы справочника R547<br /> // 1 BAR_CODE<br /> // 2 R11KOD<br /> // 3 R08KOD<br /> // 4 RGNUM<br /> = Смотрите также =<br /> [[Полезные функции]]<br /> <br /> [[Функции Delphi]]</div>

Hisava