diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 10a1978ea..87eee4512 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -504,7 +504,7 @@ Partial Class Inventarios_KardexAlmacen
 
     Protected Sub BtnDescargarPOG_Click(sender As Object, e As EventArgs)
 
-        Dim Fecha As Date = Now
+        Dim Fecha As Date = txtFechaI.Text.ToDate
         Dim Nombre As String = IIf(RBLPOG.SelectedValue = "0", "Ventas-", "Existencias-")
 
         Using ObjInventario As New ClsInventarios