Регистрация

Dll для farcards 6.04

06 мая 2014 22:26 #36635 от yakdenis
Добрый день!
Может кто то поможет. Попросили помочь с extdll для farcards.
Версия farcards 6.04. Пишу в delphi 7.
Функцию GetCardInfoEx написал все работает.
Возникла проблема со структурой для транзакций.

описание структуры

PTransInfo = ^TTransInfo;
TTransInfo = packed record
Size : Word; //размер структуры = 122 байт
Card : Int64; //Карта
HolderId : Int64; //Идентификатор владельца карты
Bill : DWORD; //Номер счета
Kind : Byte; //Тип транзакции 0 - платеж (снятие денег со счета) 1 - скидка 2 - бонус (начисление денег на счет) 3 - потраты гостя (сколько заплатил своих денег)
Summa : Int64; //cумма, в копейках
Restaurant : Word; //код ресторана
RKDate : DWORD; //кассовая дата
RKUnit : Byte; //номер кассы
RKCheckA : DWORD; //номер чека
//далее информация о налогах в чеке (8 штук)
VatSumA : Int64;
VatPrcA : Word;
VatSumB : Int64;
VatPrcB : Word;
VatSumC : Int64;
VatPrcC : Word;
VatSumD : Int64;
VatPrcD : Word;
VatSumE : Int64;
VatPrcE : Word;
VatSumF : Int64;
VatPrcF : Word;
VatSumG : Int64;
VatPrcG : Word;
VatSumH : Int64;
VatPrcH : Word;

Сама процедура

function TransactionsEx(
Count: DWORD; List: PTransInfo;
InpBuf: PChar; InpLen: DWORD; InpKind: Word;
var OutBuf: PChar; var OutLen: DWORD; var OutKind: Word
): Integer; stdcall; export;
var i: integer;
LogTxt :TextFile;
begin
AssignFile(LogTxt,'Sold.log');
Append(LogTxt);
WriteLn(LogTxt,Inttostr(List.Size));
WriteLn(LogTxt,Inttostr(Count));
WriteLn(LogTxt,Inttostr(List.Kind));
WriteLn(LogTxt,Inttostr(List.Card));
WriteLn(LogTxt,Inttostr(List.HolderId));
WriteLn(LogTxt,Inttostr(List.Summa));
WriteLn(LogTxt,Inttostr(List.Restaurant));
CloseFile(LogTxt);
Result := 0;
end;

В итоге данные не корректные такое ощущение что ошибся где то в описании структуры. Но не могу найти.

Пожалуйста Войти , чтобы присоединиться к беседе.

26 март 2015 13:52 #36651 от Serafim
Денис, мы ищем разработчика под Rkeeper для написания DLL под Farcards. Я так понимаю у вас есть опыт. Это так? Рассматриваете предложения?

Пожалуйста Войти , чтобы присоединиться к беседе.

27 март 2015 03:43 #36653 от yakdenis
Опыт есть. Для farcards 5.05 dll написал и она уже с полгода работает нормально. Предложения рассматриваю.

Пожалуйста Войти , чтобы присоединиться к беседе.

27 март 2015 16:30 #36654 от Serafim
Как с вами связаться?

Пожалуйста Войти , чтобы присоединиться к беседе.

28 март 2015 13:37 #36655 от Serafim
Написал вам в почту

Пожалуйста Войти , чтобы присоединиться к беседе.

Время создания страницы: 0.183 секунд

Сейчас на сайте:

Сейчас один гость и ни одного зарегистрированного пользователя на сайте