detener actualizacion o cancelar el post

[Leonardo]

Gracias roman eso era justo lo que necesitaba

[FelipeDiaz]

Tenia esta misma Duda, y lo implemento asi como esta descrito... pero, cuando se ejecuta el Dataset.cancel;

Me manda una excepcion, diciendo que el dataset,no esta en modo insercion o Edicion.

Estare haciendo algo mal?

Todo se esta operando desde el DB NAvigator.


Saudos.

[jhonny]

Empezado por FelipeDiaz

Tenia esta misma Duda, y lo implemento asi como esta descrito... pero, cuando se ejecuta el Dataset.cancel;

Me manda una excepcion, diciendo que el dataset,no esta en modo insercion o Edicion.

Estare haciendo algo mal?

Todo se esta operando desde el DB NAvigator.

Seguramente lo estas haciendo en el AfterPost del DataSet, cuando deberia ser en el BeforePost

[FelipeDiaz]

Nooo, Lo estoy haciendo en el BeforePost, estaba seguro pero igual revisé y si es alli.

[jhonny]

Empezado por FelipeDiaz

Nooo, Lo estoy haciendo en el BeforePost, estaba seguro pero igual revisé y si es alli.

Entonces agregale lo siguiente para verificar que al momento de hacer el Cancel, el Dataset este en modo Edit o Insert y nos contas como te va:

Código Delphi [-]
const
  Flags = MB_ICONQUESTION or MB_YESNO;
begin
  if Application.MessageBox('¿Desea guardar los cambios?', 'Confirmar', Flags) = idNo then
  begin
    if (DataSet.State in [dsEdit, dsInsert]) then
    begin
      DataSet.Cancel;
      abort;
    end;
  end;
end;

[FelipeDiaz]

Que pena Jhonny,

Resulta que al principio lo habia hecho asi y ya había probado la alternativa que me dabas, pero se me hizo igual haber utilizado la instrucción EXIT; en lugar de Abort;

Ese era el detalle, Que pena... Tenias razon!!.

Muchas Gracias!!

[jhonny]

Bueno, pues que bien que ya funciona el asunto .

P.D: roman ¿donde estasss? .

[FelipeDiaz]

Hola Jhonny.

Nuevamente vuelvo con este problema.

Mira antes yo no tenia que preguntarle al usuario si el queria cancelar o no, dentro del evento BeforePost. y me funcionó.

Ahora llegue a una parte donde si debo preguntarle en el BeforeDelete, y resulta que al colocar la intruccion:

Código Delphi [-]
 If Application.MessageBox('Desea eliminar la tabla de comisiones actual', 'Confirmar', Flags) = idNo then

o esta otra :

Código Delphi [-]
If MessageDlg('Desea eliminar la tabla de comisiones actual',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then

Resulta que el compilador no reconoce ni "Application" ni "mrYes" y me aseguré de tener la unidad Dialogs en la declaracion USES.

Ando en una plicación que la quiero hacer bien robusta, y cada dos dias es un error que me para el trabajo. y eso que al principio me leí La Cara Oculta de Delphi, pero cuando llega el momento de programar, no recuerdo haber visto sobre el tema.

Bueno, volvi a este hilo porque recorde que en la solucion que planteaste le preguntabas al usuario.... me disculpas no habia visto el P.D. Yo me encuentro en Bucaramanga.

Saludos y nuevamente gracias.


Felipe Diaz