/[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 3092 by torben, Fri Aug 19 12:23:37 2016 UTC revision 3117 by torben, Thu Sep 22 13:12:23 2016 UTC
# Line 20  uses Line 20  uses
20    IdExplicitTLSClientServerBase, IdFTP, IdException,    IdExplicitTLSClientServerBase, IdFTP, IdException,
21    ShellApi, ClipBrd, Buttons, wininet,    ShellApi, ClipBrd, Buttons, wininet,
22    UITypes,    UITypes,
23    PakkeshopLabels,    LabelData,
24    Utils,    Utils,
25    ParentForm,    ParentForm,
26    LabelPrint,    LabelPrint,
# Line 202  type Line 202  type
202    procedure LogMessage( msg : string);    procedure LogMessage( msg : string);
203    procedure SetPrinterstatusText( txt: string; alert: boolean);    procedure SetPrinterstatusText( txt: string; alert: boolean);
204    function GetFormObject() : TForm;    function GetFormObject() : TForm;
205      function GetXMLDocument() : TXMLDocument;
206        procedure chkEmballageRepareretClick(Sender: TObject);
207        procedure chkUdenforSpecifikationClick(Sender: TObject);
208    
209    
210    
# Line 538  begin Line 541  begin
541    
542  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
543    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
544    MainForm.ClientHeight := 820;    MainForm.ClientHeight := 920;
545    
546    Config := TConfiguration.Create();    Config := TConfiguration.Create();
547    Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref    Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref
# Line 1429  begin Line 1432  begin
1432        end;        end;
1433      end;      end;
1434    
1435        // EmballageRepareret skal bare sætte reklamationkoden,
1436        // og så ellers fortsætte med scanning som normalt
1437        if (chkEmballageRepareret.Checked = True) then
1438        begin
1439          URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]);
1440          WebSvar := IdHTTP1.Get(URLStr);
1441    
1442          chkEmballageRepareret.Checked := False;
1443        end;
1444    
1445        if (chkUdenforSpecifikation.Checked = True) then
1446        begin
1447          URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]);
1448          //InputBox( '1', '1', URLStr);
1449    
1450          WebSvar := IdHTTP1.Get(URLStr);
1451          //InputBox( '2', '2', WebSvar );
1452    
1453          chkUdenforSpecifikation.Checked := False;
1454          LabelPrint.PrintLabel(Stregkode);
1455    
1456          StregkodeST.Caption := '';
1457          Stregkode := '';
1458    
1459          RuteNummerST.Caption := '';
1460          BoghandlerNavnST.Caption := '';
1461          KommentarST.Caption := 'Retur til leverandør';
1462    
1463    
1464    
1465    
1466          exit;   //leave procedure
1467        end;
1468    
1469    
1470    
1471    
1472      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
# Line 1932  var Line 1970  var
1970    pakkestorrelse : String;    pakkestorrelse : String;
1971    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
1972    
1973    PakkeshopLabel: TPakkeshopLabel;    PakkeshopLabel: TLabelData;
1974  begin  begin
1975    if radioStorPakke.Checked then    if radioStorPakke.Checked then
1976    begin    begin
# Line 2041  begin Line 2079  begin
2079       if (Kommentar = 'Ok') then       if (Kommentar = 'Ok') then
2080       begin       begin
2081         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
2082         PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc         PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc
2083         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
2084         Stregkode := PakkeshopLabel.Stregkode;         Stregkode := PakkeshopLabel.Stregkode;
2085    
# Line 2090  begin Line 2128  begin
2128      begin      begin
2129        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2130        begin        begin
2131            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;            Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2132            //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel            //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
2133        end;        end;
2134      end      end
2135      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2136      begin      begin
2137        Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;        Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2138        //PrintNyLabel := False;  //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel        //PrintNyLabel := False;  //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
2139      end;      end;
2140    except on e:exception do    except on e:exception do
# Line 2198  pakkeForkertSted : Integer; Line 2236  pakkeForkertSted : Integer;
2236    kontrolKoreliste : string;    kontrolKoreliste : string;
2237    nytRuteNummer, nyFarve : String;    nytRuteNummer, nyFarve : String;
2238  begin  begin
2239      if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then
2240      begin
2241        LabelPrint.PrintLabel( Stregkode );
2242      end;
2243    
2244    
2245      exit;
2246    
2247    if menuDaoDirekte1.Checked then    if menuDaoDirekte1.Checked then
2248       RuteNummerST.Color := TUtils.HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
2249    
# Line 2262  begin Line 2308  begin
2308            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2309            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2310    
2311            if (Config.PrinterNavn = 'Ingen') then  //          if (Config.PrinterNavn = 'Ingen') then
2312            begin  //          begin
2313               PrintNyLabel := false;  //             PrintNyLabel := false;
2314            end;  //          end;
2315    
2316            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm
2317            begin            begin
# Line 2383  begin Line 2429  begin
2429        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
2430    
2431        LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;        LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;
2432          
2433      end;      end;
2434    end;    end;
2435    
# Line 2417  begin Line 2463  begin
2463  end;  end;
2464    
2465    
2466    procedure TMainForm.chkUdenforSpecifikationClick(Sender: TObject);
2467    begin
2468      if (chkUdenforSpecifikation.Checked = true) then
2469      begin
2470        chkEmballageRepareret.Checked := false;
2471      end;
2472    end;
2473    
2474    procedure TMainForm.chkEmballageRepareretClick(Sender: TObject);
2475    begin
2476      if (chkEmballageRepareret.Checked = true) then
2477      begin
2478        chkUdenforSpecifikation.Checked := false;
2479      end;
2480    end;
2481    
2482  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
2483  begin  begin
2484    if chkAltidPrintLabel.Checked then    if chkAltidPrintLabel.Checked then
# Line 2430  begin Line 2492  begin
2492    
2493  end;  end;
2494    
2495    
2496    
2497  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
2498  begin  begin
2499    if chkScanTjekkode.Checked then    if chkScanTjekkode.Checked then
# Line 2814  begin Line 2878  begin
2878      SmsKode := '999999';      SmsKode := '999999';
2879      DBKbane := '999';      DBKbane := '999';
2880      Leveringssted := 'XXX';      Leveringssted := 'XXX';
2881    
2882    
2883      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2884      FocusControl(StregkodeST);      FocusControl(StregkodeST);
2885    end;    end;
# Line 2831  var Line 2897  var
2897    SmsKode : String;    SmsKode : String;
2898    DBKbane : String;    DBKbane : String;
2899    Leveringssted : String;    Leveringssted : String;
2900      LabelData : TLabelData;
2901  begin  begin
2902    RuteNummer := 'Rutenr';    RuteNummer := 'Rutenr';
2903    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
# Line 2842  begin Line 2909  begin
2909    begin    begin
2910      ShowMessage('Der er ikke installeret en printer på denne PC.');      ShowMessage('Der er ikke installeret en printer på denne PC.');
2911    end    end
2912    else if Config.PrinterNavn = 'Ingen' then  //  else if Config.PrinterNavn = 'Ingen' then //Det giver ikke længere mening at kunne fravælge printer
2913    begin  //  begin
2914      ShowMessage('Der er fravalgt printer i dette program.');  //    ShowMessage('Der er fravalgt printer i dette program.');
2915    end  //  end
2916    else    else
2917    begin    begin
2918      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
2919      SmsKode := '999999';  //    SmsKode := '999999';
2920      DBKbane := '999';  //    DBKbane := '999';
2921      Leveringssted := 'XXX';  //    Leveringssted := 'XXX';
2922      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);  //    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2923    
2924    
2925        LabelData := TLabelData.Create(nil);
2926        LabelData.LabelType := 'simpel';
2927        LabelData.SimpelLinie1 := '999999';
2928        LabelData.SimpelLinie2 := '999';
2929        LabelData.SimpelLinie3 := 'xxx';
2930        LabelPrint.PrintLabelData(Labeldata);
2931    
2932      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
2933    
2934        LabelData.Free();
2935    
2936    end;    end;
2937    FocusControl(StregkodeST);    FocusControl(StregkodeST);
2938  end;  end;
# Line 4857  begin Line 4936  begin
4936    Result := self;    Result := self;
4937  end;  end;
4938    
4939    //Nedarvet fra IParentForm
4940    function TMainForm.GetXMLDocument() : TXMLDocument;
4941    begin
4942      Result := XMLDocument1
4943    end;
4944    
4945    
4946  end.  end.
4947    
Legend:
Removed from v.3092  
changed lines
  Added in v.3117
  ViewVC Help
Powered by ViewVC 1.1.20