-- mejora para el manejo de presupuesto

Contratos/ModificarPresupuesto.aspx.vb

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