Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/Ventas.aspx.vb

@@ -2991,7 +2991,7 @@ Partial Class Ventas
         'UNA VEZ CARGADA LAS CONDICIONES DE PAGO INICIALMENTE, NO VUELVE A SOBREESCRIBIR EL VALOR
         CveFormaPago33Cliente = -1
 
-        If UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 163) Then
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             trRotacion.Visible = True
             trRotacionlbl.Visible = True
             trAlineacion.Visible = True
@@ -3359,7 +3359,7 @@ Partial Class Ventas
         Dim ObjContrato As New ClsContratos
         Dim NoId As Integer = 0
 
-        If ObjContrato.GetContratosDetalle(DdlContratosModal.SelectedValue.ToEntero()) Then
+        If ObjContrato.GetContratosDetalle(DdlContratosModal.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
 
             'SI ES CONTRATO DE CONSIGNACION DE VENTA AGARRA LAS EXISTENCIAS DEL ALMACEN 
             CreaConsignacionSerieDetalle()
@@ -13193,6 +13193,9 @@ Partial Class Ventas
             End If
 
             Dim ModalidadRefacturacion As Integer = UsuarioActual.Empresa.Funcionalidad(586).ToEntero()
+            If UsuarioActual.CveUsuario.Contiene(100, 1719) Then
+                ModalidadRefacturacion = 2
+            End If
 
             'REFACTURACION CON PAGOS, DEBE CANCELAR SALDOS DEL DOCUMENTO ANTERIOR Y TRASPASAR PAGOS AL NUEVO
             If ModalidadRefacturacion = 2 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso ObjFactura.NuevaFactura = 1 Then