Вывод на фискальный регистратор содержимого полей из запроса

@простак · Регистрация: 18.01.2012

Author24 — интернет-сервис помощи студентам

Добрый день! Помогите организовать вывод чека на фискальный регистратор.
Попробовала создать процедуру вывода, через данные запроса на выборку.
Указываю имя поля [кол], проходит, а следующее поле [zenaProd]- ошибка. Явно прописываю все нужные значения,например: кол-5, цена-10, имя товара - "апельсин" чек выходит.
Пример процедуры:

Visual Basic

Private Sub Кнопка19_Click()
 
Dim stDocName As String
 
    stDocName = "НовоеЧек1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Dim rcdНовоеЧек1 As DAO.Recordset
  
Set Fr03 = CreateObject("AddIn.DrvFR")
Fr03.Password = 30
Fr03.Connect
 
Fr03.Quantity = [кол]
Fr03.Price = [zenaProd]
Fr03.Department = 0
Fr03.StringForPrinting = [kod]
Fr03.Sale
If ResultCode <> 0 Then GoTo exit_sub
Fr03.Quantity = 1
Fr03.Price = 98.3
Fr03.Department = 0
Fr03.StringForPrinting = "Перец"
Fr03.Sale
If ResultCode <> 0 Then GoTo exit_sub
 
Fr03.StringForPrinting = "------------------------------------"
Fr03.Summ1 = 25
Fr03.Discount
 
Fr03.StringForPrinting = "------------------------------------"
Fr03.CheckSubTotal
Fr03.CloseCheck
If ResultCode <> 0 Then GoTo exit_sub
Fr03.Disconnect
 
 
Exit Sub
exit_sub:
MsgBox ResultCode
End Sub

ПОМОГИТЕ Очень нужно!!!

@Елена · 20.01.2012, 10:57

простак, Вы можете кинуть сюда таблицу и запрос, на основании которых работает процедура? Ваши данные из таблиц уберите, оставьте парочку для работы.. а так не пробовали

PureBasic

1
2
3

Dim dbs As DAO.Database
Set rcdНовоеЧек1 = dbs.OpenRecordset("НовоеЧек1", dbOpenSnapshot)
Fr03.Price = rcdНовоеЧек1.Fields("zenaProd")

@простак · 20.01.2012, 14:25 **[ТС]**

Отправляю Базу

21.01.2012, 00:16

Метод драйвера Price требует, чтобы переменная была типа Currency. Проверьте этот момент.

Portajgenosse
	21.01.2012, 00:16	4
	Метод драйвера Price требует, чтобы переменная была типа Currency. Проверьте этот момент.

Опции темы