EXPORTTOSCALESCAS

Материал из Фабиус wiki
Версия от 09:42, 9 июня 2017; Hisava (обсуждение | вклад) (Текст)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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