diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index c193f5885..c514d4ee2 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -5,6 +5,7 @@ Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
+
 Partial Class Compras_ReembolsosComprobaciones
     Inherits ClsPaginas
 
@@ -364,7 +365,13 @@ Partial Class Compras_ReembolsosComprobaciones
                 Dim Dep As New ClsGenerales
                 If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
 
-                    DdlCuentaDeposito.DataSource = Dep.DtResultados
+                    If DdlTipoTransaccion.SelectedValue = "9" Then
+                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'")
+                    Else
+                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'")
+                    End If
+
+
                     If Dep.DtResultados.Rows.Count > 0 Then
 
                         trCuentaDeposito.Visible = True
@@ -431,8 +438,9 @@ Partial Class Compras_ReembolsosComprobaciones
 #Region " BTN GUARDAR "
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
+
         Dim CvecuentaDeposito As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero > 0, DdlCuentaDeposito.SelectedValue.ToEntero, -1)
-        If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+        If DdlTipoPago.SelectedValue.ToEntero = 1 AndAlso DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
             If CvecuentaDeposito <= 0 Then
                 Alert("Debe de seleccionar una cuenta deposito", TipoMensaje.MsgAdvertencia)
                 Exit Sub
@@ -738,7 +746,7 @@ Partial Class Compras_ReembolsosComprobaciones
                             Pago.CveIE = CveIEPago
                             Pago.CveMonedaPago = CveMonedaPago
                             Pago.TCPago = TipoCambioPago
-                            Pago.CvePersonal =CvePersonal
+                            Pago.CvePersonal = CvePersonal
                             ImportePagoTotal = ImportePagoTotal + ImporteMovto
 
                             If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
diff --git a/Contabilidad/DiarioAmortizaciones.aspx b/Contabilidad/DiarioAmortizaciones.aspx
index caf44dd74..1ce31b891 100644
--- a/Contabilidad/DiarioAmortizaciones.aspx
+++ b/Contabilidad/DiarioAmortizaciones.aspx
@@ -439,6 +439,7 @@
                                                                     <asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' /> 
                                                                     
                                                                     <asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
+                                                                    <asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
                                                                    
                                                                     <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
                                                                         <tr class="SubTotales">
@@ -616,6 +617,7 @@
                                                                     <asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' /> 
                                                                     
                                                                     <asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
+                                                                    <asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
                                                                    
                                                                     <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
                                                                         <tr class="SubTotales">
@@ -791,6 +793,7 @@
                                                                     <asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' /> 
                                                                     
                                                                     <asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
+                                                                    <asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
                                                                    
                                                                     <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
                                                                         <tr class="SubTotales">
diff --git a/Contabilidad/DiarioAmortizaciones.aspx.vb b/Contabilidad/DiarioAmortizaciones.aspx.vb
index 6d14073d2..9efa59878 100644
--- a/Contabilidad/DiarioAmortizaciones.aspx.vb
+++ b/Contabilidad/DiarioAmortizaciones.aspx.vb
@@ -624,6 +624,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
 
 
                         For Each gvrc As GridViewRow In GvCompras.Rows
+                            Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero
 
                             AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
 
@@ -783,15 +784,51 @@ Partial Class Contabilidad_DiarioAmortizaciones
                                         MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
                                     End If
                                 End If
+
+                                Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value
                                 If Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16,
                                                     SubTotal,
                                                     IVAAcreditable * TipoCambioPago,
                                                     CompraPagadoRetIVA * TipoCambioPago,
                                                     CompraPagadoRetISR * TipoCambioPago,
-                                                    Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
+                                                    Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, UsuarioActual.CveEmpresa) Then
                                     MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
                                 End If
 
+                                If MsgError = "" Then
+
+                                    Dim GuidMov As String = Guid.NewGuid().ToString()
+
+                                    Dim NoDeducible = False
+                                    Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- >  Es el iva no deducible , ivano deducible totald e la compra
+
+                                    If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then
+                                        MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For
+                                    End If
+
+
+                                    If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then
+                                        Dim GuidMovRetIVA As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For
+                                        End If
+                                    End If
+
+                                    If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then
+                                        Dim GuidMovRetISR As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For
+                                        End If
+                                    End If
+
+                                End If
+
+
                             End If
 
 
@@ -1093,6 +1130,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
 
 
                         For Each gvrc As GridViewRow In GvCompras.Rows
+                            Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero
 
                             AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
 
@@ -1241,15 +1279,50 @@ Partial Class Contabilidad_DiarioAmortizaciones
                                     End If
                                 End If
 
+                                Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value
+
                                 If IdCuentaBancos > 0 AndAlso Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16,
                                                     SubTotal,
                                                     IVAAcreditable * TipoCambioPago,
                                                     CompraPagadoRetIVA * TipoCambioPago,
                                                     CompraPagadoRetISR * TipoCambioPago,
-                                                    Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
+                                                    Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, UsuarioActual.CveEmpresa) Then
                                     MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
                                 End If
 
+                                If MsgError = "" Then
+
+                                    Dim GuidMov As String = Guid.NewGuid().ToString()
+
+                                    Dim NoDeducible = False
+                                    Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- >  Es el iva no deducible , ivano deducible totald e la compra
+
+                                    If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then
+                                        MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For
+                                    End If
+
+
+                                    If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then
+                                        Dim GuidMovRetIVA As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For
+                                        End If
+                                    End If
+
+                                    If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then
+                                        Dim GuidMovRetISR As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For
+                                        End If
+                                    End If
+
+                                End If
+
                             End If
 
                             'afecto los movimientos en los que se hizo el pago
@@ -1568,6 +1641,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
 
 
                         For Each gvrc As GridViewRow In GvCompras.Rows
+                            Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero
 
                             AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
 
@@ -1666,15 +1740,50 @@ Partial Class Contabilidad_DiarioAmortizaciones
                                     End If
                                 End If
 
+                                Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value
+
                                 If Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16,
                                                     SubTotal,
                                                     IVAAcreditable * TipoCambioPago,
                                                     CompraPagadoRetIVA * TipoCambioPago,
                                                     CompraPagadoRetISR * TipoCambioPago,
-                                                    Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
+                                                    Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, UsuarioActual.CveEmpresa) Then
                                     MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
                                 End If
 
+                                If MsgError = "" Then
+
+                                    Dim GuidMov As String = Guid.NewGuid().ToString()
+
+                                    Dim NoDeducible = False
+                                    Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- >  Es el iva no deducible , ivano deducible totald e la compra
+
+                                    If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then
+                                        MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For
+                                    End If
+
+
+                                    If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then
+                                        Dim GuidMovRetIVA As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For
+                                        End If
+                                    End If
+
+                                    If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then
+                                        Dim GuidMovRetISR As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * TipoCambioPago,
+                                                        Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For
+                                        End If
+                                    End If
+
+                                End If
+
                             End If
 
                             'afecto los movimientos en los que se hizo el pago
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 56cf628f4..39d80b543 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -5,6 +5,7 @@ Imports System.Data
 Imports System.IO
 Imports Extensiones
 Imports GemBox.Spreadsheet
+Imports iText.Barcodes.Dmcode
 
 Partial Class Inventarios_EntradasSalidas
     Inherits ClsPaginas
@@ -2049,7 +2050,8 @@ Partial Class Inventarios_EntradasSalidas
 
                         ''VALIDA EXISTENCIAS
                         Dim Cont As Integer = 0
-                        If DdlConcepto.SelectedValue.Contiene({"3", "11", "13", "21", "30", "31"}) Then
+                        Dim tConceptoOrigen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", $"CveConcepto = {DdlConcepto.SelectedValue}").ToEntero
+                        If tConceptoOrigen < 0 Then 'si es negativo el origen, indica salida de almacen
                             For Each Dr As DataRow In DtMovimientos.Rows
                                 Dim FechaCaducidadVal As Date = If(Dr("AplicaCaducidad").ToString = "True", Dr("FechaCaducidad").ToString.ToDate, MinFecha)
                                 Dim FechaMovtoExistenciaStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("HH:mm")}"
@@ -2137,6 +2139,7 @@ Partial Class Inventarios_EntradasSalidas
 
                             Dim CveConceptoContable As Integer = 260
                             Dim CveClasificacion As Integer = -1
+
                             Select Case DdlConcepto.SelectedValue.ToEntero
                                 Case 2, 32
                                     EsContabilizable = True
@@ -2188,7 +2191,7 @@ Partial Class Inventarios_EntradasSalidas
                                         End If
                                     Next
                                 Else
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAlmacen, tValorInventario, tValorInventario, CveConceptoContable, TxtObservaciones.Text.Trim, TxtObservaciones.Text.Trim, CveMovimientoAlmacen:=CveMovimiento, CveClasificacion:=CveClasificacion, Contabilizable:=EsContabilizable) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAlmacen, tValorInventario, tValorInventario, CveConceptoContable, TxtObservaciones.Text.Trim, TxtObservaciones.Text.Trim, CveMovimientoAlmacen:=CveMovimiento, CveClasificacion:=CveClasificacion, CveSubProyecto:=tCveSubProyecto, Contabilizable:=EsContabilizable) Then
                                         ErrorMovInv = True
                                     End If
                                 End If
@@ -2401,7 +2404,7 @@ Partial Class Inventarios_EntradasSalidas
                             ObjInventario.RollBack() 'deshace lo insertado
                             CveMovimiento = 0
                             If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
-                            Alert("Ocurrió un error al registrar los movimientos", TipoMensaje.MsgError)
+                            'Alert("Ocurrió un error al registrar los movimientos", TipoMensaje.MsgError)
                             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
                         End If
                     End If
diff --git a/Ventas/RepVentasDetalle.aspx b/Ventas/RepVentasDetalle.aspx
index bf70f132e..8eae12709 100644
--- a/Ventas/RepVentasDetalle.aspx
+++ b/Ventas/RepVentasDetalle.aspx
@@ -637,6 +637,12 @@
                             <asp:Literal ID="LtlTipoVenta" runat="server" Text='<%# Eval("TipoVenta") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                     <%-- 46--%>
+                     <asp:TemplateField HeaderText="Fecha y Hora" Visible="false">
+                         <ItemTemplate>
+                             <asp:Literal ID="LtlFH" runat="server" Text='<%# Eval("Fecha", "{0:dd/MM/yyyy HH:mm:ss}") %>'></asp:Literal>
+                         </ItemTemplate>
+                     </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
@@ -835,7 +841,15 @@
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td>
                                     </tr>
-
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFechaHora" runat="server" Visible="true" Text="&nbsp; Fecha Hora" /></td>
+                                        <td style="text-align: left;">
+                                            
+                                        </td>
+                                        <td style="text-align: left;">
+                                        </td>
+                                    </tr>
                                 </tbody>
                             </table>
 
diff --git a/Ventas/RepVentasDetalle.aspx.vb b/Ventas/RepVentasDetalle.aspx.vb
index dce07676e..5229dd38f 100644
--- a/Ventas/RepVentasDetalle.aspx.vb
+++ b/Ventas/RepVentasDetalle.aspx.vb
@@ -1068,6 +1068,7 @@ Partial Class RepVentasDetalle
         GvDatos.Columns(43).Visible = ChkDescargarXML.Checked
         GvDatos.Columns(44).Visible = ChkDescargarPDF.Checked
         GvDatos.Columns(45).Visible = ChkTipoVenta.Checked
+        GvDatos.Columns(46).Visible = ChkFechaHora.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then