<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18975">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial>Estoy tratando que ingresar datos directamente sobre un
grid, pero me da error el cual me dice que la llave primaría es requerida pero
realmente yo la lleno en el tigger por lo que no debería dar ese error, es más
si lo mando a ejecutar en consola funciona perfecto al igual que desde otros
lenguajes de programación, solo en Lazarus es donde estoy enredado.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>uso Firebird, TIBConnection, TSQLTransaction, TSQLQuery,
TDataSource y TDBGrid</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Tengo las siguientes propiedades:</FONT></DIV>
<DIV><FONT face=Arial>InsertSQL := execute procedure pi_scorg(:NEW_nombre)
</FONT></DIV>
<DIV><FONT face=Arial>DeleteSQL := execute procedure
pd_scorg(:OLD_idorg)</FONT></DIV>
<DIV><FONT face=Arial>UpdateSQL := execute procedure pu_scorg(:OLD_idorg,
:NEW_nombre)</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>El procedimiento pi_scorg como:</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>DECLARE VARIABLE INT_ID INTEGER; <BR>BEGIN<BR> /*
Procedimiento para agregar los organismos */<BR> select a.idorg from scorg
a where (a.nombre = :vch_nombre) into :int_id;<BR> if (int_id is null)
then<BR> insert into scorg (nombre) values
(:vch_nombre);<BR> else<BR> exception
e_org_e;<BR>END</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Y un tigger Before Insert como:</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial> if (new.idorg is null)
then<BR> new.idorg = gen_id(gen_scorg_id,
1); </FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Saludos</FONT></DIV>
<DIV><FONT face=Arial>=========<BR>|| ISMAEL
||<BR>=========</FONT></DIV></BODY></HTML>