EXPORTTOSHTRIHPRINT2 — различия между версиями

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

Текущая версия на 09:26, 11 мая 2017

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

Источник — «https://wiki.sftserv.ru/index.php?title=EXPORTTOSHTRIHPRINT2&oldid=22071»