Grid index out of range

[jmlifi]

Buenas,

Cuando estoy ( en un DBDrid ) posicionado en el último registro y quiero añadir un nuevo registro (dándole a la flecha para abajo) me aparece el mensage: "Grid index out of range".

Lo curioso es que no siempre da el error.

¿ a qué es debido?

[eduarcol]

tienes algun codigo relacionado??

es lo mas seguro, colocalo y te podremos ayudar con el error.

[jmlifi]

procedure TEdOfertaFrm.PzDsDataChange(Sender: TObject; Field: TField);
begin
if (trim(PzOfertas.FieldByName('TIPOM').AsString)<>'') then
if (PzOfertas.FieldByName('VCORTE').AsFloat<>0) or
(PzOfertas.FieldByName('VPz').AsFloat<>0) then
DbGrid1.Columns[5].Readonly := true
else
DbGrid1.Columns[5].Readonly := false
else
DbGrid1.Columns[5].Readonly := false ;
end;
procedure TEdOfertaFrm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (DbGrid1.SelectedField.FieldName='VEXTRAS') and (key=VK_RIGHT) then begin
DbGrid1.SelectedField:= OfertasFrm.PzofertasVPU;
key := 0
end;
if (DbGrid1.SelectedField.FieldName='VPU') and (key=VK_Left) then begin
DbGrid1.SelectedField:= OfertasFrm.PzofertasVEXTRAS;
key := 0
end;
if (DbGrid1.SelectedField.FieldName='VPU') and (key=VK_RIGHT) or
(DbGrid1.SelectedField.FieldName='REF') and (key=VK_LEFT) then
key := 0;
if (key=VK_HOME) then begin
DbGrid1.SelectedField:= OfertasFrm.PzofertasREF;
key := 0
end;
if (key=VK_END) then begin
DbGrid1.SelectedField := OfertasFrm.PzofertasVPU;
key := 0
end;
if (key=VK_DELETE) and (Shift=[ssCtrl]) then
Key := 0;
if (key=VK_INSERT) then
if (Shift<>[ssShift]) and (Shift<>[ssCtrl]) then
Key := 0;
if ((key=VK_F3) and (
(DbGrid1.Selectedfield.FieldName = 'VPZ') or
(DbGrid1.Selectedfield.FieldName = 'VCORTE' ) or
(DbGrid1.Selectedfield.FieldName = 'VTRATMTO') or
(DbGrid1.Selectedfield.FieldName = 'VEXTRAS'))) then
DBGrid1EditButtonClick(nil);
end;


procedure TOfertasFrm.PzOfertasAfterScroll(DataSet: TDataSet);
begin
Aceptar1.Enabled := not PzOfertas.IsEmpty and (PzOfertasACEPTADA.AsString <>'S')
end;
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;
procedure TOfertasFrm.PzOfertasBeforePost(DataSet: TDataSet);
begin
if not modGestor.MaterialValido(PzOfertasTIPOM.AsString) then
if PzOfertas.State in [dsEdit,dsInsert] then
PzOfertas.Cancel;
end;
procedure TOfertasFrm.PzOfertasAfterPost(DataSet: TDataSet);
begin
try
OfertasCANT.Value := PzOfertasTOTAL.Value
except
end;
end;

[eduarcol]

las columnas del grid son estaticas o dinamicas???

[jmlifi]

las columnas son dinamicas

[eduarcol]

ese es el problema donde haces la referencia:

DbGrid1.Columns[5].Readonly := false;

en ese momento el grid no tiene las 6 columnas que necesitas por eso el error index out of range...

antes de hacer eso deberias verificar si el count de las columnas es mayor o igual de 6

[jmlifi]

he añadido el código y no va

[eduarcol]

cual codigo añadistes y cual codigo no va??? :confused::confused:

[jmlifi]

procedure TEdOfertaFrm.PzDsDataChange(Sender: TObject; Field: TField);
begin
if DgBGrid1.Columns.Count>=6 then
if (trim(PzOfertas.FieldByName('TIPOM').AsString)<>'') then
if (PzOfertas.FieldByName('VCORTE').AsFloat<>0) or
(PzOfertas.FieldByName('VPz').AsFloat<>0) then
DbGrid1.Columns[5].Readonly := true
else
DbGrid1.Columns[5].Readonly := false
else
DbGrid1.Columns[5].Readonly := false ;
end;

está bien?

[eduarcol]

eso esta bien dependiendo lo que quieras lograr, pero si deberia funcionar para controlar el error que dices te da

[jmlifi]

Si comento el codigo anterior, me sigue dando el error.
Estoy desesperado.

[eduarcol]

sigo sin entender, podrias tomarte 5 minutos para explicar bien lo que sucede, porq comentas el codigo??

[jmlifi]

Lo Explico:

SOLO SUCEDE EN ALGUNOS CASOS.

Cuando intento añadir una nueva linea en el DbGrid a veces se llega a ejecutar :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:
PzOfertas := OfertasFrm.PzOfertas;ClientDataSet de otro formulario

[eduarcol]

La verdad no veo la relacion, son dos codigos distintos lo que colocas, y el newrecord, se debe ejecutar siempre que agregas un registro

[jmlifi]

Antes de ejecutarse el Newrecord aparece el error.

[eduarcol]

y cuando salta la excepcion podrias indicar la linea y el resto del codigo que marca delphi??

[jmlifi]

el problema es que al intentar añadir un nuevo registro no se que evento se está ejecutando ( antes del newrecord)

[jmlifi]

¿ qué evento se ejecuta cuando intento añadir un nuevo registro en el dbGrid ? alguna veces funciona el OnNewRecord

[eduarcol]

pero te pregunto algo, cuando te genera esa excepcion delphi se detiene y te muestra la linea donde se detuvo, que linea te esta mostrando???

[jmlifi]

Aunque te cueste creerlo, no sé. El código me está mareando. Por qué no hace el OnNewRecord?

Lo siento por liarte

[jmlifi]

te envio todo el código del formulario?

[eduarcol]

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:
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 :try
OfertasCANT.Value := PzOfertasTOTAL.Value
except

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

¿ a qué es debido ?