SET TERM !!;
CREATE PROCEDURE GetUPDFirm (PRECF Integer, PFNAZVANIE CHAR(40),
PFGOROD CHAR(20))
AS
DECLARE Variable VRECF integer;
DECLARE Variable VFNAZVANIE Char(40);
DECLARE Variable VFGOROD CHAR (20);
BEGIN
VRECF = :PRECF;
VFNAZVANIE = :PFNAZVANIE;
VFGOROD = :PFGOROD;
UPDATE FIRMS
set FNAZVANIE=:VFNAZVANIE,FGOROD=:VFGOROD
WHERE RECF=:VRECF;
EXIT;
END!!
SET TERM ;!!


в общем это так, просто по ходу дела придумал ... ежили чаго spl_shadow@mail.ru пишите, мож чаго еще вспомню.