/[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 2660 by torben, Sun Aug 23 14:45:16 2015 UTC revision 2664 by torben, Sun Aug 23 16:17:56 2015 UTC
# Line 88  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 183  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 1621  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 1685  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 2415  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 2429  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 3472  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 3703  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 5203  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.2660  
changed lines
  Added in v.2664
  ViewVC Help
Powered by ViewVC 1.1.20