/[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 2659 by torben, Sun Aug 23 14:27:39 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 535  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 1169  var Line 1170  var
1170    URLStr : String;    URLStr : String;
1171    Pakketype : String;    Pakketype : String;
1172    Pakkescanningtype : String;    Pakkescanningtype : String;
   //List1msg : String;  
1173    
1174  begin  begin
1175    
# Line 1602  begin Line 1602  begin
1602                                    
1603                StregKode := '';                StregKode := '';
1604                StregkodeST.Caption := StregKode;                StregkodeST.Caption := StregKode;
1605    
1606                exit;                exit;
1607           end;           end;
1608          Stregkode := '';          Stregkode := '';
# Line 1622  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 1686  begin Line 1683  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
# Line 1928  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 2418  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 2432  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 3213  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 3240  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 3260  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 3269  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 3477  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 3708  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 3827  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 4667  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 4937  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 5211  begin Line 5207  begin
5207    //ShowMessage('Ændring ikke tilladt');    //ShowMessage('Ændring ikke tilladt');
5208    // Her skal komme en 'rød skærm' alarm    // Her skal komme en 'rød skærm' alarm
5209    PlaySound(PWideChar(AlarmLyd));    PlaySound(PWideChar(AlarmLyd));
   
   ListBox1.Items.Insert(0, strMessage);  
5210    MainForm.Color := clRed;    MainForm.Color := clRed;
5211    
5212    
5213    RuteNummerST.Caption := '';    RuteNummerST.Caption := '';
5214    BoghandlerNavnST.Caption := '';    BoghandlerNavnST.Caption := '';
   KommentarST.Caption := strMessage;  
5215    PakkeshopNulstil.Visible := true;    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;  end;
5224    
5225  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
Legend:
Removed from v.2659  
changed lines
  Added in v.2664
  ViewVC Help
Powered by ViewVC 1.1.20