Список форумов Акцент Акцент
официальный форум разработчика программы Акцент
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

связь VBScript с фискальным регистратором

 
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 6.0
Предыдущая тема :: Следующая тема  
Автор Сообщение
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 грн ?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
prospector



Зарегистрирован: 02.09.2005
Сообщения: 51
Откуда: Brazil

СообщениеДобавлено: Сб Фев 21, 2009 10:15 am    Заголовок сообщения: Re: связь VBScript с фискальным регистратором Ответить с цитатой

olimp писал(а):
И охота возиться из-за 360 грн ?

не охота :-)

Но...
во первых, компонента скорее всего для 7-ки, а у нас, извините, 6-ка; чем я буду формы открывать? Very Happy
во вторых, нам не нада Z-отчеты и нулевой чек делать из акцента, а просто нужно печатать чек

мы готовы купить код печати чека гривен за 50
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Виктор



Зарегистрирован: 10.03.2005
Сообщения: 210
Откуда: Горловка (Щирий кум)

СообщениеДобавлено: Сб Фев 21, 2009 11:32 am    Заголовок сообщения: Re: связь VBScript с фискальным регистратором Ответить с цитатой

prospector писал(а):
olimp писал(а):
И охота возиться из-за 360 грн ?

не охота :-)

Но...
во первых, компонента скорее всего для 7-ки, а у нас, извините, 6-ка; чем я буду формы открывать? Very Happy
во вторых, нам не нада Z-отчеты и нулевой чек делать из акцента, а просто нужно печатать чек

мы готовы купить код печати чека гривен за 50


С вас 50 Smile


Код:
   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-ка; чем я буду формы открывать? Very Happy


Так, для информации, в 6-ке работать будет.

Если печатать чек только для внутреннего употребления, фискальный регистратор не нужен. Купите просто принтер чеков.


Последний раз редактировалось: olimp (Сб Фев 21, 2009 12:20 pm), всего редактировалось 1 раз
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
olimp
Site Admin


Зарегистрирован: 10.03.2005
Сообщения: 2661

СообщениеДобавлено: Сб Фев 21, 2009 12:18 pm    Заголовок сообщения: Re: связь VBScript с фискальным регистратором Ответить с цитатой

Виктор писал(а):

С вас 50 Smile

Жаль, жаль, что мы так и не услышали начальника транспортного отдела (с) ММЖ

Жаль, жаль, что этот код даже не для всех датексов будет работать. Но как пример - отличный Smile Тоже на VBS Smile
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Виктор



Зарегистрирован: 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 Smile

куда привезти? Smile
это код для работы через Datecs ECR Ole? это не совсем то,что надо

а если есть код для Art Soft Ole, то его мы готовы купить дороже Smile
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Виктор



Зарегистрирован: 10.03.2005
Сообщения: 210
Откуда: Горловка (Щирий кум)

СообщениеДобавлено: Сб Фев 21, 2009 3:05 pm    Заголовок сообщения: Re: связь VBScript с фискальным регистратором Ответить с цитатой

prospector писал(а):
Виктор писал(а):
С вас 50 Smile

куда привезти? Smile

Гриневу передайте - может когда пивом угостит Smile

prospector писал(а):
а если есть код для Art Soft Ole, то его мы готовы купить дороже Smile

Ну таким нехитрым способом Вы все секреты раскроете Very Happy
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
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 Smile
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
prospector



Зарегистрирован: 02.09.2005
Сообщения: 51
Откуда: Brazil

СообщениеДобавлено: Вт Мар 03, 2009 12:03 pm    Заголовок сообщения: Re: связь VBScript с фискальным регистратором Ответить с цитатой

olimp писал(а):
prospector писал(а):
кто как борется с округлениями при печати документов из акцента на фискальный регистратор?
ситуация такая:
в акценте количество - 2 знака после запятой, цена - 2 знака, сумма - 4 знака
в регистраторе - сумма - 2 знака после запятой


Как и все остальные с использованием Round2 Smile

что надо округлять сумму до 2-х знаков это понятно Smile
а вот стоит ли фиксировать цены с помощью Op.LockRecalc или оставлять их с 4-мя знаками?
с какими подводными камнями можно столкнуться в обоих вариантах?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 6.0 Часовой пояс: GMT + 2
Страница 1 из 1

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


Powered by phpBB © 2001, 2005 phpBB Group