Cannot perform this operation on a ON A CLOSED DATASET

[[enecumene]]

Código Delphi [-]
 procedure TFFacturacionDirecta.actBusqEvenExecute(Sender: TObject);
begin
Application.CreateForm(TFRBusquedaEventos,FRBusquedaEventos);
if FRBusquedaEventos.ShowModal = mrOk then
   begin
      ADODSFact.Open;
      ADODSFact.Edit;
      ADODSFactNUM_EVENTO.Value:=FRBusquedaEventos.intEvento;
   end;
FRBusquedaEventos.Free;
end;

Yun-i, publica el error que te sale no el codigo, asi te ayudamos mejor.

saludos.

[[maeyanes]]

Y por favor, usa las etiquetas [ delphi ] [ /delphi ] (sin los espacios en blanco) cuando publiques código en Delphi...


Saludos...

[Yun-i]

Ok perdon no saba eso gracas soy nuevo nunka habia pegado codigo pero gracias

encuanto al error sigue marcando lo mismo aun agregando lo que me dicen :/

[[Caral]]

Hola
Me lo explican?, por que esto:

Código Delphi [-]
try
ADODSFact.Append;
ADODSFact.Post;
ADODSFact.Edit
except

Nunca lo he visto.
Saludos

[Yun-i]

Empezado por Caral

Hola
Me lo explican?, por que esto:

Código Delphi [-]
try
ADODSFact.Append;
ADODSFact.Post;
ADODSFact.Edit
except



Saludos

Yo tampoco se que es el codigo no lo hice yo pero seria bueno que alguien pudirea explikarnos
saludos

[[Lepe]]

Quizás en el evento OnNewRecord se asigne el número de factura, como sabemos ese número debe ser correlativo sin huecos en la numeración. Si el programa está en red, dos usuarios pueden pulsar el botón de "Insertar nuevo registro" y tener el mismo número de factura.

En Paradox y otras hierbas, se suele agregar un registro en blanco (que provoca el evento OnNewRecord entre otros) y acto seguido se graba para que nadie más en la red pueda tomar ese número de factura.

(Obviamente no tiene que ser por motivo de factura, pero si es la filosofía).

Después se deja en Edición para que el usuario no note nada raro y pueda seguir introduciendo los demás datos del registro.

Saludos

[[Lepe]]

En cuanto al error original del hilo:

Código Delphi [-]
 procedure TFFacturacionDirecta.actBusqEvenExecute(Sender: TObject);
begin
Application.CreateForm(TFRBusquedaEventos,FRBusquedaEventos);
if FRBusquedaEventos.ShowModal = mrOk then
   begin
      if not ADODSFact.Active then
         ADODSFact.Open;
      ADODSFact.Edit;
      ADODSFactNUM_EVENTO.Value:=FRBusquedaEventos.intEvento;

// No haces el Post de la modificación ???


   end;
FRBusquedaEventos.Free;
end;

El error lo dice claramente: No se puede realizar la operación en un Dataset Cerrado. Está claro que al ejecutar la acción "actBusqEvenExecute" en alguna ocasión, el adodsFact no está abierto. Deberías encontrar esa situación para manejarla mejor. Yo solo he parcheado el asunto, pero sabe dios que registro editará, lo más normal es que edite el que no necesitas.

Saludos