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