From c3fdfad4927c400cfcde3d70e99f20da87466853 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 6 Nov 2019 13:12:01 -0700
Subject: [PATCH] -

---
 Bancos/IE.aspx.vb         |  2 ++
 Bancos/PagoDeudor.aspx.cs |  2 +-
 Ventas/PV.aspx.vb         |  2 +-
 Ventas/Ventas.aspx.vb     | 30 +++++++++++++++---------------
 4 files changed, 19 insertions(+), 17 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 1eeb43303..6e73cd85f 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2457,6 +2457,8 @@ Partial Class Bancos_IE
                     If CveIE > 0 Then
 
                         If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = ObjIE.Folio.ToEntero 'cheque
+                        If UsuarioActual.CveEmpresa = 119 Then FolioFijo = 0
+
                         CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
 
                         'valida prepoliza
diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs
index e837bbdfa..e2d5b27ef 100644
--- a/Bancos/PagoDeudor.aspx.cs
+++ b/Bancos/PagoDeudor.aspx.cs
@@ -844,7 +844,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
                     }
                 }
                 bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1");
-                if (UsuarioActual.CveEmpresa == 119) AutoConta = false;
+                //if (UsuarioActual.CveEmpresa == 119) AutoConta = false;
 
                 if (AutoConta && MsgError.Equals(""))
                 {
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index e9d5dff51..1140a2b57 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -5095,7 +5095,7 @@ Partial Class PV
 
         'Dim NoMesesTrascurridos = Math.Ceiling(MesesTranscurridos)
 
-        TxtMesesUso.Text = (DateDiff(DateInterval.Month, FechaI, FechaF) + 1).ToString()
+        TxtMesesUso.Text = (DateDiff(DateInterval.Month, FechaI, FechaF)).ToString()
         CalculaPorcentajeAjuste()
     End Sub
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 587fc5346..028985042 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9572,24 +9572,24 @@ Partial Class Ventas
                                                     TCFluctuacion = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
                                                 End If
 
-                                                If DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Not Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
-                                                    ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion
-                                                ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
-                                                    ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion
-                                                ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
-                                                    Importe251 = Dr("Importe").ToString.ToDecimal / TCFluctuacion
-                                                    ImporteMN251 = Dr("Importe").ToString.ToDecimal
-                                                Else
-                                                    ImporteMN251 = Dr("Importe").ToString.ToDecimal
-                                                End If
+                                            If DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Not Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion
+                                            ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion
+                                            ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                Importe251 = Dr("Importe").ToString.ToDecimal / TCFluctuacion
+                                                ImporteMN251 = Dr("Importe").ToString.ToDecimal
+                                            Else
+                                                ImporteMN251 = Dr("Importe").ToString.ToDecimal
+                                            End If
 
-                                                Importe251 = (Importe251 * Multiplicador).RoundSQL
+                                            Importe251 = Importe251.RoundSQL
 
-                                                Importe91 = (Importe91 * ValorMultiplicador).RoundSQL
-                                                ImporteMN91 = (ImporteMN91 * Multiplicador).RoundSQL
-                                                If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${Importe91.FormatoNumero(2)}"
+                                            Importe91 = (Importe91).RoundSQL
+                                            ImporteMN91 = (ImporteMN91 * Multiplicador).RoundSQL
+                                            If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${Importe91.FormatoNumero(2)}"
 
-                                                CveUltimaVenta = Dr("CveVenta").ToString.ToEntero
+                                            CveUltimaVenta = Dr("CveVenta").ToString.ToEntero
 
                                                 Dim ImporteComplementarioIngreso As Decimal = 0
                                                 If UsaComplementariaClientes = True AndAlso tipoCambio > 1 Then