Фискальный регистратор.

[kreator]

Народ, кто-нибудь начал работать по теме? Меня свели со специалистом по ККМ, он мне рассказал немного, но со стороны железа. А вот программная часть пока в тумане.

[Дед Пахом]

Да по-моему это одна из самых популярных тем, по крайней мере в Clalist.

[kreator]

Да по-моему это одна из самых популярных тем, по крайней мере в Clalist.

Который в Гугл? Тоже там не ахти. Народ всё же ждёт когда петух клюнет.
И ещё возник вопрос. А возможно объединиться с ClaList? И так у нас жизнь явно не бьёт ключом (если только по голове). А там есть интересные обсуждения. Например, права на продукты Taboga переданы Олегу Фомину. Обещает поддержку.

[Admin]

Мы еще не обновили ККМы так что писать пока нечего.

[Андрей]

отправляю свой кусок кода печати чека и возврата
Описание методов работы ККМ смотри в документации - там есть примеры для 1С, Access и т.д.
У меня FPrint55 - какой то
Код рабочий, но так бухи сами не в курсе, что д.б., до конца не уверен - все ли что нужно пишется в память регистратора

Код: Выделить всё

If ~Pos:flgCheck
    ThisWindow.Update
    BRW1.UpdateBuffer
    ?OLE1{'DeviceEnabled'}=True
    If ?OLE1{'ResultCode'}=0
        If ?OLE1{'GetStatus'}=0
             If  ?OLE1{'CheckState'}<>0 Then ?OLE1{'CancelCheck'}. 
              l:NomDocCheck=?OLE1{'CheckNumber'}
            l:Opl=Abs(Pos:Summa)!l:Summa*l:Kol
            ?OLE1{'Password'}='1'
            ?OLE1{'Mode'}=1
            If ?OLE1{'SetMode'}=0
                ?OLE1{'Name'}='Платные услуги'
                ?OLE1{'Price'}=format(l:Opl,'@N_9'&g:RazdExcel&'2b')
                ?OLE1{'Quantity'}=1
                !?OLE1{'Department'}=1
                If Pos:Summa<0
                    If ?OLE1{'Return'}=0
                        ?OLE1{'TypeClose'}=0
                        If ?OLE1{'CloseCheck'}=0
                            Pos:flgCheck=1
                            Pos:NumberCheck=l:NomDocCheck
                            If Access:Pos.Update() = LEVEL:Benign
                                BRW1.ResetFromFile
                                ThisWindow.Reset(True)
                            end
                        ELSE
                            MESSAGE('Ошибка закрытия чека '&?OLE1{'ResultDescription'})
                        end
                    ELSE
                        MESSAGE('Ошибка регистрации возврата '&?OLE1{'ResultDescription'})
                    end
                ELSE
                    If ?OLE1{'Registration'}=0
                        !---- оплата ----------  
                        ?OLE1{'Summ'}=format(l:Opl,'@N_9'&g:RazdExcel&'2b')
                        ?OLE1{'TypeClose'}=0
                        If ?OLE1{'Payment'}=0
                            If ?OLE1{'CloseCheck'}=0
                                Pos:flgCheck=1
                                Pos:NumberCheck=l:NomDocCheck
                                If Access:Pos.Update() = LEVEL:Benign
                                    BRW1.ResetFromFile
                                    ThisWindow.Reset(True)
                                end
                            ELSE
                                MESSAGE('Ошибка закрытия чека '&?OLE1{'ResultDescription'})
                            end
                        ELSE
                            MESSAGE('Ошибка регистрации оплаты '&?OLE1{'ResultDescription'})
                        end
                    ELSE
                        MESSAGE('Ошибка регистрации продажи '&?OLE1{'ResultDescription'})
                    end
                end                   
            ELSE
                MESSAGE('Не удалось установить режим продажи '&?OLE1{'ResultDescription'})
            end
        ELSE
            message('Ошибка чтения статуса !'&?OLE1{'ResultDescription'})
        end
    ELSE
        message('Порт ККМ не удалось занять !')
    end
    ?OLE1{'DeviceEnabled'}=False
ELSE
    message('Чек уже выведен !')
end

[kreator]

отправляю свой кусок кода печати чека и возврата

Спасибо. А объект OLE какой? Или он появляется после установки драйвера. Контора, которой это нужно, ещё не определилась с самим устройством, но вроде говорят драйвер для всех одинаковый. Да?

[Андрей]

Да, после установки появится кучка объектов, выбрал методом тыка FprnM45_82
Так как этот ФР был первым и единственным в практике, не могу сказать про одинаковость.
И лучше не фискализировать его сразу, чтобы можно было спокойно тренироваться и пробивать чеки покупки и возврата.
Мне подали уже фискализированный (контора что ли это делает продажная в соттветсвующей налог. инспекции) поэтому не совсем удобно было его осваивать.

[Admin]

https://habrahabr.ru/post/323434/

[Игорь Столяров]

Вот здесь чек рассмотрен с картинками.
Когда это все заработает - будем из супермаркета выходить с двух-метровыми лентами.
https://www.moysklad.ru/poleznoe/izmene ... kkt-i-bso/

[Admin]

выходить с двух-метровыми лентами

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

[Игорь Столяров]

У нас еще подарочные, дисконтные и бонусные карты есть

Как я понял: теперь содержание кассового чека будет строго регламентировано и печать в нем
различных маркетинговых фантазий и рекламных текстов будет запрещено ...

[Губин Игорь]

Как я понял: теперь содержание кассового чека будет строго регламентировано и печать в нем
различных маркетинговых фантазий и рекламных текстов будет запрещено ...

В чеке - да, а К чеку - запросто. Перекрёсток уже давно клепает новые чеки, а к ним ещё выползает столько же рекламной и прочей лабуды.

[kreator]

Вы бы видели простыню Metro Cash&Carry .
А вот бухгалтер в конторе интересуется об оптовых продажах. Вроде как тоже нужно пересылать. Только оплата в опте может быть и не сразу и с разбивкой и много чего ещё. Надеется, что опт пока не пойдёт в онлайн.

[Игорь Столяров]

Надеется, что опт пока не пойдёт в онлайн

Тут же вопрос не размера поставки, а формы расчета. Если крупная закупка (типа опт) оплачивается наличными -
то она должна проводится с использованием ФР со всеми вытекающими последствиями и чеками ....
А если пачка сигарет покупается с оплатой через расчетный счет - то все фискальные суммы и так есть в выписке банка.

Думаю, что будет хороший подъем у продаванов кассовой техники и лент к ним. А народ у нас к трудностям
адаптируется быстро и выкрутится. Тем более что все в этом заинтересованы. Если магазин все продажи
будет проводить через ОФД (как задумано), то туда и с проверкой ходить нет смысла ... денег не дадут.

[kreator]

Когда оптовик сразу платит налом - понятно, без вопросов. А если типа на реализацию, или с отсрочкой платежа? У моей конторы в этом смысле свобода. Оптовик берёт товара на 200т. А платит четыре раза, я в принципе не разбираюсь за какие конкретно позиции накладной идёт оплата. А может заплатить за две накладные полностью и половину за третью. А может частично возвратить товар, то тогда накладная на отпуск тоже частично закроется. По-моему, это регулируется учётной политикой организации. У моей конторы налоги платятся по оплате. Хотя могу ошибаться. Но в любом случае как-то не вяжутся конкретные позиции накладной с деньгами.