Dim qSetContext
  Set qSetContext = Creator.GetObject(Null, "TIBSQL", "")
  qSetContext.Transaction = RemoteTransaction
  qSetContext.SQL.Text = _
    "SELECT RDB$SET_CONTEXT('USER_TRANSACTION', 'SYNCHRTYPE', 1) " & vbCrLf & _
    "FROM RDB$DATABASE "
  qSetContext.ExecQuery

  ...
  RemoteTransaction.Commit
  RemoteTransaction.StartTransaction

  qSetContext.Close
  qSetContext.ExecQuery

  qChange.Transaction = RemoteTransaction '''транзакция баз на сервере
  qChange.Close
  qChange.ParamByName("DB").AsString = DBName  ''' Путь к клиентской(текущей) БД
  qChange.ExecQuery

EXECUTE BLOCK(
  DB VARCHAR(255) = :DB)
AS
DECLARE VARIABLE ERRNO INTEGER;
DECLARE VARIABLE ERRDESCRIPTION VARCHAR(1024);
DECLARE VARIABLE OperationType SMALLINT;
DECLARE VARIABLE LOGID INTEGER;
DECLARE VARIABLE ID TYPE OF COLUMN GD_PLACE.ID;
DECLARE VARIABLE ID_XID INTEGER;
DECLARE VARIABLE ID_DBID INTEGER;
DECLARE VARIABLE PARENT TYPE OF COLUMN GD_PLACE.PARENT;
DECLARE VARIABLE PARENT_XID INTEGER;
DECLARE VARIABLE PARENT_DBID INTEGER;
DECLARE VARIABLE NAME TYPE OF COLUMN GD_PLACE.NAME;
DECLARE VARIABLE PLACETYPE TYPE OF COLUMN GD_PLACE.PLACETYPE;
BEGIN
  FOR
  EXECUTE STATEMENT
    ('SELECT  l.ID, l.USR$OPERATIONTYPE, ID_RUID.XID AS ID_XID, ID_RUID.DBID AS ID_DBID , PARENT_RUID.XID AS PARENT_XID, PARENT_RUID.DBID AS PARENT_DBID, z.NAME, z.PLACETYPE
     FROM
       USR$MN_LOGSYNCHR l
       JOIN USR$TABLES_FOR_SYNCHRONIZATION tfs ON tfs.USR$RANK = l.USR$OBJECTTYPE
       JOIN USR$MN_FRONT f ON f.ID = l.USR$FRONTKEY
       LEFT JOIN GD_P_GETRUID(l.USR$OBJECTKEY) ID_RUID ON 1 = 1
       LEFT JOIN GD_PLACE z ON l.USR$OBJECTKEY = z.ID
       LEFT JOIN GD_P_GETRUID(z.PARENT) PARENT_RUID ON 1 = 1
     WHERE
       l.USR$OBJECTTYPE = 1 AND l.USR$OPERATIONTYPE IN (0,1,2,3)
        AND COALESCE(tfs.USR$ISSYNCHR, 0) = 1  AND  COALESCE(l.USR$MN_SYNCHRTYPE, 0) = 1  AND  (UPPER(f.USR$NAME) = UPPER(:FRONT_NAME))
     ORDER BY l.USR$OBJECTTYPE, l.USR$NUMBER')
(FRONT_NAME := 'front_ABK')
  ON EXTERNAL :DB
  AS USER 'SYSDBA' PASSWORD 'masterke'
  WITH COMMON TRANSACTION
  INTO  :LOGID, :OperationType, :ID_XID, :ID_DBID , :PARENT_XID, :PARENT_DBID, :NAME, :PLACETYPE
  DO
  BEGIN WHILE (1=1) DO BEGIN
    ID = NULL;
    ERRNO = NULL;

    IF (ID_XID < 147000000 AND ID_DBID = 17) THEN
      EXECUTE PROCEDURE USR$GD_P_GETID_NULL(:ID_XID, :ID_DBID) RETURNING_VALUES :ID;
    ELSE
      SELECT
        z.ID
      FROM GD_PLACE z
      JOIN GD_RUID r ON r.ID = z.ID
      WHERE
        r.XID = :ID_XID AND r.DBID = :ID_DBID
      INTO :ID;

    IF (OperationType = 3) THEN
    BEGIN
      DELETE FROM GD_PLACE WHERE ID = :ID;
      LEAVE;
    END

    EXECUTE PROCEDURE USR$GD_P_GETID_NULL(:PARENT_XID, :PARENT_DBID) RETURNING_VALUES :PARENT;
     IF (ID IS NULL) THEN
    BEGIN
       ID = GEN_ID(gd_g_unique, 1) + GEN_ID(gd_g_offset, 0);

      INSERT INTO GD_PLACE(ID, PARENT, NAME, PLACETYPE)
      VALUES(:ID, :PARENT, :NAME, :PLACETYPE);

      EXECUTE PROCEDURE USR$SYNCHR_RUID(:ID, :ID_XID, :ID_DBID);
    END
    ELSE
      UPDATE GD_PLACE
      SET PARENT = :PARENT, NAME = :NAME, PLACETYPE = :PLACETYPE
      WHERE ID = :ID;
    LEAVE;

    /*&#206;&#225;&#240;&#224;&#225;&#238;&#242;&#247;&#232;&#234; &#232;&#241;&#234;&#235;&#254;&#247;&#229;&#237;&#232;&#233;*/
    WHEN ANY DO
    BEGIN
      ERRNO = sqlcode;
      ERRDESCRIPTION = '&#207;&#240;&#238;&#232;&#231;&#238;&#248;&#235;&#224; &#238;&#248;&#232;&#225;&#234;&#224;. &#202;&#238;&#228;: ' || ERRNO;
      LEAVE;
    END
  END
  IF (ERRNO IS NOT NULL) THEN
    EXECUTE STATEMENT
      'UPDATE USR$MN_LOGSYNCHR SET USR$ERRORDESCRIPTION = ''' || ERRDESCRIPTION || ''' WHERE ID = ' || LOGID
    ON EXTERNAL :DB
    AS USER 'SYSDBA' PASSWORD 'masterke'
    WITH COMMON TRANSACTION;
  ELSE
    EXECUTE STATEMENT
      'EXECUTE BLOCK
       AS
       BEGIN

         DELETE FROM USR$MN_LOGSYNCHR l WHERE l.ID = ' || LOGID || ';
       END'
    ON EXTERNAL :DB
    AS USER 'SYSDBA' PASSWORD 'masterke'
    WITH COMMON TRANSACTION;
  END
END

qChange.ParamByName("DB").AsString = DBName