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

SET_CLIENT_GEN

Descriptions

Вызывается клиентом. Установливает поколение клиента на сервере (что клиент знает о сервере). Изменяет таблицу CLIENT

Input Parameters

Output Parameters

There are no output parameters for procedure SET_CLIENT_GEN

Definition

CREATE PROCEDURE SET_CLIENT_GEN (
    A_CLIENT_DB_ID INTEGER,
    A_CLIENT_SERV_GEN INTEGER)
AS
/* Перед полу÷ением о÷ередного поколения записей клиент сообщает об этом серверу
*  Поколение клиента используется для о÷истки логов от информации об удал¸нных записях
*/
DECLARE VARIABLE CLIENT_COUNT INTEGER;
BEGIN
  SELECT COUNT(*) FROM CLIENT WHERE DB_ID = :A_CLIENT_DB_ID INTO :CLIENT_COUNT;
  IF( CLIENT_COUNT = 0 )THEN INSERT INTO CLIENT( DB_ID, GEN ) VALUES( :A_CLIENT_DB_ID, :A_CLIENT_SERV_GEN );
  ELSE UPDATE CLIENT SET GEN = :A_CLIENT_SERV_GEN WHERE DB_ID = :A_CLIENT_DB_ID;
END

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