ник: час
ё моё 
А кто же это?
вот что с ним поставляется, но тоже не раьотает...
Private ECR As Object
Private Sub Demo()
' занимаем порт
ECR.DeviceEnabled = True
If ECR.ResultCode <> 0 Then
Exit Sub
End If
' получаем состояние ККМ
If ECR.GetStatus <> 0 Then
Exit Sub
End If
' проверяем на всякий случай ККМ на фискализированность
If ECR.Fiscal Then
If MsgBox("ККМ фискализирована! Вы действительно хотите продолжить?", vbICONEXCLAMATION + vbYesNo) = vbNo Then
Exit Sub
End If
End If
' если есть открытый чек, то отменяем его
If ECR.CheckState <> 0 Then
If ECR.CancelCheck <> 0 Then
Exit Sub
End If
End If
' если смена открыта снимаем Z-отчет
If ECR.SessionOpened Then
' устанавливаем пароль системного администратора ККМ
ECR.Password = "30"
' входим в режим отчетов с гашением
ECR.Mode = 3
If ECR.SetMode <> 0 Then
Exit Sub
End If
' снимаем отчет
ECR.ReportType = 1
If ECR.Report <> 0 Then
Exit Sub
End If
End If
' входим в режим регистрации
' устанавливаем пароль кассира
ECR.Password = "1"
' входим в режим регистрации
ECR.Mode = 1
If ECR.SetMode <> 0 Then
Exit Sub
End If
|