:: Visual Foxpro, Foxpro for DOS
Re: Новая касса АТОЛ -30Ф
Mitjay

Сообщений: 387
Откуда: Саратов
Дата регистрации: 01.01.2005
Здравствуйте, товарищи.
Объясните, пожалуйста, для альтернативно одаренных, что я должен послать покупателю по электронной почте (и/или СМС): то что написано в QR-коде или что-то другое?
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
ssa

Сообщений: 12999
Откуда: Москва
Дата регистрации: 23.03.2005
Ничего. Для этого есть ОФД.


------------------
Лень - это неосознанная мудрость.
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Василий

Сообщений: 682
Откуда: Москва
Дата регистрации: 19.10.2000
Аспид
Это нормально с МГМ?
Или все же не верно?
Нормально. Есть 30 дней. потом перестанет что либо делать пока не передадите.
Либо обнулить его и заново фискализироваль.
Вы саму передачу настроили. В ККТ и в личном кабинете ОФД?
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Аспид

Сообщений: 3475
Откуда: Москва
Дата регистрации: 01.04.2005
Василий
Вы саму передачу настроили. В ККТ и в личном кабинете ОФД?
Во. Тут то собака и порылась)))
В ЛК ничего не могу сделать.
Такском говорил, они что то правят, и когда не известно)
А в ККТ, это как?

Вообще то когда регистрировал кассу, все ввел что мне такском сказал.
Сервер, DNS, порт


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




Исправлено 1 раз(а). Последнее : Аспид, 25.05.17 11:26
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Василий

Сообщений: 682
Откуда: Москва
Дата регистрации: 19.10.2000
Аспид
Вообще то когда регистрировал кассу, все ввел что мне такском сказал.
Сервер, DNS, порт
Да это и еще службы на компе запустить.
если все это сделали то ждать как ОФД заработает.
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Аспид

Сообщений: 3475
Откуда: Москва
Дата регистрации: 01.04.2005
Василий
Да это и еще службы на компе запустить.
Можно про службы чуть подробнее?
Не уверен.


------------------
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Василий

Сообщений: 682
Откуда: Москва
Дата регистрации: 19.10.2000
onedrive.live.com

snap.ashampoo.com
snap.ashampoo.com
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Аспид

Сообщений: 3475
Откуда: Москва
Дата регистрации: 01.04.2005
Василий
Огромное спасибо.
Буду разбираться.
Вот еще одна сторона, помимо программирования)


------------------
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Аспид

Сообщений: 3475
Откуда: Москва
Дата регистрации: 01.04.2005
Читаю документ "Диагностика соединений"
Возмущаюсь про себя)
У меня половина не установлено!
Ссылки из дока на сайт атол, приводит на главную страницу.
Как же они все запутали(
Настройка и запуск приложения для обмена с ОФД по EthernetOverUSB / EthernetOverRS
Приложение EoU предназначено для организации обмена данными с ОФД при подключении ККТ к ПК по интерфейсам USB или RS.
Для работы предварительно на ПК необходимо сохранить Приложение EoU (представлено на сайте компании АТОЛ www.atol.ru).
Очень грамотно написано(
Где его взять - не ясно(
Далее идет как настроить работу с РС и ЮСб.
Надо ли настраивать работу с РС, если работаешь через ЮСБ?
Где скачать все эти шняги, что описаны?

У меня нет папки EOU.
У меня нет settings.xmlв папке EthOverUs


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




Исправлено 1 раз(а). Последнее : Аспид, 25.05.17 13:01
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Василий

Сообщений: 682
Откуда: Москва
Дата регистрации: 19.10.2000
Аспид
У меня нет settings.xmlв папке EthOverUs

Я делал только это snap.ashampoo.com
И все заработало.
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Аспид

Сообщений: 3475
Откуда: Москва
Дата регистрации: 01.04.2005
Василий
Аспид
У меня нет settings.xmlв папке EthOverUs

Я делал только это snap.ashampoo.com
И все заработало.
Да. Спасибо. Вы навели!
Все настроил.
Но Атолу, за описание... -5!)))

Если бы ты не навел, мучился бы))) Да и заметил, что не передается случайно.
А что я еще не вижу? (


------------------
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Аспид

Сообщений: 3475
Откуда: Москва
Дата регистрации: 01.04.2005
Еще проблемка.
Хочу в БД писать № чека.
CheckNumber
НомерЧека [ВЫХ]
Если чек открыт, то свойство содержит номер текущего чека.
Выдает какую то свою последовательность.
Типа № с начала времен.
А не тот что печатается.
Такой и не очень нужен, легче по времени найти будет.
Опять где то косяк?
Мой код
IF .NewDocument() <> 0 Then
RETURN this.RetError()
ENDIF
.CheckType=1
IF .OpenCheck()<>0
RETURN this.RetError()
ENDIF
num = .CheckNumber - вот он!Не верный


------------------
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Василий

Сообщений: 682
Откуда: Москва
Дата регистрации: 19.10.2000
Номер чека и номер фискального документа это разные понятия.
я использую регистры
snap.ashampoo.com
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Аспид

Сообщений: 3475
Откуда: Москва
Дата регистрации: 01.04.2005
Василий
Номер чека и номер фискального документа это разные понятия.
я использую регистры
snap.ashampoo.com

Я хотел бы получить тот номер, что печатается на чеке. (Что бы можно было быстро найти)
Попробовал с регистрами, но опять что то не то(
Печать чека №8
IF .NewDocument() <> 0 Then
RETURN this.RetError()
ENDIF
.CheckType=1
IF .OpenCheck()<>0
RETURN this.RetError()
ENDIF
.RegisterNumber = 51
.GetRegister()
num = .DocNumber =46
.RegisterNumber = 52
.GetRegister()
num = .DocNumber =46
Опять не получилось(


------------------
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Василий

Сообщений: 682
Откуда: Москва
Дата регистрации: 19.10.2000
Номер чека начинается с 1 в начале каждой смены, его номер вроде как можно взять из 53 регистра, вместе с номером смены.

Аспид
num = .DocNumber =46
На чеке Фискальный Номер Документа 46?
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Аспид

Сообщений: 3475
Откуда: Москва
Дата регистрации: 01.04.2005
Василий
На чеке Фискальный Номер Документа 46?
Спасибо!)
Да, это ФД!
А мне просто надо чек идентифицировать. Все равно по какому номеру.


------------------
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Василий

Сообщений: 682
Откуда: Москва
Дата регистрации: 19.10.2000
Аспид
Все равно по какому номеру.
ИХМО, ФНД - это лучший идентификатор.
По поводу номера чека написал выше.



Исправлено 1 раз(а). Последнее : Василий, 26.05.17 08:10
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
FireMan

Сообщений: 9
Откуда: Енисейск
Дата регистрации: 11.10.2005
Короче изучив диалоги я так понимаю: (поправьте если чЁ!)
1- открываем смену в начале рабочего дня.
2- открываем чек для заполнения №1
3- вносим товар(услуга)№1
4- вносим товар(услуга)№N
5- закрываем чек №1
6- открываем чек для заполнения №N1
7- вносим товар(услуга)№1
8- вносим товар(услуга)№N
9- закрываем чек №N1
10- закрываем смену (снмимаем кассу)
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Василий

Сообщений: 682
Откуда: Москва
Дата регистрации: 19.10.2000
Забыли о внесении оплат.
Примеры на ява скрипте есть в этой теме.
Ratings: 0 negative/0 positive
Re: Новая касса АТОЛ -30Ф
Аспид

Сообщений: 3475
Откуда: Москва
Дата регистрации: 01.04.2005
FireMan
я так понимаю
Общий алгоритм верен.
Открытие смены может делаться и при печати чека. В приведенном примере, это сделается.
Вот основной куски кода.
Выложил бы весь класс, но еще не до конца готов)
Да и со своими (моими) предками связан.
**************
INIT
**************
* создаем объект драйвера
this.Atol = CREATEOBJECT("AddIn.FprnM45")
IF VARTYPE(this.Atol)="O"
this.Atol.DeviceEnabled = .T.
this.Atol.AttrNumber = 1021
this.Atol.AttrValue = "Кассир " + ALLTRIM(goapp.user)
this.Atol.WriteAttribute()
IF this.Atol.ResultCode=0
RETURN ''
ENDIF
RETURN this.RetError()
ELSE
MESSAGEBOX("ККМ не установлен",16,'Ошибка ККМ')
ENDIF
*************
CreateCheck
*************
PARAMETERS tnSummnal,tnSummcard
IF VARTYPE(This.atol) == 'O'
WITH This.atol
**********Для правильного ведения БД**********
.GetStatus()
IF !.SessionOpened
this.OpenWork()
ENDIF
**********************************************
.Mode = 1
IF .NewDocument() <> 0 Then
RETURN this.RetError()
ENDIF
.CheckType=1
IF .OpenCheck()<>0
RETURN this.RetError()
ENDIF
*Регистрация строк
.TaxTypeNumber = 3
.SummTax()
SELECT detal - беру список из курсора. Ясно у других может быть иначе. Тут решайте как.
SCAN
this.ChekStr(detal.good,detal.PriceNds,detal.kol)
IF .Registration() <> 0
RETURN this.RetError()
ENDIF
ENDSCAN
IF tnSummnal>0
*За нал
.Summ = tnSummnal
.TypeClose = 0
If .Payment()<>0
.CancelCheck()
RETURN this.RetError()
Endif
ENDIF
IF tnSummcard>0
*По карте
.Summ = tnSummcard
.TypeClose = 1
If .Payment()<>0
.CancelCheck()
RETURN this.RetError()
Endif
ENDIF
IF .CloseCheck()<>0
RETURN this.RetError()
ENDIF
RETURN ''
ENDWITH
ELSE
= MESSAGEBOX('Ошибка драйвера ККМ!',0+16,'Ошибка')
This.Destroy()
ENDIF
*********
ChekStr
********
PARAMETERS tName, tPrice, tKol
IF VARTYPE(This.atol) == 'O'
WITH This.atol
.Name = ALLTRIM(tName)
.Price = tPrice
.Quantity = tKol
*.Department = 1
RETURN .t.
ENDWITH
ELSE
= MESSAGEBOX('Ошибка драйвера ККМ!',0+16,'Ошибка')
This.Destroy()
ENDIF
*********
RetError
*********
IF VARTYPE(This.atol) == 'O'
WITH This.atol
cRet = 'Ошибка № '+ALLTRIM(STR(.ResultCode))+' ['+ALLTRIM(.ResultDescription)+']'
= MESSAGEBOX(cRet,0+16,'Ошибка ККМ')
RETURN cRet
ENDWITH
ELSE
= MESSAGEBOX('Ошибка драйвера ККМ!',0+16,'Ошибка')
This.Destroy()
RETURN 'Ошибка драйвера ККМ!'
ENDIF


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




Исправлено 1 раз(а). Последнее : Аспид, 26.05.17 09:26
Ratings: 0 negative/1 positive


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

On-line: 33 dafni_2004  (Гостей: 32)

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