Отправлено: 16.12.16 09:29. Заголовок: Фискальный регистратор. Как работать из Harbour?

Доброго времени суток!

Возможно придётся интегрировать свои программы с данным устройством. Конечно "драйвера" на разное оборудование разные, но если можно дайте пожалуйста пинок в нужном направлении - где посмотреть, а если возможно фрагмент кода. Никогда этим не занимался и пока полное непонимание, а рунет завален лишь рекомендациями по настройке с "1с"

 Отправлено: 16.12.16 09:45. Заголовок: Это смотря какой фис..

Это смотря какой фискальный регистратор.
Кусок кода для Мария 301
Пробитие чека , делал давно еще на Clipper
У меня было подробное описание протокола обмена , листов эдак 40 или больше.

Скрытый текст

Check301(oe2,oe1,if(summa>0,.t.,.f.),vt) ***************** Func Check301(oe1,oe2,siges,toksi) local ret:=.f. local olina:=padl(alltrim(str(oe1*100,9)),9,"0") local olina1:=padl(alltrim(str(oe1*100,10)),10,"0") local olina2:=padl(alltrim(str(oe2*100,10)),10,"0") local old_nch:="" local pris:="" local xbva local new_nch:="" local use_ok:=.f. local old_scr:=savescreen(10,20,13,61) local old_color:=setcolor() local tvr:='Продтовары ' do while .t. setcolor("b/b") v_box(10,20,12,60,1,1) @ 11,21 say padc("Передача данных в кассу.....",40) color "gr+/b" close_301() if open_301() if KasPasw() millisec(kas_zad) com_send(kas_port,CHR(253)+'CONF'+CHR(5)+CHR(254)) millisec(kas_zad) pris:=COM_READ(kas_port) xbva:=at('CONF',pris) pris:=substr(pris,xbva) old_nch:=val(substr(pris,95,12)) if v_kassa('PREP','1') if !siges v_kassa('FINF',"Возврат денег") endif if v_kassa(if(siges,'FISC','BFIS'),; if(siges,if(toksi==1,tvr,if(toksi==2,tvr,'Аренда ')),'покупателю '),; olina,; olina,'00000','1','0',; 'А12000','000000','000000','000000',; '000000','000000','000000','000000') com_send(kas_port,CHR(253)+'CONF'+CHR(5)+CHR(254)) millisec(kas_zad) pris:=COM_READ(kas_port) xbva:=at('CONF',pris) pris:=substr(pris,xbva) new_nch:=val(substr(pris,95,12)) if new_nch-old_nch==1 use_ok:=.t. else v_kassa('CANC') endif if v_kassa('COMP',if(siges,olina1,'0000000000'),if(siges,'0000000000',olina1),; '0000000000','0000000000','0000000000',olina2) if use_ok nwzntstw(new_nch,siges,toksi) restscreen(10,20,13,61,old_scr) ok() else bad() restscreen(10,20,13,61,old_scr) soob('Чек не проведен.......','r/r','gr+/r') endif endif endif endif endif endif close_301() exit enddo restscreen(10,20,13,61,old_scr) setcolor(old_color) return ret ******************** Func Open_301(tilik) local ret:=.f. local prisen:="" local popi_1:=0 local dtqad:={'WAIT','DONE','READY','SYNC'} *set cons on *setcolor('w/n') if COM_OPEN(kas_port,255,255) com_dtr(kas_port,.t.) if COM_INIT(kas_port,kas_speed,"E",8,2) com_dtr(kas_port,.t.) *MILLISEC(5) com_send(kas_port,chr(85)) MILLISEC(2) com_send(kas_port,chr(85)) MILLISEC(2) com_send(kas_port,chr(85)) MILLISEC(2) com_send(kas_port,chr(253)+chr(85)+chr(254)) ******* ************ do while .t. if tilik#nil MILLISEC(kas_zad) com_send(kas_port,CHR(253)+'SYNC'+CHR(5)+CHR(254)) endif com_send(kas_port,CHR(253)+'SYNC'+CHR(5)+CHR(254)) MILLISEC(200) prisen:=COM_READ(kas_port) if dtqad[2]$prisen .and. dtqad[3]$prisen .and. dtqad[4]$prisen ret:=.t. exit else popi_1++ if popi_1>15 if msg_z({"Связь не установлена !",; "Возможно закончилась бумага или рулон",; "установлен не верно........",; "Или касса не включена.",; " ",; "Повторить попытку связи еще раз ?"},,"Внимание")#1 exit endif popi_1:=0 MILLISEC(2) com_send(kas_port,chr(85)) MILLISEC(2) com_send(kas_port,chr(85)) endif endif enddo else soob("Не могу инициализировать порт.......","r/r","gr+/r") endif else soob("Порт не доступен.......","r/r","gr+/r") endif return ret

а вот и сами протоколы

 Отправлено: 16.12.16 10:18. Заголовок: Dima пишет: Это смо..

Dima пишет:

цитата:

Это смотря какой фискальный регистратор. Кусок кода для Мария 301

Спасибо! Это "что-то", но, как читал (возможно не понял) сейчас (в России? в свете нового закона об on-line кассах) используют более "высокоуровневые" механизмы взаимодействия.

Действительно всё сильно зависит от типа ФР, т.к. подходы к взаимодействию сильно разнятся... но мне бы, для ориентации взглянуть некий самодостаточный пример, типа приведённого Dima, но для чего-то типа Штрих, Атол, Меркурий с доработками под ФЗ 53? Может быть кто-нибудь, что пытался делать...

"На пока" даже будет полезен опыт общения с современными off-line кассами... т.е. пока и не срочно пытаюсь понять "идеологию"... да и в этом направлении пока не очень хочется работать, а возможно "нада"

 Отправлено: 16.12.16 10:23. Заголовок: AndreyZh Уточни мод..

AndreyZh
Уточни модель фискальной кассы

AndreyZh пишет:

цитата:

используют более "высокоуровневые" механизмы взаимодействия.

Ну так код писался 100 лет назад

 Отправлено: 16.12.16 10:27. Заголовок: Dima пишет: Уточни ..

Dima пишет:

цитата:

Уточни модель фискальной кассы

На сей момент не важно! ФР должен удовлетворять закону об on-line кассах, желательно недорого стоить - будет "готовое" простое решение, то допишу программу и купим "эту кассу"

 Отправлено: 16.12.16 10:28. Заголовок: AndreyZh Ну по нача..

AndreyZh
Ну по началу надо обзавестись протоколом обмена , определиться с ФР , купить его и тогда уже делать , до того
как её профискализируют.
Не имея на руках ФР врядли сможешь написать готовый код , без тестов.

 Отправлено: 16.12.16 10:48. Заголовок: Dima пишет: Ну по н..

Dima пишет:

цитата:

Ну по началу надо обзавестись протоколом обмена , определиться с ФР , купить его и тогда уже делать , до того как её профискализируют

В этом и анекдот! Есть закон, действующий с июля 16... есть куча "презентаций", обсуждений среди бухов и спецов, как правило "при 1с"... и даже говорят есть тестовые образцы оборудования и "драйвера" для 1с... Например получить какой-нибудь ФР для создания проги нужно заплатить за предзаказ и через 1-2 месяца получить "кота в мешке" для "игрушек". Моё умное (в отличии от большинства) руководство "волнуется", а я могу лишь ему показать картинки презентаций "виртуальных коней в вакууме" и при этом ничего не могу сказать "как мы будем поступать"... Хочу понять, есть ли у программистам на Harbour опыт - смогу ли допилить свои програмки... или нужно искать другие решения?... и вообще "розница в России" для меня тупиковое направление

 Отправлено: 16.12.16 10:55. Заголовок: AndreyZh пишет: Хоч..

AndreyZh пишет:

цитата:

Хочу понять, есть ли у программистам на Harbour опыт - смогу ли допилить свои програмки

На Harbour думаю сможешь.

 Отправлено: 16.12.16 11:09. Заголовок: Как то делал на Clip..

Как то делал на Clipper связь с одним ФР , можно было сделать связь на низком уровне или
же путем создания OLE объекта (DLL прилагалась) и в дальнейшем общаться с кассой через него.
Но тогда я еще не писал на Harbour и сделал на низком уровне.

 Отправлено: 09.01.17 16:58. Заголовок: Ежели кому интересно..

Ежели кому интересно??? Два основных типа драйвера: от Atol и Штрих. Возможны варианты: загрузка DLL или подключения OLE объекта. Пример с форума БЭСТ, дающий общую идею создания, отправки и сохранения чека:


Код рассчитан на работу с драйвером АТОЛ, он для "Меркуриев" бесплатный, http://www.atol.ru/products/programs/trade-work/driver/driver-kkm/

В приведенном примере в чек выводятся построчно наименования товаров из накладной, НДС не выделяется, регистрация всегда идет через секцию 1, поле mdoc->date0 используется для защиты от повторнной печати чека при пересохранении документа.

 
 Function Main()  
     local ss,gg,ml,hkkm  
  
     if select('MDOC') > 0 .and. select('MDOCM') > 0  
     if empty(mdoc->date0)  
         mdoc->(ordsetfocus('MDOC'))  
         mdocm->(ordsetfocus('MDOCM'))  
         mlabel->(ordsetfocus('MLABEL'))  
          
         ss := mdoc->sclad + mdoc->vid + mdoc->type  
         ss := ss + mdoc->codedoc + mdoc->numdoc + dtos(mdoc->date)  
         ss := upper(ss)  
         gg := ss  
  
         if mdocm->(dbseek(ss))  
             hkkm := CreateObject('AddIn.FprnM45')  
             try  
                 hkkm:DeviceEnabled := .t.  
                 hkkm:CheckState()  
                 hkkm:CancelCheck()  
                 hkkm:Password := '1'  
                 hkkm:Mode := 1  
                 hkkm:SetMode()  
  
                 do while !mdocm->(eof()) .and. (ss == gg)  
                     if mlabel->(dbseek(upper(mdocm->grup + mdocm->nnum)))  
                         ml := mlabel->name  
                         ml := rtrim(ml)  
                         do while len(ml) > 19  
                             hkkm:Caption := OemToAnsi(left(ml, 19))  
                             hkkm:PrintString()  
                             ml := substr(ml, 20)  
                         enddo  
                         hkkm:Name := OemToAnsi(ml)  
                     else  
                         hkkm:Name := '?'  
                     endif  
                      
                     hkkm:Price := Round(mdocm->Cenaout, 2)  
                     hkkm:Quantity := Round(mdocm->Kolout, 3)  
                     hkkm:Department := 1  
                     hkkm:Registration()  
  
                     mdocm->(dbskip())  
                     ss := mdocm->sclad + mdocm->vid + mdocm->type  
                     ss := ss + mdocm->codedoc + mdocm->numdoc + dtos(mdocm->date)  
                     ss := upper(ss)  
                 enddo  
                 hkkm:TypeClose := 0  
                 hkkm:CloseCheck()  
                 hkkm := nil  
             catch  
                 hkkm:CancelCheck()  
                 hkkm := nil  
                 alert('ЋиЁЎЄ ЇаЁ ЇҐз ⨠祪 !')  
                 return -1  
             end  
  
             mdoc->(dbrlock())  
             mdoc->date0 := Date()  
             mdoc->summa0 := mdoc->summa  
             mdoc->(dbcommit())  
             mdoc->(dbunlock())  
  
         endif  
     endif  
     endif  
     return 0  
 

Пример на C# для штриха - нужно загрузить DLL перед использованием, а так всё кажется понятным? Правда DLL они утверждают, что только для C, но высылают пример, что можно использовать из Delphi и Васика

 
 private void button2_Click_1(object sender, EventArgs e) 
         { 
             //Открываем чек продажи 
             Driver.CheckType = 0; 
             Driver.OpenCheck(); 
  
             //Отправка данных о покупателе  
             Driver.CustomerEmail = textBox1.Text;  //В качестве параметра можно передавать или телефон (+7хххххххххх) или e-mail: test@test.com   
             Driver.FNSendCustomerEmail(); 
              
             //Формируем продажу 
             Driver.Quantity = Convert.ToDouble(textBox3.Text); 
             Driver.Price = Convert.ToInt32(textBox2.Text); 
             Driver.Department = 1; 
             Driver.Tax1 = 0; 
             Driver.Tax2 = 0; 
             Driver.Tax3 = 0; 
             Driver.Tax4 = 0; 
             Driver.StringForPrinting = "Булка с маком"; 
             Driver.Sale(); 
  
             Driver.CheckSubTotal(); 
  
             //Закрываем чек 
             Driver.Summ1 = Driver.Summ1; 
             Driver.Summ2 = 0; 
             Driver.Summ3 = 0; 
             Driver.Summ4 = 0; 
             Driver.Tax1 = 0; 
             Driver.Tax2 = 0; 
             Driver.Tax3 = 0; 
             Driver.Tax4 = 0; 
             Driver.StringForPrinting = ""; 
             Driver.CloseCheck(); 
         } 
 

 Отправлено: 09.01.17 18:04. Заголовок: AndreyZh пишет: Пра..

AndreyZh пишет:

цитата:

Правда DLL они утверждают, что только для C, но высылают пример, что можно использовать из Delphi и Васика

Скорее всего, написана на C, а для использовании с Делфи или Бейсик используется стандартная техника: функции DLL экспортируются с использованием соответствующего соглашения о вызовах (calling conventions) и без декорирования имен.