[SQL]
@PAR ?@S5|haslo|Podaj hasło: @? @TIP(hasło) @U() PAR@

SET NOCOUNT ON  
Set ArithAbort On

if ??haslo = 'ABC' begin


IF EXISTS (SELECT * FROM cdn.tranag where trn_trnid = (select rpz2_gidnumer from cdn.rptzaznaczenia2) and trn_bufor = -1 and trn_anulowany < 0)
BEGIN
update cdn.tranag 
set trn_numernr=999999 
where trn_trnid = (select rpz2_gidnumer from cdn.rptzaznaczenia2) and trn_bufor = -1
update cdn.tranag  
set trn_bufor=1
where trn_trnid = (select rpz2_gidnumer from cdn.rptzaznaczenia2)

END
ELSE 
BEGIN    
 RAISERROR('Nie mozna wykonać tej operacji na nie anulowanym dokumencie', 12, 1) 
ROLLBACK TRAN          
SET NOCOUNT OFF          
RETURN
END

END
ELSE 
BEGIN    
 RAISERROR('Błędnie hasło', 12, 1)
ROLLBACK TRAN          
SET NOCOUNT OFF          
RETURN
 END
set nocount off;
[XSL]