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:

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;
  • No labels