/[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 2662 by torben, Sun Aug 23 15:06:19 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 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 1169  var Line 1168  var
1168    URLStr : String;    URLStr : String;
1169    Pakketype : String;    Pakketype : String;
1170    Pakkescanningtype : String;    Pakkescanningtype : String;
   //List1msg : String;  
1171    
1172  begin  begin
1173    
# Line 1602  begin Line 1600  begin
1600                                    
1601                StregKode := '';                StregKode := '';
1602                StregkodeST.Caption := StregKode;                StregkodeST.Caption := StregKode;
1603    
1604                exit;                exit;
1605           end;           end;
1606          Stregkode := '';          Stregkode := '';
# Line 1622  begin Line 1621  begin
1621            // Hvis der var sql fejl i opdateringen skal dette fejlmeldes her            // Hvis der var sql fejl i opdateringen skal dette fejlmeldes her
1622            if Rutenummer = 'sql fejl' then            if Rutenummer = 'sql fejl' then
1623            begin   // Her skal komme en alarm og rød skærm            begin   // Her skal komme en alarm og rød skærm
1624               PlaySound(PWideChar(AlarmLyd));               VisAlarmSkaerm( 'SQL fejl: ' + Kommentar );
1625               //List1msg := 'SQL fejl: ' + Kommentar;  
              //ListBox1.Items.Insert(0,List1Msg);  
              MainForm.Color := clRed;  
              //KommentarST.Caption := List1msg;  
              PakkeshopNulstil.Visible := true;  
1626              exit;              exit;
1627            end;            end;
1628            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then
# Line 1686  begin Line 1681  begin
1681            end            end
1682            else            else
1683            begin            begin
1684              MainForm.Color := clRed;              VisAlarmSkaerm('');
             PlaySound(PWideChar(AlarmLyd));  
             PakkeshopNulstil.Visible := true;  
1685            end;            end;
1686           if not PakkeshopNulstil.Visible then           if not PakkeshopNulstil.Visible then
1687            begin            begin
# Line 1928  begin Line 1921  begin
1921  end;  end;
1922    
1923  procedure TMainForm.InitBladhus();  procedure TMainForm.InitBladhus();
 var  
   LogFilnavn : string;  
1924    
1925  begin  begin
1926    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
# Line 2418  begin Line 2409  begin
2409                end;                end;
2410              end;              end;
2411        01 :  begin;        01 :  begin;
2412               if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then               if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
2413                    // 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
2414                    // 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')
2415                begin                begin
# Line 2432  begin Line 2423  begin
2423                end;                end;
2424              end;              end;
2425        03 :  begin;        03 :  begin;
2426               if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then               if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
2427                    // 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
2428                    // 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')
2429               begin               begin
# Line 3213  var Line 3204  var
3204    BoghandlerNavn : String;    BoghandlerNavn : String;
3205    Koreliste : String;    Koreliste : String;
3206    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3207    SmsKode : String;    SmsKode : String;
3208    DBKbane : String;    DBKbane : String;
3209    Leveringssted : String;    Leveringssted : String;
# Line 3240  begin Line 3230  begin
3230    else    else
3231    begin    begin
3232      Falsk := False;      Falsk := False;
3233      Sand := True;  
3234      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');
3235      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
3236      SmsKode := '999999';      SmsKode := '999999';
# Line 3260  var Line 3250  var
3250    BoghandlerNavn : String;    BoghandlerNavn : String;
3251    Koreliste : String;    Koreliste : String;
3252    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3253    SmsKode : String;    SmsKode : String;
3254    DBKbane : String;    DBKbane : String;
3255    Leveringssted : String;    Leveringssted : String;
# Line 3269  begin Line 3258  begin
3258    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
3259    BoghandlerNavn := 'Modtagernavn';    BoghandlerNavn := 'Modtagernavn';
3260    Falsk := False;    Falsk := False;
3261    Sand := True;  
3262    
3263    if (Printer.Printers.Count = 0) then    if (Printer.Printers.Count = 0) then
3264    begin    begin
# Line 3827  begin Line 3816  begin
3816    
3817      // Hvorfor virker ovenstående ikke ???      // Hvorfor virker ovenstående ikke ???
3818      S := '';      S := '';
3819      Str(iVer[1],Result);      Str(iVer[1], Result);
3820      S := S+Result+'.';      S := S+Result+'.';
3821      Str(iVer[2],Result);      Str(iVer[2], Result);
3822      S := S+Result+'.';      S := S+Result+'.';
3823      Str(iVer[3],Result);      Str(iVer[3], Result);
3824      S := S+Result+'.';      S := S+Result+'.';
3825      Str(iVer[4],Result);      Str(iVer[4], Result);
3826      S := S+Result+'';      S := S+Result+'';
3827      Result := S;      Result := S;
3828    end;    end;
# Line 4667  var Line 4656  var
4656        antlinIdag := 0;        antlinIdag := 0;
4657        antlinSenere := 0;        antlinSenere := 0;
4658    
       antalFelterFundet := 0;  
4659        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4660            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
4661            if Node.NodeType = ntElement then begin            if Node.NodeType = ntElement then begin
# Line 4937  end; Line 4925  end;
4925  procedure TMainForm.SkrivScanningLogFil(var tekst : string);  procedure TMainForm.SkrivScanningLogFil(var tekst : string);
4926  var  var
4927     SomeTxtFile : TextFile;     SomeTxtFile : TextFile;
    buffer : string;  
    S: string;  
4928     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
4929     imorgenYmd : string;     imorgenYmd : string;
4930     logFilnavn : string;     logFilnavn : string;
# Line 5211  begin Line 5197  begin
5197    //ShowMessage('Ændring ikke tilladt');    //ShowMessage('Ændring ikke tilladt');
5198    // Her skal komme en 'rød skærm' alarm    // Her skal komme en 'rød skærm' alarm
5199    PlaySound(PWideChar(AlarmLyd));    PlaySound(PWideChar(AlarmLyd));
   
   ListBox1.Items.Insert(0, strMessage);  
5200    MainForm.Color := clRed;    MainForm.Color := clRed;
5201    
5202    
5203    RuteNummerST.Caption := '';    RuteNummerST.Caption := '';
5204    BoghandlerNavnST.Caption := '';    BoghandlerNavnST.Caption := '';
   KommentarST.Caption := strMessage;  
5205    PakkeshopNulstil.Visible := true;    PakkeshopNulstil.Visible := true;
5206    
5207      if (strMessage <> '') then
5208      begin
5209        ListBox1.Items.Insert(0, strMessage);
5210        KommentarST.Caption := strMessage;
5211      end;
5212    
5213  end;  end;
5214    
5215  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
Legend:
Removed from v.2659  
changed lines
  Added in v.2662
  ViewVC Help
Powered by ViewVC 1.1.20