ник: Comp
Добрый день форумчане.
Есть текст:
Option Compare Database
Private Sub BUT_EXIT_Click()
On Error GoTo Err_BUT_EXIT_Click
DoCmd.Close
Exit_BUT_EXIT_Click:
Exit Sub
Err_BUT_EXIT_Click:
MsgBox Err.Description
Resume Exit_BUT_EXIT_Click
End Sub
Private Sub Form_Open(Cancel As Integer)
Set Fr03 = CreateObject("AddIn.DrvFR")
End Sub
Private Sub Кнопка10_Click()
Fr03.Password = 30
Fr03.Connect
Fr03.Time = Me!FRTime
Fr03.SetTime
Fr03.Disconnect
End Sub
Private Sub Кнопка11_Click()
Fr03.Password = 30
Fr03.Connect
Fr03.Date = Me!FRDate
Fr03.SetDate
Fr03.ConfirmDate
Fr03.Disconnect
End Sub
Private Sub Кнопка12_Click()
Fr03.Password = 30
Fr03.Connect
Fr03.PrintReportWithCleaning
Fr03.Disconnect
End Sub
Private Sub Кнопка8_Click()
Fr03.Password = 30
Fr03.Connect
Fr03.Quantity = 2
Fr03.Price = 17.5
Fr03.Department = 0
Fr03.StringForPrinting = "Товар 1"
Fr03.Sale
If ResultCode <> 0 Then GoTo exit_sub
Fr03.Quantity = 1
Fr03.Price = 98.3
Fr03.Department = 0
Fr03.StringForPrinting = "Товар 2"
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
Private Sub Кнопка9_Click()
Fr03.ShowProperties
End Sub
И есть таблица:
Наименование Цена ед. Кол-во Дата Время Номер секции
Товар1 1 1 01.01.09 12.22 1
Товар2 10 2 01.01.09 12.22 1
Товар3 22 1 01.01.09 14.20 2
....
Нужно в тексте придумать цикл так чтобы товары с одинаковым временем и датой пробивались одним чеком.
Также известно:
Quantity - Количество товара
Price - Цена за единицу товара
Department - Номер отдела (секции)
StringForPrinting - Строка символов кодовой таблицы WIN1251
для печати (печатается на чеке в строке,
идущей перед строкой, содержащей
цену(сумму) и/или количество).
Помогите. В программировании не рублю