-- option strict on

Acumuladores/EntradasUsadosResumenRep.aspx.vb

@@ -22,8 +22,8 @@ Partial Class Acumuladores_RepEntradasUsados
 
     Protected Sub Page_Load() Handles Me.Load
         If Not IsPostBack Then
-            txtFechaI.Text = Today.AddDays((-1) * (Today.Day - 1))
-            txtFechaF.Text = Today
+            txtFechaI.Text = Today.AddDays((-1) * (Today.Day - 1)).ToShortDateString
+            txtFechaF.Text = Today.ToShortDateString
             CargarDatos()
             CargarCombos()
         End If
@@ -40,14 +40,14 @@ Partial Class Acumuladores_RepEntradasUsados
         Dim i As Integer
         If Cargado = 0 Then
             For i = Date.Now.Year.ToEntero To (fecha.Year.ToEntero - 5) Step -1
-                Años = New ListItem(i, i)
+                Años = New ListItem(i.ToString, i.ToString)
                 DdlAño.Items.Add(Años)
             Next
         End If
         Cargado = 1
 
-        DdlAño.SelectedValue = fecha.Year.ToEntero
-        DdlMes.SelectedValue = fecha.Month.ToEntero
+        DdlAño.SelectedValue = fecha.Year.ToString
+        DdlMes.SelectedValue = fecha.Month.ToString
     End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
@@ -55,7 +55,7 @@ Partial Class Acumuladores_RepEntradasUsados
 
         BtnImprimir.Visible = False
 
-        If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then
+        If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate) Then
             GvAcum.DataSource = ObjAcum.DtResultados
             DatosEntradasUsados = ObjAcum.DtResultados
 
@@ -115,10 +115,10 @@ Partial Class Acumuladores_RepEntradasUsados
         Dim dt As DataTable
         Dim NombreArchivo As String
         Try
-            If DdlOpcion.SelectedValue = 1 Then
+            If DdlOpcion.SelectedValue = "1" Then
                 ObjAcum.GetSabanaVenta(Fecha, 1, UsuarioActual.CveEmpresa)
 
-            ElseIf DdlOpcion.SelectedValue = 2 Then
+            ElseIf DdlOpcion.SelectedValue = "2" Then
                 ObjAcum.GetSabanaVenta(Fecha, 2, UsuarioActual.CveEmpresa)
 
             End If
@@ -151,12 +151,11 @@ Partial Class Acumuladores_RepEntradasUsados
                 If Mes.ToEntero < 10 Then
                     Mes = String.Format("0{0}", Mes)
                 End If
-                If DdlOpcion.SelectedValue = 1 Then
+                If DdlOpcion.SelectedValue = "1" Then
                     NombreArchivo = String.Format("700415-{0}{1}-GE", Mes, Año)
                     workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)
 
-
-                ElseIf DdlOpcion.SelectedValue = 2 Then
+                ElseIf DdlOpcion.SelectedValue = "2" Then
                     NombreArchivo = String.Format("700415-{0}{1}-CS", Mes, Año)
                     workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)