1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| CREATE TRIGGER RefDocEntete ON [dbo].[F_DOCLIGNE]
AFTER INSERT
AS
DECLARE @Piece CHAR(9),@Ref CHAR(17),@ligne Char(7),@Type Integer,@RefEntete CHAR(25),@Long Integer,@NumS Char(1),@Num Integer,@Essai CHAR(1)
SELECT @Type = DO_Type FROM inserted
IF @Type=1
BEGIN
SELECT @Piece = DO_Piece,@ligne=DL_Ligne FROM inserted
SELECT @Ref=DO_Ref FROM F_DOCENTETE WHERE DO_Piece=@Piece
SET @Long=LEN(@Ref)
SET @RefEntete=substring(@Ref,1,@Long-1)
SET @NumS=substring(@ligne,1,1)
SET @Num=@NumS
SET @Num=@Num+1
SET @NumS=CHAR(@Num)
SET @RefEntete=@RefEntete + @NumS
Raiserror(@NumS,16,1)
UPDATE F_DOCENTETE SET DO_Ref=@RefEntete WHERE DO_Piece=@Piece
END |
Partager