Error AccessViolation que no consigo localizar

[radge]

Código Delphi [-]
unit SupVision;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Wwquery, Wwdatsrc, Grids, Wwdbigrd, Wwdbgrid, 
  StdCtrls, wwdbdatetimepicker, wwdblook, Buttons, ExtCtrls , ComCtrls;

type
  TfrmSupVision = class(TForm)
    DS_supvision: TwwDataSource;
    query_supvision: TwwQuery;
    UpdateSQL1: TUpdateSQL;
    Combo_Clientes: TwwDBLookupCombo;
    query_combo: TwwQuery;
    ComboBox1: TComboBox;
    query_comboname: TStringField;
    query_comboaccountnum: TStringField;
    Label1: TLabel;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    Label3: TLabel;
    Shape7: TShape;
    Shape1: TShape;
    Shape2: TShape;
    BtnImprimir: TBitBtn;
    Label5: TLabel;
    wwDBGrid1: TwwDBGrid;
    procedure Combo_ClientesChange(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    { procedure Button1Click(Sender: TObject); }
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure BtnImprimirClick(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure wwDBGrid1TitleButtonClick(Sender: TObject;
      AFieldName: String);
    procedure wwDBGrid1FieldChanged(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSupVision: TfrmSupVision;
  Field_Sorted, Sort_Type, SQL_Base: string;
  CodiClient,cadena2: String;   //Variable global per saber el codi del client
  FlagE : integer;
implementation

uses ModuloDatos,UnidadesPedidoVenta, PrintPedidosSupervisados;
{$R *.DFM}

function tornarMaxID(): integer;
var cadenaSQLID : string;
query_maxID : TQuery;
begin
     query_maxID := TQuery.Create(nil);
     query_maxID.DatabaseName := Modulo_Datos.NOG_Comer.DatabaseName;
     cadenaSQLID := 'SQLLLLLLLLLLLLLLL' ;
     query_maxID.SQL.Clear;
     query_maxID.close;
     query_maxID.SQL.Add(cadenaSQLID);
     query_maxID.open;
     Result := query_maxID.Fields[0].Asinteger;
     query_maxID.Close;
     FreeAndNil(query_maxID);
end;


procedure TfrmSupVision.Combo_ClientesChange(Sender: TObject);
begin

      if FlagE = 0 then begin
          CodiClient := Combo_Clientes.Lookuptable.FieldByName('accountnum').asstring;
       end;

      SQL_Base := 'SQL';

      if (IntToStr(length(Combo_clientes.text)) > '0') then
         SQL_Base := SQL_Base +  ' AND A.accountnum = ' + QuotedStr(CodiClient);

         if (combobox1.text <> '')  then
             if combobox1.text = 'SI' then begin
                SQL_Base := SQL_Base + ' and Check_supervisado = ' +  QuotedStr('S');
             end
             else if  combobox1.text = 'NO' then begin
                SQL_Base := SQL_Base + ' and Check_supervisado = ' +  QuotedStr('N');
             end;

      if Edit1.text <> '' then
         SQL_Base := SQL_Base + ' SQL XXXXXXXXXXXXX';

    try
      query_supvision.close;
      query_supvision.SQL.Clear;
      query_supvision.SQL.Add(SQL_Base);
      query_supvision.open;
    except
      showmessage('Error al cargar los clientes');
    end;
      FlagE := 0;
end;


procedure TfrmSupVision.SpeedButton2Click(Sender: TObject);
begin
    close;
end;

procedure TfrmSupVision.FormClose(Sender: TObject;  var Action: TCloseAction);
begin
   frmSupVision := nil;
   Action       := caFree;
end;


procedure TfrmSupVision.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Return then
    Combo_ClientesChange (Sender);
end;

procedure TfrmSupVision.FormCreate(Sender: TObject);
begin
    Combo_ClientesChange (Sender);
    query_combo.Open;
    FlagE := 0;
end;

procedure TfrmSupVision.ComboBox1Click(Sender: TObject);
begin
    FlagE := 1;
end;

procedure TfrmSupVision.BtnImprimirClick(Sender: TObject);
begin
  Application.CreateForm (TfrmPrintPedidosSupervisados, frmPrintPedidosSupervisados);
  frmPrintPedidosSupervisados.ShowModal;
end;

procedure TfrmSupVision.Edit1Click(Sender: TObject);
begin
    FlagE := 1;
end;


procedure TfrmSupVision.wwDBGrid1TitleButtonClick(Sender: TObject;
  AFieldName: String);
begin
   Field_Sorted := AFieldName;

   if Sort_Type = 'ASC' then
      Sort_Type := 'DESC'
   else
      Sort_Type := 'ASC';

   if Field_Sorted = 'ALB_Fecha' then
       cadena2 :=  SQL_Base + ' ORDER BY A.' + AFieldName + ' ' + Sort_Type
   else if Field_Sorted = 'name' then
       cadena2 :=  SQL_Base + ' ORDER BY C.' + AFieldName + ' ' + Sort_Type
   else
       cadena2 :=  SQL_Base + ' ORDER BY LA.' + AFieldName + ' ' + Sort_Type;

   wwdbgrid1.DataSource.DataSet.Close;
   (wwdbgrid1.DataSource.DataSet as TwwQuery).SQL.Clear;
   (wwdbgrid1.DataSource.DataSet as TwwQuery).SQL.Add(cadena2);
   wwdbgrid1.DataSource.DataSet.Open;
end;


procedure TfrmSupVision.wwDBGrid1FieldChanged(Sender: TObject;
  Field: TField);
Var
   cadenaSQL,FilaCheck,Lin_Codi,Alb_Codi,Per_Codi,accountnum,dataareaid ,
   varDades , varUnitatsRestants : string;
   Cantidad , UnitatsServidesBD , botoseleccionat  : Integer ;
   Marca : TBookMarkStr;
begin
     try
         Lin_Codi := query_supvision.FieldbyName('LIN_Codi').AsString;
         Alb_Codi := query_supvision.FieldbyName('ALB_Codi').AsString;
         Per_Codi := query_supvision.FieldbyName('Per_Codi').AsString;
         Accountnum := query_supvision.FieldbyName('accountnum').AsString;
         Dataareaid := query_supvision.FieldbyName('dataareaid').AsString;
         Cantidad := query_supvision.FieldbyName('Cantidad').asinteger;
         UnitatsServidesBD := query_supvision.FieldbyName('Unitats_Servides').asinteger;
      except
         showmessage('No se han podido cargar los datos del albarán');
         query_supvision.cancel;
     end;
     if ((Lin_Codi <> '') and (Dataareaid <> '') and (Alb_Codi <> '') and (Per_Codi <> '') and (Accountnum <> '')) then begin
           if (combobox1.text = 'TODOS') then begin
              try
              Marca := query_supvision.Bookmark;
              except
              showmessage('error cargando formulario');
              end;
          end;

        FilaCheck := wwDBGrid1.GetFieldValue(7); // Si cambiem l'ordre del grid cambiar el GetFieldValue

        if (FilaCheck = 'S') then  begin
             // 1 unitat , fiquem la data i l'introduim  a la BD
             if (Cantidad = 1) then begin
                 cadenaSQL := 'SQL 111111111';
                 Ejecutar_SQL(cadenaSQL);

                 cadenaSQL := 'SQL 2222222';
                 Ejecutar_SQL(cadenaSQL);
                try
                 query_supvision.Close;
                 query_supvision.Open;
                except
                  showmessage('No se han podido aplicar los cambios en la Base de datos');
                end;
             end
             else begin // Si hi ha més d'una unitat d'aquella linea de pedido ==> FORM NOU
                   Application.CreateForm (TfrmUnidadesPedidoVenta, frmUnidadesPedidoVenta);
                   frmUnidadesPedidoVenta.CarregaDades(Cantidad,UnitatsServidesBD);
                   frmUnidadesPedidoVenta.ShowModal;
                   varDades := frmUnidadesPedidoVenta.rebreDades;
                   varUnitatsRestants := frmUnidadesPedidoVenta.rebreUnitatsRestants;
                   freeandnil(frmUnidadesPedidoVenta);

           try
                      cadenaSQL := 'SQL 1';
                      Ejecutar_SQL(cadenaSQL);
                      cadenaSQL := 'SQL 2';
                      Ejecutar_SQL(cadenaSQL);
                      query_supvision.Close;
                      query_supvision.Open;

                     except
                      showmessage('Error actualizando datos');
                   end;
               end;
        end
        else if (FilaCheck = 'N') then
             if (Cantidad = UnitatsServidesBD) then begin
                   botoseleccionat := MessageDlg('Estas seguro que quieres borrar las unidades servidas ?',mtCustom,[mbYes,mbNo], 0);
                 if botoseleccionat = mrYes then begin
                     cadenaSQL := 'SQL 1';
                     Ejecutar_SQL(cadenaSQL);

                     cadenaSQL := 'SQL2 ';
                     Ejecutar_SQL(cadenaSQL);
                     try
                        query_supvision.Close;
                        query_supvision.Open;
                     except
                        ;
                     end
                end
                else begin
                     query_supvision.Cancel;  // refrescar
                end;
                end;
    end
    else begin
       showmessage('Este cliente no tiene más albaranes por editar');
       query_supvision.Cancel;  // refrescar
    end;
      if (combobox1.text = 'TODOS') then begin
          try
          query_supvision.Bookmark := Marca;
          except
          ;
          end;
     end;
  end;
end.

[radge]

Os muestro el codigo retocado , a ver si alguien consigue ver algo que ando "borracho" de tanto mirar el mismo formulario , aki os he dejado los cambios hechos , a ver si entre todos lo vemos.


muchas gracias , radge

[[coso]]

por ejemplo, aqui se crea, pero se libera correctamente? si no se hace, pasa lo mismo que antes...que se queda en memoria la anterior pues se usa la misma variable global para referenciarla.

Código Delphi [-]
procedure TfrmSupVision.BtnImprimirClick(Sender: TObject);
begin
  Application.CreateForm (TfrmPrintPedidosSupervisados, frmPrintPedidosSupervisados);
  frmPrintPedidosSupervisados.ShowModal;
end

[[coso]]

Código Delphi [-]
function tornarMaxID(): integer;
var cadenaSQLID : string;
query_maxID : TQuery;
begin
     query_maxID := TQuery.Create(nil);
     query_maxID.DatabaseName := Modulo_Datos.NOG_Comer.DatabaseName;
     cadenaSQLID := 'SQLLLLLLLLLLLLLLL' ;
     query_maxID.SQL.Clear;
     query_maxID.close;
     query_maxID.SQL.Add(cadenaSQLID);
     query_maxID.open;
     Result := query_maxID.Fields[0].Asinteger;
     query_maxID.Close;
     FreeAndNil(query_maxID);
end;

Código Delphi [-]
            cadenaSQL := 'SQL 111111111';
            Ejecutar_SQL(cadenaSQL);         
            cadenaSQL := 'SQL 2222222';
            Ejecutar_SQL(cadenaSQL);

?, interpretais la sentencia sql? es bastante un nido de bugs esto radge

(mejor del BookMarkStr, el getbookmark, gotobookmark y freebookmark)

Código Delphi [-]
            Application.CreateForm (TfrmUnidadesPedidoVenta, frmUnidadesPedidoVenta);
            frmUnidadesPedidoVenta.CarregaDades(Cantidad,UnitatsServidesBD);
            frmUnidadesPedidoVenta.ShowModal;
            varDades := frmUnidadesPedidoVenta.rebreDades;
            varUnitatsRestants := frmUnidadesPedidoVenta.rebreUnitatsRestants;
            freeandnil(frmUnidadesPedidoVenta);

lo mismo que antes, mejor usar tal cual la f, el f := TFrmunidadesPedidoventa.create, que sea f variable local, el f.free en vez del freeandnil etc...yo crearia todas las forms asi, tal como ya te habia comentado. El error fijo q esta por estas cosas, por crear todo con variables globales y luego volviendolo a crear con el mismo nombre de variables sin liberar las anteriores. saludos ; )

[radge]

Gracias sigo probando... una cosa tengo 2 problemas a ver si vosotros sabeis.

El 1º es que al debugar me salta dentro de las funciones nativas , eso debe ser alguna opcion que habilite y no recuerdo cual es.

La 2º duda k tengo es que ahora no me funciona lo siguiente : si selecciona una linea o texto , y le doy al suprimir o la tecla encima del return me "corre" las lineas pero no me las borra.

gracias radge

[radge]

Empezado por coso

por ejemplo, aqui se crea, pero se libera correctamente? si no se hace, pasa lo mismo que antes...que se queda en memoria la anterior pues se usa la misma variable global para referenciarla.

Código Delphi [-]procedure TfrmSupVision.BtnImprimirClick(Sender: TObject); begin Application.CreateForm (TfrmPrintPedidosSupervisados, frmPrintPedidosSupervisados); frmPrintPedidosSupervisados.ShowModal; end

Esto es un boton que desde el form principal abre otro formulario , pero solo si lo llamo... que de momento esta deshabilitado asi k no creo que venga por aki , de todas formas el formulario lo tendria k destruir desde el mismo en el evento onclose no ?


Otra cosa... lo del famoso formulario

Código Delphi [-]
                   Application.CreateForm (TfrmUnidadesPedidoVenta, frmUnidadesPedidoVenta);
                   frmUnidadesPedidoVenta.enviarDadesSeguentForm(Cantidad,UnitatsServidesBD);
                   frmUnidadesPedidoVenta.ShowModal;
                   varDades := frmUnidadesPedidoVenta.rebreDades;
                   varUnitatsRestants := frmUnidadesPedidoVenta.rebreUnitatsRestants;
                   freeandnil(frmUnidadesPedidoVenta);

No creo que falle por aki , pk he borrado completamente estas lineas y sus referencias a el y sigue dando el mismo error.

Asi k seguimos buscando !

salu2 radge

[[coso]]

si, pero como te decia...si estas creando TODAS LAS FORMS de tu proyecto usando un solo nombre de variable para cada clase, sin liberar las anteriores y reusando ese nombre de variable, se te queda la anterior creada desreferenciada en memoria.

[[coso]]

Application.CreateForm (TfrmPrintPedidosSupervisados, frmPrintPedidosSupervisados);   frmPrintPedidosSupervisados.ShowModal; end

de todas formas el formulario lo tendria k destruir desde el mismo en el evento onclose no ?

no, porque le estas asignando de parent la aplicacion, no la form que lo contiene, por eso lo del f:= Tform.Create(self)

[radge]

Lo siento llevo 2 semanas con delphi y no entiendo muy bien lo que dices.

Mira tengo la siguiente estructura

Formulario principal
frmMain
Formstyle : fsMDIForm


Desde el cual tengo un botton a frmsupvision con el siguiente codigo

Código Delphi [-]
procedure TfrmMain.BitBtn4Click(Sender: TObject); begin
    WebBrowser1.SendToBack;   
 if not Assigned (frmSupVision) then     
  Application.CreateForm (TfrmSupVision, frmSupVision); 
 end;

Entonces abro el formulario supvision que tiene estas caracteristicas:
frmsupvision
formstyle : fsMDiChild


Y desde este si es necesario llamo a
frmUnidadespedidoVenta
formstyle : fsNormal