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/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
 
@@ -253,9 +256,8 @@ Partial Class Ventas_PVCobranza
         End If
 
         ObjMovtos.Dispose()
-        GvDatos.DataBind()
-        UpL.Update()
-
+        GvDatos.DataBind()
+
         TxtImporteEfectivo.Text = ""
         TxtImporteCredito.Text = ""
         TxtImporteDebito.Text = ""
@@ -263,6 +265,10 @@ Partial Class Ventas_PVCobranza
         TxtImporteTransferencia.Text = ""
         TxtImporteOtrosContado.Text = ""
         TxtCambio.Text = ""
+        TxtClaveAutorizacion.Text = ""
+        TxtAutorizo.Text = ""
+
+        UpL.Update()
 
     End Sub
 
@@ -381,8 +387,16 @@ Partial Class Ventas_PVCobranza
         End If
 
         If LtlSaldo.Text.ToDecimal() > Pagado Then
-            Alert("Favor de especificar el saldo total de pagar", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+            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
@@ -391,6 +405,18 @@ Partial Class Ventas_PVCobranza
         If PagadoSinEfectivo > LtlSaldo.Text.ToDecimal() Then
             Alert("El pago con los metodos de pago actuales no puede ser mayor al importe de la venta", TipoMensaje.MsgAdvertencia)
             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
@@ -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,7 +527,13 @@ Partial Class Ventas_PVCobranza
                         End If
 
                         If SaldoPendiente > 0 Then
-                            MsgError = "Tiene saldo pendiente por aplicar"
+                            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
@@ -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