Excepcion EAccesViolation

[Alejandrina]

Hola a todos, estoy realizando un QReport y necesite agregar un nuevo procedimiento y no se k estoy haciendo mal pero me saca un error de 'Acces Violation at adress 005313EE in module ...'
Adjunto el codigo que eh ingresado y agradezco la ayuda k me puedan brindar.

unit UInfManualET;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, QuickRpt, QRCtrls, Jpeg, Menus, QRExport, StdCtrls;
type
  TInfManualET = class(TForm)
    QRManualET: TQuickRep;
    SUBDetalleDefectos: TQRSubDetail;
    QRWMFFilter1: TQRWMFFilter;
    PopupMenu1: TPopupMenu;
 
    ...............................
 
    blanco5: TQRLabel;
    blanco6: TQRLabel;
    cantotempaque: TQRLabel;
    QRLblUnidad: TQRLabel;
    procedure QRBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure SubDetalleEmpaquesBeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  InfManualET: TInfManualET;
  contpartes, contador, contador1:word;
  imgensamble, imgpartes, imgempaque, imgestiba, nueva1, nueva2, nueva3, nueva4, cliente:string;
implementation
uses UDMinformes, UDMsip1, UDMsip, UInfManualSSD;
{$R *.DFM}
Procedure MueveTitulo; ForWard;
procedure TInfManualET.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  QRLblParte1.Caption:='';
  QRLblParte2.Caption:='';
  QRLblParte3.Caption:='';
  QRLblRef1.Caption:='';
  QRLblRef2.Caption:='';
  QRLblRef3.Caption:='';
  contpartes:=0;
  DmInformes.QPartes.Open;
  DmInformes.QPartes.params[0].AsString:=DmInformes.QFichaProducto['referencia'];
  DmInformes.QPartes.close;
  DmInformes.Qpartes.Open;
  DmSip1.TblEnsamble.open;
  DmSip1.TblOrdenEnsam.Open;
  Dmsip1.TblOrdenTrabajo.open;
  DmSip.Tblproductos.open;
  with DmInformes do
    begin
      if DmInformes.Qpartes['IMPRESION']='N' then
        begin
          contpartes:=contpartes+1;
          case contpartes of
            1: begin
                 QRLblParte1.Caption:=DmInformes.Qpartes['referencia_1'];
                 QRLblRef1.caption:=DmInformes.Qpartes['descripcion_pdto'];
               end;
            2: begin
                 QRLblParte2.Caption:=DmInformes.Qpartes['referencia_1'];
                 QRLblRef2.caption:=DmInformes.Qpartes['descripcion_pdto'];
               end;
            3: begin
                 QRLblParte3.Caption:=DmInformes.Qpartes['referencia_1'];
                 QRLblRef3.caption:=DmInformes.Qpartes['descripcion_pdto'];
               end;
          end;
          DmInformes.QPartes.Next;
        end;
    imgensamble :='E:\sip\datos\productos\'+QFichaProducto['referencia']+'.jpg';
    imgpartes :='E:\sip\datos\partes\'+QFichaProducto['referencia']+'.jpg';
    imgempaque:='E:\sip\datos\empaques\'+QFichaProducto['referencia']+'.jpg';
    imgestiba:='E:\sip\datos\estiba\'+QFichaProducto['referencia']+'.jpg';
    try
      QRImage1.Picture.LoadFromFile(imgensamble);
      QRImage2.Picture.LoadFromFile(imgpartes);
      QRImage3.Picture.LoadFromFile(imgempaque);
      QRImage4.Picture.LoadFromFile(imgestiba);
    except
      begin
        QRImage1.picture:=nil;
        QRImage2.picture:=nil;
        QRImage3.picture:=nil;
        QRImage4.picture:=nil;
      end;
    end;
end;
end;
procedure TInfManualET.SubDetalleEmpaquesBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   contador := 0;
    with DmInformes do
      begin
         DmSip.TblEmpaquet.open;
         QLeeEmpaqueProducto.params[0].AsString := QFichaProducto['referencia'];
         QLeeEmpaqueProducto.params[1].AsString := cliente;
         QLeeEmpaqueProducto.close;
         QLeeEmpaqueProducto.open;
         QLeeProductoDefecto.open;  //esto es una tbl
         cantotempaque.caption := '';
         contador1 := 1;
         if (QLeeEmpaqueProducto['cantidadotros4'] = 0) or (QLeeEmpaqueProducto['cantidadotros4'] = null) then
         else
            cantotempaque.caption := FormatFloat('###,###',QLeeEmpaqueProducto['cantidadotros4']);
         if (QLeeEmpaqueProducto['cantidadotros3'] = 0) or (QLeeEmpaqueProducto['cantidadotros3'] = null) then
         else
            cantotempaque.caption := FormatFloat('###,###',QLeeEmpaqueProducto['cantidadotros3']);
         if (QLeeEmpaqueProducto['cantidadotros2'] = 0) or (QLeeEmpaqueProducto['cantidadotros2'] = null) then
         else
            cantotempaque.caption := FormatFloat('###,###',QLeeEmpaqueProducto['cantidadotros2']);
         if (QLeeEmpaqueProducto['cantidadotros1'] = 0) or (QLeeEmpaqueProducto['cantidadotros1'] = null) then
         else
            cantotempaque.caption := FormatFloat('###,###',QLeeEmpaqueProducto['cantidadotros1']);
         if (QLeeEmpaqueProducto['cantidadbolsa'] = 0) or (QLeeEmpaqueProducto['cantidadbolsa'] = null) then
         else
            cantotempaque.caption := FormatFloat('###,###',QLeeEmpaqueProducto['cantidadbolsa']);
         if (QLeeEmpaqueProducto['cantidad'] = 0) or (QLeeEmpaqueProducto['cantidad'] = null) then
         else
            cantotempaque.caption := FormatFloat('###,###',QLeeEmpaqueProducto['cantidad']);
      end;
   with DmSip do
      begin
         empaque1.caption := '';
         empaque2.caption := '';
         empaque3.caption := '';
         empaque4.caption := '';
         empaque5.caption := '';
         empaque6.caption := '';
         blanco1.caption := '';
         blanco2.caption := '';
         blanco3.caption := '';
         blanco4.caption := '';
         blanco5.caption := '';
         blanco6.caption := '';
         TblEmpaqueT.open;
         nueva1:=cliente;
         nueva2:=tblempaquet['referencia'];
         nueva3:= DmInformes.QLeeEmpaqueProducto['caja'];
         nueva4:=DmInformes.QLeeEmpaqueProducto['bolsa'];
         if TblEmpaquet.locate('referencia', DmInformes.QLeeEmpaqueProducto['caja'],[]) then
            begin
               contador := contador + 1;
               MueveTitulo;
            end;
         if TblEmpaquet.locate('referencia', DmInformes.QLeeEmpaqueProducto['bolsa'],[]) then
            begin
               contador := contador + 1;
               MueveTitulo;
            end;
         if TblEmpaquet.locate('referencia', DmInformes.QLeeEmpaqueProducto['otros1'],[]) then
            begin
               contador := contador + 1;
               MueveTitulo;
            end;
         if TblEmpaquet.locate('referencia', DmInformes.QLeeEmpaqueProducto['otros2'],[]) then
            begin
               contador := contador + 1;
               MueveTitulo;
            end;
         if TblEmpaquet.locate('referencia', DmInformes.QLeeEmpaqueProducto['otros3'],[]) then
            begin
               contador := contador + 1;
               MueveTitulo;
            end;
         if TblEmpaquet.locate('referencia', DmInformes.QLeeEmpaqueProducto['otros4'],[]) then
            begin
               contador := contador + 1;
               MueveTitulo;
            end;
              dminformes.p.next;
              cliente:=dminformes.p['cliente'];
      end;
end;
procedure MueveTitulo;
begin
   if contador = 1 then
      InfManualSSD.empaque1.caption := '        '+DmSip.TblEmpaquet['descripcion'];
   if contador = 2 then
      InfManualSSD.empaque2.caption := '        '+DmSip.TblEmpaquet['descripcion'];
   if contador = 3 then
      InfManualSSD.empaque3.caption := '        '+DmSip.TblEmpaquet['descripcion'];
   if contador = 4 then
      InfManualSSD.empaque4.caption := '        '+DmSip.TblEmpaquet['descripcion'];
   if contador = 5 then
      InfManualSSD.empaque5.caption := '        '+DmSip.TblEmpaquet['descripcion'];
   if contador = 6 then
      InfManualSSD.empaque6.caption := '        '+DmSip.TblEmpaquet['descripcion'];
end;
 
end.

[[Al González]]

Hola Alejandrina.

Creo que debiste publicar el mensaje como un hilo nuevo, ya que difiere significativamente del tema empezado por Tica. Seguramente algún moderador lo acomodará como corresponde.

Mientras tanto, dinos en qué línea de tu código se detiene el programa cuando surge la excepción.

Gracias.

Al González.