Regra por processo 779 - Gravação provisão genérica

xDatRef = DatRef;

        xNumEmp = R034FUN.NUMEMP;

        xTipCol = R034FUN.TIPCOL;

        xNumCad = R034FUN.NUMCAD;

        xTipPrv = TipPrvAti;

 

        Se (vExecucaoRegra = 1)

        Inicio

                ExecSQL "UPDATE R146PRM SET USU_PRVOK = 'S' WHERE NUMEMP = :xNumEmp AND TIPCOL = :xTipCol AND NUMCAD = :xNumCad AND TIPPRV = xTipPrv AND MESANO = :xDatRef" ;

        Fim;