Fórum auto incremento com params #276132

CREATE TABLE "SENHA" 
(
  "ID"INTEGER NOT NULL,
  "CODIGO"VARCHAR(7),
  "TEMPO"TIME,
  "USUARIO"VARCHAR(12),
  "DATA"DATE,
  "HORA"TIME,
  "VENDEDOR"VARCHAR(20),
  "CODVENDEDOR"CHAR(4),
  "VALOR"NUMERIC(10, 2),
 PRIMARY KEY ("ID")
);

////O generator

CREATE GENERATOR "GENSENHA";

////A trigger

SET TERM ^ ;

CREATE TRIGGER "TRIGSENHA" FOR "SENHA" 
ACTIVE BEFORE INSERT POSITION 0
AS
begin
if (new.id is null) then new.id = gen_id (gensenha,1);
end
 ^

COMMIT WORK ^
SET TERM ;^

with dm.qsenha do
begin
  close;
  sql.Clear;
  sql.add(´insert into senha (CODIGO, CODVENDEDOR, DATA, HORA, ID, TEMPO, USUARIO, VALOR, VENDEDOR)´);
  sql.Add(´values (:CODIGO, :CODVENDEDOR, :DATA, :HORA, :ID, :TEMPO, :USUARIO, :VALOR, :VENDEDOR)´);
  params[0].asstring := label6.Caption;
  params[1].asstring := frmshservidor.coduser;
  params[2].asdate := date;
  params[3].AsTime := time;
  params[4].asinteger := 0;
  params[5].astime := strtotime(copy(combobox1.text,1,5));
  params[6].asstring := label5.Caption;
  params[7].asfloat := strtofloat(val);
  params[8].asstring := frmshservidor.usuario;
  execsql;
  dm.IBTransaction1.CommitRetaining;