Error AccessViolation que no consigo localizar

[radge]

Es una aplicación heredada... y el k la empezó no esta xD

Tiene más de 40 formularios y bastante densos.

Por lo que he visto normalmente se usa el formulario.... se crea y se destruye.
Por eso sigo con la misma tónica , lo creo hago sus cositas y al cerrar lo destruimos.

salu2 radge

[radge]

Lo que si que noto que contra más mano le meto.. mas veo de estos

Access violation at address 00000000. Read of Address 00000000

[[coso]]

Si no fueses un profesional te diria q me pasaras el codigo para echarle un vistazo pero asi X). Me da q va por alli, por lo de forms no liberadas y vueltas a referenciar con la misma variable...ya contaras algo, saludos

[[coso]]

Esos anteriores, claro esta son de objetos o bien liberados y reusados, o bien no creados. Si, como antes, estas liberando antes de usar cosas como el TBookMarkStr, que es una string, te saldran montones de ellos.

[radge]

Gracias eso del string ya lo arregle xD la verdad que llevo varios años programado pero acabo de empezar con delphi 5 en esta empresa y con un proyecto... grande que lleva varios años en desarrollo y no veas como pillo xD

gracias , radge

[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

[[coso]]

El evento onclose de un form no destruye el formulario, solo lo cierra. Si tu destruyes un form, este destruye todos los componentes que la tienen en su propiedad parent.

lo que estas haciendo ahora mismo es esto:

f : objeto

...

f := crear_objeto;
f.Trabajamos
f.Cerramos (PERO NO DESTRUIMOS!)
...

y, al cabo de un rato, usando la misma variable

f := crear_objeto (*1)
f.Trabajamos
f.Cerramos (sin destruir otra vez)

si te fijas, en (*1) hemos perdido el valor anterior de f, el cual es un puntero a un objeto, y por lo tanto, tanto el puntero como el objeto quedan aun cargados y bloqueados en memoria, pero ya no se pueden localizar, por lo que tras sucesivas llamadas la memoria se te va a ir llenando hasta ya no poder cargar nada mas. Imagina que en la primera asignacion f fuese 0x00100 ocupando 200; en la segunda vuelta ponemos a f := 0x00300 ocupando 200 mas: la direccion de 0x00100 a 0x00300 se nos queda bloqueada y peor aun, sin poder acceder a ella. Vamos, que nos quedamos sin memoria. Por eso te salta a las 30 o 40 veces. Mira, cuando te salte el error, el administrador de tareas cuanta memoria estas consumiendo, o bien un administrador de memoria (por internet los hay de buenos). La gracia de las variables locales es precisamente que tienes controlado cuando las llamas y cuando las destruyes: solo usaras ese nombre mientras este usandose la form, y nadie mas en el programa la usaria. Si son forms de las que solo necesitas una instancia a la vez, lo mejor es usar el autocreate y llamarlas directamente con el showmodal, olvidandote de crear de nuevas en todo el proyecto: creas todas las del proyecto que seguro necesites y las llamas. Las que no, las creas LOCALMENTE, usas, y destruyes tambien localmente. Lo de TForm1.Create(parent) es para q cuando se destruya el parent, tambien se destruya el objeto creado.

otro ejemplo : en un proyecto tengo dos classes, TForm1, TForm2 con dos instancias con el autocreate : Form1, Form2. Imagina que en el form1 hay 2 botones.

Código Delphi [-]

procedure TForm1.ButtonClick(sender : TObject);
var
    f1 : TForm1;
    f2 : TForm2;
begin
     f1 := TForm1.Create(self);
     f1.ShowModal;
     f1.Free;
     f2 := TForm2.Create(self);
     f2.ShowModal;
     f2.Free;
end;     

procedure TForm1.Button2Click(sender : TObject);
begin
             Form1 := TForm1.Create(self);
             Form1.ShowModal;

             Form2 := TForm2.Create(self);
             Form2.ShowModal;
end;

pruebalo, veras que los 2 parece que funcionan igual, pero no. Puesto que tal como te habia dicho, en el segundo estamos sobreescribiendo las variables globales Form1 y Form2 con nuevos objetos tipo TForm1,TForm2, perdiendo los anteriores por memoria, mientras que en el primero estamos creando nuevas instancias sin perder sus referencias. En el caso de poner Form1.Free, Form2.Free despues del showmodal, tendras el inconveniente de eliminar todas las instancias (aunque no se liberarian las forms anteriores, pues se quedaron desreferenciadas) que hay en el proyecto. En tu caso, seria lo correcto, siempre que no se llamen ni a ninguna propiedad ni funcion sin crearlas anteriormente, vamos, siempre que no estes usando la variable global sin crearla anteriormente.

[radge]

He probado lo siguiente ya os comentaré si falla o no.

Código Delphi [-]
procedure TfrmSupVision.wwDBGrid1FieldChanged(Sender: TObject;   Field: TField);
 Var    formulari : TfrmUnidadesPedidoVenta;
 begin
 formulari := TfrmUnidadesPedidoVenta.Create(self);           
 formulari.CarregaDades(Cantidad,UnitatsServidesBD);                    
formulari.ShowModal;                    
varDades := formulari.rebreDades; 
varUnitatsRestants := formulari.rebreUnitatsRestants;
formulari.Free;

Lo que si que me salen son muchos errores de escritura.

[radge]

Os vuelvo a dejar el codigo con los cambios descritos arriba por el compañero , sigue fallando ;(

de todas formas gracias

Código Delphi [-]

procedure TfrmSupVision.wwDBGrid1FieldChanged(Sender: TObject;
  Field: TField);
Var
  Qry: TQuery;
   cadenaSQL,FilaCheck,Lin_Codi,Alb_Codi,Per_Codi,accountnum,dataareaid ,
   varDades , varUnitatsRestants : string;
   Cantidad , UnitatsServidesBD , botoseleccionat  : Integer ;
   Marca : TBookMarkStr;
   formulari : TfrmUnidadesPedidoVenta;
begin
     try
         Lin_Codi := query_supvision.FieldbyName('LIN_Codi').AsString;
         ...
     ...
      except
         showmessage('No se han podido cargar los datos del albarán');
         query_supvision.close;
         query_supvision.open;
      end;
         if not assigned (Qry) then begin
             Qry := TQuery.Create (nil);
             Qry.DatabaseName := Modulo_Datos.NOG_Comer.DatabaseName;
         end;
         Qry.Close;
         Qry.SQL.Clear;

     if ((Lin_Codi <> '') and (Dataareaid <> '') and (Alb_Codi <> '') and (Per_Codi <> '') and (Accountnum <> '')) then begin
           if (cmbSupervisado.text = 'TODOS') then begin
              try
                 Marca := query_supvision.Bookmark;
              except
                 query_supvision.close;
                 query_supvision.open;
              end;
           end;
        try
        FilaCheck := wwDBGrid1.GetFieldValue(7); // Si cambiem l'ordre del grid cambiar el GetFieldValue
        except
        showmessage('Hubo un error cargando los datos del formulario');
        query_supvision.close;
        query_supvision.open;
        end;

        if (FilaCheck = 'S') then  begin
             // 1 unitat , fiquem la data i l'introduim  a la BD
             if (Cantidad = 1) then begin
                 Qry.SQL.Clear;
                 cadenaSQL := 'update tabla .................';
                 Qry.SQL.Add(cadenaSQL);
                 Qry.ExecSQL;

                 Qry.SQL.Clear;
                 cadenaSQL := 'Insert into tabla ............';
                 Qry.SQL.Add(cadenaSQL);
                 Qry.ExecSQL;

                 query_supvision.close;
                 query_supvision.Open;
             end
             else begin 
                   formulari := TfrmUnidadesPedidoVenta.Create(self);
                   formulari.CarregaDades(Cantidad,UnitatsServidesBD);
                   formulari.ShowModal;
                   varDades := formulari.rebreDades;
                   varUnitatsRestants := formulari.rebreUnitatsRestants;
                   if assigned(formulari) then
                  freeandnil(formulari);

                   Qry.SQL.Clear;
                   cadenaSQL := 'update tabla .........';
                   Qry.SQL.Add(cadenaSQL);
                   Qry.ExecSQL;

                   Qry.SQL.Clear;
                   cadenaSQL := 'Insert into .................';
                   Qry.SQL.Add(cadenaSQL);
                   Qry.ExecSQL;

                   query_supvision.Close;
                   query_supvision.Open;
                end;
        end
        else if (FilaCheck = 'N') then
             if (Cantidad = UnitatsServidesBD) then begin
                 // procedim a desmarcar
                   botoseleccionat := MessageDlg('Estas seguro que quieres borrar las unidades servidas ?',mtCustom,[mbYes,mbNo], 0);
                 if botoseleccionat = mrYes then begin
                     Qry.SQL.Clear;
                     cadenaSQL := 'update tabla .............. ';
                     Qry.SQL.Add(cadenaSQL);
                     Qry.ExecSQL;

                     Qry.SQL.Clear;
                     cadenaSQL := 'update table .............. ';
                     Qry.SQL.Add(cadenaSQL);
                     Qry.ExecSQL;

                     query_supvision.Close;
                     query_supvision.Open;
                 end
                else begin
                     query_supvision.cancel;
                end;
             end;
        end
    else begin
       showmessage('Este cliente no tiene más albaranes por editar');
       try
          query_supvision.Close;
          query_supvision.open;
       except
          ;
       end;
    end;
      if (cmbSupervisado.text = 'TODOS') then begin
          try
           query_supvision.Bookmark := Marca;
          except
          query_supvision.close;
          query_supvision.open;
          end;
     end;
  end;
end.