Добрый Вечер!
Код:
type
TTransInfo = packed record
Size : Word; //Size of TTransInfo - заполнить перед вызовом
Kind : Word; //0-оплата 1-скидка 2-бонус 3-потраты гостя
Summa : Comp; {сумма в копейках;
для Transaction()
положительное число - обычное действие;
отрицательное число - возврат
для GetCardOpers() и GetRkTrans() - наоборот
}
//информация о чеке - необязательная
Office : Word; //код ресторана
LogDate : Longint; //дата чека (0 -> 30/12/1899)
UnitNum : Byte; //номер кассы
CheckNo : Longint; //номер чека
end;
Type
{процедура обратного вызова для перечисления операций по карте}
TEnumCardOpers = Procedure( When: TDateTime; const Info: TTransInfo ); stdcall;
{перечисления операций по карте, результаты возвращаются через процедуру Proc}
Function GetCardOpers( Card: Integer; DateFirst, DateLast: TDateTime; Proc: TEnumCardOpers ): BOOL; stdcall; export;
procedure TForm1.Button6Click(Sender: TObject);
var CardOpers: TEnumCardOpers;
XInfo: TTransInfo;
begin
XInfo.Size:=SizeOf(TCardParams);
GetCardOpers(9068,StrToDate('20.10.2010'),StrToDate('20.10.2010'),CardOpers);
//Здесь ошибка
CardOpers(StrToDate('20.10.2010'),XInfo);
ShowMessage(GetErrorText);
ShowMessage(IntToStr(XInfo.CheckNo));
end;
Admin: Не забываем про теги!
Подскажите как получить результат функции GetCardOpers