for flooders
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум
   Лисоводы   всех   стран,  объединяйтесь !!!  

Список Форумов  :: Visual Foxpro, Foxpro for DOS
  

Re: Атол-30Ф
Василий

Сообщений: 681
Откуда: Москва
Дата: 16.01.20 15:58:21
drive.google.com
Принцип работы выбрал через Json
Сам класс рабочий, а вот примеры надерганы из кода и очно не заработает, но думаю сам принцип понятен.
Если нужны пояснения по конкретным участкам - постараюсь пояснить.
Ratings: 0 negative/0 positive

Re: Атол-30Ф
Saratoga

Сообщений: 484
Дата: 16.01.20 17:14:27
Евгений Банщиков
Просьба поделится примерами работы с 10 драйвером. Особенно интересует скрипт печати фискального чека . Буду благодарен за любую инфу по данной теме.

У АТОЛа очень хорошее описание integration.atol.ru
Смотрите операции с чеком, там есть подробные примеры, правда нет на Foxpro, но даже на C++ или Delphi там все и так все понятно

integration.atol.ru


Сперва не мог понять, где брать константы, но это свойства в самом объекте
fptr.LIBFPTR_PARAM_RECEIPT_TYPE
fptr.LIBFPTR_RT_SELL

У меня код формирования и печати чека сильно привязан к специфике моего проекта, если я весь его здесь выложу, только больше запутаю всех. А выделять самое важное ну очень долго.

Спрашивайте лучше предметно, те моменты, которые у вас не получаются или не понятны, так будет проще вам помочь.



Исправлено: Saratoga, 16.01.20 17:34
Ratings: 0 negative/0 positive

Re: Атол-30Ф
Dmitry Rets

Сообщений: 3
Дата: 10.10.20 08:52:38
Здравствуйте, помогите пожалуйста, вынужден переходить на ДТО 10, скиньте кусок начального кода инициализации и пробития чека, буду безмерно благодарен. Просто катастрофа получилась ибо как выяснилось в последний момент тэг 1084 не формируется на ДТО 8.16


------------------




Исправлено: Dmitry Rets, 10.10.20 08:58
Ratings: 0 negative/0 positive

Re: Атол-30Ф
Dmitry Rets

Сообщений: 3
Дата: 16.10.20 19:48:23
Ну не ужели ни кто по лекарствам не работает на фоксе??
Ratings: 0 negative/0 positive

Re: Атол-30Ф
AndyNigmatec

Сообщений: 1138
Откуда: Волгоград
Дата: 19.10.20 08:48:24
По медпрепаратам на фоксе с маркировкой ... пожалуй только СКЛИТ - есть такая прога на югах, но что там как ХЗ.
Ratings: 0 negative/0 positive

Re: Атол-30Ф
Sejko
Автор

Сообщений: 136
Откуда: Moscow
Дата: 19.10.20 22:53:23
Почему я работаю


------------------
sejko
Ratings: 0 negative/0 positive

Re: Атол-30Ф
Sejko
Автор

Сообщений: 136
Откуда: Moscow
Дата: 19.10.20 22:56:01
по Штрих М
*********************
** Продажа SGTIN

Procedure gtin_kassa



ECR.TagNumber = 1084
ECR.FNBeginSTLVTag
my_TagID = ECR.TagID

ECR.TagID = my_TagID
ECR.TagNumber = 1085
ECR.TagType = 7
ECR.TagValueStr = "mdlp"
ECR.FNAddTag

ECR.TagID = my_TagID
ECR.TagNumber = 1086
ECR.TagType = 7
SELECT dm
GO 55
subject_id = ALLTRIM(dm.opisan)

ECR.TagValueStr = "sid"+subject_id +"&"
ECR.FNAddTag
ECR.FNSendSTLVTag


Select Gtin_log
Set Order To Sgtin && SGTIN


For I=1 To &PRODTABL..GtinP





*!* SELECT GTIN_LOG
ECR.STRINGFORPRINTING = Alltrim(&PRODTABL..Desc)

ECR.CheckType =1

If m.SKIDPRODRAS = 0
ECR.PRICE = &PRODTABL..ROSCENA
Else
ECR.PRICE = Round(&PRODTABL..ROSCENA*(100-&PRODTABL..SKID)/100,2)
Endif
ECR.QUANTITY = 1
ECR.DEPARTMENT = 1 && см описание драйвера

ECR.TAX1=4 && НДС 4 - БЕЗ НДС , 1 -18% , 2 - 10%
ECR.PaymentTypeSign = 4 && Признак способа расчета для ФФД 1.05 "Полный расчет"
ECR.PaymentItemSign = 1 && Признак предмета расчета "1- Товар / 4 - Услуга "






ECR.TagNumber = 1191
ECR.TagType = 7
ECR.TagValueStr = "mdlp"
ECR.FNSendTagOperation


ECR.Fnoperation
ECR.MarkingType = 17485

ECR.Gtin = &PRODTABL..Gtin && Передаем код GTIN: 14 символов
ECR.SerialNumber = &PRODTABL..SerialN &&Передаем серийный номер: 13 символов
ECR.FNSendItemCodeData



ECR.TagNumber = 1191
ECR.TagType = 7
ECR.TagValueStr = "mdlp"
ECR.FNSendTagOperation

ECR.StringForPrinting = ""+&PRODTABL..Gtin + &PRODTABL..SerialN
ECR.PrintString

Select Gtin_log
Go Top
Seek &PRODTABL..Sgtin
If Not Found()
Insert Into Gtin_log (id_kod , NOM_P ,Serialn , Gtin ,Sgtin, Datasold ) ;
values (&PRODTABL..id_kod , &PRODTABL..NOM_P ,&PRODTABL..SerialN ,&PRODTABL..Gtin ,&PRODTABL..Sgtin , Datetime() )
Else
Replace Gtin_log.Datasold With Datetime()
ENDIF

Endfor


Endproc


------------------
sejko




Исправлено: Sejko, 19.10.20 22:58
Ratings: 0 negative/0 positive



Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 12 Simple777  (Гостей: 11)

30.11.2020 22:57:34 exec: 0.03
Mem: 1.248 Mb

© 2000-2020 Fox Club 
Яндекс.Метрика