Grid index out of range

[jmlifi]

te envio todo el código del formulario?

[[eduarcol]]

Empezado por jmlifi

te envio todo el código del formulario?

Cuelgalo como adjunto, en caso de que yo no sepa el error seguro otra persona te ayudara

[jmlifi]

comprimido me ocupa 3,85 KB. no puedo

[[eduarcol]]

enviamelo al correo del club y yo lo cuelgo en mi espacio

[jmlifi]

picho en tu nombre, Enviar correo a Eduarcol y no veo forma de como adjuntar el archivo.

[[eduarcol]]

mi correo es el nick que tengo en el club, arroba clubdelphi.com

o sea

eduarcol [arro] clubdelphi . com

[jmlifi]

Ok. Enviado.

[[eduarcol]]

me enviastes un archivo de texto con el .pas solamente, eso no lo puedo ejecutar para recrear el error.

Te hago una pregunta, cuadno te salta la excepcion delphi no te indica que linea la dio???

[jmlifi]

NO. Da igual ya has perdido tiempo conmigo.
Seguiré con ello.

[jmlifi]

Buenas noticias. Se cuando da el error:
cuando intento añadir una nueva fila se ejecuta lo siguiente:

Código Delphi [-]
procedure TOfertasFrm.PzOfertasCalcFields(DataSet: TDataSet);
begin
  PzOfertasACEPTADACALC.AsString   := CompletaSiNo(PzOfertasACEPTADA.AsString);
  //PzOfertasPIEZAVERSION.AsString   := PzOfertasREF.AsString+'   '+PzOfertasC_VR.AsString;
  try
    PzOfertasImporte.AsFloat         := PzOfertasVPU.AsFloat * PzOfertasQPZ.AsInteger;
    PzOfertasImporteMaterial.AsFloat := PzOfertasVPz.AsFloat * PzOfertasQPZ.AsInteger;
  except
  end;
  try
     OfertasCANT.Value := PzOfertasTOTAL.Value
  except
  end;
end;

se recorre desde el último registro hasta el primero. por cada registro se ejecuta el código. Bien, cuando acaba con el primero se ejecuta por última vez y falla en :

Código Delphi [-]
try
     OfertasCANT.Value := PzOfertasTOTAL.Value
  except

PzOfertasTOTAL.value = 19855,56
Todos los demás valor 0

¿ a qué es debido ?