diff --git a/PyME/Sistemas/WizardRegistro.aspx.vb b/PyME/Sistemas/WizardRegistro.aspx.vb
index a78e1faf7..dc434c17d 100644
--- a/PyME/Sistemas/WizardRegistro.aspx.vb
+++ b/PyME/Sistemas/WizardRegistro.aspx.vb
@@ -683,7 +683,7 @@ Partial Class Sistemas_WizardRegistro
             If Array.Length = 2 Then
                 Dim ObjPermisos As New ClsSisRoles()
                 ViewState("CveRol") = Array(0).ToEntero
-                If ObjPermisos.GetRolesModulos(Array(0).ToEntero, -1) Then
+                If ObjPermisos.GetRolesModulos(Array(0).ToEntero, -1, CvePlataforma:=1, CveEmpresa:=CveEmpresa) Then
                     GvPermisos.DataSource = ObjPermisos.DtResultados.FiltraParametros("AGRUPACION ='N'")
                 Else
                     GvPermisos.DataSource = Nothing