Lo Explico:
SOLO SUCEDE EN ALGUNOS CASOS.
Cuando intento añadir una nueva linea en el DbGrid a veces se llega a ejecutar :
Código Delphi
[-]procedure TEdOfertaFrm.PzOfertasNewRecord(DataSet: TDataSet);
var
n : integer;
begin
PzOfertas.FieldByName('OFERTA').AsString := OfertasFrm.OfertasOFERTA.AsString;
PzOfertas.FieldByName('ACEPTADA').AsString := 'N';
PzOfertas.FieldByName('PzasArea').AsInteger := 1;
try
n := PzOfertas.FieldByName('MaxPos').Value + 1
except
n := 1;
end;
PzOfertas.FieldByName('O_Oferta').AsString := AddCeros(n,3);
BorrarPieza.Enabled := true
end;
y todo va correcto.
Y otras veces me da el error: "Grid index out of range"
PzOfertas lo tengo declarado de la siguiente manera:
Código Delphi
[-]PzOfertas := OfertasFrm.PzOfertas;
ClientDataSet de otro formulario