zeon
3/18/2005 4:29:00 PM
÷ÏÚÎÉË ÔÁËÏÊ ×ÏÐÒÏÓ:
íÏÖÎÏ ÌÉ × éÎÔÅÒâÅÊÚÅ ÄÉÎÁÍÉÞÅÓËÉ ÏÂÒÁÝÁÔØÓÑ Ë ÇÅÎÅÒÁÔÏÒÁÍ.
÷ÏÔ ÎÁÐÒÉÍÅÒ Ñ ÈÏÞÕ ÏÂÎÕÌÉÔØ ÏÐÒÅÄÅÌÅÎÎÙÊ ÓÐÉÓÏË ÇÅÎÅÒÁÔÏÒÏ×.
ñ ÎÅ ÚÎÁÀ ÜÔÏÔ ÓÐÉÓÏË É ÈÏÞÕ ×ÙÂÒÁÔØ ÅÇÏ Ó ÐÏÍÏÝØÀ ÏÐÒÅÄÅÌÅÎÎÏÇÏ
ËÒÉÔÅÒÉÑ(where rdb$generator_name between 'GEN_ST_H_NOM_DOC_0' AND
'GEN_ST_H_NOM_DOC_DARK_9').
ðÏÓÌÅ ÜÔÏÇÏ ÍÎÅ ÎÕÖÎÏ Ó ÜÔÉÍ ÓÐÉÓËÏÍ ÒÁÂÏÔÁÔØ.
÷ÏÔ ÔÕÔ É ×ÏÚÎÉËÁÅÔ ÐÒÏÂÌÅÍÍÁ.ëÁË ÜÔÏ ÓÄÅÌÁÔØ.
åÓÌÉ ÚÁÇÎÁÔØ ÄÁÎÎÙÅ ËÏÔÏÒÙÅ Ñ ×ÙÂÉÒÁÀ × ÐÅÒÅÍÅÎÎÕÀ É ÓÄÅÌÁÔØ ÐÁÒÁÍÅÔÒÉÞÅÓËÉÊ
ÚÁÐÒÏÓ, ÎÁ ÏÂÎÕÌÅÎÉÅ ÔÏ ÏÎÏ ÒÕÇÁÅÔØÓÑ.ôÏÅÓÔØ ÏÎÏ ÈÏÞÅÔ ËÏÎËÒÅÔÎÏÅ ÉÍÑ
ÇÅÎÅÒÁÔÏÒÁ ×
ÆÕÎËÃÉÉ gen_id().
÷ÏÔ ÔÅËÓÔ:
for select RDB$GENERATOR_NAME from RDB$GENERATORS
where rdb$generator_name between 'GEN_ST_H_NOM_DOC_0' AND
'GEN_ST_H_NOM_DOC_DARK_9'
into :GEN_NAME
do
begin
select gen_id(:GEN_NAME,0)from rdb$database
into :GEN;
select gen_id(:GEN_NAME,-:GEN)from rdb$database
into :GEN;
end
ðÏÄÓËÁÖÉÔÅ, ÅÓÌÉ ÚÎÁÅÔÅ.