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.

App_Code/ClsBancos.vb

@@ -1488,7 +1488,7 @@ Public Class ClsBancos
                                  Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1,
                                  Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
                                  Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1,
-                                 Optional AnticipoPuntual As Boolean = False, Optional FechaEmision As Date = MinFecha) As Integer
+                                 Optional AnticipoPuntual As Boolean = False, Optional FechaEmision As Date = MinFecha, Optional CveAutorizacion As String = "") As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_Banc_IEAdd")
@@ -1531,6 +1531,7 @@ Public Class ClsBancos
             .Add("@ImporteDeduccionesPago", SqlDbType.Money).Value = ImporteDeduccionesPago
             .Add("@AnticipoPuntual", SqlDbType.Bit).Value = AnticipoPuntual
             .Add("@FechaEmision", SqlDbType.Date).Value = FechaEmision
+            .Add("@CveAutorizacion", SqlDbType.VarChar).Value = CveAutorizacion
         End With
 
         Try

App_Code/ClsClientes.vb

@@ -1678,7 +1678,8 @@ Public Class ClsClientes
     Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer,
                                               RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer,
                                               NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1, Optional RegimenSociedad As String = "-1",
-                                              Optional TipoPersona As Boolean = False, Optional CveRegimenFiscal As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional Genero As Boolean = True) As Boolean
+                                              Optional TipoPersona As Boolean = False, Optional CveRegimenFiscal As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional Genero As Boolean = True,
+                                              Optional CveClienteClasificacion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_ClientesNoFrecuenteAdd")
 
@@ -1707,6 +1708,7 @@ Public Class ClsClientes
             .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
             .Add("@CveRegimenFiscal", SqlDbType.Int).Value = CveRegimenFiscal
             .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI
+            .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .Add("@Genero", SqlDbType.Int).Value = Genero
 
         End With

Bancos/DepositosCaja.aspx.vb

@@ -41,6 +41,12 @@ Partial Class Bancos_DepositosCaja
             Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}")
             HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}"
 
+            If UsuarioActual.CveEmpresa = 189 Then
+                If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then
+                    DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1"))
+                End If
+            End If
+
         End If
     End Sub
 
@@ -327,7 +333,7 @@ Partial Class Bancos_DepositosCaja
 
                 If CveSubProyecto <= 0 Then
                     'se saca de la cuenta de la caja chica
-                    CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto")
+                    CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero()
                 End If
 
             End If

Bancos/IE.aspx

@@ -251,6 +251,14 @@
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
                             </asp:Panel>
+                            <div class="row" id="DivCveAutorizacion" runat="server" visible="false">
+                                <label class="col-md-2 control-label">
+                                    <asp:Label runat="server" Text="Clave de autorización:"></asp:Label>
+                                </label>
+                                <label class="col-md-10 control-label">
+                                    <asp:Label ID="LblCveAutorizacion" runat="server" ></asp:Label>
+                                </label>
+                            </div>
                             <div id="DivOtrosIngresosEgresos" runat="server" visible="false" class="row">
 
                                 <label class="col-md-2 control-label ">Otros:</label>

Bancos/IE.aspx.vb

@@ -815,6 +815,11 @@ Partial Class Bancos_IE
                 NumComplementos = ObjIE.DtResultados(0)("NumComplementos").ToString.ToEntero
                 Dim CveIEEstadoCuenta As Integer = ObjIE.DtResultados(0)("CveIEEstadoCuenta").ToString.ToEntero
 
+                If Not String.IsNullOrEmpty(ObjIE.DtResultados(0)("CveAutorizacion").ToString) Then
+                    DivCveAutorizacion.Visible = True
+                    LblCveAutorizacion.Text = ObjIE.DtResultados(0)("CveAutorizacion").ToString()
+                End If
+
                 If UsuarioActual.TienePermisoProceso(99) Then
                     'BtnActualizar.Visible = True
                     TxtFechaDocumento.Enabled = True

Ventas/PVCobranza.aspx

@@ -335,13 +335,18 @@
                                         <div class="col-md-1"><b>Folio:</b></div>
                                         <div class="col-md-2">&nbsp;<label><asp:Literal ID="LtlFolio" runat="server"></asp:Literal></label>&nbsp;</div>
 
-                                        <div class="col-md-1"><b>
+                                        <div class="col-md-1">
-                                            <asp:Literal ID="LtLTipoSaldo" runat="server" Text="Total:"></asp:Literal></b></div>
+                                            <b>
-                                        <div class="col-md-1"><b>
+                                                <asp:Literal ID="LtLTipoSaldo" runat="server" Text="Total:"></asp:Literal></b>
+                                        </div>
+                                        <div class="col-md-1">
+                                            <b>
                                                 <asp:TextBox ID="LtlSaldo" runat="server" Enabled="true" CssClass="TextBoxAsLabel" BorderStyle="None" BackColor="Transparent" ForeColor="#3c763d" Style="text-align: left"></asp:TextBox>
-                                        </b></div>
+                                            </b>
+                                        </div>
                                         <div class="col-md-1" style="text-align: right;">
-                                            <asp:LinkButton ID="LnkLiberar" runat="server" CssClass="btn btn-xs btn-success" Text="Liberar" OnClick="LnkLiberar_Click" /></div>
+                                            <asp:LinkButton ID="LnkLiberar" runat="server" CssClass="btn btn-xs btn-success" Text="Liberar" OnClick="LnkLiberar_Click" />
+                                        </div>
                                     </div>
 
                                 </div>
@@ -423,6 +428,20 @@
                                                         <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender11" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator3" Width="300px"></ajax:ValidatorCalloutExtender>
                                                     </div>
                                                 </div>
+                                                <div class="row" id="DivDatosCheque" runat="server" visible="false" style="padding-top: 8px;">
+                                                    <div class="col-md-12">
+                                                        <div class="row">
+                                                            <label class="col-md-2">Clave de autorización:</label>
+                                                            <div class="col-md-4">
+                                                                <asp:TextBox ID="TxtClaveAutorizacion" CssClass="form-control input-sm " runat="server" MaxLength="50" Width="100%" ClientIDMode="Static"></asp:TextBox>
+                                                            </div>
+                                                            <label class="col-md-2">¿Quién autorizó?:</label>
+                                                            <div class="col-md-4">
+                                                                <asp:TextBox ID="TxtAutorizo" CssClass="form-control input-sm " runat="server" MaxLength="50" Width="100%" ClientIDMode="Static"></asp:TextBox>
+                                                            </div>
+                                                        </div>
+                                                    </div>
+                                                </div>
                                             </div>
 
                                             <div class="chequesie1" id="DivTransferencia" runat="server">
@@ -522,6 +541,7 @@
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Left">
                                     <HeaderTemplate>
                                         Serie - Folio                             
+                               
                                     </HeaderTemplate>
                                     <ItemTemplate>
                                         <asp:HyperLink ID="LBDescripcion" runat="server" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>'></asp:HyperLink>

Ventas/PVCobranza.aspx.vb

@@ -72,6 +72,9 @@ Partial Class Ventas_PVCobranza
             If UsuarioActual.TienePermisoProceso(371) Then
                 CargaCorteCaja()
             End If
+            If UsuarioActual.CveEmpresa = 189 Then
+                DivDatosCheque.Visible = True
+            End If
         End If
     End Sub
 
@@ -254,7 +257,6 @@ Partial Class Ventas_PVCobranza
 
         ObjMovtos.Dispose()
         GvDatos.DataBind()
-        UpL.Update()
 
         TxtImporteEfectivo.Text = ""
         TxtImporteCredito.Text = ""
@@ -263,6 +265,10 @@ Partial Class Ventas_PVCobranza
         TxtImporteTransferencia.Text = ""
         TxtImporteOtrosContado.Text = ""
         TxtCambio.Text = ""
+        TxtClaveAutorizacion.Text = ""
+        TxtAutorizo.Text = ""
+
+        UpL.Update()
 
     End Sub
 
@@ -381,9 +387,17 @@ Partial Class Ventas_PVCobranza
         End If
 
         If LtlSaldo.Text.ToDecimal() > Pagado Then
+            If UsuarioActual.CveEmpresa = 189 Then
+                If (LtlSaldo.Text.ToDecimal() - Pagado) > 6 Then
                     Alert("Favor de especificar el saldo total de pagar", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
+            Else
+                Alert("Favor de especificar el saldo total de pagar", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+        End If
 
         Dim PagadoSinEfectivo As Decimal = Pagado - TxtImporteEfectivo.Text.ToDecimal
         Dim tCveCorte As Integer = CveCorte
@@ -393,6 +407,18 @@ Partial Class Ventas_PVCobranza
             Exit Sub
         End If
 
+        If DivDatosCheque.Visible AndAlso TxtImporteCheque.Text.ToDecimal() > 0 Then
+            If String.IsNullOrEmpty(TxtClaveAutorizacion.Text.Trim()) Then
+                Alert("La clave de autorización es necesaria", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If String.IsNullOrEmpty(TxtAutorizo.Text.Trim()) Then
+                Alert("El nombre de la persona que autorizó es necesario", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
         Dim CveVenta As Integer = HdnCveVenta.Value.ToEntero
 
         Dim DbRowVenta As DataRow = Nothing
@@ -472,7 +498,12 @@ Partial Class Ventas_PVCobranza
                         End If
 
                         If SaldoPendiente > 0 AndAlso TxtImporteCheque.Text.ToDecimal > 0 Then
-                            MsgError = RegistraIE(3, DdlCuentaCheque.SelectedValue.ToEntero, TxtImporteCheque.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte)
+                            Dim Obs As String = ""
+                            If DivDatosCheque.Visible Then
+                                Obs = $"{VentaActual.SerieFolio} - Autorizó: {TxtAutorizo.Text}"
+                            End If
+
+                            MsgError = RegistraIE(3, DdlCuentaCheque.SelectedValue.ToEntero, TxtImporteCheque.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, Obs:=Obs, CveAutorizacion:=TxtClaveAutorizacion.Text.Trim())
                             SaldoPendiente -= TxtImporteCheque.Text.ToDecimal
                             PagoAplicado += TxtImporteCheque.Text.ToDecimal
                         End If
@@ -496,8 +527,14 @@ Partial Class Ventas_PVCobranza
                         End If
 
                         If SaldoPendiente > 0 Then
+                            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                                If SaldoPendiente > 6 Then
                                     MsgError = "Tiene saldo pendiente por aplicar"
                                 End If
+                            Else
+                                MsgError = "Tiene saldo pendiente por aplicar"
+                            End If
+                        End If
 
                         If MsgError = "" AndAlso Not ObjVentas2.UpdateVentaCorte(CveVenta, UsuarioActual.CveEmpresa, tCveCorte) Then
                             MsgError = "Error al aplicar el corte"
@@ -708,11 +745,14 @@ Partial Class Ventas_PVCobranza
         Return Retorno
     End Function
 
-    Private Function RegistraIE(Metodo As Integer, CveBancoCuenta As Integer, ImportePago As Decimal, Fecha As Date, CvePrePoliza As Integer, VentaActual As Venta, ByRef ObjIE As ClsBancos, ByRef ObjConta As ClsContabilidad, ByRef ObjVentas As ClsVentas, tCveCorte As Integer) As String
+    Private Function RegistraIE(Metodo As Integer, CveBancoCuenta As Integer, ImportePago As Decimal, Fecha As Date, CvePrePoliza As Integer, VentaActual As Venta, ByRef ObjIE As ClsBancos, ByRef ObjConta As ClsContabilidad, ByRef ObjVentas As ClsVentas, tCveCorte As Integer, Optional Obs As String = "", Optional CveAutorizacion As String = "") As String
         Dim Retorno As String = ""
         Dim CveIEPago As Integer = 0
         Dim ErrorConta As Boolean
-        CveIEPago = ObjIE.AddBancos_IE(CveBancoCuenta, Metodo, Fecha, "-1", VentaActual.ClienteNombre, ImportePago, 1, 1, VentaActual.SerieFolio, "", False, True, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=tCveCorte)
+        If String.IsNullOrEmpty(Obs) Then
+            Obs = VentaActual.SerieFolio
+        End If
+        CveIEPago = ObjIE.AddBancos_IE(CveBancoCuenta, Metodo, Fecha, "-1", VentaActual.ClienteNombre, ImportePago, 1, 1, Obs, "", False, True, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=tCveCorte, CveAutorizacion:=CveAutorizacion)
         If CveIEPago > 0 Then
             Dim Pago As New VentaPago
             Pago.ImportePagoVenta = ImportePago

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -570,7 +570,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
         else
         {
             //SI REGISTRA SALIDA DE ALMACÉN EN AUTOMÁTICO Y ES DEVOLUCION QUE REALIZE EL MOVMIENTO DE SALIDA DE ALMACEN
-            if (UsuarioActual.Empresa.Funcionalidad(567) == "1" && factura.TipoDocto == "Dev" && factura.SaldoAlmacen != 0)
+            if ((UsuarioActual.Empresa.Funcionalidad(567) == "1" || UsuarioActual.Empresa.Funcionalidad(531) == "1") && factura.TipoDocto == "Dev" && factura.SaldoAlmacen != 0)
             {
                 factura.RealizarDevolucionAlmacen = true;
             }

Ventas/Ventas.aspx

@@ -1479,7 +1479,7 @@
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center">
                                                     <ItemTemplate>
                                                         <asp:LinkButton ID="LnkExistencias" runat="server" Visible="false" AlternateText="Ver Existencias" CausesValidation="False" CommandName="Existencias" CommandArgument='<%# GvPS.Rows.Count.ToString() %>'
-                                                            CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-eye'></i>" />
+                                                            CssClass="btn btn-circle btn-sm purple" Text="<i class='fa fa-eye'></i>" />
                                                         <asp:LinkButton ID="LnkDescuentos" runat="server" Visible="false" AlternateText="Descuento" CausesValidation="False" CommandName="Descuento" CommandArgument='<%# GvPS.Rows.Count.ToString() %>'
                                                             CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-percent'></i>" />
                                                         <asp:LinkButton ID="imgClone" runat="server" AlternateText="Clonar" CausesValidation="False" CommandName="Clonar" CommandArgument='<%# GvPS.Rows.Count.ToString() %>'
@@ -8197,6 +8197,14 @@
                                 <i></i>
                             </div>
                         </div>
+                        <div class="row" id="divGiro" runat="server" visible="false" style="padding-left: 16px;">
+                            <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                 <asp:DropDownList ID="DdlGiro" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" Width="100%" runat="server" CssClass="form-control  select2me">
+                                  </asp:DropDownList>
+                                <label for="<%= DdlGiro.ClientID.ToString()%>">Giro:</label>
+                                <i></i>
+                            </div>
+                        </div>
                     </div>
                     <div id="DivBotonesAgregarCliente" runat="server" visible="false" class="modal-footer">
                         <asp:Button ID="BtnAgregarCliente" runat="server" CssClass="btn btn-primary" Text="Agregar" ValidationGroup="GrpGuardarCliente" />

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()
+                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
+                        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();")
@@ -25347,14 +25365,8 @@ 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 BuscarEnTabla As Boolean = False
+            Dim BuscarEnTabla As Boolean = True
-            If UsuarioActual.Empresa.Funcionalidad(715) = "1" Then
-                BuscarEnTabla = True
-            End If
 
             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