/[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 2661 by torben, Sun Aug 23 14:56:48 2015 UTC revision 2662 by torben, Sun Aug 23 15:06:19 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 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.2661  
changed lines
  Added in v.2662
  ViewVC Help
Powered by ViewVC 1.1.20