/[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 2664 by torben, Sun Aug 23 16:17:56 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 86  type Line 88  type
88      PanelManglendePakker4: TPanel;      PanelManglendePakker4: TPanel;
89      PanelManglendePakker5: TPanel;      PanelManglendePakker5: TPanel;
90      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
91        menuIndlevering: TMenuItem;
92    
93    
94    function Explode(var a: TStrArray; Border, S: string): Integer;    function Explode(var a: TStrArray; Border, S: string): Integer;
# Line 181  type Line 184  type
184    procedure TjekkerUrls();    procedure TjekkerUrls();
185  // 20150310: start  // 20150310: start
186    procedure RoundCornerOf(Control: TWinControl);    procedure RoundCornerOf(Control: TWinControl);
187        procedure menuIndleveringClick(Sender: TObject);
188    
189    
190  // 20150310: slut  // 20150310: slut
# Line 258  type Line 262  type
262      procedure IndlesScanningLogFil();      procedure IndlesScanningLogFil();
263      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
264      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
265        procedure VisAlarmSkaerm(strMessage: string);
266    
267    public    public
268      { Public declarations }      { Public declarations }
# Line 534  const Line 539  const
539    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
540  var  var
541    printerInd : integer;    printerInd : integer;
   i : Integer;  
 // 20150310: start  
542    gemScanningtype : String;    gemScanningtype : String;
 // 20150310: slut  
543    
544  begin  begin
545    // Initierer nogle variabler    // Initierer nogle variabler
# Line 1152  var Line 1154  var
1154    BoghandlerNavn : String;    BoghandlerNavn : String;
1155    Koreliste : String;    Koreliste : String;
1156    PrintNyLabel : Boolean;    PrintNyLabel : Boolean;
   List1msg : String;  
1157    pakkeErScannet : Integer;    pakkeErScannet : Integer;
1158    pakkeForkertSted : Integer;    pakkeForkertSted : Integer;
1159    tjekkodeMangler : Integer;    tjekkodeMangler : Integer;
# Line 1208  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 1227  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 1246  begin Line 1235  begin
1235         end         end
1236         else         else
1237         begin         begin
1238          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1239         end;         end;
1240         Stregkode := '';         Stregkode := '';
1241         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1270  begin Line 1250  begin
1250         end         end
1251         else         else
1252         begin         begin
1253          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1254         end;         end;
1255         Stregkode := '';         Stregkode := '';
1256         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1302  begin Line 1272  begin
1272         end         end
1273         else         else
1274         begin         begin
1275          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1276         end;         end;
1277         Stregkode := '';         Stregkode := '';
1278         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1333  begin Line 1294  begin
1294        end        end
1295        else        else
1296        begin        begin
1297          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1298        end;        end;
1299        Stregkode := '';        Stregkode := '';
1300        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1357  begin Line 1309  begin
1309         end         end
1310         else         else
1311         begin         begin
1312          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
         // 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;  
1313         end;         end;
1314         Stregkode := '';         Stregkode := '';
1315         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1382  begin Line 1325  begin
1325         end         end
1326         else         else
1327         begin         begin
1328          //ShowMessage('Ændring ikke tilladt');          VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
         // 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;  
1329         end;         end;
1330         Stregkode := '';         Stregkode := '';
1331         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1408  begin Line 1340  begin
1340         end         end
1341         else         else
1342         begin         begin
1343          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1344         end;         end;
1345         Stregkode := '';         Stregkode := '';
1346         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1434  begin Line 1355  begin
1355         end         end
1356         else         else
1357         begin         begin
1358          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1359         end;         end;
1360         Stregkode := '';         Stregkode := '';
1361         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1460  begin Line 1370  begin
1370         end         end
1371         else         else
1372         begin         begin
1373          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1374         end;         end;
1375         Stregkode := '';         Stregkode := '';
1376         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1486  begin Line 1385  begin
1385         end         end
1386         else         else
1387         begin         begin
1388          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1389         end;         end;
1390         Stregkode := '';         Stregkode := '';
1391         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1512  begin Line 1400  begin
1400         end         end
1401         else         else
1402         begin         begin
1403          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1404         end;         end;
1405         Stregkode := '';         Stregkode := '';
1406         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1584  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         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;  
1465    
1466         exit;         exit;
1467      end;      end;
# Line 1633  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 1654  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 1675  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 1736  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 1769  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;
1605  // 20150323: slut  
1606                exit;                exit;
1607           end;           end;
1608          Stregkode := '';          Stregkode := '';
# Line 1803  begin Line 1623  begin
1623            // Hvis der var sql fejl i opdateringen skal dette fejlmeldes her            // Hvis der var sql fejl i opdateringen skal dette fejlmeldes her
1624            if Rutenummer = 'sql fejl' then            if Rutenummer = 'sql fejl' then
1625            begin   // Her skal komme en alarm og rød skærm            begin   // Her skal komme en alarm og rød skærm
1626               PlaySound(PWideChar(AlarmLyd));               VisAlarmSkaerm( 'SQL fejl: ' + Kommentar );
1627               //List1msg := 'SQL fejl: ' + Kommentar;  
              //ListBox1.Items.Insert(0,List1Msg);  
              MainForm.Color := clRed;  
              //KommentarST.Caption := List1msg;  
              PakkeshopNulstil.Visible := true;  
1628              exit;              exit;
1629            end;            end;
1630            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then
# Line 1860  begin Line 1676  begin
1676            end            end
1677            else if Copy(Kommentar,1,8) = 'OPRETTET' then            else if Copy(Kommentar,1,8) = 'OPRETTET' then
1678            begin            begin
1679              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;  
1680            end            end
1681            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'
1682            begin            begin
1683            end            end
1684            else            else
1685            begin            begin
1686              MainForm.Color := clRed;              VisAlarmSkaerm('');
             PlaySound(PWideChar(AlarmLyd));  
             PakkeshopNulstil.Visible := true;  
1687            end;            end;
1688           if not PakkeshopNulstil.Visible then           if not PakkeshopNulstil.Visible then
1689            begin            begin
1690  // 20150310: start  
 //            SletStregkodelinieFraListboks2(StregKode);  
 // 20150310: slut  
1691              If (Budlevering1.Checked) then              If (Budlevering1.Checked) then
1692              begin              begin
1693                if Storepakker1.Checked then                if Storepakker1.Checked then
# Line 1893  begin Line 1701  begin
1701                InitLillePakke();                InitLillePakke();
1702              end;              end;
1703            end;            end;
1704  // 20150310: start  
1705            SletStregkodelinieFraListboks2(StregKode);            SletStregkodelinieFraListboks2(StregKode);
1706  // 20150310: slut  
1707            PakkeshopStregkode := '';            PakkeshopStregkode := '';
1708            PakkeshopTjekkode := '';            PakkeshopTjekkode := '';
1709            BoghandlerStregkode := '';            BoghandlerStregkode := '';
# Line 2115  begin Line 1923  begin
1923  end;  end;
1924    
1925  procedure TMainForm.InitBladhus();  procedure TMainForm.InitBladhus();
 var  
   LogFilnavn : string;  
1926    
1927  begin  begin
1928    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
# Line 2605  begin Line 2411  begin
2411                end;                end;
2412              end;              end;
2413        01 :  begin;        01 :  begin;
2414               if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then               if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
2415                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
2416                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
2417                begin                begin
# Line 2619  begin Line 2425  begin
2425                end;                end;
2426              end;              end;
2427        03 :  begin;        03 :  begin;
2428               if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then               if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
2429                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
2430                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
2431               begin               begin
# Line 3400  var Line 3206  var
3206    BoghandlerNavn : String;    BoghandlerNavn : String;
3207    Koreliste : String;    Koreliste : String;
3208    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3209    SmsKode : String;    SmsKode : String;
3210    DBKbane : String;    DBKbane : String;
3211    Leveringssted : String;    Leveringssted : String;
# Line 3427  begin Line 3232  begin
3232    else    else
3233    begin    begin
3234      Falsk := False;      Falsk := False;
3235      Sand := True;  
3236      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');
3237      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
3238      SmsKode := '999999';      SmsKode := '999999';
# Line 3447  var Line 3252  var
3252    BoghandlerNavn : String;    BoghandlerNavn : String;
3253    Koreliste : String;    Koreliste : String;
3254    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3255    SmsKode : String;    SmsKode : String;
3256    DBKbane : String;    DBKbane : String;
3257    Leveringssted : String;    Leveringssted : String;
# Line 3456  begin Line 3260  begin
3260    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
3261    BoghandlerNavn := 'Modtagernavn';    BoghandlerNavn := 'Modtagernavn';
3262    Falsk := False;    Falsk := False;
3263    Sand := True;  
3264    
3265    if (Printer.Printers.Count = 0) then    if (Printer.Printers.Count = 0) then
3266    begin    begin
# Line 3664  begin Line 3468  begin
3468    end;    end;
3469  end;  end;
3470    
3471    procedure TMainForm.menuIndleveringClick(Sender: TObject);
3472    begin
3473      Scanningtype := '7';
3474      NulstilAutomatiskValg();
3475      InitIndleveringskode();
3476    end;
3477    
3478  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);
3479  begin  begin
3480    
# Line 3895  end; Line 3706  end;
3706    
3707  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3708  begin  begin
3709          menuIndlevering.Checked := true;
3710        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3711        Returpakkerfrapakkeshop1.Checked := true;  
3712        PakkeshopNulstil.Visible := false;        PakkeshopNulstil.Visible := false;
3713        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
3714        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
# Line 4014  begin Line 3826  begin
3826    
3827      // Hvorfor virker ovenstående ikke ???      // Hvorfor virker ovenstående ikke ???
3828      S := '';      S := '';
3829      Str(iVer[1],Result);      Str(iVer[1], Result);
3830      S := S+Result+'.';      S := S+Result+'.';
3831      Str(iVer[2],Result);      Str(iVer[2], Result);
3832      S := S+Result+'.';      S := S+Result+'.';
3833      Str(iVer[3],Result);      Str(iVer[3], Result);
3834      S := S+Result+'.';      S := S+Result+'.';
3835      Str(iVer[4],Result);      Str(iVer[4], Result);
3836      S := S+Result+'';      S := S+Result+'';
3837      Result := S;      Result := S;
3838    end;    end;
# Line 4854  var Line 4666  var
4666        antlinIdag := 0;        antlinIdag := 0;
4667        antlinSenere := 0;        antlinSenere := 0;
4668    
       antalFelterFundet := 0;  
4669        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4670            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
4671            if Node.NodeType = ntElement then begin            if Node.NodeType = ntElement then begin
# Line 5124  end; Line 4935  end;
4935  procedure TMainForm.SkrivScanningLogFil(var tekst : string);  procedure TMainForm.SkrivScanningLogFil(var tekst : string);
4936  var  var
4937     SomeTxtFile : TextFile;     SomeTxtFile : TextFile;
    buffer : string;  
    S: string;  
4938     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
4939     imorgenYmd : string;     imorgenYmd : string;
4940     logFilnavn : string;     logFilnavn : string;
# Line 5393  begin Line 5202  begin
5202    result := svar;    result := svar;
5203  end;  end;
5204    
5205    procedure TMainForm.VisAlarmSkaerm(strMessage: string);
5206    begin
5207      //ShowMessage('Ændring ikke tilladt');
5208      // Her skal komme en 'rød skærm' alarm
5209      PlaySound(PWideChar(AlarmLyd));
5210      MainForm.Color := clRed;
5211    
5212    
5213      RuteNummerST.Caption := '';
5214      BoghandlerNavnST.Caption := '';
5215      PakkeshopNulstil.Visible := true;
5216    
5217      if (strMessage <> '') then
5218      begin
5219        ListBox1.Items.Insert(0, strMessage);
5220        KommentarST.Caption := strMessage;
5221      end;
5222    
5223    end;
5224    
5225  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
5226  var  var
5227     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
Legend:
Removed from v.2656  
changed lines
  Added in v.2664
  ViewVC Help
Powered by ViewVC 1.1.20