Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

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
 

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

@@ -307,7 +307,7 @@ Partial Class Bancos_ProductosFinancieros
         Dim FolioPoliza As Integer = -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
@@ -366,7 +366,7 @@ Partial Class Bancos_ProductosFinancieros
                             idCuentaContabilizacion = 0
                         End If
 
-                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, "", If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, 42, ConceptoContable), TxtConcepto.Text, FechaMovimiento, If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), -1, CveIE, ImporteMX:=importeMovimiento, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), UsuarioActual.CveEmpresa), -1)) Then
+                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, "", If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, 42, ConceptoContable), DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), FechaMovimiento, If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), -1, CveIE, ImporteMX:=importeMovimiento, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), UsuarioActual.CveEmpresa), -1)) Then
                             ErrorTransaccion = True
                         End If
                     End If
@@ -405,7 +405,7 @@ Partial Class Bancos_ProductosFinancieros
             If DdlTipoMovimiento.SelectedValue = "15" Or DdlTipoMovimiento.SelectedValue = "17" Or DdlTipoMovimiento.SelectedValue = "50" Then
                 'PRESUPUESTO EGRESOS
                 IdPoliza = ObjContaAC.AddPoliza(3, TxtConcepto.Text.Trim, Importe, Importe, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate)
-
+                FolioPoliza = ObjContaAC.Folio
                 If IdPoliza > 0 Then
                     FolioPoliza = ObjContaAC.Folio
                     Dim DtPresupuestosTemp As DataTable
@@ -493,7 +493,7 @@ Partial Class Bancos_ProductosFinancieros
             If DdlTipoMovimiento.SelectedValue = "16" Then
                 'PRESUPUESTO INGRESOS
                 IdPoliza = ObjContaAC.AddPoliza(1, TxtConcepto.Text.Trim, Importe, Importe, UsuarioActual.CveUsuario, Fecha)
-
+                FolioPoliza = ObjContaAC.Folio
                 If IdPoliza > 0 Then
                     FolioPoliza = ObjContaAC.Folio
                     Dim DtPresupuestosTemp As DataTable

PortalCliente/PortalCliente.aspx.vb

@@ -543,7 +543,7 @@ Partial Class Ventas_PortalCliente
 
 #Region "  PAGO PROSEPAGO  "
     Private Sub InicializaProsepago()
-        If Not UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12) Then
+        If Not UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 145) Then
             GvCxC.Columns(10).Visible = False
             LBPagar.Visible = False
         End If
@@ -632,7 +632,7 @@ Partial Class Ventas_PortalCliente
 
         Dim uriString = ""
         Select Case UsuarioActual.CveEmpresa
-            Case 1, 4, 7, 11, 12
+            Case 1, 4, 7, 11, 12, 145
                 uriString = "https://www.prosepago.com/tvirtual/tvds.aspx?ppost=1&t=123" ' VSH SEGURIDAD
             Case Else
                 Alert("Sin terminal de pago configurada. Por favor comuniquese con su proveedor para verificar.", TipoMensaje.MsgAdvertencia)

vwd.webinfo

@@ -50,8 +50,6 @@
     
   
     
-  
-