| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
prospector
Зарегистрирован: 02.09.2005
Сообщения: 51
Откуда: Brazil
|
 Добавлено: Пт Фев 20, 2009 5:56 pm Заголовок сообщения: связь VBScript с фискальным регистратором |
 |
|
| поделитесь исходниками такой связи |
|
| Вернуться к началу |
|
 |
olimp
Site Admin
Зарегистрирован: 10.03.2005
Сообщения: 2661
|
| Добавлено: Пт Фев 20, 2009 6:06 pm Заголовок сообщения: Re: связь VBScript с фискальным регистратором |
|
|
| prospector писал(а): | | поделитесь исходниками такой связи |
И охота возиться из-за 360 грн ? |
|
| Вернуться к началу |
|
|
prospector
Зарегистрирован: 02.09.2005
Сообщения: 51
Откуда: Brazil
|
| Добавлено: Сб Фев 21, 2009 10:15 am Заголовок сообщения: Re: связь VBScript с фискальным регистратором |
|
|
| olimp писал(а): | | И охота возиться из-за 360 грн ? |
не охота :-)
Но...
во первых, компонента скорее всего для 7-ки, а у нас, извините, 6-ка; чем я буду формы открывать? 
во вторых, нам не нада Z-отчеты и нулевой чек делать из акцента, а просто нужно печатать чек
мы готовы купить код печати чека гривен за 50 |
|
| Вернуться к началу |
|
|
Виктор
Зарегистрирован: 10.03.2005
Сообщения: 210
Откуда: Горловка (Щирий кум)
|
| Добавлено: Сб Фев 21, 2009 11:32 am Заголовок сообщения: Re: связь VBScript с фискальным регистратором |
|
|
| prospector писал(а): | | olimp писал(а): | | И охота возиться из-за 360 грн ? |
не охота :-)
Но...
во первых, компонента скорее всего для 7-ки, а у нас, извините, 6-ка; чем я буду формы открывать?
во вторых, нам не нада Z-отчеты и нулевой чек делать из акцента, а просто нужно печатать чек
мы готовы купить код печати чека гривен за 50 |
С вас 50 
| Код: | If IDTovar>0 Then
Set OleObj = CreateObject("DatecsECR.TECRFisc")
With OleObj
Res = .SetComPort(1, 19200)
If Abonplata>0 Then
Res = .ChangePrice(IDTovar, Abonplata , "0000")
End If
If Predoplata>0 Then
Res = .ChangePrice(6, Predoplata, "0000")
End If
If Mejgorod>0 Then
Res = .ChangePrice(5, Mejgorod, "0000")
End If
If Peny>0 Then
Res = .ChangePrice(16, Peny, "0000")
End If
Res = .OpenFiscReceipt(1, 1, "0000") 'печать фискального чека
Res = .StrPrntCash("-----------------")
Res = .StrPrntCash("Телефон - " & selPhone.text)
Res = .StrPrntCash("-----------------")
If Abonplata>0 Then
Res = .SellArtCashDS(True, IDTovar, 1., 0, 0) 'на Дисплее
End If
If Predoplata>0 Then
Res = .SellArtCashDS(True, 6, 1., 0, 0)
End If
If Mejgorod>0 Then
Res = .SellArtCashDS(True, 5, 1., 0, 0)
End If
If Peny>0 Then
Res = .SellArtCashDS(True, 16, 1., 0, 0)
End If
NomCheck = .NumbRec + 1
Res = .Payment(NaRuki, 0)
Res = .CloseFiscReceipt
Res = .CloseComPort (1)
End With
Else
MsgBox "Не понятна абонент.плата!"
End If
|
|
|
| Вернуться к началу |
|
|
olimp
Site Admin
Зарегистрирован: 10.03.2005
Сообщения: 2661
|
| Добавлено: Сб Фев 21, 2009 12:14 pm Заголовок сообщения: Re: связь VBScript с фискальным регистратором |
|
|
| prospector писал(а): | | olimp писал(а): | | И охота возиться из-за 360 грн ? |
не охота :-)
Но...
во первых, компонента скорее всего для 7-ки, а у нас, извините, 6-ка; чем я буду формы открывать? |
Так, для информации, в 6-ке работать будет.
Если печатать чек только для внутреннего употребления, фискальный регистратор не нужен. Купите просто принтер чеков.
Последний раз редактировалось: olimp (Сб Фев 21, 2009 12:20 pm), всего редактировалось 1 раз |
|
| Вернуться к началу |
|
|
olimp
Site Admin
Зарегистрирован: 10.03.2005
Сообщения: 2661
|
| Добавлено: Сб Фев 21, 2009 12:18 pm Заголовок сообщения: Re: связь VBScript с фискальным регистратором |
|
|
| Виктор писал(а): |
С вас 50 |
Жаль, жаль, что мы так и не услышали начальника транспортного отдела (с) ММЖ
Жаль, жаль, что этот код даже не для всех датексов будет работать. Но как пример - отличный Тоже на VBS |
|
| Вернуться к началу |
|
|
Виктор
Зарегистрирован: 10.03.2005
Сообщения: 210
Откуда: Горловка (Щирий кум)
|
| Добавлено: Сб Фев 21, 2009 12:31 pm Заголовок сообщения: Re: связь VBScript с фискальным регистратором |
|
|
| olimp писал(а): |
Жаль, жаль, что этот код даже не для всех датексов будет работать. |
Код конечно же не универсальный, но главное рабочий (на нашем фискальном исправно работает уже 2 года). |
|
| Вернуться к началу |
|
|
prospector
Зарегистрирован: 02.09.2005
Сообщения: 51
Откуда: Brazil
|
| Добавлено: Сб Фев 21, 2009 2:09 pm Заголовок сообщения: Re: связь VBScript с фискальным регистратором |
|
|
| Виктор писал(а): | | С вас 50 |
куда привезти?
это код для работы через Datecs ECR Ole? это не совсем то,что надо
а если есть код для Art Soft Ole, то его мы готовы купить дороже |
|
| Вернуться к началу |
|
|
Виктор
Зарегистрирован: 10.03.2005
Сообщения: 210
Откуда: Горловка (Щирий кум)
|
| Добавлено: Сб Фев 21, 2009 3:05 pm Заголовок сообщения: Re: связь VBScript с фискальным регистратором |
|
|
| prospector писал(а): | | Виктор писал(а): | | С вас 50 |
куда привезти? |
Гриневу передайте - может когда пивом угостит
| prospector писал(а): | | а если есть код для Art Soft Ole, то его мы готовы купить дороже |
Ну таким нехитрым способом Вы все секреты раскроете |
|
| Вернуться к началу |
|
|
prospector
Зарегистрирован: 02.09.2005
Сообщения: 51
Откуда: Brazil
|
| Добавлено: Вт Мар 03, 2009 9:36 am Заголовок сообщения: Re: связь VBScript с фискальным регистратором |
|
|
кто как борется с округлениями при печати документов из акцента на фискальный регистратор?
ситуация такая:
в акценте количество - 2 знака после запятой, цена - 2 знака, сумма - 4 знака
в регистраторе - сумма - 2 знака после запятой |
|
| Вернуться к началу |
|
|
olimp
Site Admin
Зарегистрирован: 10.03.2005
Сообщения: 2661
|
| Добавлено: Вт Мар 03, 2009 10:58 am Заголовок сообщения: Re: связь VBScript с фискальным регистратором |
|
|
| prospector писал(а): | кто как борется с округлениями при печати документов из акцента на фискальный регистратор?
ситуация такая:
в акценте количество - 2 знака после запятой, цена - 2 знака, сумма - 4 знака
в регистраторе - сумма - 2 знака после запятой |
Как и все остальные с использованием Round2 |
|
| Вернуться к началу |
|
|
prospector
Зарегистрирован: 02.09.2005
Сообщения: 51
Откуда: Brazil
|
| Добавлено: Вт Мар 03, 2009 12:03 pm Заголовок сообщения: Re: связь VBScript с фискальным регистратором |
|
|
| olimp писал(а): | | prospector писал(а): | кто как борется с округлениями при печати документов из акцента на фискальный регистратор?
ситуация такая:
в акценте количество - 2 знака после запятой, цена - 2 знака, сумма - 4 знака
в регистраторе - сумма - 2 знака после запятой |
Как и все остальные с использованием Round2 |
что надо округлять сумму до 2-х знаков это понятно
а вот стоит ли фиксировать цены с помощью Op.LockRecalc или оставлять их с 4-мя знаками?
с какими подводными камнями можно столкнуться в обоих вариантах? |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
