Problemas con ClientDataSet

[ecfisa]

Hola Diana Carolina.

El código de creación y liberación de ventanas de tu post #3, no debería generar el error de Access violation.

Cuando en el evento OnClose de FrmClientes asignas Action:= caFree, Delphi no llama a Free sino a Release quien hace un PostMessage con el mensaje CM_RELEASE. PostMessage pone el mensaje en la cola de mensajes asociado al hilo que creo la ventana y retorna sin esperar a que se procese el mensaje. Cuando haces FrmClientes.Free, si el mensaje aún no fue procesado se descarta.

Es decir que no importa que en FrmClientes utilizes Action:= caFree y luego lo liberes con Free. Prueba de eso es que al eliminar la línea en tu
post #10 continuaste obteniendo la excepción.

Podés verificarlo mediante una simple prueba con dos forms.
Form1:

Código Delphi [-]
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    if Application.FindComponent('Form2') = nil then
       Form2 := TForm2.Create(Self);
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;
...

Form2:

Código Delphi [-]
...
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;
...

Y ya te podés pasar el día cliqueando el botón y cerrando Form2 que no vas a obtener un error.

Me inclino a pensar que la cosa viene por otro lado... ¿ Podrías poner el código de FrmClientes.OnCreate ?

Un saludo.

[Diana Carolina]

Hola gracias por responder. Adjunto el codigo del evento OnCreate de FrmClientes.

Código Delphi [-]
procedure TFrmClientes.FormCreate(Sender: TObject);
begin
  tmHoraActual.Enabled := True;
  SB.Panels[2].Text := dtmGeneral.qryFirmaNOM_FIRM.Value;
  SB.Panels[3].Text := 'F.T.:' + Paramstr(6);
  SB.Panels[4].Text := 'F.S.:' + FormatDateTime('dd/mm/yyyy hh:mm AM/PM', Now);

  bbtaplicar.enabled:=false;
  bbtcancelar.enabled:=false;
  bbtAdicionar.enabled:=false;

  QryOrigenes.Close;
  QryOrigenes.open;

  QryConsulta.Open;
  //activas las consultas que utilizan las vistas
  QryLmTipCl.Open;
  QryLmSectorDian.Open;
  QryGnDivip.Open;
  QryLmRegim.Open;
  QryLmTipCu.Open;
  QryOmEmiso.Open;
  //consultas que se utilizan en los combos
  QryLmTipIden.Open;
  QryFirma.Close;
  QryFirma.ParamByName('Cod_firm').AsFloat := 1;
  QryFirma.Open;

  // codigos CIIU
  QryCiiu.Close;
  QryCiiu.Open;
  // Sectores
  //Presentacion inicial
  pgDetCliente.ActivePage   := TabSituacionFinan;
  pnlSituacionFinan.Visible := True;
  pnlHistorico.Visible      := False;
  pnlRepresent.Visible      := False;
  pnlTodosRepl.Visible      := True;
  pgConyugeClie.ActivePage  := TabInfConyuge;
  pgDatosCliente.ActivePage := TabDatosBas;
  TabDatosBasNat.TabVisible := False;
  TabDatosBasJur.TabVisible := False;

  QryInsertOrdenante.Close;
  QryInsertOrdenante.Open;

  QrylmGrupEmpre.Close;
  QrylmGrupEmpre.Open;

  QryPais.Close;
  QryPais.Open;

  QryMoneda.Close;
  QryMoneda.Open;

  QrySistemasElectro.Close;
  QrySistemasElectro.Open;

  QryCiudades.Close;
  QryCiudades.Open;

  QrySectores.Close;
  QrySectores.Open;

  QryLmAecon.Close;
  QryLmAecon.Open;

  qrygnRechazo.Close;
  qrygnRechazo.Open;

  qrygnROS.Close;
  qrygnROS.Open;
  TabSituacionFinan.Caption:='Informacion Finaciera';

  QryDv_Paises.Close;
  QryDv_Paises.Open;

  qrygnActividad.Close;
  qrygnActividad.Open;

end;

[ecfisa]

Hola Diana.

No, nada parece ser en OnCreate y tampoco veo que liberes nada en OnClose, reamente es raro. Lo que sí es seguro,
por el tipo de excepción, que en algún punto tratas de utilizar un recurso no creado o de liberar un recurso inexistente...

Para tratar de involucrar menos elementos y aislar el error, podrías probar lo siguiente:

FrmMenuCliente

Código Delphi [-]
procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  TFrmClientes.Mostrar;
end;

FrmClientes

Código Delphi [-]
...
type
  TFrmClientes = class(TForm)
    procedure FormCreate(Sender: TObject);
    ...
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
  public
    class procedure Mostrar;
  end;
...
implementation

class procedure TFrmClientes.Mostrar;
begin
  if not Assigned(FrmClientes) then
    FrmClientes:= TFrmClientes.Create(nil);
  FrmClientes.ShowModal;
end;

procedure FormCreate(Sender: TObject);
begin
  ...
end;
...
procedure TFrmClientes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ...
  Action:= caFree;
end;

procedure TFrmClientes.FormDestroy(Sender: TObject);
begin
  FrmClientes:= nil;
end;

Eso seguramente no te quite el error, pero lo circunscribe a FrmClientes, excepto que se esté provocando en las líneas:

Código Delphi [-]
 Permisos(FrmClientes.Tag);
 PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);

De las que tendrías que prescindir para la prueba.

Un saludo.