--activar el div ecommerce E119

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