From f3c42689adefe95911765b2a6345059bfbc83c6f Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 7 Dec 2023 13:10:52 -0700 Subject: [PATCH] -- verificar venta como pv -- quitar texto de mas en estilos --- Ventas/Ventas.aspx | 2 +- Ventas/Ventas.aspx.vb | 28 ++++++++++++++-------------- 2 files changed, 15 insertions(+), 15 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index dcc9544ea..2232a23f4 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -9,7 +9,7 @@ padding: 0px 5px; } - .nolineheight {ChkRequiereTecnico + .nolineheight { line-height: 1; } diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c80df0e69..04529be4f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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