--- dao/DelphiScanner/Main.pas	2015/08/23 14:08:08	2658
+++ dao/DelphiScanner/Main.pas	2015/08/23 14:27:39	2659
@@ -258,7 +258,7 @@
     procedure IndlesScanningLogFil();
     procedure SkrivScanningLogFil(var tekst : string);
     function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
-    procedure VisAlarmSkaerm(var List1msg: string);
+    procedure VisAlarmSkaerm(strMessage: string);
 
   public
     { Public declarations }
@@ -1153,7 +1153,6 @@
   BoghandlerNavn : String;
   Koreliste : String;
   PrintNyLabel : Boolean;
-  List1msg : String;
   pakkeErScannet : Integer;
   pakkeForkertSted : Integer;
   tjekkodeMangler : Integer;
@@ -1170,6 +1169,7 @@
   URLStr : String;
   Pakketype : String;
   Pakkescanningtype : String;
+  //List1msg : String;
 
 begin
 
@@ -1209,14 +1209,8 @@
   begin
     if (Length(Trim(Stregkode)) = 0) then
     begin
-      PlaySound(PWideChar(AlarmLyd));
-      List1msg := 'Der skal scannes en stregkode...';
-      ListBox1.Items.Insert(0,List1Msg);
-      MainForm.Color := clRed;
-      RuteNummerST.Caption := '';
-      BoghandlerNavnST.Caption := '';
-      KommentarST.Caption := List1msg;
-      PakkeshopNulstil.Visible := true;
+      VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
+
       exit;
     end;
 
@@ -1228,14 +1222,8 @@
 
     if PakkeshopNulstil.Visible then
     begin
-       PlaySound(PWideChar(AlarmLyd));
-       List1msg := 'HUSK at klikke Nulstil før ny scanning...';
+      VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' );
 
-       ListBox1.Items.Insert(0,List1Msg);
-       MainForm.Color := clRed;
-       KommentarST.Caption := List1msg;
-       Stregkode := '';
-       StregkodeST.Caption := StregKode;
        exit;
     end;
 
@@ -1247,7 +1235,7 @@
        end
        else
        begin
-          VisAlarmSkaerm(List1msg);
+          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1262,7 +1250,7 @@
        end
        else
        begin
-          VisAlarmSkaerm(List1msg);
+          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1284,7 +1272,7 @@
        end
        else
        begin
-          VisAlarmSkaerm(List1msg);
+          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1306,7 +1294,7 @@
       end
       else
       begin
-        VisAlarmSkaerm(List1msg);
+          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
       end;
       Stregkode := '';
       StregkodeST.Caption := StregKode;
@@ -1321,7 +1309,7 @@
        end
        else
        begin
-          VisAlarmSkaerm(List1msg);
+          VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1337,7 +1325,7 @@
        end
        else
        begin
-        VisAlarmSkaerm(List1msg);
+        VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1352,7 +1340,7 @@
        end
        else
        begin
-          VisAlarmSkaerm(List1msg);
+          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1367,7 +1355,7 @@
        end
        else
        begin
-          VisAlarmSkaerm(List1msg);
+          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1382,7 +1370,7 @@
        end
        else
        begin
-          VisAlarmSkaerm(List1msg);
+          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1397,7 +1385,7 @@
        end
        else
        begin
-          VisAlarmSkaerm(List1msg);
+          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1412,7 +1400,7 @@
        end
        else
        begin
-          VisAlarmSkaerm(List1msg);
+          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1473,7 +1461,7 @@
         or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)
         or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then
     begin   // Her skal komme en alarm og rød skærm
-       VisAlarmSkaerm(List1msg);
+        VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
 
        exit;
     end;
@@ -1510,20 +1498,9 @@
       // Retur kan ikke scannes med 'Automatisk valg'
 
       else
-          begin   // Her skal komme en alarm og rød skærm
-             PlaySound(PWideChar(AlarmLyd));
-             List1msg := 'Pakken kan ikke scannes med automatisk valg';
-             ListBox1.Items.Insert(0,List1Msg);
-             MainForm.Color := clRed;
-
-             RuteNummerST.Caption := '';
-             BoghandlerNavnST.Caption := '';
-
-             KommentarST.Caption := List1msg;
-             PakkeshopNulstil.Visible := true;
-
-             StregKode := '';
-             StregkodeST.Caption := StregKode;
+          begin
+          // Her skal komme en alarm og rød skærm
+            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
 
              exit;
           end;
@@ -1531,19 +1508,7 @@
     end
     else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
     begin
-      PlaySound(PWideChar(AlarmLyd));
-      List1msg := 'Pakkenummer ikke gyldigt (for kort)';
-      ListBox1.Items.Insert(0,List1Msg);
-      MainForm.Color := clRed;
-
-      RuteNummerST.Caption := '';
-      BoghandlerNavnST.Caption := '';
-
-      KommentarST.Caption := List1msg;
-      PakkeshopNulstil.Visible := true;
-
-      StregKode := '';
-      StregkodeST.Caption := StregKode;
+      VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
 
       exit;
     end;
@@ -1552,18 +1517,9 @@
     begin
       if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
       begin
-        PlaySound(PWideChar(AlarmLyd));
-        List1msg := 'Pakke findes som pakketype: ' + Pakketype;
-        ListBox1.Items.Insert(0,List1Msg);
-        MainForm.Color := clRed;
 
-         RuteNummerST.Caption := '';
-         BoghandlerNavnST.Caption := '';
+        VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype );
 
-        KommentarST.Caption := List1msg;
-        PakkeshopNulstil.Visible := true;
-        StregKode := '';
-        StregkodeST.Caption := StregKode;
         exit;
       end;
     end;
@@ -1613,19 +1569,13 @@
             PakkeshopStregkode := Stregkode;
             BoghandlerStregkode := Stregkode;
             PakkeshopText1.Caption := 'Tjekkode';
-// 20150317: start
+
             PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));
-// 20150317: slut
+
            end
           else
            begin
-              List1msg := 'Du skal scanne en stregkode';
-              ListBox1.Items.Insert(0,List1Msg);
-              //logTekst := RightStr(List1Msg, Length(List1Msg)-10);
-              //SkrivScanningLogFil(logTekst);
-              PlaySound(PWideChar(AlarmLyd));
-              PakkeshopNulstil.Visible := true;
-              MainForm.Color := clRed;
+              VisAlarmSkaerm( 'Du skal scanne en stregkode' );
            end;
           Stregkode := '';
           InitScreen();
@@ -1646,20 +1596,12 @@
         else
          begin
               if (PakkeshopLevering1.Checked) then
-                List1msg := 'Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode;
+                VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
               if (Pakkernormal1.Checked) then
-                List1msg := 'Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode;
-              KommentarST.Caption := List1msg;
-              ListBox1.Items.Insert(0,List1Msg);
-              //logTekst := RightStr(List1Msg, Length(List1Msg)-10);
-              //SkrivScanningLogFil(logTekst);
-              PlaySound(PWideChar(AlarmLyd));
-              PakkeshopNulstil.Visible := true;
-              MainForm.Color := clRed;
-// 20150323: start
+                VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
+                
               StregKode := '';
               StregkodeST.Caption := StregKode;
-// 20150323: slut
               exit;
          end;
         Stregkode := '';
@@ -1737,11 +1679,7 @@
           end
           else if Copy(Kommentar,1,8) = 'OPRETTET' then
           begin
-            List1msg := 'Pakke ' + PakkeshopStregkode + ' skal gemmes på lager indtil data modtages';
-            ListBox1.Items.Insert(0,List1Msg);
-            MainForm.Color := clRed;
-            PlaySound(PWideChar(AlarmLyd));
-            PakkeshopNulstil.Visible := true;
+            VisAlarmSkaerm( 'Pakke ' + PakkeshopStregkode + ' skal gemmes på lager indtil data modtages' );
           end
           else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'
           begin
@@ -1754,9 +1692,7 @@
           end;
          if not PakkeshopNulstil.Visible then
           begin
-// 20150310: start
-//            SletStregkodelinieFraListboks2(StregKode);
-// 20150310: slut
+
             If (Budlevering1.Checked) then
             begin
               if Storepakker1.Checked then
@@ -1770,9 +1706,9 @@
               InitLillePakke();
             end;
           end;
-// 20150310: start
+
           SletStregkodelinieFraListboks2(StregKode);
-// 20150310: slut
+
           PakkeshopStregkode := '';
           PakkeshopTjekkode := '';
           BoghandlerStregkode := '';
@@ -5270,17 +5206,17 @@
   result := svar;
 end;
 
-procedure TMainForm.VisAlarmSkaerm(var List1msg: string);
+procedure TMainForm.VisAlarmSkaerm(strMessage: string);
 begin
   //ShowMessage('Ændring ikke tilladt');
   // 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);
+
+  ListBox1.Items.Insert(0, strMessage);
   MainForm.Color := clRed;
   RuteNummerST.Caption := '';
   BoghandlerNavnST.Caption := '';
-  KommentarST.Caption := List1msg;
+  KommentarST.Caption := strMessage;
   PakkeshopNulstil.Visible := true;
 end;