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

Subproyecto correcto en dropdownlost

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-03-28 15:08:14 -07:00
parent 55a0fb7eca
commit d7ab4ed269
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Ventas/Ventas.aspx.vb
View File

@@ -499,6 +499,11 @@ Partial Class Ventas
Return ViewState("CveVenta").ToString.ToEntero Return ViewState("CveVenta").ToString.ToEntero
End Get End Get
End Property End Property
Private ReadOnly Property CveSubProyectoVenta As Integer
Get
Return If(IsNothing(ViewState("CveSubProyectoVenta")), -1, ViewState("CveSubProyectoVenta").ToString.ToEntero)
End Get
End Property
Private Property CveVentaPadre As Integer Private Property CveVentaPadre As Integer
Get Get
Return If(IsNothing(ViewState("CveVentaPadre")), -1, ViewState("CveVentaPadre").ToString.ToEntero) Return If(IsNothing(ViewState("CveVentaPadre")), -1, ViewState("CveVentaPadre").ToString.ToEntero)
@@ -3561,6 +3566,7 @@ Partial Class Ventas
ObjUsados.Dispose() ObjUsados.Dispose()
End If End If
ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString.ToEntero
Me.CveEstatusFacturaPadre = DbRowVenta("CveEstatusFacturaPadre").ToString.ToEntero Me.CveEstatusFacturaPadre = DbRowVenta("CveEstatusFacturaPadre").ToString.ToEntero
'CargaEncabezado 'CargaEncabezado
@@ -4432,6 +4438,8 @@ Partial Class Ventas
DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString) DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString)
CargaPS(-1, DdlPS)
UpPS.Update() UpPS.Update()
UpContado.Update() UpContado.Update()
UpEstatus.Update() UpEstatus.Update()
@@ -5570,10 +5578,15 @@ Partial Class Ventas
Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2")) Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
Else Else
If Me.CveVenta > 0 Then
DdlSubProyectoDatos.SelectedValueExist(CveSubProyectoVenta)
End If
Dim cvesubproyecto As String = DdlSubProyectoDatos.SelectedValue Dim cvesubproyecto As String = DdlSubProyectoDatos.SelectedValue
If UsuarioActual.CveEmpresa = 141 Then If UsuarioActual.CveEmpresa = 141 Then
cvesubproyecto = "-1" cvesubproyecto = "-1"
End If End If
Objeto.Attributes.Add("data-cvesubproyecto", cvesubproyecto) Objeto.Attributes.Add("data-cvesubproyecto", cvesubproyecto)
Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString) Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString)
Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas") Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas")