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

.gitignore

@@ -273,3 +273,4 @@ __pycache__/
 /Default.aspx.cs
 /App_WebReferences/WSRDLC
 /wwwSIGGIT.rar
+/Front

AC/RegNomina.aspx.vb

@@ -365,7 +365,7 @@ Partial Class AC_RegNomina
 
 
         Dim CtaCliente As Integer = 634 ' Municipio de hermosillo
-        Dim CvePresupuestoIngreso As Integer = 195 ' 2015: 12, 2016: 152, 2017: 160, 2018: 183
+        Dim CvePresupuestoIngreso As Integer = 214 ' 2015: 12, 2016: 152, 2017: 160, 2018: 183, 2019: 195
         Dim CtaPuente As Integer = 1774 ' INGRESO RECAUDADO PARA NOMINA EN MUNICIPIO, fijo
         Dim CtaServiciosPersonales As Integer = 1778 ' 2111  -- fijo
         Dim IdCtaPersonal As Integer = 0

AF/AF.aspx

@@ -2903,6 +2903,16 @@
                                 <ajax:ValidatorCalloutExtender ID="VCEAFInvSerie" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvSerie" Width="300px"></ajax:ValidatorCalloutExtender>
                             </div>
                         </div>
+                        <div id="DivSeccion" runat="server" visible="false" class="row">
+                            <div class="col-md-2">Sección:</div>
+                            <div class="col-md-10">
+                                <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                                        </asp:DropDownList>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator9" runat="server" ControlToValidate="TxtAFInvSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor seleccione uno." InitialValue="" ValidationGroup="GrpAFInv"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender27" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvSerie" Width="300px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
                     </div>
                     <div class="modal-footer">
                         <asp:Button Text="Cargar Producto" ID="BtnAFInv" CssClass="btn btn-primary" ValidationGroup="GrpAFInv" OnClick="BtnAFInv_Click" runat="server" />

AF/AF.aspx.vb

@@ -2,7 +2,6 @@
 Option Strict On
 
 Imports Extensiones
-Imports System.Runtime.InteropServices
 Imports System.IO
 Imports System.Data
 Imports Microsoft.Reporting.WebForms
@@ -528,7 +527,7 @@ Partial Class AF_AF
     Private Sub CargaAFInv()
         If UsuarioActual.Empresa.UsaInventarios AndAlso CveActivoFijo <= 0 Then
 
-            HLAFInv.Visible= True
+            HLAFInv.Visible = True
 
             Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,12)"
             DdlAFInvAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, CveEmpresaActual, CveTipoAlmacen:=-1).FiltraParametros(StrAlmacenes)
@@ -3048,18 +3047,22 @@ Partial Class AF_AF
             Alert("Seleccione un producto.")
             Exit Sub
         End If
-
+        Dim CveSeccionAlmacen As Integer = -1
         AFInvSerie = ""
         AFInvCvePS = -1
         AFInvCveAlmacen = -1
 
-        Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlAFInvPS.SelectedValue.ToEntero).Rows(0)
+        Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlAFInvPS.SelectedValue.ToEntero).FiltroPrimero("")
-        Dim Inv_CveMetodoInventario As Integer = DrPS("Inv_CveMetodoInventario").ToString().ToEntero()
+        If DrPS Is Nothing Then Exit Sub
+
+        Dim Inv_CveMetodoInventario As Integer = If(DrPS("AplicaSerie").ToString() = "True", 5, 1)
+        If CBool(DrPS("AplicaSeccion")) Then CveSeccionAlmacen = DdlSeccionAlmacen.SelectedValue.ToEntero
 
         AFInvSerie = If(Inv_CveMetodoInventario = 5, TxtAFInvSerie.Text.Trim, "-1")
 
+
         Dim ObjInventario As New ClsInventarios
-        Dim Existencia = ObjInventario.GetExistenciasPS(DdlAFInvPS.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, FechaMovto:=Now.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=AFInvSerie)
+        Dim Existencia = ObjInventario.GetExistenciasPS(DdlAFInvPS.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, FechaMovto:=Now.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=AFInvSerie)
         Dim Costo As Decimal = 0
         If Inv_CveMetodoInventario = 5 Then
             Costo = ObjInventario.GetCostoPSSerie(DdlAFInvPS.SelectedValue.ToEntero, AFInvSerie, DdlAFInvAlmacen.SelectedValue.ToEntero, CveEmpresaActual)
@@ -3643,7 +3646,23 @@ Partial Class AF_AF
     End Sub
 #End Region
     Protected Sub DdlAFInvPS_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DivSerie.Visible = CBool(GlobalDTPS(UsuarioActual.CveEmpresa, DdlAFInvPS.SelectedValue.ToEntero).FiltroPrimeroValor("AplicaSerie"))
+        Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlAFInvPS.SelectedValue.ToEntero).FiltroPrimero("")
+        If drr IsNot Nothing Then
+            DivSerie.Visible = CBool(drr("AplicaSerie"))
+            DivSeccion.Visible = CBool(drr("AplicaSeccion"))
+            DdlSeccionAlmacen.Items.Clear()
+            If CBool(drr("AplicaSeccion")) Then
+                CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAFInvAlmacen.SelectedValue.ToEntero, DdlAFInvPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
+                'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, DdlAFInvPS.SelectedValue.ToEntero)
+                'DdlSeccionAlmacen.DataSource = dtt
+                'DdlSeccionAlmacen.DataBind()
+
+                'dtt.Dispose()
+
+            End If
+
+        End If
+
 
     End Sub
     Protected Sub BtnPDFCompras_Click(sender As Object, e As EventArgs)

AF/CatAF.aspx.vb

@@ -87,8 +87,8 @@ Partial Class AF_CatAF
         DdlEstatus.DataSource = GlobalDTEstadoActivoFijo
         DdlEstatus.DataBind()
         DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
-
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto)
+        GvDatos.Columns(7).HeaderText = LblSubProyecto.Text
         DivProyecto.Visible = LblProyecto.Visible
         DivProyectoDdl.Visible = LblProyecto.Visible
         'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)

App_Code/CFDITimbre.vb

@@ -302,6 +302,7 @@ Public Class CFDIConceptos
     Public Property ValorUnitario As Decimal = 0.00D
     Public Property Importe As Decimal = 0.00D
     Public Property CuentaPredial As String = ""
+    Public Property NumeroPedimento As String = ""
     Public Property ClaveProdServ As String = ""
     Public Property ClaveUnidad As String = ""
     Public Property Impuestos As List(Of CFDIConceptosImpuestos)

App_Code/ClsBancos.vb

@@ -611,12 +611,13 @@ Public Class ClsBancos
 
 #Region " B A N C O S - C U E N T A S - U S U A R I O S"
 
-    Public Function GetBancosCuentasUsuarios(CveCuenta As Integer) As Boolean
+    Public Function GetBancosCuentasUsuarios(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_BancosCuentasUsuariosGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -1453,9 +1454,11 @@ Public Class ClsBancos
             _Folio = SqlAdapter.SelectCommand.Parameters("@FolioRegistro").Value.ToString
 
         Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Or Ex1.Message.Contains("Número: 2601;") Then
+            If Ex1.Message.Contains("Número: 2627;") Then
                 Me.OnError("Ocurrió un error al Guardar el Movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            ElseIf Ex1.Message.Contains("Número: 2601;") Then
                 Alert("Ya existe un movimiento bancario con el mismo Folio: <b>" & Folio & "</b>.", TipoMensaje.MsgAdvertencia)
+                Me.OnError("Ocurrió un error al Guardar el Movimiento. Ya existe un movimiento bancario con el mismo Folio: <b>" & Folio & "</b>.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             Else
                 Me.OnError("Ocurrió un error al Guardar el Movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If
@@ -4720,7 +4723,7 @@ Public Class ClsBancos
                 strBody.AppendFormat("                        </tr>")
 
 
-                For Each dr As DataRow In DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
+                For Each dr As DataRow In DtResultados.FiltraParametros("CveConceptoContable IN (17,312) AND CveCompra > 0").Rows
                     strBody.AppendFormat("                        <tr class='Texto'>")
                     strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
                     strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)

App_Code/ClsClientes.vb

@@ -931,8 +931,16 @@ Public Class ClsClientes
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Then
                 Alert("El Cliente no se guardo debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia)
-            ElseIf Ex1.Message.Contains("'UN_ClientesRFCEmpresa'") Then
+            ElseIf Ex1.Message.Contains("Número: 2601;") Then
-                Alert($"El Cliente no se guardo debido a que el RFC {RFC} se encuentra asignado a otro cliente.", TipoMensaje.MsgAdvertencia)
+
+                If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then
+                    Alert($"El Cliente no se guardo debido a que el RFC {RFC} se encuentra asignado a otro cliente.", TipoMensaje.MsgAdvertencia)
+                End If
+
+                If Ex1.Message.Contains("IND_Clientes_Codigo") Then
+                    Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia)
+                End If
+
             Else
                 Me.OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If

App_Code/ClsContabilidad.vb

@@ -4096,7 +4096,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetAnexoCatalogoMensual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetAnexoCatalogoMensual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, Divisor As Integer, CveUsuario As Integer) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_AnexoCatalogoMensualGet")
@@ -4106,6 +4106,8 @@ Public Class ClsContabilidad
             .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
             .Add("@CveSubproyecto", SqlDbType.Int).Value = CveSubproyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Divisor", SqlDbType.Int).Value = Divisor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
         End With
 
         Try
@@ -4117,16 +4119,21 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
-    Public Function GetAnexoCatalogoAnual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetAnexoCatalogoAnual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, EjercicioFinal As Integer, Divisor As Integer, CveUsuario As Integer) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_AnexoCatalogoAnualGet")
 
         With SqlAdapter.SelectCommand.Parameters
+
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
             .Add("@CveSubproyecto", SqlDbType.Int).Value = CveSubproyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@EjercicioFinal", SqlDbType.Int).Value = EjercicioFinal
+            .Add("@Divisor", SqlDbType.Int).Value = Divisor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+
         End With
 
         Try
@@ -6176,6 +6183,34 @@ Public Class ClsContabilidad
     End Function
 
 
+
+    Public Function GetAnexoCatalogoMensualHorizontal(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta2_AnexoCatalogoMensualHorizontalGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
+            .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
+            .Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@SAT", SqlDbType.Int).Value = SAT
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener el Anexo del Catalogo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
     Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
         Dim Retorno = False
 

App_Code/ClsEdocumentacion.vb

@@ -508,6 +508,107 @@ Public Class ClsEdocumentacion
 #End Region
 
 
+#Region " P A R A M E T R O S "
+
+    Public Function AddDocumentacionParametros(CveDocumentacion As Integer, Parametro As String, Descripcion As String, CveEmpresa As Integer, CveUsaurio As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Edoc_DocumentacionParametrosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveDocumentacion", SqlDbType.Int).Value = CveDocumentacion
+            .Add("@Parametro", SqlDbType.VarChar).Value = Parametro
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsaurio", SqlDbType.Int).Value = CveUsaurio
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el pa.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function UpdateDocumentacionParametros(CveDocumentacionParametro As Integer, CveDocumentacion As Integer, Parametro As String, Descripcion As String, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Edoc_DocumentacionParametrosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveDocumentacionParametro", SqlDbType.Int).Value = CveDocumentacionParametro
+            .Add("@CveDocumentacion", SqlDbType.Int).Value = CveDocumentacion
+            .Add("@Parametro", SqlDbType.VarChar).Value = Parametro
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualiar el  parametro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetDocumentacionParametros(CveDocumentacionParametro As Integer, CveDocumentacion As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Edoc_DocumentacionParametrosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveDocumentacionParametro", SqlDbType.Int).Value = CveDocumentacionParametro
+            .Add("@CveDocumentacion", SqlDbType.Int).Value = CveDocumentacion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar los parametros.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function RemoveDocumentacionParametros(CveDocumentacionParametro As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Edoc_DocumentacionParametrosRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveDocumentacionParametro", SqlDbType.Int).Value = CveDocumentacionParametro
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el parametros.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+#End Region
 
 #Region " IDisposable Support "
     ' IDisposable

App_Code/ClsInventarios.vb

@@ -358,7 +358,7 @@ Public Class ClsInventarios
     End Function
 
 
-    Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1) As Boolean
+    Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_AlmacenesAdd")
@@ -374,6 +374,8 @@ Public Class ClsInventarios
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Orden", SqlDbType.SmallInt).Value = Orden
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
+
         End With
 
         Try
@@ -392,7 +394,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1) As Boolean
+    Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_AlmacenesUpdate")
@@ -408,6 +410,8 @@ Public Class ClsInventarios
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Orden", SqlDbType.SmallInt).Value = Orden
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
+
         End With
 
         Try
@@ -3882,7 +3886,7 @@ Public Class ClsInventarios
 
 #Region "  INVENTARIOS - SOLICITUD DE TRASPASOS  "
     Public Function AddTrasladoSolicitud(Observaciones As String, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, CveMovimientoAlmacen As Integer, Fecha As DateTime, CveUsuario As Integer, CveEmpresa As Integer,
-                                         Optional CveContrato As Integer = -1, Optional Guia As String = "", Optional CvePaqueteria As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional CveOS As Integer = -1) As Integer
+                                         Optional CveContrato As Integer = -1, Optional Guia As String = "", Optional CvePaqueteria As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional CveOS As Integer = -1, Optional EstatusAlmacen As Integer = -1) As Integer
         Dim Retorno = -1
         DataAdapter("PA_Inv_TraspasoSolicitudAdd")
 
@@ -3902,6 +3906,7 @@ Public Class ClsInventarios
             .Add("@CvePaqueteria", SqlDbType.Int).Value = CvePaqueteria
             .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio
             .Add("@CveOS", SqlDbType.Int).Value = CveOS
+            .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen
 
         End With
 
@@ -3969,6 +3974,31 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
+
+    Public Function UpdateTrasladoAutorizar(CveTraspasoSolicitud As Integer, CveEmpresa As Integer, EstatusAlmacen As Integer, CveUsuarioAutoriza As Integer, FechaAutorizacion As Date) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Inv_TraspasoAutorizar")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTraspasoSolicitud", SqlDbType.Int).Value = CveTraspasoSolicitud
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen
+            .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
+            .Add("@FechaAutorizacion", SqlDbType.Date).Value = FechaAutorizacion
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
     Public Function RemoveTrasladoSolicitud(CveTrasladoSolicitud As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         Dim CveTraspasoSolicitud As Integer = 0
@@ -4780,13 +4810,15 @@ Public Class ClsInventarios
 #Region "MOVIMIENTOS DETALLE SECCION ALMACEN"
 
 
-    Public Function GetMovimientosDetalleSeccionesAlmacen(CveAlmacen As Integer, CveClasificacion As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetMovimientosDetalleSeccionesAlmacen(CveAlmacen As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Folio As String, CvePS As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_MovimientosDetalleAjusteSeccionesGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Folio", SqlDbType.NVarChar).Value = Folio
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -4902,6 +4934,23 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
+    Public Function GetProductosServiciosAlmacenSeccionClasificacion(CvePS As Integer, CveAlmacen As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionClasificacionGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el ps de la seccion de almacen..", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
     Public Function RemoveProductosServiciosAlmacenSeccion(CvePSAlmacenSeccion As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionRemove")
@@ -5029,6 +5078,92 @@ Public Class ClsInventarios
 
 #End Region
 
+#Region "Almacen Clasificacion Secciones"
+    Public Function AddAlmacenClasificacionSecciones(CveAlmacen As Integer, CveClasificacion As Integer, CveClasificacionDetalle As Integer, CveMarca As Integer,
+                                                     CveSeccionAlmacen As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_AlmacenClasificacionesSeccionesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la relación Almacén Clasificación Sección.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetAlmacenClasificacionSecciones(CveSeccionClasificacion As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_AlmacenClasificacionesSeccionesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSeccionClasificacion", SqlDbType.Int).Value = CveSeccionClasificacion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Almacén Clasificación Sección.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateAlmacenClasificacionSecciones(CveSeccionClasificacion As Integer, CveAlmacen As Integer, CveClasificacion As Integer, CveClasificacionDetalle As Integer,
+                                                        CveMarca As Integer, CveSeccionAlmacen As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_AlmacenClasificacionesSeccionesUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSeccionClasificacion", SqlDbType.Int).Value = CveSeccionClasificacion
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Almacén Clasificación Sección.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveAlmacenClasificacionSecciones(CveSeccionClasificacion As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_AlmacenClasificacionesSeccionesDelete")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSeccionClasificacion", SqlDbType.Int).Value = CveSeccionClasificacion
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el Almacén Clasificación Sección.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
 #Region " IDisposable Support "
     ' IDisposable
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)

App_Code/ClsOIEventos.vb

@@ -2743,8 +2743,355 @@ Public Class ClsOIEventos
 
         Return Retorno
     End Function
+
+
 #End Region
 
+#Region "OI_Documentos"
+
+#Region "OI_DocumentosCategorias"
+    Public Function GetDocumentoCategoria(Optional CveCategoria As Integer = -1, Optional Categoria As String = "-1") As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosCategoriasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
+            .Add("@Categoria", SqlDbType.NVarChar).Value = Categoria
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener la categoria", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddDocumentoCategoria(Categoria As String, Estado As Boolean) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosCategoriasAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Categoria", SqlDbType.NVarChar).Value = Categoria
+            .Add("@Estado", SqlDbType.Bit).Value = Estado
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la categoria", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateDocumentoCategoria(CveCategoria As Integer, Categoria As String, Estado As Boolean) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosCategoriasUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
+            .Add("@Categoria", SqlDbType.NVarChar).Value = Categoria
+            .Add("@Estado", SqlDbType.Bit).Value = Estado
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la categoria", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveDocumentoCategoria(CveCategoria As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosCategoriasRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCategoria", SqlDbType.NVarChar).Value = CveCategoria
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar la categoria", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "OI_DocumentosSubCategoria"
+    Public Function GetDocumentoSubCategoria(Optional CveSubCategoria As Integer = -1, Optional SubCategoria As String = "-1") As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosSubCategoriasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSubCategoria", SqlDbType.Int).Value = CveSubCategoria
+            .Add("@SubCategoria", SqlDbType.NVarChar).Value = SubCategoria
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener la subcategoria", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddDocumentoSubCategoria(SubCategoria As String, CveCategoria As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosSubCategoriasAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@SubCategoria", SqlDbType.NVarChar).Value = SubCategoria
+            .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la subcategoria", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateDocumentoSubCategoria(CveSubCategoria As Integer, SubCategoria As String, CveCategoria As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosSubCategoriasUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSubCategoria", SqlDbType.Int).Value = CveSubCategoria
+            .Add("@SubCategoria", SqlDbType.NVarChar).Value = SubCategoria
+            .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la subcategoria", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveDocumentoSubCategoria(CveSubCategoria As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosSubCategoriasRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSubCategoria", SqlDbType.NVarChar).Value = CveSubCategoria
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar la subcategoria", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "Documentos"
+    Public Function ListadoDocumentos(CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_ListarDocumentos")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el listado de documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetDocumento(CveDocumento As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveDocumento", SqlDbType.Int).Value = CveDocumento
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddDocumento(CveSubCategoria As Integer, Descripcion As String, Observacion As String, Version As String, CveEstatus As Integer, ArchivoFisico As String,
+                                 Responsable As String, CveDocumentoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Integer
+
+        Dim Retorno As Integer = -1
+
+        DataAdapter("PA_OI_DocumentosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSubCategoria", SqlDbType.Int).Value = CveSubCategoria
+            .Add("@Descripcion", SqlDbType.NVarChar).Value = Descripcion
+            .Add("@Observacion", SqlDbType.NVarChar).Value = Observacion
+            .Add("@Version", SqlDbType.NVarChar).Value = Version
+            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+            .Add("@ArchivoFisico", SqlDbType.NVarChar).Value = ArchivoFisico
+            .Add("@Responsable", SqlDbType.NVarChar).Value = Responsable
+            .Add("@CveDocumentoPadre", SqlDbType.Int).Value = CveDocumentoPadre
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDocumento", SqlDbType.Int).Direction = ParameterDirection.Output
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = SqlAdapter.SelectCommand.Parameters("@CveDocumento").Value.ToString().ToEntero()
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el Documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateDocumento(CveDocumento As Integer, CveSubCategoria As Integer, Descripcion As String, Observacion As String, Version As String, CveEstatus As Integer, ArchivoFisico As String,
+                                 Responsable As String, FechaAprobacion As Date, CveDocumentoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveDocumento", SqlDbType.Int).Value = CveDocumento
+            .Add("@CveSubCategoria", SqlDbType.Int).Value = CveSubCategoria
+            .Add("@Descripcion", SqlDbType.NVarChar).Value = Descripcion
+            .Add("@Observacion", SqlDbType.NVarChar).Value = Observacion
+            .Add("@Version", SqlDbType.NVarChar).Value = Version
+            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+            .Add("@ArchivoFisico", SqlDbType.NVarChar).Value = ArchivoFisico
+            .Add("@Responsable", SqlDbType.NVarChar).Value = Responsable
+            .Add("@FechaAprobacion", SqlDbType.Date).Value = FechaAprobacion
+            .Add("@CveDocumentoPadre", SqlDbType.Int).Value = CveDocumentoPadre
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el Documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveDocumento(CveDocumento As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveDocumento", SqlDbType.Int).Value = CveDocumento
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "OI_DocumentosAutorizacion"
+    Public Function AddDocumentoAutorizacion(CveDocumento As Integer, CveUsuario As Integer, Adjunto As String) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("OI_DocumentosAutorizacionesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveDocumento", SqlDbType.Int).Value = CveDocumento
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Adjunto", SqlDbType.NVarChar).Value = Adjunto
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el usuario para autorizar el documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetDocumentoAutorizacion(CveDocumento As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosAutorizacionesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveDocumento", SqlDbType.Int).Value = CveDocumento
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el usuario o usuarios para autorizar el documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#End Region
 
     ' IDisposable
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)

App_Code/ClsPaginas.vb

@@ -15,6 +15,7 @@ Imports CrystalDecisions.ReportSource
 Imports Stimulsoft.Report
 Imports System.Xml
 Imports System.Web.Http.ValueProviders
+Imports ADServerControl
 
 
 'NOTA AD TEAM
@@ -278,6 +279,12 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTPSATPS() As DataTable
         Get
+            If Application("GlobalDTPSATPS") Is Nothing Then
+                Dim ObjGrales As New ClsGenerales
+                If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
+                ObjGrales.Dispose()
+            End If
+
             GlobalDTPSATPS = DirectCast(Application("GlobalDTPSATPS"), EnumerableRowCollection(Of DataRow)).CopyToDataTable
         End Get
         Set(value As DataTable)
@@ -352,6 +359,12 @@ Public Class ClsPaginas
 
     Property GlobalDTEstado(ClaveSATPais As String) As DataTable
         Get
+            If Application("GlobalDTEstado") Is Nothing Then
+                Dim ObjGrales As New ClsGenerales
+                If ObjGrales.GetSATEstado("-1") Then Application("GlobalDTEstado") = ObjGrales.DtResultados Else Application("GlobalDTEstado") = Nothing
+                ObjGrales.Dispose()
+            End If
+
             If ClaveSATPais <> "-1" Then
                 Dim Dv As New DataView(DirectCast(Application("GlobalDTEstado"), DataTable), String.Format("ClaveSATPais = '{0}'", ClaveSATPais), "", DataViewRowState.CurrentRows)
                 GlobalDTEstado = Dv.ToTable
@@ -368,6 +381,12 @@ Public Class ClsPaginas
 
     Property GlobalDTMunicipio(ClaveSATEstado As String) As DataTable
         Get
+            If Application("GlobalDTMunicipio") Is Nothing Then
+                Dim ObjGrales As New ClsGenerales
+                If ObjGrales.GetSATMunicipio("-1") Then Application("GlobalDTMunicipio") = ObjGrales.DtResultados Else Application("GlobalDTMunicipio") = Nothing
+                ObjGrales.Dispose()
+            End If
+
             If ClaveSATEstado <> "-1" Then
                 Dim Dv As New DataView(DirectCast(Application("GlobalDTMunicipio"), DataTable), String.Format("ClaveSATEstado = '{0}'", ClaveSATEstado), "", DataViewRowState.CurrentRows)
                 GlobalDTMunicipio = Dv.ToTable
@@ -384,6 +403,12 @@ Public Class ClsPaginas
 
     Property GlobalDTColonia(ClaveSATMunicipio As String) As DataTable
         Get
+            If Application("GlobalDTColonia") Is Nothing Then
+                Dim ObjGrales As New ClsGenerales
+                If ObjGrales.GetSATColonia("-1") Then Application("GlobalDTColonia") = ObjGrales.DtResultados Else Application("GlobalDTColonia") = Nothing
+                ObjGrales.Dispose()
+            End If
+
             If ClaveSATMunicipio <> "-1" Then
                 Dim Dv As New DataView(DirectCast(Application("GlobalDTColonia"), DataTable), String.Format("ClaveSATMunicipio = '{0}'", ClaveSATMunicipio), "", DataViewRowState.CurrentRows)
                 GlobalDTColonia = Dv.ToTable
@@ -402,6 +427,11 @@ Public Class ClsPaginas
 
     Property GlobalDTPSATUM() As DataTable
         Get
+            If Application("GlobalDTPSATUM") Is Nothing Then
+                Dim ObjGrales As New ClsGenerales
+                If ObjGrales.GetSATUnidadMedida Then Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATUM") = Nothing
+                ObjGrales.Dispose()
+            End If
 
             'System.Data.EnumerableRowCollection
             If Not IsNothing(Application("GlobalDTPSATUM")) Then
@@ -1457,14 +1487,14 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa)
             'sino existe, recarga los datos
-            If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
-                Dim ObjBancos As New ClsBancos
+                Using ObjBancos As New ClsBancos
-                If ObjBancos.GetBancosCuentasUsuarios(-1) Then
+                    If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
-                    Application(AppNombre) = ObjBancos.DtResultados
+                        Application(AppNombre) = ObjBancos.DtResultados
-                Else
+                    Else
-                    Application(AppNombre) = Nothing
+                        Application(AppNombre) = Nothing
-                End If
+                    End If
-                ObjBancos.Dispose()
+                End Using
             End If
 
             Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa)
@@ -1837,37 +1867,42 @@ Public Class ClsPaginas
 
     Property GlobalDTInvPSSeccionesAlmacen(CveEmpresa As Integer, CveAlmacen As Integer, CvePS As Integer) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTInvPSSeccionesAlmacen-{0}", CveEmpresa)
+            Dim dtt As DataTable = Nothing
-            'sino existe, recarga los datos
+            Dim ObjInv As New ClsInventarios
-            If Application(AppNombre) Is Nothing Then
+            If ObjInv.GetProductosServiciosAlmacenSeccionClasificacion(CvePS, CveAlmacen, CveEmpresa) Then dtt = ObjInv.DtResultados
-                Dim ObjInv As New ClsInventarios
+            ObjInv.Dispose()
-                If ObjInv.GetProductosServiciosAlmacenSeccion(-1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjInv.DtResultados
+            GlobalDTInvPSSeccionesAlmacen = dtt
-                ObjInv.Dispose()
+            'Dim AppNombre As String = String.Format("GlobalDTInvPSSeccionesAlmacen-{0}", CveEmpresa)
-            End If
+            ''sino existe, recarga los datos
-            If CveEmpresa <> -1 Then
+            'If Application(AppNombre) Is Nothing Then
-                Dim Str As New StringBuilder
+            '    Dim ObjInv As New ClsInventarios
+            '    If ObjInv.GetProductosServiciosAlmacenSeccion(-1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjInv.DtResultados
+            '    ObjInv.Dispose()
+            'End If
+            'If CveEmpresa <> -1 Then
+            '    Dim Str As New StringBuilder
 
-                If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+            '    If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
-                If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
+            '    If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
-                If CvePS > 0 Then Str.AppendFormat("AND CvePS = {0}", CvePS)
+            '    If CvePS > 0 Then Str.AppendFormat("AND CvePS = {0}", CvePS)
 
-                'si el PS no tiene definido una seccion, toma las del Almacen
+            '    'si el PS no tiene definido una seccion, toma las del Almacen
-                If DirectCast(Application(AppNombre), DataTable) IsNot Nothing Then
+            '    If DirectCast(Application(AppNombre), DataTable) IsNot Nothing Then
-                    Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            '        Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
-                    GlobalDTInvPSSeccionesAlmacen = Dv.ToTable
+            '        GlobalDTInvPSSeccionesAlmacen = Dv.ToTable
-                    Dv.Dispose()
+            '        Dv.Dispose()
-                    'sino tiene datos registrados, toma los de almacen
+            '        'sino tiene datos registrados, toma los de almacen
-                    If GlobalDTInvPSSeccionesAlmacen.Rows.Count = 0 Then
+            '        If GlobalDTInvPSSeccionesAlmacen.Rows.Count = 0 Then
-                        GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
+            '            GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
-                    End If
+            '        End If
-                Else
+            '    Else
-                    'sino tiene datos registrados, toma los de almacen
+            '        'sino tiene datos registrados, toma los de almacen
-                    GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
+            '        GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
-                End If
+            '    End If
 
-            Else
+            'Else
-                GlobalDTInvPSSeccionesAlmacen = DirectCast(Application(AppNombre), DataTable)
+            '    GlobalDTInvPSSeccionesAlmacen = DirectCast(Application(AppNombre), DataTable)
-            End If
+            'End If
 
         End Get
         Set(value As DataTable)
@@ -4232,6 +4267,12 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad2/CatCuentasAsignaciones.aspx".ToUpper(), 724)
             PaginaDict.Add("/Contabilidad2/CatContaEjercicios.aspx".ToUpper(), 725)
             PaginaDict.Add("/Contabilidad2/PolizasImpresion.aspx".ToUpper(), 726)
+            PaginaDict.Add("/Contabilidad2/RepEstadoResultadosHorizontal.aspx".ToUpper(), 420)
+
+            PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx".ToUpper(), -1)
+
+
+
 #End Region
             'CONTRATOS
 #Region "Contratos"
@@ -4277,12 +4318,11 @@ Public Class ClsPaginas
             PaginaDict.Add("/CRM/CatProbabilidadAcercamiento.aspx".ToUpper(), 1306)
             'PaginaDict.Add("/CRM/Acercamiento.aspx".ToUpper(), 1308)
             PaginaDict.Add("/CRM/Acercamiento.aspx".ToUpper(), 1305)
-            PaginaDict.Add("/CRM/RepAcercamientosEtapas.aspx".ToUpper(), 1310)
             PaginaDict.Add("/CRM/RepAcercamientos.aspx".ToUpper(), 1311)
             PaginaDict.Add("/CRM/PopUpBuscarAcercamiento.aspx".ToUpper(), 1312)
             PaginaDict.Add("/CRM/RepAcercamientosProcesos.aspx".ToUpper(), 1313)
             PaginaDict.Add("/CRM/RepAcercamientosRechazos.aspx".ToUpper(), 1314)
-            PaginaDict.Add("/CRM/RepAcercamientosProcesosDetalle.aspx".ToUpper(), 758)
+            PaginaDict.Add("/CRM/RepAcercamientosProcesosDetalle.aspx".ToUpper(), 1313)
             PaginaDict.Add("/CRM/CatMetas.aspx".ToUpper(), 684)
 #End Region
 #Region "CxC"
@@ -4305,7 +4345,6 @@ Public Class ClsPaginas
             PaginaDict.Add("/Finanzas/RepBalanceGeneralVertical.aspx".ToUpper(), 418)
             PaginaDict.Add("/Finanzas/RepBalanceGeneralHorizontal.aspx".ToUpper(), 419)
             PaginaDict.Add("/Finanzas/RepEstadoResultados.aspx".ToUpper(), 579)
-            PaginaDict.Add("/Finanzas/RepEstadoResultadosHorizontal.aspx".ToUpper(), 420)
             PaginaDict.Add("/Finanzas/RepEstadoResultadosVertical.aspx".ToUpper(), 424)
             PaginaDict.Add("/Finanzas/RepOrigenAplicacion.aspx".ToUpper(), 581)
             PaginaDict.Add("/Finanzas/RazonesFinancierasCuentas.aspx".ToUpper(), -1)
@@ -4477,6 +4516,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Inventarios/AjustesSeccionAlmacen.aspx".ToUpper(), 892)
             PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
             PaginaDict.Add("/Inventarios/EntregasPorRealizar.aspx".ToUpper(), 728)
+            PaginaDict.Add("/Inventarios/CatAlmacenClasificacionSecciones.aspx".ToUpper(), 764)
 
 #End Region
 #Region "MF"
@@ -4584,6 +4624,10 @@ Public Class ClsPaginas
             PaginaDict.Add("/OI/RepDesarrollo.aspx".ToUpper(), 475)
             PaginaDict.Add("/OI/DesarrolloWizard.aspx".ToUpper(), 474)
             PaginaDict.Add("/OI/SubidasADS.aspx".ToUpper(), 476)
+            PaginaDict.Add("/OI/CatDocumentoCategoria.aspx".ToUpper(), 760)
+            PaginaDict.Add("/OI/CatDocumentoSubCategoria.aspx".ToUpper(), 761)
+            PaginaDict.Add("/OI/Documentos.aspx".ToUpper(), 762)
+            PaginaDict.Add("/OI/DocumentoDetalle.aspx".ToUpper(), 763)
 #End Region
 #Region "Planeacion"
             'PLANEACIÓN
@@ -4974,7 +5018,7 @@ Public Class ClsPaginas
 
             PaginaDict.Add("/Compras/RepCxPCaudillo.aspx".ToUpper(), -1)
 
-            PaginaDict.Add("/Contabilidad2/RepEstadoResultadosHorizontal.aspx".ToUpper(), -1)
+
             PaginaDict.Add("/Contabilidad2/RepBalanceGeneralHorizontal.aspx".ToUpper(), -1)
 
 
@@ -8073,7 +8117,7 @@ Public Class ClsPaginas
     End Sub
 #End Region
 
-    Public Sub CargarCentrosDeCosto(DdlProyecto As DropDownList, DdlSubProyecto As DropDownList, LthProyectoP As Label, LblSubProyecto As Label)
+    Public Sub CargarCentrosDeCosto(DdlProyecto As DropDownList, DdlSubProyecto As DropDownList, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos")
         Select Case UsuarioActual.Empresa.Tipo_CentroCosto
             Case 1
                 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
@@ -8096,16 +8140,33 @@ Public Class ClsPaginas
         End Select
 
         If DdlProyecto IsNot Nothing Then
-            DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
+            DdlProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
             DdlProyecto.DataBind()
-            DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            If AplicaTodos <> "" Then DdlProyecto.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
         End If
 
         If DdlSubProyecto IsNot Nothing Then
-            DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+            DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
             DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            If AplicaTodos <> "" Then DdlSubProyecto.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
         End If
     End Sub
+
+    Public Sub CargaSeccionesAlmacen(ByRef DdlSeccionAlmacen As DropDownList, CveAlmacen As Integer, CvePS As Integer, CveEmpresa As Integer, Optional IncluyeSeleccione As Boolean = False)
+        DdlSeccionAlmacen.Items.Clear()
+        DdlSeccionAlmacen.ClearSelection()
+        Dim dtsec As DataTable = GlobalDTInvPSSeccionesAlmacen(CveEmpresa, CveAlmacen, CvePS)
+        DdlSeccionAlmacen.DataSource = dtsec
+        DdlSeccionAlmacen.DataBind()
+        If dtsec Is Nothing Then Exit Sub
+        If  dtsec.Rows.Count = 1 Then
+            DdlSeccionAlmacen.SelectedIndex = 0
+            DdlSeccionAlmacen.Enabled = False
+        Else 'si es mayor a uno que por default seleccione el primero, que seria el predeterminado
+            DdlSeccionAlmacen.SelectedValueExist(dtsec.FiltroPrimeroValor("CveSeccionAlmacen", "Predeterminado = 1"))
+            If IncluyeSeleccione Then DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
+        dtsec.Dispose()
+    End Sub
 End Class
 

App_Code/ClsRH.vb

@@ -1973,7 +1973,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         End Try
         Return Retorno
     End Function
-    Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double) As Boolean
+    Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_RH_PersonalUpdateSalarios")
         With SqlAdapter.SelectCommand.Parameters
@@ -1984,6 +1984,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
             .Add("@SDI", SqlDbType.Money).Value = SDI
             .Add("@SalarioDiarioSS", SqlDbType.Money).Value = SalarioDiarioSS
+            .Add("@CalcularSDI", SqlDbType.Bit).Value = CalcularSDI
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/Modelos.vb

@@ -5728,7 +5728,7 @@ Namespace Modelos
                     Case "Ant"
                         Return 12
                     Case Else
-                        Return -1
+                        Return 25
                 End Select
             End Get
         End Property
@@ -7199,7 +7199,7 @@ Namespace Modelos
                 'sino existe, recarga los datos
                 If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
                     Dim ObjBancos As New ClsBancos
-                    If ObjBancos.GetBancosCuentasUsuarios(-1) Then
+                    If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
                         HttpContext.Current.Application(AppNombre) = ObjBancos.DtResultados
                     Else
                         HttpContext.Current.Application(AppNombre) = Nothing

App_Code/Timbrado.vb

@@ -9,7 +9,7 @@ Imports System.Data
 Public Class Timbrado
 
 #Region "P R O P I E D A D E S"
-    Public Property MensajeErrorCFDI As String
+    Public Property MensajeErrorCFDI As String = ""
     Public Property UUID As String = ""
     Public Property CancelacionAcuse As String
     Public Property CancelacionState As Integer
@@ -41,6 +41,8 @@ Public Class Timbrado
                     Retorno = New AcuseCancelacionSAT()
                 End If
             Catch ex As Exception
+                Dim Strr As String = String.Format("Error al verificar estatus de cancelacion:{0}", ex.Message)
+                Strr.GuardaLog()
                 Return Nothing
             End Try
 
@@ -640,6 +642,7 @@ Public Class Timbrado
             Case 2
                 'Retorno = TimbrarFacturaRealVirtual(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
                 Dim Ret As String = TimbrarFacturaRealVirtualv33(Ventas, UsuarioActual)
+                If Ret <> "" Then MensajeErrorCFDI = Ret
                 Retorno = If(Ret = "", True, False)
 
             Case 3
@@ -648,6 +651,7 @@ Public Class Timbrado
             Case 4
 
                 Dim Ret As String = TimbrarFacturaGoCFDIv33(Ventas, UsuarioActual, CvePACEspecial)
+                If Ret <> "" Then MensajeErrorCFDI = Ret
                 Retorno = If(Ret = "", True, False)
 
         End Select
@@ -1164,6 +1168,7 @@ Public Class Timbrado
                     End If
                 Next
                 If concep.CuentaPredial <> "" Then cfdi.agregarCuentaPredial(concep.CuentaPredial)
+                If concep.NumeroPedimento <> "" Then cfdi.agregarInformacionAduanera(concep.NumeroPedimento)
             Next
         End If
 
@@ -1749,6 +1754,7 @@ Public Class Timbrado
                     End If
                 Next
                 If concep.CuentaPredial <> "" Then cfdi.CuentaPredial(concep.CuentaPredial)
+                If concep.NumeroPedimento <> "" Then cfdi.InformacionAduanera(concep.NumeroPedimento)
             Next
         End If
 
@@ -2365,6 +2371,11 @@ Public Class Timbrado
                 End If
 
                 If concep.Noidentificacion <> "" Then comprobante.Conceptos(i).NoIdentificacion = concep.Noidentificacion
+                If concep.CuentaPredial <> "" Then comprobante.Conceptos(i).CuentaPredial = New Profact.TimbraCFDI33.ComprobanteConceptoCuentaPredial() With {.Numero = concep.CuentaPredial}
+                If concep.NumeroPedimento <> "" Then
+                    comprobante.Conceptos(i).InformacionAduanera = New Profact.TimbraCFDI33.ComprobanteConceptoInformacionAduanera(1) {} 'solo un codigo por el momento
+                    comprobante.Conceptos(i).InformacionAduanera(0) = New Profact.TimbraCFDI33.ComprobanteConceptoInformacionAduanera() With {.NumeroPedimento = concep.NumeroPedimento}
+                End If
 
                 j = 0
                 k = 0

App_Code/Usuario.vb

@@ -201,7 +201,7 @@ Namespace ADSSession
                         Case OpcionSession.CerrarSession
                             Dim objlist = _dicSessionobj.Values.ToList()
                             For Each user As ADSSession.ADSSessionObj In objlist
-                                If CveUsuario = user.CveUsuario AndAlso (CveEmpresa = -1 OrElse CveEmpresa = user.CveEmpresa) Then
+                                If CveUsuario = user.CveUsuario Then 'AndAlso (CveEmpresa = -1 OrElse CveEmpresa = user.CveEmpresa) Then
                                     Dim taspsig As String = user.ASPSIG '"94C6AC57E8599390A4B7B8AB41FEABEF466D9B31120BE06D78110E66265F1ACC5616297BF3B88EDCEE71EBCFE35484308F62C8017EAC29FB3F0FB45CEC09E8F03DFBB4A4DD890D45755B7A30185C6D01F20AEFA74BE3A25FD12D536B20DCB8D9940A3D95"
                                     Dim tsessionID As String = user.SessionID
                                     Dim url = System.Configuration.ConfigurationManager.AppSettings("urlcerrarSession").ToString()

App_Code/WsSigfox.vb

@@ -27,8 +27,8 @@ Namespace Sigfox
                 'respuesta.Datos = Datos
 
                 Dim DevID As String = params.device
-                Dim Lat As Double = params.lat.ToDouble()
+                Dim Lat As Double = 90 'params.lat.ToDouble()
-                Dim Lng As Double = params.lng.ToDouble()
+                Dim Lng As Double = 90 'params.lng.ToDouble()
                 Dim Fecha As DateTime = params.time.ToDouble().ConvertFromUnixTimestamp()
                 Dim Velocidad As Double = 0
                 Dim MessageType As Integer = 0
@@ -68,12 +68,16 @@ Namespace Sigfox
             End Try
 
             Dim response As HttpResponseMessage
-            If datos.Length > 0 Then
+            If respuesta.Correcto Then
-                Dim jsonString As String = $"{{""{params.device}"":{{""downlinkData"":""{datos}""}}}}"
+                If datos.Length > 0 Then
-                response = Me.Request.CreateResponse(HttpStatusCode.OK)
+                    response = Me.Request.CreateResponse(HttpStatusCode.OK)
-                response.Content = New StringContent(jsonString, Encoding.UTF8, "application/json")
+                    response.Content = New StringContent($"{{""{params.device}"":{{""downlinkData"":""{datos}""}}}}", Encoding.UTF8, "application/json")
+                Else
+                    response = Request.CreateResponse(HttpStatusCode.NoContent, "")
+                End If
             Else
-                response = Request.CreateResponse(HttpStatusCode.NoContent, "")
+                response = Me.Request.CreateResponse(HttpStatusCode.OK)
+                response.Content = New StringContent($"{{""Fail"":{{""Msg"":""Ocurrió un error al agregar la trama""}}}}", Encoding.UTF8, "application/json")
             End If
             Return response
         End Function

App_WebReferences/Cancelacion/Cancelacion.disco

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<discovery xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://schemas.xmlsoap.org/disco/">
+  <contractRef ref="https://cancel.gofac.com.mx/Cancelacion.asmx?wsdl" docRef="https://cancel.gofac.com.mx/Cancelacion.asmx" xmlns="http://schemas.xmlsoap.org/disco/scl/" />
+  <soap address="https://cancel.gofac.com.mx/Cancelacion.asmx" xmlns:q1="http://tempuri.org/" binding="q1:CancelacionSoap" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
+  <soap address="https://cancel.gofac.com.mx/Cancelacion.asmx" xmlns:q2="http://tempuri.org/" binding="q2:CancelacionSoap12" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
+</discovery>

App_WebReferences/Cancelacion/Cancelacion1.wsdl

@@ -1,7 +1,8 @@
 <?xml version="1.0" encoding="utf-8"?>
-<wsdl:definitions xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:tns="http://tempuri.org/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" targetNamespace="http://tempuri.org/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
+<wsdl:definitions xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:tns="http://tempuri.org/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:s1="http://microsoft.com/wsdl/types/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" targetNamespace="http://tempuri.org/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
   <wsdl:types>
     <s:schema elementFormDefault="qualified" targetNamespace="http://tempuri.org/">
+      <s:import namespace="http://microsoft.com/wsdl/types/" />
       <s:element name="CancelTest">
         <s:complexType>
           <s:sequence>
@@ -145,6 +146,74 @@
           </s:sequence>
         </s:complexType>
       </s:element>
+      <s:element name="ObtieneRelacionadosTest">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="RfcEmisor" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="Usuario" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="Clave" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="CertB64" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="KeyB64" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="ClaveLlave" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="Uuid" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="ObtieneRelacionadosTestResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="ObtieneRelacionadosTestResult" type="tns:StructRelations" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:complexType name="StructRelations">
+        <s:sequence>
+          <s:element minOccurs="1" maxOccurs="1" name="Codigo" type="s:int" />
+          <s:element minOccurs="0" maxOccurs="1" name="Mensaje" type="s:string" />
+          <s:element minOccurs="0" maxOccurs="1" name="Resultado" type="s:string" />
+          <s:element minOccurs="0" maxOccurs="1" name="RelacionadosPadre" type="tns:ArrayOfFactura" />
+          <s:element minOccurs="0" maxOccurs="1" name="RelacionadosHijo" type="tns:ArrayOfFactura" />
+        </s:sequence>
+      </s:complexType>
+      <s:complexType name="ArrayOfFactura">
+        <s:sequence>
+          <s:element minOccurs="0" maxOccurs="unbounded" name="Factura" nillable="true" type="tns:Factura" />
+        </s:sequence>
+      </s:complexType>
+      <s:complexType name="Factura">
+        <s:sequence>
+          <s:element minOccurs="1" maxOccurs="1" name="Uuid" type="s1:guid" />
+          <s:element minOccurs="0" maxOccurs="1" name="RfcEmisor" type="s:string" />
+          <s:element minOccurs="0" maxOccurs="1" name="RfcReceptor" type="s:string" />
+        </s:sequence>
+      </s:complexType>
+      <s:element name="ObtieneRelacionados">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="RfcEmisor" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="Usuario" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="Clave" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="CertB64" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="KeyB64" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="ClaveLlave" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="Uuid" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="ObtieneRelacionadosResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="ObtieneRelacionadosResult" type="tns:StructRelations" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+    </s:schema>
+    <s:schema elementFormDefault="qualified" targetNamespace="http://microsoft.com/wsdl/types/">
+      <s:simpleType name="guid">
+        <s:restriction base="s:string">
+          <s:pattern value="[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{12}" />
+        </s:restriction>
+      </s:simpleType>
     </s:schema>
   </wsdl:types>
   <wsdl:message name="CancelTestSoapIn">
@@ -189,6 +258,18 @@
   <wsdl:message name="AceptaRechazaTestSoapOut">
     <wsdl:part name="parameters" element="tns:AceptaRechazaTestResponse" />
   </wsdl:message>
+  <wsdl:message name="ObtieneRelacionadosTestSoapIn">
+    <wsdl:part name="parameters" element="tns:ObtieneRelacionadosTest" />
+  </wsdl:message>
+  <wsdl:message name="ObtieneRelacionadosTestSoapOut">
+    <wsdl:part name="parameters" element="tns:ObtieneRelacionadosTestResponse" />
+  </wsdl:message>
+  <wsdl:message name="ObtieneRelacionadosSoapIn">
+    <wsdl:part name="parameters" element="tns:ObtieneRelacionados" />
+  </wsdl:message>
+  <wsdl:message name="ObtieneRelacionadosSoapOut">
+    <wsdl:part name="parameters" element="tns:ObtieneRelacionadosResponse" />
+  </wsdl:message>
   <wsdl:portType name="CancelacionSoap">
     <wsdl:operation name="CancelTest">
       <wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Cancela un Cfdi en pruebas</wsdl:documentation>
@@ -225,6 +306,16 @@
       <wsdl:input message="tns:AceptaRechazaTestSoapIn" />
       <wsdl:output message="tns:AceptaRechazaTestSoapOut" />
     </wsdl:operation>
+    <wsdl:operation name="ObtieneRelacionadosTest">
+      <wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Obtiene el/los Cfdi(s) relacionado(s) de un UUID de un RFC (Pruebas)</wsdl:documentation>
+      <wsdl:input message="tns:ObtieneRelacionadosTestSoapIn" />
+      <wsdl:output message="tns:ObtieneRelacionadosTestSoapOut" />
+    </wsdl:operation>
+    <wsdl:operation name="ObtieneRelacionados">
+      <wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Obtiene el/los Cfdi(s) relacionado(s) de un UUID de un RFC</wsdl:documentation>
+      <wsdl:input message="tns:ObtieneRelacionadosSoapIn" />
+      <wsdl:output message="tns:ObtieneRelacionadosSoapOut" />
+    </wsdl:operation>
   </wsdl:portType>
   <wsdl:binding name="CancelacionSoap" type="tns:CancelacionSoap">
     <soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
@@ -291,6 +382,24 @@
         <soap:body use="literal" />
       </wsdl:output>
     </wsdl:operation>
+    <wsdl:operation name="ObtieneRelacionadosTest">
+      <soap:operation soapAction="http://tempuri.org/ObtieneRelacionadosTest" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="ObtieneRelacionados">
+      <soap:operation soapAction="http://tempuri.org/ObtieneRelacionados" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
   </wsdl:binding>
   <wsdl:binding name="CancelacionSoap12" type="tns:CancelacionSoap">
     <soap12:binding transport="http://schemas.xmlsoap.org/soap/http" />
@@ -357,13 +466,31 @@
         <soap12:body use="literal" />
       </wsdl:output>
     </wsdl:operation>
+    <wsdl:operation name="ObtieneRelacionadosTest">
+      <soap12:operation soapAction="http://tempuri.org/ObtieneRelacionadosTest" style="document" />
+      <wsdl:input>
+        <soap12:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap12:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="ObtieneRelacionados">
+      <soap12:operation soapAction="http://tempuri.org/ObtieneRelacionados" style="document" />
+      <wsdl:input>
+        <soap12:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap12:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
   </wsdl:binding>
   <wsdl:service name="Cancelacion">
     <wsdl:port name="CancelacionSoap" binding="tns:CancelacionSoap">
-      <soap:address location="http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx" />
+      <soap:address location="https://cancel.gofac.com.mx/Cancelacion.asmx" />
     </wsdl:port>
     <wsdl:port name="CancelacionSoap12" binding="tns:CancelacionSoap12">
-      <soap12:address location="http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx" />
+      <soap12:address location="https://cancel.gofac.com.mx/Cancelacion.asmx" />
     </wsdl:port>
   </wsdl:service>
 </wsdl:definitions>

App_WebReferences/Cancelacion/Reference.svcmap

@@ -19,10 +19,11 @@
     <ServiceContractMappings />
   </ClientOptions>
   <MetadataSources>
-    <MetadataSource Address="http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx?WSDL" Protocol="http" SourceId="1" />
+    <MetadataSource Address="https://cancel.gofac.com.mx/Cancelacion.asmx" Protocol="http" SourceId="1" />
   </MetadataSources>
   <Metadata>
-    <MetadataFile FileName="cancelacion.wsdl" MetadataType="Wsdl" ID="9d47fe06-c323-498c-bcfb-3544045ea962" SourceId="1" SourceUrl="http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx?WSDL" />
+    <MetadataFile FileName="Cancelacion.disco" MetadataType="Disco" ID="97fdea35-bd00-4949-b35d-fac57c0ef978" SourceId="1" SourceUrl="https://cancel.gofac.com.mx/Cancelacion.asmx?disco" />
+    <MetadataFile FileName="Cancelacion1.wsdl" MetadataType="Wsdl" ID="7320d63d-aedd-4cd7-b16b-da7e2c8d562a" SourceId="1" SourceUrl="https://cancel.gofac.com.mx/Cancelacion.asmx?wsdl" />
   </Metadata>
   <Extensions>
     <ExtensionFile FileName="configuration91.svcinfo" Name="configuration91.svcinfo" />

App_WebReferences/Cancelacion/configuration.svcinfo

@@ -2,9 +2,10 @@
 <configurationSnapshot xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="urn:schemas-microsoft-com:xml-wcfconfigurationsnapshot">
   <behaviors />
   <bindings>
-    <binding digest="System.ServiceModel.Configuration.BasicHttpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;CancelacionSoap&quot; /&gt;" bindingType="basicHttpBinding" name="CancelacionSoap" />
+    <binding digest="System.ServiceModel.Configuration.BasicHttpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;CancelacionSoap1&quot;&gt;&lt;security mode=&quot;Transport&quot; /&gt;&lt;/Data&gt;" bindingType="basicHttpBinding" name="CancelacionSoap1" />
+    <binding digest="System.ServiceModel.Configuration.BasicHttpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;CancelacionSoap2&quot; /&gt;" bindingType="basicHttpBinding" name="CancelacionSoap2" />
   </bindings>
   <endpoints>
-    <endpoint normalizedDigest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;CancelacionSoap&quot; contract=&quot;Cancelacion.CancelacionSoap&quot; name=&quot;CancelacionSoap&quot; /&gt;" digest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;CancelacionSoap&quot; contract=&quot;Cancelacion.CancelacionSoap&quot; name=&quot;CancelacionSoap&quot; /&gt;" contractName="Cancelacion.CancelacionSoap" name="CancelacionSoap" />
+    <endpoint normalizedDigest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;https://cancel.gofac.com.mx/Cancelacion.asmx&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;CancelacionSoap1&quot; contract=&quot;Cancelacion.CancelacionSoap&quot; name=&quot;CancelacionSoap1&quot; /&gt;" digest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;https://cancel.gofac.com.mx/Cancelacion.asmx&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;CancelacionSoap1&quot; contract=&quot;Cancelacion.CancelacionSoap&quot; name=&quot;CancelacionSoap1&quot; /&gt;" contractName="Cancelacion.CancelacionSoap" name="CancelacionSoap1" />
   </endpoints>
 </configurationSnapshot>

App_WebReferences/Cancelacion/configuration91.svcinfo

@@ -1,10 +1,119 @@
 <?xml version="1.0" encoding="utf-8"?>
-<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="WE5NDajbD03x1LKdb0eKeyplqtI=">
+<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="YSVSbuarIezVS9um5idqs28BCLTcEKV8vg83uS03jpw=">
   <bindingConfigurations>
-    <bindingConfiguration bindingType="basicHttpBinding" name="CancelacionSoap">
+    <bindingConfiguration bindingType="basicHttpBinding" name="CancelacionSoap1">
       <properties>
         <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>CancelacionSoap</serializedValue>
+          <serializedValue>CancelacionSoap1</serializedValue>
+        </property>
+        <property path="/closeTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/openTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/receiveTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/sendTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/allowCookies" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/bypassProxyOnLocal" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/hostNameComparisonMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HostNameComparisonMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>StrongWildcard</serializedValue>
+        </property>
+        <property path="/maxBufferPoolSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/maxBufferSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>65536</serializedValue>
+        </property>
+        <property path="/maxReceivedMessageSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/proxyAddress" isComplexType="false" isExplicitlyDefined="false" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/readerQuotas" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement</serializedValue>
+        </property>
+        <property path="/readerQuotas/maxDepth" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>0</serializedValue>
+        </property>
+        <property path="/readerQuotas/maxStringContentLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>0</serializedValue>
+        </property>
+        <property path="/readerQuotas/maxArrayLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>0</serializedValue>
+        </property>
+        <property path="/readerQuotas/maxBytesPerRead" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>0</serializedValue>
+        </property>
+        <property path="/readerQuotas/maxNameTableCharCount" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>0</serializedValue>
+        </property>
+        <property path="/textEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.Text.Encoding, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.Text.UTF8Encoding</serializedValue>
+        </property>
+        <property path="/transferMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.TransferMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>Buffered</serializedValue>
+        </property>
+        <property path="/useDefaultWebProxy" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/messageEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.WSMessageEncoding, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>Text</serializedValue>
+        </property>
+        <property path="/security" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.BasicHttpSecurityElement</serializedValue>
+        </property>
+        <property path="/security/mode" isComplexType="false" isExplicitlyDefined="true" clrType="System.ServiceModel.BasicHttpSecurityMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>Transport</serializedValue>
+        </property>
+        <property path="/security/transport" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.HttpTransportSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.HttpTransportSecurityElement</serializedValue>
+        </property>
+        <property path="/security/transport/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpClientCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>None</serializedValue>
+        </property>
+        <property path="/security/transport/proxyCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpProxyCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>None</serializedValue>
+        </property>
+        <property path="/security/transport/extendedProtectionPolicy" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement</serializedValue>
+        </property>
+        <property path="/security/transport/extendedProtectionPolicy/policyEnforcement" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.PolicyEnforcement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>Never</serializedValue>
+        </property>
+        <property path="/security/transport/extendedProtectionPolicy/protectionScenario" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.ProtectionScenario, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>TransportSelected</serializedValue>
+        </property>
+        <property path="/security/transport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>(Collection)</serializedValue>
+        </property>
+        <property path="/security/transport/realm" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/security/message" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpMessageSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.BasicHttpMessageSecurityElement</serializedValue>
+        </property>
+        <property path="/security/message/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpMessageCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>UserName</serializedValue>
+        </property>
+        <property path="/security/message/algorithmSuite" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.Security.SecurityAlgorithmSuite, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>Default</serializedValue>
+        </property>
+      </properties>
+    </bindingConfiguration>
+    <bindingConfiguration bindingType="basicHttpBinding" name="CancelacionSoap2">
+      <properties>
+        <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>CancelacionSoap2</serializedValue>
         </property>
         <property path="/closeTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
           <serializedValue />
@@ -94,7 +203,7 @@
           <serializedValue>TransportSelected</serializedValue>
         </property>
         <property path="/security/transport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>(Colección)</serializedValue>
+          <serializedValue>(Collection)</serializedValue>
         </property>
         <property path="/security/transport/realm" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
           <serializedValue />
@@ -112,10 +221,10 @@
     </bindingConfiguration>
   </bindingConfigurations>
   <endpoints>
-    <endpoint name="CancelacionSoap" contract="Cancelacion.CancelacionSoap" bindingType="basicHttpBinding" address="http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx" bindingConfiguration="CancelacionSoap">
+    <endpoint name="CancelacionSoap1" contract="Cancelacion.CancelacionSoap" bindingType="basicHttpBinding" address="https://cancel.gofac.com.mx/Cancelacion.asmx" bindingConfiguration="CancelacionSoap1">
       <properties>
         <property path="/address" isComplexType="false" isExplicitlyDefined="true" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx</serializedValue>
+          <serializedValue>https://cancel.gofac.com.mx/Cancelacion.asmx</serializedValue>
         </property>
         <property path="/behaviorConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
           <serializedValue />
@@ -124,7 +233,7 @@
           <serializedValue>basicHttpBinding</serializedValue>
         </property>
         <property path="/bindingConfiguration" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>CancelacionSoap</serializedValue>
+          <serializedValue>CancelacionSoap1</serializedValue>
         </property>
         <property path="/contract" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
           <serializedValue>Cancelacion.CancelacionSoap</serializedValue>
@@ -187,7 +296,7 @@
           <serializedValue>False</serializedValue>
         </property>
         <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>CancelacionSoap</serializedValue>
+          <serializedValue>CancelacionSoap1</serializedValue>
         </property>
         <property path="/kind" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
           <serializedValue />

Ashx/SIGWeb.ashx

@@ -47,12 +47,47 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     context.Response.Write(GettingCURP(context.Request("Curp").ToString(), context.Request("year").ToString().ToEntero()))
                 Case "ValidaCURP"
                     context.Response.Write(ValidaCURP(context.Request("Curp").ToString()))
+                Case "sendMail"
+                    context.Response.Write(sendMail(context))
+
             End Select
         Catch ex As Exception
             ex.GuardaLog(ex.Message)
         End Try
     End Sub
-
+    Private Function sendMail(context As HttpContext) As String
+        Dim retorno As String = "true"
+        Dim nombre As String = ""
+        Dim correo As String = ""
+        Dim sitio As String = ""
+        Dim cuerpo As String = ""
+        Dim obj = context.Request("Nombre") 'Nombre=' + $('#Nombre').val() +'Correo=' + $('#Correo').val() +'Sitio=' + $('#Sitio').val() +'Cuerpo=' + $('#Cuerpo').val() +
+        If Not IsNothing(obj) Then
+            nombre = obj.ToString()
+        End If
+        obj = context.Request("Correo")
+        If Not IsNothing(obj) Then
+            correo = obj.ToString()
+        End If
+        obj = context.Request("Sitio")
+        If Not IsNothing(obj) Then
+            sitio = obj.ToString()
+        End If
+        obj = context.Request("Cuerpo")
+        If Not IsNothing(obj) Then
+            cuerpo = obj.ToString().Replace("< ", "<")
+        End If
+        Dim Body As String = String.Format("Prospecto : {0}<br/>Correo : {1}<br/>Sitio : {2}<br/><br/>{3}", nombre, correo, sitio, cuerpo)
+        Dim para As String = "rene.molina@adssistemas.mx,sig.buzon@gmail.com,julian@adssistemas.mx;paola@adssistemas.mx;caudillo.90d@gmail.com;"
+        'para = ""
+        Dim Mail As New ClsSisMail()
+        If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then
+            retorno = "true"
+        Else
+            retorno = "false"
+        End If
+        Return retorno
+    End Function
 
     Private Sub GetUser(ByVal context As HttpContext)
         Dim usuario As String = context.Request("usuario").ToString()

Bancos/IE.aspx.vb

@@ -3800,6 +3800,9 @@ Partial Class Bancos_IE
         Else
             ObjIE.RollBack()
             Alert(MsgError, TipoMensaje.MsgAdvertencia)
+            If Opcion = "INGPC" Then
+                CveIE = -1
+            End If
         End If
 
         If Msg.ToString <> "" Then

Bancos/RepProgramarRecursos.aspx

@@ -118,7 +118,7 @@
                                         Proyecto:
                                    
                                     </div>
-                                    <div class="col-md-1" runat="server" id="Div1">Aplica NC:</div>
+                                    <div class="col-md-1" runat="server" id="Div1">Aplica NC/Dev:</div>
                                     <div class="col-md-1" id="ds" style="width: 120px;">
                                         <asp:DropDownList CssClass="form-control select2me input-sm" ID="DdlAplicaNC" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
                                             <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>

Bancos/RepProgramarRecursos.aspx.vb

@@ -142,7 +142,7 @@ Partial Class Bancos_RepProgramarRecursos
             DdlMoneda.DataSource = GlobalDTMonedas
             DdlMoneda.DataBind()
 
-            DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
+            DdlProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
             DdlProyecto.DataBind()
 
             DtCuentas = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
@@ -257,8 +257,8 @@ Partial Class Bancos_RepProgramarRecursos
         DdlSubProyecto.Items.Clear()
         ListSubProyecto.Items.Clear()
         If DdlProyecto.SelectedValue.ToEntero > 0 Then
-            DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
+            DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
-            ListSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
+            ListSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
         Else
             DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
             ListSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

Bancos/RepProveedoresPagos.aspx

@@ -137,7 +137,7 @@
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1" data-toggle="tooltip" data-placement="left" title="Aplica Nota de Crédito">Aplica NC:</div>
+                        <div class="col-md-1" data-toggle="tooltip" data-placement="left" title="Aplica Nota de Crédito">Aplica NC/Dev:</div>
                         <div class="col-md-2">
                             <asp:DropDownList CssClass="form-control input-sm" ID="AplicaNC" runat="server" AppendDataBoundItems="true" Style="height: 30px;">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>

Bin/Microsoft.IdentityModel.JsonWebTokens.xml

@@ -0,0 +1,736 @@
+<?xml version="1.0"?>
+<doc>
+    <assembly>
+        <name>Microsoft.IdentityModel.JsonWebTokens</name>
+    </assembly>
+    <members>
+        <member name="T:Microsoft.IdentityModel.JsonWebTokens.JsonClaimValueTypes">
+            <summary>
+            Constants for Json Web tokens.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JsonClaimValueTypes.Json">
+            <summary>
+            A URI that represents the JSON XML data type.
+            </summary>
+            <remarks>When mapping json to .Net Claim(s), if the value was not a string (or an enumeration of strings), the ClaimValue will serialized using the current JSON serializer, a property will be added with the .Net type and the ClaimTypeValue will be set to 'JsonClaimValueType'.</remarks>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JsonClaimValueTypes.JsonArray">
+            <summary>
+            A URI that represents the JSON array XML data type.
+            </summary>
+            <remarks>When mapping json to .Net Claim(s), if the value was not a string (or an enumeration of strings), the ClaimValue will serialized using the current JSON serializer, a property will be added with the .Net type and the ClaimTypeValue will be set to 'JsonClaimValueType'.</remarks>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JsonClaimValueTypes.JsonNull">
+            <summary>
+            A URI that represents the JSON null data type
+            </summary>
+            <remarks>When mapping json to .Net Claim(s), we use empty string to represent the claim value and set the ClaimValueType to JsonNull</remarks>
+        </member>
+        <member name="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken">
+            <summary>
+            A <see cref="T:Microsoft.IdentityModel.Tokens.SecurityToken"/> designed for representing a JSON Web Token (JWT). 
+            </summary>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.#ctor(System.String)">
+            <summary>
+            Initializes a new instance of <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/> from a string in JWS or JWE Compact serialized format.
+            </summary>
+            <param name="jwtEncodedString">A JSON Web Token that has been serialized in JWS or JWE Compact serialized format.</param>
+            <exception cref="T:System.ArgumentNullException">'jwtEncodedString' is null or empty.</exception>
+            <exception cref="T:System.ArgumentException">'jwtEncodedString' is not in JWS or JWE Compact serialization format.</exception>
+            <remarks>
+            The contents of the returned <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/> have not been validated, the JSON Web Token is simply decoded. Validation can be accomplished using the validation methods in <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler"/>
+            </remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.#ctor(System.String,System.String)">
+            <summary>
+            Initializes a new instance of the <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/> class where the header contains the crypto algorithms applied to the encoded header and payload.
+            </summary>
+            <param name="header">A string containing JSON which represents the cryptographic operations applied to the JWT and optionally any additional properties of the JWT.</param>
+            <param name="payload">A string containing JSON which represents the claims contained in the JWT. Each claim is a JSON object of the form { Name, Value }.</param>
+            <exception cref="T:System.ArgumentNullException">'header' is null.</exception>
+            <exception cref="T:System.ArgumentNullException">'payload' is null.</exception>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Actor">
+            <summary>
+            Gets the 'value' of the 'actort' claim { actort, 'value' }.
+            </summary>
+            <remarks>If the 'actort' claim is not found, an empty string is returned.</remarks> 
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Alg">
+            <summary>
+            Gets the 'value' of the 'alg' claim { alg, 'value' }.
+            </summary>
+            <remarks>If the 'alg' claim is not found, an empty string is returned.</remarks>   
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Audiences">
+            <summary>
+            Gets the list of 'aud' claim { aud, 'value' }.
+            </summary>
+            <remarks>If the 'aud' claim is not found, enumeration will be empty.</remarks>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.AuthenticationTag">
+            <summary>
+            Gets the AuthenticationTag from the original raw data of this instance when it was created.
+            </summary>
+            <remarks>The original JSON Compact serialized format passed into the constructor. <see cref="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.#ctor(System.String)"/></remarks>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Ciphertext">
+            <summary>
+            Gets the Ciphertext from the original raw data of this instance when it was created.
+            </summary>
+            <remarks>The original JSON Compact serialized format passed into the constructor. <see cref="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.#ctor(System.String)"/></remarks>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Claims">
+            <summary>
+            Gets a <see cref="T:System.Collections.Generic.IEnumerable`1"/><see cref="T:System.Security.Claims.Claim"/> for each JSON { name, value }.
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Cty">
+            <summary>
+            Gets the 'value' of the 'cty' claim { cty, 'value' }.
+            </summary>
+            <remarks>If the 'cty' claim is not found, an empty string is returned.</remarks>   
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Enc">
+            <summary>
+            Gets the 'value' of the 'enc' claim { enc, 'value' }.
+            </summary>
+            <remarks>If the 'enc' value is not found, an empty string is returned.</remarks>   
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.EncryptedKey">
+            <summary>
+            Gets the EncryptedKey from the original raw data of this instance when it was created.
+            </summary>
+            <remarks>The original JSON Compact serialized format passed into the constructor. <see cref="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.#ctor(System.String)"/></remarks>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Header">
+            <summary>
+            Represents the cryptographic operations applied to the JWT and optionally any additional properties of the JWT. 
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Id">
+            <summary>
+            Gets the 'value' of the 'jti' claim { jti, ''value' }.
+            </summary>
+            <remarks>If the 'jti' claim is not found, an empty string is returned.</remarks>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.InitializationVector">
+            <summary>
+            Gets the InitializationVector from the original raw data of this instance when it was created.
+            </summary>
+            <remarks>The original JSON Compact serialized format passed into the constructor. <see cref="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.#ctor(System.String)"/></remarks>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.InnerToken">
+            <summary>
+            Gets the <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/> associated with this instance.
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.IssuedAt">
+            <summary>
+            Gets the 'value' of the 'iat' claim { iat, 'value' } converted to a <see cref="T:System.DateTime"/> assuming 'value' is seconds since UnixEpoch (UTC 1970-01-01T0:0:0Z).
+            </summary>
+            <remarks>If the 'iat' claim is not found, then <see cref="F:System.DateTime.MinValue"/> is returned.</remarks>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Issuer">
+            <summary>
+            Gets the 'value' of the 'iss' claim { iss, 'value' }.
+            </summary>
+            <remarks>If the 'iss' claim is not found, an empty string is returned.</remarks>   
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Kid">
+            <summary>
+            Gets the 'value' of the 'kid' claim { kid, 'value' }.
+            </summary>
+            <remarks>If the 'kid' claim is not found, an empty string is returned.</remarks>   
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Payload">
+            <summary>
+            Represents the JSON payload.
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.EncodedHeader">
+            <summary>
+            Gets the EncodedHeader from the original raw data of this instance when it was created.
+            </summary>
+            <remarks>The original JSON Compact serialized format passed into the constructor. <see cref="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.#ctor(System.String)"/></remarks>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.EncodedPayload">
+            <summary>
+            Gets the EncodedPayload from the original raw data of this instance when it was created.
+            </summary>
+            <remarks>The original JSON Compact serialized format passed into the constructor. <see cref="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.#ctor(System.String)"/></remarks>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.EncodedSignature">
+            <summary>
+            Gets the EncodedSignature from the original raw data of this instance when it was created.
+            </summary>
+            <remarks>The original JSON Compact serialized format passed into the constructor. <see cref="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.#ctor(System.String)"/></remarks>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.EncodedToken">
+            <summary>
+            Gets the original raw data of this instance when it was created.
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.SecurityKey">
+            <summary>
+            Not implemented.
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.SigningKey">
+            <summary>
+            Not implemented.
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Subject">
+            <summary>
+            Gets the 'value' of the 'sub' claim { sub, 'value' }.
+            </summary>
+            <remarks>If the 'sub' claim is not found, an empty string is returned.</remarks>   
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Typ">
+            <summary>
+            Gets the 'value' of the 'typ' claim { typ, 'value' }.
+            </summary>
+            <remarks>If the 'typ' claim is not found, an empty string is returned.</remarks>   
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.ValidFrom">
+            <summary>
+            Gets the 'value' of the 'nbf' claim { nbf, 'value' } converted to a <see cref="T:System.DateTime"/> assuming 'value' is seconds since UnixEpoch (UTC 1970-01-01T0:0:0Z).
+            </summary>
+            <remarks>If the 'nbf' claim is not found, then <see cref="F:System.DateTime.MinValue"/> is returned.</remarks>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.ValidTo">
+            <summary>
+            Gets the 'value' of the 'exp' claim { exp, 'value' } converted to a <see cref="T:System.DateTime"/> assuming 'value' is seconds since UnixEpoch (UTC 1970-01-01T0:0:0Z).
+            </summary>
+            <remarks>If the 'exp' claim is not found, then <see cref="F:System.DateTime.MinValue"/> is returned.</remarks>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.X5t">
+            <summary>
+            Gets the 'value' of the 'x5t' claim { x5t, 'value' }.
+            </summary>
+            <remarks>If the 'x5t' claim is not found, an empty string is returned.</remarks>   
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Zip">
+            <summary>
+            Gets the 'value' of the 'zip' claim { zip, 'value' }.
+            </summary>
+            <remarks>If the 'zip' claim is not found, an empty string is returned.</remarks>   
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.Decode(System.String[],System.String)">
+            <summary>
+            Decodes the string into the header, payload and signature.
+            </summary>
+            <param name="tokenParts">the tokenized string.</param>
+            <param name="rawData">the original token.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.DecodeJwe(System.String[])">
+            <summary>
+            Decodes the payload and signature from the JWE parts.
+            </summary>
+            <param name="tokenParts">Parts of the JWE including the header.</param>
+            <remarks>Assumes Header has already been set.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.DecodeJws(System.String[])">
+            <summary>
+            Decodes the payload and signature from the JWS parts.
+            </summary>
+            <param name="tokenParts">Parts of the JWS including the header.</param>
+            <remarks>Assumes Header has already been set.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.GetPayloadValue``1(System.String)">
+            <summary>
+            Gets the 'value' corresponding to the provided key from the JWT payload { key, 'value' }.
+            </summary>
+            <remarks>If the key has no corresponding value, returns null. </remarks>   
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken.GetHeaderValue``1(System.String)">
+            <summary>
+            Gets the 'value' corresponding to the provided key from the JWT header { key, 'value' }.
+            </summary>
+            <remarks>If the key has no corresponding value, returns null. </remarks>   
+        </member>
+        <member name="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler">
+            <summary>
+            A <see cref="T:Microsoft.IdentityModel.Tokens.SecurityTokenHandler"/> designed for creating and validating Json Web Tokens. 
+            See: http://tools.ietf.org/html/rfc7519 and http://www.rfc-editor.org/info/rfc7515.
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.TokenType">
+            <summary>
+            Gets the type of the <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/>.
+            </summary>
+            <return>The type of <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/></return>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.CanReadToken(System.String)">
+            <summary>
+            Determines if the string is a well formed Json Web Token (JWT).
+            <para>see: http://tools.ietf.org/html/rfc7519 </para>
+            </summary>
+            <param name="token">String that should represent a valid JWT.</param>
+            <remarks>Uses <see cref="M:System.Text.RegularExpressions.Regex.IsMatch(System.String,System.String)"/> matching:
+            <para>JWS: @"^[A-Za-z0-9-_]+\.[A-Za-z0-9-_]+\.[A-Za-z0-9-_]*$"</para>
+            <para>JWE: (dir): @"^[A-Za-z0-9-_]+\.\.[A-Za-z0-9-_]+\.[A-Za-z0-9-_]+\.[A-Za-z0-9-_]*$"</para>
+            <para>JWE: (wrappedkey): @"^[A-Za-z0-9-_]+\.[A-Za-z0-9-_]+\.[A-Za-z0-9-_]+\.[A-Za-z0-9-_]+\.[A-Za-z0-9-_]$"</para>
+            </remarks>
+            <returns>
+            <para>'false' if the token is null or whitespace.</para>
+            <para>'false' if token.Length is greater than <see cref="P:Microsoft.IdentityModel.Tokens.TokenHandler.MaximumTokenSizeInBytes"/>.</para>
+            <para>'true' if the token is in JSON compact serialization format.</para>
+            </returns>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.CanValidateToken">
+            <summary>
+            Returns a value that indicates if this handler can validate a <see cref="T:Microsoft.IdentityModel.Tokens.SecurityToken"/>.
+            </summary>
+            <returns>'true', indicating this instance can validate a <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/>.</returns>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.CreateToken(System.String,Microsoft.IdentityModel.Tokens.SigningCredentials)">
+            <summary>
+            Creates a JWS (Json Web Signature).
+            </summary>
+            <param name="payload">A string containing JSON which represents the JWT token payload.</param>
+            <param name="signingCredentials">Defines the security key and algorithm that will be used to sign the JWS.</param>
+            <returns>A JWS in Compact Serialization Format.</returns>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.CreateToken(System.String,Microsoft.IdentityModel.Tokens.SigningCredentials,Microsoft.IdentityModel.Tokens.EncryptingCredentials)">
+            <summary>
+            Creates a JWE (Json Web Encryption).
+            </summary>
+            <param name="payload">A string containing JSON which represents the JWT token payload.</param>
+            <param name="signingCredentials">Defines the security key and algorithm that will be used to sign the JWT.</param>
+            <param name="encryptingCredentials">Defines the security key and algorithm that will be used to encrypt the JWT.</param>
+            <returns>A JWE in compact serialization format.</returns>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.CreateToken(System.String,Microsoft.IdentityModel.Tokens.SigningCredentials,Microsoft.IdentityModel.Tokens.EncryptingCredentials,System.String)">
+            <summary>
+            Creates a JWE (Json Web Encryption).
+            </summary>
+            <param name="payload">A string containing JSON which represents the JWT token payload.</param>
+            <param name="signingCredentials">Defines the security key and algorithm that will be used to sign the JWT.</param>
+            <param name="encryptingCredentials">Defines the security key and algorithm that will be used to encrypt the JWT.</param>
+            <param name="compressionAlgorithm">Defines the compression algorithm that will be used to compress the JWT token payload.</param>
+            <returns>A JWE in compact serialization format.</returns>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.CompressToken(System.String,System.String)">
+            <summary>
+            Compress a JWT token string.
+            </summary>
+            <param name="token"></param>
+            <param name="algorithm"></param>
+            <exception cref="T:System.ArgumentNullException">if 'token' is null.</exception>
+            <exception cref="T:System.ArgumentNullException">if 'algorithm' is null.</exception>
+            <exception cref="T:System.NotSupportedException">if the compression algorithm is not supported.</exception>
+            <returns>Compressed JWT token bytes.</returns>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.DecompressToken(System.Byte[],System.String)">
+            <summary>
+            Decompress JWT token bytes.
+            </summary>
+            <param name="tokenBytes"></param>
+            <param name="algorithm"></param>
+            <exception cref="T:System.ArgumentNullException">if 'tokenBytes' is null.</exception>
+            <exception cref="T:System.ArgumentNullException">if 'algorithm' is null.</exception>
+            <exception cref="T:System.NotSupportedException">if the decompression algorithm is not supported.</exception>
+            <returns>Decompressed JWT token</returns>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.DecryptToken(Microsoft.IdentityModel.JsonWebTokens.JsonWebToken,Microsoft.IdentityModel.Tokens.TokenValidationParameters)">
+            <summary>
+            Decrypts a JWE and returns the clear text 
+            </summary>
+            <param name="jwtToken">the JWE that contains the cypher text.</param>
+            <param name="validationParameters">contains crypto material.</param>
+            <returns>the decoded / cleartext contents of the JWE.</returns>
+            <exception cref="T:System.ArgumentNullException">if 'jwtToken' is null.</exception>
+            <exception cref="T:System.ArgumentNullException">if 'validationParameters' is null.</exception>
+            <exception cref="T:Microsoft.IdentityModel.Tokens.SecurityTokenException">if 'jwtToken.Enc' is null or empty.</exception>
+            <exception cref="T:Microsoft.IdentityModel.Tokens.SecurityTokenDecompressionFailedException">if decompression failed.</exception>
+            <exception cref="T:Microsoft.IdentityModel.Tokens.SecurityTokenEncryptionKeyNotFoundException">if 'jwtToken.Kid' is not null AND decryption fails.</exception>
+            <exception cref="T:Microsoft.IdentityModel.Tokens.SecurityTokenDecryptionFailedException">if the JWE was not able to be decrypted.</exception>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.ResolveIssuerSigningKey(Microsoft.IdentityModel.JsonWebTokens.JsonWebToken,Microsoft.IdentityModel.Tokens.TokenValidationParameters)">
+            <summary>
+            Returns a <see cref="T:Microsoft.IdentityModel.Tokens.SecurityKey"/> to use when validating the signature of a token.
+            </summary>
+            <param name="jwtToken">The <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/> that is being validated.</param>
+            <param name="validationParameters">A <see cref="T:Microsoft.IdentityModel.Tokens.TokenValidationParameters"/>  required for validation.</param>
+            <returns>Returns a <see cref="T:Microsoft.IdentityModel.Tokens.SecurityKey"/> to use for signature validation.</returns>
+            <remarks>If key fails to resolve, then null is returned</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.ResolveTokenDecryptionKey(System.String,Microsoft.IdentityModel.JsonWebTokens.JsonWebToken,Microsoft.IdentityModel.Tokens.TokenValidationParameters)">
+            <summary>
+            Returns a <see cref="T:Microsoft.IdentityModel.Tokens.SecurityKey"/> to use when decrypting a JWE.
+            </summary>
+            <param name="token">The <see cref="T:System.String"/> the token that is being decrypted.</param>
+            <param name="jwtToken">The <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/> that is being decrypted.</param>
+            <param name="validationParameters">A <see cref="T:Microsoft.IdentityModel.Tokens.TokenValidationParameters"/>  required for validation.</param>
+            <returns>Returns a <see cref="T:Microsoft.IdentityModel.Tokens.SecurityKey"/> to use for signature validation.</returns>
+            <remarks>If key fails to resolve, then null is returned</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.ReadJsonWebToken(System.String)">
+            <summary>
+            Converts a string into an instance of <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/>.
+            </summary>
+            <param name="token">A 'JSON Web Token' (JWT) in JWS or JWE Compact Serialization Format.</param>
+            <returns>A <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/></returns>
+            <exception cref="T:System.ArgumentNullException">'token' is null or empty.</exception>
+            <exception cref="T:System.ArgumentException">'token.Length' is greater than <see cref="P:Microsoft.IdentityModel.Tokens.TokenHandler.MaximumTokenSizeInBytes"/>.</exception>
+            <remarks><para>If the 'token' is in JWE Compact Serialization format, only the protected header will be deserialized.</para>
+            This method is unable to decrypt the payload. Use <see cref="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.ValidateToken(System.String,Microsoft.IdentityModel.Tokens.TokenValidationParameters)"/>to obtain the payload.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.ReadToken(System.String)">
+            <summary>
+            Converts a string into an instance of <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/>.
+            </summary>
+            <param name="token">A 'JSON Web Token' (JWT) in JWS or JWE Compact Serialization Format.</param>
+            <returns>A <see cref="T:Microsoft.IdentityModel.JsonWebTokens.JsonWebToken"/></returns>
+            <exception cref="T:System.ArgumentNullException">'token' is null or empty.</exception>
+            <exception cref="T:System.ArgumentException">'token.Length' is greater than <see cref="P:Microsoft.IdentityModel.Tokens.TokenHandler.MaximumTokenSizeInBytes"/>.</exception>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.ValidateToken(System.String,Microsoft.IdentityModel.Tokens.TokenValidationParameters)">
+            <summary>
+            Validates a JWS or a JWE.
+            </summary>
+            <param name="token">A 'JSON Web Token' (JWT) in JWS or JWE Compact Serialization Format.</param>
+            <param name="validationParameters">A <see cref="T:Microsoft.IdentityModel.Tokens.TokenValidationParameters"/>  required for validation.</param>
+            <returns>A <see cref="T:Microsoft.IdentityModel.JsonWebTokens.TokenValidationResult"/></returns>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.ValidateSignature(System.String,Microsoft.IdentityModel.Tokens.TokenValidationParameters)">
+            <summary>
+            Validates the JWT signature.
+            </summary>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JsonWebTokenHandler.ValidateSignature(System.Byte[],System.Byte[],Microsoft.IdentityModel.Tokens.SecurityKey,System.String,Microsoft.IdentityModel.Tokens.TokenValidationParameters)">
+            <summary>
+            Obtains a <see cref="T:Microsoft.IdentityModel.Tokens.SignatureProvider"/> and validates the signature.
+            </summary>
+            <param name="encodedBytes">Bytes to validate.</param>
+            <param name="signature">Signature to compare against.</param>
+            <param name="key"><See cref="T:Microsoft.IdentityModel.Tokens.SecurityKey"/> to use.</param>
+            <param name="algorithm">Crypto algorithm to use.</param>
+            <param name="validationParameters">Priority will be given to <see cref="P:Microsoft.IdentityModel.Tokens.TokenValidationParameters.CryptoProviderFactory"/> over <see cref="P:Microsoft.IdentityModel.Tokens.SecurityKey.CryptoProviderFactory"/>.</param>
+            <returns>'true' if signature is valid.</returns>
+        </member>
+        <member name="T:Microsoft.IdentityModel.JsonWebTokens.JwtConstants">
+            <summary>
+            Constants for Json Web Tokens.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtConstants.HeaderType">
+            <summary>
+            Short header type.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtConstants.HeaderTypeAlt">
+            <summary>
+            Long header type.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtConstants.TokenType">
+            <summary>
+            Short token type.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtConstants.TokenTypeAlt">
+            <summary>
+            Long token type.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtConstants.JsonCompactSerializationRegex">
+            <summary>
+            JWS - Token format: 'header.payload.signature'. Signature is optional, but '.' is required.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtConstants.JweCompactSerializationRegex">
+            <summary>
+            JWE - Token format: 'protectedheader.encryptedkey.iv.cyphertext.authenticationtag'.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtConstants.JweSegmentCount">
+            <summary>
+            The number of parts in a JWE token.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtConstants.JwsSegmentCount">
+            <summary>
+            The number of parts in a JWS token.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtConstants.MaxJwtSegmentCount">
+            <summary>
+            The maximum number of parts in a JWT.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtConstants.DirectKeyUseAlg">
+            <summary>
+            JWE header alg indicating a shared symmetric key is directly used as CEK.
+            </summary>
+        </member>
+        <member name="T:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames">
+            <summary>
+            List of header parameter names see: http://tools.ietf.org/html/rfc7519#section-5.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames.Alg">
+            <summary>
+            see:https://tools.ietf.org/html/rfc7515#section-4.1.1
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames.Cty">
+            <summary>
+            see:https://tools.ietf.org/html/rfc7515#section-4.1.10
+            also:https://tools.ietf.org/html/rfc7519#section-5.2
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames.Enc">
+            <summary>
+            see:https://tools.ietf.org/html/rfc7516#section-4.1.2
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames.IV">
+            <summary>
+            see:https://tools.ietf.org/html/rfc7518#section-4.7.1.1
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames.Jku">
+            <summary>
+            see:https://tools.ietf.org/html/rfc7515#section-4.1.2
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames.Jwk">
+            <summary>
+            see:https://tools.ietf.org/html/rfc7515#section-4.1.3
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames.Kid">
+            <summary>
+            see:https://tools.ietf.org/html/rfc7515#section-4.1.4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames.Typ">
+            <summary>
+            see:https://tools.ietf.org/html/rfc7515#section-4.1.9
+            also:https://tools.ietf.org/html/rfc7519#section-5.1
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames.X5c">
+            <summary>
+            see:https://tools.ietf.org/html/rfc7515#section-4.1.6
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames.X5t">
+            <summary>
+            see:https://tools.ietf.org/html/rfc7515#page-12
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames.X5u">
+            <summary>
+            see:https://tools.ietf.org/html/rfc7515#section-4.1.5
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtHeaderParameterNames.Zip">
+            <summary>
+            see:https://tools.ietf.org/html/rfc7516#section-4.1.3
+            </summary>
+        </member>
+        <member name="T:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames">
+            <summary>
+            List of registered claims from different sources
+            http://tools.ietf.org/html/rfc7519#section-4
+            http://openid.net/specs/openid-connect-core-1_0.html#IDToken
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Actort">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Acr">
+            <summary>
+            http://openid.net/specs/openid-connect-core-1_0.html#IDToken
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Amr">
+            <summary>
+            http://openid.net/specs/openid-connect-core-1_0.html#IDToken
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Aud">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.AuthTime">
+            <summary>
+            http://openid.net/specs/openid-connect-core-1_0.html#IDToken
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Azp">
+            <summary>
+            http://openid.net/specs/openid-connect-core-1_0.html#IDToken
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Birthdate">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.CHash">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.AtHash">
+            <summary>
+            http://openid.net/specs/openid-connect-core-1_0.html#CodeIDToken
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Email">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Exp">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Gender">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.FamilyName">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.GivenName">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Iat">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Iss">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Jti">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.NameId">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Nonce">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Nbf">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Prn">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Sid">
+            <summary>
+            http://openid.net/specs/openid-connect-frontchannel-1_0.html#OPLogout
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Sub">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Typ">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.UniqueName">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtRegisteredClaimNames.Website">
+            <summary>
+            http://tools.ietf.org/html/rfc7519#section-4
+            </summary>
+        </member>
+        <member name="T:Microsoft.IdentityModel.JsonWebTokens.JwtTokenUtilities">
+            <summary>
+            A class which contains useful methods for processing JWT tokens.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtTokenUtilities.RegexJws">
+            <summary>
+            Regex that is used to figure out if a token is in JWS format.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.JsonWebTokens.JwtTokenUtilities.RegexJwe">
+            <summary>
+            Regex that is used to figure out if a token is in JWE format.
+            </summary>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JwtTokenUtilities.CreateEncodedSignature(System.String,Microsoft.IdentityModel.Tokens.SigningCredentials)">
+            <summary>
+            Produces a signature over the 'input'.
+            </summary>
+            <param name="input">String to be signed</param>
+            <param name="signingCredentials">The <see cref="T:Microsoft.IdentityModel.Tokens.SigningCredentials"/> that contain crypto specs used to sign the token.</param>
+            <returns>The bse64urlendcoded signature over the bytes obtained from UTF8Encoding.GetBytes( 'input' ).</returns>
+            <exception cref="T:System.ArgumentNullException">'input' or 'signingCredentials' is null.</exception>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JwtTokenUtilities.GenerateKeyBytes(System.Int32)">
+            <summary>
+            Generates key bytes.
+            </summary>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JwtTokenUtilities.GetAllDecryptionKeys(Microsoft.IdentityModel.Tokens.TokenValidationParameters)">
+            <summary>
+            Gets all decryption keys.
+            </summary>
+        </member>
+        <member name="M:Microsoft.IdentityModel.JsonWebTokens.JwtTokenUtilities.GetDateTime(System.String,Newtonsoft.Json.Linq.JObject)">
+            <summary>
+            Gets the DateTime using the number of seconds from 1970-01-01T0:0:0Z (UTC)
+            </summary>
+            <param name="key">Claim in the payload that should map to an integer, float, or string.</param>
+            <param name="payload">The payload that contains the desired claim value.</param>
+            <remarks>If the claim is not found, the function returns: DateTime.MinValue
+            </remarks>
+            <exception cref="T:System.FormatException">If the value of the claim cannot be parsed into a long.</exception>
+            <returns>The DateTime representation of a claim.</returns>
+        </member>
+        <member name="T:Microsoft.IdentityModel.JsonWebTokens.LogMessages">
+            <summary>
+            Log messages and codes
+            </summary>
+        </member>
+        <member name="T:Microsoft.IdentityModel.JsonWebTokens.TokenValidationResult">
+            <summary>
+            A class which contains the result of a token validation operation.
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.JsonWebTokens.TokenValidationResult.SecurityToken">
+            <summary>
+            The validated security token.
+            </summary>
+        </member>
+    </members>
+</doc>

Bin/Microsoft.IdentityModel.Logging.xml

@@ -0,0 +1,398 @@
+<?xml version="1.0"?>
+<doc>
+    <assembly>
+        <name>Microsoft.IdentityModel.Logging</name>
+    </assembly>
+    <members>
+        <member name="T:Microsoft.IdentityModel.Logging.IdentityModelEventSource">
+            <summary>
+            Event source based logger to log different events.
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.Logging.IdentityModelEventSource.Logger">
+            <summary>
+            Static logger that is exposed externally. An external application or framework can hook up a listener to this event source to log data in a custom way.
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.Logging.IdentityModelEventSource.ShowPII">
+            <summary>
+            Flag which indicates whether or not PII is shown in logs. False by default.
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.Logging.IdentityModelEventSource.HiddenPIIString">
+            <summary>
+            String that is used in place of any arguments to log messages if the 'ShowPII' flag is set to false.
+            </summary>
+        </member>
+        <member name="P:Microsoft.IdentityModel.Logging.IdentityModelEventSource.HeaderWritten">
+            <summary>
+            Indicates whether or the log message header (contains library version, date/time, and PII debugging information) has been written.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.Logging.IdentityModelEventSource._versionLogMessage">
+            <summary>
+            The log message that indicates the current library version.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.Logging.IdentityModelEventSource._dateLogMessage">
+            <summary>
+            The log message that indicates the date.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.Logging.IdentityModelEventSource._piiOffLogMessage">
+            <summary>
+            The log message that is shown when PII is off.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.Logging.IdentityModelEventSource._piiOnLogMessage">
+            <summary>
+            The log message that is shown when PII is off.
+            </summary>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.WriteAlways(System.String)">
+            <summary>
+            Writes an event log by using the provided string argument and current UTC time.
+            No level filtering is done on the event.
+            </summary>
+            <param name="message">The log message.</param>
+            <remarks>No level filtering.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.WriteAlways(System.String,System.Object[])">
+            <summary>
+            Writes an event log by using the provided string argument, current UTC time and the provided arguments list.
+            </summary>
+            <param name="message">The log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.WriteVerbose(System.String)">
+            <summary>
+            Writes a verbose event log by using the provided string argument and current UTC time.
+            </summary>
+            <param name="message">The log message.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.WriteVerbose(System.String,System.Object[])">
+            <summary>
+            Writes a verbose event log by using the provided string argument, current UTC time and the provided arguments list.
+            </summary>
+            <param name="message">The log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.WriteInformation(System.String)">
+            <summary>
+            Writes an information event log by using the provided string argument and current UTC time.
+            </summary>
+            <param name="message">The log message.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.WriteInformation(System.String,System.Object[])">
+            <summary>
+            Writes an information event log by using the provided string argument, current UTC time and the provided arguments list.
+            </summary>
+            <param name="message">The log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.WriteWarning(System.String)">
+            <summary>
+            Writes a warning event log by using the provided string argument and current UTC time.
+            </summary>
+            <param name="message">The log message.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.WriteWarning(System.String,System.Object[])">
+            <summary>
+            Writes a warning event log by using the provided string argument, current UTC time and the provided arguments list.
+            </summary>
+            <param name="message">The log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.WriteError(System.String)">
+            <summary>
+            Writes an error event log by using the provided string argument and current UTC time.
+            </summary>
+            <param name="message">The log message.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.WriteError(System.String,System.Object[])">
+            <summary>
+            Writes an error event log by using the provided string argument, current UTC time and the provided arguments list.
+            </summary>
+            <param name="message">The log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.WriteCritical(System.String)">
+            <summary>
+            Writes a critical event log by using the provided string argument and current UTC time.
+            </summary>
+            <param name="message">The log message.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.WriteCritical(System.String,System.Object[])">
+            <summary>
+            Writes a critical event log by using the provided string argument, current UTC time and the provided arguments list.
+            </summary>
+            <param name="message">The log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.Write(System.Diagnostics.Tracing.EventLevel,System.Exception,System.String)">
+            <summary>
+            Writes an exception log by using the provided event identifer, exception argument, string argument and current UTC time.
+            </summary>
+            <param name="level"><see cref="T:System.Diagnostics.Tracing.EventLevel"/></param>
+            <param name="innerException"><see cref="T:System.Exception"/></param>
+            <param name="message">The log message.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.IdentityModelEventSource.Write(System.Diagnostics.Tracing.EventLevel,System.Exception,System.String,System.Object[])">
+            <summary>
+            Writes an exception log by using the provided event identifer, exception argument, string argument, arguments list and current UTC time.
+            </summary>
+            <param name="level"><see cref="T:System.Diagnostics.Tracing.EventLevel"/></param>
+            <param name="innerException"><see cref="T:System.Exception"/></param>
+            <param name="message">The log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="P:Microsoft.IdentityModel.Logging.IdentityModelEventSource.LogLevel">
+            <summary>
+            Minimum log level to log events. Default is Warning.
+            </summary>
+        </member>
+        <member name="T:Microsoft.IdentityModel.Logging.LogHelper">
+            <summary>
+            Helper class for logging.
+            </summary>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogArgumentNullException(System.String)">
+            <summary>
+            Logs an exception using the event source logger and returns new <see cref="T:System.ArgumentNullException"/> exception.
+            </summary>
+            <param name="argument">argument that is null or empty.</param>
+            <remarks>EventLevel is set to Error.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogException``1(System.String)">
+            <summary>
+            Logs an exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="message">message to log.</param>
+            <remarks>EventLevel is set to Error.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogArgumentException``1(System.String,System.String)">
+            <summary>
+            Logs an argument exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="argumentName">Identifies the argument whose value generated the ArgumentException.</param>
+            <param name="message">message to log.</param>
+            <remarks>EventLevel is set to Error.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogException``1(System.String,System.Object[])">
+            <summary>
+            Logs an exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="format">Format string of the log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+            <remarks>EventLevel is set to Error.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogArgumentException``1(System.String,System.String,System.Object[])">
+            <summary>
+            Logs an argument exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="argumentName">Identifies the argument whose value generated the ArgumentException.</param>
+            <param name="format">Format string of the log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+            <remarks>EventLevel is set to Error.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogException``1(System.Exception,System.String)">
+            <summary>
+            Logs an exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="innerException">the inner <see cref="T:System.Exception"/> to be added to the outer exception.</param>
+            <param name="message">message to log.</param>
+            <remarks>EventLevel is set to Error.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogArgumentException``1(System.String,System.Exception,System.String)">
+            <summary>
+            Logs an argument exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="argumentName">Identifies the argument whose value generated the ArgumentException.</param>
+            <param name="innerException">the inner <see cref="T:System.Exception"/> to be added to the outer exception.</param>
+            <param name="message">message to log.</param>
+            <remarks>EventLevel is set to Error.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogException``1(System.Exception,System.String,System.Object[])">
+            <summary>
+            Logs an exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="innerException">the inner <see cref="T:System.Exception"/> to be added to the outer exception.</param>
+            <param name="format">Format string of the log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+            <remarks>EventLevel is set to Error.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogArgumentException``1(System.String,System.Exception,System.String,System.Object[])">
+            <summary>
+            Logs an argument exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="argumentName">Identifies the argument whose value generated the ArgumentException.</param>
+            <param name="innerException">the inner <see cref="T:System.Exception"/> to be added to the outer exception.</param>
+            <param name="format">Format string of the log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+            <remarks>EventLevel is set to Error.</remarks>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogException``1(System.Diagnostics.Tracing.EventLevel,System.String)">
+            <summary>
+            Logs an exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="eventLevel">Identifies the level of an event to be logged.</param>
+            <param name="message">message to log.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogArgumentException``1(System.Diagnostics.Tracing.EventLevel,System.String,System.String)">
+            <summary>
+            Logs an argument exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="eventLevel">Identifies the level of an event to be logged.</param>
+            <param name="argumentName">Identifies the argument whose value generated the ArgumentException.</param>
+            <param name="message">message to log.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogException``1(System.Diagnostics.Tracing.EventLevel,System.String,System.Object[])">
+            <summary>
+            Logs an exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="eventLevel">Identifies the level of an event to be logged.</param>
+            <param name="format">Format string of the log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogArgumentException``1(System.Diagnostics.Tracing.EventLevel,System.String,System.String,System.Object[])">
+            <summary>
+            Logs an argument exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="eventLevel">Identifies the level of an event to be logged.</param>
+            <param name="argumentName">Identifies the argument whose value generated the ArgumentException.</param>
+            <param name="format">Format string of the log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogException``1(System.Diagnostics.Tracing.EventLevel,System.Exception,System.String)">
+            <summary>
+            Logs an exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="eventLevel">Identifies the level of an event to be logged.</param>
+            <param name="innerException">the inner <see cref="T:System.Exception"/> to be added to the outer exception.</param>
+            <param name="message">message to log.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogArgumentException``1(System.Diagnostics.Tracing.EventLevel,System.String,System.Exception,System.String)">
+            <summary>
+            Logs an argument exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="eventLevel">Identifies the level of an event to be logged.</param>
+            <param name="argumentName">Identifies the argument whose value generated the ArgumentException.</param>
+            <param name="innerException">the inner <see cref="T:System.Exception"/> to be added to the outer exception.</param>
+            <param name="message">message to log.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogException``1(System.Diagnostics.Tracing.EventLevel,System.Exception,System.String,System.Object[])">
+            <summary>
+            Logs an exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="eventLevel">Identifies the level of an event to be logged.</param>
+            <param name="innerException">the inner <see cref="T:System.Exception"/> to be added to the outer exception.</param>
+            <param name="format">Format string of the log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogArgumentException``1(System.Diagnostics.Tracing.EventLevel,System.String,System.Exception,System.String,System.Object[])">
+            <summary>
+            Logs an argument exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="eventLevel">Identifies the level of an event to be logged.</param>
+            <param name="argumentName">Identifies the argument whose value generated the ArgumentException.</param>
+            <param name="innerException">the inner <see cref="T:System.Exception"/> to be added to the outer exception.</param>
+            <param name="format">Format string of the log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogExceptionMessage(System.Exception)">
+            <summary>
+            Logs an exception using the event source logger.
+            </summary>
+            <param name="exception">The exception to log.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogExceptionMessage(System.Diagnostics.Tracing.EventLevel,System.Exception)">
+            <summary>
+            Logs an exception using the event source logger.
+            </summary>
+            <param name="eventLevel">Identifies the level of an event to be logged.</param>
+            <param name="exception">The exception to log.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogInformation(System.String,System.Object[])">
+            <summary>
+            Logs an information event.
+            </summary>
+            <param name="message">The log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogVerbose(System.String,System.Object[])">
+            <summary>
+            Logs a verbose event.
+            </summary>
+            <param name="message">The log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogWarning(System.String,System.Object[])">
+            <summary>
+            Logs a warning event.
+            </summary>
+            <param name="message">The log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.LogExceptionImpl``1(System.Diagnostics.Tracing.EventLevel,System.String,System.Exception,System.String,System.Object[])">
+            <summary>
+            Logs an exception using the event source logger and returns new typed exception.
+            </summary>
+            <param name="eventLevel">Identifies the level of an event to be logged.</param>
+            <param name="argumentName">Identifies the argument whose value generated the ArgumentException.</param>
+            <param name="innerException">the inner <see cref="T:System.Exception"/> to be added to the outer exception.</param>
+            <param name="format">Format string of the log message.</param>
+            <param name="args">An object array that contains zero or more objects to format.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.LogHelper.FormatInvariant(System.String,System.Object[])">
+            <summary>
+            Formats the string using InvariantCulture
+            </summary>
+            <param name="format">Format string.</param>
+            <param name="args">Format arguments.</param>
+            <returns>Formatted string.</returns>
+        </member>
+        <member name="T:Microsoft.IdentityModel.Logging.LogMessages">
+            <summary>
+            Log messages and codes for Microsoft.IdentityModel.Logging
+            </summary>
+        </member>
+        <member name="T:Microsoft.IdentityModel.Logging.TextWriterEventListener">
+            <summary>
+            Event listener that writes logs to a file or a fileStream provided by user.
+            </summary>
+        </member>
+        <member name="F:Microsoft.IdentityModel.Logging.TextWriterEventListener.DefaultLogFileName">
+            <summary>
+            Name of the default log file, excluding its path.
+            </summary>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.TextWriterEventListener.#ctor">
+            <summary>
+            Initializes a new instance of <see cref="T:Microsoft.IdentityModel.Logging.TextWriterEventListener"/> that writes logs to text file.
+            </summary>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.TextWriterEventListener.#ctor(System.String)">
+            <summary>
+            Initializes a new instance of <see cref="T:Microsoft.IdentityModel.Logging.TextWriterEventListener"/> that writes logs to text file.
+            </summary>
+            <param name="filePath">location of the file where log messages will be written.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.TextWriterEventListener.#ctor(System.IO.StreamWriter)">
+            <summary>
+            Initializes a new instance of <see cref="T:Microsoft.IdentityModel.Logging.TextWriterEventListener"/> that writes logs to text file.
+            </summary>
+            <param name="streamWriter">StreamWriter where logs will be written.</param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.TextWriterEventListener.OnEventWritten(System.Diagnostics.Tracing.EventWrittenEventArgs)">
+            <summary>
+            Called whenever an event has been written by an event source for which the event listener has enabled events.
+            </summary>
+            <param name="eventData"><see cref="T:System.Diagnostics.Tracing.EventWrittenEventArgs"/></param>
+        </member>
+        <member name="M:Microsoft.IdentityModel.Logging.TextWriterEventListener.Dispose">
+            <summary>
+            Releases all resources used by the current instance of the <see cref="T:Microsoft.IdentityModel.Logging.TextWriterEventListener"/> class.
+            </summary>
+        </member>
+    </members>
+</doc>

CRM/RepAcercamientosProcesos.aspx

@@ -5,8 +5,7 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
         .Filtros {
-            padding: 10px;
+            padding: 10px;background-color: #95A5A6;
-            background-color: #C3C3C3;
         }
 
             .Filtros label, .Filtros .form-group.form-md-line-input .form-control ~ label {
@@ -48,7 +47,7 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="upDatosRepA" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="Filtros portlet solid grey-cascade portlet-filter">
+            <%--<div class="Filtros portlet solid grey-cascade portlet-filter">
                 <div class="row">
                     <div class="col-md-2" style="width: 85%">
                         <div class="row">
@@ -140,8 +139,95 @@
                         </div>
                     </div>
                 </div>
-            </div>
+            </div>--%>
             
+            <div class="Filtros">
+                <div class="row">
+                    <div class="col-sm-3">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-sm-3"> 
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-sm-3">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-md-2">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-sm-1 text-right">
+                        <br />
+                        <asp:LinkButton ID="LnkConsultar" OnClick="LnkConsultar_Click" runat="server" CssClass="btn btn-default">Consultar</asp:LinkButton>
+                    </div>
+                </div> 
+                <div class="row">
+                    
+                    <div class="col-md-3">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlGrupo1" runat="server" CssClass="form-control input-sm select2me Widthall">
+                                <asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem>
+                                <asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
+                                <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+                                <asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
+                                <asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
+                            </asp:DropDownList>
+                            <asp:Label runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-md-3" style="display:none;">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlGrupo2" runat="server" CssClass="form-control input-sm select2me Widthall">
+                                <asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem>
+                                <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
+                                <asp:ListItem Value="2" Text="Medio Captacion"></asp:ListItem>
+                                <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+                                <asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
+                                <asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
+                            </asp:DropDownList>
+                            <asp:Label runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-md-2">
+                        <div class="">
+                            <asp:Label runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-bottom: -10px; padding-bottom: 10px;">
+                                <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="imgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFechaSolicitudI" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                        </div>
+                    </div>
+                    <div class="col-md-2">
+                        <div class="">
+                            <asp:Label runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-bottom: -10px; padding-bottom: 10px;">
+                                <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="imgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFechaSolicitudF" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                        </div>
+
+                    </div>
+                </div>
+            </div>
             <asp:GridView ID="GVRepAcercamientosEtapas" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVRep" AutoGenerateColumns="False"
                 DataKeyNames="CveGrupo1,Grupo1,CveGrupo2,Grupo2" ShowHeaderWhenEmpty="true">
                 <Columns>

CRM/RepAcercamientosProcesos.aspx.cs

@@ -144,6 +144,15 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
             BoundField test = new BoundField();
             test.DataField = "Grupo1";
             test.HeaderText = "";
+
+
+
+            HyperLinkField hypt = new HyperLinkField();
+            hypt.DataTextField = $"Total";
+            hypt.HeaderText = $"Total";
+            hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2", "Grupo1" };
+            string  strfilstros =string.Format("&cveVendedor={0}&cveMedioCaptacion={1}&cveProbabilidadAcercamiento={2}", cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento);
+            hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}";
             switch (idgrupo1)
             {
                 case 1:
@@ -161,15 +170,11 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
                 case 4:
                     test.HeaderText = "Fecha";
                     Agrupador = "Fecha";
+                    hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={{2}}&FechaFin={{2}}{strfilstros}";
                     break;
             }
             GVRepAcercamientosEtapas.Columns.Add(test);
 
-            HyperLinkField hypt = new HyperLinkField();
-            hypt.DataTextField = $"Total";
-            hypt.HeaderText = $"Total";
-            hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2" };
-            hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}";
             GVRepAcercamientosEtapas.Columns.Add(hypt);
             foreach (DataRow row in dte.Rows)
             {

CRM/RepAcercamientosProcesosDetalle.aspx

@@ -1,38 +1,269 @@
 <%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepAcercamientosProcesosDetalle.aspx.cs" Inherits="CRM_RepAcercamientosProcesosDetalle" %>
 
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .Filtros {
+            padding: 10px;
+            background-color: #95A5A6;
+        }
+
+            .Filtros label, .Filtros .form-group.form-md-line-input .form-control ~ label {
+                color: #fff;
+                font-weight: 600;
+            }
+
+        .form-group.form-md-line-input .form-control {
+            background-color: #fff;
+        }
+
+        .GVRep tr td a {
+            display: block;
+            text-align: center;
+        }
+
+        #chartdiv {
+            width: 100%;
+            height: 500px;
+        }
+
+        .GVRepAcercamientosDetalle a {
+            -webkit-transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, -webkit-box-shadow 0.15s ease;
+            transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, -webkit-box-shadow 0.15s ease;
+            transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, box-shadow 0.15s ease;
+            transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, box-shadow 0.15s ease, -webkit-box-shadow 0.15s ease;
+            color: #3699FF !important;
+            text-decoration: none;
+            font-weight: 700;
+            width: 100%;
+        }
+
+            .GVRepAcercamientosDetalle a:hover {
+                -webkit-transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, -webkit-box-shadow 0.15s ease;
+                transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, -webkit-box-shadow 0.15s ease;
+                transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, box-shadow 0.15s ease;
+                transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, box-shadow 0.15s ease, -webkit-box-shadow 0.15s ease;
+            }
+    </style>
 </asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
     Reporte Detalle de los Acercamientos Procesos
 </asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <li>
+            <li></li>
-            </li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
 
-    <asp:UpdatePanel ID="upDatosRepA" runat ="server" UpdateMode="Conditional" >
+    <asp:UpdatePanel ID="upDatosRepA" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GVRepAcercamientosDetalle" runat="server" GridLines="None" CssClass ="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False" DataKeyNames="CveAcercamiento">
+
+            <%--            <div class="Filtros portlet solid grey-cascade portlet-filter">
+                <div class="row">
+                    <div class="col-md-2" style="width: 85%">
+                        <div class="row">
+                            <div class="col-sm-3" style="width: 25%">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall" OnSelectedIndexChanged="DdlTipoProceso_Change" AutoPostBack="true" Width="100%"></asp:DropDownList>
+                                    <asp:Label runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-sm-3" style="width: 25%">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall" Width="100%"></asp:DropDownList>
+                                    <asp:Label runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-sm-3" style="width: 25%">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall" Width="100%"></asp:DropDownList>
+                                    <asp:Label runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-md-2" style="width: 25%">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall" Width="100%"></asp:DropDownList>
+                                    <asp:Label runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="row">
+
+                            <div class="col-md-2" style="padding-left: 15px; width: 25%;display:none">
+                                <div class="form-group form-md-line-input input-iconright" style="width: 100%">
+                                    <asp:DropDownList ID="DdlGrupo1" runat="server" CssClass="form-control input-sm select2me Widthall" Width="100%">
+                                        <asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem>
+                                        <asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
+                                        <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+                                        <asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
+                                        <asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:Label runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-md-3" style="display: none; width: 25%">
+                                <div class="form-group form-md-line-input input-iconright" style="width: 100%">
+                                    <asp:DropDownList ID="DdlGrupo2" runat="server" CssClass="form-control input-sm select2me Widthall" Style="width: 100%">
+                                        <asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem>
+                                        <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
+                                        <asp:ListItem Value="2" Text="Medio Captacion"></asp:ListItem>
+                                        <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+                                        <asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
+                                        <asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:Label runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-md-2" style="width: 25%;padding-right: 15px;padding-left: 15px;">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:Label runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-bottom: -10px; padding-bottom: 10px;">
+                                        <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaSolicitudI" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                </div>
+                            </div>
+                            <div class="col-md-2" style="width: 25%">
+                                <div class="">
+                                    <asp:Label runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-bottom: -10px; padding-bottom: 10px;">
+                                        <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaSolicitudF" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                </div>
+
+                            </div>
+                        </div>
+                    </div>
+                    <div class="col-md-2" style="width: 138px">
+                        <div class="col-sm-1 text-right" style="width: 138px">
+                            <br />
+                            <asp:LinkButton ID="LnkConsultar" OnClick="LnkConsultar_Click" runat="server" CssClass="btn btn-default">Consultar</asp:LinkButton>
+                        </div>
+                    </div>
+                </div>
+            </div>--%>
+
+            <div class="Filtros">
+                <div class="row">
+                    <div class="col-sm-3">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-sm-3">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-sm-3">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-md-2">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-sm-1 text-right">
+                        <br />
+                        <asp:LinkButton ID="LnkConsultar" OnClick="LnkConsultar_Click" runat="server" CssClass="btn btn-default">Consultar</asp:LinkButton>
+                    </div>
+                </div>
+                <div class="row">
+
+                    <div class="col-md-3" style="display: none;">
+                        <div class="form-group form-md-line-input input-iconright ">
+                            <asp:DropDownList ID="DdlGrupo1" runat="server" CssClass="form-control input-sm select2me Widthall">
+                                <asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem>
+                                <asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
+                                <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+                                <asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
+                                <asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
+                            </asp:DropDownList>
+                            <asp:Label runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-md-3" style="display: none;">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlGrupo2" runat="server" CssClass="form-control input-sm select2me Widthall">
+                                <asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem>
+                                <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
+                                <asp:ListItem Value="2" Text="Medio Captacion"></asp:ListItem>
+                                <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+                                <asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
+                                <asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
+                            </asp:DropDownList>
+                            <asp:Label runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-md-2">
+                        <div class="">
+                            <asp:Label runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-bottom: -10px; padding-bottom: 10px;">
+                                <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="imgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFechaSolicitudI" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                        </div>
+                    </div>
+                    <div class="col-md-2">
+                        <div class="">
+                            <asp:Label runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-bottom: -10px; padding-bottom: 10px;">
+                                <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="imgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFechaSolicitudF" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                        </div>
+
+                    </div>
+                </div>
+            </div>
+
+            <asp:GridView ID="GVRepAcercamientosDetalle" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVRepAcercamientosDetalle" AutoGenerateColumns="False" DataKeyNames="CveAcercamiento">
                 <Columns>
-                    <asp:TemplateField HeaderText="Empresa">
+                    <asp:TemplateField HeaderText="Prospecto">
                         <ItemTemplate>
-                            <asp:Label ID="lblempresa" runat="server" Text='<%# Eval("Empresa")%>'> </asp:Label>
+                            <asp:HyperLink href='<%# Eval("CveAcercamiento","/CRM/Acercamiento.aspx?CveAcercamiento={0}")%>' runat="server" Text='<%# Eval("Empresa")%>'></asp:HyperLink>
+                            <%--<asp:Label ID="lblempresa" runat="server" Text='<%# Eval("Empresa")%>'> </asp:Label>--%>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Vendedor">
                         <ItemTemplate>
-                            <asp:Label ID="lblvendedor" runat="server" Text='<%# Eval("Vendedor")%>'> </asp:Label>
+                            <asp:HyperLink href='<%# Eval("CveAcercamiento","/CRM/Acercamiento.aspx?CveAcercamiento={0}")%>' runat="server" Text='<%# Eval("Vendedor")%>'></asp:HyperLink>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Nombre Acercamiento">
+                        <ItemTemplate>
+                            <asp:HyperLink href='<%# Eval("CveAcercamiento","/CRM/Acercamiento.aspx?CveAcercamiento={0}")%>' runat="server" Text='<%# Eval("NombreAcercamiento")%>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Medio Captacion">
@@ -40,7 +271,7 @@
                             <asp:Label ID="lblmedioCaptacion" runat="server" Text='<%# Eval("MedioCaptacion")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Etapa Proceso">
+                    <asp:TemplateField HeaderText="Etapa del Proceso">
                         <ItemTemplate>
                             <asp:Label ID="lbletapaProceso" runat="server" Text='<%# Eval("EtapaProceso")%>'> </asp:Label>
                         </ItemTemplate>
@@ -50,17 +281,12 @@
                             <asp:Label ID="lblprobabilidadAcercamiento" runat="server" Text='<%# Eval("ProbabilidadAcercamiento")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Nombre Acercamiento">
+                    <asp:TemplateField HeaderText="Nombre del Contacto">
-                        <ItemTemplate>
-                            <asp:Label ID="lblnombreAcercamiento" runat="server" Text='<%# Eval("NombreAcercamiento")%>'> </asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Nombre">
                         <ItemTemplate>
                             <asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Telefono Oficina">
+                    <asp:TemplateField HeaderText="Telefono">
                         <ItemTemplate>
                             <asp:Label ID="lbltelefonoOficina" runat="server" Text='<%# Eval("TelefonoOficina")%>'> </asp:Label>
                         </ItemTemplate>
@@ -75,6 +301,6 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>
 

CRM/RepAcercamientosProcesosDetalle.aspx.cs

@@ -7,9 +7,14 @@ using System.Web.UI.WebControls;
 using Extensiones;
 using System.Data;
 
-public partial class CRM_RepAcercamientosProcesosDetalle :  ClsPaginas
+public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
 {
     #region Propiedades
+    private int RCveTipoProceso
+    {
+        get { return (ViewState["RCveTipoProceso"] == null) ? 0 : Convert.ToInt32(ViewState["RCveTipoProceso"]); }
+        set { ViewState["RCveTipoProceso"] = value; }
+    }
     private int RcveVendedor
     {
         get { return (ViewState["RcveVendedor"] == null) ? 0 : Convert.ToInt32(ViewState["RcveVendedor"]); }
@@ -46,12 +51,36 @@ public partial class CRM_RepAcercamientosProcesosDetalle :  ClsPaginas
         set { ViewState["RsFechaFin"] = value; }
     }
 
+    private DataTable DtMedioCaptacion
+    {
+        get
+        {
+            return (DataTable)ViewState["DtMedioCaptacion"];
+        }
+
+        set
+        {
+            ViewState["DtMedioCaptacion"] = value;
+        }
+    }
+    private DataTable DtProbabilidadAcercamiento
+    {
+        get
+        {
+            return (DataTable)ViewState["DtProbabilidadAcercamiento"];
+        }
+
+        set
+        {
+            ViewState["DtProbabilidadAcercamiento"] = value;
+        }
+    }
     #endregion
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!IsPostBack)
         {
-            int CveTipoProceso = Request["CveTipoProceso"] == null ? -1 : Request["CveTipoProceso"].ToString().ToEntero();
+            RCveTipoProceso = Request["CveTipoProceso"] == null ? -1 : Request["CveTipoProceso"].ToString().ToEntero();
             RcveVendedor = Request["cveVendedor"] == null ? -1 : Request["cveVendedor"].ToString().ToEntero();
             RcveMedioCaptacion = Request["cveMedioCaptacion"] == null ? -1 : Request["cveMedioCaptacion"].ToString().ToEntero();
             RcveProbabilidadAcercamiento = Request["cveProbabilidadAcercamiento"] == null ? -1 : Request["cveProbabilidadAcercamiento"].ToString().ToEntero();
@@ -59,11 +88,11 @@ public partial class CRM_RepAcercamientosProcesosDetalle :  ClsPaginas
             RsFecha = Request["Fecha"] == null ? "" : Request["Fecha"].ToString();
             RsFechaIni = Request["FechaInicio"] == null ? "" : Request["FechaInicio"].ToString();
             RsFechaFin = Request["FechaFin"] == null ? "" : Request["FechaFin"].ToString();
-            try { RsFechaIni = RsFechaIni.ToDateTime().ToString("yyyy/MM/dd"); }
+            try { RsFechaIni = RsFechaIni.ToDateTime().ToString("yyyy/MM/dd"); TxtFechaInicio.Text = RsFechaIni.ToDateTime().ToString("dd/MM/yyyy"); }
             catch (Exception) { RsFechaIni = ""; }
-            try { RsFechaFin = RsFechaFin.ToDateTime().ToString("yyyy/MM/dd"); }
+            try { RsFechaFin = RsFechaFin.ToDateTime().ToString("yyyy/MM/dd"); TxtFechaFin.Text = RsFechaFin.ToDateTime().ToString("dd/MM/yyyy"); }
             catch (Exception) { RsFechaFin = ""; }
-            switch (CveTipoProceso)
+            switch (RCveTipoProceso)
             {
                 case 1:
                     RcveVendedor = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
@@ -78,16 +107,122 @@ public partial class CRM_RepAcercamientosProcesosDetalle :  ClsPaginas
                     RsFecha = Request["CveGrupo1"] == null ? "" : Request["CveGrupo1"].ToString();
                     break;
             }
+            DdlTipoProceso.SelectedValueExist(RCveTipoProceso);
+            CargaDdl();
+
+
+            //DdlGrupo1.SelectedValueExist(idgrupo1);
+            //DdlGrupo2.SelectedValueExist(idgrupo2); 
+            DdlVendedor.SelectedValueExist(RcveVendedor);
+            DdlMedioCaptacion.SelectedValueExist(RcveMedioCaptacion);
+            DdlProbabilidad.SelectedValueExist(RcveProbabilidadAcercamiento);
             cargarDatos();
         }
     }
+
+    protected void CargaDdl()
+    {
+        ClsCRM ObjCRM = new ClsCRM();
+        DdlTipoProceso.DataSource = null;
+        DdlVendedor.DataSource = null;
+        DdlMedioCaptacion.DataSource = null;
+        DdlProbabilidad.DataSource = null;
+
+        if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa, 1))
+        {
+            DdlTipoProceso.DataSource = ObjCRM.DtResultados;
+        }
+        DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa);
+        if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa))
+        {
+            DdlMedioCaptacion.Items.Clear();
+            DdlMedioCaptacion.DataSource = ObjCRM.DtResultados;
+            DtMedioCaptacion = ObjCRM.DtResultados;
+        }
+        if (ObjCRM.GetProbabilidadAcercamiento(UsuarioActual.CveEmpresa, -1))
+        {
+            DdlProbabilidad.DataSource = ObjCRM.DtResultados;
+            DtProbabilidadAcercamiento = ObjCRM.DtResultados;
+        }
+        ObjCRM.Dispose();
+
+        DdlTipoProceso.DataBind();
+        DdlVendedor.DataBind();
+        DdlMedioCaptacion.DataBind();
+        DdlProbabilidad.DataBind();
+        DdlVendedor.Items.Insert(0, new ListItem("Seleccione ", "-1"));
+        DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1"));
+        DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione ", "-1"));
+        DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        DdlVendedor.SelectedValue = "-1";
+        DdlMedioCaptacion.SelectedValue = "-1";
+        DdlProbabilidad.SelectedValue = "-1";
+        DdlTipoProceso.SelectedIndex = 0;
+
+        int n;
+        string CveProbabilidadAcercamiento = Request["CveProbabilidadAcercamiento"];
+        bool isNumeric = int.TryParse(CveProbabilidadAcercamiento, out n);
+
+        int c;
+        string CveTipoProceso = Request["CveTipoProceso"];
+        bool isNumericC = int.TryParse(CveTipoProceso, out c);
+
+        if (isNumeric && isNumericC)
+        {
+            DdlProbabilidad.SelectedValue = CveProbabilidadAcercamiento;
+            DdlTipoProceso.SelectedValue = CveTipoProceso;
+        }
+        upDatosRepA.Update();
+    }
+
+    protected void DdlTipoProceso_Change(object sender, EventArgs e)
+    {
+        DdlMedioCaptacion.Items.Clear();
+        DdlMedioCaptacion.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlMedioCaptacion.DataBind();
+        DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        DdlProbabilidad.Items.Clear();
+        DdlProbabilidad.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlProbabilidad.DataBind();
+        DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        upDatosRepA.Update();
+    }
     protected void cargarDatos()
     {
         ClsCRM ObjRepA = new ClsCRM();
-        ObjRepA.RepAcercamientosDetalle(UsuarioActual.CveEmpresa,RcveVendedor, RcveMedioCaptacion, RcveProbabilidadAcercamiento, RcveEtapaProceso, RsFecha, RsFechaIni, RsFechaFin);
+        ObjRepA.RepAcercamientosDetalle(UsuarioActual.CveEmpresa, RcveVendedor, RcveMedioCaptacion, RcveProbabilidadAcercamiento, RcveEtapaProceso, RsFecha, RsFechaIni, RsFechaFin);
         GVRepAcercamientosDetalle.DataSource = ObjRepA.DtResultados;
         ObjRepA.Dispose();
         GVRepAcercamientosDetalle.DataBind();
         upDatosRepA.Update();
     }
+
+    protected void LnkConsultar_Click(object sender, EventArgs e)
+    {
+
+        //RCveTipoProceso = DdlTipoProceso.SelectedValue.ToEntero();
+        //switch (RCveTipoProceso)
+        //{
+        //    case 1:
+        //        RcveVendedor = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
+        //        break;
+        //    case 2:
+        //        RcveMedioCaptacion = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
+        //        break;
+        //    case 3:
+        //        RcveProbabilidadAcercamiento = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
+        //        break;
+        //    case 4:
+        //        RsFecha = Request["CveGrupo1"] == null ? "" : Request["CveGrupo1"].ToString();
+        //        break;
+        //}
+        RsFechaIni = TxtFechaInicio.Text.Length > 0 ? TxtFechaInicio.Text.ToDateTime().ToString("yyyy/MM/dd") : "";
+        RsFechaFin = TxtFechaFin.Text.Length > 0 ? TxtFechaFin.Text.ToDateTime().ToString("yyyy/MM/dd") : "";
+        RcveVendedor = DdlVendedor.SelectedValue.ToEntero();
+        RcveMedioCaptacion = DdlMedioCaptacion.SelectedValue.ToEntero();
+        RcveProbabilidadAcercamiento = DdlProbabilidad.SelectedValue.ToEntero();
+        cargarDatos();
+    }
 }

CRM/RepAcercamientosRechazos.aspx

@@ -5,8 +5,7 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
         .Filtros {
-            padding: 10px;
+            padding: 10px;background-color: #95A5A6;
-            background-color: #C3C3C3;
         }
 
             .Filtros label, .Filtros .form-group.form-md-line-input .form-control ~ label {

CRM/RepAcercamientosRechazos.aspx.cs

@@ -128,6 +128,12 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
             BoundField test = new BoundField();
             test.DataField = "Grupo1";
             test.HeaderText = "";
+            HyperLinkField hypt = new HyperLinkField();
+            hypt.DataTextField = $"Total";
+            hypt.HeaderText = $"Total";
+            hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2" , "Grupo1" };
+            string strfilstros = string.Format("&cveVendedor={0}&cveMedioCaptacion={1}&cveProbabilidadAcercamiento={2}", cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento);
+            hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}";
             switch (idgrupo1)
             {
                 case 1:
@@ -145,15 +151,11 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
                 case 4:
                     test.HeaderText = "Fecha";
                     Agrupador = "Fecha";
+                    hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={{2}}&FechaFin={{2}}{strfilstros}";
                     break;
             }
             GVRepAcercamientosEtapas.Columns.Add(test);
 
-            HyperLinkField hypt = new HyperLinkField();
-            hypt.DataTextField = $"Total";
-            hypt.HeaderText = $"Total";
-            hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2" };
-            hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}";
             GVRepAcercamientosEtapas.Columns.Add(hypt);
             foreach (DataRow row in dte.Rows)
             {

Compras/Compras.aspx

@@ -682,7 +682,7 @@
                                     </asp:Panel>
 
 
-                                    <asp:GridView ID="GvPS" ShowHeader="false" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS,Cantidad,CveUM,UM,PU,Descuento,OtrosGastos,CvePresupuestoEgreso,PS,Clasificacion,CveClasificacion,CveOrdenCompraDetalle,IVA,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,Obs,Total,CveProyecto,CveSubProyecto,Proyecto,SubProyecto,Consec,CveTipoGasto,NoDeducible" GridLines="none" BorderWidth="0" EmptyDataText="Sin Productos o Servicios agregados" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
+                                    <asp:GridView ID="GvPS" ShowHeader="false" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS,Cantidad,CveUM,UM,PU,Descuento,OtrosGastos,CvePresupuestoEgreso,PS,Clasificacion,CveClasificacion,CveOrdenCompraDetalle,IVA,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,Obs,Total,CveProyecto,CveSubProyecto,Proyecto,SubProyecto,Consec,CveTipoGasto,NoDeducible,DifPSSat" GridLines="none" BorderWidth="0" EmptyDataText="Sin Productos o Servicios agregados" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
                                         <Columns>
                                             <%-- 0 --%>
                                             <asp:TemplateField ItemStyle-Width="15px">
@@ -2338,7 +2338,7 @@
                                 </tr>
                                 <tr>
                                     <td align="left">
-                                        <asp:Label ID="LblAplicaNC" runat="server" Width="100px" Text="Aplica NC:" ToolTip="Aplica Nota Crédito"></asp:Label></td>
+                                        <asp:Label ID="LblAplicaNC" runat="server" Width="100px" Text="Aplica NC/Dev:" ToolTip="Aplica Nota Crédito"></asp:Label></td>
                                     <td align="left">
                                         <asp:CheckBox ID="ChkAplicaNotaCredito" CssClass="make-switchsd" runat="server" /></td>
                                 </tr>

Compras/Compras.aspx.vb

@@ -1270,14 +1270,10 @@ Partial Class Compras_Compras
 
             '    LitHProyecto.Text = "Sucursal"
             '    DdlSubProyecto.Items.Clear()
-            '    DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+
-            '    DdlSubProyecto.DataBind()
-            '    DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
             '    DdlAsignaSubProyecto.Items.Clear()
-            '    DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+
-            '    DdlAsignaSubProyecto.DataBind()
-            '    DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
             '    divproyecto.Visible = False
             '    divasignaproyecto.Visible = False
@@ -1511,6 +1507,8 @@ Partial Class Compras_Compras
                 CargaFletesAgregados()
             End If
 
+
+
             InicializaOC()
 
             'Valida si el IVA del XML es está bien calculado
@@ -2396,6 +2394,8 @@ Partial Class Compras_Compras
                 EstatusAlmacen = dr("EstatusAlmacen").ToString.ToEntero
                 DdlTipoCompra.SelectedValueExist(dr("CveTipoCompra"))
                 CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero
+
+                ChkEsNoDeducible.Checked = Boolean.Parse(dr("NoDeducible").ToString)
                 'Select Case dr("PorcentajeIVA").ToString.ToDouble
                 '    Case 0
                 '        DdlIVA.SelectedValue = "1"
@@ -2620,6 +2620,7 @@ Partial Class Compras_Compras
                     TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
 
                     TmpDT.Columns.Add("CveContrato", GetType(Integer))
+                    TmpDT.Columns.Add("DifPSSat", GetType(Integer))
 
 
 
@@ -3612,6 +3613,7 @@ Partial Class Compras_Compras
                     tPSCodigo = String.Format("{1} - {0}", ValorXML(node, "descripcion").ToUpper.Trim.Replace(vbCrLf, " ").Replace(vbLf, " ").Replace("'", "''"), ValorXML(node, "noIdentificacion").Trim)
                 End If
 
+                'Alert(ValorXML(node, "ClaveProdServ").Trim)
 
                 If Version = "3.3" Then
                     If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
@@ -3721,6 +3723,8 @@ Partial Class Compras_Compras
                 'AGREGA A TMPDT
                 AddPS(ValorXML(node, "cantidad").ToDouble, CveUM, UMM, tCveClasif, Clasif, tCvePS, PSS, TipoPS, "-1", "SE", "SE", "-1", Obs, PU, Total, IVA, RetIVA, RetISR, IEPS, 0, Descuento, PSCodigo:=tPSCodigo, TCalculaTotales:=False, CveSATPS:=ValorXML(node, "ClaveProdServ").ToEntero(), CargaXml:=True, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, PorcentajeRetISR:=PorcentajeRetISR, PorcentajeIEPS:=PorcentajeIEPS)
 
+
+
             Next
         End If
 
@@ -4484,6 +4488,17 @@ Partial Class Compras_Compras
                             'si el registro es manual, toma el mismo dato
                             If CveFactura <= 0 Then TotalOriginal = TxtTotal.Text.ToDecimal
 
+                            For Each GvRow As GridViewRow In GvPS.Rows
+                                If GvRow.RowType = DataControlRowType.DataRow Then
+
+                                    If GvRow.FCCheckBox("ChkEsNoDeduciblePS").Checked = False Then
+                                        EsNoDeducible = False
+                                        Exit For
+                                    End If
+
+                                End If
+                            Next
+
                             'Compra
                             If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDouble, TxtDescuento.Text.ToDouble,
                               LblAmortizacion.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtOtrosImpuestos.Text.ToDouble,
@@ -6529,9 +6544,11 @@ Partial Class Compras_Compras
                                                                                 'SumatoriaOCINV = -SumatoriaOCINV
 
                                                                                 Dim CveClasificacionCostoOC = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero
+                                                                                Dim CveSubProyecto As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
+
                                                                                 IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
                                                                                 CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then
                                                                                     ErrorPrepoliza = True
                                                                                     Exit For
                                                                                 End If
@@ -6570,6 +6587,8 @@ Partial Class Compras_Compras
 
                                                                 If RegistraConcepto225 Then
 
+
+
                                                                     importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
                                                                     importeMN = importeMovimiento * tipoCambioActual * Multiplicador
 
@@ -6618,13 +6637,18 @@ Partial Class Compras_Compras
                                                                             importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
                                                                             importeMN = importeMovimiento * tipoCambioActual * Multiplicador
                                                                             Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
-                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+
+                                                                            Dim CveSubProyecto As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
+
+                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then
                                                                                     ErrorPrepoliza = True
                                                                                 End If
                                                                             Else
                                                                                 ErrorPrepoliza = True
                                                                             End If
+
                                                                         End If
                                                                     End If
 
@@ -10755,6 +10779,14 @@ Partial Class Compras_Compras
 
             End If
 
+
+            If e.Row.DataKey("DifPSSat").ToEntero = 1 Then
+                '#e35b5a
+                e.Row.BackColor = Drawing.Color.FromArgb(1, 227, 91, 90)
+                e.Row.Attributes.Add("data-toggle", "tooltip")
+                e.Row.Attributes.Add("title", "El código del producto del SAT no es igual al código del producto registrado.")
+            End If
+
         End If
     End Sub
     Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvPS.RowDeleting
@@ -11018,6 +11050,8 @@ Partial Class Compras_Compras
         TmpDT.Columns.Add("ImporteConImpuestos", GetType(Double))
         TmpDT.Columns.Add("NoDeducible", GetType(Boolean))
 
+        TmpDT.Columns.Add("DifPSSat", GetType(Integer))
+
         TmpDTOriginal = New DataTable
         TmpDTOriginal.Columns.Add("Consec", GetType(Integer))
         TmpDTOriginal.Columns.Add("Cantidad", GetType(Decimal))
@@ -17359,9 +17393,9 @@ Partial Class Compras_Compras
     Private Sub CargaSubProyecto()
         Dim CveProyecto = If(DdlProyecto.SelectedValue.ToEntero > 0, DdlProyecto.SelectedValue.ToEntero, -1)
         DdlSubProyecto.Items.Clear()
-        If CveProyecto > 0 Then
+
-            DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
+        DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
-        End If
+
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -19483,6 +19517,8 @@ Partial Class Compras_Compras
                     '' CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
 
 
+                    Dim CveSubProyecto As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
+
                     If DiferenciaInvOC.RoundSQL() <> 0 Then
                         CvePrePoliza = ObjConta.AddPrePolizas("Compras/OC-(OCAlmacen)", 74, DiferenciaInvOC, DiferenciaInvOC, 1, Fecha, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                         If CvePrePoliza > 0 Then
@@ -19494,14 +19530,14 @@ Partial Class Compras_Compras
                                 Dim DifImporte As Decimal = DiferenciaInvOC - (ImporteME + ImporteMEComp)
 
 
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, 177, ConceptoPartida, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, 177, ConceptoPartida, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
                                     Retorno = False
                                     Exit For
                                 End If
 
                                 If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteME, SerieFolio, 228, ConceptoPartida, Fecha, IdCtaContableRecepcionOCME, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteME, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then
                                     If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, SerieFolio, 229, ConceptoPartida, Fecha, IdCtaContableRecepcionOCComplementaria, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteMEComp, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then
-                                        If DifImporte <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifImporte, SerieFolio, 69, ConceptoPartida, Fecha, IdCtaContable69, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DifImporte, ImporteME:=DifImporte, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle, CveClasificacion:=CveClasificacionCostoOC) Then
+                                        If DifImporte <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifImporte, SerieFolio, 69, ConceptoPartida, Fecha, IdCtaContable69, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DifImporte, ImporteME:=DifImporte, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle, CveClasificacion:=CveClasificacionCostoOC, CveSubProyecto:=CveSubProyecto) Then
                                             Retorno = False
                                             Exit For
                                         End If
@@ -19515,7 +19551,7 @@ Partial Class Compras_Compras
                                 End If
                             Else
                                 '2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL
-                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, If(ConceptoSalida = 0, IdCtaContableAlmacen, IdCtaContableRecepcionOCER), -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle) Then
+                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, If(ConceptoSalida = 0, IdCtaContableAlmacen, IdCtaContableRecepcionOCER), -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
                                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, ConceptoPartida, Fecha, IdCtaContableRecepcionOC, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then
                                         Retorno = False
                                         Exit For

Compras/PopUpVerFactura.aspx.vb

@@ -1327,7 +1327,7 @@ Partial Class PopUpVerFactura
 
         Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero
 
-        If CveTipoAlmacen = 19 Or CveTipoAlmacen = 20 Then
+        If CveTipoAlmacen = 20 Then
             CveConcepto = 24
         End If
 
@@ -1341,7 +1341,7 @@ Partial Class PopUpVerFactura
                           EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
                           MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
                           PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
-                          CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados)
+                          CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1358,7 +1358,7 @@ Partial Class PopUpVerFactura
                                   Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
                                   EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
-                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0)
+                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1)
 
 
         Select Case CveConcepto
@@ -1445,6 +1445,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("Concepto", ConceptoFormato))
                         params.Add(New ReportParameter("Almacen", Almacen))
                         params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("CveTipoAlmacen", Almacen))
 
                         params.Add(New ReportParameter("Folio", Folio))
                         params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))

Contabilidad/RegPoliza.aspx.vb

@@ -1702,9 +1702,21 @@ Partial Class RegPoliza
 
         If ObjConta.RemovePoliza(IDPoliza) Then
             If ObjMov.DesvincularPrePolizaContabilizada(IDPoliza, UsuarioActual.CveEmpresa) Then
-                If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
 
+                    ErrorTrans = True
                 Else
+                End If
+
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                    ErrorTrans = True
+                End If
+
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", TxtFechaPoliza.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                    ErrorTrans = True
+                End If
+
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", DdlTipoPoliza.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
                     ErrorTrans = True
                 End If
             Else

Contabilidad2/RepAnexoCatalogo.aspx

@@ -31,7 +31,7 @@
             <div class="portlet solid  grey-cascade portlet-filter">
                 <div class="portlet-title portlet-filterT smalltitle magindate">
                     <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" />
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" ValidationGroup="GrpConsulta" />
                         <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a><%--class="expand"--%>
                         <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                     </div>
@@ -40,6 +40,7 @@
                         <ul class="list-inline text-size-12">
                             <li>F. I.</li>
                             <li style="margin-right: 30px">
+
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
                                     <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="24px"></asp:TextBox>
                                     <span class="input-group-btn ">
@@ -47,7 +48,12 @@
                                     </span>
                                     <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    
+                                    <asp:CompareValidator ID="CVTxtFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CECVTxtFechaDel" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
+
                                 </div>
+
                             </li>
                             <li>F. F. </li>
                             <li style="margin-right: 30px">
@@ -58,15 +64,25 @@
                                     </span>
                                     <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+
+                                    <asp:CompareValidator ID="CVTxtFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CECVTxtFechaAl" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
+
                                 </div>
                             </li>
                             
-                            <li>Cuentas:
+                            <li>Cuenta:
                             </li>
                             <li>
                                 <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="350px">
                                     <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
+
+                                <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+
+
                             </li>
                            
                            

Contabilidad2/RepAnexoCatalogoAnual.aspx.vb

@@ -28,11 +28,14 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
-            Dim EjercicioParametro, SubProyectoParametro, DivisorParametro As Integer
+            Dim EjercicioParametro, EjercicioParametroFinal, SubProyectoParametro, DivisorParametro As Integer
-            CveCuenta = IfNull(Request("C"), "-1").ToString.ToEntero
+
-            EjercicioParametro = IfNull(Request("E"), "-1").ToString.ToEntero
+            CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
-            SubProyectoParametro = IfNull(Request("S"), "-1").ToString.ToEntero
+            EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
-            DivisorParametro = IfNull(Request("D"), "-1").ToString.ToEntero
+            EjercicioParametroFinal = IfNull(Request("Ejerciciofinal"), "-1").ToString.ToEntero
+            SubProyectoParametro = IfNull(Request("CveSubproyecto"), "-1").ToString.ToEntero
+            DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
+
             EsVertical = IfNull(Request("V"), "-1").ToString.ToEntero
 
             InicializaValores()

Contabilidad2/RepAnexoCatalogoMensual.aspx

@@ -3,6 +3,11 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        #C_GvMensual2 > tbody > tr:nth-child(1) > th:nth-child(1), #C_GvMensual2 > tbody > tr:nth-child(2) > td:nth-child(1){
+            width:500px!important;
+        }
+    </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
     Anexo del Catálogo - Mensual
@@ -50,46 +55,54 @@
 
     <asp:UpdatePanel ID="UpMensual" UpdateMode="Conditional" runat="server">
         <ContentTemplate>
+            <div class="row">
+                <div class="col-md-12">
+                    <div style="overflow:auto">
+                         <asp:GridView ID="GvMensual2" runat="server" AutoGenerateColumns="False" ShowHeader="true" EmptyDataText="No se encontraron datos" GridLines="none" CssClass="table table-hover">
+                        <Columns>
+                            <asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="500px"  ControlStyle-Width="500px"  />
+                            <asp:BoundField HeaderText="Enero" DataField="Enero" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="Febrero" DataField="Febrero" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionFebreroImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionFebreroPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Marzo" DataField="Marzo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionMarzoImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionMarzoPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Abril" DataField="Abril" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionAbrilImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionAbrilPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Mayo" DataField="Mayo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionMayoImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionMayoPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Junio" DataField="Junio" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionJunioImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionJunioPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Julio" DataField="Julio" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionJulioImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionJulioPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Agosto" DataField="Agosto" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionAgostoImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionAgostoPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Septiembre" DataField="Septiembre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionSeptiembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionSeptiembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Octubre" DataField="Octubre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionOctubreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionOctubrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Noviembre" DataField="Noviembre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionNoviembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionNoviembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Diciembre" DataField="Diciembre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionDiciembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionDiciembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                        </Columns>
+                    </asp:GridView>
+                    </div>
+                   
+                </div>
+            </div>
+
 
-            <asp:GridView ID="GvMensual2" runat="server" AutoGenerateColumns="False" ShowHeader="true" EmptyDataText="No se encontraron datos" GridLines="none" CssClass="table table-hover">
-                <Columns>
-                    <asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="500px" ControlStyle-Width="500px" />
-                    <asp:BoundField HeaderText="Enero" DataField="Enero" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="Febrero" DataField="Febrero" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionFebreroImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionFebreroPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Marzo" DataField="Marzo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionMarzoImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionMarzoPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Abril" DataField="Abril" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionAbrilImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionAbrilPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Mayo" DataField="Mayo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionMayoImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionMayoPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Junio" DataField="Junio" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionJunioImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionJunioPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Julio" DataField="Julio" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionJulioImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionJulioPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Agosto" DataField="Agosto" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionAgostoImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionAgostoPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Septiembre" DataField="Septiembre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionSeptiembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionSeptiembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Octubre" DataField="Octubre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionOctubreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionOctubrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Noviembre" DataField="Noviembre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionNoviembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionNoviembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Diciembre" DataField="Diciembre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionDiciembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionDiciembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                </Columns>
-            </asp:GridView>
 
         </ContentTemplate>
     </asp:UpdatePanel>

Contabilidad2/RepAnexoCatalogoMensual.aspx.vb

@@ -22,10 +22,10 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
         If Not IsPostBack Then
 
             Dim EjercicioParametro, SubProyectoParametro, DivisorParametro As Integer
-            CveCuenta = IfNull(Request("C"), "-1").ToString.ToEntero
+            CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
-            EjercicioParametro = IfNull(Request("E"), "-1").ToString.ToEntero
+            EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
-            SubProyectoParametro = IfNull(Request("S"), "-1").ToString.ToEntero
+            SubProyectoParametro = IfNull(Request("CveSubProyecto"), "-1").ToString.ToEntero
-            DivisorParametro = IfNull(Request("D"), "-1").ToString.ToEntero
+            DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
 
             InicializaValores()
 
@@ -72,7 +72,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
     Private Sub CargaDatos()
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalogoMensual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Conta.GetAnexoCatalogoMensual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
             GvMensual2.DataSource = Conta.DtResultados
         Else
             GvMensual2.DataSource = Nothing

Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx

@@ -0,0 +1,335 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoMensualHorizontal.aspx.vb" Inherits="Contabilidad_RepAnexoCatalogoMensualHorizontal" EnableEventValidation="false" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .table-VH {
+            padding-top: 58px;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    <asp:Label runat="server" ID="LbTitulo" Text="Anexo del Catálogo"></asp:Label>
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+
+ <%--   <li>
+        <asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+    </li>
+    <li>
+        <asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+    </li>--%>
+
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle magindate">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" ValidationGroup="GrpConsulta" />
+                        <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a><%--class="expand"--%>
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <%--<div class="row">--%>
+                        <ul class="list-inline text-size-12">
+                            <li>F. I.</li>
+                            <li style="margin-right: 30px">
+
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="24px"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" Height="24px" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    
+                                    <asp:CompareValidator ID="CVTxtFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CECVTxtFechaDel" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+
+                            </li>
+                            <li>F. F. </li>
+                            <li style="margin-right: 30px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="24px"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" Height="24px" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+
+                                    <asp:CompareValidator ID="CVTxtFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CECVTxtFechaAl" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+                            </li>
+                            
+                            <li>Cuenta:
+                            </li>
+                            <li>
+                                <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="350px">
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+
+                                <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+
+
+                            </li>
+                           
+                           
+                        </ul>
+                    </div>
+                </div>
+                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                  
+                    <ul class="list-inline text-size-12">
+                        <li>
+                            Tipo Movto:
+                        </li>
+                        <li>
+                             
+                            <asp:DropDownList CssClass="form-control input-sm" ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4">
+                                <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
+                            </asp:DropDownList>
+                          
+                        </li>
+                         <li>
+                            <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubproyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me">
+                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            </li>
+                            <li runat="server" id="tdTipoReporte" visible="true">Tipo:
+                            </li>
+                           
+                            <li runat="server" id="tdTipoReporte2" visible="true">
+                                <asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm" runat="server" Width="150px">
+                                    <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Contable y Complementario" Value="3"></asp:ListItem>
+                                    <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
+                                </asp:DropDownList>
+                            </li>
+                            <li>Tipo de Cuentas:
+                            </li>
+                            <li>
+                                <asp:DropDownList Visible="false" CssClass="form-control input-sm" Width="150px" ID="DdlTipoCuentas" ClientIDMode="Static" runat="server" DataTextField="Nombre" DataValueField="CveCuenta" TabIndex="4" AutoPostBack="true">
+                                </asp:DropDownList>
+                            </li>
+                       
+                    </ul>
+                   
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <br />
+
+    <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
+        <ContentTemplate>
+
+            <asp:GridView ID="GvDatos" runat="server" GridLines="None" CssClass="ScrollAD  table table-smallpadding Widthall" data-heighterror="375" data-freezecols="0" data-freezerows="-1" 
+                ShowHeader="True" ShowHeaderWhenEmpty="true" AllowPaging="False" ShowFooter="False" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
+                <Columns>
+                    <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Left" Width="180" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Left" Width="320" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Saldos Iniciales">
+                        <HeaderTemplate>
+                            <table width="100%">
+                                <tr>
+                                    <td colspan="2">Saldos Iniciales</td>
+                                </tr>
+                                <tr>
+                                    <td>Deudor</td>
+                                    <td>Acreedor</td>
+                                </tr>
+                            </table>
+                        </HeaderTemplate>
+
+                        <ItemTemplate>
+                            <asp:Label ID="LbSaldoInicial" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
+                            <asp:Label ID="LbSaldoInicial2" runat="server" Width="30px" Visible="false"></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle Width="145" HorizontalAlign="Right" />
+
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Cargos">
+                        <ItemTemplate>
+                            <asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle Width="145" HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Abonos">
+                        <ItemTemplate>
+                            <asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle Width="145" HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Saldos Actuales">
+                      <HeaderTemplate>
+                            <table width="100%">
+                                <tr>
+                                    <td colspan="2">Saldos Actuales</td>
+                                </tr>
+                                <tr>
+                                    <td>Deudor</td>
+                                    <td>Acreedor</td>
+                                </tr>
+                            </table>
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HLSaldoActual" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                            <%--<asp:Label ID="LbSaldoActual" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>'></asp:Label>--%>
+                            <asp:Label ID="LbSaldoActual" runat="server" Width="30px" Visible="false"></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle Width="145" HorizontalAlign="Right" />
+                    </asp:TemplateField>
+
+                    <asp:BoundField HeaderText="Enero" DataField="Enero" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Febrero" DataField="Febrero" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Marzo" DataField="Marzo" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Abril" DataField="Abril" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Mayo" DataField="Mayo" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Junio" DataField="Junio" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Julio" DataField="Julio" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Agosto" DataField="Agosto" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Septiembre" DataField="Septiembre" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Octubre" DataField="Octubre" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Noviembre" DataField="Noviembre" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Diciembre" DataField="Diciembre" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+
+
+                </Columns>
+                <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
+            </asp:GridView>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+</asp:Content>
+
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script type="text/javascript">
+
+<%--        function pageLoad(sender, args) {
+
+            $(function () {
+                //Genero las cuentas en el arreglo
+                var ArrCuentas = [<%= WSCuentas()%>];
+
+                $("#TxtCuenta").autocomplete({
+                    minLength: 0,
+                    source: ArrCuentas,
+                    focus: function (event, ui) {
+                        $("#TxtCuenta").val(ui.item.label);
+                        $("#HdnCveCuenta").val(ui.item.value);
+                        return false;
+                    },
+                    select: function (event, ui) {
+
+                        $("#TxtCuenta").val(ui.item.label);
+                        $("#HdnCveCuenta").val(ui.item.value);
+
+                        //$("#project-description").html(ui.item.desc);
+                        //$("#project-icon").attr("src", "images/" + ui.item.icon);
+
+                        return false;
+                    }
+                })
+                //.autocomplete("instance")._renderItem = function (ul, item) {
+                //    return $("<li>")
+                //      .append("<a>" + item.label + "</a>")
+                //      .appendTo(ul);
+                //};
+            });
+
+            // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
+            $('input[type=text]').on('keydown', function (e) {
+                // Si la tecla ENTER es presionada... 
+                if (e.keyCode === 13) {
+
+                    var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
+                    var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
+                    var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
+                    if (nextField.length > 0) { // Si se encontró un elemento:
+                        nextField.focus(); // Hacerle focus / seleccionarlo
+                        nextField.select();
+                        e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
+                    }
+
+                }
+
+            });
+
+            // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
+            $('select').on('keydown', function (e) {
+                // Si la tecla ENTER es presionada... 
+                if (e.keyCode === 13) {
+
+                    var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
+                    var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
+                    var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
+                    if (nextField.length > 0) { // Si se encontró un elemento:
+                        nextField.focus(); // Hacerle focus / seleccionarlo
+                        nextField.select();
+                        e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
+                    }
+                }
+            });
+
+        }--%>
+
+        function Enable() {
+            var Producto = $get("DdlTipoCuentas").value;
+            if (Producto == "-2") {
+                //document.getElementById("TxtCuenta").disabled = false;
+                document.getElementById("C_DdlCuentas").disabled = false;
+                //document.getElementById("TxtCuenta").focus();
+                //alert(Producto);
+            }
+            else {
+                //document.getElementById("TxtCuenta").value = " ";
+                //document.getElementById("TxtCuenta").disabled = true;
+                $get("C_DdlCuentas").value = "-1";
+                document.getElementById("C_DdlCuentas").disabled = true;
+            }
+        }
+
+        function Scroll() {
+            var Tam = TamañoVentana();
+            var Alto = Tam.height - 360;
+            if (Alto < 100) {
+                Alto = 100;
+            }
+            $('#<%=GvDatos.ClientID%>').ADScroll({
+                height: Alto
+            });
+        }
+    </script>
+</asp:Content>

Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb

@@ -0,0 +1,328 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
+    Inherits ClsPaginas
+
+
+#Region "PROPIEDADES"
+    Private Property DtDatos As DataTable
+        Get
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+    Private Property FechaInicio As Date
+        Get
+            FechaInicio = ViewState("FechaInicio").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaInicio") = value
+        End Set
+    End Property
+
+    Private Property FechaFin As Date
+        Get
+            FechaFin = ViewState("FechaFin").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaFin") = value
+        End Set
+    End Property
+    Private Property IdCuenta As Integer
+        Get
+            IdCuenta = ViewState("CveCuenta").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveCuenta") = value
+        End Set
+    End Property
+    'Private Property DTCuentas As DataTable
+    '    Get
+    '        Return CType(ViewState("DTCuentas"), DataTable)
+    '    End Get
+    '    Set(value As DataTable)
+    '        ViewState("DTCuentas") = value
+    '    End Set
+    'End Property
+    Private Property CveSubProyecto As String
+        Get
+            CveSubProyecto = ViewState("CveSubProyecto").ToString
+        End Get
+        Set(value As String)
+            ViewState("CveSubProyecto") = value
+        End Set
+    End Property
+
+    Private Property TipoReporte As Integer
+        Get
+            TipoReporte = ViewState("TP").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("TP") = value
+        End Set
+    End Property
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            Dim ErrorParametros = True
+            DtDatos = Nothing
+            CargaTipoCuentas()
+
+            FechaInicio = Now.FirstDayOfMonth
+            FechaFin = Date.Now
+
+            'If UsuarioActual.Empresa.UsaAC Then
+            '    TipoReporte = -1
+            'Else
+            '    TipoReporte = 1
+            '    tdTipoReporte.Visible = True
+            '    tdTipoReporte2.Visible = True
+            'End If
+
+
+            If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
+                'If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+                If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
+                    IdCuenta = Request("CveCuenta").ToEntero
+                    'FechaInicio = Request("FI").ToDate
+                    FechaFin = Request("FF").ToDate
+                    DdlCuentas.SelectedValueExist(IdCuenta)
+                    If DdlCuentas.SelectedValue.ToEntero <> -1 Then
+                        'RegistraScript("Enable();")
+                        DdlTipoCuentas.SelectedValueExist(-2)
+                    End If
+
+                    If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+                        FechaInicio = Request("FI").ToDate
+                    Else
+                        If Request("ER") IsNot Nothing AndAlso Request("ER").ToString = "1" Then
+                            FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
+                        Else
+                            FechaInicio = ("1900/01/01").ToDate
+                        End If
+                    End If
+
+
+                    If Request("CM") IsNot Nothing AndAlso IsNumeric(Request("CM")) AndAlso Request("CM").ToEntero > 0 Then
+                        DdlCuenta.SelectedValueExist(Request("CM").ToString)
+                    End If
+
+                    If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
+                        CveSubProyecto = Request("CveSubProyecto").ToString
+                    End If
+
+
+                    ErrorParametros = False
+
+
+                    If Request("TP") IsNot Nothing AndAlso IsNumeric(Request("TP")) AndAlso Request("TP").ToEntero > 0 Then
+                        TipoReporte = Request("TP").ToEntero
+
+                        DdlTipoReporte.SelectedValue = TipoReporte.ToString
+                    End If
+                End If
+                'End If
+            End If
+
+
+            TxtFechaDel.Text = FechaInicio.ToShortDateString
+            TxtFechaAl.Text = FechaFin.ToShortDateString
+
+            If Not ErrorParametros Then
+                CargaDatos()
+            End If
+
+        End If
+    End Sub
+
+#Region "CARGA DATOS Y GRID"
+    'Public Function WSCuentas() As String
+    '    Dim Str As New StringBuilder
+    '    Dim i As Integer = 0
+    '    Dim dt As DataTable = DTCuentas '.FiltraParametros("Afectable = 1")
+
+    '    If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+
+    '        For Each dr As DataRow In dt.Rows
+    '            i += 1
+    '            Str.AppendFormat("{{value:""{0}"",label:""{1}{3}""}}{2}", dr("CveCuenta"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""), If(dr("Afectable").ToString = "1", " *", ""))
+    '        Next
+
+    '    End If
+
+
+    '    Return Str.ToString
+    'End Function
+    Private Sub CargaTipoCuentas()
+        'Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjTipoCuenta As New ClsContabilidad
+        Dim strGlobal As String = ""
+
+        If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+            If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+            'DTCuentas = ObjTipoCuenta.DtResultados '.FiltraParametros("Afectable = 1")
+            DdlTipoCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo IN ('_ACTIVO', '_BPASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
+            DdlCuentas.DataSource = ObjTipoCuenta.DtResultados
+        End If
+        ObjTipoCuenta.Dispose()
+        DdlTipoCuentas.DataBind()
+        'If strGlobal.Length > 0 Then DdlTipoCuentas.Items.Insert(0, New ListItem("Todas", strGlobal))
+        DdlTipoCuentas.Items.Insert(0, New ListItem("Todas las Cuentas", "-1"))
+        DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
+        DdlTipoCuentas.SelectedValue = "-2"
+
+        DdlCuentas.DataBind()
+
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+        DdlSubproyecto.DataBind()
+    End Sub
+    Private Sub CargaDatos()
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta As New ClsContabilidad
+
+        If Request("TipoReporte") IsNot Nothing Then
+            TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
+        Else
+            TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
+        End If
+        'Dim CveSubProyecto As String
+        If Request("CveSubProyecto") IsNot Nothing Then
+            CveSubProyecto = Request("CveSubProyecto").ToString
+        Else
+            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
+        End If
+
+        If ObjConta.GetAnexoCatalogoMensualHorizontal(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then
+
+            If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
+                DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")
+            Else
+                DtDatos = ObjConta.DtResultados
+            End If
+
+            CargaGrid()
+        Else
+            DtDatos = Nothing
+            Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo.", TipoMensaje.MsgError)
+        End If
+
+        ObjConta.Dispose()
+    End Sub
+    Private Sub CargaGrid()
+        GvDatos.DataSource = DtDatos
+        'GvDatos.Dispose()
+        GvDatos.DataBind()
+        UpDatos.Update()
+        If DtDatos.Rows.Count > 0 Then
+            RegistraScript("Scroll();")
+        End If
+
+    End Sub
+#End Region
+
+    Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DBCampo("CveCuenta").ToEntero = IdCuenta Then
+                e.Row.ControlStyle.Font.Bold = True
+                'e.Row.ControlStyle.Font.Size = 9
+                'e.Row.ControlStyle.Height = 30
+            Else
+                e.Row.ControlStyle.Font.Bold = False
+            End If
+
+            'If e.Row.DBCampo("CtaMayor") = "4" Or e.Row.DBCampo("CtaMayor") = "1" Then
+            '    e.Row.ControlStyle.Font.Bold = True
+            'End If
+
+            'Acomoda Deudor y Acreedor
+            If e.Row.DBCampo("Tipo") <> "D" Then
+                'e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0}{1}", e.Row.DBCampo("SaldoInicial").FormatoNumero, "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
+                e.Row.FCLabel("LbSaldoInicial2").Visible = True
+                e.Row.FCLabel("LbSaldoActual").Visible = True
+            End If
+
+            'Colorea NEGATIVOS
+            If e.Row.DBCampo("SaldoInicial").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbSaldoInicial").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("Cargos").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbCargos").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("Abonos").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbAbonos").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("SaldoActual").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
+            End If
+
+            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
+        End If
+    End Sub
+
+    Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
+        If Not IsNothing(DtDatos) Then
+            ImprimirReporte()
+        End If
+    End Sub
+
+    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+        If Not IsNothing(DtDatos) Then
+            ImprimirReporte("Excel")
+            'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
+            'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
+        End If
+    End Sub
+    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+        'ubicacion del rdlc
+        Dim reportpath As String = "Contabilidad/Reportes/RepAnexoCatalogo.rdlc"
+        'nombre del reporte
+        Dim fileName As String = "AnexoCatalogo"
+        'parametros a enviar al reporte                     
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString))
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("usuarioImprimio", UsuarioActual.Nombre))
+        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
+        params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
+
+        ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
+    End Sub
+    Public Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+
+        If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso DdlCuentas.SelectedValue.ToEntero = -1 Then
+            Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
+        Else
+            FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
+            FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
+            IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, DdlCuentas.SelectedValue.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
+
+            CargaDatos()
+        End If
+        'RegistraScript("Enable();")
+    End Sub
+    Protected Sub DdlTipoCuentas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoCuentas.SelectedIndexChanged
+        If DdlTipoCuentas.SelectedValue.ToEntero = -2 Then
+            DdlCuentas.Enabled = True
+        Else
+            DdlCuentas.Enabled = False
+            DdlCuentas.SelectedValueExist(-1)
+        End If
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+
+    End Sub
+
+End Class

Contabilidad2/RepBalanzaComprobacion.aspx

@@ -23,7 +23,7 @@
             <div class="portlet solid  grey-cascade portlet-filter">
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
-                        <asp:Button ID="BtnConsultar" CssClass="btn btn-default" runat="server" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" />
+                        <asp:Button ID="BtnConsultar" CssClass="btn btn-default" runat="server" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" ValidationGroup="GrpConsulta"  />
                          <a href="javascript:;" class="expand"></a>
                     </div>
                     <div class="titlefiltros  caption">
@@ -36,6 +36,10 @@
                                         <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
                                     <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CVTxtFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CECVTxtFechaDel" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
+
                                 </div>
                             </div>
                             <label class="col-md-1 truncate">Fecha Fin:</label>
@@ -46,17 +50,25 @@
                                         <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
                                     <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CVTxtFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CECVTxtFechaAl" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
+
                                 </div>
                             </div>
-                            <label class="col-md-1 truncate">Cuentas:</label>
+                            <label class="col-md-1 truncate">Cuenta:</label>
                             <div class="col-md-2">
                                 <asp:DropDownList CssClass="form-control input-sm" runat="server" ID="DdlTipoCuentas" Width="150px">
-                                    <asp:ListItem Text="Todas" Value="1" />
+                                    <asp:ListItem Text="Todas" Value="-1" />
                                     <asp:ListItem Text="Con Movimientos" Value="2" />
                                     <asp:ListItem Text="Saldo Actual no igual a cero" Value="3" />
                                     <asp:ListItem Text="Con Movimientos y saldo no igual a cero" Value="4" />
                                     <asp:ListItem Text="Con Movimientos o saldo no igual a cero " Value="5" />
                                 </asp:DropDownList>
+
+                                <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlTipoCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+
                             </div>
                             
                         </div>

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -11,7 +11,9 @@
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     
-
+     <li>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+    </li>
 
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
@@ -27,15 +29,15 @@
                         <div class="row">
                             <ul class="list-inline text-size-12">
 
-                                <label class="col-md-1" style="width: 80px;"  runat="server" id="LiEjercicioLbl"  >Ejercicio: </label>
+                                <label class="col-md-2" style="width: 80px;"  runat="server" id="LiEjercicioLbl"  >Ejercicio Inicio: </label>
                                 <div class="col-md-1 " runat="server" id="LiEjercicioDdl">
-                                      <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
+                                      <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio_SelectedIndexChanged"  >
                                     </asp:DropDownList>
                                 </div>                             
 
-                                <label class="col-md-1" style="width: 80px;"  runat="server" id="LiEjercicioLbl2" visible="false" >Ejercicio Final: </label>
+                                <label class="col-md-2" style="width: 80px;"  runat="server" id="LiEjercicioLbl2" visible="false" > Ejercicio Fin: </label>
                                 <div class="col-md-1 " runat="server" id="LiEjercicioDdl2" visible="false" >
-                                      <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
+                                      <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px"  AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio2_SelectedIndexChanged">
                                     </asp:DropDownList>
                                 </div>                                  
                                 
@@ -92,7 +94,7 @@
                         <td width="100%" padding="0">
                             <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
                                 <ContentTemplate>
-                                    <asp:GridView ID="GvIngresosMes" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvIngresos_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvIngresosMes" runat="server" AutoGenerateColumns="False" DataKeyNames="ImporteActual,ImporteAcumulado" OnRowDataBound="GvIngresos_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
@@ -106,16 +108,16 @@
                                             </asp:TemplateField>
                                             <asp:TemplateField HeaderText="Período Actual">
                                                 <ItemTemplate>
-                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
-                                                    <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                    <%--<asp:HyperLink ID="HyperLink1" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    --%>
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
                                             <asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
                                             <asp:TemplateField HeaderText="Período Acumulado">
                                                 <ItemTemplate>
-                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
-                                                    <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                    <%--<asp:HyperLink ID="HyperLink1" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    --%>
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
@@ -124,7 +126,7 @@
                                     </asp:GridView>
                                     <br />
                                     <br />
-                                    <asp:GridView ID="GvGastosMes" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvGastos_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvGastosMes" runat="server" AutoGenerateColumns="False" DataKeyNames="ImporteActual,ImporteAcumulado" OnRowDataBound="GvGastos_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
@@ -161,7 +163,7 @@
 
                 <asp:UpdatePanel ID="UPPTotal" runat="server">
                     <ContentTemplate>
-                        <table class="table table-striped table-hover Widthall">
+                        <table class="table table-striped table-hover Widthall" runat="server" id="TMesT1">
                             <tr>
                                 <td align="center">
                                     <h4>Resultados del Ejercicio:</h4>
@@ -169,6 +171,7 @@
                                 <td width="30%" align="right">
                                     <asp:Label runat="server" Font-Bold="true" ID="LbTotalActual"></asp:Label>
                                 </td>
+                                <td></td>
                                 <td width="30%" align="right">
                                     <asp:Label runat="server" Font-Bold="true" ID="LbTotalAnterior"></asp:Label>
                                 </td>
@@ -192,11 +195,13 @@
                             <asp:UpdatePanel ID="UpDatosMesH" UpdateMode="Conditional" runat="server">
                                 <ContentTemplate>
 
-                                    <asp:GridView ID="GvIngresosMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvIngresosMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvIngresosMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado" OnRowDataBound="GvIngresosMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
+                                            
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                    <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>--%>
+                                                    <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"   ></asp:HyperLink>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />
                                                 <HeaderTemplate>
@@ -298,12 +303,13 @@
                                     </asp:GridView>
                                     <br />
                                     <br />
-                                    <asp:GridView ID="GvGastosMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvGastosMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvGastosMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado" OnRowDataBound="GvGastosMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
                                             
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                    <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>--%>
+                                                    <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"   ></asp:HyperLink>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />
                                                 <HeaderTemplate>
@@ -405,7 +411,7 @@
                                     </asp:GridView>
                                       <br />
                                     <br />
-                                    <asp:GridView ID="GvTotalesMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvTotalesMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None" >
+                                    <asp:GridView ID="GvTotalesMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado" OnRowDataBound="GvTotalesMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None" >
                                         <Columns>
                                             
                                             <asp:TemplateField>
@@ -492,14 +498,7 @@
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
 
-                                          <%--  <asp:TemplateField HeaderText="Período Actual">
-                                                <ItemTemplate>
-                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
-                                                </ItemTemplate>
-                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
-                                            </asp:TemplateField>--%>
                                         
-                                           <%-- <asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
                                             <asp:TemplateField HeaderText="Acumulado">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -558,13 +557,14 @@
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                    <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px" ></asp:Label>--%>
+                                                    <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"   ></asp:HyperLink>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />
                                                 <HeaderTemplate>
                                                     <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="INGRESOS Y OTROS BENEFICIOS"></asp:Label>
                                                 </HeaderTemplate>
-                                                <HeaderStyle HorizontalAlign="Left" Width="400px" />
+                                                <HeaderStyle HorizontalAlign="Left" Width="238" />
                                             </asp:TemplateField>
 
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
@@ -593,41 +593,7 @@
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
 
-                                          <%--  <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank"  />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank"  />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank"  />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />--%>
                                        
-
-                                            <%--<asp:TemplateField HeaderText="Período Actual">
-                                                <ItemTemplate>
-                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
-                                                </ItemTemplate>
-                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
-                                            </asp:TemplateField>--%>
-
-                                            <%--<asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
                                             <asp:TemplateField HeaderText="Acumulado">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -644,13 +610,14 @@
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                    <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px"></asp:Label>--%>
+                                                    <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"   ></asp:HyperLink>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />
                                                 <HeaderTemplate>
                                                     <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="GASTOS Y OTRAS PÉRDIDAS"></asp:Label>
                                                 </HeaderTemplate>
-                                                <HeaderStyle HorizontalAlign="Left" Width="400px" />
+                                                <HeaderStyle HorizontalAlign="Left" Width="238px" />
                                             </asp:TemplateField>
 
                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
@@ -700,47 +667,47 @@
                                     </asp:GridView>
                                     <br />
                                     <br />
-                                    <asp:GridView ID="GvTotalesAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvTotalesAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvTotalesAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvTotalesAnualH_RowDataBound" ShowHeader="false" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px" ></asp:Label>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />
                                                 <HeaderTemplate>
                                                     <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="GASTOS Y OTRAS PÉRDIDAS"></asp:Label>
                                                 </HeaderTemplate>
-                                                <ItemStyle HorizontalAlign="Left" Width="400px" />
+                                                <ItemStyle HorizontalAlign="Left" Width="238px" />
                                             </asp:TemplateField>
 
                                
 
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
 
                                             <%--  <asp:TemplateField HeaderText="Período Actual">
                                                 <ItemTemplate>
@@ -756,7 +723,7 @@
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="54px" />
                                         </Columns>
 
                                     </asp:GridView>

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -3,7 +3,9 @@ Option Strict On
 
 Imports System.Data
 Imports System.Drawing
+Imports System.IO
 Imports Extensiones
+Imports GemBox.Spreadsheet
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Contabilidad_RepEstadoResultadosHorizontal
@@ -21,6 +23,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             ViewState("DtDatosMes") = value
         End Set
     End Property
+
     Private Property DtIngresosMes As DataTable
         Get
             DtIngresosMes = DirectCast(ViewState("DtIngresosMes"), DataTable)
@@ -292,6 +295,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         If Tab.ActiveTabIndex = 2 Then
 
+            ValidaEjercicios()
+
             LiSubProyectoDdl.Visible = True
             LiSubProyectoLbl.Visible = True
 
@@ -329,6 +334,39 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         UpFiltros.Update()
     End Sub
 
+
+    Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs)
+        ValidaEjercicios()
+    End Sub
+
+    Protected Sub DdlEjercicio2_SelectedIndexChanged(sender As Object, e As EventArgs)
+        ValidaEjercicios()
+    End Sub
+
+    Private Sub ValidaEjercicios()
+
+
+        Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero
+
+
+        If EInicio > DdlEjercicio2.SelectedValue.ToEntero Then
+
+            If DdlEjercicio2.Items.Count > 0 Then
+                DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1
+            End If
+
+            Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero
+
+            If Not EInicio + 1 > Fejerciosio Then
+                DdlEjercicio2.SelectedValueExist(EInicio + 1)
+            End If
+
+        End If
+
+
+        UpFiltros.Update()
+    End Sub
+
     Private Sub CargaEjercicios()
         'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ClsConta As New ClsContabilidad
@@ -366,6 +404,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         'AÑO HORIZONTAL
         If Tab.ActiveTabIndex = 2 Then
+
+            If DdlEjercicio.SelectedValue.ToEntero > DdlEjercicio2.SelectedValue.ToEntero Then
+                Alert("El ejercicio inicio no debe ser mayor al ejercicio fin.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
             CargaDatosAnualH()
         End If
 
@@ -375,6 +418,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         End If
 
 
+
+
     End Sub
 
 
@@ -480,9 +525,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
     Private Sub SumaTotales()
         'Llena Lb´s Totales
-        LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
 
-        LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
+
+        If DdlDivisor.SelectedValue.ToEntero > 1 Then
+            LbTotalActual.Text = TotalActualMes.ToString("###,###,##0")
+            LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0")
+        Else
+            LbTotalActual.Text = TotalActualMes.ToString("###,###,##0.00")
+            LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0.00")
+        End If
+
+
 
         LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
 
@@ -494,7 +547,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 #Region "GV´S ROW DATA BOUND"
 
     Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
         If e.Row.RowType = DataControlRowType.DataRow Then
+
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
                 TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
                 TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
@@ -507,11 +562,21 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
+
                 e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
-            End If
 
 
+                If DdlDivisor.SelectedValue.ToEntero > 1 Then
+                    e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString
+                Else
+                    e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString
+                End If
+
+            End If
+
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
@@ -540,6 +605,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
             End If
 
+            If DdlDivisor.SelectedValue.ToEntero > 1 Then
+                e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString
+            Else
+                e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString
+            End If
+
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
             End If
@@ -580,7 +653,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         If DtDatosMesH IsNot Nothing Then
             CargaGridsMesH()
-            SumaTotalesMesH()
         Else
 
         End If
@@ -616,7 +688,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
             Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
 
-            Row.Item("Nombre") = "TOTAL INGRESOS "
+            Row.Item("Nombre") = "TOTAL INGRESOS"
             Row.Item("ImporteActual") = TotalActual.ToString
             Row.Item("PorcentajeActual") = "100.00"
             Row.Item("ImporteAcumulado") = TotalAnterior.ToString
@@ -714,17 +786,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
     End Sub
 
-    Private Sub SumaTotalesMesH()
-        ''Llena Lb´s Totales
-        ''*********************************************************************************
-        'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
-        'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
-
-        'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
-        'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
-
-
-    End Sub
 
     Protected Sub GvIngresosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
@@ -732,16 +793,18 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
                 TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
                 TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
-                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
-                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
                 e.Row.ControlStyle.Font.Bold = True
             ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
-                'e.Row.CssClass = "SubTotales3"
                 e.Row.ControlStyle.Font.Bold = True
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
 
+
+                'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1"
+
+                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1"
+
                 e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
@@ -759,14 +822,59 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
             End If
 
-            'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL INGRESOS" Then
-            '    e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+
-            'End If
+                If DdlDivisor.SelectedValue.ToEntero > 1 Then
+
+                    e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0")
+                Else
+                    e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00")
+                End If
+
+            End If
+
+
+            e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor)
+            e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor)
+            e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor)
+            e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor)
+            e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor)
+            e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor)
+            e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor)
+            e.Row.FCHyperLink("HLOctubre").ForeColor = If(e.Row.DataKey("Octubre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLOctubre").ForeColor)
+            e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor)
+            e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor)
 
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
-                    e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
+                e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
-                End If
             End If
+
+        End If
+
     End Sub
 
     Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
@@ -786,6 +894,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                 Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
 
+                'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1"
+                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1"
+
                 e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
@@ -803,6 +914,57 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             End If
 
+
+
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL GASTOS" Then
+
+                If DdlDivisor.SelectedValue.ToEntero > 1 Then
+
+                    'Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado
+                    e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0")
+
+                Else
+                    e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00")
+                End If
+            End If
+
+            e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor)
+            e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor)
+            e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor)
+            e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor)
+            e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor)
+            e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor)
+            e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor)
+            e.Row.FCHyperLink("HLOctubre").ForeColor = If(e.Row.DataKey("Octubre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLOctubre").ForeColor)
+            e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor)
+            e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor)
+
+
+
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
             End If
@@ -818,6 +980,52 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             e.Row.Attributes.Add("style", "Font-weight: bold")
+
+
+            If DdlDivisor.SelectedValue.ToEntero > 0 Then
+
+                e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0")
+
+            Else
+                e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00")
+            End If
+
+            e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor)
+            e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor)
+            e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor)
+            e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor)
+            e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor)
+            e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor)
+            e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor)
+            e.Row.FCHyperLink("HLOctubre").ForeColor = If(e.Row.DataKey("Octubre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLOctubre").ForeColor)
+            e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor)
+            e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor)
+
+
         End If
 
     End Sub
@@ -928,6 +1136,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
             Row.Item("PorcentajeAcumulado") = "100.00"
             Row.Item("CtaMayor") = -1
+            Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico")
             DtIngresosAnualH.Rows.Add(Row)
         Else
             Row.Item("Nombre") = "TOTAL INGRESOS "
@@ -989,7 +1198,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             IndexData = 13
             For IndexData = 13 To IndexMax
+
                 Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
+
             Next
 
             Row.Item("Nombre") = "TOTAL GASTOS"
@@ -998,6 +1209,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row.Item("ImporteAcumulado") = TotalAnterior.ToString
             Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero
             Row.Item("CtaMayor") = -1
+            Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico")
             DtGastosAnualH.Rows.Add(Row)
         Else
             Row.Item("Nombre") = "TOTAL GASTOS"
@@ -1018,11 +1230,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Next
 
             Row.Item("Nombre") = "Resultados del Ejercicio"
-            'Row.Item("ImporteActual") = TotalActual.ToString
-            'Row.Item("PorcentajeActual") = "100.00"
             Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)")
-            'Row.Item("PorcentajeAcumulado") = "100.00"
+
-            'Row.Item("CtaMayor") = -1
 
             DTTotalesAnualH.Rows.Add(Row)
 
@@ -1062,19 +1271,38 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
             Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
+
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
 
+                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1"
 
                 Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
                 Dim IndiceInicio As Integer = 1
                 Dim IndiceMax As Integer = 1 + CountDinamico
+
                 For IndiceInicio = 1 To IndiceMax
                     Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
-                    Dim Importe As String = e.Row.Cells(IndiceInicio).Text
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
-                    e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{Importe}</a>"
+                    e.Row.Cells(IndiceInicio).Text = $"<a  { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'")  } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
+                    'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor)
                 Next IndiceInicio
 
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
+
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
+
+                Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
+                Dim IndiceInicio As Integer = 1
+                Dim IndiceMax As Integer = 1 + CountDinamico
+
+                For IndiceInicio = 1 To IndiceMax
+
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+                    e.Row.Cells(IndiceInicio).Text = $"<strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong>"
+
+                Next IndiceInicio
+
+
             End If
 
 
@@ -1102,17 +1330,32 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
 
-
+                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1"
                 Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
                 Dim IndiceInicio As Integer = 1
                 Dim IndiceMax As Integer = 1 + CountDinamico
                 For IndiceInicio = 1 To IndiceMax
                     Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
-                    Dim Importe As String = e.Row.Cells(IndiceInicio).Text
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
-                    e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{Importe}</a>"
+                    e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'")  }  target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00"))}</a>"
+                    'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor)
                 Next IndiceInicio
 
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
+
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
+
+                Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
+                Dim IndiceInicio As Integer = 1
+                Dim IndiceMax As Integer = 1 + CountDinamico
+
+                For IndiceInicio = 1 To IndiceMax
+
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+                    e.Row.Cells(IndiceInicio).Text = $"<strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong>"
+
+                Next IndiceInicio
+
             End If
 
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
@@ -1161,7 +1404,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         If DtDatosSubProyectoH IsNot Nothing And DTSubProyectosCabecerasH IsNot Nothing Then
             CargaGridsSubProyectoH()
-            SumaTotalesSubProyectoH()
         End If
 
     End Sub
@@ -1186,9 +1428,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         If DtIngresosSubProyectoH.Rows.Count > 0 Then
 
-
-
-
             For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns
 
                 If IndexData >= 13 Then
@@ -1237,6 +1476,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
             Row.Item("PorcentajeAcumulado") = "100.00"
             Row.Item("CtaMayor") = -1
+            Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico")
             DtIngresosSubProyectoH.Rows.Add(Row)
         Else
             Row.Item("Nombre") = "TOTAL INGRESOS "
@@ -1297,6 +1537,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row.Item("ImporteAcumulado") = TotalAnterior.ToString
             Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero
             Row.Item("CtaMayor") = -1
+            Row.Item("CountDinamico") = DtGastosSubProyectoH.MAX("CountDinamico")
+
             DtGastosSubProyectoH.Rows.Add(Row)
         Else
             Row.Item("Nombre") = "TOTAL GASTOS"
@@ -1310,19 +1552,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             Row = DTTotalesSubProyectoH.NewRow
 
-
-
             IndexData = 13
             For IndexData = 13 To IndexTotatles
                 Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
             Next
 
-            Row.Item("Nombre") = "Totales:"
+            Row.Item("Nombre") = "Resultado del ejercicio"
-            'Row.Item("ImporteActual") = TotalActual.ToString
-            'Row.Item("PorcentajeActual") = "100.00"
             Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
-            'Row.Item("PorcentajeAcumulado") = "100.00"
             Row.Item("CtaMayor") = -2
+            Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico")
 
             DTTotalesSubProyectoH.Rows.Add(Row)
 
@@ -1335,27 +1573,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH
         GvIngresosSubProyectoH.DataBind()
 
-        'GvGastosSubProyectoH.DataSource = DtGastosSubProyectoH
-        'GvGastosSubProyectoH.DataBind()
 
-        'GvTotalesSubProyectoH.DataSource = DTTotalesSubProyectoH
-        'GvTotalesSubProyectoH.DataBind()
 
         UpDatosSubProyectoH.Update()
 
     End Sub
 
-    Private Sub SumaTotalesSubProyectoH()
+    'Private Sub SumaTotalesSubProyectoH()
-        ''Llena Lb´s Totales
+    '    ''Llena Lb´s Totales
-        ''*********************************************************************************
+    '    ''*********************************************************************************
-        'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
+    '    'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
-        'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
+    '    'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
 
-        'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
+    '    'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
-        'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
+    '    'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
 
 
-    End Sub
+    'End Sub
 
     Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
@@ -1391,17 +1625,47 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 For IndiceInicio = 1 To IndiceMax
 
                     Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField
-                    Dim Importe As String = e.Row.Cells(IndiceInicio).Text
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+
+                    e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'")  }  target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyectoIntermo}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
 
 
-
-                    e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyectoIntermo}' >{Importe}</a>"
                 Next IndiceInicio
 
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={-1}"
 
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
+
+                Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
+                Dim IndiceInicio As Integer = 1
+                Dim IndiceMax As Integer = 1 + CountDinamico
+
+                For IndiceInicio = 1 To IndiceMax
+
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+                    e.Row.Cells(IndiceInicio).Text = $"<div { If(Importe < 0, "style='color:Red;'", "style='color:#000000;'")  }  ><strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong></div>"
+                Next IndiceInicio
+
+
+
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then
+
+                Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
+                Dim IndiceInicio As Integer = 1
+                Dim IndiceMax As Integer = 1 + CountDinamico
+
+                For IndiceInicio = 1 To IndiceMax
+
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+                    e.Row.Cells(IndiceInicio).Text = $"<div { If(Importe < 0, "style='color:Red;'", "style='color:#000000;'")  } ><strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong></div>"
+
+                Next IndiceInicio
+
+
             End If
 
+            e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0.00"))
+
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
             End If
@@ -1414,22 +1678,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
                 TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
                 TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
-                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
-                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
                 e.Row.ControlStyle.Font.Bold = True
             ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
                 'e.Row.CssClass = "SubTotales"
                 e.Row.ControlStyle.Font.Bold = True
             End If
 
-            'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-            '    e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
-            '    e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
-            'End If
 
-            'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
-            '    e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
-            'End If
 
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
@@ -1453,4 +1708,222 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 #End Region
 
 
+
+
+
+#Region "DESCARGA EXCEL"
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+        Imprimir("Excel")
+    End Sub
+
+    Private Sub Imprimir(Optional reporte As String = "PDF")
+
+
+        If Tab.ActiveTabIndex = 0 AndAlso GvIngresosMes.Rows.Count > 0 Then
+            ExportToExcelG(GvIngresosMes, GvGastosMes, TMesT1, "Reporte_Mensual", UsuarioActual, "Mensual")
+        ElseIf Tab.ActiveTabIndex = 1 AndAlso GvIngresosMesH.Rows.Count > 0 Then
+            ExportToExcelG(GvIngresosMesH, GvGastosMesH, TMesT1, "Reporte_Mensual_Horizontal", UsuarioActual, "Mensual Horizontal", Gv3:=GvTotalesMesH)
+        ElseIf Tab.ActiveTabIndex = 2 AndAlso GvIngresosAnualH.Rows.Count > 0 Then
+            ExportToExcelG(GvIngresosAnualH, GvGastosAnualH, TMesT1, "Reporte_Anual_Horizontal", UsuarioActual, "Anual Horizontal", Gv3:=GvTotalesAnualH)
+
+        ElseIf Tab.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then
+            ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, "Proyecto Horizontal", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True)
+        End If
+    End Sub
+
+    'Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100)
+    Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, TablaResultados As HtmlTable, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100, Optional Gv3 As GridView = Nothing, Optional EsPorSubProtyecto As Boolean = False)
+
+        Dim sw1 As New StringWriter()
+        Dim htw1 As New HtmlTextWriter(sw1)
+        Gv1.RenderControl(htw1)
+
+        Dim sw2 As New StringWriter()
+        Dim htw2 As New HtmlTextWriter(sw2)
+        Gv2.RenderControl(htw2)
+
+
+        TablaResultados.Width = Gv2.Width.ToString
+
+        Dim sw3 As New StringWriter()
+        Dim htw3 As New HtmlTextWriter(sw3)
+        TablaResultados.RenderControl(htw3)
+
+        Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
+
+        Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString()))
+        Dim htmlStream2 = New MemoryStream(options.Encoding.GetBytes(sw2.ToString()))
+        Dim htmlStream3 = New MemoryStream(options.Encoding.GetBytes(sw3.ToString()))
+
+        htmlStream1.Position = 0
+        Dim sr1 As New StreamReader(htmlStream1)
+
+        htmlStream2.Position = 0
+        Dim sr2 As New StreamReader(htmlStream2)
+
+        htmlStream3.Position = 0
+        Dim sr3 As New StreamReader(htmlStream3)
+
+
+        Dim myStr1 = sr1.ReadToEnd()
+        Dim myStr2 = sr2.ReadToEnd()
+        Dim myStr3 = sr3.ReadToEnd()
+
+        sr1.Dispose()
+        sr2.Dispose()
+        sr3.Dispose()
+
+        htmlStream1.Dispose()
+        htmlStream2.Dispose()
+        htmlStream3.Dispose()
+
+        sw1.Dispose()
+        sw2.Dispose()
+        sw3.Dispose()
+
+        If Gv3 IsNot Nothing Then
+
+            Gv3.ShowHeader = False
+
+            Dim sw4 As New StringWriter()
+            Dim htw4 As New HtmlTextWriter(sw4)
+            Gv3.RenderControl(htw4)
+            Dim htmlStream4 = New MemoryStream(options.Encoding.GetBytes(sw4.ToString()))
+            htmlStream4.Position = 0
+            Dim sr4 As New StreamReader(htmlStream4)
+            myStr3 = sr4.ReadToEnd()
+
+            sr4.Dispose()
+            htmlStream2.Dispose()
+            sw4.Dispose()
+
+        End If
+
+
+        Dim HtmlCompleto As String = myStr1 & "<br>" & myStr2 & "<br>" & myStr3
+
+
+        HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "")
+
+        Dim asd As String = ""
+
+
+        Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto))
+
+
+
+
+        GemBox.Spreadsheet.SpreadsheetInfo.SetLicense("ESWN-4QFD-26JF-1SZ8")
+
+        Dim excel As GemBox.Spreadsheet.ExcelFile
+        'Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
+
+        'Using htmlStream = New MemoryStream(options.Encoding.GetBytes(sw.ToString()))
+        ' excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream, options)
+
+        excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options)
+
+        If Usuario IsNot Nothing Then
+            Dim TotalRowHeader As Integer = 8
+            Dim TotalRowFooter As Integer = 2
+
+            Dim worksheet = excel.Worksheets(0)
+            worksheet.Rows.InsertEmpty(0, TotalRowHeader)
+            Dim celdasConTexto = worksheet.GetUsedCellRange(True)
+            celdasConTexto.Style.Font.Name = "Calibri Light"
+
+            Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
+            RangoNombreEmpresa.Merged = True
+            RangoNombreEmpresa.Value = Usuario.Empresa.Empresa
+            RangoNombreEmpresa.Style.Font.Size = 18 * 20
+            RangoNombreEmpresa.Style.Font.Name = "Calibri Light"
+            RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+            RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+
+            'Dim RangoFiltros = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex)
+            'RangoFiltros.Merged = True
+            'RangoFiltros.Value = "Filtros"
+            'RangoFiltros.Style.Font.Size = 15 * 20
+            'RangoFiltros.Style.Font.Name = "Calibri Light"
+            'RangoFiltros.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
+            'RangoFiltros.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+
+            Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
+            RangoTitulo.Merged = True
+            RangoTitulo.Value = Titulo
+            RangoTitulo.Style.Font.Size = 20 * 20
+            RangoTitulo.Style.Font.Name = "Calibri Light"
+            RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+            RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+            For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
+                worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20
+                worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+                worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+                worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+                worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
+
+
+
+                If Not EsPorSubProtyecto Then
+                    worksheet.Rows(8 + Gv1.Rows.Count + 2).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+                    worksheet.Rows(8 + Gv1.Rows.Count + 2).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
+                Else
+                    worksheet.Rows(18).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+                    worksheet.Rows(18).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
+                End If
+
+
+
+                If i > 0 Then
+                    Try
+                        worksheet.Columns(i).AutoFit(1)
+                    Catch ex As Exception
+                    End Try
+                End If
+            Next
+
+            Dim IndexEndTable As Integer = Gv1.Rows.Count + Gv2.Rows.Count + 4 + TotalRowHeader + TotalRowFooter
+
+            worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió"
+            worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
+
+            worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
+            worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")
+
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
+
+            If Imagen.Exists Then
+                Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)
+                Using sr As New StreamReader(Ruta)
+                    Dim ms As New MemoryStream()
+                    sr.BaseStream.CopyTo(ms)
+                    worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel)
+                End Using
+            End If
+
+        End If
+
+        'End Using
+        'htw.Dispose()
+
+        excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx")
+
+
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
+#End Region
+
+
+
+
+
 End Class
+

Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx

@@ -35,7 +35,7 @@
             <div class="portlet solid  grey-cascade portlet-filter">
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" CssClass="btn btn-default" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" />
+                        <asp:Button ID="BtnConsultar" runat="server" CssClass="btn btn-default" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" ValidationGroup="GrpConsulta"  />
                          <a href="javascript:;" class="expand"></a>
                     </div>
                     <div class="titlefiltros  caption ">
@@ -50,8 +50,8 @@
                                     <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
 
-                                    <asp:CompareValidator ID="CVFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                    <asp:CompareValidator ID="CVTxtFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2Del" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="CECVTxtFechaDel" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                 </div>
                             </div>
@@ -65,8 +65,8 @@
                                     <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
 
-                                    <asp:CompareValidator ID="CVFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                    <asp:CompareValidator ID="CVTxtFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2Al" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="CECVTxtFechaAl" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                 </div>
                             </div>
@@ -82,6 +82,10 @@
                                 <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="false">
                                     <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
+
+                                <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+
                             </div>
                            
                            

Contratos/PopUpBuscarContrato.aspx

@@ -70,11 +70,11 @@
                                     
                                 </tr>
                                 <tr style="text-align:left">
-                                    <td class="text-right" style="height:25px!important"><b>Proyecto:</b></td>                                      
+                                    <td class="text-right" style="height:25px!important"><asp:Label runat="server" ID="LblProyecto" Text="Proyecto:"/></td>                                      
                                     <td style="height:25px!important">   
                                           <asp:DropDownList  ID="DdlProyecto"  Height="30px"  AutoPostBack="true"  Width="150" DataValueField="CveProyecto" DataTextField="Proyecto" runat="server" CssClass="select2me"></asp:DropDownList>                                                                           
                                     </td>
-                                    <td class="text-right"  style="height:25px!important"><b>SubProyecto:</b></td>
+                                    <td class="text-right"  style="height:25px!important"><asp:Label runat="server" ID="LblSubProyecto" Text="SubProyecto:"/></td>
                                     <td style="height:25px!important">  
                                         <asp:DropDownList  ID="DdlSubProtecto"  Height="30px"    Width="150" DataValueField="CveSubProyecto" DataTextField="SubProyecto"  runat="server" CssClass="select2me"></asp:DropDownList>                                 
                                     </td>

Contratos/PopUpBuscarContrato.aspx.vb

@@ -41,14 +41,15 @@ Partial Class Contratos_PopUpBuscarContrato
 
 
     Private Sub CargaProyecto()
-        If UsuarioActual.Empresa.GralSoloProyecto Then
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProtecto, LblProyecto, LblSubProyecto)
-            CargaSubProyectoContrato(-1)
+        'If UsuarioActual.Empresa.GralSoloProyecto Then
-        Else
+        '    CargaSubProyectoContrato(-1)
-            DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
+        'Else
-            DdlProyecto.DataBind()
+        '    DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
-        End If
+        '    DdlProyecto.DataBind()
-        DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        'End If
-        DdlSubProtecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlSubProtecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
         CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero)

Empresas/119/Formatos/Polizas.rdlc

@@ -1630,7 +1630,7 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>="Página: " &amp; Code.GetGroupPageNumber(ReportItems!NewPage.Value,Globals!PageNumber)</Value>
+                      <Value>="Página: " &amp; Globals!PageNumber</Value>
                       <Style>
                         <FontFamily>Calibri</FontFamily>
                       </Style>

Empresas/72/Formatos/Entradas.rdlc

@@ -6,19 +6,19 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.60907cm</Width>
+              <Width>1.24394cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.06688cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>6.26873cm</Width>
+              <Width>5.79535cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.69187cm</Width>
+              <Width>2.82959cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.8175cm</Width>
+              <Width>2.51831cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.11844cm</Width>
@@ -43,7 +43,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>CANTIDAD</Value>
+                              <Value>CANT</Value>
                               <Style>
                                 <FontFamily>MYRIAd Pro</FontFamily>
                                 <FontSize>8pt</FontSize>
@@ -223,7 +223,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Sección Almacén</Value>
+                              <Value>Sección</Value>
                               <Style>
                                 <FontFamily>MYRIAd Pro</FontFamily>
                                 <FontSize>8pt</FontSize>
@@ -397,7 +397,7 @@
               </TablixCells>
             </TablixRow>
             <TablixRow>
-              <Height>0.36717cm</Height>
+              <Height>0.43773cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -541,14 +541,16 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Value>=Fields!SeccionAlmacen.Value &amp; ".__________"</Value>
                               <Style>
                                 <FontFamily>MYRIAd Pro</FontFamily>
                                 <FontSize>7.5pt</FontSize>
                               </Style>
                             </TextRun>
                           </TextRuns>
-                          <Style />
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
                         </Paragraph>
                       </Paragraphs>
                       <rd:DefaultName>SeccionAlmacen</rd:DefaultName>
@@ -699,8 +701,8 @@
         <DataSetName>DsInventarios</DataSetName>
         <Top>0.17639cm</Top>
         <Left>0.12931cm</Left>
-        <Height>0.96717cm</Height>
+        <Height>1.03773cm</Height>
-        <Width>19.16932cm</Width>
+        <Width>19.16934cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -708,7 +710,7 @@
         </Style>
       </Tablix>
       <Line Name="Line3">
-        <Top>1.21412cm</Top>
+        <Top>1.53162cm</Top>
         <Left>0.17882cm</Left>
         <Height>0cm</Height>
         <Width>19.11979cm</Width>
@@ -740,7 +742,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>ImporteLetra</rd:DefaultName>
-        <Top>0.73158in</Top>
+        <Top>0.98158in</Top>
         <Left>1.49813in</Left>
         <Height>0.18861in</Height>
         <Width>6.09975in</Width>
@@ -853,7 +855,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DsInventarios</DataSetName>
-        <Top>1.31995cm</Top>
+        <Top>1.95495cm</Top>
         <Left>15.70179cm</Left>
         <Height>0.46771cm</Height>
         <Width>3.59684cm</Width>
@@ -1047,11 +1049,14 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox2</rd:DefaultName>
-          <Top>2.3622cm</Top>
+          <Top>2.6797cm</Top>
           <Left>0.18166cm</Left>
-          <Height>2.46091cm</Height>
+          <Height>2.14341cm</Height>
           <Width>10.47411cm</Width>
           <ZIndex>2</ZIndex>
+          <Visibility>
+            <Hidden>=Not Parameters!CveTipoAlmacen.Value="19"</Hidden>
+          </Visibility>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1168,9 +1173,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox50</rd:DefaultName>
           <Top>0.74112cm</Top>
-          <Left>10.83216cm</Left>
+          <Left>3.80525cm</Left>
           <Height>1.86797cm</Height>
-          <Width>8.38745cm</Width>
+          <Width>15.41436cm</Width>
           <ZIndex>3</ZIndex>
           <Style>
             <Border>
@@ -1190,7 +1195,7 @@
       </Style>
     </PageHeader>
     <PageFooter>
-      <Height>3.15049cm</Height>
+      <Height>2.33028cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -1817,6 +1822,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CveTipoAlmacen">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo1">

Empresas/72/Formatos/Traslado.rdlc

@@ -489,7 +489,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Value />
                               <Style>
                                 <FontSize>9pt</FontSize>
                               </Style>

Empresas/Grales/Formatos/AuxiliarProveedor.rdlc

@@ -50,34 +50,34 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.57873cm</Width>
+              <Width>2.19852cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.54731cm</Width>
+              <Width>2.26204cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>0.70704cm</Width>
+              <Width>0.69929cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.66702cm</Width>
+              <Width>1.65927cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.99686cm</Width>
+              <Width>1.98911cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.96369cm</Width>
+              <Width>1.95594cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.75246cm</Width>
+              <Width>1.74471cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>0.85958cm</Width>
+              <Width>0.85183cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.6398cm</Width>
+              <Width>1.63205cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.77947cm</Width>
+              <Width>1.50713cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -822,7 +822,7 @@
             <TablixMember>
               <Group Name="GPO" />
               <TablixHeader>
-                <Size>3.06196cm</Size>
+                <Size>3.05421cm</Size>
                 <CellContents>
                   <Textbox Name="RazonSocial">
                     <CanGrow>true</CanGrow>
@@ -863,7 +863,7 @@
         <Top>0.75875cm</Top>
         <Left>0.06614cm</Left>
         <Height>1.19472cm</Height>
-        <Width>19.55393cm</Width>
+        <Width>19.55408cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -891,8 +891,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>0.07056cm</Top>
+        <Top>0.0635cm</Top>
-        <Left>0.06614cm</Left>
+        <Left>0.01654cm</Left>
         <Height>0.58236cm</Height>
         <Width>19.58715cm</Width>
         <ZIndex>1</ZIndex>
@@ -910,10 +910,10 @@
     <Height>0.87325in</Height>
     <Style />
   </Body>
-  <Width>7.73752in</Width>
+  <Width>7.7245in</Width>
   <Page>
     <PageHeader>
-      <Height>2.22362cm</Height>
+      <Height>2.32973cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <ReportItems>
         <Textbox Name="Textbox1">
@@ -935,9 +935,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox1</rd:DefaultName>
-          <Left>2.43857cm</Left>
           <Height>0.6cm</Height>
-          <Width>14.68354cm</Width>
+          <Width>19.60369cm</Width>
           <Style>
             <Border>
               <Style>None</Style>
@@ -983,9 +982,8 @@
           </Paragraphs>
           <rd:DefaultName>Textbox2</rd:DefaultName>
           <Top>0.63528cm</Top>
-          <Left>2.40329cm</Left>
           <Height>0.52945cm</Height>
-          <Width>14.68354cm</Width>
+          <Width>19.62022cm</Width>
           <ZIndex>1</ZIndex>
           <Style>
             <Border>
@@ -1003,7 +1001,7 @@
           <Sizing>FitProportional</Sizing>
           <Left>0.06614cm</Left>
           <Height>2.22362cm</Height>
-          <Width>2.33715cm</Width>
+          <Width>4.64069cm</Width>
           <ZIndex>2</ZIndex>
           <Style>
             <Border>

General/PopUpPaqueteriasGuias.aspx.cs

@@ -8,6 +8,7 @@ using Extensiones;
 using System.Data;
 using System.Text;
 using Microsoft.Reporting.WebForms;
+using System.Activities.Expressions;
 
 public partial class General_PopUpPaqueteriasGuias : ClsPaginas
 {
@@ -761,7 +762,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
             strBody.Append("<head>");
             strBody.Append("<meta charset='UTF-8'>");
             strBody.Append("</head>");
-            strBody.Append("  <body>");
+            strBody.Append("  <body style='width:800px;'>");
             strBody.Append("<div>");
             strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
             strBody.Append("</div>");
@@ -770,7 +771,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
             strBody.Append("    </p>");
             strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
             strBody.Append("  <div style='width:100%;text-align:center'>");
-            strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
+            strBody.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>");
             strBody.Append(DetalleTable);
             strBody.Append("    </table>");
             strBody.Append("  </div>");
@@ -811,13 +812,23 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
             int CveVendedor = ObjVentas.DtResultados.Rows[0]["CveVendedor"].ToEntero();
             int CveCliente = ObjVentas.DtResultados.Rows[0]["CveCliente"].ToEntero();
             DataRow Vendedor = get_GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveVendedor = {0}",CveVendedor));
-            DataRow Cliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveCliente = {0}",CveCliente));
+            DataRow Cliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente : CveCliente).FiltroPrimero("");
+            string CobranzaCorreo = "";
+            string CorreoEntregaAlmacen = "";
+            string CorreoEntregaCompras = "";
+            string CorreoVendedor = "";
+            string CorreoAdicionalNotificacionesVendedor = "";
 
-            string CobranzaCorreo = Cliente["CobranzaCorreo"].ToString();
+            if (Cliente != null) {
-            string CorreoEntregaAlmacen = Cliente["CorreoEntregaAlmacen"].ToString();
+                CobranzaCorreo=Cliente["CobranzaCorreo"].ToString();
-            string CorreoEntregaCompras = Cliente["CorreoEntregaCompras"].ToString();
+                CorreoEntregaAlmacen=Cliente["CorreoEntregaAlmacen"].ToString();
-            string CorreoVendedor = Vendedor["Correo"].ToString();
+                CorreoEntregaCompras = Cliente["CorreoEntregaCompras"].ToString();
-            string CorreoAdicionalNotificacionesVendedor = Vendedor["CorreoAdicionalNotificaciones"].ToString();
+            }
+            if (Vendedor != null)
+            {
+                CorreoVendedor=Vendedor["Correo"].ToString();
+                CorreoAdicionalNotificacionesVendedor=Vendedor["CorreoAdicionalNotificaciones"].ToString();
+            }           
 
             string CorreosConcat = String.Format("{0};{1};{2};{3};{4}", CobranzaCorreo, CorreoEntregaAlmacen, CorreoEntregaCompras, CorreoVendedor, CorreoAdicionalNotificacionesVendedor);
             return CorreosConcat;

General/RepPaqueteriasGuias.aspx.cs

@@ -1110,7 +1110,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             strBody.Append("<head>");
             strBody.Append("<meta charset='UTF-8'>");
             strBody.Append("</head>");
-            strBody.Append("  <body>");
+            strBody.Append("  <body style='width:800px'>");
             strBody.Append("<div>");
             strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
             strBody.Append("</div>");
@@ -1120,7 +1120,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
             strBody.Append("  <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>Su Pedido:</p>");
             strBody.Append("  <div style='width:100%;text-align:center'>");
-            strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
+            strBody.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>");
             strBody.Append(DetalleTable);
             strBody.Append("    </table>");
             strBody.Append("  </div>");

Global.asax

@@ -18,7 +18,9 @@
             End If
         End Get
     End Property
-
+    Private Sub GuardaLogAsax(str As String)
+        'GuardaLog(str)
+    End Sub
     Sub Application_Start(sender As Object, e As EventArgs)
         Stimulsoft.Base.StiLicense.Key = "6vJhGtLLLz2GNviWmUTrhSqnOItdDwjBylQzQcAOiHmhQEs54hwXWiqhb7jE6yoykR4jHwP3Mz0nuxn0JR9fNMeDKv" + "sS5s+rCYr7Ex4DRTHaUJIUDqrvGmvWyMjzUl9RAEz/XG8RenfJvoEilBZ9Wqq8Uu/n92YhChB4PbAh9FeH3abSU3PF" + "LuVa6GydYWQvZGpHhFs98Idp754TAgWZatzcF3Ksp6q4laYxnyUY0cA0hYejanRBjIT1Nu59xmlOKE7EGIb9wKlLn/" + "XnW8k8PUNuReOk7ATeHO07JSMLikmvIytkWET2bXDmBI43tAX3fLUE+KlOe7FR/hvfQ6oqqtVRlSZ22QBanel09+XE" + "X8aVC8b+WuRv1nInJeQHBD9zF8b67n4ouKRgv2/vSxopOhCZXdaqdyO4ct+FmSC8cAAcMIGeiKnc5ww8Cq44ClTqJl" + "V2qsCjoS4bb8Nzd2Gy+q/TG/D3dAEKSpPGUx2EEksora/kIkNooq6+bgyH7hqCG2bHKaSQwr2g0keNrYIUcTIwROn1" + "cnQDetzsBqX4lvu64VZWq5+cQD+dyPJwOS6M"
 
@@ -37,239 +39,258 @@
 
         '----------------------------------------------------------------------------------------------------------------------   
         'C A R G A  -  R H
+        GuardaLogAsax(String.Format("Globalasax 1:{0}", DateTime.Now))
+        Using ObjRH As New ClsRH
 
-        Dim ObjRH As New ClsRH
+            If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing
-        If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing
+            If ObjRH.GetDepartamentos Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing
-        If ObjRH.GetDepartamentos Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing
+            If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing
-        If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing
+            If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing
-        If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing
+            If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing
-        If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing
+            If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing
-        If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing
+            If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing
-        If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing
+            If ObjRH.GetMotivoBaja() Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing
-        If ObjRH.GetMotivoBaja() Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing
+            If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
-        If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
+            If ObjRH.GetRutas() Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing
-        If ObjRH.GetRutas() Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing
+            If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing
-        If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing
+            If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing
-        If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing
+            If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing
-        If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing
+            If ObjRH.GetAsistenciasInasistencias() Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing
-        If ObjRH.GetAsistenciasInasistencias() Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing
+            If ObjRH.GetMotivoHorasExtras() Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
-        If ObjRH.GetMotivoHorasExtras() Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
+            If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing
-        If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing
+        End Using
-        ObjRH.Dispose()
         '----------------------------------------------------------------------------------------------------------------------        
         'C A R G A  -  O S
+        GuardaLogAsax(String.Format("Globalasax 2:{0}", DateTime.Now))
 
-        Dim ObjOS As New ClsOS
+        Using ObjOS As New ClsOS
-        If ObjOS.GetEstatusOrdenServicio() Then Application("GlobalDTEstatusOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTEstatusOrdenServicios") = Nothing
+            If ObjOS.GetEstatusOrdenServicio() Then Application("GlobalDTEstatusOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTEstatusOrdenServicios") = Nothing
-        If ObjOS.GetTipoOrdenesServicios(-1) Then Application("GlobalDTTipoOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTTipoOrdenServicios") = Nothing
+            If ObjOS.GetTipoOrdenesServicios(-1) Then Application("GlobalDTTipoOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTTipoOrdenServicios") = Nothing
-        ObjOS.Dispose()
+        End Using
         '-------------------------------------------------------------------------------------------------------------------------        
         'A C T I V O S  - F I J O S
+        GuardaLogAsax(String.Format("Globalasax 3:{0}", DateTime.Now))
 
-        Dim ObjActivosFijos As New ClsAF
+        Using ObjActivosFijos As New ClsAF
-        If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing
+            If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing
-        If ObjActivosFijos.GetCaracteristicas(-1) Then Application("GlobalDTAFCaracteristicas") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicas") = Nothing
+            If ObjActivosFijos.GetCaracteristicas(-1) Then Application("GlobalDTAFCaracteristicas") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicas") = Nothing
-        If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing
+            If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing
-        If ObjActivosFijos.GetTiposActivosFijos(-1) Then Application("GlobalDTTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTTipoActivoFijo") = Nothing
+            If ObjActivosFijos.GetTiposActivosFijos(-1) Then Application("GlobalDTTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTTipoActivoFijo") = Nothing
-        If ObjActivosFijos.GetEstatusActivoFijo() Then Application("GlobalDTEstadoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTEstadoActivoFijo") = Nothing
+            If ObjActivosFijos.GetEstatusActivoFijo() Then Application("GlobalDTEstadoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTEstadoActivoFijo") = Nothing
-        If ObjActivosFijos.GetMarcasActivosFijos(-1) Then Application(" GlobalDTMarcaActivoFijo") = ObjActivosFijos.DtResultados Else Application(" GlobalDTMarcaActivoFijo") = Nothing
+            If ObjActivosFijos.GetMarcasActivosFijos(-1) Then Application(" GlobalDTMarcaActivoFijo") = ObjActivosFijos.DtResultados Else Application(" GlobalDTMarcaActivoFijo") = Nothing
-        If ObjActivosFijos.GetModelosActivosFijos(-1, -1) Then Application("GlobalDTModeloActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTModeloActivoFijo") = Nothing
+            If ObjActivosFijos.GetModelosActivosFijos(-1, -1) Then Application("GlobalDTModeloActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTModeloActivoFijo") = Nothing
-        ObjActivosFijos.Dispose()
+        End Using
         '-------------------------------------------------------------------------------------------------------------------------        
         'C A R G A  -  O R D E N E S  -  D E  - C O M P R A S
 
-        Dim ObjOC As New ClsOC
+        GuardaLogAsax(String.Format("Globalasax 4:{0}", DateTime.Now))
-        If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
+        Using ObjOC As New ClsOC
-        'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
+            If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
-        ObjOC.Dispose()
+            'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
+        End Using
 
 
         '-------------------------------------------------------------------------------------------------------------------------        
         'A M O R T I Z A C I O N  -  C O N T A B L E
 
-        Dim ObjAC As New ClsAC
+        GuardaLogAsax(String.Format("Globalasax 5:{0}", DateTime.Now))
-        If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
+        Using ObjAC As New ClsAC
-        If ObjAC.GetClasificacionGeografica() Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
+            If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
-        If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
+            If ObjAC.GetClasificacionGeografica() Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
-        If ObjAC.GetFuenteFinanciamientoCONAC() Then Application("GlobalDTAC_FuentesFinanciamientoCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamientoCONAC") = Nothing
+            If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
-        If ObjAC.GetProgramaCONAC() Then Application("GlobalDTAC_ProgramasCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramasCONAC") = Nothing
+            If ObjAC.GetFuenteFinanciamientoCONAC() Then Application("GlobalDTAC_FuentesFinanciamientoCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamientoCONAC") = Nothing
-        If ObjAC.GetUnidadesAdministrativas() Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
+            If ObjAC.GetProgramaCONAC() Then Application("GlobalDTAC_ProgramasCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramasCONAC") = Nothing
-        If ObjAC.GetClasificacionAdministrativa() Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
+            If ObjAC.GetUnidadesAdministrativas() Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
-        If ObjAC.GetPD_EjeRector() Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing
+            If ObjAC.GetClasificacionAdministrativa() Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
-        If ObjAC.GetPD_Programas() Then Application("GlobalDTAC_PD_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Programas") = Nothing
+            If ObjAC.GetPD_EjeRector() Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing
-        If ObjAC.GetPD_Estrategias() Then Application("GlobalDTAC_PD_Estrategias") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Estrategias") = Nothing
+            If ObjAC.GetPD_Programas() Then Application("GlobalDTAC_PD_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Programas") = Nothing
-        If ObjAC.GetPD_LineasAccion() Then Application("GlobalDTAC_PD_LineasAccion") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_LineasAccion") = Nothing
+            If ObjAC.GetPD_Estrategias() Then Application("GlobalDTAC_PD_Estrategias") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Estrategias") = Nothing
-        If ObjAC.GetPD_Metas() Then Application("GlobalDTAC_PD_Metas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Metas") = Nothing
+            If ObjAC.GetPD_LineasAccion() Then Application("GlobalDTAC_PD_LineasAccion") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_LineasAccion") = Nothing
-        If ObjAC.GetTipoGasto() Then Application("GlobalDTAC_TipoGasto") = ObjAC.DtResultados Else Application("GlobalDTAC_TipoGasto") = Nothing
+            If ObjAC.GetPD_Metas() Then Application("GlobalDTAC_PD_Metas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Metas") = Nothing
-        If ObjAC.GetProgramaOperativo() Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
+            If ObjAC.GetTipoGasto() Then Application("GlobalDTAC_TipoGasto") = ObjAC.DtResultados Else Application("GlobalDTAC_TipoGasto") = Nothing
-        If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
+            If ObjAC.GetProgramaOperativo() Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
-        If ObjAC.GetRubrosIngreso() Then Application("GlobalDTAC_RubrosIngreso") = ObjAC.DtResultados Else Application("GlobalDTAC_RubrosIngreso") = Nothing
+            If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
-        If ObjAC.GetFuentesRecaudacion() Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing
+            If ObjAC.GetRubrosIngreso() Then Application("GlobalDTAC_RubrosIngreso") = ObjAC.DtResultados Else Application("GlobalDTAC_RubrosIngreso") = Nothing
-        If ObjAC.GetMatrizID Then Application("GlobalDTAC_MatrizIngresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizIngresos") = Nothing
+            If ObjAC.GetFuentesRecaudacion() Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing
-        If ObjAC.GetMatrizGD Then Application("GlobalDTAC_MatrizEgresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizEgresos") = Nothing
+            If ObjAC.GetMatrizID Then Application("GlobalDTAC_MatrizIngresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizIngresos") = Nothing
-        ' If ObjAC.GetAreas() Then Application("GlobalDTAC_Areas") = ObjAC.DtResultados Else Application("GlobalDTAC_Areas") = Nothing   
+            If ObjAC.GetMatrizGD Then Application("GlobalDTAC_MatrizEgresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizEgresos") = Nothing
-        'If ObjAC.GetProyectosProceso() Then Application("GlobalDTAC_ProyectosProceso") = ObjAC.DtResultados Else Application("GlobalDTAC_ProyectosProceso") = Nothing        
+            ' If ObjAC.GetAreas() Then Application("GlobalDTAC_Areas") = ObjAC.DtResultados Else Application("GlobalDTAC_Areas") = Nothing   
-        'If ObjAC.GetFuncion() Then Application("GlobalDTAC_Funcion") = ObjAC.DtResultados Else Application("GlobalDTAC_Funcion") = Nothing        
+            'If ObjAC.GetProyectosProceso() Then Application("GlobalDTAC_ProyectosProceso") = ObjAC.DtResultados Else Application("GlobalDTAC_ProyectosProceso") = Nothing        
-        'If ObjAC.GetSubFuncion() Then Application("GlobalDTAC_SubFuncion") = ObjAC.DtResultados Else Application("GlobalDTAC_SubFuncion") = Nothing
+            'If ObjAC.GetFuncion() Then Application("GlobalDTAC_Funcion") = ObjAC.DtResultados Else Application("GlobalDTAC_Funcion") = Nothing        
-        'If ObjAC.GetSubProgramas() Then Application("GlobalDTAC_SubProgramas") = ObjAC.DtResultados Else Application("GlobalDTAC_SubProgramas") = Nothing        
+            'If ObjAC.GetSubFuncion() Then Application("GlobalDTAC_SubFuncion") = ObjAC.DtResultados Else Application("GlobalDTAC_SubFuncion") = Nothing
-        'If ObjAC.GetUbicaciones() Then Application("GlobalDTAC_Ubicaciones") = ObjAC.DtResultados Else Application("GlobalDTAC_Ubicaciones") = Nothing
+            'If ObjAC.GetSubProgramas() Then Application("GlobalDTAC_SubProgramas") = ObjAC.DtResultados Else Application("GlobalDTAC_SubProgramas") = Nothing        
-        ' If ObjAC.GetOG() Then Application("GlobalDTAC_OG") = ObjAC.DtResultados Else Application("GlobalDTAC_OG") = Nothing        
+            'If ObjAC.GetUbicaciones() Then Application("GlobalDTAC_Ubicaciones") = ObjAC.DtResultados Else Application("GlobalDTAC_Ubicaciones") = Nothing
-        ' If ObjAC.GetClasificadorOG() Then Application("GlobalDTAC_ClasificadorOG") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificadorOG") = Nothing        
+            ' If ObjAC.GetOG() Then Application("GlobalDTAC_OG") = ObjAC.DtResultados Else Application("GlobalDTAC_OG") = Nothing        
-        'If ObjAC.GetProgramas() Then Application("GlobalDTAC_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_Programas") = Nothing
+            ' If ObjAC.GetClasificadorOG() Then Application("GlobalDTAC_ClasificadorOG") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificadorOG") = Nothing        
-        ' If ObjAC.GetCuentas() Then Application("GlobalDTAC_Cuentas") = ObjAC.DtResultados Else Application("GlobalDTAC_Cuentas") = Nothing        
+            'If ObjAC.GetProgramas() Then Application("GlobalDTAC_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_Programas") = Nothing
-        ' If ObjAC.GetDependencias() Then Application("GlobalDTAC_Dependencias") = ObjAC.DtResultados Else Application("GlobalDTAC_Dependencias") = Nothing        
+            ' If ObjAC.GetCuentas() Then Application("GlobalDTAC_Cuentas") = ObjAC.DtResultados Else Application("GlobalDTAC_Cuentas") = Nothing        
-        'If ObjAC.GetFinalidad() Then Application("GlobalDTAC_Finalidad") = ObjAC.DtResultados Else Application("GlobalDTAC_Finalidad") = Nothing            
+            ' If ObjAC.GetDependencias() Then Application("GlobalDTAC_Dependencias") = ObjAC.DtResultados Else Application("GlobalDTAC_Dependencias") = Nothing        
-        ObjAC.Dispose()
+            'If ObjAC.GetFinalidad() Then Application("GlobalDTAC_Finalidad") = ObjAC.DtResultados Else Application("GlobalDTAC_Finalidad") = Nothing 
+        End Using
 
 
-        Dim Finan As New ClsFinanzas
+        GuardaLogAsax(String.Format("Globalasax 6:{0}", DateTime.Now))
+        Using Finan As New ClsFinanzas
 
-        If Finan.GetRazonesFinancieras(-1) Then Application("GlobalDTFinan_RazonesFinancieras") = Finan.DtResultados
+            If Finan.GetRazonesFinancieras(-1) Then Application("GlobalDTFinan_RazonesFinancieras") = Finan.DtResultados
 
-        Finan.Dispose()
+        End Using
 
+        GuardaLogAsax(String.Format("Globalasax 7:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'C A R G A - T I P O  G A S T O S
-        Dim ObjCompra As New ClsCompras()
+        Using ObjCompra As New ClsCompras()
-        If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
+            If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
-        ObjCompra.Dispose()
+        End Using
 
+        GuardaLogAsax(String.Format("Globalasax 8:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'C A R G A - N O M        
 
-        Dim ObjNom As New ClsNominas()
+        Using ObjNom As New ClsNominas()
-        If ObjNom.GetConceptos(-1) Then Application("GlobalDTNomConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomConceptos") = Nothing
+            If ObjNom.GetConceptos(-1) Then Application("GlobalDTNomConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomConceptos") = Nothing
-        If ObjNom.GetConceptosFunciones() Then Application("GlobalDTNomConceptosFunciones") = ObjNom.DtResultados Else Application("GlobalDTNomConceptosFunciones") = Nothing
+            If ObjNom.GetConceptosFunciones() Then Application("GlobalDTNomConceptosFunciones") = ObjNom.DtResultados Else Application("GlobalDTNomConceptosFunciones") = Nothing
-        If ObjNom.GetTiposPeriodos() Then Application("GlobalDTTipoPeriodo") = ObjNom.DtResultados Else Application("GlobalDTTipoPeriodo") = Nothing
+            If ObjNom.GetTiposPeriodos() Then Application("GlobalDTTipoPeriodo") = ObjNom.DtResultados Else Application("GlobalDTTipoPeriodo") = Nothing
-        If ObjNom.GetPeriodos(-1, -1, -1, -1, -1) Then Application("GlobalDTNominasPeriodos") = ObjNom.DtResultados Else Application("GlobalDTNominasPeriodos") = Nothing
+            If ObjNom.GetPeriodos(-1, -1, -1, -1, -1) Then Application("GlobalDTNominasPeriodos") = ObjNom.DtResultados Else Application("GlobalDTNominasPeriodos") = Nothing
-        If ObjNom.GetBancos Then Application("GlobalDTNomSatBancos") = ObjNom.DtResultados Else Application("GlobalDTNomSatBancos") = Nothing
+            If ObjNom.GetBancos Then Application("GlobalDTNomSatBancos") = ObjNom.DtResultados Else Application("GlobalDTNomSatBancos") = Nothing
-        If ObjNom.GetConceptos Then Application("GlobalDTNomSatConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomSatConceptos") = Nothing
+            If ObjNom.GetConceptos Then Application("GlobalDTNomSatConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomSatConceptos") = Nothing
-        If ObjNom.GetRegimenContratacion Then Application("GlobalDTNomSatRegimenContratacion") = ObjNom.DtResultados Else Application("GlobalDTNomSatRegimenContratacion") = Nothing
+            If ObjNom.GetRegimenContratacion Then Application("GlobalDTNomSatRegimenContratacion") = ObjNom.DtResultados Else Application("GlobalDTNomSatRegimenContratacion") = Nothing
-        If ObjNom.GetRiesgoPuesto Then Application("GlobalDTNomSatRiesgoPuesto") = ObjNom.DtResultados Else Application("GlobalDTNomSatRiesgoPuesto") = Nothing
+            If ObjNom.GetRiesgoPuesto Then Application("GlobalDTNomSatRiesgoPuesto") = ObjNom.DtResultados Else Application("GlobalDTNomSatRiesgoPuesto") = Nothing
-        If ObjNom.GetTipoIncapacidad Then Application("GlobalDTNomSatTipoIncapacidad") = ObjNom.DtResultados Else Application("GlobalDTNomSatTipoIncapacidad") = Nothing
+            If ObjNom.GetTipoIncapacidad Then Application("GlobalDTNomSatTipoIncapacidad") = ObjNom.DtResultados Else Application("GlobalDTNomSatTipoIncapacidad") = Nothing
-        ObjNom.Dispose()
+        End Using
 
+        GuardaLogAsax(String.Format("Globalasax 9:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------        
         'P R O S P E C T O S
 
-        Dim ObjProspectos As New ClsProspectos
+        GuardaLogAsax(String.Format("Globalasax 10:{0}", DateTime.Now))
-        If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
+        Using ObjProspectos As New ClsProspectos
-        If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing
+            If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
-        If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing
+            If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing
-        If ObjProspectos.GetSupervisores(-1) Then Application("GlobalDTProspectosSupervisores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSupervisores") = Nothing
+            If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing
-        If ObjProspectos.GetProspectosSolicitudes(-1, -1, -1, -1, -1) Then Application("GlobalDTProspectosSolicitudes") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudes") = Nothing
+            If ObjProspectos.GetSupervisores(-1) Then Application("GlobalDTProspectosSupervisores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSupervisores") = Nothing
-        If ObjProspectos.GetSolicitudTipo Then Application("GlobalDTProspectosSolicitudesTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesTipos") = Nothing
+            If ObjProspectos.GetProspectosSolicitudes(-1, -1, -1, -1, -1) Then Application("GlobalDTProspectosSolicitudes") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudes") = Nothing
-        If ObjProspectos.GetApoyoTipo Then Application("GlobalDTProspectosApoyosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyosTipos") = Nothing
+            If ObjProspectos.GetSolicitudTipo Then Application("GlobalDTProspectosSolicitudesTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesTipos") = Nothing
-        If ObjProspectos.GetProspectoApoyo Then Application("GlobalDTProspectosApoyos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyos") = Nothing
+            If ObjProspectos.GetApoyoTipo Then Application("GlobalDTProspectosApoyosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyosTipos") = Nothing
-        If ObjProspectos.GetSolicitudEstatus Then Application("GlobalDTProspectosSolicitudesEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesEstatus") = Nothing
+            If ObjProspectos.GetProspectoApoyo Then Application("GlobalDTProspectosApoyos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyos") = Nothing
-        If ObjProspectos.GetEventosTipo(-1) Then Application("GlobalDTProspectosEventosTipo") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEventosTipo") = Nothing
+            If ObjProspectos.GetSolicitudEstatus Then Application("GlobalDTProspectosSolicitudesEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesEstatus") = Nothing
-        If ObjProspectos.GetProspectosEventos(-1, -1) Then Application("GlobalDTProspectosEvento") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEvento") = Nothing
+            If ObjProspectos.GetEventosTipo(-1) Then Application("GlobalDTProspectosEventosTipo") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEventosTipo") = Nothing
-        If ObjProspectos.GetProspectosTipos() Then Application("GlobalDTProspectosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTipos") = Nothing
+            If ObjProspectos.GetProspectosEventos(-1, -1) Then Application("GlobalDTProspectosEvento") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEvento") = Nothing
-        If ObjProspectos.GetProspectosEstatus() Then Application("GlobalDTProspectosEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEstatus") = Nothing
+            If ObjProspectos.GetProspectosTipos() Then Application("GlobalDTProspectosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTipos") = Nothing
-        If ObjProspectos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTProspectosCaracteristicasClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasClasificaciones") = Nothing
+            If ObjProspectos.GetProspectosEstatus() Then Application("GlobalDTProspectosEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEstatus") = Nothing
-        If ObjProspectos.GetTiposCaracteristicas(-1) Then Application("GlobalDTProspectosTiposCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTiposCaracteristicas") = Nothing
+            If ObjProspectos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTProspectosCaracteristicasClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasClasificaciones") = Nothing
-        If ObjProspectos.GetCaracteristicas(-1) Then Application("GlobalDTProspectosCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicas") = Nothing
+            If ObjProspectos.GetTiposCaracteristicas(-1) Then Application("GlobalDTProspectosTiposCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTiposCaracteristicas") = Nothing
-        If ObjProspectos.GetCaracteristicasOpciones(-1, -1) Then Application("GlobalDTProspectosCaracteristicasOpciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasOpciones") = Nothing
+            If ObjProspectos.GetCaracteristicas(-1) Then Application("GlobalDTProspectosCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicas") = Nothing
-        If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing
+            If ObjProspectos.GetCaracteristicasOpciones(-1, -1) Then Application("GlobalDTProspectosCaracteristicasOpciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasOpciones") = Nothing
-        If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing
+            If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing
-        If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing
+            If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing
-        ObjProspectos.Dispose()
+            If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing
+        End Using
 
+        GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
         'B A N C O S 
 
-        Dim ObjBancos As New ClsBancos
+        GuardaLogAsax(String.Format("Globalasax 12:{0}", DateTime.Now))
-        'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing        
+        Using ObjBancos As New ClsBancos
-        'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
+            'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing        
-        If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
+            'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
-        If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
+            If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
-        If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
+            If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
-        If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
+            If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
-        ObjBancos.Dispose()
+            If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
+        End Using
 
+        GuardaLogAsax(String.Format("Globalasax 13:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
         'I N V E N T A R I O S 
 
-        Dim Objinventarios As New ClsInventarios
+        Using Objinventarios As New ClsInventarios
-        If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
+            If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
-        If Objinventarios.GetSeccionesAlmacenes(-1, -1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing
+            If Objinventarios.GetSeccionesAlmacenes(-1, -1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing
-        If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing
+            If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing
-        If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing
+            If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing
-        Objinventarios.Dispose()
+        End Using
 
+        GuardaLogAsax(String.Format("Globalasax 14:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------               
         'C O N T A B I L I D A D  -   P L A N T I L L A S
 
 
-        Dim ObjContabilidad As New ClsContabilidad
+        Using ObjContabilidad As New ClsContabilidad
-        If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
+            If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
-        If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing
+            If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing
-        If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
+            If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
-        ObjContabilidad.Dispose()
+        End Using
 
+        GuardaLogAsax(String.Format("Globalasax 15:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'G E N E R A L E S 
 
-        Dim ObjGenerales As New ClsGenerales
+        Using ObjGenerales As New ClsGenerales
-        If ObjGenerales.GetGralPaises Then Application("GlobalDTGralPaises") = ObjGenerales.DtResultados Else Application("GlobalDTGralPaises") = Nothing
+            If ObjGenerales.GetGralPaises Then Application("GlobalDTGralPaises") = ObjGenerales.DtResultados Else Application("GlobalDTGralPaises") = Nothing
-        If ObjGenerales.GetGralEstados Then Application("GlobalDTGralEstados") = ObjGenerales.DtResultados Else Application("GlobalDTGralEstados") = Nothing
+            If ObjGenerales.GetGralEstados Then Application("GlobalDTGralEstados") = ObjGenerales.DtResultados Else Application("GlobalDTGralEstados") = Nothing
-        If ObjGenerales.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = ObjGenerales.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
+            If ObjGenerales.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = ObjGenerales.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
-        If ObjGenerales.GetGralPoblaciones Then Application("GlobalDTGralPoblaciones") = ObjGenerales.DtResultados Else Application("GlobalDTGralPoblaciones") = Nothing
+            If ObjGenerales.GetGralPoblaciones Then Application("GlobalDTGralPoblaciones") = ObjGenerales.DtResultados Else Application("GlobalDTGralPoblaciones") = Nothing
-        If ObjGenerales.GetEscolaridades Then Application("GlobalDTGralEscolaridades") = ObjGenerales.DtResultados Else Application("GlobalDTGralEscolaridades") = Nothing
+            If ObjGenerales.GetEscolaridades Then Application("GlobalDTGralEscolaridades") = ObjGenerales.DtResultados Else Application("GlobalDTGralEscolaridades") = Nothing
-        If ObjGenerales.GetCategorias Then Application("GlobalDTGralCategorias") = ObjGenerales.DtResultados Else Application("GlobalDTGralCategorias") = Nothing
+            If ObjGenerales.GetCategorias Then Application("GlobalDTGralCategorias") = ObjGenerales.DtResultados Else Application("GlobalDTGralCategorias") = Nothing
-        If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing
+            If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing
-        If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing
+            If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing
-        If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing
+            If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing
-        If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTObjGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTObjGralColectivas") = Nothing
+            If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTObjGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTObjGralColectivas") = Nothing
-        'If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing
+            'If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing
-        If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing
+            If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing
-        If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
+            If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
 
-        ObjGenerales.Dispose()
+        End Using
 
+        GuardaLogAsax(String.Format("Globalasax 16:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'E V E N T O S
 
-        Dim ObjEventos As New ClsOIEventos
+        Using ObjEventos As New ClsOIEventos
-        If ObjEventos.GetEstatusEventos(-1) Then Application("GlobalDTOIEstatusEventos") = ObjEventos.DtResultados Else Application("GlobalDTOIEstatusEventos") = Nothing
+            If ObjEventos.GetEstatusEventos(-1) Then Application("GlobalDTOIEstatusEventos") = ObjEventos.DtResultados Else Application("GlobalDTOIEstatusEventos") = Nothing
-        If ObjEventos.GetRevisionesEventos(-1) Then Application("GlobalDTOIRevision") = ObjEventos.DtResultados Else Application("GlobalDTOIRevision") = Nothing
+            If ObjEventos.GetRevisionesEventos(-1) Then Application("GlobalDTOIRevision") = ObjEventos.DtResultados Else Application("GlobalDTOIRevision") = Nothing
-        If ObjEventos.GetAgendaTipo() Then Application("GlobalDTOIAgendaTipo") = ObjEventos.DtResultados Else Application("GlobalDTOIAgendaTipo") = Nothing
+            If ObjEventos.GetAgendaTipo() Then Application("GlobalDTOIAgendaTipo") = ObjEventos.DtResultados Else Application("GlobalDTOIAgendaTipo") = Nothing
-        If ObjEventos.GetEventoTarea(-1, -1) Then Application("GlobalDTOIEventoTarea") = ObjEventos.DtResultados Else Application("GlobalDTOIEventoTarea") = Nothing
+            If ObjEventos.GetEventoTarea(-1, -1) Then Application("GlobalDTOIEventoTarea") = ObjEventos.DtResultados Else Application("GlobalDTOIEventoTarea") = Nothing
-        ObjEventos.Dispose()
+        End Using
 
+        GuardaLogAsax(String.Format("Globalasax 17:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'V E N T A S 
 
-        Dim ObjVentas As New ClsVentas
+        Using ObjVentas As New ClsVentas
-        If ObjVentas.GetMesas Then Application("GlobalDTMesas") = ObjVentas.DtResultados Else Application("GlobalDTMesas") = Nothing
+            If ObjVentas.GetMesas Then Application("GlobalDTMesas") = ObjVentas.DtResultados Else Application("GlobalDTMesas") = Nothing
-        If ObjVentas.GetPrecioListas Then Application("GlobalDTPrecioListas") = ObjVentas.DtResultados Else Application("GlobalDTPrecioListas") = Nothing
+            If ObjVentas.GetPrecioListas Then Application("GlobalDTPrecioListas") = ObjVentas.DtResultados Else Application("GlobalDTPrecioListas") = Nothing
-        If ObjVentas.GetCondicionesEntrega(-1) Then Application("GlobalDTVtaCondicionesEntrega") = ObjVentas.DtResultados Else Application("GlobalDTVtaCondicionesEntrega") = Nothing
+            If ObjVentas.GetCondicionesEntrega(-1) Then Application("GlobalDTVtaCondicionesEntrega") = ObjVentas.DtResultados Else Application("GlobalDTVtaCondicionesEntrega") = Nothing
-        If ObjVentas.GetFormaPago() Then Application("GlobalDTVtaFormaPago") = ObjVentas.DtResultados Else Application("GlobalDTVtaFormaPago") = Nothing
+            If ObjVentas.GetFormaPago() Then Application("GlobalDTVtaFormaPago") = ObjVentas.DtResultados Else Application("GlobalDTVtaFormaPago") = Nothing
-        If ObjVentas.GetMetodoPago() Then Application("GlobalDTVtaMetodoPago") = ObjVentas.DtResultados Else Application("GlobalDTVtaMetodoPago") = Nothing
+            If ObjVentas.GetMetodoPago() Then Application("GlobalDTVtaMetodoPago") = ObjVentas.DtResultados Else Application("GlobalDTVtaMetodoPago") = Nothing
-        If ObjVentas.GetTiposDocumentos() Then Application("GlobalDTTiposDocumentos") = ObjVentas.DtResultados Else Application("GlobalDTTiposDocumentos") = Nothing
+            If ObjVentas.GetTiposDocumentos() Then Application("GlobalDTTiposDocumentos") = ObjVentas.DtResultados Else Application("GlobalDTTiposDocumentos") = Nothing
-        If ObjVentas.GetTiposRelacion() Then Application("GlobalDTVtaTiposRelacion") = ObjVentas.DtResultados Else Application("GlobalDTVtaTiposRelacion") = Nothing
+            If ObjVentas.GetTiposRelacion() Then Application("GlobalDTVtaTiposRelacion") = ObjVentas.DtResultados Else Application("GlobalDTVtaTiposRelacion") = Nothing
-        If ObjVentas.GetCobranzaEstatus(-1, -1) Then Application("GlobalDTVtaCobranzaEstatus") = ObjVentas.DtResultados Else Application("GlobalDTVtaCobranzaEstatus") = Nothing
+            If ObjVentas.GetCobranzaEstatus(-1, -1) Then Application("GlobalDTVtaCobranzaEstatus") = ObjVentas.DtResultados Else Application("GlobalDTVtaCobranzaEstatus") = Nothing
 
-        ObjVentas.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 18:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'SAT
-        Dim ObjGrales As New ClsGenerales
+        Using ObjGrales As New ClsGenerales
-        If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
+            'If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
-        If ObjGrales.GetSATUnidadMedida Then Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATUM") = Nothing
+            'If ObjGrales.GetSATUnidadMedida Then Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATUM") = Nothing
-        If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados Else Application("GlobalDTSATUsosCFDI") = Nothing
+            If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados Else Application("GlobalDTSATUsosCFDI") = Nothing
-        If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTFraccionArancelaria") = Nothing
+            If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTFraccionArancelaria") = Nothing
-        If ObjGrales.GetSATIncoterm Then Application("GlobalDTIncoterm") = ObjGrales.DtResultados Else Application("GlobalDTIncoterm") = Nothing
+            If ObjGrales.GetSATIncoterm Then Application("GlobalDTIncoterm") = ObjGrales.DtResultados Else Application("GlobalDTIncoterm") = Nothing
-        If ObjGrales.GetSATTipoOperacion Then Application("GlobalDTTipoOperacion") = ObjGrales.DtResultados Else Application("GlobalDTTipoOperacion") = Nothing
+            If ObjGrales.GetSATTipoOperacion Then Application("GlobalDTTipoOperacion") = ObjGrales.DtResultados Else Application("GlobalDTTipoOperacion") = Nothing
-        If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados Else Application("GlobalDTSATMotivoTraslado") = Nothing
+            If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados Else Application("GlobalDTSATMotivoTraslado") = Nothing
-        If ObjGrales.GetSATUnidadesAduana Then Application("GlobalDTUnidadAduana") = ObjGrales.DtResultados Else Application("GlobalDTUnidadAduana") = Nothing
+            If ObjGrales.GetSATUnidadesAduana Then Application("GlobalDTUnidadAduana") = ObjGrales.DtResultados Else Application("GlobalDTUnidadAduana") = Nothing
-        If ObjGrales.GetSATClavePedimento Then Application("GlobalDTClavePedimento") = ObjGrales.DtResultados Else Application("GlobalDTClavePedimento") = Nothing
+            If ObjGrales.GetSATClavePedimento Then Application("GlobalDTClavePedimento") = ObjGrales.DtResultados Else Application("GlobalDTClavePedimento") = Nothing
-        If ObjGrales.GetSATPais Then Application("GlobalDTPais") = ObjGrales.DtResultados Else Application("GlobalDTPais") = Nothing
+            If ObjGrales.GetSATPais Then Application("GlobalDTPais") = ObjGrales.DtResultados Else Application("GlobalDTPais") = Nothing
-        If ObjGrales.GetSATEstado("-1") Then Application("GlobalDTEstado") = ObjGrales.DtResultados Else Application("GlobalDTEstado") = Nothing
+            'If ObjGrales.GetSATEstado("-1") Then Application("GlobalDTEstado") = ObjGrales.DtResultados Else Application("GlobalDTEstado") = Nothing
-        If ObjGrales.GetSATMunicipio("-1") Then Application("GlobalDTMunicipio") = ObjGrales.DtResultados Else Application("GlobalDTMunicipio") = Nothing
+            'If ObjGrales.GetSATMunicipio("-1") Then Application("GlobalDTMunicipio") = ObjGrales.DtResultados Else Application("GlobalDTMunicipio") = Nothing
-        If ObjGrales.GetSATColonia("-1") Then Application("GlobalDTColonia") = ObjGrales.DtResultados Else Application("GlobalDTColonia") = Nothing
+            'If ObjGrales.GetSATColonia("-1") Then Application("GlobalDTColonia") = ObjGrales.DtResultados Else Application("GlobalDTColonia") = Nothing
-        ObjGrales.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 19:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         ''MF
@@ -285,40 +306,43 @@
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'C L A S I F I C A C I O N E S
 
-        Dim ObjClasificaciones As New ClsClasificaciones()
+        Using ObjClasificaciones As New ClsClasificaciones()
-        If ObjClasificaciones.GetClasificaciones() Then
+            If ObjClasificaciones.GetClasificaciones() Then
-            Application("GlobalDTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo is null OR Codigo = '' ")
+                Application("GlobalDTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo is null OR Codigo = '' ")
-            Application("GlobalDTACClasificadorObjetoGasto") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
+                Application("GlobalDTACClasificadorObjetoGasto") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
-        Else
+            Else
-            Application("GlobalDTClasificaciones") = Nothing
+                Application("GlobalDTClasificaciones") = Nothing
-            Application("GlobalDTACClasificadorObjetoGasto") = Nothing
+                Application("GlobalDTACClasificadorObjetoGasto") = Nothing
-        End If
+            End If
 
-        If ObjClasificaciones.GetDTClasificacionesSubProyectos() Then
+            If ObjClasificaciones.GetDTClasificacionesSubProyectos() Then
-            Application("GlobalDTClasificacionesSubProyecto") = ObjClasificaciones.DtResultados
+                Application("GlobalDTClasificacionesSubProyecto") = ObjClasificaciones.DtResultados
-        Else
+            Else
-            Application("GlobalDTClasificacionesSubProyecto") = Nothing
+                Application("GlobalDTClasificacionesSubProyecto") = Nothing
-        End If
+            End If
 
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'F A M I L I A S 
+            'F A M I L I A S 
-        If ObjClasificaciones.GetClasificaciones(Tipo:=2) Then Application("GlobalDTSubFamilias") = ObjClasificaciones.DtResultados Else Application("GlobalDTSubFamilias") = Nothing
+            If ObjClasificaciones.GetClasificaciones(Tipo:=2) Then Application("GlobalDTSubFamilias") = ObjClasificaciones.DtResultados Else Application("GlobalDTSubFamilias") = Nothing
 
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'P R E S U P U E S T O
+            'P R E S U P U E S T O
-        If ObjClasificaciones.GetClasificaciones(Tipo:=3) Then Application("GlobalDTClasificacionesPresupuestos") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificacionesPresupuestos") = Nothing
+            If ObjClasificaciones.GetClasificaciones(Tipo:=3) Then Application("GlobalDTClasificacionesPresupuestos") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificacionesPresupuestos") = Nothing
 
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'C L A S I F I C A C I O N E S 2
+            'C L A S I F I C A C I O N E S 2
-        If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing
+            If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing
-        ObjClasificaciones.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now))
 
 
-        Dim ObjVenta As New ClsVentas
+        Using ObjVenta As New ClsVentas
-        If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
+            If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
-            Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
+                Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
-        End If
+            End If
-        ObjVenta.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now))
+
 
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -339,61 +363,71 @@
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'M E T O D O S  -  D E  -  P A G O
 
-        Dim ObjMetodoPago As New ClsMetodosPagos()
+        Using ObjMetodoPago As New ClsMetodosPagos()
-        If ObjMetodoPago.GetMetodosPago() Then Application("GlobalDTMetodosPago") = ObjMetodoPago.DtResultados Else Application("GlobalDTMetodosPago") = Nothing
+            If ObjMetodoPago.GetMetodosPago() Then Application("GlobalDTMetodosPago") = ObjMetodoPago.DtResultados Else Application("GlobalDTMetodosPago") = Nothing
-        ObjMetodoPago.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now))
+
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'M O N E D A S
 
-        Dim ObjMonedas As New ClsMonedas()
+        Using ObjMonedas As New ClsMonedas()
-        If ObjMonedas.GetMonedas() Then Application("GlobalDTMonedas") = ObjMonedas.DtResultados Else Application("GlobalDTMonedas") = Nothing
+            If ObjMonedas.GetMonedas() Then Application("GlobalDTMonedas") = ObjMonedas.DtResultados Else Application("GlobalDTMonedas") = Nothing
-        If ObjMonedas.GetMonedasAlias() Then Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados Else Application("GlobalDTMonedasAlias") = Nothing
+            If ObjMonedas.GetMonedasAlias() Then Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados Else Application("GlobalDTMonedasAlias") = Nothing
-        ObjMonedas.Dispose()
+
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 22:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'L E Y E N D A S  -  F I S C A L E S
 
-        Dim ObjLeyendasFiscales As New ClsLeyendasFiscales()
+        Using ObjLeyendasFiscales As New ClsLeyendasFiscales()
-        If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing
+            If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing
-        ObjLeyendasFiscales.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 23:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'F A C T U R A S
 
-        Dim ObjEstatusFactura As New ClsEstatusFactura()
+        Using ObjEstatusFactura As New ClsEstatusFactura()
-        If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing
+            If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing
-        ObjEstatusFactura.Dispose()
+
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 24:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'P R O Y E C T O S
 
-        Dim ObjProyectos As New ClsProyectos
+        Using ObjProyectos As New ClsProyectos
-        If ObjProyectos.GetProyectos Then Application("GlobalDTProyectos") = ObjProyectos.DtResultados Else Application("GlobalDTProyectos") = Nothing
+            If ObjProyectos.GetProyectos Then Application("GlobalDTProyectos") = ObjProyectos.DtResultados Else Application("GlobalDTProyectos") = Nothing
-        ObjProyectos.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 25:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'S U B P R O Y E C T O S
 
-        Dim ObjSubProyectos As New ClsSubProyectos
+        Using ObjSubProyectos As New ClsSubProyectos
-        'If ObjSubProyectos.GetSubProyectos Then Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados Else Application("GlobalDTSubProyectos") = Nothing
+            'If ObjSubProyectos.GetSubProyectos Then Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados Else Application("GlobalDTSubProyectos") = Nothing
-        If ObjSubProyectos.GetSubProyectosUsuarios Then
+            If ObjSubProyectos.GetSubProyectosUsuarios Then
-            Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
+                Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
-            Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados
+                Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados
-        Else
+            Else
-            Application("GlobalDTProyectosUsuarios") = Nothing
+                Application("GlobalDTProyectosUsuarios") = Nothing
-            Application("GlobalDTSubProyectosUsuarios") = Nothing
+                Application("GlobalDTSubProyectosUsuarios") = Nothing
-        End If
+            End If
-        'Else Application("GlobalDTProyectosUsuarios") = Nothing
+            'Else Application("GlobalDTProyectosUsuarios") = Nothing
-        ObjSubProyectos.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 26:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'T I P O S  - D E  -  E V E N T O S 
-        Dim ObjTiposEventos As New ClsTiposEventos
+        Using ObjTiposEventos As New ClsTiposEventos
-        If ObjTiposEventos.GetTiposEventos() Then Application("GlobalDTTiposEventos") = ObjTiposEventos.DtResultados Else Application("GlobalDTTiposEventos") = Nothing
+            If ObjTiposEventos.GetTiposEventos() Then Application("GlobalDTTiposEventos") = ObjTiposEventos.DtResultados Else Application("GlobalDTTiposEventos") = Nothing
-        ObjTiposEventos.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 27:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'P R O D U C T O S  Y  S E R V I C I O S  - C A R A C T E R I S  T I C A S
@@ -408,14 +442,16 @@
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------        
         'P R O D U C T O S  S E R V I C I O S
 
-        Dim ObjPS As New ClsProductosServicios
+        Using ObjPS As New ClsProductosServicios
-        'If ObjPS.GetPSAlias(-1, -1) Then Application("GlobalDTProductosServiciosAlias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosAlias") = Nothing
+            'If ObjPS.GetPSAlias(-1, -1) Then Application("GlobalDTProductosServiciosAlias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosAlias") = Nothing
-        'If ObjPS.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing
+            'If ObjPS.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing
-        'If ObjPS.GetPS(-1, -1, -1) Then Application("GlobalDTProductosServicios") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTProductosServicios") = Nothing
+            'If ObjPS.GetPS(-1, -1, -1) Then Application("GlobalDTProductosServicios") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTProductosServicios") = Nothing
-        If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing
+            If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing
-        'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
+            'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
-        'If ObjPS.GetPSAdicionales(-1, -1) Then Application("GlobalDTPSAdicionales") = ObjPS.DtResultados Else Application("GlobalDTPSAdicionales") = Nothing
+            'If ObjPS.GetPSAdicionales(-1, -1) Then Application("GlobalDTPSAdicionales") = ObjPS.DtResultados Else Application("GlobalDTPSAdicionales") = Nothing
-        ObjPS.Dispose()
+        End Using
+
+        GuardaLogAsax(String.Format("Globalasax 28:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'P R O V E E D O R E S
@@ -428,10 +464,12 @@
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'P R O V E E D O R E S   C U E N T A S
-        Dim ObjProveedoresBancos As New ClsGenerales
+        Using ObjProveedoresBancos As New ClsGenerales
-        If ObjProveedoresBancos.GetCuentasDepositos() Then Application("GlobalDTProveedoresCuentas") = ObjProveedoresBancos.DtResultados Else Application("GlobalDTProveedoresCuentas") = Nothing
+            If ObjProveedoresBancos.GetCuentasDepositos() Then Application("GlobalDTProveedoresCuentas") = ObjProveedoresBancos.DtResultados Else Application("GlobalDTProveedoresCuentas") = Nothing
-        ObjProveedoresBancos.Dispose()
+        End Using
 
+
+        GuardaLogAsax(String.Format("Globalasax 29:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'C L I E N T E S
 
@@ -442,119 +480,138 @@
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'C O N T R A T O S
 
-        Dim ObjContratos As New ClsContratos
+        Using ObjContratos As New ClsContratos
-        If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
+            If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
-        If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
+            If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
-        'If ObjContratos.GetContratosTipos(-1) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
+            'If ObjContratos.GetContratosTipos(-1) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
-        ObjContratos.Dispose()
+        End Using
+
+        GuardaLogAsax(String.Format("Globalasax 30:{0}", DateTime.Now))
 
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'V E N D E D O R E S
 
-        Dim ObjVendedores As New ClsVtaVendedores
+        Using ObjVendedores As New ClsVtaVendedores
-        If ObjVendedores.GetVendedores(-1) Then Application("GlobalDTVendedores") = ObjVendedores.DtResultados Else Application("GlobalDTVendedores") = Nothing
+            If ObjVendedores.GetVendedores(-1) Then Application("GlobalDTVendedores") = ObjVendedores.DtResultados Else Application("GlobalDTVendedores") = Nothing
-        ObjVendedores.Dispose()
+        End Using
+
+        GuardaLogAsax(String.Format("Globalasax 31:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'C O R P O R A T I V O
 
-        Dim ObjCorporativo As New ClsClientes
+        Using ObjCorporativo As New ClsClientes
-        If ObjCorporativo.GetCorporativo(-1, -1) Then Application("GlobalDTClientesCorporativo") = ObjCorporativo.DtResultados Else Application("GlobalDTClientesCorporativo") = Nothing
+            If ObjCorporativo.GetCorporativo(-1, -1) Then Application("GlobalDTClientesCorporativo") = ObjCorporativo.DtResultados Else Application("GlobalDTClientesCorporativo") = Nothing
-        ObjCorporativo.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 32:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'E S T A T U S  -  F A C T U R A
 
-        Dim ObjEstatusFacturaCompra As New ClsCompEstatusFactura
+        Using ObjEstatusFacturaCompra As New ClsCompEstatusFactura
-        If ObjEstatusFacturaCompra.GetEstatusFactura Then Application("GlobalDTCompEstatusFactura") = ObjEstatusFacturaCompra.DtResultados Else Application("GlobalDTCompEstatusFactura") = Nothing
+            If ObjEstatusFacturaCompra.GetEstatusFactura Then Application("GlobalDTCompEstatusFactura") = ObjEstatusFacturaCompra.DtResultados Else Application("GlobalDTCompEstatusFactura") = Nothing
-        ObjEstatusFacturaCompra.Dispose()
+        End Using
+
+        GuardaLogAsax(String.Format("Globalasax 33:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'A C U M U L A D O R E S
 
-        Dim ObjAcumuladores As New ClsAcumuladores()
+        Using ObjAcumuladores As New ClsAcumuladores()
-        If ObjAcumuladores.TamañoGet(-1, -1) Then Application("GlobalDTAcumTamaños") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTamaños") = Nothing
+            If ObjAcumuladores.TamañoGet(-1, -1) Then Application("GlobalDTAcumTamaños") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTamaños") = Nothing
-        If ObjAcumuladores.TiposDefectoGet(-1, -1) Then Application("GlobalDTAcumTiposDefecto") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposDefecto") = Nothing
+            If ObjAcumuladores.TiposDefectoGet(-1, -1) Then Application("GlobalDTAcumTiposDefecto") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposDefecto") = Nothing
-        If ObjAcumuladores.TiposUsoGet(-1, -1) Then Application("GlobalDTAcumTiposUso") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposUso") = Nothing
+            If ObjAcumuladores.TiposUsoGet(-1, -1) Then Application("GlobalDTAcumTiposUso") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposUso") = Nothing
-        'If ObjAcumuladores.GarantiasMesesGet(-1, -1) Then Application("GlobalDTAcumGarantiasMesesTipoUso") = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"}) Else Application("GlobalDTAcumGarantiasMesesTipoUso") = Nothing
+            'If ObjAcumuladores.GarantiasMesesGet(-1, -1) Then Application("GlobalDTAcumGarantiasMesesTipoUso") = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"}) Else Application("GlobalDTAcumGarantiasMesesTipoUso") = Nothing
-        ObjAcumuladores.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 34:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------       
         '------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'P A R A M E T R O S 
 
-        Dim ObjParametros As New ClsSisParametros
+        Using ObjParametros As New ClsSisParametros
-        If ObjParametros.GetParametros Then Application("GlobalDTParametros") = ObjParametros.DtResultados Else Application("GlobalDTParametros") = Nothing
+            If ObjParametros.GetParametros Then Application("GlobalDTParametros") = ObjParametros.DtResultados Else Application("GlobalDTParametros") = Nothing
-        ObjParametros.Dispose()
+        End Using
+
+        GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 
         'U S U A R I O S
 
-        Dim ObjUsuarios As New ClsSisUsuarios
+        Using ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+            If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+                Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
-            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
+                Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
-        Else
+            Else
-            Application("GlobalDTUsuarios") = Nothing
+                Application("GlobalDTUsuarios") = Nothing
-        End If
+            End If
-        'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
+            'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
-        ObjUsuarios.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 36:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'R O L E S
 
-        Dim ObjRoles As New ClsSisRoles
+        Using ObjRoles As New ClsSisRoles
-        If ObjRoles.GetRoles(-1, -1) Then Application("GlobalDTRoles") = ObjRoles.DtResultados Else Application("GlobalDTRoles") = Nothing
+            If ObjRoles.GetRoles(-1, -1) Then Application("GlobalDTRoles") = ObjRoles.DtResultados Else Application("GlobalDTRoles") = Nothing
-        ObjRoles.Dispose()
+        End Using
+
+        GuardaLogAsax(String.Format("Globalasax 37:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'M O D U L O S
 
-        Dim ObjModulos As New ClsModulos
+        Using ObjModulos As New ClsModulos
-        If ObjModulos.GetModulos(-1, -1, "-1", "-1") Then Application("GlobalDTModulos") = ObjModulos.DtResultados Else Application("GlobalDTModulos") = Nothing
+            If ObjModulos.GetModulos(-1, -1, "-1", "-1") Then Application("GlobalDTModulos") = ObjModulos.DtResultados Else Application("GlobalDTModulos") = Nothing
-        ObjModulos.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 38:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'C O M B U S T I B L E S
 
-        Dim ObjFlotillas As New ClsFlotillas
+        Using ObjFlotillas As New ClsFlotillas
-        If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
+            If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
-        If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing
+            If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing
-        ObjFlotillas.Dispose()
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now))
 
         '----------------------------------------------------------------------------------7--------------------------------------------------------------------------------------------
         'E M P R E S A S
 
-        Dim ObjEmpresas As New ClsSisEmpresas()
+        Using ObjEmpresas As New ClsSisEmpresas()
-        If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
+            If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
-            Application("GlobalDTEmpresas") = ObjEmpresas.DtResultados
+                Application("GlobalDTEmpresas") = ObjEmpresas.DtResultados
-            'verifico si existe la carpeta de la empresa, sino la crea
+                'verifico si existe la carpeta de la empresa, sino la crea
-            For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
+                For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
-                Dim Ruta As String = String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa"))
+                    Dim Ruta As String = String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa"))
-                If Not IO.Directory.Exists(Ruta) Then IO.Directory.CreateDirectory(Ruta)
+                    If Not IO.Directory.Exists(Ruta) Then IO.Directory.CreateDirectory(Ruta)
-                If Not System.IO.Directory.Exists(String.Format("{0}\XML\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\XML\", Ruta))
+                    If Not System.IO.Directory.Exists(String.Format("{0}\XML\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\XML\", Ruta))
-                If Not System.IO.Directory.Exists(String.Format("{0}\PDF\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\PDF\", Ruta))
+                    If Not System.IO.Directory.Exists(String.Format("{0}\PDF\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\PDF\", Ruta))
+
+                Next
+            Else
+                Application("GlobalDTEmpresas") = Nothing
+            End If
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 40:{0}", DateTime.Now))
 
-            Next
-        Else
-            Application("GlobalDTEmpresas") = Nothing
-        End If
-        ObjEmpresas.Dispose()
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'G L O B A L E S   A P L I C A C I Ó N
 
 
-        Dim ObjGral As New ClsGenerales
+        Using ObjGral As New ClsGenerales
-        If ObjGral.GetTipoCambio(-1, Now) Then
+            If ObjGral.GetTipoCambio(-1, Now) Then
-            If ObjGral.DtResultados.Rows.Count > 0 Then
+                If ObjGral.DtResultados.Rows.Count > 0 Then
-                Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString.ToDouble
+                    Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString.ToDouble
+                End If
             End If
-        End If
+        End Using
-        ObjGral.Dispose()
+        GuardaLogAsax(String.Format("Globalasax 41:{0}", DateTime.Now))
+
 
         BundleConfig.RegistrarBundles(BundleTable.Bundles)
         BundleTable.EnableOptimizations = True
@@ -567,7 +624,7 @@
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'I M P U E S T O S   L O  C A L E S 
 
-        'Dim ObjPSImpuestos As New ClsProductosServicios
+        'Using  ObjPSImpuestos As New ClsProductosServicios
         'If ObjPSImpuestos.GetPSImpuestosLocales(-1, -1) Then
         '    If ObjPSImpuestos.DtResultados.Rows.Count > 0 Then
         '        Application("GlobalDTImpuestosLocales") = ObjPSImpuestos.DtResultados
@@ -575,29 +632,31 @@
         '        Application("GlobalDTImpuestosLocales") = Nothing
         '    End If
         'End If
-        'ObjPSImpuestos.Dispose()
+        'End Using
+
 
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         ' R A S T R E O 
-        Dim ObjGPS As New ClsGPS
+        Using ObjGPS As New ClsGPS
-        If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then
+            If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then
-            If ObjGPS.DtResultados.Rows.Count > 0 Then
+                If ObjGPS.DtResultados.Rows.Count > 0 Then
-                Application("GlobalDTDispositivos") = ObjGPS.DtResultados
+                    Application("GlobalDTDispositivos") = ObjGPS.DtResultados
-            Else
+                Else
-                Application("GlobalDTDispositivos") = Nothing
+                    Application("GlobalDTDispositivos") = Nothing
+                End If
             End If
-        End If
 
-        If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then
+            If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then
-            If ObjGPS.DtResultados.Rows.Count > 0 Then
+                If ObjGPS.DtResultados.Rows.Count > 0 Then
-                Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados
+                    Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados
-            Else
+                Else
-                Application("GlobalDTDispositivosUsuarios") = Nothing
+                    Application("GlobalDTDispositivosUsuarios") = Nothing
+                End If
             End If
-        End If
+        End Using
+        GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now))
 
-        ObjGPS.Dispose()
 
         'If EsProduccion = "1" Then
         '    RegisterNotification()

Inventarios/AjustesSeccionAlmacen.aspx

@@ -36,16 +36,30 @@
                     </div>
                     <div class="titlefiltros caption ">
 
-                        <label class="col-md-1 truncate" style="text-align: right;">Almacen:</label>
+                        <label class="col-sm-1" style="text-align: right">Almacen:</label>
-                        <div class="col-md-3">
+                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlAlmacen" runat="server" DataValueField="CveAlmacen" DataTextField="Almacen" class="select2me" Width="300px"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlAlmacen" runat="server" DataValueField="CveAlmacen" DataTextField="Almacen" class="select2me" Width="100%"></asp:DropDownList>
                         </div>
 
-                        <label class="col-md-1 truncate" style="text-align: right;">Clasificacion:</label>
+                        <label class="col-sm-1" style="text-align: right">Clasificacion:</label>
-                        <div class="col-md-3">
+                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" class="select2me" Width="300px"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" class="select2me" Width="100%"></asp:DropDownList>
                         </div>
 
+                        <label class="col-sm-1" style="text-align: right">Folio:</label>
+                        <div class="col-sm-1" style="width:60px">
+                            <asp:TextBox runat="server" ID="TxtFolioFiltro" Width="60px" />
+                        </div>
+
+                        <label class="col-sm-1" style="text-align: right">Producto:</label>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:150px" CssClass="DdlPS " CssClassDdl="select2me" data-metodo="getps" UsaWebService="true" IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" />
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body">
+                    <div class="row" style="margin-left: 0px;">
+                        
                     </div>
                 </div>
             </div>
@@ -56,20 +70,28 @@
         <ContentTemplate>
             <asp:GridView ID="GvD" DataKeyNames="CvePS,CveUM,CveAlmacen,PU,Existencia,Serie,SeccionAlmacen,CveSeccionAlmacen,FechaCaducidad,Lote,Codigo,PS" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
                 <Columns>
-                    <asp:BoundField HeaderText="Producto" DataField="CodigoPS" />
+                    <asp:BoundField HeaderText="Codigo" DataField="Codigo" />
+                    <asp:BoundField HeaderText="Producto" DataField="PS" />
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="Sección Actual" DataField="SeccionAlmacen" ItemStyle-Width="15%" />
-                    <asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%" />
+                    <%--<asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%" />--%>
-                    <asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
+                    <asp:TemplateField ItemStyle-Width="7%">
                         <ItemTemplate>
-                            <asp:CheckBox ID="Chk" Checked="false" runat="server"></asp:CheckBox>
+                            <%--<asp:Literal ID="LtlExistencia" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>'></asp:Literal>--%>
+                            <asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>' Width="100%" />
+                            <asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCantidad" runat="server" MinimumValue="0" Type="Double" ErrorMessage="No cumple con la cantidad especificada"></asp:RangeValidator>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <asp:CheckBox ID="Chk" Checked="false" runat="server" OnCheckedChanged="Chk_Click" AutoPostBack="true"></asp:CheckBox>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Nueva Seccion" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
-                            <asp:DropDownList ID="DDlS" runat="server" Width="150px" DataValueField="CveSeccion" DataTextField="Seccion" class="select2me"></asp:DropDownList>
+                            <asp:DropDownList ID="DDlS" runat="server" Width="150px" DataValueField="CveSeccionAlmacen" DataTextField="SeccionAlmacen" class="select2me"></asp:DropDownList>
 
                         </ItemTemplate>
                     </asp:TemplateField>

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
     End Sub
 
     Private Sub CargaCombos()
-        Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,14)")
 
         DdlAlmacen.DataSource = DtAlmacenes
         DdlAlmacen.DataBind()
@@ -24,6 +24,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
         DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificaciones.DataBind()
         DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
+
     End Sub
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -32,8 +33,9 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
     Private Sub CargaDatos()
         Dim ObjInv As New ClsInventarios
-
+        Dim CvePS As String = If(DdlPS.SelectedValue = "", "-1", DdlPS.SelectedValue)
-        If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        Dim FolioAux As String = If(TxtFolioFiltro.Text.Length > 0, TxtFolioFiltro.Text, "-1")
+        If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FolioAux, CvePS.ToEntero) Then
             GvD.DataSource = ObjInv.DtResultados
         End If
 
@@ -44,10 +46,19 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
     Private Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
+            CargaSeccionesAlmacen(e.Row.FCDropDownList("DDlS"), DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa)
 
-            e.Row.FCDropDownList("DDlS").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
+            'e.Row.FCDropDownList("DDlS").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
-            e.Row.FCDropDownList("DDlS").DataBind()
+            'e.Row.FCDropDownList("DDlS").DataBind()
 
+            Dim ExistenciasAux As Decimal = e.Row.DataKey("Existencia").ToDecimal
+            e.Row.FCRangeValidator("RVR").Enabled = ExistenciasAux > 0
+            If ExistenciasAux > 0 Then
+                e.Row.FCRangeValidator("RVR").MaximumValue = ExistenciasAux
+            Else
+                e.Row.FCCheckBox("Chk").Visible = False
+                e.Row.FCRangeValidator("RVR").MaximumValue = 0
+            End If
         End If
     End Sub
 
@@ -77,16 +88,20 @@ Partial Class Inventarios_AjustesSeccionAlmacen
             Dim CveMovimientoDetalleEntrada As Integer = 0
             Dim Cont As Integer = 0
             Dim Lista As New Hashtable
+            Dim Cantidad As Decimal = 0
             For Each gvr As GridViewRow In GvD.Rows
 
                 'que este seleccionado y que tenga diferente seccion
                 If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCDropDownList("DDlS").SelectedValue.ToEntero <> gvr.DataKey("CveSeccionAlmacen").ToEntero Then
-
+                    Cantidad = gvr.FCTextBox("TxtCantidad").Text.ToDecimal()
                     If gvr.DataKey("CveSeccionAlmacen").ToEntero > 0 Then
                         ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True)
+                    Else
+                        ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, False)
                     End If
-                    Lista.Add(gvr.DataKey("CvePS").ToEntero, gvr.FCDropDownList("DDlS").SelectedValue.ToEntero) 'guardo que dato le corresponde
+                    If Not Lista.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then Lista.Add(gvr.DataKey("CvePS").ToEntero, gvr.FCDropDownList("DDlS").SelectedValue.ToEntero) 'guardo que dato le corresponde
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.DataKey("Existencia").ToDecimal, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, -1, CveSeccionAlmacen:=gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=gvr.DataKey("Serie"), Lote:=gvr.DataKey("Lote"), FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate) Then
+
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, -1, CveSeccionAlmacen:=gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=gvr.DataKey("Serie"), Lote:=gvr.DataKey("Lote"), FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate) Then
                         ErrorMovInv = True
                         TextoError = "Ocurrió un error al guardar los movimientos de salida"
                         Exit For
@@ -106,7 +121,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
                     For Each Row As DataRow In resultado.Rows
                         Dim CvePS = Row("CvePS").ToString().ToEntero()
-                        Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
+                        'Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
                         Dim PU As Decimal = Row("PUOriginal").ToString().ToDecimal()
                         Dim CveUM As Integer = Row("CveUM").ToString().ToEntero()
                         Dim CveSeccionAlmacen As Integer = Lista(Row("CvePS").ToString().ToEntero()) 'GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero()
@@ -118,9 +133,9 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         'actualizamos el PS, para que tenga el aplica seccion
 
                         ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
-                        If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
+                        'If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
-                            ErrorMovInv = True
+                        '    ErrorMovInv = True
-                        End If
+                        'End If
 
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                             ErrorMovInv = True
@@ -285,7 +300,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
                 Try
                     Dim DtExistenciasSecciones As DataTable = Nothing
-                    If ObjInventario.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacenExcel.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+                    If ObjInventario.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacenExcel.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, "-1", -1) Then
                         DtExistenciasSecciones = ObjInventario.DtResultados.Copy()
                     End If
 
@@ -367,9 +382,9 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
                                             'ACTUALIZAMOS EL PS, PARA QUE TENGA EL APLICA SECCION
                                             ErrorMovInv = Not ObjPS.UpdateAplicaSeccionAlmacen(CvePS, UsuarioActual.CveEmpresa, True)
-                                            If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
+                                            'If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
-                                                ErrorMovInv = True
+                                            '    ErrorMovInv = True
-                                            End If
+                                            'End If
 
                                             If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, CantidadEntrada, CveUMEntrada, CvePSEntrada, PUEntrada, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                                 ErrorMovInv = True
@@ -444,4 +459,12 @@ Partial Class Inventarios_AjustesSeccionAlmacen
         End If
     End Sub
 
+    Protected Sub Chk_Click(sender As Object, e As EventArgs)
+        'Dim row As GridViewRow = (CType((CType(sender, CheckBox)).NamingContainer, GridViewRow))
+        'Dim ExistenciaBackup As Integer = row.DataKey("Existencia").ToEntero()
+        'row.FCTextBox("TxtCantidad").Enabled = Not row.FCTextBox("TxtCantidad").Enabled
+        'If Not row.FCTextBox("TxtCantidad").Enabled Then
+        '    row.FCTextBox("TxtCantidad").Text = ExistenciaBackup
+        'End If
+    End Sub
 End Class

Inventarios/Apartados.aspx

@@ -227,7 +227,7 @@
                                 </td>
                                 <td runat="server" id="TdSeccionAlmacen" visible="false">
                                    
-                                        <asp:DropDownlist ID="DdlSeccionAlmacen" runat="server" DataTextField="Seccion" DataValueField="CveSeccionAlmacen" CssClass="form-control input-sm select2me" />
+                                        <asp:DropDownlist ID="DdlSeccionAlmacen" runat="server" DataTextField="SeccionAlmacen" DataValueField="CveSeccionAlmacen" CssClass="form-control input-sm select2me" />
                                    
                                 </td>
                                 <td align="center">
@@ -401,7 +401,7 @@
                         <asp:UpdatePanel runat="server" ID="UpDatosDesapartado" UpdateMode="Conditional">
                             <ContentTemplate>
                                 <div style="max-height: 300px; overflow-y: auto;">
-                                    <asp:GridView ID="GvDatosDesapartado" DataKeyNames="CvePS,CveUM,CveMovimientoDetalle,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,PU,Cantidad,AplicaSeccion" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró mercancía apartada" ToolTip="Listado de Movimientos" CssClass="Widthall table table-striped table-hover" GridLines="None">
+                                    <asp:GridView ID="GvDatosDesapartado" DataKeyNames="CvePS,CveUM,CveMovimientoDetalle,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,PU,Cantidad,AplicaSeccion,AplicaSerie" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró mercancía apartada" ToolTip="Listado de Movimientos" CssClass="Widthall table table-striped table-hover" GridLines="None">
                                         <Columns>
                                             <asp:BoundField HeaderText="#" DataField="No" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" ItemStyle-Font-Size="6pt" />
                                             <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
@@ -416,9 +416,9 @@
                                             <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="20%" />
                                              <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="10%" />
                                              <asp:BoundField HeaderText="F.Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="10%" />
-                                            <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
+                                            <asp:TemplateField HeaderText="Sección" ItemStyle-Width="10%" Visible="false">
                                             <ItemTemplate>
-                                                  <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                                                  <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Visible="false" Style="width: 95% !important" runat="server" CausesValidation="true">
                                         
                                                 </asp:DropDownList>
                                             </ItemTemplate>

Inventarios/Apartados.aspx.vb

@@ -285,8 +285,9 @@ Partial Class Inventarios_Apartados
                 If CBool(drP("AplicaSeccion")) Then
                     ThSeccion.Visible = True
                     TdSeccionAlmacen.Visible = True
-                    DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero)
+                    CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
-                    DdlSeccionAlmacen.DataBind()
+                    'DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero)
+                    'DdlSeccionAlmacen.DataBind()
                     GvDatos.Columns(7).Visible = True
                 End If
 
@@ -836,7 +837,7 @@ Partial Class Inventarios_Apartados
             GvDatosDesapartado.Columns(5).Visible = DtTemp.MAX("Serie").ToString <> ""
             GvDatosDesapartado.Columns(6).Visible = DtTemp.MAX("Lote").ToString <> ""
             GvDatosDesapartado.Columns(7).Visible = DtTemp.MAX("FechaCaducidad").ToString.ToDate > MinFecha
-            GvDatosDesapartado.Columns(8).Visible = DtTemp.MAX("CveSeccionAlmacen").ToString.ToEntero > 0
+            GvDatosDesapartado.Columns(8).Visible = DtTemp.MAX("AplicaSeccion") = "True"
 
             GvDatosDesapartado.DataSource = DtTemp
             GvDatosDesapartado.DataBind()

Inventarios/CatAlmacenClasificacionSecciones.aspx

@@ -0,0 +1,91 @@
+<%@ Page Title="Inventarios - Catálogo almacén clasificación secciones" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatAlmacenClasificacionSecciones.aspx.cs" Inherits="Inventarios_CatAlmacenClasificacionSecciones" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Catálogo de Almacén Clasificacion Secciones
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton runat="server" ID="BtnAgregarAlmacenClasificacionSeccion" OnClick="BtnAgregarAlmacenClasificacionSeccion_Click" data-toggle="tooltip" data-placement="left" title="Agregar" Text="<i class='fa fa-plus'></i>Agregar"></asp:LinkButton>
+            </li>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveSeccionClasificacion,CveAlmacen,CveClasificacion,CveClasificacionDetalle,CveMarca,CveSeccionAlmacen,Almacen,Clasificacion,ClasificacionDetalle,Marca,SeccionAlmacen"
+                EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" 
+                GridLines="None">
+                <Columns>
+                    <asp:BoundField DataField="Almacen" HeaderText="Almacén" />
+                    <asp:BoundField DataField="Clasificacion" HeaderText="Clasificación" />
+                    <asp:BoundField DataField="ClasificacionDetalle" HeaderText="Tipo" />
+                    <asp:BoundField DataField="Marca" HeaderText="Marca" />
+                    <asp:BoundField DataField="SeccionAlmacen" HeaderText="Sección Almacén" />
+                    <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
+                            <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlTituloModalTiposD" runat="server">Almacén Clasificación Sección</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <label for="DdlAlmacen">Almacén:</label><br />
+                            <asp:DropDownList runat="server" ID="DdlAlmacen" DataTextField="Almacen" DataValueField="CveAlmacen" OnSelectedIndexChanged="DdlAlmacen_Change" AutoPostBack="true" CssClass="select2me" Width="100%" />
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <label for="DdlClasificacion">Clasificación:</label><br />
+                            <asp:DropDownList runat="server" ID="DdlClasificacion" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="select2me" Width="100%" />
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <label for="DdlTipo">Tipo:</label><br />
+                            <asp:DropDownList runat="server" ID="DdlTipo" DataTextField="ClasificacionDetalle" DataValueField="CveClasificacionDetalle" CssClass="select2me" Width="100%" />
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <label for="DdlMarca">Marca:</label><br />
+                            <asp:DropDownList runat="server" ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" Width="100%" />
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <label for="DdlSeccionAlmacen">Sección Almacén:</label><br />
+                            <asp:DropDownList runat="server" ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" DataValueField="CveSeccionAlmacen" CssClass="select2me" Width="100%" />
+                        </div>
+                    </div>
+                    <br />
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnAgregarACS" OnClick="BtnAgregarACS_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
+                        <button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>

Inventarios/CatAlmacenClasificacionSecciones.aspx.cs

@@ -0,0 +1,153 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using System.Data;
+using Extensiones;
+
+public partial class Inventarios_CatAlmacenClasificacionSecciones : ClsPaginas
+{
+    private int CveSeccionClasificacion
+    {
+        get
+        {
+            return ViewState["CveSeccionClasificacion"].ToString().ToEntero();
+        }
+
+        set
+        {
+            ViewState["CveSeccionClasificacion"] = value;
+        }
+    }
+
+    protected void Page_Load(object sender, EventArgs e)
+    {
+        if (!Page.IsPostBack)
+        {
+            CargarDatos();
+            CargarDropDowns();
+        }
+    }
+
+    private void CargarDatos()
+    {
+        ClsInventarios Objinv = new ClsInventarios();
+        if (Objinv.GetAlmacenClasificacionSecciones(-1,UsuarioActual.CveEmpresa))
+        {
+            GvDatos.DataSource = Objinv.DtResultados;
+        }
+        Objinv.Dispose();
+        GvDatos.DataBind();
+    }
+    private void CargarDropDowns()
+    {
+        DdlAlmacen.DataSource = get_GlobalDTAlmacen(UsuarioActual.CveEmpresa);
+        DdlAlmacen.DataBind();
+        DdlAlmacen.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        DdlClasificacion.DataSource = get_GlobalDTClasificaciones(CveEmpresa:UsuarioActual.CveEmpresa);
+        DdlClasificacion.DataBind();
+        DdlClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        DdlTipo.DataSource = get_GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa);
+        DdlTipo.DataBind();
+        DdlTipo.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        ClsProductosServicios ObjMarcas = new ClsProductosServicios();
+        ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa);
+        DdlMarca.DataSource = ObjMarcas.DtResultados;
+        ObjMarcas.Dispose();
+        DdlMarca.DataBind();
+        DdlMarca.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+    }
+
+    protected void DdlAlmacen_Change(object sender, EventArgs e)
+    {
+
+        int CveAlmacen = ((DropDownList)sender).SelectedValue.ToEntero();
+        CargarSeccionAlmacen(CveAlmacen);
+
+    }
+    private void CargarSeccionAlmacen(int CveAlmacen)
+    {
+        DdlSeccionAlmacen.DataSource = get_GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, CveAlmacen);
+        DdlSeccionAlmacen.DataBind();
+        DdlSeccionAlmacen.Items.Insert(0, new ListItem("Seleccione", "-1"));
+    }
+
+    protected void BtnAgregarAlmacenClasificacionSeccion_Click(object sender, EventArgs e)
+    {
+        DdlAlmacen.SelectedValue = "-1";
+        DdlClasificacion.SelectedValue = "-1";
+        DdlTipo.SelectedValue = "-1";
+        DdlMarca.SelectedValue = "-1";
+        DdlSeccionAlmacen.Items.Clear();
+        UpModalTiposD.Update();
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
+    }
+
+    protected void BtnAgregarACS_Click(object sender, EventArgs e)
+    {
+        ClsInventarios ObjInv = new ClsInventarios();
+
+        if (BtnAgregarACS.Text == "Agregar")
+        {
+            if (ObjInv.AddAlmacenClasificacionSecciones(DdlAlmacen.SelectedValue.ToEntero(),DdlClasificacion.SelectedValue.ToEntero(),DdlTipo.SelectedValue.ToEntero(),
+                                                        DdlMarca.SelectedValue.ToEntero(),DdlSeccionAlmacen.SelectedValue.ToEntero()))
+            {
+                Alert("Se agregó correctamente Almacén Clasificación Sección");
+            }
+        }else
+        {
+            if (ObjInv.UpdateAlmacenClasificacionSecciones(CveSeccionClasificacion,DdlAlmacen.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero(), DdlTipo.SelectedValue.ToEntero(),
+                                                            DdlMarca.SelectedValue.ToEntero(), DdlSeccionAlmacen.SelectedValue.ToEntero()))
+            {
+                Alert("Se actualizó correctamente Almacén Clasificación Sección");
+            }
+        }
+
+        CargarDatos();
+        UpDatos.Update();
+
+        ObjInv.Dispose();
+    }
+
+    protected void LnkEditar_Click(object sender, EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        string CveAlmacen = GvRow.DataKey("CveAlmacen");
+        string CveClasificacion = GvRow.DataKey("CveClasificacion");
+        string CveClasificacionDetalle = GvRow.DataKey("CveClasificacionDetalle");
+        string CveMarca = GvRow.DataKey("CveMarca");
+        string CveSeccionAlmacen = GvRow.DataKey("CveSeccionAlmacen");
+        BtnAgregarACS.Text = "Actualizar";
+
+        CveSeccionClasificacion = GvRow.DataKey("CveSeccionClasificacion").ToEntero();
+
+        DdlAlmacen.SelectedValueExist(CveAlmacen);
+        CargarSeccionAlmacen(CveAlmacen.ToEntero());
+        DdlClasificacion.SelectedValueExist(CveClasificacion);
+        DdlTipo.SelectedValueExist(CveClasificacionDetalle);
+        DdlMarca.SelectedValueExist(CveMarca);
+        DdlSeccionAlmacen.SelectedValueExist(CveSeccionAlmacen);
+        UpModalTiposD.Update();
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
+    }
+
+    protected void LnkEliminar_Click(object sender,EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int CveSeccionClasificacion = GvRow.DataKey("CveSeccionClasificacion").ToEntero();
+        ClsInventarios ObjInv = new ClsInventarios();
+        if (ObjInv.RemoveAlmacenClasificacionSecciones(CveSeccionClasificacion))
+        {
+            CargarDatos();
+            UpDatos.Update();
+            Alert("Se eliminó correctamente Almacén Clasificación Sección");
+        }
+        ObjInv.Dispose();
+    }
+}

Inventarios/CatAlmacenes.aspx

@@ -151,7 +151,7 @@
     </div>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,IdCtaContable,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden,CveCuenta" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,IdCtaContable,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden,CveCuenta,CveUsuarioAutoriza" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
                 <Columns>
                     <asp:TemplateField ItemStyle-Width="15%" HeaderText="Almacen">
                         <ItemTemplate>
@@ -225,15 +225,15 @@
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                             <span aria-hidden="true">&times;</span>
                         </button>
-                        <h4 class="modal-title" id="myModalLabel" runat="server">Agregar Almacen</h4>
+                        <h4 class="modal-title" id="myModalLabel" runat="server">Agregar Almacén</h4>
                     </div>
                     <div class="modal-body">
                         <asp:UpdatePanel ID="UpBodyAlmacen" UpdateMode="Conditional" runat="server">
                             <ContentTemplate>
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtAlmacen" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVAlmacen" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAlmacen" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="RFVAlmacen" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAlmacen" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacén''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <asp:Label AssociatedControlID="TxtAlmacen" runat="server" Text="Almacen:"></asp:Label>
+                                    <asp:Label AssociatedControlID="TxtAlmacen" runat="server" Text="Almacén:"></asp:Label>
                                 </div>
                                 <div class="row">
                                     <div class="col-md-6">
@@ -250,7 +250,7 @@
                                     <div class="col-md-6">
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:DropDownList ID="DdlTipoAlmacen" runat="server" AppendDataBoundItems="true" DataValueField="CveTipoAlmacen" DataTextField="TipoAlmacen" ValidationGroup="GrpObligatorio" Width="100%" CssClass="form-control input-sm select2me"></asp:DropDownList>
-                                            <asp:Label AssociatedControlID="DdlTipoAlmacen" runat="server" Text="Tipo de Almacen:"></asp:Label>
+                                            <asp:Label AssociatedControlID="DdlTipoAlmacen" runat="server" Text="Tipo de Almacén:"></asp:Label>
                                         </div>
                                     </div>
                                 </div>
@@ -302,6 +302,20 @@
                                     <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
                                     <asp:Label AssociatedControlID="ChkEstatus" runat="server" Text="Estatus:"></asp:Label>
                                 </div>
+
+
+                                <div class="row">
+                                    <div class="col-md-12">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlUsuariosAutoriza" runat="server"  DataTextField="Nombre"  DataValueField="CveUsuario"    Width="50%" CssClass="form-control input-sm select2me">                                                                                                 
+                                            </asp:DropDownList>
+                                            <asp:Label AssociatedControlID="DdlUsuariosAutoriza" runat="server" Text="En caso de que requiera autorización, seleccione el usuario para esta almacén:"></asp:Label>
+                                        </div>
+                                    </div>                                  
+
+                                </div>
+
+
                             </ContentTemplate>
                         </asp:UpdatePanel>
                         <div class="modal-footer">

Inventarios/CatAlmacenes.aspx.vb

@@ -48,6 +48,7 @@ Partial Class Inventarios_CatAlmacenes
             CargaSubProyectos()
             CargaTipoAlmacen()
             CargaDatos()
+            CargaUsuarios()
 
         End If
     End Sub
@@ -83,6 +84,20 @@ Partial Class Inventarios_CatAlmacenes
         DdlTipoAlmacen.DataBind()
     End Sub
 
+    Private Sub CargaUsuarios()
+
+        Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 1 ").Copy
+
+        DT.DefaultView.Sort = "Nombre ASC"
+        DT = DT.DefaultView.ToTable
+
+        DdlUsuariosAutoriza.DataSource = DT
+        DdlUsuariosAutoriza.DataBind()
+
+        DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+    End Sub
+
     Private Sub CargaCuentasContables()
         If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             divCuentasCompac.Visible = False
@@ -222,6 +237,7 @@ Partial Class Inventarios_CatAlmacenes
         If ChkEstatus.Checked Then Estatus = 1
         Dim CuentaContable As Integer = 0
         Dim CveCuenta As Integer = 0
+
         If divddlcc.Visible Then
             If pnlCuentassig.Visible Then
                 CveCuenta = DdlCuentasSig.SelectedValue.ToEntero()
@@ -229,8 +245,9 @@ Partial Class Inventarios_CatAlmacenes
                 CuentaContable = DdlCuentasContables.SelectedValue.ToEntero()
             End If
         End If
+
         If HdnModalidad.Value = "A" Then
-            If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta) Then
+            If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero) Then
                 Alert("El nuevo Almacen se guardó correctamente.", TipoMensaje.MsgInformacion)
                 UpDatos.Update()
                 ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -240,7 +257,7 @@ Partial Class Inventarios_CatAlmacenes
             Else
                 TieneError = True
             End If
-        ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta) Then
+        ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero) Then
             Alert("El  Almacen se actualizo correctamente.", TipoMensaje.MsgInformacion)
             UpDatos.Update()
             ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -263,11 +280,13 @@ Partial Class Inventarios_CatAlmacenes
             DdlCuentasContables.Visible = True
         End If
         BtnAgregarAlmacen.Text = "Agregar"
-        myModalLabel.InnerText = "Agregar Almacen"
+        myModalLabel.InnerText = "Agregar Almacén"
         TxtAlmacen.Text = ""
         TxtOrden.Text = ""
         ChkEstatus.Checked = True
         divEstatus.Visible = False
+        DdlUsuariosAutoriza.SelectedValueExist("-1")
+
         UpAddAlmacen.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAlmacen"))
 
@@ -293,7 +312,7 @@ Partial Class Inventarios_CatAlmacenes
         HdnID.Value = GvRow.DataKey("CveAlmacen")
         UpDatos.Update()
         BtnAgregarAlmacen.Text = "Actualizar"
-        myModalLabel.InnerText = "Actualizar Almacen"
+        myModalLabel.InnerText = "Actualizar Almacén"
         DdlInventariable.SelectedValue = If((GvRow.DataKey("Inventariable")) = "True", 1, 0)
         DdlModalidad.SelectedValue = If((GvRow.DataKey("Modalidad")) = "Solo Existencia", 0, 1)
         divddlcc.Visible = If((DdlModalidad.SelectedValue) = 1, True, False)
@@ -304,11 +323,15 @@ Partial Class Inventarios_CatAlmacenes
         DdlTipoAlmacen.SelectedValueExist(GvRow.DataKey("CveTipoAlmacen"))
         TxtAlmacen.Text = GvRow.DataKey("Almacen")
         TxtOrden.Text = GvRow.DataKey("Orden")
+        DdlUsuariosAutoriza.SelectedValueExist(If(GvRow.DataKey("CveUsuarioAutoriza").ToEntero > 0, GvRow.DataKey("CveUsuarioAutoriza"), "-1"))
+
+
         divEstatus.Visible = True
         ChkEstatus.Checked = If((GvRow.DataKey("Estatus")) = "Activo", True, False)
         UpAddAlmacen.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAlmacen"))
 
+
     End Sub
     Private Sub LnkAlmacen_Click(sender As Object, e As EventArgs) Handles LnkAlmacen.Click
         Agregar()

Inventarios/EntradasSalidas.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntradasSalidas.aspx.vb" Inherits="Inventarios_EntradasSalidas" EnableEventValidation="false" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntradasSalidas.aspx.vb"  Inherits="Inventarios_EntradasSalidas" EnableEventValidation="false" %>
 
 
 <%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %>
@@ -546,6 +546,14 @@
                                             <asp:Button Text="" ID="BtnSeriePSAdd" OnClick="BtnSeriePSAdd_Click" Style="display: none" runat="server" />
                                         </asp:Panel>
                                     </td>
+                                    <td runat="server" visible="false" id="TdSeccionPSAdd">
+                                        <asp:Panel ID="Panel3" runat="server" DefaultButton="BtnSeccionPSAdd">
+                                            <asp:DropDownList ID="DdlSeccionPSAdd" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                                        </asp:DropDownList>
+                                            <asp:Button Text="" ID="BtnSeccionPSAdd" Style="display: none" runat="server" />
+                                        </asp:Panel>
+                                    </td>
                                 </tr>
                             </table>
                         </div>
@@ -687,7 +695,7 @@
                                             <asp:Literal ID="LbCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal>
                                         </ItemTemplate>
                                     </asp:TemplateField>
-                                    <asp:TemplateField HeaderText="Sección Almacén" Visible="false">
+                                    <asp:TemplateField HeaderText="Sección" Visible="false">
                                         <EditItemTemplate>
                                             <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" CssClass="select2me" runat="server">
                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -1049,7 +1057,9 @@
                                 <div style="text-align: center">
                                     <label for="<%= DdlAlmacenInventarioFisico.ClientID.ToString()%>">Almacen:</label>
                                     <asp:DropDownList ID="DdlAlmacenInventarioFisico" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" Width="60%" CssClass="form-control input-sm select2me" AppendDataBoundItems="true"></asp:DropDownList>
-                                    <%--<asp:RequiredFieldValidator ID="RFVAlmacenInvFisico" runat="server" InitialValue="-1" ControlToValidate="DdlAlmacenInventarioFisico" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>--%>
+                                    <asp:RequiredFieldValidator ID="RFVAlmacenInvFisico" runat="server" InitialValue="-1" ControlToValidate="DdlAlmacenInventarioFisico" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen''</b> es necesario, por favor ingréselo." ValidationGroup="InvFisico"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CERFVAlmacenInvFisico" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacenInvFisico" Width="350px"></ajax:ValidatorCalloutExtender>
+
                                     <i></i>
                                 </div>
                             </div>
@@ -1062,6 +1072,19 @@
                                             <span class="input-group-btn ">
                                                 <asp:LinkButton ID="ImgFechaInvFisico" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                             </span>
+
+
+
+
+
+                                            
+
+
+                                            <asp:RequiredFieldValidator ID="RFVTxtFechaInvFisico" runat="server" ControlToValidate="TxtFechaInvFisico" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="InvFisico"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="CERFVTxtFechaInvFisico" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtFechaInvFisico" Width="350px"></ajax:ValidatorCalloutExtender>
+
+
+
                                             <ajax:MaskedEditExtender ID="MEFechaInv" runat="server" TargetControlID="TxtFechaInvFisico" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                             <ajax:CalendarExtender runat="server" ID="CalEFehcInv" TargetControlID="TxtFechaInvFisico" PopupButtonID="ImgFechaInvFisico" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                                             <asp:CompareValidator ID="CvFechaInv" runat="server" ControlToValidate="TxtFechaInvFisico" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="InvFisico"></asp:CompareValidator>
@@ -1168,7 +1191,7 @@
                                                                 <asp:BoundField HeaderText="Sección Alm" ReadOnly="true" DataField="SeccionAlmacen" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:BoundField HeaderText="Serie" ReadOnly="true" DataField="Serie" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:BoundField HeaderText="Lote" ReadOnly="true" DataField="Lote" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
-                                                                <asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
+                                                                <asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
                                                                     <ItemTemplate>
                                                                         <asp:LinkButton ID="LnkRemoveInvFisico" runat="server" AlternateText="Eliminar" OnClick="DeleteRowInvFisicoEntrada" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />
@@ -1260,7 +1283,7 @@
                                                                 <asp:BoundField HeaderText="Sección Alm" ReadOnly="true" DataField="SeccionAlmacen" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:BoundField HeaderText="Serie" ReadOnly="true" DataField="Serie" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:BoundField HeaderText="Lote" ReadOnly="true" DataField="Lote" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
-                                                                <asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
+                                                                <asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
                                                                     <ItemTemplate>
                                                                         <asp:LinkButton ID="LnkRemoveInvFisicoSalida" runat="server" AlternateText="Eliminar" OnClick="DeleteRowInvFisicoSalida" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />
@@ -1424,7 +1447,7 @@
                             <br />
                         </div>
                         <div runat="server" id="divSerie" class="form-group form-md-line-input input-iconright" visible="false">
-                            <asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
+                            <asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="120px" Visible="false"></asp:TextBox>
                             <asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
                             <label for="<%= TxtnSerie.ClientID.ToString()%>">Serie</label>
                             <br />
@@ -1435,7 +1458,7 @@
                             <br />
                         </div>
                         <div runat="server" id="divSeccionAlmacen" class="form-group form-md-line-input input-iconright" visible="false">
-                            <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                            <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                             <label for="<%= DdlSeccionAlmacen.ClientID.ToString()%>">Sección Almacén</label>

Inventarios/EntradasSalidas.aspx.vb

@@ -255,7 +255,7 @@ Partial Class Inventarios_EntradasSalidas
 
     Public Property CveMovimientoDetalleEdit() As Integer
         Get
-            Return ViewState("CveMovimientoDetalleEdit").ToString.ToEntero
+            Return IfNull(ViewState("CveMovimientoDetalleEdit"), 0).ToString.ToEntero
         End Get
         Set(value As Integer)
             ViewState("CveMovimientoDetalleEdit") = value
@@ -435,6 +435,7 @@ Partial Class Inventarios_EntradasSalidas
         dt.Columns.Add("Serie", Type.GetType("System.String"))
         dt.Columns.Add("Lote", Type.GetType("System.String"))
         dt.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
+        dt.Columns.Add("AplicaCaducidad", Type.GetType("System.String"))
 
         dt.Columns.Add("Observaciones")
         dt.Columns.Add("CountMovimientoEntradaDetalle")
@@ -460,8 +461,8 @@ Partial Class Inventarios_EntradasSalidas
         End If
         DdlClasificacion.DataBind()
 
-        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+        'DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
-        DdlSeccionAlmacen.DataBind()
+        'DdlSeccionAlmacen.DataBind()
 
         DdlSeccionAlmacenEntrada.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
         DdlSeccionAlmacenEntrada.DataBind()
@@ -826,7 +827,7 @@ Partial Class Inventarios_EntradasSalidas
             'cargar también los movimentos detalle
             If Mov.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
 
-                DtMovimientos = Mov.DtResultados.FiltraParametros("", "CveMovimientoDetalle")
+                DtMovimientos = Mov.DtResultados
 
                 DtMovimientos.Columns("No").AutoIncrement = True
                 DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
@@ -1146,7 +1147,12 @@ Partial Class Inventarios_EntradasSalidas
     '    AgregarPS()
     'End Sub
     Protected Sub LkAgregarDetalle_Click(sender As Object, e As EventArgs) Handles LkAgregarDetalle.Click
-        AgregarPS()
+        If CveMovimientoDetalleEdit > 0 Then
+            ActualizarPS()
+        Else
+            AgregarPS()
+        End If
+
     End Sub
     Protected Sub BtnSerieAddNew_Click(sender As Object, e As EventArgs)
         AgregarPS()
@@ -1184,7 +1190,7 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
 
 
-    Protected Sub AddNew(CvePS As Integer, PS As String, CveUM As Integer, UM As String, Cantidad As Double, PU As Double, SerieLote As String, CodigoAF As String, Codigo As String, CveAF As String, Observaciones As String, Lote As String, FechaCaducidad As Date, CveSeccionAlmacen As Integer, SeccionAlmacen As String)
+    Protected Sub AddNew(CvePS As Integer, PS As String, CveUM As Integer, UM As String, Cantidad As Double, PU As Double, Serie As String, CodigoAF As String, Codigo As String, CveAF As String, Observaciones As String, Lote As String, FechaCaducidad As Date, CveSeccionAlmacen As Integer, SeccionAlmacen As String)
         If DdlAlmacen.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlProducto2.SelectedText = "" : Exit Sub
 
         Dim Valido As Boolean = True
@@ -1195,17 +1201,17 @@ Partial Class Inventarios_EntradasSalidas
 
         Dim FechaCaducidadVal As Date = If(RowPS("AplicaCaducidad").ToString = "True", FechaCaducidad, MinFecha)
 
-        If CveMetodoInventario = 5 And (String.IsNullOrEmpty(SerieLote.Trim()) OrElse SerieLote = "-1") Then
+        If CveMetodoInventario = 5 And (String.IsNullOrEmpty(Serie.Trim()) OrElse Serie = "-1") Then
             Valido = False
-            Alert("El producto requiere Serie-Lote", TipoMensaje.MsgAdvertencia)
+            Alert("El producto requiere Serie", TipoMensaje.MsgAdvertencia)
         End If
 
         'salida
         If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen
 
-            Dim Existencia As Double = GetExistencias(CvePS, CveUM, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, -1, If(SerieLote = "", "-1", SerieLote), If(Lote = "", "-1", Lote), FechaCaducidadVal)
+            Dim Existencia As Double = GetExistencias(CvePS, CveUM, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, -1, If(Serie = "", "-1", Serie), If(Lote = "", "-1", Lote), FechaCaducidadVal)
             ' LbAgregar.ToolTip = Existencia.ToString
-            If Existencia - Cantidad - DtMovimientos.SUM("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUM} {If(SerieLote <> "", $" AND Serie = '{SerieLote}'", "")}") < 0 Then
+            If Existencia - Cantidad - DtMovimientos.SUM("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUM} {If(Serie <> "", $" AND Serie = '{Serie}'", "")}") < 0 Then
                 If Existencia <= 0 Then
                     Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
                     RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -1224,12 +1230,12 @@ Partial Class Inventarios_EntradasSalidas
 
         If Valido Then
             Dim CveClasificacion As Integer
-            Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
+            'Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
-            If dr IsNot Nothing Then CveClasificacion = dr("CveClasificacion").ToString.ToEntero
+            If RowPS IsNot Nothing Then CveClasificacion = RowPS("CveClasificacion").ToString.ToEntero
 
             'VALIDA QUE LA SERIE NO SEA IGUAL AL CODIGO O CODIGOBARRAS
-            If SerieLote <> "" And (SerieLote.ToUpper = dr("Codigo").ToString.ToUpper Or SerieLote.ToUpper = dr("CodigoBarras").ToString.ToUpper) Then
+            If Serie <> "" And (Serie.ToUpper = RowPS("Codigo").ToString.ToUpper Or Serie.ToUpper = RowPS("CodigoBarras").ToString.ToUpper) Then
-                Alert($"La serie indicada <b>{SerieLote}</b> coincide con el codigo o codigo de barras del producto. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+                Alert($"La serie indicada <b>{Serie}</b> coincide con el codigo o codigo de barras del producto. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
 
@@ -1252,10 +1258,11 @@ Partial Class Inventarios_EntradasSalidas
             registro.Item("CodigoAF") = CodigoAF
             registro.Item("Codigo") = Codigo
             registro.Item("CveAF") = CveAF
-            registro.Item("Serie") = If(SerieLote <> "", SerieLote, "")
+            registro.Item("Serie") = If(Serie <> "", Serie, "")
             registro.Item("Lote") = If(Lote <> "", Lote, "")
             registro.Item("FechaCaducidad") = FechaCaducidad
             registro.Item("Observaciones") = Observaciones
+            registro.Item("AplicaCaducidad") = RowPS("AplicaCaducidad").ToString
             DtMovimientos.Rows.Add(registro)
             CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
             RegistraScript("playsonidito('beep-07.wav')")
@@ -2008,9 +2015,19 @@ Partial Class Inventarios_EntradasSalidas
             DdlConcepto.Items.Insert(0, New ListItem("Entrada Almacen ", "2"))
         End If
 
+        If UsuarioActual.CveEmpresa = 72 AndAlso CveTipoAlmacen.Contiene(14, 19) AndAlso UsuarioActual.CveUsuario = 2185 Then
+
+            'DdlConcepto.Items.Add(New ListItem("Seleccione", "-1"))
+            DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
+            DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
+
+        End If
+
         DdlConcepto.SelectedValue = "-1"
         ddlConcepto_SelectedIndexChanged(DdlConcepto, EventArgs.Empty)
 
+
+
     End Sub
 
     Protected Sub ddlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConcepto.SelectedIndexChanged
@@ -2180,12 +2197,18 @@ Partial Class Inventarios_EntradasSalidas
                 End If
                 If CBool(dr("AplicaSeccion")) Then
                     divSeccionAlmacen.Visible = True
+                    'DdlSeccionAlmacen.Items.Clear()
+                    'DdlSeccionAlmacen.ClearSelection()
+                    'DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero)
+                    'DdlSeccionAlmacen.DataBind()
+                    CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAlmacen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
 
                 End If
                 If CBool(dr("AplicaCaducidad")) Then
                     divCaducidad.Visible = True
 
                 End If
+
             End If
 
         End If
@@ -2215,6 +2238,7 @@ Partial Class Inventarios_EntradasSalidas
         'PERMISO SOLO PARA EDITAR SERIELOTE
         If UsuarioActual.TienePermisoProceso(245) Then
             GvM.Columns(9).Visible = True
+            TxtnSerie.Visible = True
         End If
 
         TxtnLote.Visible = False
@@ -2292,7 +2316,6 @@ Partial Class Inventarios_EntradasSalidas
                     e.Row.FCTextBox("LblEditCodigo").Enabled = False
                     e.Row.FCTextBox("TxtSerie").Enabled = False
                     e.Row.FCTextBox("TxtLote").Enabled = False
-                    e.Row.FCTextBox("TxtBatch").Enabled = False
                     e.Row.FCDropDownList("DdlSeccionAlmacen").Enabled = False
                 End If
 
@@ -2364,16 +2387,22 @@ Partial Class Inventarios_EntradasSalidas
         End If
     End Sub
     Protected Sub GvM_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvM.RowEditing
-        GvM.EditIndex = e.NewEditIndex
+        Dim i As Integer = e.NewEditIndex
+        GvM.EditIndex = i
+
         Dim Gv As GridView = DirectCast(sender, GridView)
-        Dim GvRow As GridViewRow = Gv.Rows(0)
+        Dim GvRow As GridViewRow = Gv.Rows(i)
         If CveMovimiento > 0 Then
             CveMovimientoDetalleEdit = GvRow.DataKey("CveMovimientoDetalle").ToEntero
-            divCantidad.Visible = False
+            txtCantidad.Enabled = False
-            divClasificacionProducto.Visible = False
+            DdlClasificacion.Enabled = False
-            divUnidadMedida.Visible = False
+            DdlProducto2.Enabled = False
+            DdlUnidad.Enabled = False
+
+            'codigo provisional, hay entradas con productos, que al asignar serie, debe de tener e ncantidad = 1
+            If GvRow.DataKey("Cantidad").ToEntero() > 1 Then txtCantidad.Enabled = True
         End If
-        txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
+            txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
         DdlProducto2.SelectedValue = GvRow.DataKey("CvePS")
         DdlProducto2.SelectedText = GvRow.DataKey("CodigoPS")
         ElProductoChange()
@@ -2384,7 +2413,11 @@ Partial Class Inventarios_EntradasSalidas
         TxtnLote.Text = GvRow.DataKey("Lote")
         TxtnFechaCaducidad.Text = GvRow.DataKey("FechaCaducidad").ToDate.ToShortDateString
         TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
+
+        DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, GvRow.DataKey("CvePS").ToEntero)
+        DdlSeccionAlmacen.DataBind()
         DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
+
         LkAgregarDetalle.Text = "Actualizar"
         Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
         divPrecio.Visible = Origen = 1
@@ -2413,6 +2446,7 @@ Partial Class Inventarios_EntradasSalidas
         TxtnFechaCaducidad.Text = GvRow.DataKey("FechaCaducidad")
         TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
         DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
+
         Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
         divPrecio.Visible = Origen = 1
         txtPrecio.Visible = Origen = 1
@@ -2429,30 +2463,30 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
     Protected Sub GvM_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvM.RowUpdating
 
-        Dim Precio As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPrecio").Text.ToDouble
+        'Dim Precio As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPrecio").Text.ToDouble
-        Dim No As Integer = GvM.Rows(e.RowIndex).DataKey("No").ToEntero
+        'Dim No As Integer = GvM.Rows(e.RowIndex).DataKey("No").ToEntero
-        Dim serie As String = GvM.Rows(e.RowIndex).FCTextBox("TxtSerie").Text.Replace(" ", String.Empty)
+        'Dim serie As String = GvM.Rows(e.RowIndex).FCTextBox("TxtSerie").Text.Replace(" ", String.Empty)
-        Dim Observaciones As String = GvM.Rows(e.RowIndex).FCTextBox("TxtObservaciones").Text
+        'Dim Observaciones As String = GvM.Rows(e.RowIndex).FCTextBox("TxtObservaciones").Text
-        Dim CveSeccionAlmacen As Integer = GvM.Rows(e.RowIndex).FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero
+        'Dim CveSeccionAlmacen As Integer = GvM.Rows(e.RowIndex).FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero
-        Dim SeccionAlmacen As String = GvM.Rows(e.RowIndex).FCDropDownList("DdlSeccionAlmacen").SelectedItem.Text
+        'Dim SeccionAlmacen As String = GvM.Rows(e.RowIndex).FCDropDownList("DdlSeccionAlmacen").SelectedItem.Text
-        Dim Cantidad As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtCantidad").Text.ToDouble
+        'Dim Cantidad As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtCantidad").Text.ToDouble
-        Dim Drs As DataRow() = DtMovimientos.Select(String.Format("No = {0}", No))
+        'Dim Drs As DataRow() = DtMovimientos.Select(String.Format("No = {0}", No))
 
-        If Drs.Count > 0 Then
+        'If Drs.Count > 0 Then
-            Drs(0)("Cantidad") = Cantidad
+        '    Drs(0)("Cantidad") = Cantidad
-            Drs(0)("PU") = Precio
+        '    Drs(0)("PU") = Precio
-            Drs(0)("Total") = Drs(0)("Cantidad").ToString.ToDouble * Precio
+        '    Drs(0)("Total") = Drs(0)("Cantidad").ToString.ToDouble * Precio
-            Drs(0)("Estatus") = "U"
+        '    Drs(0)("Estatus") = "U"
-            Drs(0)("Serie") = serie
+        '    Drs(0)("Serie") = serie
-            Drs(0)("Observaciones") = Observaciones
+        '    Drs(0)("Observaciones") = Observaciones
-            Drs(0)("CveSeccionAlmacen") = CveSeccionAlmacen
+        '    Drs(0)("CveSeccionAlmacen") = CveSeccionAlmacen
-            Drs(0)("SeccionAlmacen") = SeccionAlmacen
+        '    Drs(0)("SeccionAlmacen") = SeccionAlmacen
-        End If
+        'End If
 
-        DtMovimientos.AcceptChanges()
+        'DtMovimientos.AcceptChanges()
-        GvM.EditIndex = -1
+        'GvM.EditIndex = -1
 
-        CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
+        'CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
 
     End Sub
     Protected Sub DeleteRow(ByVal sender As Object, ByVal e As EventArgs)
@@ -2925,6 +2959,7 @@ Partial Class Inventarios_EntradasSalidas
         End If
 
         TdSeriePS.Visible = False
+        TdSeccionPSAdd.Visible = False
 
         Dim Dr = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoPS.Text}'")
         If Dr Is Nothing Then
@@ -2934,7 +2969,7 @@ Partial Class Inventarios_EntradasSalidas
             Exit Sub
         End If
 
-        If Dr("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then
+        If Dr("AplicaSerie").ToString = "True" Then
             TdSeriePSAdd.Visible = True
             TxtSeriePS.Focus()
             CvePSSerieLote = Dr("CvePS").ToString.ToEntero
@@ -2943,8 +2978,32 @@ Partial Class Inventarios_EntradasSalidas
             UMSerieLote = Dr("UnidadMedida").ToString
             Exit Sub
         End If
+        Dim CveSeccionAlmacen As Integer = -1
+        Dim SeccionAlmacen As String = ""
 
-        AddNew(Dr("CvePS").ToString.ToEntero, Dr("PSCodigo").ToString, Dr("CveUM").ToString.ToEntero, Dr("UnidadMedida").ToString, 1, Dr("CostoPromedio").ToString.ToDouble, "", "", "", "", "", "", MinFecha, -1, "")
+        If Dr("AplicaSeccion").ToString = "True" Then
+            If DdlAlmacen.SelectedValue.ToEntero <= 1 Then
+                Alert("No se ha especificado el almacen para especificar la sección", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            DdlSeccionPSAdd.Items.Clear()
+            Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, Dr("CvePS").ToString.ToEntero)
+            DdlSeccionPSAdd.DataSource = dtt
+            DdlSeccionPSAdd.DataBind()
+            If dtt.Rows.Count > 1 Then
+                DdlSeccionPSAdd.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                ' si solo hay un movimiento, debe de agregar, sino debe de esperar a que seleccionen 
+                Exit Sub
+                DdlSeccionPSAdd.Focus()
+                TdSeccionPSAdd.Visible = True
+            Else
+                CveSeccionAlmacen = DdlSeccionPSAdd.SelectedValue.ToEntero
+                SeccionAlmacen = DdlSeccionPSAdd.SelectedItem.Text
+            End If
+
+        End If
+
+        AddNew(Dr("CvePS").ToString.ToEntero, Dr("PSCodigo").ToString, Dr("CveUM").ToString.ToEntero, Dr("UnidadMedida").ToString, 1, Dr("CostoPromedio").ToString.ToDouble, "", "", "", "", "", "", MinFecha, CveSeccionAlmacen, SeccionAlmacen)
 
         TxtCodigoPS.Text = ""
         TxtCodigoPS.Focus()
@@ -2955,6 +3014,11 @@ Partial Class Inventarios_EntradasSalidas
         If TxtSeriePS.Text.Trim = "" Then
             Exit Sub
         End If
+        If TdSeccionPSAdd.Visible Then
+            If DdlSeccionAlmacen.SelectedValue.ToEntero <= 0 Then
+                Exit Sub
+            End If
+        End If
 
         AddNew(CvePSSerieLote, PSSerieLote, CveUMSerieLote, UMSerieLote, 1, 0, TxtSeriePS.Text.Trim, "", "", "", "", "", MinFecha, -1, "")
 
@@ -3470,9 +3534,9 @@ Partial Class Inventarios_EntradasSalidas
             Dim PS As String = ""
 
             Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenEntrada.SelectedValue.ToEntero
-            Dim Serie As String = If(TxtSerieEntrada.Text = "", "-1", TxtSerieEntrada.Text)
+            Dim Serie As String = If(TxtSerieEntrada.Text = "", "", TxtSerieEntrada.Text)
-            Dim Lote As String = If(TxtLoteEntrada.Text = "", "-1", TxtLoteEntrada.Text)
+            Dim Lote As String = If(TxtLoteEntrada.Text = "", "", TxtLoteEntrada.Text)
-            Dim Caducidad As String = If(TxtCaducidadEntrada.Text = "", "-1", TxtCaducidadEntrada.Text)
+            Dim Caducidad As String = If(TxtCaducidadEntrada.Text = "", MinFecha.ToShortDateString, TxtCaducidadEntrada.Text)
 
             Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
             If dr IsNot Nothing Then
@@ -3507,6 +3571,12 @@ Partial Class Inventarios_EntradasSalidas
         GvEntradas.DataSource = DtTemp
         GvEntradas.DataBind()
         UpEntradasGv.Update()
+        If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
+            GvEntradas.Columns(3).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0
+            GvEntradas.Columns(4).Visible = DtTemp.MAX("Serie") <> ""
+            GvEntradas.Columns(5).Visible = DtTemp.MAX("Lote") <> ""
+            GvEntradas.Columns(6).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
+        End If
     End Sub
 
     Protected Sub DdlPSInvFisico_ValueChanged(sender As Object, e As EventArgs) Handles DdlPS.selectedindexchange
@@ -3576,9 +3646,9 @@ Partial Class Inventarios_EntradasSalidas
             Dim PS As String = ""
 
             Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenSalida.SelectedValue.ToEntero
-            Dim Serie As String = If(TxtSerieSalida.Text = "", "-1", TxtSerieSalida.Text)
+            Dim Serie As String = If(TxtSerieSalida.Text = "", "", TxtSerieSalida.Text)
-            Dim Lote As String = If(TxtLoteSalida.Text = "", "-1", TxtLoteSalida.Text)
+            Dim Lote As String = If(TxtLoteSalida.Text = "", "", TxtLoteSalida.Text)
-            Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", "-1", TxtCaducidadSalida.Text)
+            Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", MinFecha.ToShortDateString, TxtCaducidadSalida.Text)
 
             Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
             If dr IsNot Nothing Then
@@ -3613,6 +3683,12 @@ Partial Class Inventarios_EntradasSalidas
         GvSalidas.DataSource = DtTemp
         GvSalidas.DataBind()
         UpSalidaGv.Update()
+        If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
+            GvSalidas.Columns(2).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0
+            GvSalidas.Columns(3).Visible = DtTemp.MAX("Serie") <> ""
+            GvSalidas.Columns(4).Visible = DtTemp.MAX("Lote") <> ""
+            GvSalidas.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
+        End If
     End Sub
 
     Protected Sub DeleteRowInvFisicoSalida(ByVal sender As Object, ByVal e As EventArgs)
@@ -4301,17 +4377,24 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
 
     Private Sub ActualizarPS()
+
         Dim ObjInventario As New ClsInventarios
-        If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDouble, DdlUnidad.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDouble, CveAFEdit,
+        If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDouble, DdlUnidad.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDouble, CveAFEdit,
                                                      CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerie.Text, TxtObservacionesdetalle.Text,
                                                      CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
             Alert("Error al Actualizar los movimientos")
+        Else
+            Alert("Movimiento actualizado correctamente")
+            RegistraScript("$('#ModalAgregar').modal('hide')")
         End If
         ObjInventario.Dispose()
     End Sub
 
     Private Sub limpiarModalDetalle()
-
+        txtCantidad.Enabled = True
+        DdlClasificacion.Enabled = True
+        DdlProducto2.Enabled = True
+        DdlUnidad.Enabled = True
         divCantidad.Visible = True
         divClasificacionProducto.Visible = True
         divUnidadMedida.Visible = True
@@ -4324,7 +4407,7 @@ Partial Class Inventarios_EntradasSalidas
         TxtnLote.Text = ""
         TxtnFechaCaducidad.Text = ""
         TxtObservacionesdetalle.Text = ""
-        DdlSeccionAlmacen.SelectedValue = "-1"
+        DdlSeccionAlmacen.ClearSelection()
         LkAgregarDetalle.Text = "Agregar"
         If DdlMonedaTC.SelectedValue.ToEntero = 2 Then
             VisualizaPUExtranjero(UsuarioActual.TienePermisoProceso(201))

Inventarios/EntregaAlmacen.aspx

@@ -21,20 +21,22 @@
         }
 
         .gvInventario tr td:nth-child(4) {
-            width: 18% !important;
+            width: 12% !important;
             text-align: center !important;
         }
 
         .gvInventario tr th:nth-child(4) {
-            width: 18% !important;
+            width: 12% !important;
         }
 
         .gvEscondeColumna tr td:nth-child(3) {
             display: none;
+            width:0px;
         }
 
         .gvEscondeColumna tr th:nth-child(3) {
             display: none;
+            width:0px;
         }
 
         .btn.default:hover {
@@ -406,6 +408,12 @@
                     <asp:UpdatePanel runat="server">
                         <ContentTemplate>
                             <div class="row" runat="server" id="DivCodigoSeriePS" visible="false">
+                                
+                                <div class="col-md-2 pull-right">
+                                    <div class="btn-group" style="float: right;">
+                                        <asp:Button ID="BtnVerSugerencias" CssClass="btn green-haze btn-outline btn-circle btn-sm" OnClick="BtnVerSugerencias_Click" runat="server" Text="Ver Secciones" />
+                                    </div>
+                                </div>
                                 <div class="col-md-4 pull-right">
                                     <table style="float: right;">
                                         <tr>
@@ -429,40 +437,32 @@
                         </ContentTemplate>
                     </asp:UpdatePanel>
 
-                    <div class="row">
-                        <div class="col-md-12">
-                            <div class="btn-group pull-right">
-                                <asp:Button ID="BtnVerSugerencias" CssClass="btn green-haze btn-outline btn-circle btn-sm" OnClick="BtnVerSugerencias_Click" runat="server" Text="Ver Secciones" />
-                            </div>
-                        </div>
-                    </div>
                    
                     <%--GV DATOS--%>
                     <asp:GridView ID="GvDatos" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True"
-                        DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,AplicaSerieLote,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveVentaDetalle,CveTamaño,AplicaSeccion, AplicaSerie,AplicaLote,AplicaCaducidad" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
+                        DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,AplicaSerieLote,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveVentaDetalle,CveTamaño,AplicaSeccion, AplicaSerie,AplicaLote,AplicaCaducidad" HeaderStyle-CssClass="Titulos"  CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
-                        <HeaderStyle Height="58px" />
+                        <HeaderStyle Height="30px" />
                         <Columns>
                             <asp:TemplateField>
                                 <ItemTemplate>
                                     <asp:CheckBox ID="cbInv" runat="server" Checked="true" />
                                 </ItemTemplate>
-                                <ItemStyle HorizontalAlign="Center" Width="5%" />
+                                <ItemStyle HorizontalAlign="Center" Width="2.5%" />
                             </asp:TemplateField>
-                            <asp:BoundField HeaderText="Cant. Venta" DataField="CantidadC" DataFormatString="{0:#,##0.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
+                            <asp:BoundField HeaderText="Cant. Venta" DataField="CantidadC" DataFormatString="{0:#,##0.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
 
-                            <asp:BoundField HeaderText="Cant. Surtida" DataField="CantidadS" DataFormatString="{0:#,##0.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
+                            <asp:BoundField HeaderText="Cant. Surtida" DataField="CantidadS" DataFormatString="{0:#,##0.######}" ItemStyle-HorizontalAlign="Right" />
-                            <asp:TemplateField HeaderText="Cant. a Surtir" ItemStyle-Width="10%">
+                            <asp:TemplateField HeaderText="Cant. a Surtir" >
                                 <ItemTemplate>
-                                    <asp:TextBox ID="TbCantidadF" runat="server" Width="60px" Mask="9,999.99" DataFormatString="{0:#,##0.######}" style="text-align: right" Text='<%# Eval("CantidadF") %>'></asp:TextBox>
+                                    <asp:TextBox ID="TbCantidadF" runat="server" Width="50px" Mask="9,999.99" DataFormatString="{0:#,##0.######}" style="text-align: right" Text='<%# Eval("CantidadF", "{0:#,##0.######}") %>'></asp:TextBox>
                                     <asp:Button Text="Serie" ID="BtnSerie" OnClick="BtnSerie_Click" CssClass="btn btn-primary btn-xs" runat="server" />
                                 </ItemTemplate>                               
-                                <HeaderStyle CssClass="Titulos" />
                             </asp:TemplateField>
-                            <asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
+                            <asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
-                            <asp:HyperLinkField HeaderText="Producto o Servicio" Target="_blank" DataTextField="CodigoPS" DataNavigateUrlFields="CvePS" DataNavigateUrlFormatString="/Ventas/ProductosServicios.aspx?CvePS={0}" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="35%" />
+                            <asp:HyperLinkField HeaderText="Producto o Servicio" Target="_blank" DataTextField="CodigoPS" DataNavigateUrlFields="CvePS" DataNavigateUrlFormatString="/Ventas/ProductosServicios.aspx?CvePS={0}" ItemStyle-HorizontalAlign="Left" />
                             <asp:BoundField HeaderText="Observación" DataField="ObservacionesDetalle" ItemStyle-Width="7.5%" />
 
-                            <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
+                            <asp:TemplateField HeaderText="Sección" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">
                                 <ItemTemplate>
                                     <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" DataValueField="CveSeccionAlmacen" CssClass="select2me" Style="width: 85% !important" runat="server" CausesValidation="true" Visible="false">
                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>

Inventarios/EntregaAlmacen.aspx.vb

@@ -7,6 +7,7 @@ Imports System.IO
 Imports Extensiones
 
 Imports Microsoft.Reporting.WebForms
+Imports Stimulsoft.Base.Indicator
 
 Partial Class Inventarios_EntregaAlmacen
     Inherits ClsPaginas
@@ -886,9 +887,14 @@ Partial Class Inventarios_EntregaAlmacen
             If CBool(e.Row.DBCampo("AplicaSeccion")) Then
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
                 If DdlAlmacen.SelectedValue.ToEntero > 0 Then
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                    CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa, True)
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
+                    'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
+                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
+                    'If dtt.Rows.Count > 1 Then
+                    '    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    'End If
+                    'dtt.Dispose()
                 End If
 
             Else
@@ -923,7 +929,7 @@ Partial Class Inventarios_EntregaAlmacen
                     If e.Row.DBCampo("Inv_CveMetodoInventario").Contiene("5", "6") Then
                         e.Row.FCTextBox("TbCantidadF").Enabled = False
                     Else
-                        e.Row.FCTextBox("TbCantidadF").Text = e.Row.DBCampo("CantidadF").FormatoNumero()
+                        e.Row.FCTextBox("TbCantidadF").Text = e.Row.DBCampo("CantidadF").ToDecimal.ToString("#,##0.######")
                     End If
                 End If
 
@@ -1716,10 +1722,10 @@ Partial Class Inventarios_EntregaAlmacen
                         If CBool(Dr("AplicaSerie")) Then
                             DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Dr("Consec")))
                             For Each Dr1 As DataRow In DtDetalle.Rows
-                                StrXML.AppendFormat("<concepto CvePS=""{0}"" CveUM=""{1}"" Cantidad= ""{2}"" CveSeccionAlmacen=""{3}""  Serie=""{4}"" Lote=""{5}"" FechaCaducidad=""{6}"" ></concepto>", Dr1("CvePS"), Dr1("CveUM"), 1, IfNull(Dr("CveSeccion"), -1), Dr1("Serie"), Lote, FechaCaducidad.ToString("yyyy/MM/dd"))
+                                StrXML.AppendFormat("<concepto CvePS=""{0}"" CveUM=""{1}"" Cantidad= ""{2}"" CveSeccionAlmacen=""{3}"" Serie=""{4}"" Lote=""{5}"" FechaCaducidad=""{6}""></concepto>", Dr1("CvePS"), Dr1("CveUM"), 1, IfNull(Dr("CveSeccion"), -1), Dr1("Serie"), Lote, FechaCaducidad.ToString("yyyy/MM/dd"))
                             Next
                         Else
-                            StrXML.AppendFormat("<concepto CvePS=""{0}"" CveUM=""{1}"" Cantidad= ""{2}"" CveSeccionAlmacen=""{3}""  Serie=""{4}"" Lote=""{5}"" FechaCaducidad=""{6}"" ></concepto>", Dr("CvePS"), Dr("CveUM"), Dr("CantidadGV"), IfNull(Dr("CveSeccion"), -1), "-1", Lote, FechaCaducidad.ToString("yyyy/MM/dd"))
+                            StrXML.AppendFormat("<concepto CvePS=""{0}"" CveUM=""{1}"" Cantidad= ""{2}"" CveSeccionAlmacen=""{3}"" Serie=""{4}"" Lote=""{5}"" FechaCaducidad=""{6}""></concepto>", Dr("CvePS"), Dr("CveUM"), Dr("CantidadGV"), IfNull(Dr("CveSeccion"), -1), "-1", Lote, FechaCaducidad.ToString("yyyy/MM/dd"))
                         End If
                     End If
                 Next
@@ -1956,8 +1962,15 @@ Partial Class Inventarios_EntregaAlmacen
                         Dr1("FolioEntrada") = FolioEntrada
 
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+                            Dim CveSeccionAlmacen As Integer = -1
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                If CBool(Dr("AplicaSeccion")) Then
+                                    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExA, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                                Else
+                                    CveSeccionAlmacen = -1
+                                End If
+
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                     ErrorMovInv = True
                                     TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                     Exit For
@@ -1998,6 +2011,7 @@ Partial Class Inventarios_EntregaAlmacen
                                 DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Dr("Consec")))
                                 For Each Dr1 As DataRow In DtDetalle.Rows
                                     If ObjInventario.GetExistenciasProducto(Dr1("CvePS").ToString.ToEntero, Dr1("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Dr1("Serie").ToString, CveTipoAlmacen:=9, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=-1, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                        Dim CveSeccionAlmacen As Integer = 0
                                         For Each Dr2 As DataRow In ObjInventario.DtResultados.FiltraParametros("CveAlmacen > 0 AND ExistenciaFinal > 0").Rows
 
                                             'BUSCA SI EXISTE YA UN TRASPASO DEL ALMACEN DE APARTADO
@@ -2027,8 +2041,14 @@ Partial Class Inventarios_EntregaAlmacen
 
 
                                             CantidadPendiente = 1
+                                            If CBool(Dr("AplicaSeccion")) Then
+                                                CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr2("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                                                Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr2("CveAlmacen"), Dr("CvePS"), CveSeccionAlmacen)
+                                            Else
+                                                CveSeccionAlmacen = -1
+                                            End If
 
-                                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendiente.ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, Serie:=Dr1("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendiente.ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, Serie:=Dr1("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                                 ErrorMovInv = True
                                                 TextoError.AppendFormat("Ocurrió un Error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                                 Exit For
@@ -2458,7 +2478,7 @@ Partial Class Inventarios_EntregaAlmacen
                         Dim CveMovimientoSalidaApartado = -1
                         Dim CveAlmacenApartado = -1
                         Dim CveAlmacenOrigen = If(CveAlmacenTraspasoDestino > 0, CveAlmacenTraspasoDestino, DdlAlmacen.SelectedValue.ToEntero)
-
+                        Dim CveSeccionAlmacen As Integer = 0
                         For Each Dr As DataRow In DtTempApartados.Rows
 
                             If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString.ToEntero Then
@@ -2481,8 +2501,13 @@ Partial Class Inventarios_EntregaAlmacen
                                 TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de control de apartados")
                                 Exit For
                             End If
-
+                            If CBool(Dr("AplicaSeccion")) Then
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
+                                CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenOrigen, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                                Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", CveAlmacenOrigen, Dr("CvePS"), CveSeccionAlmacen)
+                            Else
+                                CveSeccionAlmacen = -1
+                            End If
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                 ErrorMovInv = True
                                 TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de control de apartados")
                                 Exit For
@@ -2510,7 +2535,14 @@ Partial Class Inventarios_EntregaAlmacen
 
                                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
+                                        If CBool(Dr("AplicaSeccion")) Then
+                                            CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                                            Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS"), CveSeccionAlmacen)
+                                        Else
+                                            CveSeccionAlmacen = -1
+                                        End If
+
+                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                             ErrorMovInv = True
                                             TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                             Exit For
@@ -3201,71 +3233,75 @@ Partial Class Inventarios_EntregaAlmacen
             tCvecliente = dr("CveCliente").ToString.ToEntero
 
             Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
-            Destinatario += String.Format(";{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
+            If drC IsNot Nothing Then
 
-            Dim ClienteNombre As String = dr("ClienteNombre").ToString()
+                Destinatario += String.Format(";{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
-            Dim FolioVenta As String = dr("SerieFolio").ToString()
-            Dim Pedido As String = dr("PedidoContrato").ToString()
-            Dim OrdenCompra As String = dr("OrdenCompra").ToString()
-            Dim CveVenta As Integer = dr("CveVenta").ToString().ToEntero()
-            Dim TipoDocto As String = dr("TipoDocto").ToString()
 
-            Dim dtDetalle As New DataTable
+                Dim ClienteNombre As String = dr("ClienteNombre").ToString()
-            If ObjVentas.GetVentaDetalle(CveVenta) Then
+                Dim FolioVenta As String = dr("SerieFolio").ToString()
-                dtDetalle = ObjVentas.DtResultados
+                Dim Pedido As String = dr("PedidoContrato").ToString()
+                Dim OrdenCompra As String = dr("OrdenCompra").ToString()
+                Dim CveVenta As Integer = dr("CveVenta").ToString().ToEntero()
+                Dim TipoDocto As String = dr("TipoDocto").ToString()
+
+                Dim dtDetalle As New DataTable
+                If ObjVentas.GetVentaDetalle(CveVenta) Then
+                    dtDetalle = ObjVentas.DtResultados
+                End If
+                Dim DetalleTable As String = ""
+                For Each dRow As DataRow In dtDetalle.Rows
+                    Dim detalle As String = String.Format("<tr><td style='width:25%'>{0}</td><td style='width:25%'>{1}</td><td style='width:50%'>{2}</td></tr>", dRow("Codigo"), dRow("Cantidad"), dRow("PS"))
+                    DetalleTable += detalle
+                Next
+
+                strBody.Append("<html>")
+                strBody.Append("<head>")
+                strBody.Append("<meta charset='UTF-8'>")
+                strBody.Append("</head>")
+                strBody.Append("  <body style='width:800px'>")
+                strBody.Append("<div>")
+                strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>")
+                strBody.Append("</div>")
+                strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
+                strBody.Append($"      Apreciable {ClienteNombre}, le confirmamos los")
+                strBody.Append("      productos surtidos y entregados en mostrador conforme a la")
+                strBody.Append($"      {TipoDocto}:")
+                strBody.Append("    </p>")
+                strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>")
+                strBody.Append("  <div style='width:100%;text-align:center'>")
+                strBody.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>")
+                strBody.Append(DetalleTable)
+                strBody.Append("    ")
+                strBody.Append("    </table>")
+                strBody.Append("  </div>")
+                strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
+                strBody.Append("      Se entregaron los productos conforme a las especificaciones de su pedido y verificamos que no se presentara alguno de los siguientes inconvenientes:")
+                strBody.Append("    </p>")
+                strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
+                strBody.Append("      •        Empaque violado.<br/>")
+                strBody.Append("•        Daño físico en la caja.<br/>")
+                strBody.Append("•        Producto incompleto o distinto al solicitado.<br/>")
+                strBody.Append("•        Alguna otra situación que se considere que compromete la integridad de la mercancía.<br/>")
+                strBody.Append("")
+                strBody.Append("    </p>")
+                strBody.Append("    <br/>")
+                strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
+                strBody.Append($"      Aceptando a entera satisfacción a las {Today.Hour}:{Today.Minute} hrs del {Today.ToString}")
+                strBody.Append("    </p>")
+                strBody.Append("    <br/>")
+                strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
+                strBody.Append("      Gracias por su compra <br/>")
+                'strBody.Append("      Compuproveedores")
+                strBody.Append("    </p>")
+                strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>")
+                strBody.Append("      Sigue disfrutando de nuestros productos y servicios<br/>")
+                'strBody.Append("      <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>")
+                strBody.Append("")
+                strBody.Append("    </p>")
+                strBody.Append("  </body>")
+                strBody.Append("</html>")
             End If
-            Dim DetalleTable As String = ""
-            For Each dRow As DataRow In dtDetalle.Rows
-                Dim detalle As String = String.Format("<tr><td style='width:25%'>{0}</td><td style='width:25%'>{1}</td><td style='width:50%'>{2}</td></tr>", dRow("Codigo"), dRow("Cantidad"), dRow("PS"))
-                DetalleTable += detalle
-            Next
 
-            strBody.Append("<html>")
-            strBody.Append("<head>")
-            strBody.Append("<meta charset='UTF-8'>")
-            strBody.Append("</head>")
-            strBody.Append("  <body>")
-            strBody.Append("<div>")
-            strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>")
-            strBody.Append("</div>")
-            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
-            strBody.Append($"      Apreciable {ClienteNombre}, le confirmamos los")
-            strBody.Append("      productos surtidos y entregados en mostrador conforme a la")
-            strBody.Append($"      {TipoDocto}:")
-            strBody.Append("    </p>")
-            strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>")
-            strBody.Append("  <div style='width:100%;text-align:center'>")
-            strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>")
-            strBody.Append(DetalleTable)
-            strBody.Append("    ")
-            strBody.Append("    </table>")
-            strBody.Append("  </div>")
-            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
-            strBody.Append("      Se entregaron los productos conforme a las especificaciones de su pedido y verificamos que no se presentara alguno de los siguientes inconvenientes:")
-            strBody.Append("    </p>")
-            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
-            strBody.Append("      •        Empaque violado.<br/>")
-            strBody.Append("•        Daño físico en la caja.<br/>")
-            strBody.Append("•        Producto incompleto o distinto al solicitado.<br/>")
-            strBody.Append("•        Alguna otra situación que se considere que compromete la integridad de la mercancía.<br/>")
-            strBody.Append("")
-            strBody.Append("    </p>")
-            strBody.Append("    <br/>")
-            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
-            strBody.Append($"      Aceptando a entera satisfacción a las {Today.Hour}:{Today.Minute} hrs del {Today.ToString}")
-            strBody.Append("    </p>")
-            strBody.Append("    <br/>")
-            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
-            strBody.Append("      Gracias por su compra <br/>")
-            'strBody.Append("      Compuproveedores")
-            strBody.Append("    </p>")
-            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>")
-            strBody.Append("      Sigue disfrutando de nuestros productos y servicios<br/>")
-            'strBody.Append("      <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>")
-            strBody.Append("")
-            strBody.Append("    </p>")
-            strBody.Append("  </body>")
-            strBody.Append("</html>")
         End If
         ObjVentas.Dispose()
 

Inventarios/EntregasPorRealizar.aspx.cs

@@ -104,7 +104,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
 
     private void CargarPersonal()
     {
-        DataTable UsuariosConRolLogistico = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("CveRol IN (1339,1386,1430)");
+        DataTable UsuariosConRolLogistico = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("CveRol IN (1339,1386,1430,1155)");
         DdlUsuario.DataSource = UsuariosConRolLogistico;
         DdlUsuario.DataBind();
         DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1"));
@@ -151,7 +151,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         strBody.Append("<head>");
             strBody.Append("<meta charset='UTF-8'>");
             strBody.Append("</head>");
-        strBody.Append("  <body>");
+        strBody.Append("  <body style='width:800px'>");
         strBody.Append("<div>");
         strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
         strBody.Append("</div>");
@@ -161,7 +161,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         strBody.Append("    </p>");
         strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
         strBody.Append("  <div style='width:100%;text-align:center'>");
-        strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
+        strBody.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>");
         strBody.Append(DetalleTable);
         strBody.Append("    </table>");
         strBody.Append("  </div>");

Inventarios/InventarioFisicoDetalle.aspx

@@ -229,7 +229,7 @@
                                 <div class="row" style="margin-top: 5px;">
                                     <label class="col-md-4">Código.Barras</label>
                                     <div class="col-md-8">
-                                        <asp:TextBox runat="server" ID="TxtCodigoBarras" OnTextChanged="TxtCodigoBarras_Change" AutoPostBack="true"></asp:TextBox>
+                                        <asp:TextBox runat="server" ID="TxtCodigoBarras"  ></asp:TextBox>
                                     </div>
                                 </div>
                                 <div class="row" style="margin-top: 5px;" runat="server" id="divSerie" visible="false">
@@ -241,22 +241,22 @@
 
                                     </div>
                                 </div>                                
-                                <div class="row" style="margin-top: 5px;" runat="server" id="divSeccionAlmacen" visible="false">
-                                    <label class="col-md-4">Sección Almacén</label>
-                                    <div class="col-md-8">
-                                        <asp:DropDownList ID="DdlSeccionAlmacen" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="SeccionAlmacen" DataValueField="CveSeccionAlmacen" ></asp:DropDownList>
-                                    </div>
-                                </div>
                                 <div class="row" style="margin-top: 5px;" runat="server" id="divLote" visible="false">
                                     <label class="col-md-4">Lote</label>
                                     <div class="col-md-8">
                                         <asp:TextBox runat="server" ID="TxtLote"></asp:TextBox>
+                                        <asp:RequiredFieldValidator runat="server" ID="RFVLote" ControlToValidate="TxtLote" Enabled="false" ValidationGroup="GrpIngresar" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Lote''</b> es necesario, por favor ingrése una." Display="Dynamic" Text="*"></asp:RequiredFieldValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCELote" runat="server" HighlightCssClass="vco" TargetControlID="RFVLote" Width="300px"></ajax:ValidatorCalloutExtender>
+
                                     </div>
                                 </div>
                                 <div class="row" style="margin-top: 5px;" runat="server" id="divFechaCaducidad" visible="false">
                                     <label class="col-md-4">Fecha Caducidad</label>
                                     <div class="col-md-8">
                                         <asp:TextBox runat="server" ID="TxtFechaCaducidad"></asp:TextBox>
+                                        <asp:RequiredFieldValidator runat="server" ID="RFVCaducidad" ControlToValidate="TxtFechaCaducidad" Enabled="false" ValidationGroup="GrpIngresar" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Caducidad''</b> es necesario, por favor ingrése una." Display="Dynamic" Text="*"></asp:RequiredFieldValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCECaducidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCaducidad" Width="300px"></ajax:ValidatorCalloutExtender>
+
                                     </div>
                                 </div>
                                 <div class="row" style="margin-top: 5px;">
@@ -325,7 +325,7 @@
                             <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
                             <asp:BoundField HeaderText="Serie" DataField="SerieLote" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
                             <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
-                            <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
+                            <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" Visible="false"></asp:BoundField>
                             <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"></asp:BoundField>
                         </Columns>
                     </asp:GridView>
@@ -349,7 +349,7 @@
                     <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
                     <asp:BoundField HeaderText="Serie/Lote" DataField="SerieLote" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
-                    <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
+                    <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" Visible="false" DataFormatString="{0:d}"></asp:BoundField>
                     <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"></asp:BoundField>
                     <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -57,7 +57,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
 
 #Region "  USUARIOS  "
     Private Sub CargaUsuarios()
-        ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre")
         ddlUsuario.DataBind()
         UPPInventario.Update()
         ddlUsuario.SelectedValue = UsuarioActual.CveUsuario.ToString
@@ -89,9 +89,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
     Private Sub CargaDatos(CveInventarioFisico As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1)
 
         Dim ObjInventario As New ClsInventarios
-        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+
-        DdlSeccionAlmacen.DataBind()
-        DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
         If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
             Dim CveEstatus = ObjInventario.DtResultados.FiltroPrimeroValor("CveEstatus")
             Select Case CveEstatus
@@ -208,7 +206,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
             lbFechaI.Text = ObjInventario.FechaI
             lbFechaF.Text = ObjInventario.FechaF
 
-            Alert("Ocurrió un error al obterner el inventario fisico")
+            Alert("Ocurrió un error al obterner el inventario fisico", TipoMensaje.MsgError)
         End If
 
         ObjInventario.Dispose()
@@ -230,9 +228,10 @@ Partial Class Inventarios_InventarioFisicoDetalle
         Dim Inventario As New ClsInventarios
         If Inventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero) Then
             If Inventario.DtResultados.Rows.Count > 0 Then
-                GvIFD.Columns(4).Visible = Inventario.DtResultados.MAX("CveSeccionAlmacen") > 0
+                GvIFD.Columns(4).Visible = Inventario.DtResultados.MAX("CveSeccionAlmacen", "CveSeccionAlmacen IS NOT NULL").ToEntero > 0
+                GvIFD.Columns(5).Visible = Inventario.DtResultados.MAX("SerieLote") <> ""
                 GvIFD.Columns(6).Visible = Inventario.DtResultados.MAX("Lote") <> ""
-                GvIFD.Columns(7).Visible = Inventario.DtResultados.MAX("FechaCaducidad").ToDate > MinFecha
+                GvIFD.Columns(7).Visible = Inventario.DtResultados.MAX("FechaCaducidad", "FechaCaducidad IS NOT NULL").ToDate > MinFecha
                 GvIFD.DataSource = Inventario.DtResultados '.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(500).CopyToDataTable
             Else
                 GvIFD.DataSource = Nothing
@@ -259,23 +258,35 @@ Partial Class Inventarios_InventarioFisicoDetalle
         Dim CveUnidadMedida As Integer
         Dim Codigo As String = If(TxtCodigo.Text.Trim <> "", TxtCodigo.Text.Trim, "-1").Replace("'", "''") ' scanner cambian los guiones por apostrofes
         Dim CodigoBarras As String = If(TxtCodigoBarras.Text.Trim <> "", TxtCodigoBarras.Text.Trim, "-1").Replace("'", "''") ' scanner cambian los guiones por apostrofes
-        Dim SeccionAlmacen As String = If(DdlSeccionAlmacen.SelectedValue.ToEntero > -1, DdlSeccionAlmacen.SelectedItem.Text, "")
+        Dim Serie As String = TxtCodigoSerie.Text.Trim
-        Dim CveSeccionAlmacen As Integer = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedValue.ToEntero, -1)
-        Dim SerieLote As String = TxtCodigoSerie.Text.Trim
         Dim Lote As String = If(TxtLote.Text.Length > 0, TxtLote.Text, "-1")
-        Dim FechaCaducidad As String = If(TxtFechaCaducidad.Text.Length > 0, TxtFechaCaducidad.Text, MinFecha.ToString)
+        Dim FechaCaducidad As String=MinFecha.ToString
-        Dim CveMetodoInv As Integer = -1
+        Dim CveSeccionAlmacen As Integer = -1
+
         Dim Cantidad = TxtCantidadProducto.Text.ToDouble
 
         Dim dr As DataRow
-        dr = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}' OR Codigo = '{Codigo}' ")
+        'dr = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}' OR Codigo = '{Codigo}' ")
+        dr = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}' OR Codigo = '{Codigo}'")
+
+
 
         If dr IsNot Nothing Then
-            CveMetodoInv = dr("Inv_CveMetodoInventario").ToString.ToEntero
+
             CveProducto = dr("CvePS").ToString.ToEntero
             CveUnidadMedida = dr("CveUnidadMedida").ToString.ToEntero
+            'Dim AplicaSeccion As Boolean = dr("AplicaSeccion") = "1"
+            Dim AplicaCaducidad As Boolean = dr("AplicaCaducidad") = "1"
+            Dim AplicaLote As Boolean = dr("AplicaLote") = "1"
+            Dim AplicaSerie As Boolean = dr("AplicaSerie") = "1"
 
-            If CveMetodoInv = 5 And SerieLote = "" Then
+            'divSeccionAlmacen.Visible = AplicaSeccion
+            divLote.Visible = AplicaLote
+            divFechaCaducidad.Visible = AplicaCaducidad
+            divSerie.Visible = AplicaSerie
+            UPAgregarPro.Update()
+
+            If AplicaSerie And Serie = "" Then
                 RFVSerie.Enabled = True
                 RFVSerie.Visible = True
                 RFVSerie.SetFocusOnError = True
@@ -283,34 +294,57 @@ Partial Class Inventarios_InventarioFisicoDetalle
                 RFVSerie.ValidationGroup = " "
                 Exit Sub
             End If
+            If AplicaLote And Lote = "" Then
+                RFVLote.Enabled = True
+                RFVLote.Visible = True
+                RFVLote.SetFocusOnError = True
+                RFVLote.Validate()
+                RFVLote.ValidationGroup = " "
+                Exit Sub
+            End If
+            If AplicaCaducidad Then
+                If TxtFechaCaducidad.Text.Trim = "" Then
+                    RFVCaducidad.Enabled = True
+                    RFVCaducidad.Visible = True
+                    RFVCaducidad.SetFocusOnError = True
+                    RFVCaducidad.Validate()
+                    RFVCaducidad.ValidationGroup = " "
+                    Exit Sub
+                End If
+                FechaCaducidad = If(TxtFechaCaducidad.Text.Length > 0, TxtFechaCaducidad.Text, MinFecha.ToString)
+            End If
 
             RFVSerie.ValidationGroup = "GrpIngresar"
             RFVSerie.Enabled = False
+            RFVLote.ValidationGroup = "GrpIngresar"
+            RFVLote.Enabled = False
+            RFVCaducidad.ValidationGroup = "GrpIngresar"
+            RFVCaducidad.Enabled = False
 
             'VALIDA QUE LA SERIE NO SEA IGUAL AL CODIGO O CODIGOBARRAS
-            If SerieLote <> "" And (SerieLote.ToUpper = dr("Codigo").ToString.ToUpper Or SerieLote.ToUpper = dr("CodigoBarras").ToString.ToUpper) Then
+            If Serie <> "" And (Serie.ToUpper = dr("Codigo").ToString.ToUpper Or Serie.ToUpper = dr("CodigoBarras").ToString.ToUpper) Then
-                Alert($"La serie indicada <b>{SerieLote}</b> coincide con el codigo o codigo de barras del producto. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+                Alert($"La serie indicada <b>{Serie}</b> coincide con el codigo o codigo de barras del producto. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
 
             Dim Consulto As Boolean = False
             Using Inventarios As New ClsInventarios
 
-                If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario,
+                If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(AplicaSerie, 1, Cantidad), Serie, UsuarioActual.CveUsuario,
-                                                          CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, FechaCaducidad:=FechaCaducidad.ToDate) Then
+                                                          CveSeccionAlmacen:=-1, Lote:=Lote, FechaCaducidad:=FechaCaducidad.ToDate) Then
 
                     GvIFDUltimoRegistrado.Columns(4).Visible = CveSeccionAlmacen > 0
-                    GvIFDUltimoRegistrado.Columns(5).Visible = SerieLote <> "-1"
+                    GvIFDUltimoRegistrado.Columns(5).Visible = Serie <> ""
                     GvIFDUltimoRegistrado.Columns(6).Visible = Lote <> "-1"
-                    GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad <> "01/01/1900"
+                    GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad.ToDate > MinFecha
 
                     If GvIFDUltimoRegistrado.Rows.Count > 0 Then
 
                         GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
                         GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
                         GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
-                        GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString
+                        GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PSCodigo").ToString
-                        GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = SeccionAlmacen
+                        GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = ""
                         GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCodigoSerie.Text.Trim
                         GvIFDUltimoRegistrado.Rows(0).Cells(6).Text = Lote
                         GvIFDUltimoRegistrado.Rows(0).Cells(7).Text = FechaCaducidad
@@ -332,9 +366,11 @@ Partial Class Inventarios_InventarioFisicoDetalle
                     TxtCodigoSerie.Text = ""
                     TxtCodigo.Text = ""
                     TxtCantidadProducto.Text = "1"
-                    DdlSeccionAlmacen.SelectedValue = "-1"
                     TxtLote.Text = ""
                     TxtFechaCaducidad.Text = ""
+                    divLote.Visible = False
+                    divFechaCaducidad.Visible = False
+                    divSerie.Visible = False
                     RegistraScript("playsonidito('beep-07.wav')")
                 Else
                     TxtCodigoSerie.Text = ""
@@ -347,7 +383,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
             TxtCodigoBarras.Text = ""
             TxtCodigoSerie.Text = ""
             TxtCodigo.Text = ""
-            DdlSeccionAlmacen.SelectedValue = "-1"
+            divLote.Visible = False
+            divFechaCaducidad.Visible = False
+            divSerie.Visible = False
             TxtLote.Text = ""
             TxtFechaCaducidad.Text = ""
             Alert("No se encontró el producto, favor de escribirlo correctamente.", TipoMensaje.MsgError)
@@ -522,18 +560,21 @@ Partial Class Inventarios_InventarioFisicoDetalle
         '
     End Sub
 
-    Protected Sub TxtCodigoBarras_Change(sender As Object, e As EventArgs)
+    'Protected Sub TxtCodigoBarras_Change(sender As Object, e As EventArgs)
-        Dim Producto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text}'")
+    '    Dim Producto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text}'")
 
-        Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1"
+    '    If Producto IsNot Nothing Then
-        Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1"
+    '        Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1"
-        Dim AplicaLote As Boolean = Producto("AplicaLote") = "1"
+    '        Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1"
-        Dim AplicaSerie As Boolean = Producto("AplicaSerie") = "1"
+    '        Dim AplicaLote As Boolean = Producto("AplicaLote") = "1"
+    '        Dim AplicaSerie As Boolean = Producto("AplicaSerie") = "1"
 
-        divSeccionAlmacen.Visible = AplicaSeccion
+    '        'divSeccionAlmacen.Visible = AplicaSeccion
-        divLote.Visible = AplicaLote
+    '        divLote.Visible = AplicaLote
-        divFechaCaducidad.Visible = AplicaCaducidad
+    '        divFechaCaducidad.Visible = AplicaCaducidad
-        divSerie.Visible = AplicaSerie
+    '        divSerie.Visible = AplicaSerie
-        UPAgregarPro.Update()
+    '    End If
-    End Sub
+
+    '    UPAgregarPro.Update()
+    'End Sub
 End Class

Inventarios/Kardex.aspx.vb

@@ -63,6 +63,7 @@ Partial Class Inventarios_Kardex
 #Region "   INICIALIZA VALORES   "
 
     Private Sub CargaPermisos()
+        If UsuarioActual.CveRol = 1 Then ChkAgruparAlmacen.Visible = True
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
         GvM.Columns(13).Visible = TienePermisoImportes ' costo
         GvM.Columns(14).Visible = TienePermisoImportes ' importe
@@ -168,9 +169,9 @@ Partial Class Inventarios_Kardex
 
         TxtSerie.Text = ""
         If ddlProducto2.SelectedValue.ToEntero > 0 Then
-            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, ddlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
+            Dim Dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=ddlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
             If Dr IsNot Nothing Then
-                If Dr("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then
+                If Dr("AplicaSerie").ToString = "True" Then
                     DivSerie.Visible = True
                 Else
                     DivSerie.Visible = False

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -105,6 +105,8 @@ Partial Class Inventarios_PrestamosdeProveedor
     End Sub
 
     Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
+
+
         If GvD.Rows.Count > 0 Then
 
             'Valida Movimientos
@@ -191,13 +193,21 @@ Partial Class Inventarios_PrestamosdeProveedor
                     If OrigenMov = 1 Then TipoMovtoAlmacen = False Else TipoMovtoAlmacen = True
 
                     Dim CveConceptoContable As Integer = 69
+                    '  Dim CveSubProyecto As Integer = 0
+                    Dim CveSubProyecto As Integer = -1
+                    If ObjInventario.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+                        CveSubProyecto = ObjInventario.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenOrigen.SelectedValue.ToEntero } ").FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
+                    End If
+
+
+
                     Dim CveClasifCosto As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", String.Format("CvePS ={0} ", CvePS))
                     IdCtaContableOtro = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasifCosto}").ToEntero
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservacionesEntrega.Text.Trim, 68, TxtObservacionesEntrega.Text.Trim, Fecha, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=tValorInventario) Then
                         ErrorMovInv = True
                     Else
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, -tValorInventario, TxtObservacionesEntrega.Text.Trim, CveConceptoContable, TxtObservacionesEntrega.Text.Trim, Fecha, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=CveClasifCosto, ImporteMX:=-tValorInventario) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, -tValorInventario, TxtObservacionesEntrega.Text.Trim, CveConceptoContable, TxtObservacionesEntrega.Text.Trim, Fecha, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=CveClasifCosto, ImporteMX:=-tValorInventario, CveSubProyecto:=CveSubProyecto) Then
                             ErrorMovInv = True
                         End If
                     End If

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1267,19 +1267,23 @@ Partial Class Inventarios_RecepcionAlmacen
             If CBool(e.Row.DBCampo("AplicaSeccion")) Then
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
                 If DdlAlmacen.SelectedValue.ToEntero > 0 Then
-                    Dim dtsec As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtsec
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                    If dtsec.Rows.Count = 1 Then
-                        e.Row.FCDropDownList("DdlSeccionAlmacen").SelectedIndex = 0
-                        e.Row.FCDropDownList("DdlSeccionAlmacen").Enabled = False
-                    End If
 
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa, True)
+                    'Dim dtsec As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtsec
+                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
+                    'If dtsec.Rows.Count = 1 Then
+                    '    e.Row.FCDropDownList("DdlSeccionAlmacen").SelectedIndex = 0
+                    '    e.Row.FCDropDownList("DdlSeccionAlmacen").Enabled = False
+                    'Else 'si es mayor a uno que por default seleccione el primero, que seria el predeterminado
+                    '    e.Row.FCDropDownList("DdlSeccionAlmacen").SelectedValueExist(dtsec.FiltroPrimeroValor("CveSeccionAlmacen", "Predeterminado = 1"))
+                    'End If
 
-                    dtsec.Dispose()
+                    'e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
-                    End If
+
-                    e.Row.FCTextBox("TxtDividir").Visible = True
+                    'dtsec.Dispose()
+                End If
+                e.Row.FCTextBox("TxtDividir").Visible = True
 
             Else
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = False
@@ -2159,7 +2163,8 @@ Partial Class Inventarios_RecepcionAlmacen
 
         Dim CveMovimiento As Integer
         Dim CveMovimientoOriginal As Integer
-        ' Dim CveMovimientoS
+
+        'Dim CveMovimientoS
 
         Dim InvFolio As String = ""
         Dim FechaMovto As Date = TxtFecha.Text.ToDate
@@ -2168,6 +2173,7 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim MensajeError = ""
 
         Dim ObjInventario As New ClsInventarios
+
         Dim ObjBitacora As New ClsOIEventos(ObjInventario.IniciaTransacSQL())
         Dim ObjCompras As New ClsCompras(ObjInventario.IniciaTransacSQL())
         Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
@@ -2382,6 +2388,8 @@ Partial Class Inventarios_RecepcionAlmacen
                         Dim CveClienteActual = -1
 
                         Dim CveAlmacenDestino = CveAlmacenApartado
+                        Dim CveSeccionDestino As Integer = -1
+
                         For Each Dr As DataRow In ObjInventario.DtResultados.Rows
 
                             If CveVendedorActual = -1 Or (Dr("CveVendedor").ToString.ToEntero <> CveVendedorActual Or Dr("CveCliente").ToString.ToEntero <> CveClienteActual) Then
@@ -2391,7 +2399,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                 MovtosSalida.Add(CveMovtoSalidaActual)
                                 FoliosSalida.Add(ObjInventario.Folio)
 
-                                CveMovtoEntradaActual = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveAlmacenDestino:=CveAlmacenDestino, CveMovimientoRelacionado:=CveMovtoSalidaActual, CveVendedor:=Dr("CveVendedor").ToString.ToEntero, CveCliente:=Dr("CveCliente").ToString.ToEntero, Remision:=TxtRemision.Text)
+                                CveMovtoEntradaActual = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveAlmacenDestino:=CveAlmacenDestino, CveMovimientoRelacionado:=CveMovtoSalidaActual, CveVendedor:=Dr("CveVendedor").ToString.ToEntero, CveCliente:=Dr("CveCliente").ToString.ToEntero, Remision:=TxtRemision.Text, Modulo:="RA/G7")
                                 MovtosEntrada.Add(CveMovtoEntradaActual)
                                 FoliosEntrada.Add(ObjInventario.Folio)
 
@@ -2408,8 +2416,14 @@ Partial Class Inventarios_RecepcionAlmacen
                                 ErrorMovInv = True
                                 Exit For
                             End If
+                            If CBool(Dr("AplicaSeccion")) Then
+                                CveSeccionDestino = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenDestino, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                            Else
+                                CveSeccionDestino = -1
+                            End If
 
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovtoEntradaActual, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovtoEntradaActual, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionDestino, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                 ErrorMovInv = True
                                 Exit For
                             End If
@@ -2884,13 +2898,17 @@ Partial Class Inventarios_RecepcionAlmacen
                             End If
                         End If
 
+
+
+                        Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero()
+
                         If Not ErrorMovInv Then
                             CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen-NC", 74, TotalCosto, TotalCosto, 1, Fecha, ProveedorNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CvePrePoliza > 0 Then
                                 If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalNC, SerieFolio, CveConceptoContableNC, SerieFolio, Fecha, IdCtaContableNC, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalNC, Contabilizable:=EsContabilizable) Then
                                     If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto * -1, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto * -1, CveCuenta:=CveCuentaAlmacen, Contabilizable:=EsContabilizable) Then
                                         If DifCostoNC <> 0 Then
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifCostoNC * -1, SerieFolio, 69, SerieFolio, Fecha, IdCtaContableClasificacion, -1, CveClasificacion:=CveClasificacionDifCostoNC, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DifCostoNC * -1, CveCuenta:=CveCuentaClasificacion, Contabilizable:=EsContabilizable) Then
+                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifCostoNC * -1, SerieFolio, 69, SerieFolio, Fecha, IdCtaContableClasificacion, -1, CveClasificacion:=CveClasificacionDifCostoNC, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DifCostoNC * -1, CveCuenta:=CveCuentaClasificacion, Contabilizable:=EsContabilizable, CveSubProyecto:=CveSubProyecto) Then
                                                 ErrorMovInv = True
                                             End If
                                         End If
@@ -2905,6 +2923,8 @@ Partial Class Inventarios_RecepcionAlmacen
                             End If
                         End If
 
+
+
                         If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
                             If ObjConta.ValorPolizaDescuadre > 0 Then
                                 GuardaLogAD($"Inventarios/RecepcionAlmacen-PPNC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
@@ -3110,7 +3130,7 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
         Dim CvePrePoliza As Integer = 0
         Dim UsaComplementariaCostoIndirecto As Boolean = False
-        Dim ConceptoPrePoliza As String = LbProveedor.Text
+        Dim ConceptoPrePoliza As String = String.Format("{0}-{1}", LbProveedor.Text, HLFolio.Text)
         If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaCostoIndirecto = False
         Dim PorcentajeCompraImportacion As Decimal = 0 ' si hay mas de una factura de importación saber lo que se está recibiendo
 
@@ -3156,13 +3176,12 @@ Partial Class Inventarios_RecepcionAlmacen
                                 drc("SubTotal") = drt("SubTotal")
                                 drc("TipoCambio") = drt("TipoCambio")
                                 drc("CveProveedor") = drt("CveProveedor")
+                                drc("SubTotalTC") = drt("SubTotalTC")
                                 DtTempCompras.Rows.Add(drc)
                             Next
 
                         End If
 
-
-
                     Else
                         ErrorMovInv = True
                     End If
@@ -3174,6 +3193,9 @@ Partial Class Inventarios_RecepcionAlmacen
                 ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa)
                 Dim TotalCosto As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL()
                 Dim IdCtaContableCostoInd As Integer = 0
+                'si reciben parcialidades de producto. en base al total de la importacion y lo recibido.
+                Dim PorcentajeRecepcionCompras As Decimal = TotalCosto / DtTempCompras.SUMD("SubTotalTC")
+                Dim ConceptoPartida As String = String.Format("{0}- Inv#{1}", HLFolio.Text, InvFolio)
 
                 If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, InvFolio, 68, InvFolio, FechaMovto, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
                     'se recorren las facturas a descontar el recepción
@@ -3182,7 +3204,7 @@ Partial Class Inventarios_RecepcionAlmacen
                         For Each dr As DataRow In DtTempCompras.Rows
                             Dim CveComp As Integer = dr("CveCompra").ToString.ToEntero
                             'el porcentaje solo aplica a las facturas de costo indirecto
-                            Dim SubTotalPartida As Decimal = dr("SubTotal").ToString.ToDecimal * If(dr("TipoCompra").ToString = "CI", PorcentajeCompraImportacion, 1)
+                            Dim SubTotalPartida As Decimal = dr("SubTotal").ToString.ToDecimal * If(dr("TipoCompra").ToString = "CI", PorcentajeCompraImportacion, 1) * PorcentajeRecepcionCompras
                             Dim ImporteAbono As Decimal = (SubTotalPartida * dr("TipoCambio").ToString.ToDecimal).RoundSQL
                             Dim ImporteAbonoME As Decimal = 0
                             Dim CveConceptoCostoIndirecto As Integer = If(CveImportacionSurtir > 0, 240, 237)
@@ -3199,10 +3221,10 @@ Partial Class Inventarios_RecepcionAlmacen
 
 
 
-                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, InvFolio, CveConceptoCostoIndirecto, InvFolio, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono) Then
+                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, CveConceptoCostoIndirecto, ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono) Then
                                 ' si tiene valor es que hay complementaria
                                 If ImporteAbonoME > 0 Then
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, InvFolio, If(CveImportacionSurtir > 0, 242, 239), InvFolio, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, If(CveImportacionSurtir > 0, 242, 239), ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono) Then
                                         ErrorMovInv = True
                                     End If
                                 End If
@@ -3220,7 +3242,7 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
         End If
 
-        If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+        If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
             If ObjConta.ValorPolizaDescuadre > 0 Then
                 GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                 ErrorMovInv = True

Inventarios/RepAnomalias.aspx

@@ -200,7 +200,7 @@
                     <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
                     <asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
@@ -234,7 +234,7 @@
                     <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
                     <asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />

Inventarios/RepAnomalias.aspx.vb

@@ -275,7 +275,7 @@ Partial Class Inventarios_RepAnomalias
     Private Sub BanderaSerieLoteCad(Gv As GridView, resultado As DataTable)
         Gv.Columns(4).Visible = resultado.MAX("Serie") <> ""
         Gv.Columns(5).Visible = resultado.MAX("Lote") <> ""
-        Gv.Columns(6).Visible = resultado.MAX("FechaCaducidad") <> ""
+        Gv.Columns(6).Visible = resultado.MAX("FechaCaducidad").ToDate > MinFecha
     End Sub
 
 End Class

Inventarios/ResguardoMaterial.aspx

@@ -242,7 +242,7 @@
                                         <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CVUnidad" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </td>
                                     <td runat="server" id="TrSeccion" visible="false">
-                                        <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                                        <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
                                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                         </asp:DropDownList>
                                     </td>
@@ -285,10 +285,10 @@
                                         <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###,###.##}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right" />
                                         <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" />
                                         <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />                                        
-                                        <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" ItemStyle-Width="10%" Visible="false"/>
                                         <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" Visible="false" />
                                         <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="10%" Visible="false" />
                                         <asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="10%"  Visible="false" />
+                                        <asp:BoundField HeaderText="Sección" DataField="SeccionAlmacen" ItemStyle-Width="10%" Visible="false"/>
                                         <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="10%" />
                                         <%--<asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                             <ItemTemplate>
@@ -439,7 +439,7 @@
                                             <div class="row">
                                                 <label class="col-md-4 truncate" style="max-width: 155px">Almacén destino:</label>
                                                 <div class="col-md-8">
-                                                    <asp:DropDownList ID="DdlAlmacenDestinoLiberacion" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
+                                                    <asp:DropDownList ID="DdlAlmacenDestinoLiberacion" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Almacen" DataValueField="CveAlmacen" AutoPostBack="true"></asp:DropDownList>
                                                     <asp:RequiredFieldValidator InitialValue="-1" ID="RfvAlmacenDestinoLiberacion" Display="None" ValidationGroup="GrpGuardarLiberacion" runat="server" ControlToValidate="DdlAlmacenDestinoLiberacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Es campo <b>''Almacén destino''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCEAlmacenDestinoLiberacion" runat="server" HighlightCssClass="vco" TargetControlID="RfvAlmacenDestinoLiberacion" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 </div>
@@ -473,7 +473,7 @@
 
                 <asp:UpdatePanel ID="UpGridLiberacion" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
-                        <asp:GridView ID="GvMLiberacion" OnRowCreated="GvMLiberacion_RowCreated" OnRowDataBound="GvMLiberacion_RowDataBound" runat="server" GridLines="none" CssClass="table table-striped table-hover Widthall" EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,CveUM,CvePS,Serie,Observaciones,PU" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
+                        <asp:GridView ID="GvMLiberacion" OnRowCreated="GvMLiberacion_RowCreated" OnRowDataBound="GvMLiberacion_RowDataBound" runat="server" GridLines="none" CssClass="table table-striped table-hover Widthall" EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,CveUM,CvePS,Serie,Observaciones,PU,CveSeccionAlmacen,Lote,FechaCaducidad" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
                             <Columns>
                                 <asp:BoundField HeaderText="#" DataField="No" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center" />
                                 <%--               <asp:BoundField HeaderText="Cant. Disponible" DataField="Cantidad" DataFormatString="{0:#,###,###.##}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right" />--%>
@@ -490,13 +490,15 @@
                                 </asp:TemplateField>
                                 <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" />
                                 <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
-                                <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="20%" />
+                                <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="20%"  Visible="false"/>
-                                <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="10%" />
+                                <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="20%"  Visible="false"/>
-                                <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
+                                <asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" ItemStyle-Width="20%"  Visible="false"/>
+                                <asp:TemplateField HeaderText="Sección" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">                                    
                                     <ItemTemplate>
-                                        xx
+                                         <asp:DropDownlist ID="DdlSeccionAlmacen" runat="server" DataTextField="SeccionAlmacen" DataValueField="CveSeccionAlmacen" CssClass="form-control input-sm select2me" />
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="10%" />
                             </Columns>
                         </asp:GridView>
                     </ContentTemplate>

Inventarios/ResguardoMaterial.aspx.vb

@@ -121,7 +121,6 @@ Partial Class Inventarios_ResguardoMaterial
                 EsSurtidoUniforme = If(Request.QueryString("EsSurtidoUniforme").ToString = "1", True, False)
             End If
 
-
             InicializaValores()
 
             If Not Request.QueryString("CvePersonal") Is Nothing Then
@@ -275,8 +274,8 @@ Partial Class Inventarios_ResguardoMaterial
         DdlAlmacenDestinoLiberacion.DataBind()
         DdlAlmacenDestinoLiberacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+        'DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
-        DdlSeccionAlmacen.DataBind()
+        'DdlSeccionAlmacen.DataBind()
 
         CargaPS()
     End Sub
@@ -335,9 +334,11 @@ Partial Class Inventarios_ResguardoMaterial
     End Sub
     Private Sub VerificaProducto()
         If DdlProducto2.SelectedValue.ToEntero > 0 Then
-            Dim drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
+            Dim drp As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
 
             If drp IsNot Nothing Then
+
+
                 'activa Serie
                 If CBool(drp("AplicaSerie")) Then
                     ThSerie.Visible = True
@@ -349,6 +350,17 @@ Partial Class Inventarios_ResguardoMaterial
                 If CBool(drp("AplicaSeccion")) Then
                     ThSeccion.Visible = True
                     TrSeccion.Visible = True
+                    If DdlAlmacen.SelectedValue.ToEntero > 0 Then
+                        DdlSeccionAlmacen.Items.Clear()
+                        CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAlmacen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
+                        'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero)
+                        'DdlSeccionAlmacen.DataSource = dtt
+                        'DdlSeccionAlmacen.DataBind()
+                        'If dtt.Rows.Count > 1 Then
+                        '    DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                        'End If
+                        'dtt.Dispose()
+                    End If
                 End If
                 'activa lote
                 If CBool(drp("AplicaLote")) Then
@@ -445,7 +457,7 @@ Partial Class Inventarios_ResguardoMaterial
                 registro.Item("Estatus") = ""
                 registro.Item("SeccionAlmacen") = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedItem.Text, "")
                 registro.Item("Serie") = TxtnSerie.Text
-                registro.Item("Lote") = If(TxtLote.Text = "", "-1", TxtLote.Text)
+                registro.Item("Lote") = If(TxtLote.Text = "", "", TxtLote.Text)
                 registro.Item("FechaCaducidad") = If(TxtCaducidad.Text = "", MinFecha.ToString, TxtCaducidad.Text)
                 registro.Item("CveSeccionAlmacen") = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedValue.ToEntero, -1)
                 registro.Item("Observaciones") = TxtObservacionesdetalle.Text
@@ -571,6 +583,18 @@ Partial Class Inventarios_ResguardoMaterial
     Protected Sub GvMLiberacion_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
             e.Row.FCLabel("LblCantidad").Text = e.Row.FCLabel("LblCantidad").Text.FormatoNumero(2)
+
+            If CBool(e.Row.DBCampo("AplicaSeccion")) AndAlso DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero > 0 Then
+                Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
+                e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
+                e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
+                If dtt.Rows.Count = 0 Then
+                    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                End If
+                dtt.Dispose()
+            End If
+
         End If
     End Sub
 
@@ -650,13 +674,12 @@ Partial Class Inventarios_ResguardoMaterial
     End Sub
 
     Private Sub CargaGvMLiberacion()
-        GvM.Columns(5).Visible = False
+
-        For Each Dr As DataRow In DtMovimientosLiberacion.Rows
+        GvMLiberacion.Columns(5).Visible = DtMovimientosLiberacion.MAX("Serie").ToString <> ""
-            If Dr("Serie").ToString <> "" Then
+        GvMLiberacion.Columns(6).Visible = DtMovimientosLiberacion.MAX("Lote").ToString <> ""
-                GvM.Columns(5).Visible = True
+        GvMLiberacion.Columns(7).Visible = DtMovimientosLiberacion.MAX("FechaCaducidad").ToString.ToDate > MinFecha
-                Exit For
+        GvMLiberacion.Columns(8).Visible = DtMovimientosLiberacion.MAX("CveSeccionAlmacen").ToString.ToEntero > 0 Or DtMovimientosLiberacion.MAX("AplicaSeccion") = "True"
-            End If
+
-        Next
 
         GvMLiberacion.DataSource = DtMovimientosLiberacion
         GvMLiberacion.DataBind()
@@ -823,10 +846,17 @@ Partial Class Inventarios_ResguardoMaterial
                         MensajeError = "Ocurrió un error al guardar el movimiento de entrada correctamente. Por favor vuelva a intentar."
                         TieneError = True
                     Else
+
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+                            Dim CveSeccionAlmacen As Integer = 0
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+                                If CBool(Dr("AplicaSeccion")) Then
+                                    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                                Else
+                                    CveSeccionAlmacen = -1
+                                End If
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero,
-                                                                          Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero,
+                                                                          Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen,
                                                                           Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
@@ -845,6 +875,7 @@ Partial Class Inventarios_ResguardoMaterial
                 'SALIDA ORIGEN - RESGUARDO
                 CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenLiberación, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveAlmacenDestino:=DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True)
                 FolioSalida = ObjInventario.Folio
+                Dim DiccionarioSecciones As New HybridDictionary
 
                 If CveMovimientoSalida <= 0 Then
                     TieneError = True
@@ -855,11 +886,12 @@ Partial Class Inventarios_ResguardoMaterial
                 Dim Cont As Integer = 0
                 For Each Gvr As GridViewRow In GvMLiberacion.Rows
                     If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("Serie").ToString, Gvr.DataKey("Observaciones").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Gvr.DataKey("Serie").ToString, Observaciones:=Gvr.DataKey("Observaciones").ToString) Then
                             MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
                             TieneError = True
                             Exit For
-
+                        Else
+                            DiccionarioSecciones.Add(ObjInventario.CveMovimientoDetalle, Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue)
                         End If
                     End If
                     Cont += 1
@@ -877,7 +909,8 @@ Partial Class Inventarios_ResguardoMaterial
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                             Cont = 0
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Dr("Observaciones").ToString) Then
+                                Dim CveSeccionAlmacen As Integer = DiccionarioSecciones(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToEntero
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
                                     Exit For
@@ -1020,4 +1053,7 @@ Partial Class Inventarios_ResguardoMaterial
         End If
     End Sub
 
+    Private Sub DdlAlmacenDestinoLiberacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestinoLiberacion.SelectedIndexChanged
+        CargaResguardos()
+    End Sub
 End Class

Inventarios/TrasladoSolicitud.aspx

@@ -105,7 +105,7 @@
                                 <tr>
                                     <td><b>Almacén Destino: </b></td>
                                     <td>
-                                        <asp:DropDownList ID="DdlAlmacenDestino" DataTextField="Almacen" DataValueField="CveAlmacen" Width="250" CssClass="select2me" runat="server"></asp:DropDownList>
+                                        <asp:DropDownList ID="DdlAlmacenDestino" DataTextField="Almacen" DataValueField="CveAlmacen" Width="250" CssClass="select2me" runat="server"  ></asp:DropDownList>
                                     </td>
                                 </tr>
 
@@ -153,6 +153,7 @@
 
 
                 <div class="col-md-6" id="DivInfo" runat="server" visible="false">
+                    
                     <div class="portlet light smmallpadding traspasorow bordered">
                         <div class="portlet-title">
                             <div class="caption font-green">
@@ -214,6 +215,67 @@
                         </div>
                     </div>
                 </div>
+
+                <div class="col-md-6" id="DivAutoriza" runat="server" visible="false">
+
+                    <div class="portlet light smmallpadding traspasorow bordered">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">AUTORIZACIÓN</span>
+                            </div>
+                            <div class="actions">
+                                <div class="btn-group">
+                                </div>
+                            </div>
+
+                            <div class="tools">
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+                        </div>
+                        <div class="portlet-body rowpadding">
+
+
+                            <div  class="row" runat="server"   id="DVAutorizaInformacion" visible = "False" >
+
+                                <div class="col-md-12"  runat="server" >
+                                     <table>
+                                         
+                                         <tr><td><b>Estado : </b></td><td><asp:Label runat="server" id="LblEstatusAutorizo" ></asp:Label></td></tr>
+                                         <tr><td><b>Usuario : </b></td><td><asp:Label runat="server" id="LblUsaurioAutorizo" ></asp:Label></td></tr>
+                                         <tr><td><b>Fecha : </b></td><td><asp:Label runat="server" id="LblFechaAutoriza" ></asp:Label></td></tr>
+                                          
+                                     </table>
+
+                                 </div>
+
+                            </div>
+
+                            <div class="row" runat="server"   id="DVAutorizarBotones" visible = "False"  >
+                               
+                                 
+                                <div class="col-md-6" style="text-align:center!important">
+                                    <asp:LinkButton  runat="server" Text ="Aceptar" id="LnkAceptarTraslado" CssClass="btn btn-success" 
+                                        data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar autorización?" data-btn-ok-label="Si"  OnClick="LnkAceptarTraslado_Click"></asp:LinkButton>    
+                                </div>
+                                <div class="col-md-6" style="text-align:center!important">
+                                    <asp:LinkButton  runat="server" Text ="Rechazar" ID="LnkRechazarTraslado" CssClass="btn btn-danger" 
+                                        data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar rechazo?" data-btn-ok-label="Si"  OnClick="LnkRechazarTraslado_Click" ></asp:LinkButton>    
+                                </div>
+
+                            </div>
+
+                       
+
+
+                        </div>
+                    </div>
+
+
+
+                </div>
+
+
             </div>
 
 
@@ -238,7 +300,7 @@
                     </div>
                     <div class="portlet-body rowpadding">
 
-                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS, CodigoPS, CveUM, Cantidad, Precio, Observaciones, CveContratoDetalle" EmptyDataText="No se encontraron Productos registrados" ToolTip="Listado de Productos" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall" GridLines="None">
+                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS, CodigoPS, CveUM, Cantidad, Precio, Observaciones, CveContratoDetalle,UnidadMedida" EmptyDataText="No se encontraron Productos registrados" ToolTip="Listado de Productos" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall" GridLines="None">
                             <Columns>
                                 <asp:BoundField HeaderText="Cantidad" HeaderStyle-HorizontalAlign="Left" DataFormatString="{0:N}" ItemStyle-HorizontalAlign="Center" DataField="Cantidad" ItemStyle-Width="5%" />
                                 <asp:BoundField HeaderText="U.M" HeaderStyle-HorizontalAlign="Center" DataFormatString="{0:N}" ItemStyle-HorizontalAlign="Center" DataField="UnidadMedida" ItemStyle-Width="10%" />

Inventarios/TrasladoSolicitud.aspx.vb

@@ -36,6 +36,21 @@ Partial Class Inventarios_TrasladoSolicitud
             ViewState("CveDireccionEnvio") = value
         End Set
     End Property
+
+    'Private Property CveUsuarioAutoriza As Integer
+    '    Get
+    '        If ViewState("CveUsuarioAutoriza") Is Nothing Then
+    '            Return -1
+    '        Else
+    '            Return CType(ViewState("CveUsuarioAutoriza"), Integer)
+    '        End If
+
+    '    End Get
+    '    Set(value As Integer)
+    '        ViewState("CveUsuarioAutoriza") = value
+    '    End Set
+    'End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -133,6 +148,7 @@ Partial Class Inventarios_TrasladoSolicitud
     Private Sub CargaDatos()
         Dim ObjInventarios As New ClsInventarios
         Dim ObjClientes As New ClsClientes
+
         If ObjInventarios.AddTrasladoSolicitudGet(CveTraspasoSolicitud, UsuarioActual.CveEmpresa) Then
             If ObjInventarios.DtResultados.Rows.Count > 0 Then
 
@@ -213,6 +229,55 @@ Partial Class Inventarios_TrasladoSolicitud
                 LbAgregarPS.Visible = False
                 HLDesdeContrato.Visible = False
 
+
+                Dim EstatusAlmacen As Integer = ObjInventarios.DtResultados.Rows(0)("EstatusAlmacen").ToString().ToEntero
+                Dim CveUsuarioAutoriza As Integer = ObjInventarios.DtResultados.Rows(0)("CveUsuarioAutorizaDestino").ToString().ToEntero
+
+                If EstatusAlmacen > 0 Then
+
+
+                    If UsuarioActual.CveUsuario = CveUsuarioAutoriza Then
+
+                        If EstatusAlmacen = 1 Then
+
+
+                            DivAutoriza.Visible = True
+                            DVAutorizarBotones.Visible = True
+                            DVAutorizaInformacion.Visible = False
+
+                        ElseIf EstatusAlmacen.Contiene(2, 3) Then
+                            DivAutoriza.Visible = True
+
+                            DVAutorizarBotones.Visible = False
+                            DVAutorizaInformacion.Visible = True
+
+                            LblEstatusAutorizo.Text = If(EstatusAlmacen = 2, "Aceptado", "Rechazado")
+                            LblUsaurioAutorizo.Text = ObjInventarios.DtResultados.Rows(0)("NombreAutoriza").ToString()
+                            LblFechaAutoriza.Text = ObjInventarios.DtResultados.Rows(0)("FechaAutorizacion").ToString().ToDate().ToString("dd/MM/yyyy")
+                        Else
+
+                        End If
+
+                    ElseIf EstatusAlmacen.Contiene(2, 3) Then
+
+                        DivAutoriza.Visible = True
+
+                        DVAutorizarBotones.Visible = False
+                        DVAutorizaInformacion.Visible = True
+
+                        LblEstatusAutorizo.Text = If(EstatusAlmacen = 2, "Aceptado", "Rechazado")
+                        LblUsaurioAutorizo.Text = ObjInventarios.DtResultados.Rows(0)("NombreAutoriza").ToString()
+                        LblFechaAutoriza.Text = ObjInventarios.DtResultados.Rows(0)("FechaAutorizacion").ToString().ToDate().ToString("dd/MM/yyyy")
+
+                    End If
+
+
+                Else
+                    DivAutoriza.Visible = False
+                End If
+
+
+
             Else
                 Alert("Ocurrió un error al obtener los datos del traspaso.", TipoMensaje.MsgError)
             End If
@@ -471,6 +536,9 @@ Partial Class Inventarios_TrasladoSolicitud
             Exit Sub
         End If
 
+
+        Dim CveUsuarioAutoriza As Integer = -1
+        Dim EstatusAlmacen As Integer = 2
         'VERIFICA EXISTENCIAS
         Dim ObjInventarios As New ClsInventarios
         Dim Existencia = 0.0
@@ -478,6 +546,25 @@ Partial Class Inventarios_TrasladoSolicitud
         Dim MensajeExistencia As New StringBuilder
         MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos:<br/>")
         Dim CodigoPS As String = ""
+
+
+        If ObjInventarios.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+
+            If ObjInventarios.DtResultados.Rows.Count > 0 Then
+
+                CveUsuarioAutoriza = If(ObjInventarios.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenDestino.SelectedValue}")(0)("CveUsuarioAutoriza").ToString.ToEntero > 0, ObjInventarios.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenDestino.SelectedValue}")(0)("CveUsuarioAutoriza").ToString.ToEntero, -1)
+                If CveUsuarioAutoriza > 0 Then
+                    EstatusAlmacen = 1
+                End If
+
+            Else
+                CveUsuarioAutoriza = -1
+            End If
+        End If
+
+
+
+
         For Each row As GridViewRow In GvDatos.Rows
             CodigoPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=row.DataKey("CvePS").ToEntero).FiltroPrimeroValor("PSCodigo", "")
             Existencia = ObjInventarios.GetExistenciasPS(row.DataKey("CvePS").ToEntero, row.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"))
@@ -509,7 +596,7 @@ Partial Class Inventarios_TrasladoSolicitud
             Estatus = 3
         End If
 
-        Dim Folio = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.Text.Trim, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato, Guia:=Guia, CvePaqueteria:=DdlPaqueteria.SelectedValue.ToEntero, CveDireccionEnvio:=CveDireccionEnvio)
+        Dim Folio = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.Text.Trim, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato, Guia:=Guia, CvePaqueteria:=DdlPaqueteria.SelectedValue.ToEntero, CveDireccionEnvio:=CveDireccionEnvio, EstatusAlmacen:=EstatusAlmacen)
 
         If Folio > 0 Then
             CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud
@@ -537,6 +624,11 @@ Partial Class Inventarios_TrasladoSolicitud
         If TieneError = False Then
             ObjInventarios.Commit()
             Alert($"El Traspaso se guardó correctamente con el folio #: <b>{Folio}</b>.", TipoMensaje.MsgInformacion, $"document.location.href=""/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}""")
+
+            If CveUsuarioAutoriza > 0 Then
+                MandaCorreoAutorizacion(Folio, CveTraspasoSolicitud, CveUsuarioAutoriza)
+            End If
+
         Else
             ObjInventarios.RollBack()
             Alert("Ocurrió un Error al guardar el traspaso.", TipoMensaje.MsgError)
@@ -875,5 +967,77 @@ Partial Class Inventarios_TrasladoSolicitud
         UpPS.Update()
         UpDatos.Update()
     End Sub
+
+
+    Protected Sub LnkAceptarTraslado_Click(sender As Object, e As EventArgs)
+
+        Dim ObjInven As New ClsInventarios
+        If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 2, UsuarioActual.CveUsuario, Now) Then
+            Alert("Autorizado correctamente.")
+        End If
+        ObjInven.Dispose()
+
+        CargaDatos()
+
+    End Sub
+    Protected Sub LnkRechazarTraslado_Click(sender As Object, e As EventArgs)
+
+        Dim ObjInven As New ClsInventarios
+        If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 3, UsuarioActual.CveUsuario, Now) Then
+            Alert("Rechazado correctamente.")
+        End If
+        ObjInven.Dispose()
+
+        CargaDatos()
+
+    End Sub
+
+
+    Private Sub MandaCorreoAutorizacion(Folio As Integer, CveTraspasoSolicitud As Integer, CveUsuarioAutoriza As Integer)
+
+        Dim SB As New StringBuilder
+
+        Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza)(0)("Correo").ToString.Trim
+
+
+        If CorreoDestino.Length > 0 Then
+
+
+
+            SB.AppendLine($"<p>Se ha registrado una solicitud de traspaso de {DdlAlmacenOrigen.SelectedItem.Text} a {DdlAlmacenDestino.SelectedItem.Text}, con los siguientes productos.</p>")
+
+
+
+            SB.AppendLine("<br>")
+            SB.AppendLine("<table border = '0'>")
+            SB.AppendLine("<tr style='color:white;background-color:#808080;' ><th>Cantidad</th> <th>U.M.</th>  <th>Producto</th>  <th>Observaciones</th> </tr>")
+
+            For Each GvRow As GridViewRow In GvDatos.Rows
+
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    SB.AppendLine($"<tr  style='background-color:#F2F2F0;'> <td>{GvRow.DataKey("Cantidad")}</td> <td>{GvRow.DataKey("UnidadMedida")}</td>  <td>{GvRow.DataKey("CodigoPS")}</td>  <td>{GvRow.DataKey("Observaciones")}</td> </tr>")
+                End If
+
+            Next
+            SB.AppendLine("</table>")
+            SB.AppendLine("<br>")
+            SB.AppendLine($"<strong> <a href='{Request.Url.GetLeftPart(UriPartial.Authority)}/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}'>Ir a solicitud de traspaso para autorización</a></strong>")
+
+
+
+            Dim MandaCorre As New ClsSisMail
+            MandaCorre.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoDestino, $"Solicitud de Autorización de traspaso #{Folio}", SB.ToString, Displayname:="SIG Notificaciones: Solicitud de Traspaso")
+
+
+        End If
+
+
+
+
+
+
+
+    End Sub
+
 End Class
 

Inventarios/TraspasoAlmacen.aspx

@@ -665,7 +665,7 @@
                                  <asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="15%" />                                
                                 <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                     <ItemTemplate>
-                                          <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" Visible="false" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                                          <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen"  AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
                                         
                                         </asp:DropDownList>
                                     </ItemTemplate>