AUTONUMERICO
-----------------------------------------------------------------------
//tu conexion de PB debe tener
// Profile para @@identity que te beneficia para las inserciones, tambien en DW's
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.Database = "TuContenedor"
SQLCA.ServerName = "TuServidor"
SQLCA.LogId = "TuLogin"
SQLCA.Lock = "RC"
SQLCA.AutoCommit = True
SQLCA.DBParm = "AtAtIdentity=1" // esto indica que MS-SQL devuelve la ultima llave insertada con la variable @@identity del usuario actual(ignora otros usuarios)
//0 (Default) devuelve la ultima insercion SELECT MAX(IDENTCOL) FROM <table name> siempre que solo intervenga un usuario.
//1 Use the syntax SELECT @@identity. para 2 o mas usuarios
connect using sqlca;
-------------------------------------------------------------
//Al crea tu tabla define identity:
CREATE TABLE dbo.ca_calles (cve_calle_id int IDENTITY NOT NULL, nombre varchar(65) NULL, CONSTRAINT pk_cve_calle_id PRIMARY KEY NONCLUSTERED (cve_calle_id)) ;
---------------------------------------------------------------------------------
//pon esto en un boton
long ll_clave
INSERT INTO ca_calles (nombre ) VALUES ('avenida');
SELECT @@identity INTO :ll_clave FROM dummy;
mesagebox('ultima clave insertada',ll_clave)
INSERT INTO ca_calles (nombre ) VALUES ('callejon');
SELECT @@identity INTO :ll_clave FROM dummy;
mesagebox('ultima clave insertada',ll_clave)
INSERT INTO ca_calles (nombre ) VALUES ('calzada');
SELECT @@identity INTO :ll_clave FROM dummy;
mesagebox('ultima clave insertada',ll_clave)
espero te sirva
atte.
Victor //:-)