Имя: Пароль:
1C
 
Непонятная работа ККМ Атол 11ф
0 skelaKub
 
08.02.19
10:46
УТ 10.3 работают в терминале, чеки печатаются через обработку. По какой-то причине документ оплата картой не печатается. Из 1С на локальный компьютер сохраняется скрипт, который потом распечатывается драйвером.
Скрипт:

' переменная драйвера
' создаем объект драйвера
Set ECR = CreateObject("AddIn.FPrnM45")
' Открыть визуальную страницу свойств драйвера
'ECR.ShowProperties
' занимаем порт
ECR.Model = 67
ECR.PortNumber = 1016
ECR.BaudRate = 18
ECR.DeviceEnabled = 1
'// входим в режим регистрации
' // устанавливаем пароль кассира
ECR.Password = 30
ECR.NewDocument
' // входим в режим регистрации
ECR.Mode = 1
ECR.SetMode
' ECR.DeviceEnabled = 0
ECR.AttrNumber = 1021
ECR.AttrValue = "Кассир 1"
ECR.WriteAttribute

'// продажа без сдачи
ECR.CheckType = 1
ECR.CheckMode = 1
ECR.OpenCheck
ECR.AttrNumber = 1055
ECR.AttrValue = 8
ECR.WriteAttribute
ECR.BeginItem
ECR.ItemType = 1
ECR.Name = "*******"
ECR.Price = ****
ECR.Quantity = 1
ECR.Summ = ****
ECR.Department = 1
ECR.TaxTypeNumber = 4
ECR.PaymentMode = 1
ECR.EndItem

ECR.TypeClose = 1
ECR.CloseCheck
ECR.DeviceEnabled = 0

То есть когда печатаешь через обработку, которая в базе через какое-то время чеки перестают печататься. Если печатать через ту же обработку, но сохраненную как внешняя, то печатаются и проблем нет. В чем может быть проблема?
1 Garykom
 
гуру
08.02.19
11:07
Обратитесь к тому кто вам этот лисапед придумал с созданием скрипта VBScript
2 Garykom
 
гуру
08.02.19
11:09
Кстати в скрипте недочет который при некоторых условиях может вызвать непробивку чеку.

Если указываете цену и кол-во то сумму не надо, потому что если будет расхождение больше +-1 копейка то ККТ откажется пробивать