Vamos a ver.
Yo lo resolvi este problema de la Siguiente Manera
1° Tenia que crear un SP donde obtendria el codigo siguiente a grabar, es decir,
CREATE PROCEDURE CODIGO_SIGUIENTE
RETURNS (
NUEVO_CODI_CLIE VARCHAR(10))
AS
begin
NUEVO_CODI_CLIE='CLI' || CAST(gen_id(codi_gener,0)+1 AS VARCHAR(7));
suspend;
end
2. En delphi agrege Un IBQuery y Un DataSource
3. En la propiedad SQL del IBQUERY escribi : Select * from CODIGO_SIGUIENTE
4. En la Propiedad DATASET del DATASOURCE coloque IBQuery1
5. Ahora en el Objeto TBEDIT en su propiedad DATASOURCE escribi DATASOURCE1
6. y por ultimo en el Objeto TBEDIT en su propiedad DATAFIELD coloque: NUEVO_CODI_CLIE (que es el valor que retorna el SP).
Espero que te sirva.
Es obvio que para esto tienes que tener : IBDATABASE, IBTRANSACTION, y ver que haya conexion con Firebir
SALudos a TOdos
|