-- verificar venta como pv

-- quitar texto de mas en estilos

Ventas/Ventas.aspx

@@ -9,7 +9,7 @@
             padding: 0px 5px;
         }
 
-        .nolineheight {ChkRequiereTecnico
+        .nolineheight {
             line-height: 1;
         }
 

Ventas/Ventas.aspx.vb

@@ -4754,6 +4754,7 @@ Partial Class Ventas
             If UsuarioActual.Empresa.Funcionalidad(705) = "1" Then
                 Me.CveLineaAdicionalVenta = DbRowVenta("CveLineaAdicional").ToString().ToEntero()
             End If
+            TxtDescripcionVenta.Text = DbRowVenta("DescripcionVenta").ToString()
 
             'CargaEncabezado
             If Not (CveRemision > 0 Or CveCotizacion > 0) Then
@@ -4859,10 +4860,8 @@ Partial Class Ventas
 
                         If UsuarioActual.Empresa.Funcionalidad(163) = "1" Then
                             TrDescripcionVenta.Visible = True
-                            TxtDescripcionVenta.Text = DbRowVenta("DescripcionVenta").ToString()
                         End If
 
-
                         HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
                     Case "Egs"
                         HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
@@ -9475,7 +9474,7 @@ Partial Class Ventas
         End If
 
         If DivAlmacen.Visible AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Dev") AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then
-            Alert("Tiene que seleccionar un almacén para la salida de almacén", TipoMensaje.MsgAdvertencia)
+            Alert("Seleccione el almacén del cual saldrán los productos.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
@@ -19448,8 +19447,6 @@ Partial Class Ventas
     End Sub
     Protected Sub TxtCodigo_TextChanged(sender As Object, e As System.EventArgs) Handles TxtCodigo.TextChanged
 
-        Dim ObjClientes As New ClsClientes()
-
         Dim Nombre As String = "-1"
         Dim Codigo As String = "-1"
         Dim NombreCorto As String = "-1"
@@ -19460,6 +19457,7 @@ Partial Class Ventas
         If TxtCodigo.Text.Trim <> String.Empty Then Codigo = TxtCodigo.Text.Trim
 
         If Codigo <> "-1" Then
+            Dim ObjClientes As New ClsClientes()
             If ObjClientes.GetClientes(-1, Nombre, Codigo, NombreCorto, RFC, Telefono, Mail, -1, UsuarioActual.CveEmpresa, TipoCliente:=-1) Then
                 If ObjClientes.DtResultados.Rows.Count > 0 Then
                     If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not ObjClientes.CveCliente.Contiene(10450, 10460, 10458) Then
@@ -21559,8 +21557,6 @@ Partial Class Ventas
 
         Dim DrProducto As DataRow = Nothing
         If TxtCantidad.Text.Trim.ToDouble <= 0 Then TxtCantidad.Text = "1"
-        Dim SerieL As String = ""
-        Dim CodigoBarras As String = ""
         Dim CvePS As Integer
 
         'LIMPIA "PROPIEDAD"
@@ -21577,7 +21573,7 @@ Partial Class Ventas
 
             If Existencia - ExistenciaActual > 0 Then
                 If CvePS > 0 Then
-                    DrProducto = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+                    DrProducto = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
                     If DrProducto IsNot Nothing Then
                         HdnCvePS.Value = CvePS.ToString()
                         TxtCantidad.Text = "1"
@@ -21593,17 +21589,16 @@ Partial Class Ventas
             End If
         End If
 
-
         'BUSCA POR CODIGO DE BARRAS
-        If Not CvePS > 0 Then
+        If Not CvePS > 0 AndAlso TxtCodigoBarras.Text.Trim() <> "" Then
             CodigoBarras = TxtCodigoBarras.Text.Trim()
-            DrProducto = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}'")
+            DrProducto = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}'")
             If DrProducto IsNot Nothing Then
-                If DrProducto("Inv_CveMetodoInventario").ToString() = "5" Then 'si es serie
+                If DrProducto("Inv_CveMetodoInventario").ToString() = "5" OrElse DrProducto("AplicaSerie").ToString = "True" Then 'si es serie
                     TxtCodigoSerie.Focus()
                     Exit Sub
                 Else
-                    CvePS = DrProducto("CvePS").ToString().ToEntero()
+                    CvePS = DrProducto("CvePS").ToString.ToEntero()
                     HdnCvePS.Value = CvePS.ToString()
                 End If
             Else
@@ -21622,8 +21617,9 @@ Partial Class Ventas
         DdlPSIndexChange(CvePS, DdlPS)
         If Not TxtCantidad.Text.ToDouble > 0 Then TxtCantidad.Text = "1"
         TxtPrecio.Focus()
+        TxtPrecio.Text = "11"
         RegistraScript($"$('#{TxtPrecio.ClientID}').select();")
-
+        UpPS.Update()
         'LO DE ABAJO YA NO SE USA - ES VIEJO
         Exit Sub
 
@@ -21838,6 +21834,10 @@ Partial Class Ventas
                         DivTransferencia.Visible = False
                     End If
                     TxtImporteContado.Text = TxtTotal.Text
+                    'SI ES MODALIDAD COBRANZA, NO MOSTRAR
+                    If (UsuarioActual.Empresa.Funcionalidad(109) = "1") Then
+                        DivContado.Visible = False
+                    End If
                 End If
                 TxtFechaPago.Text = NowADS().ToShortDateString
                 'SI ES CONTADO EL METODO DE PAGO DEBE SER PUE