6. Примеры работы

6.1. Visual Basic

Пример для 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

6.2. 1C:Предприятие 7.7

Пример регистрации чека для 1С:Предприятия:

// ОснТЗ – таблица значений с колонками:
// Товар, Цена, Колво.
// возвр – переменная, которая принимает значение возврата
ФП = CreateObject("Fp3530t.Fp");
возвр = ФП.OpenPort(Константа.НомерПорта);
оп = число(прав(Константа.НомерТерминала,1));
возвр = ФП.OpenFiscalReceipt(оп,"0000",оп);

ОснТЗ.ВыбратьСтроки();
Пока ОснТЗ.ПолучитьСтроку()=1 Цикл
	Оцена = ОснТЗ.Цена / ОснТЗ.Колво;

	Если ОснТЗ.Товар.СтавкаНДС = 0 тогда
		ндс = 2;
	Иначе
		ндс = 1;
	КонецЕсли;
	возвр = ФП.RegisterItem( Строка(ОснТЗ.Товар.Артикул), ндс, Оцена,
	 	ОснТЗ.Колво, 0 );
КонецЦикла;
возвр = ФП.Total(1, ОснТЗ.Итог("Сумма"));
возвр = ФП.CloseFiscalReceipt();
возвр = ФП.ClosePort();