EXPORTTOSCALESCAS — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «EXPORTTOSCALESCAS - это программа из справочника R266 = Смотрите также = Полезные функции Ф…») |
Hisava (обсуждение | вклад) м (→Текст) |
||
| (не показана одна промежуточная версия этого же участника) | |||
| Строка 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