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;