CREATE OR ALTER TRIGGER TTBNFS_ITEM_B09IU FOR TBNFS_ITEM
ACTIVE BEFORE INSERT OR UPDATE POSITION 8
AS
DECLARE VARIABLE VALOR_DESCONTO_PEDIDO NUMERIC(15,2);
DECLARE VARIABLE VALOR_DESCONTO_PC NUMERIC(15,2);
DECLARE VARIABLE QUANTIDADE_PEDIDO NUMERIC(15,5);
BEGIN
    IF(NEW.PEDIDO_ITEM_PE_CONTROLE > 0) THEN
    BEGIN
        SELECT FIRST 1
            FN_CALC_PRECISION_V2(FN_CALC_PRECISION_V2(T.VALOR_TOTAL, T.PERCENTUAL_DESCONTO,'*',2),100,'/',2),
            T.QUANTIDADE
        FROM TBPEDIDO_ITEM T
        WHERE T.PEDIDO = NEW.PEDIDO
        AND T.CONTROLE = NEW.PEDIDO_ITEM_PE_CONTROLE
        INTO :VALOR_DESCONTO_PEDIDO, :QUANTIDADE_PEDIDO;

        :VALOR_DESCONTO_PC          = FN_CALC_PRECISION_V2(:VALOR_DESCONTO_PEDIDO, :QUANTIDADE_PEDIDO, '/', 2);

        NEW.VALOR_DESCONTO_ORIGINAL =  FN_CALC_PRECISION_V2(:VALOR_DESCONTO_PC, NEW.QUANTIDADE, '*', 2);


    END
END;

