error bounds (0)

[esimon]

Muy buen dia para todos, en un sistema que estoy realizando en el cual usos diferentes tablas, entre ellas una de Provincias y otra de Localidad, con esta dos tablas hacia una realacion Master/Deatil. estos son los campos de dicha tabla.
Provincias

• Codigo_Provinica Numerior*
  Numero_Provincia Texto
  Descripcion_Provincia Texto
  
  Localidad
  Codigo_Localidad Numerio
  Numero_Localidad Texto*
  Numero_Provinica Texto
  Descripcion_Provincia Texto

el error que me da es el siguiente Project Servicios.exe raised exception class Elist error with message List index out of bounds (0) Process stopped. use step or Run to continue, Los campos codigo los incremento con una rutina cuando llamo el form Provincia que inserto un registro y lo grabo se le doy a insetar otro registro es donde me da el error. espero que no comprendan

[marcoszorrilla]

espero que no comprendan

Supongo que quieres decir comprenden. Por otra parte he movido el tema porque no tenía nada que ver con OOP.


A primera vista el fallo puede estar en que primero estás introduciendo el detalle sin que presumiblemente tenga maestro.

Pero mejor pon el código para que así veamos en donde puede estar el fallo.

Un Saludo.

[esimon]

Marcos disculpa por la publicación y encuanto a lo escrito quise decir me comprendan, esta es la rutina que uso para incrementar el código.

procedure TFrm_Provincias.Tbl_ProvinciasNewRecord(DataSet: TDataSet);
begin
      if Tbl_Provincias.State = dsInsert then
      Begin
         Tbl_ProvinciasCodigo_Provincia.Value := Qry_IncrementaCodigoProvincia.Fields[0].AsInteger + 1;
         Qry_IncrementaCodigoProvincia.Close;
      end;   
end;