/[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 2657 by torben, Sun Aug 23 14:02:55 2015 UTC revision 2660 by torben, Sun Aug 23 14:45:16 2015 UTC
# Line 8  uses Line 8  uses
8    IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts,    IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts,
9    Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,    Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,
10    IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,    IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,
11    Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet    Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet,
12      UITypes
13    
14    ;    ;
15    
16  type  type
# Line 258  type Line 260  type
260      procedure IndlesScanningLogFil();      procedure IndlesScanningLogFil();
261      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
262      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
263      procedure VisAlarmSkaerm(var List1msg: string);      procedure VisAlarmSkaerm(strMessage: string);
264    
265    public    public
266      { Public declarations }      { Public declarations }
# Line 535  const Line 537  const
537    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
538  var  var
539    printerInd : integer;    printerInd : integer;
   i : Integer;  
 // 20150310: start  
540    gemScanningtype : String;    gemScanningtype : String;
 // 20150310: slut  
541    
542  begin  begin
543    // Initierer nogle variabler    // Initierer nogle variabler
# Line 1153  var Line 1152  var
1152    BoghandlerNavn : String;    BoghandlerNavn : String;
1153    Koreliste : String;    Koreliste : String;
1154    PrintNyLabel : Boolean;    PrintNyLabel : Boolean;
   List1msg : String;  
1155    pakkeErScannet : Integer;    pakkeErScannet : Integer;
1156    pakkeForkertSted : Integer;    pakkeForkertSted : Integer;
1157    tjekkodeMangler : Integer;    tjekkodeMangler : Integer;
# Line 1209  begin Line 1207  begin
1207    begin    begin
1208      if (Length(Trim(Stregkode)) = 0) then      if (Length(Trim(Stregkode)) = 0) then
1209      begin      begin
1210        PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
1211        List1msg := 'Der skal scannes en stregkode...';  
       ListBox1.Items.Insert(0,List1Msg);  
       MainForm.Color := clRed;  
       RuteNummerST.Caption := '';  
       BoghandlerNavnST.Caption := '';  
       KommentarST.Caption := List1msg;  
       PakkeshopNulstil.Visible := true;  
1212        exit;        exit;
1213      end;      end;
1214    
# Line 1228  begin Line 1220  begin
1220    
1221      if PakkeshopNulstil.Visible then      if PakkeshopNulstil.Visible then
1222      begin      begin
1223         PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' );
        List1msg := 'HUSK at klikke Nulstil før ny scanning...';  
1224    
        ListBox1.Items.Insert(0,List1Msg);  
        MainForm.Color := clRed;  
        KommentarST.Caption := List1msg;  
        Stregkode := '';  
        StregkodeST.Caption := StregKode;  
1225         exit;         exit;
1226      end;      end;
1227    
# Line 1247  begin Line 1233  begin
1233         end         end
1234         else         else
1235         begin         begin
1236            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1237         end;         end;
1238         Stregkode := '';         Stregkode := '';
1239         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1262  begin Line 1248  begin
1248         end         end
1249         else         else
1250         begin         begin
1251            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1252         end;         end;
1253         Stregkode := '';         Stregkode := '';
1254         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1284  begin Line 1270  begin
1270         end         end
1271         else         else
1272         begin         begin
1273            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1274         end;         end;
1275         Stregkode := '';         Stregkode := '';
1276         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1306  begin Line 1292  begin
1292        end        end
1293        else        else
1294        begin        begin
1295          VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1296        end;        end;
1297        Stregkode := '';        Stregkode := '';
1298        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1321  begin Line 1307  begin
1307         end         end
1308         else         else
1309         begin         begin
1310            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
1311         end;         end;
1312         Stregkode := '';         Stregkode := '';
1313         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1337  begin Line 1323  begin
1323         end         end
1324         else         else
1325         begin         begin
1326          VisAlarmSkaerm(List1msg);          VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
1327         end;         end;
1328         Stregkode := '';         Stregkode := '';
1329         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1352  begin Line 1338  begin
1338         end         end
1339         else         else
1340         begin         begin
1341            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1342         end;         end;
1343         Stregkode := '';         Stregkode := '';
1344         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1367  begin Line 1353  begin
1353         end         end
1354         else         else
1355         begin         begin
1356            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1357         end;         end;
1358         Stregkode := '';         Stregkode := '';
1359         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1382  begin Line 1368  begin
1368         end         end
1369         else         else
1370         begin         begin
1371            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1372         end;         end;
1373         Stregkode := '';         Stregkode := '';
1374         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1397  begin Line 1383  begin
1383         end         end
1384         else         else
1385         begin         begin
1386            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1387         end;         end;
1388         Stregkode := '';         Stregkode := '';
1389         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1412  begin Line 1398  begin
1398         end         end
1399         else         else
1400         begin         begin
1401            VisAlarmSkaerm(List1msg);            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1402         end;         end;
1403         Stregkode := '';         Stregkode := '';
1404         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1473  begin Line 1459  begin
1459          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)
1460          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then
1461      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
1462         PlaySound(PWideChar(AlarmLyd));          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
        List1msg := 'Pakketype ' + Pakketype + ' kan ikke scannes 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;  
1463    
1464         exit;         exit;
1465      end;      end;
# Line 1522  begin Line 1496  begin
1496        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1497    
1498        else        else
1499            begin   // Her skal komme en alarm og rød skærm            begin
1500               PlaySound(PWideChar(AlarmLyd));            // Her skal komme en alarm og rød skærm
1501               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;  
1502    
1503               exit;               exit;
1504            end;            end;
# Line 1543  begin Line 1506  begin
1506      end      end
1507      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1508      begin      begin
1509        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;  
1510    
1511        exit;        exit;
1512      end;      end;
# Line 1564  begin Line 1515  begin
1515      begin      begin
1516        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1517        begin        begin
         PlaySound(PWideChar(AlarmLyd));  
         List1msg := 'Pakke findes som pakketype: ' + Pakketype;  
         ListBox1.Items.Insert(0,List1Msg);  
         MainForm.Color := clRed;  
1518    
1519           RuteNummerST.Caption := '';          VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype );
          BoghandlerNavnST.Caption := '';  
1520    
         KommentarST.Caption := List1msg;  
         PakkeshopNulstil.Visible := true;  
         StregKode := '';  
         StregkodeST.Caption := StregKode;  
1521          exit;          exit;
1522        end;        end;
1523      end;      end;
# Line 1625  begin Line 1567  begin
1567              PakkeshopStregkode := Stregkode;              PakkeshopStregkode := Stregkode;
1568              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1569              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1570  // 20150317: start  
1571              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));
1572  // 20150317: slut  
1573             end             end
1574            else            else
1575             begin             begin
1576                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;  
1577             end;             end;
1578            Stregkode := '';            Stregkode := '';
1579            InitScreen();            InitScreen();
# Line 1658  begin Line 1594  begin
1594          else          else
1595           begin           begin
1596                if (PakkeshopLevering1.Checked) then                if (PakkeshopLevering1.Checked) then
1597                  List1msg := 'Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode;                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1598                if (Pakkernormal1.Checked) then                if (Pakkernormal1.Checked) then
1599                  List1msg := 'Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode;                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1600                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  
1601                StregKode := '';                StregKode := '';
1602                StregkodeST.Caption := StregKode;                StregkodeST.Caption := StregKode;
1603  // 20150323: slut  
1604                exit;                exit;
1605           end;           end;
1606          Stregkode := '';          Stregkode := '';
# Line 1749  begin Line 1678  begin
1678            end            end
1679            else if Copy(Kommentar,1,8) = 'OPRETTET' then            else if Copy(Kommentar,1,8) = 'OPRETTET' then
1680            begin            begin
1681              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;  
1682            end            end
1683            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'
1684            begin            begin
# Line 1766  begin Line 1691  begin
1691            end;            end;
1692           if not PakkeshopNulstil.Visible then           if not PakkeshopNulstil.Visible then
1693            begin            begin
1694  // 20150310: start  
 //            SletStregkodelinieFraListboks2(StregKode);  
 // 20150310: slut  
1695              If (Budlevering1.Checked) then              If (Budlevering1.Checked) then
1696              begin              begin
1697                if Storepakker1.Checked then                if Storepakker1.Checked then
# Line 1782  begin Line 1705  begin
1705                InitLillePakke();                InitLillePakke();
1706              end;              end;
1707            end;            end;
1708  // 20150310: start  
1709            SletStregkodelinieFraListboks2(StregKode);            SletStregkodelinieFraListboks2(StregKode);
1710  // 20150310: slut  
1711            PakkeshopStregkode := '';            PakkeshopStregkode := '';
1712            PakkeshopTjekkode := '';            PakkeshopTjekkode := '';
1713            BoghandlerStregkode := '';            BoghandlerStregkode := '';
# Line 2004  begin Line 1927  begin
1927  end;  end;
1928    
1929  procedure TMainForm.InitBladhus();  procedure TMainForm.InitBladhus();
 var  
   LogFilnavn : string;  
1930    
1931  begin  begin
1932    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
# Line 3289  var Line 3210  var
3210    BoghandlerNavn : String;    BoghandlerNavn : String;
3211    Koreliste : String;    Koreliste : String;
3212    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3213    SmsKode : String;    SmsKode : String;
3214    DBKbane : String;    DBKbane : String;
3215    Leveringssted : String;    Leveringssted : String;
# Line 3316  begin Line 3236  begin
3236    else    else
3237    begin    begin
3238      Falsk := False;      Falsk := False;
3239      Sand := True;  
3240      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');
3241      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
3242      SmsKode := '999999';      SmsKode := '999999';
# Line 3336  var Line 3256  var
3256    BoghandlerNavn : String;    BoghandlerNavn : String;
3257    Koreliste : String;    Koreliste : String;
3258    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3259    SmsKode : String;    SmsKode : String;
3260    DBKbane : String;    DBKbane : String;
3261    Leveringssted : String;    Leveringssted : String;
# Line 3345  begin Line 3264  begin
3264    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
3265    BoghandlerNavn := 'Modtagernavn';    BoghandlerNavn := 'Modtagernavn';
3266    Falsk := False;    Falsk := False;
3267    Sand := True;  
3268    
3269    if (Printer.Printers.Count = 0) then    if (Printer.Printers.Count = 0) then
3270    begin    begin
# Line 3903  begin Line 3822  begin
3822    
3823      // Hvorfor virker ovenstående ikke ???      // Hvorfor virker ovenstående ikke ???
3824      S := '';      S := '';
3825      Str(iVer[1],Result);      Str(iVer[1], Result);
3826      S := S+Result+'.';      S := S+Result+'.';
3827      Str(iVer[2],Result);      Str(iVer[2], Result);
3828      S := S+Result+'.';      S := S+Result+'.';
3829      Str(iVer[3],Result);      Str(iVer[3], Result);
3830      S := S+Result+'.';      S := S+Result+'.';
3831      Str(iVer[4],Result);      Str(iVer[4], Result);
3832      S := S+Result+'';      S := S+Result+'';
3833      Result := S;      Result := S;
3834    end;    end;
# Line 4743  var Line 4662  var
4662        antlinIdag := 0;        antlinIdag := 0;
4663        antlinSenere := 0;        antlinSenere := 0;
4664    
       antalFelterFundet := 0;  
4665        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4666            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
4667            if Node.NodeType = ntElement then begin            if Node.NodeType = ntElement then begin
# Line 5013  end; Line 4931  end;
4931  procedure TMainForm.SkrivScanningLogFil(var tekst : string);  procedure TMainForm.SkrivScanningLogFil(var tekst : string);
4932  var  var
4933     SomeTxtFile : TextFile;     SomeTxtFile : TextFile;
    buffer : string;  
    S: string;  
4934     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
4935     imorgenYmd : string;     imorgenYmd : string;
4936     logFilnavn : string;     logFilnavn : string;
# Line 5282  begin Line 5198  begin
5198    result := svar;    result := svar;
5199  end;  end;
5200    
5201  procedure TMainForm.VisAlarmSkaerm(var List1msg: string);  procedure TMainForm.VisAlarmSkaerm(strMessage: string);
5202  begin  begin
5203    //ShowMessage('Ændring ikke tilladt');    //ShowMessage('Ændring ikke tilladt');
5204    // Her skal komme en 'rød skærm' alarm    // Her skal komme en 'rød skærm' alarm
5205    PlaySound(PWideChar(AlarmLyd));    PlaySound(PWideChar(AlarmLyd));
5206    List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
5207    ListBox1.Items.Insert(0, List1Msg);    ListBox1.Items.Insert(0, strMessage);
5208    MainForm.Color := clRed;    MainForm.Color := clRed;
5209    RuteNummerST.Caption := '';    RuteNummerST.Caption := '';
5210    BoghandlerNavnST.Caption := '';    BoghandlerNavnST.Caption := '';
5211    KommentarST.Caption := List1msg;    KommentarST.Caption := strMessage;
5212    PakkeshopNulstil.Visible := true;    PakkeshopNulstil.Visible := true;
5213  end;  end;
5214    
Legend:
Removed from v.2657  
changed lines
  Added in v.2660
  ViewVC Help
Powered by ViewVC 1.1.20