AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--activar el div ecommerce E119

Browse Source
This commit is contained in:
rrene
2023-09-27 08:16:36 -07:00
parent f69a509412
commit b4d6b41352
1 changed files with 3 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Ventas/ProductosServicios.aspx.vb
View File

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