Código SQL [-]datos.modulodb.proce.ExecProc; datos.modulodb.Cliente_Maestro.FieldByName('id').AsInteger := datos.modulodb.PROCE.ParamByName('CODD3').AsInteger;
datos.modulodb.proce.ExecProc; datos.modulodb.Cliente_Maestro.FieldByName('id').AsInteger := datos.modulodb.PROCE.ParamByName('CODD3').AsInteger;
Código SQL [-]CREATE PROCEDURE NUEVO RETURNS( CODD3 INTEGER) AS BEGIN CODD3=GEN_ID(MAESTRO_ID_GEN,1); SUSPEND; END
CREATE PROCEDURE NUEVO RETURNS( CODD3 INTEGER) AS BEGIN CODD3=GEN_ID(MAESTRO_ID_GEN,1); SUSPEND; END