/[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 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 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 1928  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 3213  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 3240  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 3260  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 3269  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 3827  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 4667  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 4937  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;
Legend:
Removed from v.2659  
changed lines
  Added in v.2660
  ViewVC Help
Powered by ViewVC 1.1.20