Вернуться
Дисконтная система
saha 0 - 08.07.2004-16:53	Неплохо было бы где-нибудь выложить информацию о работе с дисконтной системой на cashtan (какие нужно нажимать кнопки на кассе )
Юра 1 - 14.02.2005-16:50	0*, читаем сканером карточку
Андрей (Глекос) 2 - 18.02.2005-12:35	задача нужно выбрать из протокола следуюющие записи 2 Дисконт 0 12:00:00 AM 99900 0,000 180 049,37грн. 0,00грн. 0,00% 2 Артикул + 0 12:00:00 AM 2794 1,000 1,55грн. 0,00грн. 0,00% 2 Артикул + 0 12:00:00 AM 1015 1,000 1,55грн. 0,00грн. 0,00% 2 Артикул + 0 12:00:00 AM 2785 1,000 1,85грн. 0,00грн. 0,00% 2 Пром. итог 0 12:00:00 AM 0 0,000 0,00грн. 0,00грн. 0,00% (2 Пром. итог 0 12:00:00 AM 0 0,000 0,00грн. 0,00грн. 0,00%) тоже если попадает 2 Отказ 0 12:00:00 AM 0 0,000 0,00грн. 0,00грн. 0,00% из ExamplP9.xls пробую через if не получается Private Sub CommandButton2_Click() Dim ct As New CashTANP9.Application, pf As ProtocolFolder, p As Protocol, pd As ProtocolData Dim r As Range, i&, sz& Dim fiecrid As CashTANP9.Field, fiopcode As CashTANP9.Field, fichecknumber As CashTANP9.Field, fitime As CashTANP9.Field Dim filocalcode As CashTANP9.Field, ficount As CashTANP9.Field, fiprice As CashTANP9.Field Dim fisum As CashTANP9.Field, fiPercent As CashTANP9.Field Activate For Each pf In ct.ProtocolFolders If pf.Caption = Cells(1, 5) Then Exit For Next If pf Is Nothing Then MsgBox "Папка протоколов не найдена!": Exit Sub End If For Each p In pf If p.Caption = Cells(1, 7) Then Exit For Next If p Is Nothing Then MsgBox "Протокол не найден!": Exit Sub End If Set r = Range("a10", "i10000"): r.Clear Set pd = p.ProtocolData sz = pd.RecordsCount: Cells(5, 4) = sz: If sz > 9900 Then sz = 9900 Set r = Range("i10", "i" + CStr(sz + 9)): r.Activate: r.NumberFormat = "0.00%" Set r = Range("f10", "f" + CStr(sz + 9)): r.Activate: r.NumberFormat = "0.000" Set r = Range("a10", "i" + CStr(sz + 9)): r.Activate: r.Borders.Value = 1 Cells(1, 1).Activate CommandButton1.Activate: DoEvents Set fiecrid = pd!EcrId Set fiopcode = pd!OpCode Set fichecknumber = pd!CheckNumber Set fitime = pd!Time Set filocalcode = pd!LocalCode Set ficount = pd!Count Set fiprice = pd!Price Set fisum = pd!Sum Set fiPercent = pd!Percent For i = 1 To sz If fiopcode.Value = 97 Then If fiopcode.Value = 1 Then If fiopcode.Value = 9 Then If fiopcode.Value = 13 Then [b5] = i r.Cells(i, 1) = fiecrid.Value If fiopcode.Value = 1 Then r.Cells(i, 2) = "Артикул +" End If If fiopcode.Value = 9 Then r.Cells(i, 2) = "Пром. итог" End If If fiopcode.Value = 10 Then r.Cells(i, 2) = "Наличные" End If If fiopcode.Value = 97 Then r.Cells(i, 2) = "Дисконт" End If If fiopcode.Value = 13 Then r.Cells(i, 2) = "Отказ" End If If fiopcode.Value = 2 Then r.Cells(i, 2) = "Артикул -" End If r.Cells(i, 3) = fichecknumber.Value r.Cells(i, 4) = fitime.Value r.Cells(i, 5) = filocalcode.Value r.Cells(i, 6) = ficount.Value r.Cells(i, 7) = fiprice.Value r.Cells(i, 8) = fisum.Value r.Cells(i, 9) = fiPercent.Value End If End If End If End If pd.MoveNext: Next End Sub

Добавить сообщение

Ваше имя  Пароль (для зарегистрированных)  email  Сообщение  Введите код, изображенный на картинке Для зарегистрированных пользователей можно не вводить  Внимание - введите код без первого символа!

© ТФПК Лтд. Все права защищены.

0.026685 seconds