diff --git a/Sistemas/PopUpCambiaUsuario.aspx.vb b/Sistemas/PopUpCambiaUsuario.aspx.vb
index a61a65fbe..bb47e1129 100644
--- a/Sistemas/PopUpCambiaUsuario.aspx.vb
+++ b/Sistemas/PopUpCambiaUsuario.aspx.vb
@@ -64,7 +64,7 @@ Partial Class Sistemas_PopUpCambiaUsuario
End Select
End If
If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
- CveEmpresa = 158
+ CveEmpresa = "158"
End If
DdlEmpresa.DataBind()
DdlEmpresa.SelectedValue = CveEmpresa
diff --git a/Sistemas/RolesDetalle.aspx.vb b/Sistemas/RolesDetalle.aspx.vb
index 63516d550..4e97f18c2 100644
--- a/Sistemas/RolesDetalle.aspx.vb
+++ b/Sistemas/RolesDetalle.aspx.vb
@@ -1,7 +1,4 @@
-Option Explicit On
-Option Strict On
-
-Imports System.Data
+Imports System.Data
Imports System.Drawing
Imports Extensiones
Imports Microsoft.Reporting.WebForms