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

BEGIN_RECIEVE

Descriptions

Вызывается перед приёмом поколения данных с сервера. Переводит БД в состояние "приём данных".

Input Parameters

Output Parameters

There are no output parameters for procedure BEGIN_RECIEVE

Definition

CREATE PROCEDURE BEGIN_RECIEVE (
    A_SERV_ID INTEGER,
    A_SERV_GEN INTEGER)
AS
 DECLARE VARIABLE REPL_COUNT INTEGER;
 DECLARE VARIABLE COUNT_INPUT INTEGER;
 BEGIN
   /*====ASSERT(DEBUG)==============================================================*/
   SELECT COUNT( DB_ID ) FROM CURR_SERV INTO :REPL_COUNT;
   IF( REPL_COUNT <> 0 ) THEN EXCEPTION EINTERNAL_REPL_ALREADY_STARTED;/*В этой транзакции уже выполняется репликация*/
   /*--------------------------------------------------------------------------------*/
   /*IF( A_SERV_ID = 0 )THEN EXCEPTION EINTERNAL_DELETED_SERV;/*Попытка репликации с удал¸нным(deleted) сервером (см. CURR_DB_ID)*/
   /*================================================================================*
   /*Устанавливает состояние "при¸м данных" для сервера A_SERV_DBID.*/
   INSERT INTO CURR_SERV( DB_ID, GEN )  VALUES( :A_SERV_ID, :A_SERV_GEN );
   /*Временные таблицы должны быть пустыми в текущей транзакции*/
   SELECT COUNT(*) FROM DB_PROFILE_INPUT INTO :COUNT_INPUT;
   IF( COUNT_INPUT <> 0 ) THEN EXCEPTION EINTERNAL_INPUT_IS_NOT_EMPTY;
   /*=Scema specific================================================================*/
   SELECT COUNT(*) FROM MASTER_INPUT INTO :COUNT_INPUT;
   IF( COUNT_INPUT <> 0 ) THEN EXCEPTION EINTERNAL_INPUT_IS_NOT_EMPTY;
   /*-------------------------------------------------------------------------------*/
   SELECT COUNT(*) FROM DETAIL_INPUT INTO :COUNT_INPUT;
   IF( COUNT_INPUT <> 0 ) THEN EXCEPTION EINTERNAL_INPUT_IS_NOT_EMPTY;
   /*===============================================================================*/
 END

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