option strict on

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -1,11 +1,11 @@
-Imports System.Data
+Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
 Partial Class RepNotasSinAlmacen
-    Inherits ClsPaginas
+    Inherits ClsPaginas
 #Region "propiedades"
-
+
     Private Property dt As DataTable
         Get
             Try
@@ -27,19 +27,19 @@ Partial Class RepNotasSinAlmacen
             ViewState("dtReporte") = value
         End Set
     End Property
-    Public Property FechaInicial As String
+    Public Property FechaInicial As Date
         Get
-            Return ViewState("FechaInicial").ToString
+            Return ViewState("FechaInicial").ToString.ToDate
         End Get
-        Set(value As String)
+        Set(value As Date)
             ViewState("FechaInicial") = value
         End Set
     End Property
-    Public Property FechaFinal As String
+    Public Property FechaFinal As Date
         Get
-            Return ViewState("FechaFinal").ToString
+            Return ViewState("FechaFinal").ToString.ToDate
         End Get
-        Set(value As String)
+        Set(value As Date)
             ViewState("FechaFinal") = value
         End Set
     End Property
@@ -250,8 +250,8 @@ Partial Class RepNotasSinAlmacen
         params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString()))
-        params.Add(New ReportParameter("FechaInicio", FechaInicial))
-        params.Add(New ReportParameter("FechaFin", FechaFinal))
+        params.Add(New ReportParameter("FechaInicio", FechaInicial.ToShortDateString))
+        params.Add(New ReportParameter("FechaFin", FechaFinal.ToShortDateString))
 
         params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         If Tab.ActiveTabIndex = 0 Then