/[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 2663 by torben, Sun Aug 23 16:09:33 2015 UTC
# Line 1621  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 1685  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 2415  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 2429  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 3730  begin Line 3724  begin
3724        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3725        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3726        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
3727        InitLillePakke();     //   InitLillePakke();
3728        IndlesScanningLogFil();     //   IndlesScanningLogFil();
3729        if BladhusSted = 0 then     //   if BladhusSted = 0 then
3730        begin     //   begin
3731          IndlesManglendeScanninger();     //     IndlesManglendeScanninger();
3732        end;     //   end;
3733        IdFTP1.Passive := true;        IdFTP1.Passive := true;
3734        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
3735  end;  end;
# Line 5203  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.2660  
changed lines
  Added in v.2663
  ViewVC Help
Powered by ViewVC 1.1.20