[edgarCruz95]

Tengo problemas con el case, al momento de ejecutarlo y querer registrarlo lo primero que me manda es que si deseo actualizar el registro, cuando nisiquiera esta registrado, alguien prodria ayudarme? de antemano muchas gracias

Código Delphi [-]
var Error: Integer;
begin
     error := 0;
 
   if Sa_salas.Text = '' then Error := 1 else
     if Sa_status.Text = '' then Error := 2;
 
         Case Error of
          0:begin
 
                if BD.QG1.Eof then
                begin
                // Es una sala Nuevo
                GuardaSala('NUEVO');
                MessageDlg('Los Datos de la sala se guardaron', mtinformation, [mbOk], 0);
                end
                else
                 begin
                   // Quiere Actualizar la sala
 
                   if MessageDlg('Ya exíste esa sala ''' + Sa_salas.Text + '''' + #13 + '¿Deseas Actualizar sus datos?',mtconfirmation,[mbyes, mbno],0) = mryes then
                   begin
                   Sa_sal := Sa_salas.Text;
                   GuardaSala('ACTUALIZA');
                   MessageDlg('Se Actualizaron los Datos de la sala', mtinformation, [mbOk], 0);
                   end;
 
                 end;
                SpeedButton3Click(Sender);
             end;
 
 
          1: begin
                  MessageDlg('Teclee la sala',mtError,[mbok],0);
                  Sa_salas.SetFocus
          end;
          2: begin
                  MessageDlg('Seleccione el status',mtError,[mbok],0);
                  Sa_Status.SetFocus
          end;
 
      End;
end;