option strict on

Flotillas/RepLicencias.aspx.vb

@@ -39,11 +39,11 @@ Partial Class AF_RepLicencias
 
     Private Sub CargaDatos()
         Dim ObjAF As New ClsAF
-        Dim Finicial As String = ""
-        Dim FFinal As String = ""
+        Dim Finicial As Date
+        Dim FFinal As Date
 
-        Dim FiniciaVl As String = ""
-        Dim FFinalVl As String = ""
+        Dim FiniciaVl As Date
+        Dim FFinalVl As Date
 
         Try
 
@@ -53,8 +53,8 @@ Partial Class AF_RepLicencias
             FFinalVl = TxtFechaVF.Text.ToDateTime
 
         Catch ex As Exception
-            Finicial = "-1"
-            FFinal = "-1"
+            Finicial = MinFecha
+            FFinal = MaxFecha
         End Try
 
         If ObjAF.GetLicenciasRep(-1, -1, -1, Finicial, FFinal, FiniciaVl, FFinalVl, DdlDispositivo.SelectedValue.ToEntero, UsuarioActual.CveCliente) Then

Flotillas/RepPolizaSeguro.aspx.vb

@@ -80,7 +80,7 @@ Partial Class AF_RepPolizaSeguro
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
         Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
         Dim Filtros As String = $"<b>Filtros: </b> Fecha Expedicion:  {txtFechaEI.Text} y {txtFechaEF.Text}    Fecha Vencimiento: {txtFechaVI.Text} y {txtFechaVF.Text}"
-        If DdlDispositivo.SelectedValue > 0 Then
+        If DdlDispositivo.SelectedValue.ToEntero > 0 Then
             Filtros = Filtros & $" <b> Vehiculo:</b> {DdlDispositivo.SelectedItem.Text}"
         End If