Пример для Visual Basic:
' Подключение Dim fp As Object Dim result As Long Dim data as String Dim time as String Set fp = CreateObject("Fp3530t.Fp") ' Открытие порта result = fp.OpenPort(1) ' Получение даты и времени fp.GetDateTime data = fp.Date time = fp.Time MsgBox data MsgBox time ' Закрытие порта fp.ClosePort
Пример регистрации чека для 1С:Предприятия:
// ОснТЗ – таблица значений с колонками: // Товар, Цена, Колво. // возвр – переменная, которая принимает значение возврата ФП = CreateObject("Fp3530t.Fp"); возвр = ФП.OpenPort(Константа.НомерПорта); оп = число(прав(Константа.НомерТерминала,1)); возвр = ФП.OpenFiscalReceipt(оп,"0000",оп); ОснТЗ.ВыбратьСтроки(); Пока ОснТЗ.ПолучитьСтроку()=1 Цикл Оцена = ОснТЗ.Цена / ОснТЗ.Колво; Если ОснТЗ.Товар.СтавкаНДС = 0 тогда ндс = 2; Иначе ндс = 1; КонецЕсли; возвр = ФП.RegisterItem( Строка(ОснТЗ.Товар.Артикул), ндс, Оцена, ОснТЗ.Колво, 0 ); КонецЦикла; возвр = ФП.Total(1, ОснТЗ.Итог("Сумма")); возвр = ФП.CloseFiscalReceipt(); возвр = ФП.ClosePort();