Puntos grupo diaz.

--Cotizaciones/Ventas. En la creación rápida de cliente. Pedir dato de giro del cliente. (PA_Banc_BancosCuentasUsuariosGet)

--Registro de Clave de autorización y nombre de quien atendió para registrar estos datos al momento de cobrar y que estos datos sean requeridos.

--- Depósitos de caja. Quitar la opción de “Todos” al filtrar los tipos de pago.

--- Cobro de Caja,  Permitir hasta 6 pesos como sobrante/faltante.

--Cotizaciones/Ventas. En la creación rápida de cliente. Pedir dato de giro del cliente.

--Cotizaciones/Ventas. Previo agregar un productos, visualizar los precios por cada lista de precios.

--Cotizaciones/Ventas. Visualización de existencias por cada una de las partidas.

Ventas/Ventas.aspx.vb

@@ -3733,7 +3733,7 @@ Partial Class Ventas
     End Sub
 
     Private Sub CargaListasPreciosSubProyectos(CvePS As Integer)
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+        If UsuarioActual.CveEmpresa = 189 Then
             DivPrecioLista.Visible = True
 
             Using ObjVta As New ClsVentas
@@ -8790,7 +8790,7 @@ Partial Class Ventas
                     End If
                 End If
 
-                If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                If UsuarioActual.CveEmpresa = 189 Then
                     e.Row.FCLinkButton("LnkExistencias").Visible = True
                 End If
 
@@ -9149,7 +9149,11 @@ Partial Class Ventas
             Dim PrecioLista As String = ""
             If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(360) = "1" Then
                 CvePrecioLista = GvPS.Rows(e.RowIndex).FCDropDownList("DdlPrecioListaEdit").SelectedValue.ToEntero()
-                PrecioLista = GvPS.Rows(e.RowIndex).FCDropDownList("DdlPrecioListaEdit").SelectedItem.Text.Split("-"c)(0)
+                If UsuarioActual.CveEmpresa = 189 Then
+                    PrecioLista = GvPS.Rows(e.RowIndex).FCDropDownList("DdlPrecioListaEdit").SelectedItem.Text.Split("-"c)(0)
+                Else
+                    PrecioLista = GvPS.Rows(e.RowIndex).FCDropDownList("DdlPrecioListaEdit").SelectedItem.Text
+                End If
             End If
 
             AgregarProductoServicio(Cantidad, DdlUM.SelectedValue.ToEntero(), DdlUM.SelectedItem.Text, DdlCla.SelectedValue.ToEntero(), DdlCla.SelectedItem.Text,
@@ -17937,7 +17941,7 @@ Partial Class Ventas
                 If ObjPrecioSugerido.CvePrecioLista > 0 AndAlso DivPrecioLista.Visible Then
                     DdlPrecioLista.SelectedValueExist(ObjPrecioSugerido.CvePrecioLista)
 
-                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                    If UsuarioActual.CveEmpresa = 189 Then
                         If DirectCast(DdlPrecioLista.DataSource, DataTable) IsNot Nothing Then
                             Dim dt = DirectCast(DdlPrecioLista.DataSource, DataTable)
                             If dt IsNot Nothing Then
@@ -19456,7 +19460,12 @@ Partial Class Ventas
                 If DivPrecioLista.Visible Then
                     If DdlPrecioLista.SelectedValue.ToEntero() > 0 AndAlso DdlPrecioLista.SelectedValue.ToEntero() = Me.CvePrecioLista Then
                         CvePrecioListaPS = Me.CvePrecioLista
-                        PrecioListaPS = DdlPrecioLista.SelectedItem.Text.Split("-"c)(0)
+                        If UsuarioActual.CveEmpresa = 189 Then
+                            PrecioListaPS = DdlPrecioLista.SelectedItem.Text.Split("-"c)(0)
+                        Else
+                            PrecioListaPS = DdlPrecioLista.SelectedItem.Text
+                        End If
+
                     Else
                         'sino es la seleccionada se recalcula de nuevo
                         CargaPrecioLista(DdlPS.SelectedValue.ToEntero)
@@ -24457,10 +24466,15 @@ Partial Class Ventas
         DivBotonesAgregarCliente.Visible = False
         DivFormaCliente.Visible = False
         divRegimenCliente.Visible = False
+        divGiro.Visible = False
         UpAgregarCliente.Update()
         CargaEstados()
         TxtRFCCliente.Focus()
 
+        If UsuarioActual.CveEmpresa = 189 Then
+            CargaGiro()
+        End If
+
         RegistraScript("showDivEC();")
     End Sub
 
@@ -24538,6 +24552,10 @@ Partial Class Ventas
 
         End If
 
+        If UsuarioActual.CveEmpresa = 189 Then
+            divGiro.Visible = True
+        End If
+
     End Sub
 
     Private Sub CargaComboCFDICliente()
@@ -24630,7 +24648,7 @@ Partial Class Ventas
                                                 TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
                                                 TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
                                                 DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, CvePrecioLista:=CvePrecioLista,
-                                                RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, CveRegimenFiscal:=CveRegimenFiscal, CveUsoCFDI:=CveUsoCFDI) Then
+                                                RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, CveRegimenFiscal:=CveRegimenFiscal, CveUsoCFDI:=CveUsoCFDI, CveClienteClasificacion:=DdlGiro.SelectedValue.ToEntero()) Then
 
             If ObjCliente.DtResultados.Rows.Count > 0 Then
                 RegistraScript("hideDivEC();")
@@ -25346,15 +25364,9 @@ Partial Class Ventas
 
             LtlVerExistenciasPS.Text = $"Existencias: {GvRow.DataKey("PS")}"
 
-            Dim RestringirAlmacenes As Integer = -1
-            If UsuarioActual.CveEmpresa = 119 Then
-                RestringirAlmacenes = 1 'restringue los almacenes:Consignación,Productos Financieros Asignados,,roductos Financieros,Consumo Interno,Activo Fijo,Merma,Consignación de Contrato,Devolucion proveedor,
-            End If
+            Dim RestringirAlmacenes As Integer = -1
 
-            Dim BuscarEnTabla As Boolean = False
-            If UsuarioActual.Empresa.Funcionalidad(715) = "1" Then
-                BuscarEnTabla = True
-            End If
+            Dim BuscarEnTabla As Boolean = True
 
             Dim ObjInventarios As New ClsInventarios()
             If ObjInventarios.GetExistenciasProducto(GvRow.DataKey("CvePS").ToEntero(), -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
@@ -38891,5 +38903,13 @@ Partial Class Ventas
             End If
         End If
     End Sub
+
+    Private Sub CargaGiro()
+        Dim Dt As DataTable = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
+        DdlGiro.DataSource = Dt
+        DdlGiro.DataBind()
+        DdlGiro.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        UpAgregarCliente.Update()
+    End Sub
 End Class