From 025509f9cd5c88c06f1c3899807e964a9658f765 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 8 Aug 2022 19:25:58 -0700
Subject: [PATCH] --descarga POG

---
 Inventarios/KardexAlmacenHorizontal.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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