Option Explicit

Private Sub ProcessamentoAutomatico_AntesDeGravar(Cancelar As Boolean, NaoExecutaRecalculo As Boolean)
    If TrataReducaoRemuneratoria2014(Me.DadosProcessamento) Then
        NaoExecutaRecalculo = False
    Else
        Cancelar = True
    End If
End Sub

