[[Chris]]

Hola Martín!

Este tema se ha discutido muchas veces acá en el club. Lo que necesitas hacer es averiguar el último ID generado. Hay varias técnicas para hacer esto. Mi preferida es utilizar la clausula RETURNING de SQL. Lamentablemente ésta está disponible a partir de la versión 2.1 de Firebird. Si tienes una anterior no podrás utilizar el código que te proporcionaré a continuación:

Código Delphi [-]
if MessageDlg('¿Confirma el alta de la licencia?',mtConfirmation,mbYesNo,0) = mrYes then
begin
    with Dm.InasistenciasSQL do
    begin
        SQL.Text := 
            'insert into licencias (tipo, FaltaJust, Observaciones) ' +
            'values (:tipo, :faltajust, bservaciones) returning IDAgente';
        
        ParamByName('tipo').AsString := CTipo.Items.Strings[CTipo.ItemIndex];
        ParamByName('FaltaJust').AsInteger := StrToInt(DBEdit1.Text);
        ParamByName('Observaciones').AsString := DBEdit2.Text;
        
        ExecSql;
        
        CodigoAgente := FieldByName('IDAgente').AsInteger; // CodigoAgente es una variable
    end;
    
    // agregar el registro de licencia utilizando el valor de CodigoAgente.
    
    // ...
    
end;

Hay otra técnica que consiste en reservarse de antemano un código dado por el generador. Ese código luego lo utilizas en tu código al agregar nuevos registros. Ten en cuenta que esta técnica solo se aplica en el caso que no es necesario que la consecución de números IDs sea integra. Para obtener un valor de un generador utiliza la clausula GEN_ID de Firebird. Por ejemplo:

Código Delphi [-]
if MessageDlg('¿Confirma el alta de la licencia?',mtConfirmation,mbYesNo,0) = mrYes then
 Begin
    Dm.ObtenerIDQuery.SQL.Text = 'SELECT GEN_ID(GEN_ASISTENCIAS, 1) from RDB$DATABASE;';
    Dm.ObtenerIDQuery.ExecSql;
    CodigoAgente := Dm.ObtenerIDQuery.FieldByName('GEN_ID').AsInteger;
    // Ahora CodigoAgente contiene un número único que acaba de ser reservado.
    
    Dm.Inasistencias.FieldByName('IDAgente').AsInteger := CodigoAgente;
    Dm.Inasistencias.FieldByName('tipo').AsString := CTipo.Items.Strings[CTipo.ItemIndex];
    Dm.Inasistencias.FieldByName('FaltaJust').AsInteger := StrToInt(DBEdit1.Text);
    Dm.Inasistencias.FieldByName('Observaciones').AsString := DBEdit2.Text;
    // Las tres lineas siguientes son a modo de desesperacion para ver si me da el bendito ID que genero  
    Dm.Inasistencias.Post;                   
    
    ShowMessage(Dm.Inasistencias.FieldByName('Id').AsString);  // muestra vacio
    Dm.Licencia.FieldByName('IDAGENTE').AsInteger := CodigoAgente;
    Dm.Licencia.FieldByName('IDInasistencia').AsInteger := Dm.Inasistencias.FieldByName('ID').AsInteger;
    Dm.Licencia.FieldByName('Fecha').AsDateTime := Fsolic.DateTime;
    Dm.Licencia.FieldByName('FDesde').AsDateTime := Fdesde.DateTime;
    Dm.Licencia.FieldByName('FHAsta').AsDateTime := FHasta.DateTime;
    Dm.Licencia.Post;

    Dm.Transaccion.CommitRetaining;
end;

Saludos!