"D:\Replicator_1_beta\Client\TEMPLATE.GDB"

END_RECIEVE

Descriptions

Вызывается после приёма поколения данных с сервера. Отключает состояние "приём данных"

Input Parameters

There are no input parameters for procedure END_RECIEVE

Output Parameters

There are no output parameters for procedure END_RECIEVE

Definition

CREATE PROCEDURE END_RECIEVE 
AS
 DECLARE VARIABLE REPL_COUNT INTEGER;
 DECLARE VARIABLE SERV_ID    INTEGER;
 DECLARE VARIABLE SERV_GEN   INTEGER;
 BEGIN
   /*=====ASSERT(DEBUG)====================================*/
   SELECT COUNT( DB_ID ) FROM CURR_SERV INTO :REPL_COUNT;
   IF( REPL_COUNT =  0 )THEN EXCEPTION EINTERNAL_NO_REPLS;/*В этой транзакции не выполняется репликация*/
   IF( REPL_COUNT <> 1 )THEN EXCEPTION EINTERNAL_NOT_SINGLE_REPL;/*В этой транзакции уже выполняется не одна репликация*/
   /*======================================================*/
   SELECT DB_ID, GEN FROM CURR_SERV INTO :SERV_ID, SERV_GEN;
   /**/
   UPDATE DB_PROFILE
     SET   SERV_GEN = :SERV_GEN
     WHERE DB_ID =    :SERV_ID;
   /*Удалить данные, видимые в текущей транзакции*/
   DELETE FROM DB_PROFILE_INPUT;
   /*Выйти из режима репликации*/
   DELETE FROM CURR_SERV;
   /*=Scema specific========*/
   DELETE FROM MASTER_INPUT;
   DELETE FROM DETAIL_INPUT;
   /*=======================*/
 END

This file was generated with EMS InterBase/FireBird Manager (www.ibmanager.com) at 11/13/2006 10:51 PM