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

RepServicioDomicilio mejoras, compras requeriri vinculacion de nc a facturas caundoe s acumuladora.

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-01-27 19:25:02 -07:00
parent 980b0e14eb
commit a995cbf951
11 changed files with 539 additions and 311 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Planeacion/CatSubProyectos.aspx.vb
View File

@@ -206,13 +206,20 @@ Partial Class CatSubProyectos
End If
End Sub
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
Dim ObjSubProyectos As New ClsSubProyectos
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
Dim ObjSubProyectos As New ClsSubProyectos
ObjSubProyectos.IniciaTransacSQL()
If ObjSubProyectos.RemoveSubProyecto(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
ObjSubProyectos.Commit()
GvDatos.EditIndex = -1
ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
Alert("El SubProyecto se eliminó correctamente.", TipoMensaje.MsgInformacion)
Alert("El SubProyecto se eliminó correctamente.", TipoMensaje.MsgInformacion)
Else
ObjSubProyectos.RollBack()
End If
ObjSubProyectos.Dispose()