Просмотр исходного текста страницы EXPORTTOSHTRIHPRINT2

[[EXPORTTOSHTRIHPRINT2]] - это программа из справочника [[R266]]
 Выгрузка изделий на весы
[[EXPORTTOSHTRIHPRINT2]]()
= Текст =
 if ![[YesNo]]( 'Выгрузить собственную продукцию на весы ?', false )
   return
 endif
 
 local fld, _, r09_kod, aa, sql, msg, ip_scales
 
 fld := ' _1,N,6; _2,C,20; _3,C,20; _4,N,14,4; _5,N,5; _6,N,5; '
 sql := [ Select KOD From [[R09]] Where KOD_OKEI = '166' ]
 try
   [[WaitMsg]]( 'Подготовка справочника изделий', msg )
   r09_kod := [[SqlToArr]]( sql,, ReflisPath )
   _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true )
 
   sql := [ Select TOP 100 PERCENT KOD From [[R11]] Where KODED = ] + r09_kod + [ Order by KOD ]
   [[SimpleSql]]( [ Insert into ] + [[TmpFilePath]]( _ ) + [( _1 ) ] + sql, ReflisPath )
 
   ( _ )->( [[DbGoTop]]() )
   while !( _ )->( [[eof]]() )
     ( _ )->_2 := [[Left]]( [[RealName]]( '[[R11]]', ( _ )->_1 ), 20 )
     ( _ )->_3 := [[SUBSTR]]( [[RealName]]( '[[R11]]', ( _ )->_1 ), 21, 20 )
     ( _ )->_4 := 10
     ( _ )->_5 := [[SeekRef]]( '[[R11]]', ( _ )->_1, 'SHELF_LIFE', 1 )
     ( _ )->_6 := 21
     ( _ )->( [[DbSkip]]() )
   end
   ( _ )->( [[DbGoTop]]() )
 
   fld := { '_1', '_2', '_3', '_4', '_5', '_6' }
   sql := [ Select _1, _2, _3, _4, _5, _6 From ] + [[TmpFilePath]]( _ )
   aa := [[SqlToArr]]( sql, fld )
 
 finally
   [[CloseTable]]( _ )
   [[HideMsg]]( msg )
 end
 
 ip_scales := [[GetPrm]]( 'IP_SCALES', 'SHOPOPER', 1 )
 
 [[ExportToScales]]( { 1,,,, ip_scales, 1111, 2000, 500 }, aa )
 
 [[Message]]( 'Изделия успешно выгружены на весы' )
 
 // _1 код изделия
 // _2 название строка 1
 // _3 название строка 2
 // _4 цена
 // _5 срок годности в днях
 // _6 код группы товаров
 
 // ExportToScales( { 1,,,,"192.168.234.202",1111,2000,500 }, { { 4202,"Томаты","пальчиковые",68.35,10,1,"АЯ47" } } )
 
 // http://wiki.sftserv.ru/index.php/ExportToScales

= Смотрите также =
[[Полезные функции]]

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