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;