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

SET_NEW_GEN

Descriptions

Вызывается фоновым процессом. Устанавливает новое поколение. Устанавливет поколение вставки и изменения/удаления если они были установлены NULL. Одновременно может быть запущена только одна процедура SET_NEW_GEN

Input Parameters

There are no input parameters for procedure SET_NEW_GEN

Output Parameters

There are no output parameters for procedure SET_NEW_GEN

Definition

CREATE PROCEDURE SET_NEW_GEN 
AS
DECLARE VARIABLE COUNT_LOG_DB_ID INTEGER;
DECLARE VARIABLE DUMMY_VAL INTEGER;
BEGIN
  /*----------------------------------------------------------------------*/
  SELECT GEN_ID( GEN_GENERATION, 1 ) FROM DUMMY INTO :DUMMY_VAL;/*Новое поколение*/
  /*-----------------------------------------------------*/
  EXECUTE PROCEDURE INSERT_GLOBAL_VARS; /*Вставить запись если е¸ нет*/
  /*-----------------------------------------------------*/
  UPDATE GLOBAL_VARS
    SET CURR_GEN = GEN_ID( GEN_GENERATION, 0 );
  /*-----------------------------------------------------*/
  UPDATE DB_PROFILE
    SET SERV_GEN = GEN_ID( GEN_GENERATION, 0 )
    WHERE IS_CURR = 1;
  /*-----------------------------------------------------*/
  UPDATE LOG_DB_PROFILE
    SET   LOG_UPD_GEN = GEN_ID( GEN_GENERATION, 0 )
    WHERE LOG_UPD_GEN IS NULL;
  /**/
  UPDATE LOG_DB_PROFILE
    SET   LOG_INS_GEN = GEN_ID( GEN_GENERATION, 0 )
    WHERE LOG_INS_GEN IS NULL;
  /*=====SCEMA SPECIFIC==================================*/
  UPDATE LOG_MASTER
    SET   LOG_UPD_GEN = GEN_ID( GEN_GENERATION, 0 )
    WHERE LOG_UPD_GEN IS NULL;
  /**/
  UPDATE LOG_MASTER
    SET   LOG_INS_GEN = GEN_ID( GEN_GENERATION, 0 )
    WHERE LOG_INS_GEN IS NULL;
  /*-----------------------------------------------------*/
  UPDATE LOG_DETAIL
    SET   LOG_UPD_GEN = GEN_ID( GEN_GENERATION, 0 )
    WHERE LOG_UPD_GEN IS NULL;
  /**/
  UPDATE LOG_DETAIL
    SET   LOG_INS_GEN = GEN_ID( GEN_GENERATION, 0 )
    WHERE LOG_INS_GEN IS NULL;
  /*=====================================================*/
END

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