firebird em rede dando erro primary_key
estou começando no firebird. quando mando gravar na tabela do servidor está tudo bem, agora quando roda o servidor e cliente ao mesmo tempo ta dando o erro de pk_primary key. meu código de gavação: mando através de uma sql pear o maior código e acrescentar mais um:

dmamiz.ibqmaxvenda.close;
dmamiz.ibqmaxvenda.sql.clear;
dmamiz.ibqmaxvenda.sql.add(´select max(codvenda) from venda´);
dmamiz.ibqmaxvenda.open;
codvenda:=dmamiz.ibqmaxvendamax.asinteger +1 ;
dmamiz.ibtvenda.append;
dmamiz.ibtvendacodvenda.asinteger:=codvenda;
dmamiz.ibtvenda.post;
dmamiz.ibtvenda.refresh;
dmamiz.ibtvenda.applyupdates;
dmamiz.ibtransaction1.commitretaining;
//esse aqui não adiantou, mais quando troquei para:
dmamiz.ibtransaction1.commit;
//funcionou mais tenho que abrir todas as tabelas e querys aí fica lento, será que errei aonde? o que fazer para gravar fisicamente os registros e pela rede o computador cliente acumular mais um no código da venda?

obs.: estou usando delphi 6 e firebird 1.5 e paleta ibx.

obrigado pela atenção