From 46d29e0c310665776941d6c05b764fe5b316e466 Mon Sep 17 00:00:00 2001
From: Julian Moreno <juulian@hotmail.com>
Date: Wed, 15 Apr 2020 08:48:19 -0700
Subject: [PATCH] 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    | 15 +++++++++++----
 AC/PresupuestoEgresos.aspx.vb       |  6 +++++-
 AC/RegEgresosModificaciones.aspx    |  4 ++--
 Bancos/ProductosFinancieros.aspx.vb |  2 +-
 vwd.webinfo                         | 10 ++++++++++
 5 files changed, 29 insertions(+), 8 deletions(-)

diff --git a/AC/CatPresupuestoEgresos.aspx.vb b/AC/CatPresupuestoEgresos.aspx.vb
index 8a12fe595..7f3ada4ab 100644
--- a/AC/CatPresupuestoEgresos.aspx.vb
+++ b/AC/CatPresupuestoEgresos.aspx.vb
@@ -100,10 +100,17 @@ Partial Class AC_CatPresupuestoEgresos
 
                 Else
                     'si es anteproyecto
-                    If DtPresupuestoEgresos.Rows(0)("Bloqueado").ToString = "0" Then
-                        'AndAlso Ejercicio >= UsuarioActual.Empresa.EjercicioActual
-                        BtnPresupuesto.Visible = True
-                    End If
+                    Dim Bloqueado As Boolean = True
+                    For Each dbRow As DataRow In DtPresupuestoEgresos.Rows
+                        If dbRow("Bloqueado").ToString() = "0" Then Bloqueado = False
+                    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
 
diff --git a/AC/PresupuestoEgresos.aspx.vb b/AC/PresupuestoEgresos.aspx.vb
index 32ed41325..7ccb57d04 100644
--- a/AC/PresupuestoEgresos.aspx.vb
+++ b/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"""
diff --git a/AC/RegEgresosModificaciones.aspx b/AC/RegEgresosModificaciones.aspx
index 92445fc60..67f0dab0e 100644
--- a/AC/RegEgresosModificaciones.aspx
+++ b/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">
diff --git a/Bancos/ProductosFinancieros.aspx.vb b/Bancos/ProductosFinancieros.aspx.vb
index b8442756c..9246e63ef 100644
--- a/Bancos/ProductosFinancieros.aspx.vb
+++ b/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
diff --git a/vwd.webinfo b/vwd.webinfo
index 40d1fe36c..c6b051639 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -36,6 +36,16 @@
     
   
     
+  
+    
+  
+    
+  
+    
+  
+    
+  
+