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

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «EXPORTTOSCALESCAS - это программа из справочника R266 = Смотрите также = Полезные функции Ф…»)
 
м (Текст)
 
(не показана одна промежуточная версия этого же участника)
Строка 1: Строка 1:
 
[[EXPORTTOSCALESCAS]] - это программа из справочника [[R266]]
 
[[EXPORTTOSCALESCAS]] - это программа из справочника [[R266]]
 +
Выгрузка товаров на весы CAS
 +
[[EXPORTTOSCALESCAS]]( "192.168.234.202", 20304, { { 4202, "Томаты", "пальчиковые", 68.35, 10, 21, "АЯ47", 1 } } )
 +
= Текст =
 +
//пример вызова  ExportToScalesCAS("192.168.234.202",20304,{ {4202,"Томаты","пальчиковые",68.35,10,21,"АЯ47",1}})
 +
//где:
 +
//1 - наш код изделия (НЕ ПЛУ!),
 +
//2 - NameFirst - название 1строка,
 +
//3 - NameSecond - название 2строка,
 +
//4 - цена, если не надо выводить цену на этикетке писать 0
 +
//5 - срок годности в днях,
 +
//6 - код группы товара, первые два знака штрихкода (например 21, если R08)
 +
//7 - слова под РСТ (например "АЯ46")
 +
//8 - номер PLU, если надо назначить его самим
 +
 +
parameters ip, port:=20304, ProdArray
 +
result:=false
 +
 +
if empty(ip) or empty(ProdArray) or valtype(ProdArray)<>'A'
 +
  return
 +
endif
 +
 +
 +
try
 +
  local  i, scale:=CreateOleController('CAScentre_DLL_printScale.Scale')
 +
 +
  oleProc(scale,'ip',ip)
 +
  oleProc(scale,'Port',port)
 +
  oleProc(scale,'Type',3)
 +
  oleProc(scale,'open')
 +
  oleProc(scale,'ClearPluAndMsg')
 +
  oleProc(scale,'InitData')
 +
 +
  for i:=1 to len(ProdArray)
 +
    if len(ProdArray[i])>5
 +
      oleProc(scale,'pluType',1)
 +
      oleProc(scale,'pluItemCode',prodArray[i,1])
 +
      oleProc(scale,'pluName1',prodArray[i,2])
 +
      oleProc(scale,'pluName2',prodArray[i,3])
 +
      oleProc(scale,'pluPrice',prodArray[i,4])
 +
      oleProc(scale,'pluDateLife',prodArray[i,5])
 +
      oleProc(scale,'pluFixedPrice',0)
 +
      oleProc(scale,'pluDept',1) //секция (отдел)
 +
      oleProc(scale,'pluTextNumber',8)
 +
      oleProc(scale,'pluSYmbol',9)
 +
      oleProc(scale,'pluGroupCode',prodArray[i,6])
 +
      if len(ProdArray[i])>6
 +
        oleProc(scale,'pluStrLogo',ProdArray[i,7])
 +
      endif
 +
      if len(ProdArray[i])>7
 +
        oleProc(scale,'pluNumber',ProdArray[i,8])
 +
      else
 +
        oleProc(scale,'pluNumber',i)
 +
      endif
 +
     
 +
      oleProc(scale,'SendPlu')
 +
    endif
 +
  next
 +
  oleProc(scale,'close')
 +
  result:=true
 +
finally
 +
  FreeAndNil(scale)
 +
end//try
  
 
= Смотрите также =
 
= Смотрите также =

Текущая версия на 09:42, 9 июня 2017

EXPORTTOSCALESCAS - это программа из справочника R266

Выгрузка товаров на весы CAS

EXPORTTOSCALESCAS( "192.168.234.202", 20304, { { 4202, "Томаты", "пальчиковые", 68.35, 10, 21, "АЯ47", 1 } } )

Текст

//пример вызова  ExportToScalesCAS("192.168.234.202",20304,{ {4202,"Томаты","пальчиковые",68.35,10,21,"АЯ47",1}})
//где:
//1 - наш код изделия (НЕ ПЛУ!),
//2 - NameFirst - название 1строка,
//3 - NameSecond - название 2строка,
//4 - цена, если не надо выводить цену на этикетке писать 0
//5 - срок годности в днях,
//6 - код группы товара, первые два знака штрихкода (например 21, если R08)
//7 - слова под РСТ (например "АЯ46")
//8 - номер PLU, если надо назначить его самим

parameters ip, port:=20304, ProdArray
result:=false

if empty(ip) or empty(ProdArray) or valtype(ProdArray)<>'A'
  return
endif


try
  local  i, scale:=CreateOleController('CAScentre_DLL_printScale.Scale')

  oleProc(scale,'ip',ip)
  oleProc(scale,'Port',port)
  oleProc(scale,'Type',3)
  oleProc(scale,'open')
  oleProc(scale,'ClearPluAndMsg')
  oleProc(scale,'InitData')

  for i:=1 to len(ProdArray)
    if len(ProdArray[i])>5
      oleProc(scale,'pluType',1)
      oleProc(scale,'pluItemCode',prodArray[i,1])
      oleProc(scale,'pluName1',prodArray[i,2])
      oleProc(scale,'pluName2',prodArray[i,3])
      oleProc(scale,'pluPrice',prodArray[i,4])
      oleProc(scale,'pluDateLife',prodArray[i,5])
      oleProc(scale,'pluFixedPrice',0)
      oleProc(scale,'pluDept',1) //секция (отдел)
      oleProc(scale,'pluTextNumber',8)
      oleProc(scale,'pluSYmbol',9)
      oleProc(scale,'pluGroupCode',prodArray[i,6])
      if len(ProdArray[i])>6
        oleProc(scale,'pluStrLogo',ProdArray[i,7])
      endif
      if len(ProdArray[i])>7
        oleProc(scale,'pluNumber',ProdArray[i,8])
      else
        oleProc(scale,'pluNumber',i)
      endif
      
      oleProc(scale,'SendPlu')
    endif
  next
  oleProc(scale,'close')
  result:=true
finally
  FreeAndNil(scale)
end//try

Смотрите также

Полезные функции

Функции Delphi