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

Ventas/CatAutorizacionLimites.aspx.vb

@@ -47,6 +47,8 @@ Partial Class Ventas_CatAutorizacionLimites
             DdlClienteFiltro.DataBind()
             DdlClienteFiltro.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
+
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedor.DataBind()
 
         DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)

Ventas/ProductosServicios.aspx.vb

@@ -244,7 +244,7 @@ Partial Class ProductosyServicios
 
             InicializaEcommerce()
 
-            If UsuarioActual.CveEmpresa.Contiene(141, 152) Then
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                 'DivDatos.Attributes("class") = "col-md-12"
 
                 DivDdlTipo.Visible = True

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