error bounds (0)

[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;