A script to call up a dialog box when swiping a PDS card
The script displays a message (for example,
...
«No personal
...
data»), provided that the
...
«To show PDS card
...
info» parameter is disabled.
The script in the OnProcessCard event of the main order editing form:
| Code Block | ||
|---|---|---|
| ||
procedure DesignFormOnProcessCard(IntfID, EntranceCardType: integer; CardCode: string; RKCardInfo: TRKCardInfo; var res: integer);
begin
if trim(RKCardInfo.CardAddInfo)<>'' then
begin
gui.showmessage('CardAddInfo = '+RKCardInfo.CardAddInfo);
res := 0;
// dbg.dbgprint('CardAddInfo = '+RKCardInfo.CardAddInfo);
end;
end; |