-- extension tobool

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

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()