/[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 2658 by torben, Sun Aug 23 14:08:08 2015 UTC revision 2659 by torben, Sun Aug 23 14:27:39 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);      procedure VisAlarmSkaerm(strMessage: string);
262    
263    public    public
264      { Public declarations }      { Public declarations }
# Line 1153  var Line 1153  var
1153    BoghandlerNavn : String;    BoghandlerNavn : String;
1154    Koreliste : String;    Koreliste : String;
1155    PrintNyLabel : Boolean;    PrintNyLabel : Boolean;
   List1msg : String;  
1156    pakkeErScannet : Integer;    pakkeErScannet : Integer;
1157    pakkeForkertSted : Integer;    pakkeForkertSted : Integer;
1158    tjekkodeMangler : Integer;    tjekkodeMangler : Integer;
# Line 1170  var Line 1169  var
1169    URLStr : String;    URLStr : String;
1170    Pakketype : String;    Pakketype : String;
1171    Pakkescanningtype : String;    Pakkescanningtype : String;
1172      //List1msg : String;
1173    
1174  begin  begin
1175    
# Line 1209  begin Line 1209  begin
1209    begin    begin
1210      if (Length(Trim(Stregkode)) = 0) then      if (Length(Trim(Stregkode)) = 0) then
1211      begin      begin
1212        PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
1213        List1msg := 'Der skal scannes en stregkode...';  
       ListBox1.Items.Insert(0,List1Msg);  
       MainForm.Color := clRed;  
       RuteNummerST.Caption := '';  
       BoghandlerNavnST.Caption := '';  
       KommentarST.Caption := List1msg;  
       PakkeshopNulstil.Visible := true;  
1214        exit;        exit;
1215      end;      end;
1216    
# Line 1228  begin Line 1222  begin
1222    
1223      if PakkeshopNulstil.Visible then      if PakkeshopNulstil.Visible then
1224      begin      begin
1225         PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' );
        List1msg := 'HUSK at klikke Nulstil før ny scanning...';  
1226    
        ListBox1.Items.Insert(0,List1Msg);  
        MainForm.Color := clRed;  
        KommentarST.Caption := List1msg;  
        Stregkode := '';  
        StregkodeST.Caption := StregKode;  
1227         exit;         exit;
1228      end;      end;
1229    
# Line 1247  begin Line 1235  begin
1235         end         end
1236         else         else
1237         begin         begin
1238            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1239         end;         end;
1240         Stregkode := '';         Stregkode := '';
1241         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1262  begin Line 1250  begin
1250         end         end
1251         else         else
1252         begin         begin
1253            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1254         end;         end;
1255         Stregkode := '';         Stregkode := '';
1256         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1284  begin Line 1272  begin
1272         end         end
1273         else         else
1274         begin         begin
1275            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1276         end;         end;
1277         Stregkode := '';         Stregkode := '';
1278         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1306  begin Line 1294  begin
1294        end        end
1295        else        else
1296        begin        begin
1297          VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1298        end;        end;
1299        Stregkode := '';        Stregkode := '';
1300        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1321  begin Line 1309  begin
1309         end         end
1310         else         else
1311         begin         begin
1312            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
1313         end;         end;
1314         Stregkode := '';         Stregkode := '';
1315         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1337  begin Line 1325  begin
1325         end         end
1326         else         else
1327         begin         begin
1328          VisAlarmSkaerm(List1msg);          VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
1329         end;         end;
1330         Stregkode := '';         Stregkode := '';
1331         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1352  begin Line 1340  begin
1340         end         end
1341         else         else
1342         begin         begin
1343            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1344         end;         end;
1345         Stregkode := '';         Stregkode := '';
1346         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1367  begin Line 1355  begin
1355         end         end
1356         else         else
1357         begin         begin
1358            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1359         end;         end;
1360         Stregkode := '';         Stregkode := '';
1361         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1382  begin Line 1370  begin
1370         end         end
1371         else         else
1372         begin         begin
1373            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1374         end;         end;
1375         Stregkode := '';         Stregkode := '';
1376         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1397  begin Line 1385  begin
1385         end         end
1386         else         else
1387         begin         begin
1388            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1389         end;         end;
1390         Stregkode := '';         Stregkode := '';
1391         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1412  begin Line 1400  begin
1400         end         end
1401         else         else
1402         begin         begin
1403            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1404         end;         end;
1405         Stregkode := '';         Stregkode := '';
1406         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1473  begin Line 1461  begin
1461          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)
1462          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then
1463      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
1464         VisAlarmSkaerm(List1msg);          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1465    
1466         exit;         exit;
1467      end;      end;
# Line 1510  begin Line 1498  begin
1498        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1499    
1500        else        else
1501            begin   // Her skal komme en alarm og rød skærm            begin
1502               PlaySound(PWideChar(AlarmLyd));            // Her skal komme en alarm og rød skærm
1503               List1msg := 'Pakken kan ikke scannes med automatisk valg';              VisAlarmSkaerm( 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;  
   
              StregKode := '';  
              StregkodeST.Caption := StregKode;  
1504    
1505               exit;               exit;
1506            end;            end;
# Line 1531  begin Line 1508  begin
1508      end      end
1509      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1510      begin      begin
1511        PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
       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;  
1512    
1513        exit;        exit;
1514      end;      end;
# Line 1552  begin Line 1517  begin
1517      begin      begin
1518        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1519        begin        begin
         PlaySound(PWideChar(AlarmLyd));  
         List1msg := 'Pakke findes som pakketype: ' + Pakketype;  
         ListBox1.Items.Insert(0,List1Msg);  
         MainForm.Color := clRed;  
1520    
1521           RuteNummerST.Caption := '';          VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype );
          BoghandlerNavnST.Caption := '';  
1522    
         KommentarST.Caption := List1msg;  
         PakkeshopNulstil.Visible := true;  
         StregKode := '';  
         StregkodeST.Caption := StregKode;  
1523          exit;          exit;
1524        end;        end;
1525      end;      end;
# Line 1613  begin Line 1569  begin
1569              PakkeshopStregkode := Stregkode;              PakkeshopStregkode := Stregkode;
1570              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1571              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1572  // 20150317: start  
1573              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));
1574  // 20150317: slut  
1575             end             end
1576            else            else
1577             begin             begin
1578                List1msg := 'Du skal scanne en stregkode';                VisAlarmSkaerm( '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;  
1579             end;             end;
1580            Stregkode := '';            Stregkode := '';
1581            InitScreen();            InitScreen();
# Line 1646  begin Line 1596  begin
1596          else          else
1597           begin           begin
1598                if (PakkeshopLevering1.Checked) then                if (PakkeshopLevering1.Checked) then
1599                  List1msg := 'Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode;                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1600                if (Pakkernormal1.Checked) then                if (Pakkernormal1.Checked) then
1601                  List1msg := 'Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode;                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1602                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  
1603                StregKode := '';                StregKode := '';
1604                StregkodeST.Caption := StregKode;                StregkodeST.Caption := StregKode;
 // 20150323: slut  
1605                exit;                exit;
1606           end;           end;
1607          Stregkode := '';          Stregkode := '';
# Line 1737  begin Line 1679  begin
1679            end            end
1680            else if Copy(Kommentar,1,8) = 'OPRETTET' then            else if Copy(Kommentar,1,8) = 'OPRETTET' then
1681            begin            begin
1682              List1msg := 'Pakke ' + PakkeshopStregkode + ' skal gemmes på lager indtil data modtages';              VisAlarmSkaerm( 'Pakke ' + PakkeshopStregkode + ' skal gemmes på lager indtil data modtages' );
             ListBox1.Items.Insert(0,List1Msg);  
             MainForm.Color := clRed;  
             PlaySound(PWideChar(AlarmLyd));  
             PakkeshopNulstil.Visible := true;  
1683            end            end
1684            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'
1685            begin            begin
# Line 1754  begin Line 1692  begin
1692            end;            end;
1693           if not PakkeshopNulstil.Visible then           if not PakkeshopNulstil.Visible then
1694            begin            begin
1695  // 20150310: start  
 //            SletStregkodelinieFraListboks2(StregKode);  
 // 20150310: slut  
1696              If (Budlevering1.Checked) then              If (Budlevering1.Checked) then
1697              begin              begin
1698                if Storepakker1.Checked then                if Storepakker1.Checked then
# Line 1770  begin Line 1706  begin
1706                InitLillePakke();                InitLillePakke();
1707              end;              end;
1708            end;            end;
1709  // 20150310: start  
1710            SletStregkodelinieFraListboks2(StregKode);            SletStregkodelinieFraListboks2(StregKode);
1711  // 20150310: slut  
1712            PakkeshopStregkode := '';            PakkeshopStregkode := '';
1713            PakkeshopTjekkode := '';            PakkeshopTjekkode := '';
1714            BoghandlerStregkode := '';            BoghandlerStregkode := '';
# Line 5270  begin Line 5206  begin
5206    result := svar;    result := svar;
5207  end;  end;
5208    
5209  procedure TMainForm.VisAlarmSkaerm(var List1msg: string);  procedure TMainForm.VisAlarmSkaerm(strMessage: string);
5210  begin  begin
5211    //ShowMessage('Ændring ikke tilladt');    //ShowMessage('Ændring ikke tilladt');
5212    // Her skal komme en 'rød skærm' alarm    // Her skal komme en 'rød skærm' alarm
5213    PlaySound(PWideChar(AlarmLyd));    PlaySound(PWideChar(AlarmLyd));
5214    List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
5215    ListBox1.Items.Insert(0, List1Msg);    ListBox1.Items.Insert(0, strMessage);
5216    MainForm.Color := clRed;    MainForm.Color := clRed;
5217    RuteNummerST.Caption := '';    RuteNummerST.Caption := '';
5218    BoghandlerNavnST.Caption := '';    BoghandlerNavnST.Caption := '';
5219    KommentarST.Caption := List1msg;    KommentarST.Caption := strMessage;
5220    PakkeshopNulstil.Visible := true;    PakkeshopNulstil.Visible := true;
5221  end;  end;
5222    
Legend:
Removed from v.2658  
changed lines
  Added in v.2659
  ViewVC Help
Powered by ViewVC 1.1.20