AC: Cambios para permitir agregar partidas una vez cerrado el presupuesto.

Productos Finan: Concepto de prepoliza se le puso que siempre tenga dato

AC/CatPresupuestoEgresos.aspx.vb

@@ -100,10 +100,17 @@ Partial Class AC_CatPresupuestoEgresos
 
                 Else
                     'si es anteproyecto
-                    If DtPresupuestoEgresos.Rows(0)("Bloqueado").ToString = "0" Then
+                    Dim Bloqueado As Boolean = True
-                        'AndAlso Ejercicio >= UsuarioActual.Empresa.EjercicioActual
+                    For Each dbRow As DataRow In DtPresupuestoEgresos.Rows
-                        BtnPresupuesto.Visible = True
+                        If dbRow("Bloqueado").ToString() = "0" Then Bloqueado = False
-                    End If
+                    Next
+
+                    BtnPresupuesto.Visible = True
+
+                    'If DtPresupuestoEgresos.Rows(0)("Bloqueado").ToString = "0" Then
+                    '    'AndAlso Ejercicio >= UsuarioActual.Empresa.EjercicioActual
+                    '    BtnPresupuesto.Visible = True
+                    'End If
                     '                If Ejercicio = UsuarioActual.Empresa.EjercicioActual Then
                 End If
 

AC/PresupuestoEgresos.aspx.vb

@@ -202,7 +202,7 @@ Partial Class AC_PresupuestoEgresos2
         'Valida Ejercicio
         If objAC.GetEjerciciosPresupuestoEgresos(UsuarioActual.CveEmpresa) AndAlso objAC.DtResultados.Rows.Count > -1 Then
             Dim DtEjercicios = objAC.DtResultados.FiltraParametros(String.Format("Ejercicio = {0}", DdlEjercicio.SelectedValue))
-            If DtEjercicios.Rows.Count > 0 AndAlso DtEjercicios.Rows(0)("Bloqueado").ToString = "1" AndAlso txtTotal.Text.ToDecimal > 0 Then
+            If DtEjercicios.Rows.Count > 0 AndAlso DtEjercicios.Rows(0)("Bloqueado").ToString = "1" Then
                 Alert("El Presupuesto de Egresos del ejercicio seleccionado ya esta bloqueado, solo puede generar Presupuestos en ceros.", TipoMensaje.MsgAdvertencia)
                 objAC.Dispose()
                 Exit Sub
@@ -234,6 +234,10 @@ Partial Class AC_PresupuestoEgresos2
         Dim CveUnidadAdministrativa As Integer = CboUnidadAdministrativa.SelectedValue.ToString.ToEntero
         Dim CveClasificacionOG As Integer = CboClasificacionOG.SelectedValue.ToString.ToEntero
 
+        'If txtTotal.Text.ToDecimal > 0 Then
+        '    Alert("El Presupuesto de Egresos del ejercicio seleccionado se generaro proyecto. Después de este proceso se tendrá que autorizar el presupuesto de esta partida.", TipoMensaje.MsgAdvertencia)
+        'Else
+
         If CvePresupuestoEgresos = 0 Then
             If objAC.AddPresupuestoEgresos(DdlEjercicio.SelectedValue.ToEntero, CveProgramaOperativo, CveFuenteFinanciamiento, CveTipoGasto, CveUnidadAdministrativa, CveClasificacionOG, Total, Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
                 Alert("El Presupuesto de Egreso se guardo Correctamente como Anteproyecto", TipoMensaje.MsgInformacion) '"document.location.href=""/AC/CatPresupuestoEgresos.aspx"""

AC/RegEgresosModificaciones.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegEgresosModificaciones.aspx.vb" Inherits="AC_RegPEAmpRed" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" EnableEventValidation="true" CodeFile="RegEgresosModificaciones.aspx.vb" Inherits="AC_RegPEAmpRed" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -235,7 +235,7 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-    <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
+    <asp:UpdatePanel runat="server" ID="UPPersonalizar">
         <ContentTemplate>
             <div id="DivAddPE" class="modal fade" role="dialog">
                 <div class="modal-dialog">

Bancos/ProductosFinancieros.aspx.vb

@@ -306,7 +306,7 @@ Partial Class Bancos_ProductosFinancieros
         Dim IdPoliza = -1
         Dim CveIE As Integer = -1
 
-        CvePrePoliza = ObjMov.AddPrePolizas("ProductosFinancieros/Registrar", DdlTipoMovimiento.SelectedValue.ToEntero, Importe, Importe, CveMoneda, TxtFecha.Text.ToDate, TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        CvePrePoliza = ObjMov.AddPrePolizas("ProductosFinancieros/Registrar", DdlTipoMovimiento.SelectedValue.ToEntero, Importe, Importe, CveMoneda, TxtFecha.Text.ToDate, DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         If Not DdlTarjeta.Visible OrElse DdlTarjeta.SelectedValue.ToEntero < 1 Then
             CveIE = ObjBancos.AddBancos_IE(DdlCuentas.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFecha.Text.ToDate, TxtFolio.Text, "", Importe, CveMoneda, If(CveMoneda = 2, GlobalTipoCambio(TxtFecha.Text.Trim.ToDate).ToString.ToDouble, 0), TxtObservacion.Text.Trim, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         End If

vwd.webinfo

@@ -36,6 +36,16 @@
     
   
     
+  
+    
+  
+    
+  
+    
+  
+    
+  
+