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

-- mejora para el manejo de presupuesto

Browse Source
This commit is contained in:
rrene
2024-07-23 09:11:56 -07:00
parent defc05c317
commit b13a9b2f92
1 changed files with 2 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Contratos/ModificarPresupuesto.aspx.vb
View File

@@ -14,7 +14,7 @@ Partial Class Contratos_ModificarPresupuesto
#Region "P R O P I E D A D E S" #Region "P R O P I E D A D E S"
Public ReadOnly Property EstatusFinal() As Integer Public ReadOnly Property EstatusFinal() As Integer
Get Get
Return 2 Return -1 '2
End Get End Get
End Property End Property
Public Property CvePresupuesto() As Integer Public Property CvePresupuesto() As Integer
@@ -140,15 +140,11 @@ Partial Class Contratos_ModificarPresupuesto
End If End If
ValidaAcciones() ValidaAcciones()
End Sub End Sub
Protected Sub GvPresupuestos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPresupuestos.RowDataBound Protected Sub GvPresupuestos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPresupuestos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
Dim StrTipo = DdlTipo.SelectedValue Dim StrTipo = DdlTipo.SelectedValue
@@ -272,21 +268,15 @@ Partial Class Contratos_ModificarPresupuesto
If Ampliacion > 0 Then If Ampliacion > 0 Then
TieneError = Not ObjPresu.AddPresupuestoMovimiento(CvePresupuestoDetalle, CveCompra, 1, Ampliacion, Fecha, Justificacion) TieneError = Not ObjPresu.AddPresupuestoMovimiento(CvePresupuestoDetalle, CveCompra, 1, Ampliacion, Fecha, Justificacion)
End If End If
If Not TieneError Then If Not TieneError Then
Dim Reduccion = GvRow.FCTextBox("TxtReduccion").Text.ToDecimal Dim Reduccion = GvRow.FCTextBox("TxtReduccion").Text.ToDecimal
If Reduccion > 0 Then If Reduccion > 0 Then
TieneError = Not ObjPresu.AddPresupuestoMovimiento(CvePresupuestoDetalle, CveCompra, 2, Reduccion, Fecha, Justificacion) TieneError = Not ObjPresu.AddPresupuestoMovimiento(CvePresupuestoDetalle, CveCompra, 2, Reduccion, Fecha, Justificacion)
End If End If
End If End If
End Select End Select
End If End If
If TieneError Then If TieneError Then Exit For
Exit For
End If
End If End If
Next Next
If TieneError Then If TieneError Then
@@ -301,7 +291,6 @@ Partial Class Contratos_ModificarPresupuesto
End If End If
End Sub End Sub
Private Sub ValidaAcciones() Private Sub ValidaAcciones()
LnkAccionesAgregarClasificacion.Visible = False LnkAccionesAgregarClasificacion.Visible = False
If DtClasificaciones IsNot Nothing AndAlso DtClasificaciones.Rows.Count > 0 Then If DtClasificaciones IsNot Nothing AndAlso DtClasificaciones.Rows.Count > 0 Then