/[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 3096 by torben, Sun Aug 21 21:56:01 2016 UTC revision 3108 by torben, Mon Aug 29 14:03:14 2016 UTC
# Line 1436  begin Line 1436  begin
1436      begin      begin
1437        URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]);        URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]);
1438        WebSvar := IdHTTP1.Get(URLStr);        WebSvar := IdHTTP1.Get(URLStr);
       ShowMessage( WebSvar );  
1439    
1440        chkEmballageRepareret.Checked := False;        chkEmballageRepareret.Checked := False;
1441      end;      end;
1442    
1443        if (chkUdenforSpecifikation.Checked = True) then
1444        begin
1445          URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]);
1446          //InputBox( '1', '1', URLStr);
1447    
1448          WebSvar := IdHTTP1.Get(URLStr);
1449          //InputBox( '2', '2', WebSvar );
1450    
1451          chkUdenforSpecifikation.Checked := False;
1452          LabelPrint.PrintLabel(Stregkode);
1453    
1454          StregkodeST.Caption := '';
1455          Stregkode := '';
1456    
1457          RuteNummerST.Caption := '';
1458          BoghandlerNavnST.Caption := '';
1459          KommentarST.Caption := 'Retur til leverandør';
1460    
1461    
1462    
1463    
1464          exit;   //leave procedure
1465        end;
1466    
1467    
1468    
1469    
1470      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 2210  pakkeForkertSted : Integer; Line 2234  pakkeForkertSted : Integer;
2234    kontrolKoreliste : string;    kontrolKoreliste : string;
2235    nytRuteNummer, nyFarve : String;    nytRuteNummer, nyFarve : String;
2236  begin  begin
2237      if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then
2238      begin
2239        LabelPrint.PrintLabel( Stregkode );
2240      end;
2241    
2242    
2243      exit;
2244    
2245    if menuDaoDirekte1.Checked then    if menuDaoDirekte1.Checked then
2246       RuteNummerST.Color := TUtils.HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
2247    
# Line 2274  begin Line 2306  begin
2306            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2307            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2308    
2309            if (Config.PrinterNavn = 'Ingen') then  //          if (Config.PrinterNavn = 'Ingen') then
2310            begin  //          begin
2311               PrintNyLabel := false;  //             PrintNyLabel := false;
2312            end;  //          end;
2313    
2314            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
2315            begin            begin
# Line 2395  begin Line 2427  begin
2427        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
2428    
2429        LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;        LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;
2430          
2431      end;      end;
2432    end;    end;
2433    
# Line 2826  begin Line 2858  begin
2858      SmsKode := '999999';      SmsKode := '999999';
2859      DBKbane := '999';      DBKbane := '999';
2860      Leveringssted := 'XXX';      Leveringssted := 'XXX';
2861    
2862    
2863      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2864      FocusControl(StregkodeST);      FocusControl(StregkodeST);
2865    end;    end;
# Line 2843  var Line 2877  var
2877    SmsKode : String;    SmsKode : String;
2878    DBKbane : String;    DBKbane : String;
2879    Leveringssted : String;    Leveringssted : String;
2880      LabelData : TLabelData;
2881  begin  begin
2882    RuteNummer := 'Rutenr';    RuteNummer := 'Rutenr';
2883    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
# Line 2854  begin Line 2889  begin
2889    begin    begin
2890      ShowMessage('Der er ikke installeret en printer på denne PC.');      ShowMessage('Der er ikke installeret en printer på denne PC.');
2891    end    end
2892    else if Config.PrinterNavn = 'Ingen' then  //  else if Config.PrinterNavn = 'Ingen' then //Det giver ikke længere mening at kunne fravælge printer
2893    begin  //  begin
2894      ShowMessage('Der er fravalgt printer i dette program.');  //    ShowMessage('Der er fravalgt printer i dette program.');
2895    end  //  end
2896    else    else
2897    begin    begin
2898      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
2899      SmsKode := '999999';  //    SmsKode := '999999';
2900      DBKbane := '999';  //    DBKbane := '999';
2901      Leveringssted := 'XXX';  //    Leveringssted := 'XXX';
2902      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);  //    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2903    
2904    
2905        LabelData := TLabelData.Create(nil);
2906        LabelData.LabelType := 'simpel';
2907        LabelData.SimpelLinie1 := '999999';
2908        LabelData.SimpelLinie2 := '999';
2909        LabelData.SimpelLinie3 := 'xxx';
2910        LabelPrint.PrintLabelData(Labeldata);
2911    
2912      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
2913    
2914        LabelData.Free();
2915    
2916    end;    end;
2917    FocusControl(StregkodeST);    FocusControl(StregkodeST);
2918  end;  end;
Legend:
Removed from v.3096  
changed lines
  Added in v.3108
  ViewVC Help
Powered by ViewVC 1.1.20