diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 1770b056a..2f49efbfe 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -287,8 +287,6 @@ Partial Class ProductosyServicios End If - - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then TxtPS.CssClass = "form-control Mayuscula" End If @@ -430,7 +428,7 @@ Partial Class ProductosyServicios DivCitricos.Visible = True CargaPanelCitricos() End If - If UsuarioActual.CveEmpresa = 2 Then + If UsuarioActual.CveEmpresa = 119 Then DiveCommerce.Visible = True End If @@ -971,26 +969,19 @@ Partial Class ProductosyServicios DdlRin.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveRinTamaño").ToString) DdlObjetoImpuesto.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveObjetoImpuesto").ToString) - 'If ObjProductosServicios.CvePSAdicional > 0 Then - ' DdlPSAdicional.SelectedValue = ObjProductosServicios.CvePSAdicional.ToString - ' DdlPSAdicional.SelectedText = ObjProductosServicios.PSCodigoAdicional - 'Else - ' DdlPSAdicional.SelectedValue = "-1" - ' DdlPSAdicional.SelectedText = "Seleccione" - 'End If DdlEmpacado.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTipoEmpacado").ToString) DdlTipoOrganico.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTipoOrganico").ToString) + TxtNombreComercial.Text = ObjProductosServicios.DtResultados.Rows(0)("NombreComercial").ToString + TxtEcommerceNota.Text = ObjProductosServicios.DtResultados.Rows(0)("NotasAdicionales").ToString Try DdlClasificacion_SelectedIndexChanged(DdlClasificacion, Nothing) - DdlTamanio.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTamaño").ToString) If DdlTamanio.SelectedValue.ToEntero() > 0 Then Dim Dr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0) Dim DebeTenerTamanio As Boolean = Boolean.Parse(Dr("EsAcumulador").ToString) - 'SI ES MOTOBATERIA If DdlClasificacion.SelectedValue = "20517" Then DebeTenerTamanio = True @@ -1007,15 +998,11 @@ Partial Class ProductosyServicios If DebeTenerTamanio AndAlso DdlTamanio.SelectedValue.ToEntero() <= 0 Then Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia) End If - DvTamanio.Visible = True End If - - Catch ex As Exception End Try - ChkAplicaIeps.Checked = ObjProductosServicios.AplicaIEPS If ObjProductosServicios.AplicaIEPS = True Then DdlIEPSPorcentaje.Enabled = True