diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 82c7b04da..ec9df92c6 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1235,33 +1235,34 @@ Partial Class Ventas_ClientesAbonar
 
                     End If
 
-                    If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                        If Not ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                            MsgError = "No se pudo simplificar los movimientos"
-                            Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
-                        End If
+                    'If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                    '    If Not ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                    '        MsgError = "No se pudo simplificar los movimientos"
+                    '        Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
+                    '    End If
+                    'End If
+
+                    If MsgError = "" AndAlso Not ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=3) Then
+                        MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia
+                        'If ObjMov.ValorPolizaDescuadre > 0 Then
+                        '    MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia
+                        'End If
                     End If
 
-                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
-                        If ObjMov.ValorPolizaDescuadre > 0 Then
-                            MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia
-                        End If
-                    End If
-
-                    'Conta ContPAQ
-                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
-                        If idCuentaContabilizacion > 0 Then
-                            If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                IDPoliza = ObjMov.ContaIdPoliza
-                                FolioPoliza = ObjMov.ContaFolio
-                            Else
-                                Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
-                                MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico"
-                            End If
-                        Else
-                            Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son invalidas: {0}", CuentasContablesInvalidas))
-                        End If
-                    End If
+                    ''Conta ContPAQ
+                    'If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
+                    '    If idCuentaContabilizacion > 0 Then
+                    '        If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+                    '            IDPoliza = ObjMov.ContaIdPoliza
+                    '            FolioPoliza = ObjMov.ContaFolio
+                    '        Else
+                    '            Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
+                    '            MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico"
+                    '        End If
+                    '    Else
+                    '        Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son invalidas: {0}", CuentasContablesInvalidas))
+                    '    End If
+                    'End If
                 Else
                     MsgError = "No se pudo insertar la póliza"
                 End If
@@ -2677,8 +2678,8 @@ Partial Class Ventas_ClientesAbonar
         CambiaTipoMoneda()
     End Sub
     Private Sub CambiaTipoMoneda()
-        Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, TxtFechaDocumento.Text.ToDate.Day - 1, TxtFechaDocumento.Text.ToDate.Day)
-        Fecha = (dia.ToString + "/" + TxtFechaDocumento.Text.ToDate.Month.ToString + "/" + TxtFechaDocumento.Text.ToDate.Year.ToString).ToDate
+
+        Fecha = If(UsuarioActual.CveEmpresa = 13, TxtFechaDocumento.Text.ToDate.AddDays(-1), TxtFechaDocumento.Text.ToDate).ToDate
 
         If TxtTC.Visible Then
             TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)