Error AccessViolation que no consigo localizar

[radge]

else if (FilaCheck = 'N') then
if (var1= var2) then begin
botoseleccionat := MessageDlg('Estas seguro que quieres borrar las unidades servidas ?',mtCustom,
[mbYes,mbNo], 0);
if botoseleccionat = mrYes then begin
cadenaSQL := 'update sql';
ModuloDatos.Ejecutar_SQL(cadenaSQL);
cadenaSQL := 'update SQL';
ModuloDatos.Ejecutar_SQL(cadenaSQL);
try
query_supvision.Close;
query_supvision.Open;
except
showmessage('Error abriendo la base de datos');
end
end
end


He debugado y debugado y uno de las veces al mirar el "call stack" me marca en esta posición , pero yo no le veo nada a esta linea de codigo.

gracias radge

[[coso]]

debugar es fastidioso , y hacerlo online, un poco mas . Otro truquito que se hace es ir comentando lineas, probando, comentando lineas, ... hasta que no te salte. Es raro, porque esa linea de codigo no tiene nada ciertamente...a no ser que, como deciamos, ya no tengas memoria ni para llenar un TModalResult...No se si cargas un exceso de datos por algun otro lado que no liberas, alguna form que creas varias veces en tiempo de ejecucion, querys que se crean y llaman multitud de veces (ejecutar_SQL) sin luego liberarlas,bitmaps,...ni idea, deberia repasar todo el codigo. Si tienes alguna otra duda, por eso, no dudes en ponerla aqui. Venga, saludos, i sort!

PD : prueba de ponerlo en otro evento que no sea el OnFieldChanged, pues ahora que pienso, si modificas la misma base de datos que se mira en el DBGrid, es probable que la llames recursivamente una y otra vez. Saludos.

[[coso]]

Si puedes, pon el codigo entero de
procedure formulario1.wwDBGrid1FieldChanged(Sender: TObject; Field: TField)

Exception EAccessViolation in module Comerciales.exe at 00000000.
Access violation at address 00000000. Read of Address 00000000

este es otro completamente independiente, seguro

[radge]

Código PHP:


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
         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;


        if ((Lin_Codi <> '') and (Dataareaid <> '') and (Alb_Codi <> '') and (Per_Codi <> '') and (Accountnum <> '') AND (inttostr(Cantidad) <> '') ) then begin
           if (combobox1.text = 'TODOS') then
               FreeAndNil(Marca);
               Marca := query_supvision.Bookmark;

        FilaCheck := wwDBGrid1.GetFieldValue(7); 

        if (FilaCheck = 'S') then  begin
             if (Cantidad = 1) then begin
                 cadenaSQL := 'SQL XXXXXXXXXXX';
              ModuloDatos.Ejecutar_SQL(cadenaSQL);
              cadenaSQL := 'SQL XXXXXXXXX';
              ModuloDatos.Ejecutar_SQL(cadenaSQL);
               try
                  query_supvision.Close;
                  query_supvision.Open;
               except
                  showmessage('Error al abrir/cerrar BD vuelve a intentar lo');
               end;
             end

             else begin // Si hi ha més d'una unitat d'aquella linea de pedido ==> FORM NOU
                 try
                   Application.CreateForm (TfrmUnidadesPedidoVenta, frmUnidadesPedidoVenta);
                 except
                 ;
                 end;
                   frmUnidadesPedidoVenta.CarregaDades(Cantidad,UnitatsServidesBD);
                   if (Cantidad > 0) and (UnitatsServidesBD >=0 )then begin
                   frmUnidadesPedidoVenta.ShowModal;
                   varDades := frmUnidadesPedidoVenta.rebreDades;
                   varUnitatsRestants := frmUnidadesPedidoVenta.rebreUnitatsRestants;
                      cadenaSQL := 'SQL XXXXXXXXXXXXXXXXXX';
                      ModuloDatos.Ejecutar_SQL(cadenaSQL);
                      cadenaSQL := 'SQL XXXXXXXXXXXXXXXXXX';
                      ModuloDatos.Ejecutar_SQL(cadenaSQL);
                      query_supvision.Close;
                      query_supvision.Open;
                  end
                  else begin
                     showmessage('Error al recibir los 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 XXXXXXXXXXXXXXXXXX';
                     ModuloDatos.Ejecutar_SQL(cadenaSQL);
                      cadenaSQL := 'SQL XXXXXXXXXXXXXXXXXX';
                     ModuloDatos.Ejecutar_SQL(cadenaSQL);
                     try
                        query_supvision.Close;
                        query_supvision.Open;
                     except
                        showmessage('Error abriendo la base de datos');
                     end
                end
                else begin
                     query_supvision.Cancel;  // refrescar
                end;
                end;
    end
    else begin
       showmessage('Este cliente no tiene más albaranes por editar');
    end;
      if (combobox1.text = 'TODOS') then
      query_supvision.Bookmark := Marca;
  end; 


[[coso]]

puedes usar delphi y /delphi entre [], si es codigo delphi. Creas la form, pero en ningun momento la liberas. Yo lo haria asi:

Código Delphi [-]
var  
      f : TfrmUnidadesPedidoVenta;
begin
    ...
     try
           f := TfrmUnidadesPedidoVenta.Create(self); // corregido
           f.ShowModal;
           ...
           f.free;
     except
        ...

casi seguro que es eso

otra es marca, porque freeandnil si aun no se ha asignado (ni falta que hace)? TBookMarkStr solo es una string, por lo que en principio no te tienes que preocupar de su memoria. El access a nil es debido a eso seguro, pues la liberas y luego intentas trabajar con ella. Si quieres que tenga un valor nulo, simplemente haz marca := '' o marca := nil, pero no la liberes pues se queda desreferenciada en memoria. En tu caso, creo q no hace falta ni siquiera marca := '' pues a lo siguiente ya le das un valor concreto.

Tambien creo q te falta un bloque begin end en ComboBox1.Text = 'TODOS'

[radge]

He cambiado lo que mas dicho del bloque begin y lo de la variable.

Pero lo del formulario lo he dejado asi

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

Pero sigue dandome error os dejo la pila. gracias radge


Como veis todas las instrucciones son de código nativa menos la 1º empezando por abajo del stack , que es la marcada en rojo.

[Neftali [Germán.Estévez]]

Hay entre las llamadas del callstack algunas especiales:


Creo que eso te puede dar datos sobre el campo del error.
¿Hay algun campo en el Grid en el que esté apareciendo "N"? ¿Tal vez un booleano?
Deberías revisar si en algun momento ese campo puede no estar asignado.

[Neftali [Germán.Estévez]]

Hay entre las llamadas del callstack algunas especiales:


Creo que eso te puede dar datos sobre el campo del error.
¿Hay algun campo en el Grid en el que esté apareciendo "N"? ¿Tal vez un booleano?
Deberías revisar si en algun momento ese campo puede no estar asignado.