/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2656 by torben, Sun Aug 23 13:09:14 2015 UTC revision 2657 by torben, Sun Aug 23 14:02:55 2015 UTC
# Line 258  type Line 258  type
258      procedure IndlesScanningLogFil();      procedure IndlesScanningLogFil();
259      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
260      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
261        procedure VisAlarmSkaerm(var List1msg: string);
262    
263    public    public
264      { Public declarations }      { Public declarations }
# Line 1246  begin Line 1247  begin
1247         end         end
1248         else         else
1249         begin         begin
1250          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1251         end;         end;
1252         Stregkode := '';         Stregkode := '';
1253         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1270  begin Line 1262  begin
1262         end         end
1263         else         else
1264         begin         begin
1265          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
   
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1266         end;         end;
1267         Stregkode := '';         Stregkode := '';
1268         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1302  begin Line 1284  begin
1284         end         end
1285         else         else
1286         begin         begin
1287          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1288         end;         end;
1289         Stregkode := '';         Stregkode := '';
1290         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1333  begin Line 1306  begin
1306        end        end
1307        else        else
1308        begin        begin
1309          //ShowMessage('Ændring ikke tilladt');          VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1310        end;        end;
1311        Stregkode := '';        Stregkode := '';
1312        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1357  begin Line 1321  begin
1321         end         end
1322         else         else
1323         begin         begin
1324          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1325         end;         end;
1326         Stregkode := '';         Stregkode := '';
1327         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1382  begin Line 1337  begin
1337         end         end
1338         else         else
1339         begin         begin
1340          //ShowMessage('Ændring ikke tilladt');          VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
   
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
   
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1341         end;         end;
1342         Stregkode := '';         Stregkode := '';
1343         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1408  begin Line 1352  begin
1352         end         end
1353         else         else
1354         begin         begin
1355          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
   
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
   
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1356         end;         end;
1357         Stregkode := '';         Stregkode := '';
1358         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1434  begin Line 1367  begin
1367         end         end
1368         else         else
1369         begin         begin
1370          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
   
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
   
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1371         end;         end;
1372         Stregkode := '';         Stregkode := '';
1373         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1460  begin Line 1382  begin
1382         end         end
1383         else         else
1384         begin         begin
1385          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
   
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
   
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1386         end;         end;
1387         Stregkode := '';         Stregkode := '';
1388         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1486  begin Line 1397  begin
1397         end         end
1398         else         else
1399         begin         begin
1400          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
   
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
   
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1401         end;         end;
1402         Stregkode := '';         Stregkode := '';
1403         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1512  begin Line 1412  begin
1412         end         end
1413         else         else
1414         begin         begin
1415          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
   
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
   
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1416         end;         end;
1417         Stregkode := '';         Stregkode := '';
1418         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 5393  begin Line 5282  begin
5282    result := svar;    result := svar;
5283  end;  end;
5284    
5285    procedure TMainForm.VisAlarmSkaerm(var List1msg: string);
5286    begin
5287      //ShowMessage('Ændring ikke tilladt');
5288      // Her skal komme en 'rød skærm' alarm
5289      PlaySound(PWideChar(AlarmLyd));
5290      List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
5291      ListBox1.Items.Insert(0, List1Msg);
5292      MainForm.Color := clRed;
5293      RuteNummerST.Caption := '';
5294      BoghandlerNavnST.Caption := '';
5295      KommentarST.Caption := List1msg;
5296      PakkeshopNulstil.Visible := true;
5297    end;
5298    
5299  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
5300  var  var
5301     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
Legend:
Removed from v.2656  
changed lines
  Added in v.2657
  ViewVC Help
Powered by ViewVC 1.1.20