Valores previos únicos en controles data-aware

[[eduarcol]]

En lugar de ejecutar un procedimiento lee el generador por medio de un select, y en el evento de OnNewRecord lo lees en un query.

[gorsan]

Gracias por la respuesta. ¿Me puedes indicar como?

[[eduarcol]]

ejecuta esta sentencia desde el query

Código SQL [-]
select GEN_ID(MiGenerador, 1) as Correlativo from rdb$database;

[gorsan]

No funciona.
He metido la sentencia que me dices dentro del query, en concreto, dentro de la propiedad SQL del mismo y este query se ejecuta en el evento OnNewRecord pero no sale nada en el control DBEdit.Text correspondiente. Sale una vez que le doy al boton guardar. Otra pega es que de esta forma solo aparece en la propiedad text del DBEdit el numero correlativo del generador y me gustaria que fuera una combinacion de el generador con un texto, por ejemplo No_Ip_10 o similar.

[cloayza]

Creo que esta es una posible solucion:

Crear procedimiento que devuelva los valores que necesito.

Código SQL [-]
CREATE PROCEDURE GET_INITIAL_VALUES
RETURNS(ID_DOMINIO AS INTEGER, 
             IP AS INTEGER,
            RACK AS INTEGER, 
            LP_SIP_ACTUAL AS INTEGER)
AS
BEGIN
       ID_DOMINIO=GEN_ID(CONTADOR_PARA_ID_DOMINIO_EN_CPU,1),
       IP             =GEN_ID(CONTADOR_PARA_IP_EN_CPU,1),
       RACK         =GEN_ID(CONTADOR_PARA_RACK_EN_CPU,1),
       LP_SIP_ACTUAL=GEN_ID(CONTADOR_PARA_IMP_EN_CPU,1);
    
      suspend;
END

Código Delphi [-]
procedure TDMCpu.IBCpuNewRecord(DataSet: TDataSet);
begin
     IBStoredProc1.StoreProcName:='GET_INITIAL_VALUES';
     IBStoredProc1.Prepare;
     IBStoredProc1.Open;
       IBCpu.FieldByName('ID_DOMINIO').AsInteger:=IBSQLValores_Iniciales.FieldByName('ID_DOMINIO').AsIntege  r;
IBCpu.FieldByName('IP').AsInteger:=IBSQLValores_Iniciales.FieldByName('IP').AsInteger;
IBCpu.FieldByName('RACK').AsInteger:=IBSQLValores_Iniciales.FieldByName('RACK').AsInteger;
IBCpu.FieldByName('LP_SIP_ACTUAL').AsInteger:=IBSQLValores_Iniciales.FieldByName('LP_SIP_ACTUAL').As  Integer;
     IBSQLValores_Iniciales.Close;
end;

Espero te sirva...
Saludos desde
Concepcion-Chile

[gorsan]

Ante todo gracias por la respuesta a Cloayza.
No entiendo bien el método. De lo que dices se deduce que hay tres componenetes: un IBDataSet que es IBCpu, un IBStoredProc y un IBSQL.
Con el IBStoredProc abres el procedimiento GET_INITIAL_VALUES que devuelve los cuatro valores iniciales pero no entiendo bien la funcion de IBSQLValores_iniciales. ¿que ejecuto con el? ¿lo cierras pero no lo abres? Y sobre todo ¿como uso los valores que devuelve el IBStoredProc?
¿Podrias ser un poco mas explicito por favor?

[gorsan]

Ok. La cosa ha quedado solucionada, gracias al metodo que me proporciono Cloayza. Muchas gracias a todos por la ayuda.