https://wiki.sftserv.ru/index.php?action=history&feed=atom&title=GENERATE_KOD_PLU2_2
GENERATE KOD PLU2 2 - История изменений
2026-04-07T22:09:19Z
История изменений этой страницы в вики
MediaWiki 1.26.3
https://wiki.sftserv.ru/index.php?title=GENERATE_KOD_PLU2_2&diff=28699&oldid=prev
Hisava: Новая страница: «GENERATE_KOD_PLU2_2 - это программа из справочника R266 PLU > 4000 GENERATE_KOD_PLU2_2() = Текст = local r08, r08_1, a…»
2018-03-29T08:58:05Z
<p>Новая страница: «<a href="/index.php/GENERATE_KOD_PLU2_2" title="GENERATE KOD PLU2 2">GENERATE_KOD_PLU2_2</a> - это программа из справочника <a href="/index.php/R266" title="R266">R266</a> PLU > 4000 <a href="/index.php/GENERATE_KOD_PLU2_2" title="GENERATE KOD PLU2 2">GENERATE_KOD_PLU2_2</a>() = Текст = local r08, r08_1, a…»</p>
<p><b>Новая страница</b></p><div>[[GENERATE_KOD_PLU2_2]] - это программа из справочника [[R266]]<br />
PLU > 4000<br />
[[GENERATE_KOD_PLU2_2]]()<br />
= Текст =<br />
local r08, r08_1, aa, bb<br />
try<br />
r08 := OpenKlsf( 'R08', 'r08' )<br />
r08_1 := OpenKlsf( 'R08', 'r08_1' )<br />
( r08 )->( SetFilter( [ KOD_PLU > 4000 and EXTRAKOD = 0 ] ) )<br />
( r08_1 )->( SetFilter( [ KOD_PLU < 4000 and EXTRAKOD = 1 and KOD_PLU > 0] ) )<br />
while !( r08 )->( eof() )<br />
aa := ( r08 )->KOD_PLU<br />
bb := ( r08_1 )->KOD_PLU<br />
( r08_1 )->KOD_PLU := aa<br />
( r08 )->KOD_PLU := bb<br />
( r08 )->( DbGoTop() )<br />
( r08_1 )->( DbGoTop() )<br />
end<br />
finally<br />
CloseTable( r08_1 )<br />
CloseTable( r08 )<br />
end<br />
= Смотрите также =<br />
[[Полезные функции]]<br />
<br />
[[Функции Delphi]]</div>
Hisava