EXPORTTOSCALESCAS — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 3: | Строка 3: | ||
[[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 } } ) | ||
= Текст = | = Текст = | ||
| − | //пример вызова 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 - наш код изделия (НЕ ПЛУ!), | //1 - наш код изделия (НЕ ПЛУ!), | ||
| Строка 62: | Строка 62: | ||
FreeAndNil(scale) | FreeAndNil(scale) | ||
end//try | end//try | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Текущая версия на 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