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

--FIX edicion de lista de precios

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-08-05 18:39:32 -07:00
parent fe6345ba2e
commit 6a537736a9
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Ventas/CatPreciosLista.aspx.vb
View File

@@ -59,19 +59,21 @@ Partial Class Ventas_CatPreciosLista
Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
TxtPrecioLista.Text = GvRow.DataKey("PrecioLista").ToString TxtPrecioLista.Text = GvRow.DataKey("PrecioLista").ToString
ChkPredeterminada.Checked = GvRow.DataKey("Predeterminada") = "True" ChkPredeterminada.Checked = GvRow.DataKey("Predeterminada") = "True"
chkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) chkEstatus.Checked = GvRow.DataKey("Estatus") = "True"
ChkRestringida.Checked = CBool(GvRow.DataKey("Restringuida")) ChkRestringida.Checked = GvRow.DataKey("Restringuida") = "True"
EsEditar = 1 EsEditar = 1
BtnAgregarCatalogo.Text = "Actualizar" BtnAgregarCatalogo.Text = "Actualizar"
dvEstatus.Visible = True dvEstatus.Visible = True
Using ObjVenta As New ClsVentas If divSP.Visible Then
If ObjVenta.GetPreciosListasSubProyecto(CvePrecioLista, UsuarioActual.CveEmpresa) Then Using ObjVenta As New ClsVentas
GvSubProyectos.DataSource = ObjVenta.DtResultados.Copy() If ObjVenta.GetPreciosListasSubProyecto(CvePrecioLista, UsuarioActual.CveEmpresa) Then
End If GvSubProyectos.DataSource = ObjVenta.DtResultados.Copy()
End Using End If
GvSubProyectos.DataBind() End Using
GvSubProyectos.DataBind()
End If
UpBodyCo.Update() UpBodyCo.Update()
UpFooter.Update() UpFooter.Update()