local

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)

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)

App_Code/ClsInventarios.vb

@@ -4810,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)
@@ -4932,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")
@@ -5059,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/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
@@ -1457,20 +1458,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
-
-                    If CveEmpresa > 0 Then
-                        Application(AppNombre) = ObjBancos.DtResultados.FiltraParametros($"CveEmpresa = { CveEmpresa }")
-                    Else
                         Application(AppNombre) = ObjBancos.DtResultados
+                    Else
+                        Application(AppNombre) = Nothing
                     End If
-
+                End Using
-                Else
-                    Application(AppNombre) = Nothing
-                End If
-                ObjBancos.Dispose()
             End If
 
             Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa)
@@ -1843,37 +1838,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)
@@ -4487,6 +4487,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"
@@ -8121,5 +8122,21 @@ Public Class ClsPaginas
             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.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

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

@@ -61,7 +61,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Dim correo As String = ""
         Dim sitio As String = ""
         Dim cuerpo As String = ""
-        Dim obj = context.Request("Nombre")
+        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
@@ -75,11 +75,11 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         End If
         obj = context.Request("Cuerpo")
         If Not IsNothing(obj) Then
-            cuerpo = obj.ToString()
+            cuerpo = obj.ToString().Replace("< ", "<")
         End If
-        Dim Body As String = String.Format("Nombre : {0}<br/>Nombre : {0}<br/>Correo : {1}<br/>Sitio : {2}<br/><br/>{3}", nombre, correo, sitio, cuerpo)
+        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;"
+        Dim para As String = "rene.molina@adssistemas.mx,sig.buzon@gmail.com,julian@adssistemas.mx;paola@adssistemas.mx;caudillo.90d@gmail.com;"
-        para = "caudillo.90d@gmail.com"
+        'para = ""
         Dim Mail As New ClsSisMail()
         If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then
             retorno = "true"

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.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"))

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,12 +1,12 @@
 <%@ 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: #C3C3C3;
+            background-color: #95A5A6;
         }
 
             .Filtros label, .Filtros .form-group.form-md-line-input .form-control ~ label {
@@ -27,29 +27,46 @@
             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>
 
-            <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">
@@ -141,23 +158,112 @@
                         </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" AutoGenerateColumns="False" DataKeyNames="CveAcercamiento">
+
+            <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="Prospecto">
                         <ItemTemplate>
-                            <asp:HyperLink   href='<%# Eval("Empresa","/{0}")%>' runat="server" Text='<%# Eval("Empresa")%>'>HyperLink</asp:HyperLink>
+                            <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:Label ID="lblnombreAcercamiento" runat="server" Text='<%# Eval("NombreAcercamiento")%>'> </asp:Label>
+                            <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">
@@ -195,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

@@ -80,7 +80,6 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
     {
         if (!IsPostBack)
         {
-            CargaDdl();
             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();
@@ -109,6 +108,7 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
                     break;
             }
             DdlTipoProceso.SelectedValueExist(RCveTipoProceso);
+            CargaDdl();
 
 
             //DdlGrupo1.SelectedValueExist(idgrupo1);
@@ -202,22 +202,22 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
     protected void LnkConsultar_Click(object sender, EventArgs e)
     {
 
-        RCveTipoProceso = DdlTipoProceso.SelectedValue.ToEntero();
+        //RCveTipoProceso = DdlTipoProceso.SelectedValue.ToEntero();
-        switch (RCveTipoProceso)
+        //switch (RCveTipoProceso)
-        {
+        //{
-            case 1:
+        //    case 1:
-                RcveVendedor = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
+        //        RcveVendedor = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
-                break;
+        //        break;
-            case 2:
+        //    case 2:
-                RcveMedioCaptacion = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
+        //        RcveMedioCaptacion = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
-                break;
+        //        break;
-            case 3:
+        //    case 3:
-                RcveProbabilidadAcercamiento = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
+        //        RcveProbabilidadAcercamiento = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
-                break;
+        //        break;
-            case 4:
+        //    case 4:
-                RsFecha = Request["CveGrupo1"] == null ? "" : Request["CveGrupo1"].ToString();
+        //        RsFecha = Request["CveGrupo1"] == null ? "" : Request["CveGrupo1"].ToString();
-                break;
+        //        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();

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.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
@@ -17388,9 +17384,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

Compras/PopUpVerFactura.aspx.vb

@@ -1327,9 +1327,9 @@ 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 = 19 Or CveTipoAlmacen = 20 Then
-            CveConcepto = 24
+        '    CveConcepto = 24
-        End If
+        'End If
 
         ObjInventarios.Dispose()
         If RazonSocial = "" AndAlso NombreCliente <> "" Then RazonSocial = NombreCliente

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/Traslado.rdlc

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

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
 {
@@ -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;

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>
@@ -62,15 +76,22 @@
                     <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,11 +88,12 @@ 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
@@ -89,7 +101,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                     End If
                     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
@@ -109,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()
@@ -121,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
@@ -288,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
 
@@ -370,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
@@ -447,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

@@ -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/EntradasSalidas.aspx

@@ -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>
@@ -1450,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

@@ -461,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()
@@ -827,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
@@ -1190,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
@@ -1201,7 +1201,7 @@ 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", TipoMensaje.MsgAdvertencia)
         End If
@@ -1209,9 +1209,9 @@ Partial Class Inventarios_EntradasSalidas
         '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')")
@@ -1230,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
 
@@ -1258,7 +1258,7 @@ 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
@@ -2187,12 +2187,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
@@ -2397,7 +2403,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
@@ -2426,6 +2436,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
@@ -2938,6 +2949,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
@@ -2947,7 +2959,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
@@ -2956,8 +2968,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()
@@ -2968,6 +3004,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, "")
 
@@ -4333,6 +4374,7 @@ Partial Class Inventarios_EntradasSalidas
                                                      CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
             Alert("Error al Actualizar los movimientos")
         Else
+            Alert("Movimiento actualizado correctamente")
             RegistraScript("$('#ModalAgregar').modal('hide')")
         End If
         ObjInventario.Dispose()
@@ -4355,7 +4397,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,13 +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
-                    Dim dtt As DataTable = 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").DataSource = dtt
+                    'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
+                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
-                    If dtt.Rows.Count > 1 Then
+                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                        e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    'If dtt.Rows.Count > 1 Then
-                    End If
+                    '    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
-                    dtt.Dispose()
+                    'End If
+                    'dtt.Dispose()
                 End If
 
             Else
@@ -927,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
 
@@ -1720,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
@@ -1960,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
@@ -2002,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
@@ -2031,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
@@ -2462,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
@@ -2485,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
@@ -2514,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
@@ -3205,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 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
         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"));

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/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
@@ -2382,6 +2386,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 +2397,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 +2414,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
@@ -3110,7 +3122,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 +3168,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 +3185,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 +3196,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 +3213,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 +3234,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/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/TraspasoAlmacen.aspx.vb

@@ -1534,13 +1534,14 @@ Partial Class Inventarios_TraspasoAlmacen
                 e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
                 If CBool(e.Row.DBCampo("AplicaSeccion")) AndAlso DdlAlmacenRecepcion.SelectedValue.ToEntero > 0 Then
 
-                    Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                    CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa)
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
+                    'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
+                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
-                    If dtt.Rows.Count > 1 Then
+                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                        e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    'If dtt.Rows.Count > 1 Then
-                    End If
+                    '    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
-                    dtt.Dispose()
+                    'End If
+                    'dtt.Dispose()
 
                 End If
             End If

LogIn.aspx

@@ -69,13 +69,13 @@
                             <br />
                             <div class="form-group">
                                 <i class="fa fa-user fa-2 icontxt"></i>
-                                <asp:TextBox ID="txtUsuario" runat="server" CssClass="form-control" placeholder="Usuario" ClientIDMode="Static"></asp:TextBox>
+                                <asp:TextBox ID="txtUsuario" runat="server" CssClass="form-control txtUsuario" placeholder="Usuario" ClientIDMode="Static"></asp:TextBox>
                                 <asp:RequiredFieldValidator ID="RfvUsuario" runat="server" ControlToValidate="TxtUsuario" Display="Static" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Usuario''</b> es necesario.</span></span>" ValidationGroup="LogIn"></asp:RequiredFieldValidator>
 
                             </div>
                             <div class="form-group">
                                 <i class="fa fa-lock fa-2 icontxt"></i> 
-                                <asp:TextBox ID="TxtContraseña" runat="server" CssClass="form-control" placeholder="Contraseña" type="password" ClientIDMode="Static"></asp:TextBox>
+                                <asp:TextBox ID="TxtContraseña" runat="server" CssClass="form-control TxtContraseña" placeholder="Contraseña" type="password" ClientIDMode="Static"></asp:TextBox>
                                 <asp:RequiredFieldValidator ID="RfvContraseña" runat="server" ControlToValidate="TxtContraseña" Display="Static" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Contraseña''</b> es necesario.</span></span>" ValidationGroup="LogIn"></asp:RequiredFieldValidator>
                             </div>
                             <div class="row " style="display: none">
@@ -126,18 +126,33 @@
                     <asp:HiddenField ID="HdfImagenes" ClientIDMode="Static" runat="server" />
                 </ContentTemplate>
             </asp:UpdatePanel>
+            <iframe id="framexd" style="display:none"></iframe>
         </div>
         <script type="text/javascript" src="/Metronic/assets/global/scripts/JSNoCustom"></script>
         <%--<script type="text/javascript" src="/Scripts/Notificaciones.js"></script>--%>
         <script>
+            function opennewlocation(returnurl,token) {
+                //let fram = $('#framexd');
+                //let Pagina =
+                //    "http://localhost:2536/auth/login?authtoken=" + token;
+                //    Metronic.blockUI();
+                //fram.unbind("load");
+                //fram.load(function () {
+                //    setTimeout(function () {  document.location = returnurl; },1500) 
+                //    Metronic.unblockUI();
+                //});
+                //fram.prop('src', Pagina);
+
+                 document.location = returnurl;
+            }
             // aqui debe de llammarse siganalr, para desconectar
             function exitsignalr() {
-            let ADSCloseConection = "ADSCloseConection";
+                let ADSCloseConection = "ADSCloseConection";
-            let varreconected = localStorage.getItem(ADSCloseConection);//obtengo la variable para cambiarla y dispara el evento local change
+                let varreconected = localStorage.getItem(ADSCloseConection);//obtengo la variable para cambiarla y dispara el evento local change
-            if (varreconected == "1") {
+                if (varreconected == "1") {
-                localStorage.removeItem(ADSCloseConection);
+                    localStorage.removeItem(ADSCloseConection);
-            } else { localStorage.setItem(ADSCloseConection, "1"); }
+                } else { localStorage.setItem(ADSCloseConection, "1"); }
-            localStorage.removeItem('AdsNotificacionesIsConnected');
+                localStorage.removeItem('AdsNotificacionesIsConnected');
             } exitsignalr();
 
             var prm = Sys.WebForms.PageRequestManager.getInstance();

LogIn.aspx.vb

@@ -1,6 +1,9 @@
 Imports System.Data
+Imports System.IdentityModel.Tokens.Jwt
+Imports System.Security.Claims
 Imports ADSSession
 Imports Extensiones
+Imports Microsoft.IdentityModel.Tokens
 
 Partial Class LogIn
     Inherits System.Web.UI.Page
@@ -28,7 +31,9 @@ Partial Class LogIn
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         '"187.158.96.163" es la de mi casa
         'If (Context.Session("UsuarioSIG") IsNot Nothing) OrElse Not User.Identity.IsAuthenticated Then
-
+        'Request.Headers.Add("Authorization", "Bearer eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJOb21icmUiOiJhZG1pbiIsIkN2ZVVzdWFyaW8iOiIyMDA5IiwiQ3ZlRW1wcmVzYSI6IjIiLCJDdmVQZXJmaWwiOiIyIiwiTWFpbCI6ImFkbWluQGFkbWluLmNvbSIsImV4cCI6MTU5NDY3MzQ2NCwiaXNzIjoiVGVzdC5jb20iLCJhdWQiOiJUZXN0LmNvbSJ9.vmPRxGfxzR10Rf-4Luk2Ej0SVs7w2XGDGJBCyx5VSQI")
+        'Response.AddHeader("Authorization", "Bearer eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJOb21icmUiOiJhZG1pbiIsIkN2ZVVzdWFyaW8iOiIyMDA5IiwiQ3ZlRW1wcmVzYSI6IjIiLCJDdmVQZXJmaWwiOiIyIiwiTWFpbCI6ImFkbWluQGFkbWluLmNvbSIsImV4cCI6MTU5NDY3MzQ2NCwiaXNzIjoiVGVzdC5jb20iLCJhdWQiOiJUZXN0LmNvbSJ9.vmPRxGfxzR10Rf-4Luk2Ej0SVs7w2XGDGJBCyx5VSQI")
+        'Response.End()
         'End If
         Dim iplist As String() = New String() {"", ""}
         If HttpContext.Current.Request.ServerVariables("REMOTE_ADDR").ToString().Contiene(iplist) Then
@@ -71,7 +76,7 @@ Partial Class LogIn
             End If
 
             HdfImagenes.Value = strimg.ToString()
-            TxtUsuario.Focus()
+            txtUsuario.Focus()
             Me.Form.DefaultButton = BtnLogIn.ClientID
             If Request("p") IsNot Nothing AndAlso Request("p") <> "" Then
                 Dim Salida As String = Decripta(Request("p"))
@@ -179,6 +184,14 @@ Partial Class LogIn
         If Request("ReturnUrl") IsNot Nothing Then
             ReturnUrl = Request("ReturnUrl").ToString()
         End If
+        If Not IsNothing(Request("port")) Then
+            Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "")
+            If Request.Url.Port <> 80 Then
+                strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "")
+            End If
+            ReturnUrl = String.Format("{0}:{1}/{2}", strdomain, Request("port"), ReturnUrl)
+
+        End If
         If BtnLogIn_Clickenter = 0 Then 'esta variable se recicla con cada postaback
             BtnLogIn_Clickenter = 1
             Dim ObjUsuario As New ClsSisUsuarios
@@ -235,11 +248,29 @@ Partial Class LogIn
                         dt.Dispose()
                     End If
 
-                    Dim cookie = FormsAuthentication.GetAuthCookie(Encripta(Usuario.CveUsuario), False)
+                    Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario, False)
-                    'ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.SetAspSig, ASPSIG:=Request.Cookies.Get(".ASPXSIG").Value)
                     Response.Cookies.Add(cookie)
                     'RegistraScript(String.Format("iniciaSesion('{0}')", ReturnUrl.Replace("'", "\'")))
-                    Response.Redirect(ReturnUrl, True)
+
+                    'Public Property CveUsuario As Integer
+                    'Public Property Mail As String
+                    'Public Property Nombre As String
+                    'Public Property Contraseña As String
+                    'Public Property CvePerfil As Integer
+                    'Public Property CveUsuarioModifico As Integer
+                    'Public Property CveEmpresa As Integer
+                    'Public Property CveUsuarioRegistro As Integer
+                    Dim userm As New UserModel()
+                    userm.CveUsuario = Usuario.CveUsuario
+                    userm.Mail = Usuario.Usuario
+                    userm.Nombre = Usuario.Nombre
+                    userm.Contraseña = Usuario.Contraseña
+                    userm.CvePerfil = Usuario.CveRol
+                    userm.CveEmpresa = 119 'Usuario.CveEmpresa
+                    userm.CveUsuarioModifico = Usuario.CveEmpresa
+                    userm.CveUsuarioRegistro = Usuario.CveEmpresa
+                    RegistraScript(String.Format("opennewlocation('{0}','{1}')", ReturnUrl, GenerateJSONWebToken(userm)))
+                    'Response.Redirect(ReturnUrl, True)
                 Else
                     Alert("El usuario no esta autorizado en este equipo, favor de contactar al administrador de usuarios.", TipoMensaje.MsgAdvertencia)
                 End If
@@ -307,4 +338,28 @@ Partial Class LogIn
             End If
         End If
     End Sub
+
+    Public Function GenerateJSONWebToken(ByVal user As UserModel) As String
+        Dim securityKey = New SymmetricSecurityKey(Encoding.UTF8.GetBytes("ThisismySecretKey"))
+        Dim credentials = New SigningCredentials(securityKey, SecurityAlgorithms.HmacSha256)
+        Dim claims = {New Claim("Nombre", user.Nombre), New Claim("CveUsuario", user.CveUsuario.ToString()), New Claim("CveEmpresa", user.CveEmpresa.ToString()), New Claim("CvePerfil", user.CvePerfil.ToString()), New Claim("Mail", user.Mail.ToString())}
+        Dim token = New JwtSecurityToken("Test.com", "Test.com", claims, expires:=DateTime.Now.AddMinutes(120), signingCredentials:=credentials)
+        Return New JwtSecurityTokenHandler().WriteToken(token)
+    End Function
+    Public Class UserModel
+        Public Sub New()
+            Me.CveUsuario = -1
+        End Sub
+
+
+        Public Property CveUsuario As Integer
+        Public Property Mail As String
+        Public Property Nombre As String
+        Public Property Contraseña As String
+        Public Property CvePerfil As Integer
+        Public Property CveUsuarioModifico As Integer
+        Public Property CveEmpresa As Integer
+        Public Property CveUsuarioRegistro As Integer
+    End Class
 End Class
+

OC/PopUpBuscarReq.aspx

@@ -68,13 +68,13 @@
                         </td>
                     </tr>
                     <tr>
-                        <td runat="server" id="TdProyecto" class="text-right"><b>Proyecto:</b></td>
+                        <td runat="server" id="TdProyecto" class="text-right"><asp:Label runat="server" ID="LblProyecto" Text="Proyecto:"/></td>
                         <td runat="server" id="TdProyecto2">
                             <asp:DropDownList ID="DdlProyectos" AutoPostBack="true" OnSelectedIndexChanged="DdlProyectos_SelectedIndexChanged" runat="server" CssClass="form-control input-sm select2me" DataTextField="Proyecto" DataValueField="CveProyecto" Style="width: 200px !important;"></asp:DropDownList>
                         </td>
                         <td class="text-right">
                             <b>
-                                <asp:Literal Text="SubProyecto:" ID="LtSubProyecto" runat="server" /></b>
+                                <asp:Label Text="SubProyecto:" ID="LtSubProyecto" runat="server" /></b>
                         </td>
                         <td>
                             <asp:DropDownList ID="DdlSubProyectos" AutoPostBack="false" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 200px !important;"></asp:DropDownList>

OC/PopUpBuscarReq.aspx.vb

@@ -70,18 +70,19 @@ Partial Class OC_PopUpBuscarReq
         txtFechaI.Text = Now.FirstDayOfMonth.AddMonths(-3).ToShortDateString
         CargaEstatus()
 
-        If UsuarioActual.Empresa.GralSoloProyecto Then
+        CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LtSubProyecto)
-            TdProyecto.Visible = False
+        'If UsuarioActual.Empresa.GralSoloProyecto Then
-            TdProyecto2.Visible = False
+        '    TdProyecto.Visible = False
-            LtSubProyecto.Text = "Proyecto:"
+        '    TdProyecto2.Visible = False
-        Else
+        '    LtSubProyecto.Text = "Proyecto:"
-            'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
+        'Else
-            'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
+        '    'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
-            '                            GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
+        '    'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
-            DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
+        '    '                            GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
-            DdlProyectos.DataBind()
+        '    DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-            DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+        '    DdlProyectos.DataBind()
-        End If
+        '    DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+        'End If
 
         DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
         DdlProveedor.DataBind()
@@ -161,10 +162,10 @@ Partial Class OC_PopUpBuscarReq
         Dim CveProyecto = -1
         Dim CveSubProyecto = -1
 
-        If UsuarioActual.Empresa.GralSoloProyecto Then
+        If LblProyecto.Visible Then
+            CveProyecto = DdlProyectos.SelectedValue.ToEntero
             CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
         Else
-            CveProyecto = DdlProyectos.SelectedValue.ToEntero
             CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
         End If
 

RH/ActualizacionMasiva.aspx

@@ -138,6 +138,14 @@
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
                                 </asp:TemplateField>
+                                
+                                <asp:TemplateField  HeaderStyle-Width="80px">
+                                    <HeaderTemplate>¿CALCULAR SDI?</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:CheckBox ID="ChkCalcularSDI" runat="server" />
+                                    </ItemTemplate>
+                                    <ItemStyle HorizontalAlign="Left" />
+                                </asp:TemplateField>
                             </Columns>
                             <RowStyle CssClass="Texto" />
                             <HeaderStyle CssClass="Titulos" />
@@ -190,6 +198,10 @@
                                 </div>
                             </div>
                             <div class="portlet-body rowpadding ">
+                                <div class="row">
+                                    <div class="col-sm-6">Calcular Salario Diario Integrado</div>
+                                    <div class="col-sm-6"> <asp:CheckBox ID="ChkCalcularSDIXLS" Text=" " CssClass="chksino" runat="server" /></div>
+                                </div>
                                 <asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
                             </div>
                         </div>

RH/ActualizacionMasiva.aspx.vb

@@ -195,6 +195,7 @@ Partial Class RH_ActualizacionMasiva
         Dim OcurrioError As Boolean = False
 
         Using ObjPersonal As ClsRH = New ClsRH()
+            ObjPersonal.IniciaTransacSQL()
             For Each Row As GridViewRow In GvDatos.Rows
                 If Row.DataKey("CvePersonal") <> "" Then
                     'If Not ObjPersonal.UpdatePersonalMasivo(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero,
@@ -204,7 +205,9 @@ Partial Class RH_ActualizacionMasiva
                     '    ObjPersonal.RollBack()
                     '    Exit For
                     'End If
-                    If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(), Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal()) Then
+                    If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
+                                                  Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
+                                                  Row.FCCheckBox("ChkCalcularSDI").Checked) Then
 
                     Else
                         OcurrioError = True
@@ -215,7 +218,7 @@ Partial Class RH_ActualizacionMasiva
 
             Next
             If Not OcurrioError Then
-                'ObjPersonal.Commit()
+                ObjPersonal.Commit()
                 Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
             Else
                 Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
@@ -350,13 +353,16 @@ Partial Class RH_ActualizacionMasiva
             Dim OcurrioError As Boolean = False
             Dim contador As Integer = 0
             Using ObjPersonal As ClsRH = New ClsRH()
+                ObjPersonal.IniciaTransacSQL()
+
                 For Each Row As DataRow In DTEXcel.Rows
                     If Row("Codigo").ToString() <> "" Then
                         Dim drow As DataRow = DTEmpleados.FiltroPrimero(String.Format("Codigo='{0}'", Row("Codigo")))
                         If Not IsNothing(drow) Then
 
                             Dim CvePersonal As Integer = drow("CvePersonal").ToString().ToEntero()
-                            If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(), Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal()) Then
+                            If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(),
+                                                          Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal(), ChkCalcularSDIXLS.Checked) Then
                                 contador = contador + 1
                             Else
                                 OcurrioError = True

RH/Organigrama.aspx

@@ -8,13 +8,16 @@
         .node {
             width: 150px;
             background-color: whitesmoke;
-            font-weight:normal;
+            font-weight: normal;
+        }
+        #chart_div{
+            overflow:auto;
         }
     </style>
     <script type="text/javascript" src="https://www.gstatic.com/charts/loader.js"></script>
     <script type="text/javascript">
-        google.charts.load('current', { packages: ["orgchart"] });
+        //google.charts.load('current', { packages: ["orgchart"] });
-        google.charts.setOnLoadCallback(drawChart);
+        //google.charts.setOnLoadCallback(drawb);
 
 
         function drawChart() {//esta funcion se ejecuta cada vez que se el boton "Consultar" es seleccionado y se ejecuta el metodo "GenerarOrg" en el VB
@@ -30,16 +33,17 @@
                 contentType: "application/json",
                 dataType: "json",
                 success: function (r) {
-
+                    debugger;
                     var options = {
                         allowHtml: true,
                         size: "large",
                         nodeClass: "node"
                     };
+                    r.d = JSON.parse(r.d);
                     if (r.d.length > 0) {
                         var formatedData = [];
                         for (var i = 0; i < r.d.length; i++) {
-                            let arregloAux = [JSON.parse(r.d[i][0]),i!=0?r.d[i][1]:"", r.d[i][2]]//por cada registro convertimos en JSON los titulos y subtitulos(llegan en String) y damos formato al header
+                            let arregloAux = [JSON.parse(r.d[i][0]), i != 0 ? r.d[i][1] : "", r.d[i][2]]//por cada registro convertimos en JSON los titulos y subtitulos(llegan en String) y damos formato al header
                             formatedData.push(arregloAux);
                         }
                         data.addRows(formatedData);
@@ -111,9 +115,9 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 truncate" style="text-align: right!important; width: 200px; margin-left:110px">Nivel de cadena de mando: </div>
+                            <div class="col-md-1 truncate" style="text-align: right!important; width: 200px; margin-left: 110px">Nivel de cadena de mando: </div>
                             <div class="col-md-1">
-                                <asp:TextBox runat="server" ID="txtNivel" Style="width:35px"></asp:TextBox>
+                                <asp:TextBox runat="server" ID="txtNivel" Style="width: 35px"></asp:TextBox>
                             </div>
 
                         </div>
@@ -123,6 +127,7 @@
                 <div class="portlet-body magindate" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
                 </div>
             </div>
+            <asp:Label ID="LblJson" CssClass="LblJson hidden" runat="server" Text="[]"></asp:Label>
         </ContentTemplate>
     </asp:UpdatePanel>
 
@@ -130,8 +135,45 @@
 
     <div id="chart_div"></div>
 
-
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+    <script>
+        
+        function drawb() {
+            let r = {};
+            var options = {
+                allowHtml: true,
+                size: "large",
+                nodeClass: "node"
+            };
+            var data = new google.visualization.DataTable();
+            data.addColumn('string', 'Name');
+            data.addColumn('string', 'Manager');
+            data.addColumn('string', 'ToolTip');
+            r.d = JSON.parse($('.LblJson').text());
+            if (r.d.length > 0) {
+                var formatedData = [];
+                for (var i = 0; i < r.d.length; i++) {
+                    let arregloAux = [JSON.parse(r.d[i][0]), i != 0 ? r.d[i][1] : "", r.d[i][2]]//por cada registro convertimos en JSON los titulos y subtitulos(llegan en String) y damos formato al header
+                    formatedData.push(arregloAux);
+                }
+                data.addRows(formatedData);
+                var chart = new google.visualization.OrgChart(document.getElementById('chart_div'));
+                for (let i = 0; i < data.getNumberOfRows(); i++) {
+                    data.setRowProperty(i, 'style', "font-weight:normal");
+                }
+                chart.draw(data, options);
+            } else {
+                let contenedor = document.getElementById('chart_div');
+                contenedor.innerHTML = '';
+                console.log('vacio')
+            }
+        }
+
+        function ADSBegin() {
+        google.charts.load('current', { packages: ["orgchart"] });
+        google.charts.setOnLoadCallback(drawb);
+        }
+    </script>
 </asp:Content>
 

RH/Organigrama.aspx.vb

@@ -86,14 +86,8 @@ Partial Class RH_Organigrama
         CveEmpresaFiltro = UsuarioActual.CveEmpresa
         NivelOrg = If(rgx.IsMatch(txtNivel.Text), txtNivel.Text.ToEntero, NivelOrg)
         txtNivel.Text = ""
-        DdlSupervisorOrganigrama.SelectedIndex = 0
+        'DdlSupervisorOrganigrama.SelectedIndex = 0
-        ScriptManager.RegisterClientScriptBlock(Me, [GetType], "mykey", "drawChart()", True) 'ejecutamos la funcion de js para que haga la consulta de los registros
-    End Sub
 
-#End Region
-
-    <WebMethod()>
-    Public Shared Function FetchData() As List(Of Object)
         Dim ObjRH As New ClsRH
         Dim DtTemporal As New DataTable
         Dim chartData As New List(Of Object)()
@@ -110,8 +104,33 @@ Partial Class RH_Organigrama
                 chartData.Add(New Object() {headerEmpleado, If(nombreEmpleado = nombreSuperior, "", nombreSuperior), puesto})
             Next
         End If
+        Dim str As String = (New Script.Serialization.JavaScriptSerializer()).Serialize(chartData)
+        LblJson.Text = str
+        'ScriptManager.RegisterClientScriptBlock(Me, [GetType], "mykey", "drawChart()", True) 'ejecutamos la funcion de js para que haga la consulta de los registros
+    End Sub
 
-        Return chartData
+#End Region
+
+    <WebMethod()>
+    Public Shared Function FetchData() As String
+        Dim ObjRH As New ClsRH
+        Dim DtTemporal As New DataTable
+        Dim chartData As New List(Of Object)()
+
+        If ObjRH.GetOrganigrama(CveEmpresaFiltro, CveCabecera, NivelOrg) Then
+            DtTemporal = ObjRH.DtResultados.Copy
+
+            For Each renglon As DataRow In DtTemporal.Rows
+                Dim nombreEmpleado As String = renglon("nombreEmpleado").ToString
+                Dim nombreSuperior As String = renglon("nombreSuperior").ToString
+                Dim puesto As String = renglon("puesto").ToString
+                Dim headerEmpleado As String = String.Format("{{{2}v{2}:{2}{0}{2},{2}f{2}:{2}{0}<div style='color:#32A1CF;font-size:10px;font-style:italic'>{1}</div>{2}}}", nombreEmpleado, puesto, ControlChars.Quote) 'este es el JSON que da formato a los subtitulos se hace en String y la funcion lo hace JSON
+
+                chartData.Add(New Object() {headerEmpleado, If(nombreEmpleado = nombreSuperior, "", nombreSuperior), puesto})
+            Next
+        End If
+        Dim str As String = (New Script.Serialization.JavaScriptSerializer()).Serialize(chartData)
+        Return str
     End Function
 
 End Class

RH/Personal.aspx

@@ -715,7 +715,7 @@
                                                         <asp:DropDownList ID="DdlSupervisor" runat="server" AppendDataBoundItems="True" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar" Width="100%">
                                                             <asp:ListItem Selected="True" Text="Sin Supervisor Asignado" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
-                                                        <label for="<%= DdlSupervisor.ClientID.ToString()%>">Supervisor RH: </label>
+                                                        <asp:Label AssociatedControlID="DdlSupervisor" runat="server" Text="Supervisor RH:"></asp:Label>
                                                         <i></i>
                                                     </div>
                                                     <div runat="server" id="DivSuperiorInmediato" class="form-group form-md-line-input input-iconright">
@@ -723,7 +723,7 @@
                                                             <asp:ListItem Selected="True" Text="Sin Asignar" Value="-1"></asp:ListItem>
                                                             <asp:ListItem Text="Cabecera" Value="0"></asp:ListItem>
                                                         </asp:DropDownList>
-                                                        <label for="<%= DdlSupervisor.ClientID.ToString()%>">Superior Inmediato: </label>
+                                                        <asp:Label AssociatedControlID="DdlSupervisorOrganigrama" runat="server" Text="Superior Inmediato:"></asp:Label>
                                                         <i></i>
                                                     </div>
                                                 </div>
@@ -829,7 +829,7 @@
 
                                                     <asp:UpdatePanel ID="UpUniformesResguardo" runat="server" UpdateMode="Conditional">
                                                         <ContentTemplate>
-                                                            <asp:GridView ID="GvUniformesResguardo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron  registros de uniforme" ToolTip="Listado de familiares"
+                                                            <asp:GridView ID="GvUniformesResguardo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" DataKeyNames="CveAlmacen,CodigoPS,PU,CveUM,CveMovimiento,CveMovimientoDetalle,CvePS,AplicaSeccion,AplicaSerie,CveSeccionAlmacen" ToolTip=""
                                                                 CssClass="table  table-hover table-advance  Widthall" GridLines="None">
                                                                 <Columns>
                                                                     <asp:HyperLinkField DataNavigateUrlFields="CveMovimiento" Target="_blank" HeaderText="Folio" DataNavigateUrlFormatString="../Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataTextField="Folio" />
@@ -3861,13 +3861,18 @@
                     <h4 class="modal-title">Liberar Uniforme</h4>
                 </div>
                 <div class="modal-body">
-                    <asp:UpdatePanel runat="server" ID="UpdatePanel3" UpdateMode="Conditional">
+                    <asp:UpdatePanel runat="server" ID="UPPLiberarUniforme" UpdateMode="Conditional">
                         <ContentTemplate>
-                            <div class="row" style="width: 50%; text-align: center">
+                            <div class="row" style="width: 75%;">
                                 <asp:Label Text="Almacen: " runat="server" Style="width: 20%" />
                                 <asp:DropDownList runat="server" ID="DdlAlmacenDestinoLiberarUniforme" CssClass="form-control input-sm select2me" Style="width: 50%" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
                             </div>
-
+                            <div runat="server" id="divSeccionAlmacen" class="frow" visible="false">
+                                <asp:Label Text="Sección: " runat="server" Style="width: 20%" />
+                                <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 50% !important" runat="server" CausesValidation="true">
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>                            
+                        </div>
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>

RH/Personal.aspx.vb

@@ -272,6 +272,14 @@ Partial Class RH_Personal
             ViewState("CveAlmacenUniforme") = value
         End Set
     End Property
+    Private Property CveSeccionAlmacenUniforme As Integer
+        Get
+            Return CInt(ViewState("CveSeccionAlmacenUniforme"))
+        End Get
+        Set(value As Integer)
+            ViewState("CveSeccionAlmacenUniforme") = value
+        End Set
+    End Property
 
     Private Property DescripcionUniforme As String
         Get
@@ -302,7 +310,7 @@ Partial Class RH_Personal
 
     Private Property PU As Decimal
         Get
-            Return CInt(ViewState("PU"))
+            Return ViewState("PU").ToString.ToDecimal
         End Get
         Set(value As Decimal)
             ViewState("PU") = value
@@ -5126,19 +5134,25 @@ Partial Class RH_Personal
         Dim lb As LinkButton = CType(sender, LinkButton)
 
         Dim row As GridViewRow = CType(lb.NamingContainer, GridViewRow)
-        Dim index As Integer = row.DataItemIndex
 
-        Dim rowInfo As DataRow = UniformesInfo.Rows(index)
+        CveAlmacenUniforme = row.DataKey("CveAlmacen").ToString().ToEntero
+        DescripcionUniforme = row.DataKey("CodigoPS")
+        PU = row.DataKey("PU").ToString().ToDecimal
+        CveSeccionAlmacenUniforme = row.DataKey("CveSeccionAlmacen").ToString().ToEntero
+        CveUM = row.DataKey("CveUM").ToString().ToEntero
+        CvePS = row.DataKey("CvePS").ToString().ToEntero
+        CveMovimientoUniforme = row.DataKey("CveMovimiento").ToString().ToEntero
+        CveMovimientoDetalleUniforme = row.DataKey("CveMovimientoDetalle").ToString().ToEntero
+        If row.DataKey("AplicaSeccion").ToString = "True" Then
+            divSeccionAlmacen.Visible = True
+            DdlSeccionAlmacen.Items.Clear()
+            CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePS, UsuarioActual.CveEmpresa)
+            DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePS)
+            DdlSeccionAlmacen.DataBind()
+        End If
 
 
-        CveAlmacenUniforme = rowInfo.Item("CveAlmacen").ToString().ToEntero
+        UPPLiberarUniforme.Update()
-        DescripcionUniforme = rowInfo.Item("CodigoPS").ToString()
-        PU = rowInfo.Item("PU").ToString().ToDecimal
-
-        CveUM = rowInfo.Item("CveUM").ToString().ToEntero
-        CvePS = rowInfo.Item("CvePS").ToString().ToEntero
-        CveMovimientoUniforme = rowInfo.Item("CveMovimiento").ToString().ToEntero
-        CveMovimientoDetalleUniforme = rowInfo.Item("CveMovimientoDetalle").ToString().ToEntero
 
         RegistraScript(String.Format("$('#{0}').modal();", "ModalUniforme"))
     End Sub
@@ -5151,20 +5165,25 @@ Partial Class RH_Personal
 
     Sub LiberarUniforme(sender As Object, e As EventArgs)
 
-        Dim ObjInv As New ClsInventarios
+        Dim ObjInventario As New ClsInventarios
+        ObjInventario.IniciaTransacSQL()
 
-        Dim ResultadoSalida As Integer = ObjInv.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=CInt(DdlAlmacenDestinoLiberarUniforme.SelectedValue), CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
+        Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
-        Dim ResultadoEntrada As Integer = ObjInv.AddMovimiento(CInt(DdlAlmacenDestinoLiberarUniforme.SelectedValue), 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
+        Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
-
+        Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
-        Dim ResultadoDetalleSalida As Boolean = ObjInv.AddMovimientoDetalle(ResultadoSalida, 1.0, CveUM, CvePS, PU, -1, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
+        Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
-        Dim ResultadoDetalleEntrada As Boolean = ObjInv.AddMovimientoDetalle(ResultadoEntrada, 1.0, CveUM, CvePS, PU, -1)
+        Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen)
 
         If ResultadoDetalleSalida And ResultadoDetalleEntrada Then
+            ObjInventario.Commit()
             Alert("Uniforme liberado")
             RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme"))
             CargaUniformesPersonal()
+        Else
+            Alert("No se pudo registrar la liberación.", TipoMensaje.MsgError)
+            ObjInventario.RollBack()
         End If
-        ObjInv.Dispose()
+        ObjInventario.Dispose()
     End Sub
 
 
@@ -5173,7 +5192,7 @@ Partial Class RH_Personal
 
 #Region "CARGAR IMAGEN"
     Private Sub LnkSubirFacturas_Click(sender As Object, e As EventArgs) Handles LnkSubirFacturas.Click
-        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
+        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchivo"))
     End Sub
 
     Private Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click

Sistemas/UsuarioDetalle.aspx.vb

@@ -1326,8 +1326,8 @@ Partial Class Sistemas_UsuarioDetalle
 
 
         'RECARGA GLOBAL ALMACEN
-        If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
+        'If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
-
+        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
 
         'RECARGA GLOBAL EMPRESAS USUARIOS
         If ObjUsuarios.GetUsuariosEmpresas(-1) Then

Ventas/ProductosServicios.aspx

@@ -549,11 +549,13 @@
                                             <div class="col-md-1">
                                                 <asp:CheckBox ID="ChkAplicaIeps" CssClass="" AutoPostBack="true" data-size="small" runat="server" Text=" " /></td>
                                            
+                                           
                                             </div>
                                             <label class="col-md-4">¿Graba en IVA?</label>
                                             <div class="col-md-1">
                                                 <asp:CheckBox ID="ChkIepsIVA" CssClass="" Enabled="false" data-size="small" runat="server" Text=" " /></td>
                                            
+                                           
                                             </div>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright">
@@ -721,6 +723,7 @@
                                             <div class="col-md-6" style="text-align: left">
                                                 <input id="ChkSeleccionarTodos" type="checkbox" title="Seleccionar Todos" onclick="SeleccionarTodosChkGvSucursa()" />Seleccionar Todos
                                            
+                                           
                                             </div>
                                             <div class="col-md-6" style="text-align: right">
                                                 <label>Aplicar precio minimo</label>
@@ -785,234 +788,239 @@
 
                 <ajax:TabPanel HeaderText="Contabilidad - Inventarios" ID="TabContabilidad" runat="server">
                     <ContentTemplate>
-                        <div class="row">
+                        <asp:UpdatePanel runat="server" ID="UpConta" UpdateMode="Conditional">
-                            <div class="col-md-6">
+                            <ContentTemplate>
-                                <div class="portlet xspadding light bordered">
+
-                                    <div class="portlet-title">
+                                <div class="row">
-                                        <div class="caption font-green">
+                                    <div class="col-md-6">
-                                            <i class="icon-briefcase font-green"></i>
+                                        <div class="portlet xspadding light bordered">
-                                            <span class="caption-subject bold uppercase">Inventarios</span>
+                                            <div class="portlet-title">
-                                        </div>
+                                                <div class="caption font-green">
-                                        <div class="actions">
+                                                    <i class="icon-briefcase font-green"></i>
-                                            <div class="btn-group">
+                                                    <span class="caption-subject bold uppercase">Inventarios</span>
+                                                </div>
+                                                <div class="actions">
+                                                    <div class="btn-group">
+                                                    </div>
+                                                </div>
                                             </div>
-                                        </div>
+                                            <div class="portlet-body">
-                                    </div>
+                                                <%-- <div class="row">
-                                    <div class="portlet-body">
-                                        <%-- <div class="row">
                                             <label class="col-md-6 truncate">¿Permite vender sin existencia?</label>
                                             <div class="col-md-6">
                                                 <asp:CheckBox ID="ChkVentaSinExistencia" CssClass="make-switchsd" data-size="small" runat="server" Enabled="false" Text=" " /></td>
                                             </div>
                                         </div>--%>
-                                        <div class="row" style="margin-top: 5px;">
+                                                <div class="row" style="margin-top: 5px;">
-                                            <label class="col-md-6 truncate">Método de salida de Inventario</label>
+                                                    <label class="col-md-6 truncate">Método de salida de Inventario</label>
-                                            <div class="col-md-6">
+                                                    <div class="col-md-6">
-                                                <asp:UpdatePanel ID="UpMetodos" runat="server" UpdateMode="Conditional" RenderMode="Inline">
+                                                        <asp:UpdatePanel ID="UpMetodos" runat="server" UpdateMode="Conditional" RenderMode="Inline">
-                                                    <ContentTemplate>
+                                                            <ContentTemplate>
-                                                        <asp:DropDownList CssClass="form-control input-sm select2me" Width="50%" ID="ddlMetodos" runat="server" DataTextField="MetodoInventario" DataValueField="CveMetodoInventario" AutoPostBack="true" OnSelectedIndexChanged="ddlMetodos_SelectedIndexChanged"></asp:DropDownList>
+                                                                <asp:DropDownList CssClass="form-control input-sm select2me" Width="50%" ID="ddlMetodos" runat="server" DataTextField="MetodoInventario" DataValueField="CveMetodoInventario" AutoPostBack="true" OnSelectedIndexChanged="ddlMetodos_SelectedIndexChanged"></asp:DropDownList>
-                                                        <asp:RequiredFieldValidator InitialValue="-1" ID="RfvddlMetodos" Display="None" runat="server" ControlToValidate="ddlMetodos" ValidationGroup="GrpGuardar" Enabled="false" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método de salida de Inventario''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                                                                <asp:RequiredFieldValidator InitialValue="-1" ID="RfvddlMetodos" Display="None" runat="server" ControlToValidate="ddlMetodos" ValidationGroup="GrpGuardar" Enabled="false" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método de salida de Inventario''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
-                                                        <ajax:ValidatorCalloutExtender ID="RfvCRfvddlMetodos" runat="server" HighlightCssClass="vco" TargetControlID="RfvddlMetodos" Width="100px"></ajax:ValidatorCalloutExtender>
+                                                                <ajax:ValidatorCalloutExtender ID="RfvCRfvddlMetodos" runat="server" HighlightCssClass="vco" TargetControlID="RfvddlMetodos" Width="100px"></ajax:ValidatorCalloutExtender>
-                                                    </ContentTemplate>
+                                                            </ContentTemplate>
-                                                </asp:UpdatePanel>
+                                                        </asp:UpdatePanel>
+                                                    </div>
+                                                </div>
+                                                <div class="row" style="margin-top: 5px;">
+                                                    <label class="col-md-6 truncate">Almacén Sección</label>
+                                                    <div class="col-md-6">
+                                                        <asp:TextBox ID="TxtAlmacenSeccion" runat="server"></asp:TextBox>
+                                                    </div>
+                                                </div>
+
+
+                                                <%--Nuevo R: 27/09/2017--%>
+
+                                                <div class="row" style="margin-top: 5px;">
+                                                    <label class="col-md-6 truncate">Inventariable</label>
+                                                    <div class="col-md-6">
+
+                                                        <asp:CheckBox ID="ChkInventariable" CssClass="chksino" data-size="small" runat="server" Text=" " />
+
+                                                    </div>
+                                                </div>
+                                                <div class="row" style="margin-top: 5px;">
+                                                    <label class="col-md-6 truncate">Aplica Serie</label>
+                                                    <div class="col-md-6">
+
+                                                        <asp:CheckBox ID="ChkSerie" CssClass="chksino" data-size="small" runat="server" Text=" " OnCheckedChanged="ChkSerie_CheckedChanged" AutoPostBack="true" />
+
+                                                    </div>
+                                                </div>
+                                                <div class="row" style="margin-top: 5px;">
+                                                    <label class="col-md-6 truncate">Aplica Lote</label>
+                                                    <div class="col-md-6">
+
+                                                        <asp:CheckBox ID="ChkLote" CssClass="chksino" data-size="small" runat="server" Text=" " />
+
+                                                    </div>
+                                                </div>
+                                                <div class="row" style="margin-top: 5px;">
+                                                    <label class="col-md-6 truncate">Aplica Caducidad</label>
+                                                    <div class="col-md-6">
+
+                                                        <asp:CheckBox ID="ChkCaducidad" CssClass="chksino" data-size="small" runat="server" Text=" " />
+
+                                                    </div>
+                                                </div>
+                                                <div class="row" style="margin-top: 5px;">
+                                                    <label class="col-md-6 truncate">Aplica Sección</label>
+                                                    <div class="col-md-6">
+
+                                                        <asp:CheckBox ID="ChkSeccion" CssClass="chksino" data-size="small" runat="server" AutoPostBack="true" OnCheckedChanged="ChkSeccion_CheckedChanged" Text=" " />
+
+                                                    </div>
+                                                </div>
+                                                <div class="row" style="margin-top: 5px;" id="DivProveedorCompra" runat="server" visible="false">
+                                                    <label class="col-md-6 truncate">Proveedor de Compra</label>
+                                                    <div class="col-md-6">
+                                                        <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlProveedor" data-metodo="getproveedores" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                                                    </div>
+                                                </div>
+                                                <div class="row" style="margin-top: 5px" id="DivMoneda" runat="server" visible="false">
+                                                    <label class="col-md-6 truncate">Moneda</label>
+                                                    <div class="col-md-6">
+                                                        <asp:DropDownList CssClass="form-control input-sm select2me" Width="50%" ID="DdlMoneda" runat="server" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
+                                                    </div>
+                                                </div>
+                                                <br />
+                                                <div class="row" style="margin-top: 5px;">
+                                                    <div class="col-md-6">
+                                                        <asp:HyperLink ID="HplKardex" ForeColor="Blue" Text="Ir al Kardex" Target="_blank" runat="server"></asp:HyperLink>
+                                                    </div>
+                                                </div>
+                                                <div class="row" style="margin-top: 5px;">
+                                                    <label class="col-md-6 truncate">Ultimo Costo</label>
+                                                    <div class="col-md-6">
+                                                        <asp:Label ID="LblUltimoCosto" runat="server"></asp:Label>
+                                                    </div>
+                                                </div>
+                                                <div class="row" style="margin-top: 5px;">
+                                                    <label class="col-md-6 truncate">Costo Promedio</label>
+                                                    <div class="col-md-6">
+                                                        <asp:Label ID="LblCostoPromedio" runat="server"></asp:Label>
+                                                    </div>
+                                                </div>
+                                                <div class="row" style="margin-top: 5px;">
+                                                    <label class="col-md-6 truncate">Fecha Ultima Compra</label>
+                                                    <div class="col-md-6">
+                                                        <asp:Label ID="LblFechaUltimaCompra" runat="server"></asp:Label>
+                                                    </div>
+                                                </div>
+                                                <div class="row">
+                                                    <div class="col-md-12">
+                                                        <asp:GridView ID="GVExistencias" Width="100%" runat="server" OnRowDataBound="GVExistencias_RowDataBound" AutoGenerateColumns="false" EmptyDataText="No se encontraron existencias" CssClass="table table-striped table-hover" GridLines="None">
+                                                            <Columns>
+                                                                <asp:BoundField DataField="Almacen" HeaderText="Almacén" />
+                                                                <asp:BoundField DataField="UnidadMedida" HeaderText="Unidad de Medida" />
+                                                                <asp:BoundField DataField="Existencia" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia" DataFormatString="{0:#,###.######}" />
+                                                                <asp:BoundField DataField="PendientePorSurtir" ItemStyle-HorizontalAlign="Right" HeaderText="Pendiente Por Surtir" DataFormatString="{0:#,###.######}" />
+                                                                <asp:BoundField DataField="ExistenciaFinal" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia Real" DataFormatString="{0:#,###.######}" />
+                                                                <asp:BoundField DataField="CantidadDisponibleInv" ItemStyle-HorizontalAlign="Right" HeaderText="Pendiente Por Recibir" DataFormatString="{0:#,###.######}" Visible="false" />
+                                                            </Columns>
+                                                        </asp:GridView>
+                                                    </div>
+                                                </div>
                                             </div>
                                         </div>
-                                        <div class="row" style="margin-top: 5px;">
+                                    </div>
-                                            <label class="col-md-6 truncate">Almacén Sección</label>
+                                    <div class="col-md-6">
-                                            <div class="col-md-6">
+                                        <div class="portlet xspadding light bordered">
-                                                <asp:TextBox ID="TxtAlmacenSeccion" runat="server"></asp:TextBox>
+                                            <div class="portlet-title">
+                                                <div class="caption font-green">
+                                                    <i class="icon-briefcase font-green"></i>
+                                                    <span class="caption-subject bold uppercase">Concepto Relacionado</span>
+                                                </div>
+                                                <div class="actions">
+                                                    <div class="btn-group">
+                                                    </div>
+                                                </div>
                                             </div>
-                                        </div>
+                                            <div class="portlet-body">
-
+                                                <div class="row">
-
+                                                    <label class="col-md-4 truncate">Concepto:</label>
-                                        <%--Nuevo R: 27/09/2017--%>
+                                                    <div class="col-md-8">
-
+                                                        <asp:DropDownList ID="DdlConceptoRelacionado" CssClass="form-control input-sm select2me" Width="50%" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable">
-                                        <div class="row" style="margin-top: 5px;">
+                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                            <label class="col-md-6 truncate">Inventariable</label>
+                                                        </asp:DropDownList>
-                                            <div class="col-md-6">
+                                                    </div>
-
+                                                </div>
-                                                <asp:CheckBox ID="ChkInventariable" CssClass="chksino" data-size="small" runat="server" Text=" " />
-
-                                            </div>
-                                        </div>
-                                        <div class="row" style="margin-top: 5px;">
-                                            <label class="col-md-6 truncate">Aplica Serie</label>
-                                            <div class="col-md-6">
-
-                                                <asp:CheckBox ID="ChkSerie" CssClass="chksino" data-size="small" runat="server" Text=" " />
-
-                                            </div>
-                                        </div>
-                                        <div class="row" style="margin-top: 5px;">
-                                            <label class="col-md-6 truncate">Aplica Lote</label>
-                                            <div class="col-md-6">
-
-                                                <asp:CheckBox ID="ChkLote" CssClass="chksino" data-size="small" runat="server" Text=" " />
-
-                                            </div>
-                                        </div>
-                                        <div class="row" style="margin-top: 5px;">
-                                            <label class="col-md-6 truncate">Aplica Caducidad</label>
-                                            <div class="col-md-6">
-
-                                                <asp:CheckBox ID="ChkCaducidad" CssClass="chksino" data-size="small" runat="server" Text=" " />
-
-                                            </div>
-                                        </div>
-                                        <div class="row" style="margin-top: 5px;">
-                                            <label class="col-md-6 truncate">Aplica Sección</label>
-                                            <div class="col-md-6">
-
-                                                <asp:CheckBox ID="ChkSeccion" CssClass="chksino" data-size="small" runat="server" AutoPostBack="true" OnCheckedChanged="ChkSeccion_CheckedChanged" Text=" " />
-
-                                            </div>
-                                        </div>
-                                        <div class="row" style="margin-top: 5px;" id="DivProveedorCompra" runat="server" visible="false">
-                                            <label class="col-md-6 truncate">Proveedor de Compra</label>
-                                            <div class="col-md-6">
-                                                <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlProveedor" data-metodo="getproveedores" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" CssStyle="width: 100%;"></ADS:Dropdownlost>
-                                            </div>
-                                        </div>
-                                        <div class="row" style="margin-top: 5px" id="DivMoneda" runat="server" visible="false">
-                                            <label class="col-md-6 truncate">Moneda</label>
-                                            <div class="col-md-6">
-                                                <asp:DropDownList CssClass="form-control input-sm select2me" Width="50%" ID="DdlMoneda" runat="server" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
                                             </div>
                                         </div>
                                         <br />
-                                        <div class="row" style="margin-top: 5px;">
+                                        <div class="portlet xspadding light bordered">
-                                            <div class="col-md-6">
+                                            <div class="portlet-title">
-                                                <asp:HyperLink ID="HplKardex" ForeColor="Blue" Text="Ir al Kardex" Target="_blank" runat="server"></asp:HyperLink>
+                                                <div class="caption font-green">
-                                            </div>
+                                                    <i class="icon-briefcase font-green"></i>
-                                        </div>
+                                                    <span class="caption-subject bold uppercase">Comercio Exterior</span>
-                                        <div class="row" style="margin-top: 5px;">
+                                                </div>
-                                            <label class="col-md-6 truncate">Ultimo Costo</label>
+                                                <div class="actions">
-                                            <div class="col-md-6">
+                                                    <div class="btn-group">
-                                                <asp:Label ID="LblUltimoCosto" runat="server"></asp:Label>
-                                            </div>
-                                        </div>
-                                        <div class="row" style="margin-top: 5px;">
-                                            <label class="col-md-6 truncate">Costo Promedio</label>
-                                            <div class="col-md-6">
-                                                <asp:Label ID="LblCostoPromedio" runat="server"></asp:Label>
-                                            </div>
-                                        </div>
-                                        <div class="row" style="margin-top: 5px;">
-                                            <label class="col-md-6 truncate">Fecha Ultima Compra</label>
-                                            <div class="col-md-6">
-                                                <asp:Label ID="LblFechaUltimaCompra" runat="server"></asp:Label>
-                                            </div>
-                                        </div>
-                                        <div class="row">
-                                            <div class="col-md-12">
-                                                <asp:GridView ID="GVExistencias" Width="100%" runat="server" OnRowDataBound="GVExistencias_RowDataBound" AutoGenerateColumns="false" EmptyDataText="No se encontraron existencias" CssClass="table table-striped table-hover" GridLines="None">
-                                                    <Columns>
-                                                        <asp:BoundField DataField="Almacen" HeaderText="Almacén" />
-                                                        <asp:BoundField DataField="UnidadMedida" HeaderText="Unidad de Medida" />
-                                                        <asp:BoundField DataField="Existencia" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia" DataFormatString="{0:#,###.######}" />
-                                                        <asp:BoundField DataField="PendientePorSurtir" ItemStyle-HorizontalAlign="Right" HeaderText="Pendiente Por Surtir" DataFormatString="{0:#,###.######}" />
-                                                        <asp:BoundField DataField="ExistenciaFinal" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia Real" DataFormatString="{0:#,###.######}" />
-                                                        <asp:BoundField DataField="CantidadDisponibleInv" ItemStyle-HorizontalAlign="Right" HeaderText="Pendiente Por Recibir" DataFormatString="{0:#,###.######}" Visible="false" />
-                                                    </Columns>
-                                                </asp:GridView>
-                                            </div>
-                                        </div>
-                                    </div>
-                                </div>
-                            </div>
-                            <div class="col-md-6">
-                                <div class="portlet xspadding light bordered">
-                                    <div class="portlet-title">
-                                        <div class="caption font-green">
-                                            <i class="icon-briefcase font-green"></i>
-                                            <span class="caption-subject bold uppercase">Concepto Relacionado</span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
-                                        </div>
-                                    </div>
-                                    <div class="portlet-body">
-                                        <div class="row">
-                                            <label class="col-md-4 truncate">Concepto:</label>
-                                            <div class="col-md-8">
-                                                <asp:DropDownList ID="DdlConceptoRelacionado" CssClass="form-control input-sm select2me" Width="50%" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable">
-                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                </asp:DropDownList>
-                                            </div>
-                                        </div>
-                                    </div>
-                                </div>
-                                <br />
-                                <div class="portlet xspadding light bordered">
-                                    <div class="portlet-title">
-                                        <div class="caption font-green">
-                                            <i class="icon-briefcase font-green"></i>
-                                            <span class="caption-subject bold uppercase">Comercio Exterior</span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
-                                        </div>
-                                    </div>
-                                    <div class="portlet-body">
-                                        <div class="row">
-                                            <label class="col-md-4 truncate">Fracción Arancelaria:</label>
-                                            <div class="col-md-8">
-                                                <ADS:Dropdownlost ID="DdlFraccionArancelaria" Onselectedindexchange="DdlFraccionArancelaria_selectedindexchange" runat="server" CssStyle="width: 100%;" DataTextField="ClaveSATFraccionArancelariaDescripcion" DataValueField="CveFraccionArancelaria"></ADS:Dropdownlost>
-                                            </div>
-                                        </div>
-                                        <div class="row">
-                                            <label class="col-md-4 truncate">Unidad Aduana:</label>
-                                            <div class="col-md-8">
-                                                <asp:Label ID="LblUnidadAduana" runat="server"></asp:Label>
-                                            </div>
-                                        </div>
-                                    </div>
-                                </div>
-                                <br />
-                                <asp:UpdatePanel ID="UpSeccionAlmacen" runat="server" UpdateMode="Conditional">
-                                    <ContentTemplate>
-                                        <div id="DivSeccionAlmacen" runat="server" visible="false">
-                                            <div class="portlet xspadding light bordered">
-                                                <div class="portlet-title">
-                                                    <div class="caption font-green">
-                                                        <i class="icon-briefcase font-green"></i>
-                                                        <span class="caption-subject bold uppercase">Secciones de Almacen</span>
-                                                    </div>
-                                                    <div class="actions">
-                                                        <div class="btn-group">
-                                                            <asp:LinkButton ID="LnkSeccionAlmacenAdd" OnClick="LnkSeccionAlmacenAdd_Click" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar Seccion de Almacen" CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
-                                                        </div>
                                                     </div>
                                                 </div>
-                                                <div class="portlet-body">
+                                            </div>
-                                                    <asp:GridView ID="GvSeccionAlmacen" runat="server" AutoGenerateColumns="False" 
+                                            <div class="portlet-body">
-                                                        DataKeyNames="CvePSAlmacenSeccion,CveAlmacen,CveAlmacenSeccion" 
+                                                <div class="row">
-                                                        EmptyDataText="No se encontraron Productos/Servicios Adicionales" 
+                                                    <label class="col-md-4 truncate">Fracción Arancelaria:</label>
-                                                        CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" OnRowDataBound="GvSeccionAlmacen_RowDataBound">
+                                                    <div class="col-md-8">
-                                                        <Columns>
+                                                        <ADS:Dropdownlost ID="DdlFraccionArancelaria" Onselectedindexchange="DdlFraccionArancelaria_selectedindexchange" runat="server" CssStyle="width: 100%;" DataTextField="ClaveSATFraccionArancelariaDescripcion" DataValueField="CveFraccionArancelaria"></ADS:Dropdownlost>
-                                                            <asp:BoundField DataField="Almacen" HeaderText="Almacen" ItemStyle-HorizontalAlign="Left" />
+                                                    </div>
-                                                            <asp:BoundField DataField="AlmacenSeccion" HeaderText="Sección Almacen" ItemStyle-HorizontalAlign="Left" />
+                                                </div>
-<%--                                                            <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Editar">
+                                                <div class="row">
+                                                    <label class="col-md-4 truncate">Unidad Aduana:</label>
+                                                    <div class="col-md-8">
+                                                        <asp:Label ID="LblUnidadAduana" runat="server"></asp:Label>
+                                                    </div>
+                                                </div>
+                                            </div>
+                                        </div>
+                                        <br />
+                                        <asp:UpdatePanel ID="UpSeccionAlmacen" runat="server" UpdateMode="Conditional">
+                                            <ContentTemplate>
+                                                <div id="DivSeccionAlmacen" runat="server" visible="false">
+                                                    <div class="portlet xspadding light bordered">
+                                                        <div class="portlet-title">
+                                                            <div class="caption font-green">
+                                                                <i class="icon-briefcase font-green"></i>
+                                                                <span class="caption-subject bold uppercase">Secciones de Almacen</span>
+                                                            </div>
+                                                            <div class="actions">
+                                                                <div class="btn-group">
+                                                                    <asp:LinkButton ID="LnkSeccionAlmacenAdd" OnClick="LnkSeccionAlmacenAdd_Click" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar Seccion de Almacen" CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
+                                                                </div>
+                                                            </div>
+                                                        </div>
+                                                        <div class="portlet-body">
+                                                            <asp:GridView ID="GvSeccionAlmacen" runat="server" AutoGenerateColumns="False"
+                                                                DataKeyNames="CvePSAlmacenSeccion,CveAlmacen,CveAlmacenSeccion"
+                                                                EmptyDataText="No se encontraron Productos/Servicios Adicionales"
+                                                                CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" OnRowDataBound="GvSeccionAlmacen_RowDataBound">
+                                                                <Columns>
+                                                                    <asp:BoundField DataField="Almacen" HeaderText="Almacen" ItemStyle-HorizontalAlign="Left" />
+                                                                    <asp:BoundField DataField="AlmacenSeccion" HeaderText="Sección Almacen" ItemStyle-HorizontalAlign="Left" />
+                                                                    <%--                                                            <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Editar">
                                                                 <ItemTemplate>
                                                                     <asp:LinkButton ID="LnkEditarSeccionAlmacen" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="LnkEditarSeccionAlmacen_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>--%>
-                                                            <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Eliminar">
+                                                                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Eliminar">
-                                                                <ItemTemplate>
+                                                                        <ItemTemplate>
-                                                                    <asp:LinkButton ID="LnkRemoveSeccionAlmacen" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="LnkRemoveSeccionAlmacen_Click" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
+                                                                            <asp:LinkButton ID="LnkRemoveSeccionAlmacen" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="LnkRemoveSeccionAlmacen_Click" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
-                                                                </ItemTemplate>
+                                                                        </ItemTemplate>
-                                                            </asp:TemplateField>
+                                                                    </asp:TemplateField>
-                                                        </Columns>
+                                                                </Columns>
-                                                    </asp:GridView>
+                                                            </asp:GridView>
+                                                        </div>
+                                                    </div>
                                                 </div>
-                                            </div>
+                                            </ContentTemplate>
-                                        </div>
+                                        </asp:UpdatePanel>
-                                    </ContentTemplate>
+                                    </div>
-                                </asp:UpdatePanel>
+                                </div>
-                            </div>
+                            </ContentTemplate>
-                        </div>
+                        </asp:UpdatePanel>
                     </ContentTemplate>
                 </ajax:TabPanel>
 
@@ -1085,6 +1093,8 @@
                                                 <asp:LinkButton ID="LbCaracteristica1" runat="server" CausesValidation="false" Text="" CommandArgument="Caracteristica1;1" OnClick="LbOrden_Click">
                                                     Característica
                                                                                        
+                                                   
+
                                                     <asp:Literal ID="ImgCaracteristica1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                 </asp:LinkButton>
                                             </th>
@@ -1092,6 +1102,8 @@
                                                 <asp:LinkButton ID="LbOpcion1" runat="server" CausesValidation="false" Text="" CommandArgument="Opcion1;1" OnClick="LbOrden_Click">
                                                     Opción
                                                                                        
+                                                   
+
                                                     <asp:Literal ID="ImgOpcion1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                 </asp:LinkButton>
                                             </th>
@@ -1099,6 +1111,8 @@
                                                 <asp:LinkButton ID="LbFechaIng1" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng1;1" OnClick="LbOrden_Click">
                                                     Fecha Ing.
                                                                                        
+                                                   
+
                                                     <asp:Literal ID="ImgFechaIng1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                 </asp:LinkButton>
                                             </th>
@@ -1106,6 +1120,8 @@
                                                 <asp:LinkButton ID="LbUsuario1" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario1;1" OnClick="LbOrden_Click">
                                                     Usuario
                                                                                        
+                                                   
+
                                                     <asp:Literal ID="ImgUsuario1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                 </asp:LinkButton>
                                             </th>
@@ -1748,6 +1764,8 @@
                                             <p>
                                                 El producto seleccionado en el recuadro de arriba sera unificado en el producto actual 
                                                
+                                               
+
                                                 <b>
                                                     <asp:Literal Text="" ID="LtProductoUnificar" runat="server" /></b>
                                             </p>
@@ -1980,6 +1998,7 @@
                     <p>
                         Tipo de Clasificación:
                    
+                   
                     </p>
                     <asp:RadioButtonList ID="RblTipoClasificación" runat="server" CssClass="rbl" RepeatDirection="Vertical" RepeatLayout="Table">
                         <asp:ListItem Text="Todas" Value="-1" Selected="True"></asp:ListItem>
@@ -1990,6 +2009,7 @@
                     <asp:LinkButton ID="BtnTipoCla" OnClick="BtnTipoCla_Click" runat="server" CssClass="btn btn-success" Text="Aceptar" />
                     &nbsp;
                
+               
                 </div>
             </ContentTemplate>
         </asp:UpdatePanel>
@@ -2072,7 +2092,7 @@
                     </div>
                     <div class="modal-body">
                         <div class="form-group form-md-line-input input-iconright">
-                            <asp:DropDownList ID="DdlAlmacen" Width="50%" runat="server" CssClass="form-control select2me" DataValueField="CveAlmacen" DataTextField="Almacen" AppendDataBoundItems="true"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlAlmacen" Width="50%" runat="server" CssClass="form-control select2me" DataValueField="CveAlmacen" DataTextField="Almacen" AppendDataBoundItems="true" OnSelectedIndexChanged="DdlAlmacen_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>
                             <asp:RequiredFieldValidator ID="RfvAlmacen" runat="server" ControlToValidate="DdlAlmacen" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpModalSeccionAlmacen"></asp:RequiredFieldValidator>
                             <ajax:ValidatorCalloutExtender ID="VceAlmacen" runat="server" HighlightCssClass="vco" TargetControlID="RfvAlmacen"></ajax:ValidatorCalloutExtender>
                             <label for="<%= DdlAlmacen.ClientID.ToString()%>">Almacen:</label>

Ventas/ProductosServicios.aspx.vb

@@ -1127,6 +1127,13 @@ Partial Class ProductosyServicios
             Return
         End If
 
+        If ddlMetodos.SelectedValue = "5" Or ChkSerie.Checked Then
+            If Not (ddlMetodos.SelectedValue = "5" And ChkSerie.Checked) Then
+                Dim Mensaje As String = If(ddlMetodos.SelectedValue = "5", "Si el método de salida del inventario es 'SerieLote' el producto debe poder aplicar serie", "Si el produco aplica serie el método de inventario debe ser 'SerieLote'")
+                Alert(Mensaje)
+                Exit Sub
+            End If
+        End If
         'If DdlSubFamilia.SelectedValue = "-1" AndAlso UsuarioActual.TienePermisoProceso(138) Then
         '    Alert("Se debe especificar Familia y Subfamilia de Costos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
         '    Exit Sub
@@ -2558,10 +2565,6 @@ Partial Class ProductosyServicios
         DdlAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
         DdlAlmacen.DataBind()
 
-        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
-        DdlSeccionAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
-        DdlSeccionAlmacen.DataBind()
-
         UpModalSeccionAlmacen.Update()
     End Sub
 
@@ -2644,11 +2647,16 @@ Partial Class ProductosyServicios
         Else
             ChkSerie.Checked = False
         End If
-
+        UpConta.Update()
     End Sub
 
     Protected Sub ChkSerie_CheckedChanged(sender As Object, e As EventArgs)
-
+        If ChkSerie.Checked Then
+            ddlMetodos.SelectedValueExist("5")
+        Else
+            ddlMetodos.SelectedValueExist("-1")
+        End If
+        UpConta.Update()
     End Sub
 
     Protected Sub ChkSeccion_CheckedChanged(sender As Object, e As EventArgs)
@@ -2661,4 +2669,13 @@ Partial Class ProductosyServicios
 
         UpSeccionAlmacen.Update()
     End Sub
+
+    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DdlSeccionAlmacen.Items.Clear()
+        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
+        DdlSeccionAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
+        DdlSeccionAlmacen.DataBind()
+
+        UpModalSeccionAlmacen.Update()
+    End Sub
 End Class

Ventas/RepRecuperacionPeriodo.aspx.cs

@@ -298,7 +298,7 @@ public partial class Ventas_RepRecuperacionPeriodo : ClsPaginas
     protected void BtnTipoCambio_Click(object sender, EventArgs e)
     {
         Consulta();
-    }
+    }
 
     protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)
     {

Ventas/Ventas.aspx.vb

@@ -9577,7 +9577,7 @@ Partial Class Ventas
 
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(280) = "1" And RblPaqueteria.SelectedValue = "1" Then
+            If UsuarioActual.Empresa.Funcionalidad(280) = "1" And RblPaqueteria.SelectedValue = "1" And Not factura.TipoDocto.Contiene("Rem", "Ped") Then
                 NotificarPaqueteria()
             End If
         End If

vwd.webinfo

@@ -80,12 +80,6 @@
     
   
     
-  
-    
-  
-    
-  
-