Cita:
Empezado por Neftali
En ese caso tal vez se podría combinar con el State del Dataset para verificar que se está modificando el valor y no cargándolo.
Supongo que habrá diferencia de estado cuando se está navegando a cuando realmente el usuario lo modifica (edita).
|
Concuerdo contigo,
Germán. Pensando en una solución simple, basta con agregar una condición más al If del manejador de evento.
Código Delphi
[-]
procedure TFEdtarPARTESLIN.DBCheckEXTRAClick(Sender: TObject);
begin
if DBCheckEXTRA.Checked And (ConjuntoDeDatos.State In dsEditModes) then
begin
if MessageDlg('Atención !!!!'+#13+#10+''+#13+#10+
'Se asignarán todas las Horas como Horas Extras.'+#13+#10+''+#13+#10+
'¿ Desea continuar ?', mtWarning, [mbYes, mbNo], 0) = mrYes then
CalculaHoras;
end;
end;
Saludos.
Al González.
