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