Problemas con ClientDataSet

Diana Carolina · #1 14-04-2011

Buenos dias.

Necesito ayuda con lo siguiente.

La version que usamos en la empresa para desarrollo es la de Delphi 6.

El problema es el siguiente:

Tengo un formulario que me registra la informacion financiera de un cliente.

En este formulario se registran los ingresos y egresos anuales de los clientes a traves de un DBEdit, y el aplicativo por codigo llena otros DBEdit con la informacion mensual, la cual corresponde a los datos anuales registrados divididos entre 12. Los datos mensuales no se pueden editar puesto que los componentes estan como solo lectura.

Hasta aqui todo iba bien.

Hace como 6 meses el Ing que estaba de turno, realizó un cambio a este proceso y dejo editable los componentes de los ingresos y egresos mensuales, con el fin de que si se escribia un valor en la casilla mensual, automaticamente llenaba el campo correspondiente anual, y viceversa.

Para este proceso utilizo los componentes ClientDataset, DataProvider, TQuery y un DataSource, los cuales se encargan de hacer estas operaciones.

Como desde esa epoca hasta ahora no se habia vuelto a compilar ese proyecto no habia habido problemas. Pero ahora que se compilo nuevamente, alguno de estos componentes esta generando error al salir del formulario donde se utiliza, provocando un Access Violation.

A esta conclusion llegue despues de haber realizado pruebas con la antigua version donde solo habia un Tquery y no existian los cambios realizados por el Ing. en esta version pude ver que el proceso corre sin inconvenientes.

En el evento OnClose del Formulario se cierra el Client de esta forma:
ClientDataset.Close;

Seguido de esta linea:
Action := caFree;

Si alguien ha tenido el mismo problema agradeceria su orientacion y colaboracion.

Cualquier informacion adicional que sea requerida con gusto solo es que me digan y sera anexada.

Quedo atenta a sus comentarios y colaboracion.

Gracias.

[oscarac] · #2 14-04-2011

se que has querido explicarte de la mejor manera... pero...
podrias colocar algo del codigo que tienes?

Diana Carolina · #3 14-04-2011

Asi es como se llama al Formulario.

Código Delphi [-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.ShowModal;
  finally
    FrmClientes.free;
  end;
end;

Asi es como se cierra el formulario.

Código Delphi [-]procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//spbcancelar.OnClick(nil);

  QryConsulta.Close;
  //desactivas las consultas que utilizan las vistas
  QryLmTipCl.Close;
  QryLmFinan.Close; //Este es el componente ClientDataSet.
  QryLmSectorDian.Close;
  QryLmAecon.Close;
  QryGnDivip.Close;
  QryLmRegim.Close;
  QryLmTipCu.Close;
  QryOmEmiso.Close;
  QryLmPjRep.Close;
  QrySegmClie1.Close;
  QrySegmClie2.Close;
  QrySegmClie3.Close;
  QrySegmCanal1.Close;
  QrySegmCanal2.Close;
  QrySegmCanal3.Close;
  //consultas que se utilizan en los combos
  QryLmTipIden.Close;

  Action := caFree; //Cuando ejecuta esta linea sale el Access Violation
end;

Gracias por la colaboracion y si necesitan algo mas me avisan por favor.

[oscarac] · #4 14-04-2011

y como lo activas?

[Lepe] · #5 14-04-2011

Ten cuidado, estás liberando el frmClientes 2 veces, una en el finally y otra vez cuando se cierra (en el OnClose), Yo, personalmente pondría en el finally un frmClientes.Close (sabiendo que al cerrarse, ya se libera él solito).

Si tienes una cuenta de embarcadero, puedes bajar la actualización de los IBX a la versión 7.11, eso quitará, con suerte, los problemas raros y conocidos en el ClientDataset.

rgstuamigo · #6 14-04-2011

Pues estás destruyendo

al formulario dos veces y me parece que por eso te sale el error; primero lo haces aquí:

Código Delphi [-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
...
...
...
  finally
    FrmClientes.free;//<-- aqui está destruyendo o liberando el formulario
  end;
end;

Tambien en tu el evento OnClose estás haciendo:

Código Delphi [-]procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
...
...
...
  Action := caFree; //<- Está linea tambien hace que se destruya el Formulario
end;

Te recomiendo decidirte por una de ellas y anular la otra y ver que sucede

EDITO: Ya Lepe lo comentó...

[oscarac] · #7 14-04-2011

ahi radica la importancia de colocar algo codigo para tener una mejor idea...

como dice rgstuamigo estas liberando 2 veces el formulario y eso es lo que te causa el problema

Diana Carolina · #8 14-04-2011

Cita:

Empezado por oscarac

y como lo activas?

A que te refieres con Activarlo, no entendi, sorry.

[oscarac] · #9 14-04-2011

me referia a como lo abres....
se que es con un OPEN
pero antes hay que usar Fielddef.. etc...

si ya esta solucionado chevere !!!

Diana Carolina · #10 14-04-2011

Hola

Hice las siguientes pruebas y anexo los resultados.

Deje esta parte igual.

Código Delphi [-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.ShowModal;
  finally
    FrmClientes.Free;
  end;
end;

Cambie esta parte. Comentarie el Action := caFree.

Código Delphi [-]procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//spbcancelar.OnClick(nil);

  QryConsulta.Close;
  //desactivas las consultas que utilizan las vistas
  QryLmTipCl.Close;
  QryLmFinan.Close;
  QryLmSectorDian.Close;
  QryLmAecon.Close;
  QryGnDivip.Close;
  QryLmRegim.Close;
  QryLmTipCu.Close;
  QryOmEmiso.Close;
  QryLmPjRep.Close;
  QrySegmClie1.Close;
  QrySegmClie2.Close;
  QrySegmClie3.Close;
  QrySegmCanal1.Close;
  QrySegmCanal2.Close;
  QrySegmCanal3.Close;
  //consultas que se utilizan en los combos
  QryLmTipIden.Close;

//  Action := caFree; //Linea Comentariada para la prueba. 
end;

Resultado : Access Violation.

Prueba 2

Comentarié el Try

Código Delphi [-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
//  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.Show;
//  finally
//    FrmClientes.Free;
//  end;
end;

Esta parte la deje en su version original.

Código Delphi [-]procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//spbcancelar.OnClick(nil);

  QryConsulta.Close;
  //desactivas las consultas que utilizan las vistas
  QryLmTipCl.Close;
  QryLmFinan.Close;
  QryLmSectorDian.Close;
  QryLmAecon.Close;
  QryGnDivip.Close;
  QryLmRegim.Close;
  QryLmTipCu.Close;
  QryOmEmiso.Close;
  QryLmPjRep.Close;
  QrySegmClie1.Close;
  QrySegmClie2.Close;
  QrySegmClie3.Close;
  QrySegmCanal1.Close;
  QrySegmCanal2.Close;
  QrySegmCanal3.Close;
  //consultas que se utilizan en los combos
  QryLmTipIden.Close;

  Action := caFree;
end;

Resultado : Access Violation

Prueba 3

Código Delphi [-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.ShowModal;
  finally
    FrmClientes.Close; //Cambie el Free por Close.
  end;
end;

Quite el caFree.

Código Delphi [-]procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//spbcancelar.OnClick(nil);

  QryConsulta.Close;
  //desactivas las consultas que utilizan las vistas
  QryLmTipCl.Close;
  QryLmFinan.Close;
  QryLmSectorDian.Close;
  QryLmAecon.Close;
  QryGnDivip.Close;
  QryLmRegim.Close;
  QryLmTipCu.Close;
  QryOmEmiso.Close;
  QryLmPjRep.Close;
  QrySegmClie1.Close;
  QrySegmClie2.Close;
  QrySegmClie3.Close;
  QrySegmCanal1.Close;
  QrySegmCanal2.Close;
  QrySegmCanal3.Close;
  //consultas que se utilizan en los combos
  QryLmTipIden.Close;

//  Action := caFree; //Quite el caFree
end;

Resultado : Al cerrar FrmClientes no me sale Access Violation, pero si vuelvo y lo abro e intento registrar otro cliente me sale el error QryConsulta: Cannot perform this operation on a closed dataset. Cuando cierro el formulario principal FrmMenuCliente, me dice que provoco un error y debe cerrarse y despues me despliega el Access Violation. Osea que se cambia el error de un formulario a otro. y el problema es que no me deja crear o editar un nuevo cliente.

Prueba 4

Agregue Close despues del Free

Código Delphi [-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.ShowModal;
  finally
    FrmClientes.Free;
    FrmClientes.Close; //Agregué esta linea. 
  end;
end;

Quite el caFree

Código Delphi [-]procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//spbcancelar.OnClick(nil);

  QryConsulta.Close;
  //desactivas las consultas que utilizan las vistas
  QryLmTipCl.Close;
  QryLmFinan.Close;
  QryLmSectorDian.Close;
  QryLmAecon.Close;
  QryGnDivip.Close;
  QryLmRegim.Close;
  QryLmTipCu.Close;
  QryOmEmiso.Close;
  QryLmPjRep.Close;
  QrySegmClie1.Close;
  QrySegmClie2.Close;
  QrySegmClie3.Close;
  QrySegmCanal1.Close;
  QrySegmCanal2.Close;
  QrySegmCanal3.Close;
  //consultas que se utilizan en los combos
  QryLmTipIden.Close;

//  Action := caFree; //Quite esta Linea
end;

Resultado : Access Violation.

Bueno parece que es mas complicado de lo que parece.

Ahi les dejo las 4 pruebas que realice sin exito.

Quedo atenta a sus comentarios.

Gracias.

Diana Carolina · #11 14-04-2011

Cita:

Empezado por oscarac

me referia a como lo abres....
se que es con un OPEN
pero antes hay que usar Fielddef.. etc...

si ya esta solucionado chevere !!!

Anexo las partes donde veo que se abre el ClientDataSet.

Código Delphi [-]//RadioGroup Tipo de Persona
procedure TFrmClientes.rgrTipoPersonaClick(Sender: TObject);
var i : Integer;
begin
RxDescripcionCiiu.DisplayValue := '';
RxCodCiiu.KeyValue             := '';
ediTipoIdentificacion.Text     := '';
ediIdentificacion.Text         := '';

for i := 0 to QryLmClien.ParamCount -1 do
    QryLmClien.Params[i].Clear;

QryLmClien.Close;
QryLmClien.Open;
QryLmClien.Insert;

QryLmFinan.Close; //Aqui lo abren 
QryLmFinan.Params.ParamByName('IdeCliente').AsString := QryLmCliennit_clie.AsString;
QryLmFinan.Params.ParamByName('TipoIde').AsString    := QryLmClientip_iden.AsString;
QryLmFinan.Open;

//al insertar o modificar siempre se activa rgrtipopersona...
pgDatosCliente.ActivePage := TabDatosBas;
TabDatosBasNat.TabVisible := False;
TabDatosBasJur.TabVisible := False;

if rgrTipoPersona.ItemIndex = 0 then
   begin
   QryLmTipIden.Filter:= 'cod_tipiden <> ' + #39 + 'NI' + #39;
   TabDatosBasNat.TabVisible := True;
   if QryOrigenesCod_Firma.AsString = '027' then
      begin
      Label19.Caption := 'Ingresos';
      Label75.Caption := 'Ingresos'
      end;
   end
else
   begin
   QryLmTipIden.Filter:= 'cod_tipiden <> ' + #39 + 'CC' + #39;
   TabDatosBasJur.TabVisible := True;
   if QryOrigenesCod_Firma.AsString = '027' then
      begin
      Label19.Caption := 'Ventas';
      Label75.Caption := 'Ventas'
      end;
   end;

DbeIngresosMensual.enabled:=(rgrTipoPersona.ItemIndex=0);
DbeEgresosMensual.enabled:=(rgrTipoPersona.ItemIndex=0);
//DbeUtilidadMensual.enabled:=(rgrTipoPersona.ItemIndex=0);
end;

Este es la programacion que tiene el boton aplicar que guarda los cambios realizados a la informacion financiera.

Código Delphi [-]procedure TFrmClientes.bbtAplicarClick(Sender: TObject);
begin
//lm_finan
if QryLmFinan.State in [dsInsert,dsEdit] then
   QryLmFinan.Post;
end;

Anexo las partes donde se hace referencia al Client

Código Delphi [-]procedure TFrmClientes.dbeActivoExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

   if TEdit(Sender).Text='' then
      valor:=0.00
   else
      Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

   TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

   if Valor<>QryLmFinanvlr_acti.AsFloat then
      QryLmFinanvlr_acti.AsFloat:=Valor;

   If((Trim(dbeActivo.Text)<>'')And(Trim(dbePasivo.Text)<>''))Then
      Try
        dbePatrimonio.Text:=FormatFloat('####,####,####,##0.00',Valor-StrToFloat(RemCar(',',dbePasivo.text)));
        If((Trim(dbeActivo.Text)<>'0.00')And(Trim(dbePasivo.Text)<>'0.00'))Then
            QryLmFinanvlr_patr.AsFloat:=StrToFloat(RemCar(',',dbePatrimonio.Text));
        Except
            ShowMessage('Valor activo o pasivo no valido. Verifique por favor!!');
            Abort;
        End;
   end;
end;

Código Delphi [-]procedure TFrmClientes.dbePasivoExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

   if TEdit(Sender).Text='' then
      valor:=0.00
   else
      Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

   TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

   if Valor<>QryLmFinanvlr_pasi.AsFloat then
      QryLmFinanvlr_pasi.AsFloat:=Valor;

   If((Trim(dbeActivo.Text)<>'')And(Trim(dbePasivo.Text)<>''))Then
      Try
        dbePatrimonio.Text:=FormatFloat('####,####,####,##0.00',StrToFloat(RemCar(',',dbeActivo.text))-Valor);
        If((Trim(dbeActivo.Text)<>'0.00')And(Trim(dbePasivo.Text)<>'0.00'))Then
           QryLmFinanvlr_patr.AsFloat:=StrToFloat(RemCar(',',dbePatrimonio.Text));
        Except
             ShowMessage('Valor activo no valido. Verifique por favor.');
             Abort;
        End;
   end;
end;

Código Delphi [-]procedure TFrmClientes.DBEIngresosPromedioExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

    if TEdit(Sender).Text='' then
       valor:=0.00
    else
       Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

    TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

    if Valor<>QryLmFinaning_prom.AsFloat then
       QryLmFinaning_prom.AsFloat:=Valor;

    If((Trim(DBEIngresosPromedio.Text)<>'')And(Trim(DBEEgresosPromedio.Text)<>''))Then
       Try
         DBEUtilidadPromedio.Text:=FormatFloat('####,####,####,##0.00',Valor-StrToFloat(RemCar(',',DBEEgresosPromedio.text)));
         If((Trim(DBEIngresosPromedio.Text)<>'0.00')And(Trim(DBEEgresosPromedio.Text)<>'0.00'))Then
            QryLmFinanuti_prom.AsFloat:=StrToFloat(RemCar(',',DBEUtilidadPromedio.Text));
         Except
              ShowMessage('Valor Ingreso o Egreso no valido. Verifique por favor!!');
              Abort;
         End;
    end;
end;

Código Delphi [-]procedure TFrmClientes.DBEEgresosPromedioExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

   if TEdit(Sender).Text='' then
      valor:=0.00
   else
      Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

   TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

   if Valor<>QryLmFinanegr_prom.AsFloat then
      QryLmFinanegr_prom.AsFloat:=Valor;

   If((Trim(DBEIngresosPromedio.Text)<>'')And(Trim(DBEEgresosPromedio.Text)<>''))Then
      Try
        DBEUtilidadPromedio.Text:=FormatFloat('####,####,####,##0.00',StrToFloat(RemCar(',',DBEIngresosProme  dio.text))-Valor);
        If((Trim(DBEIngresosPromedio.Text)<>'0.00')And(Trim(DBEEgresosPromedio.Text)<>'0.00'))Then
            QryLmFinanuti_prom.AsFloat:=StrToFloat(RemCar(',',DBEUtilidadPromedio.Text));
        Except
             ShowMessage('Valor Ingreso o Egreso no valido. Verifique por favor!!');
             Abort;
        End;
   end;
end;

Código Delphi [-]procedure TFrmClientes.DBEOtros_IngresosExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

   if TEdit(Sender).Text='' then
      valor:=0.00
   else
      Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

   TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

   if Valor<>QryLmFinanOtr_Ingr.AsFloat then
      QryLmFinanOtr_Ingr.AsFloat:=Valor;
   end;

end;

Código Delphi [-]procedure TFrmClientes.DBEIngresosMensualExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

   if TEdit(Sender).Text='' then
      valor:=0.00
   else
      Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

   TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

   if Valor<>QryLmFinanIng_Mens.AsFloat then
      QryLmFinanIng_Mens.AsFloat:=Valor;

   If((Trim(DBEIngresosMensual.Text)<>'')And(Trim(DBEEgresosMensual.Text)<>''))Then
      Try
      DBEUtilidadMensual.Text:=FormatFloat('####,####,####,##0.00',Valor-StrToFloat(RemCar(',',DBEEgresosMensual.text)));
      If((Trim(DBEIngresosMensual.Text)<>'0.00')And(Trim(DBEEgresosMensual.Text)<>'0.00'))Then
         QryLmFinanUti_Mens.AsFloat:=StrToFloat(RemCar(',',DBEUtilidadMensual.Text));
      Except
           ShowMessage('Valor Ingreso Mensual o Egreso Mensual no valido. Verifique por favor!!');
           Abort;
      End;
   end;
end;

Código Delphi [-]procedure TFrmClientes.DBEEgresosMensualExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

   if TEdit(Sender).Text='' then
      valor:=0.00
   else
      Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

   TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

   if Valor<>QryLmFinanEgr_Mens.AsFloat then
      QryLmFinanEgr_Mens.AsFloat:=Valor;

   If((Trim(DBEIngresosMensual.Text)<>'')And(Trim(DBEEgresosMensual.Text)<>''))Then
      Try
        DBEUtilidadMensual.Text:=FormatFloat('####,####,####,##0.00',StrToFloat(RemCar(',',DBEIngresosMensua  l.text))-Valor);
        If((Trim(DBEIngresosMensual.Text)<>'0.00')And(Trim(DBEEgresosMensual.Text)<>'0.00'))Then
           QryLmFinanUti_Mens.AsFloat:=StrToFloat(RemCar(',',DBEUtilidadMensual.Text));
        Except
             ShowMessage('Valor Ingreso Mensual o Egreso Mensual no valido. Verifique por favor!!');
             Abort;
        End;
   end;
end;

Código Delphi [-]procedure TFrmClientes.QryLmFinanAfterOpen(DataSet: TDataSet);
begin
bbtaplicar.enabled:=false;
bbtcancelar.enabled:=false;
bbtAdicionar.enabled:=true;
QryLmFinan.findlast;

QryLmFinan.edit;
QryLmFinanActivo.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanvlr_acti.AsFloat);
QryLmFinanPasivo.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanvlr_pasi.AsFloat);
QryLmFinanPatrimonio.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanvlr_patr.AsFloat);
QryLmFinanIngresos.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinaning_prom.AsFloat);
QryLmFinanEgresos.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanegr_prom.AsFloat);
QryLmFinanUtilidad.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanuti_prom.AsFloat);
QryLmFinanIng_Mensual.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanIng_Mens.AsFloat);
QryLmFinanEgre_Mensual.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanEgr_Mens.AsFloat);
QryLmFinanUti_Mensual.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanUti_Mens.AsFloat);
QryLmFinanOtros_Ingresos.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanOtr_Ingr.AsFloat);
end;

Estas la mayoria de las partes donde se referencia a este ClientDataSet.

Espero que sirva de algo.

Muchas Gracias.

rgstuamigo · #12 14-04-2011

Haber cambia ésta parte>

Código Delphi [-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.ShowModal;
  finally
    FrmClientes.Free;
  end;
end;

por ésta otra>

Código Delphi [-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
 try
   if not Assigned(FrmClientes)then //si no hay objeto creado para el apuntador "FrmClientes"
     {entonces lo voy a crear..}
     FrmClientes:=TFrmClientes.Create(Application);//creo una instancia nueva
  {De aquí en adelante ya se sabe que el FrmClientes no está en nulo}
  Permisos(FrmClientes.Tag);
  PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
  FrmClientes.ShowModal;
  finally
   FreeAndNil(FrmClientes);
  end;
end;

Prueba y nos comentas...

Saludos...

Diana Carolina · #13 14-04-2011

Cita:

Empezado por rgstuamigo

Haber cambia ésta parte>

Código Delphi [-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.ShowModal;
  finally
    FrmClientes.Free;
  end;
end;

por ésta otra>

Código Delphi [-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
 try
   if not Assigned(FrmClientes)then //si no hay objeto creado para el apuntador "FrmClientes"
     {entonces lo voy a crear..}
     FrmClientes:=TFrmClientes.Create(Application);//creo una instancia nueva
  {De aquí en adelante ya se sabe que el FrmClientes no está en nulo}
  Permisos(FrmClientes.Tag);
  PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
  FrmClientes.ShowModal;
  finally
   FreeAndNil(FrmClientes);
  end;
end;

Prueba y nos comentas...

Saludos...

Hola Reemplacé el código con el que me enviaste y aún me sale el error de Access Violation. Además cuando cierro el formulario y lo intento abrir de nuevo me dice que ya existe un formulario llamado frmclientes, adjunté las imágenes que me salen. Espero que sirvan de algo.

Gracias por la colaboracion y quedo a la espera de sus comentarios.

ecfisa · #14 15-04-2011

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 · #15 15-04-2011

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 · #16 15-04-2011

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.

rgstuamigo · #17 15-04-2011

Cita:

Empezado por Diana Carolina

Hola Reemplacé el código con el que me enviaste y aún me sale el error de Access Violation. Además cuando cierro el formulario y lo intento abrir de nuevo me dice que ya existe un formulario llamado frmclientes, adjunté las imágenes que me salen. Espero que sirvan de algo.

Gracias por la colaboracion y quedo a la espera de sus comentarios.

Bueno... aparte de lo ya comentado por ecfisa, creo que para estos menesteres lo mejor que puedes hacer para encontrar la linea de código que te genera dicha excepcion es DEBUGEAR.

Puedes por ejemplo colocar un "punto de ruptura"(breakPoint) en la parte donde se crea tu formulario "FrmClientes".

Teniendo ubicada la linea que genera la Excepcion, ya es más fácil poder darse cuenta de lo que está sucediendo...

Saludos...

Diana Carolina · #18 15-04-2011

Cita:

Empezado por rgstuamigo

Bueno... aparte de lo ya comentado por ecfisa, creo que para estos menesteres lo mejor que puedes hacer para encontrar la linea de código que te genera dicha excepcion es DEBUGEAR.

Puedes por ejemplo colocar un "punto de ruptura"(breakPoint) en la parte donde se crea tu formulario "FrmClientes".

Teniendo ubicada la linea que genera la Excepcion, ya es más fácil poder darse cuenta de lo que está sucediendo...

Saludos...

Hola Gracias por responder.

Adjunto estoy anexando la imagen de exactamente en donde se genera el error.

Tambien adjunto el codigo de este proceso.

Código Delphi [-]destructor TRxMemoryData.Destroy;
begin
  inherited Destroy;
  FreeIndexList;
  ClearRecords;
  FRecords.Free;
  ReallocMem(FOffsets, 0);
end;

Este codigo está en la la unidad RxMenDS.pas la cual está en la siguiente ruta:
C:\Archivos de programa\Borland\Delphi6\Rx Library\units\RxMenDS.pas

Voy a realizar las pruebas sugeridas por ecfisa y estaré subiendo el resultado de las mismas.

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Problemas con el MasterSource en un ClientDataset	ygkw	Conexión con bases de datos	2	05-03-2015 22:59:59
Problemas Con El Clientdataset Y Tztable	foxito	Conexión con bases de datos	4	24-11-2008 17:38:37
Problemas con clientdataset y limit	Edgtho	Conexión con bases de datos	11	02-06-2008 08:32:58
Problemas con Clientdataset.Open;	jmlifi	Varios	1	16-11-2006 13:51:13
Problemas con DBExpress - ClientDataset	argami	Conexión con bases de datos	4	26-07-2004 11:21:12