diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 20304e701..a6a426fce 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16241,7 +16241,7 @@ Partial Class Ventas
                             CveIEAnticipo = gvr.DataKey("CveIE").ToEntero()
 
                             Select Case gvr.DataKey("CveConceptoContable").ToString()
-                                Case "3"
+                                Case "3", "295"
                                     importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
 
                                     If importeMovimiento <> 0 Then
@@ -16252,7 +16252,9 @@ Partial Class Ventas
                                         Pago.CveIE = CveIEAnticipo
                                         Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero()
                                         Pago.TipoPago = "A"
+                                        Pago.Fecha = TxtFechaAnticipoCliente.text.todate   'TCPago = gvr.DataKey("TipoCambio").todecimal
                                         Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero()
+                                        Pago.TCPago = gvr.DataKey("TipoCambio").Todecimal
                                         Pago.AplicaTraslado = gvr.DataKey("RegresarImpuesto") = "1"
                                         Pago.Referencia = gvr.DataKey("Folio")