Private Sub FichaArtigos_AntesDeGravar(Cancel As Boolean)
    Dim strErros As String
    If (Base.AppOk = True) Then
        Set modRegrasDeArtigos.ObjUserInterfaceApp = New DEV_1_11_UserInterface.UserInterfaceApplication
        If modRegrasDeArtigos.ObjUserInterfaceApp.FichaDeArtigo_AntesDeGravar(Me.Artigo, Me.ArtigoIdiomas, strErros) = False Then
            PSO.Dialogos.MostraAviso "Ocorreram os seguintes erros: " & strErros & vbNewLine, PRI_Exclama
            Cancel = True
        End If
    End If

End Sub

Private Sub FichaArtigos_DepoisDeGravar(ByVal Artigo As String)
   Dim strErros As String
    If (Base.AppOk = True) Then
        Set modRegrasDeArtigos.ObjUserInterfaceApp = New DEV_1_11_UserInterface.UserInterfaceApplication
        If modRegrasDeArtigos.ObjUserInterfaceApp.FichaDeArtigo_DepoisDeGravar(Me.Artigo, Me.ArtigoIdiomas, strErros) = False Then
            PSO.Dialogos.MostraAviso "Ocorreram os seguintes erros: " & strErros & vbNewLine, PRI_Exclama
            Cancel = True
        End If
    End If
End Sub

Private Sub FichaArtigos_TeclaPressionada(KeyCode As Integer, Shift As Integer)
    Dim strErros As String

    If (Base.AppOk = True) Then

        Set modRegrasDeArtigos.ObjUserInterfaceApp = New DEV_1_11_UserInterface.UserInterfaceApplication

         If KeyCode = vbKeyF5 Then
            If modRegrasDeArtigos.ObjUserInterfaceApp.FichaArtigos_TeclaPressionada(Me.Artigo, strErros) = False Then
                PSO.Dialogos.MostraAviso "Ocorreram os seguintes erros: " & strErros & vbNewLine, PRI_Exclama
            Cancel = True
            End If
        End If
    End If
End Sub