diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 120c31636..47a330307 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -788,6 +788,15 @@ Namespace Extensiones
             DateTime.TryParseExact(Str, format, System.Globalization.CultureInfo.InvariantCulture, System.Globalization.DateTimeStyles.None, fecha)
             Return fecha
         End Function
+        <Runtime.CompilerServices.Extension()>
+        Public Function ToBool(Str As String) As Boolean
+            If Str <> "" Then
+                Str = HttpUtility.HtmlDecode(Str).Trim
+                Return CBool(Str)
+            Else
+                Return False
+            End If
+        End Function
 
         <Runtime.CompilerServices.Extension()>
         Public Function FormatoNumero(Str As String, Optional Decimales As Integer = 2) As String
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index f264985cc..008c30c2e 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -1,10 +1,7 @@
 Option Explicit On
 Option Strict On
 Imports System.Data
-Imports ADSNetLibrary.Helpers
-Imports ADSNetLibrary.SIGAPI.Helpers
 Imports Extensiones
-Imports Extensiones.ModExtensiones
 Imports Microsoft.Reporting.WebForms
 
 Partial Class RepContratoDetalle
@@ -132,7 +129,7 @@ Partial Class RepContratoDetalle
         LbEstatus.Text = GvRow.DataKey("Estatus").ToString()
         LbCreado.Text = GvRow.DataKey("FechaIng").ToString()
         TxtAsiento.Text = GvRow.DataKey("Asiento").ToString()
-        Dim Estatus As Boolean = Not LbEstatus.Text.ToBool
+        Dim Estatus As Boolean = Not CBool(LbEstatus.Text)
         Dim ObjTransportes As New ClsTransportes
         Try
             ObjTransportes.IniciaTransacSQL()