diff --git a/Compras/RepComplementoPago.aspx.vb b/Compras/RepComplementoPago.aspx.vb
index fe617bac8..eb4b41f15 100644
--- a/Compras/RepComplementoPago.aspx.vb
+++ b/Compras/RepComplementoPago.aspx.vb
@@ -63,10 +63,10 @@ Partial Class Compras_RepComplementoPago
     Private Sub CargaDatos()
 
         Dim CveProveedor As Integer = If(DdlProveedores.SelectedValue.ToEntero = 0, -1, DdlProveedores.SelectedValue.ToEntero)
-        Dim CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
-        Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha)
-        Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha)
-        Dim TipoConsulta = If(ChkViculadas.Checked, 2, 1)
+        Dim CveTipoProveedor As Integer = DdlTipoProveedor.SelectedValue.ToEntero
+        Dim FechaInicio As Date = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha)
+        Dim FechaFin As Date = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha)
+        Dim TipoConsulta As Integer = If(ChkViculadas.Checked, 2, 1)
         Dim Count As Integer = 0
 
         Dim ObjCompras As New ClsCompras