diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index f4cf2ee95..d5be1124a 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -105,6 +105,14 @@ Partial Class AF_AF
         Set(value As Integer)
             ViewState("AFInvCveAlmacen") = value
         End Set
+    End Property
+    Private Property AFInvCveSeccionAlmacen As Integer
+        Get
+            Return If(ViewState("AFInvCveSeccionAlmacen") Is Nothing, -1, ViewState("AFInvCveSeccionAlmacen").ToString.ToEntero())
+        End Get
+        Set(value As Integer)
+            ViewState("AFInvCveSeccionAlmacen") = value
+        End Set
     End Property
     Private Property AFInvSerie As String
         Get
@@ -2102,8 +2110,8 @@ Partial Class AF_AF
             If AFInvCvePS > 0 AndAlso AFInvCveAlmacen > 0 Then
                 Dim CveUMInv = GlobalDTPS(CveEmpresaActual, CvePS:=AFInvCvePS).FiltroPrimeroValor("CveUM").ToEntero
                 If CveUMInv > 0 Then
-                    CveMovimientoSalidaInv = ObjInventarios.AddMovimiento(AFInvCveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, CveEmpresaActual, -1, -1, -1, -1, Observaciones:=$"Salida de inventario para Activo Fijo | {TxtCodigo.Text.Trim}")
-                    If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaInv, 1, CveUMInv, AFInvCvePS, 0, -1, Serie:=AFInvSerie) Then
+                    CveMovimientoSalidaInv = ObjInventarios.AddMovimiento(AFInvCveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, CveEmpresaActual, -1, -1, -1, -1, Observaciones:=$"Salida de inventario para Activo Fijo | {TxtCodigo.Text.Trim}", Modulo:="AF1")
+                    If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaInv, 1, CveUMInv, AFInvCvePS, 0, -1, Serie:=AFInvSerie, CveSeccionAlmacen:=AFInvCveSeccionAlmacen) Then
                         ErrorGuardar = True
                     End If
                 Else
@@ -3051,6 +3059,7 @@ Partial Class AF_AF
         AFInvSerie = ""
         AFInvCvePS = -1
         AFInvCveAlmacen = -1
+        AFInvCveSeccionAlmacen = -1
 
         Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlAFInvPS.SelectedValue.ToEntero).FiltroPrimero("")
         If DrPS Is Nothing Then Exit Sub
@@ -3076,6 +3085,7 @@ Partial Class AF_AF
             AFInvSerie = ""
             AFInvCvePS = -1
             AFInvCveAlmacen = -1
+            AFInvCveSeccionAlmacen = -1
 
             Alert("No hay existencias suficientes del producto. Por favor Verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -3094,7 +3104,7 @@ Partial Class AF_AF
 
         AFInvCvePS = DdlAFInvPS.SelectedValue.ToEntero
         AFInvCveAlmacen = DdlAFInvAlmacen.SelectedValue.ToEntero
-
+        AFInvCveSeccionAlmacen = DdlSeccionAlmacen.SelectedValue.ToEntero
         RegistraScript("$('#ModalAFInv').modal('hide')", "hide")
 
         DivAFInvAdvertencia.Visible = True
@@ -3652,12 +3662,12 @@ Partial Class AF_AF
             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()
+                '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()
+                dtt.Dispose()
 
             End If
 
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index b3d744b4c..f68808600 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -3876,6 +3876,32 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
+
+    Public Function GetLibroDiario(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        'SqlAdapter.SelectCommand.t
+
+        DataAdapter("PA_Conta_LibroDiario")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        SqlAdapter.SelectCommand.CommandTimeout = 0
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener libro diario", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
 #End Region
 
 #Region "I N C O N S I S T E N C I A S"
@@ -4096,7 +4122,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetAnexoCatalogoMensual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, Divisor As Integer, CveUsuario As Integer) As Boolean
+    Public Function GetAnexoCatalogoMensual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, Divisor As Integer, CveUsuario As Integer, Periodo As Integer) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_AnexoCatalogoMensualGet")
@@ -4108,18 +4134,19 @@ Public Class ClsContabilidad
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Divisor", SqlDbType.Int).Value = Divisor
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Periodo", SqlDbType.Int).Value = Periodo
         End With
 
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            Me.OnError("Ocurrió un error al obtener el Estado Resultados Horizontal CC", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            Me.OnError("Ocurrió un error al obtener el Estado Resultados Horizontal Mensual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Retorno
     End Function
-    Public Function GetAnexoCatalogoAnual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, EjercicioFinal As Integer, Divisor As Integer, CveUsuario As Integer) As Boolean
+    Public Function GetAnexoCatalogoAnual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, EjercicioFinal As Integer, Divisor As Integer, CveUsuario As Integer, Periodo As Integer) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_AnexoCatalogoAnualGet")
@@ -4133,6 +4160,7 @@ Public Class ClsContabilidad
             .Add("@EjercicioFinal", SqlDbType.Int).Value = EjercicioFinal
             .Add("@Divisor", SqlDbType.Int).Value = Divisor
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Periodo", SqlDbType.Int).Value = Periodo
 
         End With
 
@@ -4140,12 +4168,13 @@ Public Class ClsContabilidad
             SqlAdapter.Fill(DSet)
             Retorno = True
         Catch ex As Exception
-            Me.OnError("Ocurrió un error al obtener el Estado Resultados Horizontal CC", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            Me.OnError("Ocurrió un error al obtener el Estado Resultados Horizontal Anual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Retorno
     End Function
-    Public Function GetAnexoCatalagoCC(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer) As Boolean
+
+    Public Function GetAnexoCatalagoCC(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, Divisor As Integer, Periodo As Integer) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_AnexoCatalogoCCGet")
@@ -4155,6 +4184,10 @@ Public Class ClsContabilidad
             .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
             .Add("@CveSubproyecto", SqlDbType.Int).Value = CveSubproyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Divisor", SqlDbType.Int).Value = Divisor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Periodo", SqlDbType.Int).Value = Periodo
+
         End With
 
         Try
@@ -6211,7 +6244,7 @@ Public Class ClsContabilidad
     End Function
 
 
-    Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
+    Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1, Optional Periodo As Integer = 12) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta2_EstadoResultadosAnualHorizontal")
@@ -6224,6 +6257,7 @@ Public Class ClsContabilidad
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@Periodo", SqlDbType.Int).Value = Periodo
 
         End With
 
diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb
index 6abe367d1..78af613be 100644
--- a/App_Code/ClsOIEventos.vb
+++ b/App_Code/ClsOIEventos.vb
@@ -2836,7 +2836,7 @@ Public Class ClsOIEventos
 #End Region
 
 #Region "OI_DocumentosSubCategoria"
-    Public Function GetDocumentoSubCategoria(Optional CveSubCategoria As Integer = -1, Optional SubCategoria As String = "-1") As Boolean
+    Public Function GetDocumentoSubCategoria(Optional CveSubCategoria As Integer = -1, Optional SubCategoria As String = "-1", Optional CveCategoria As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -2845,6 +2845,7 @@ Public Class ClsOIEventos
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveSubCategoria", SqlDbType.Int).Value = CveSubCategoria
             .Add("@SubCategoria", SqlDbType.NVarChar).Value = SubCategoria
+            .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
         End With
 
         Try
@@ -3089,6 +3090,48 @@ Public Class ClsOIEventos
 
         Return Retorno
     End Function
+
+    Public Function UpdateDocumentoAutorizacion(CveAutorizacion As Integer, CveDocumento As Integer, Comentarios As String, Adjunto As String, FechaAprobacion As Date) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosAutorizacionesUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAutorizacion", SqlDbType.Int).Value = CveAutorizacion
+            .Add("@CveDocumento", SqlDbType.Int).Value = CveDocumento
+            .Add("@Comentarios", SqlDbType.NVarChar).Value = Comentarios
+            .Add("@Adjunto", SqlDbType.NVarChar).Value = Adjunto
+            .Add("@FechaAprobacion", SqlDbType.Date).Value = FechaAprobacion
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el usuario para autorizar el documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function DesaprobarDocumentoAutorizacion(CveAutorizacion As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_DocumentosAutorizacionesDesaprobar")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAutorizacion", SqlDbType.Int).Value = CveAutorizacion
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al desaprobar la autorización del documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 #End Region
 
 #End Region
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 7cdb07053..40f6c1946 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4257,6 +4257,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoCC.aspx".ToUpper(), 594)
             PaginaDict.Add("/Contabilidad2/RepVariacionHaciendaPublica.aspx".ToUpper(), 595)
             PaginaDict.Add("/Contabilidad2/CatCuentas.aspx".ToUpper(), 596)
+            PaginaDict.Add("/Contabilidad2/RepLibroDiario.aspx".ToUpper(), 544)
 
             PaginaDict.Add("/Contabilidad2/RepSituacionFinancieraSAT.aspx".ToUpper(), 615)
             PaginaDict.Add("/Contabilidad2/RepEstadoActividadesSAT.aspx".ToUpper(), 616)
@@ -4627,7 +4628,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/OI/CatDocumentoCategoria.aspx".ToUpper(), 760)
             PaginaDict.Add("/OI/CatDocumentoSubCategoria.aspx".ToUpper(), 761)
             PaginaDict.Add("/OI/Documentos.aspx".ToUpper(), 762)
-            PaginaDict.Add("/OI/DocumentoDetalle.aspx".ToUpper(), 763)
+            PaginaDict.Add("/OI/DocumentoDetalle.aspx".ToUpper(), -1)
 #End Region
 #Region "Planeacion"
             'PLANEACIÓN
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 58d72438a..5d65c848e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3146,6 +3146,8 @@ Partial Class Compras_Compras
 
                 ViewState("CveProveedor") = ObjProveedor.CveProveedor
                 ViewState("CveTipoProveedor") = ObjProveedor.CveTipoProveedor
+                If ObjProveedor.CveTipoProveedor = 1 Then LblProveedor.Text = "Proveedor:" Else LblProveedor.Text = "Acreedor:"
+                CveTipoConcepto = ObjProveedor.CveTipoProveedor
 
                 'Conta ContPAQ
                 ViewState("CtaProveedor") = ObjProveedor.IdCtaContProveedores
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 3e8f29ec9..39658a220 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1444,9 +1444,9 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", ConceptoFormato))
                         params.Add(New ReportParameter("Almacen", Almacen))
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
-                        params.Add(New ReportParameter("CveTipoAlmacen", Almacen))
-
+                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+
+
                         params.Add(New ReportParameter("Folio", Folio))
                         params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
 
@@ -1456,6 +1456,10 @@ Partial Class PopUpVerFactura
                             params.Add(New ReportParameter("Fecha", Fecha))
                         End If
 
+                        If UsuarioActual.CveEmpresa = 72 Then
+                            params.Add(New ReportParameter("CveTipoAlmacen", CveTipoAlmacen.ToString()))
+                        End If
+
                         params.Add(New ReportParameter("Observaciones", Observaciones))
 
                         If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx
index ffe9e4e8a..569e1ad17 100644
--- a/Contabilidad2/RepAnexoCatalogoAnual.aspx
+++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx
@@ -25,17 +25,38 @@
                         </div>
                         <div class="titlefiltros caption ">
                             <ul class="list-inline" style="font-size: 12px;">
-                                <li>Ejercicio:              
+                                <li>Ejercicio Inicio:              
                                     <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 250px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
                                 </li>
+                                 <li>Ejercicio Fin:              
+                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 250px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
+                                </li>
+                                 <li>    <label class="col-md-2" style="width: 80px;"  runat="server" id="LiPeriodoLbl"  >Periodo: </label>    
+                                
+                                    <asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
+                                        <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
+                                        <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
+                                        <asp:ListItem Text="Abril" Value="4"></asp:ListItem>
+                                        <asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
+                                        <asp:ListItem Text="Junio" Value="6"></asp:ListItem>
+                                        <asp:ListItem Text="Julio" Value="7"></asp:ListItem>
+                                        <asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
+                                        <asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
+                                        <asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
+                                        <asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
+                                        <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
+                                    </asp:DropDownList>
+                                
+                                    </li>
                                 <li>SubProyecto:              
                                     <asp:DropDownList ID="DdlSubProyecto" Width="230px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
                                 </li>
                                 <li>Divisor:              
-                                    <asp:DropDownList ID="DdlDivisor" Width="100px" runat="server" CssClass="form-control input-sm select2me">
-                                        <asp:ListItem Text="Unidad" Value="1"></asp:ListItem>
-                                        <asp:ListItem Text="Miles" Value="1000" Selected="True"></asp:ListItem>
-                                        <asp:ListItem Text="Millones" Value="1000000"></asp:ListItem>
+                                    <asp:DropDownList ID="DdlDivisor" Width="100px" runat="server" CssClass="form-control input-sm select2me" ClientIDMode="Static">
+                                     <asp:ListItem Text="1" Value="1"></asp:ListItem>
+                                                    <asp:ListItem Text="1,000" Value="1000"></asp:ListItem>
+                                                    <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
                                     </asp:DropDownList>
                                 </li>
                             </ul>
@@ -159,7 +180,10 @@
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 
     <script>
-        function LimpiaCeros(Divisor) {
+        function LimpiaCeros() {
+
+            let Divisor = $("#DdlDivisor option:selected").val();
+
             $('.ceros').each(function (i, obj) {
                 debugger;
 
@@ -168,12 +192,15 @@
                 }
 
                 if (!($(this).html() == '-' || $(this).html() == '' || ~$(this).html().indexOf("%"))) {
-                    if (Divisor > 1) {
-                        $(this).attr('data-toggle', 'tooltip');
-                        $(this).attr('data-container', 'body');
-                        $(this).attr('title', $(this).html());
-                    }
-                    $(this).html(FormatoNumeroIPP(ToDouble($(this).html()) / Divisor, ((Divisor == 1) ? 2 : 0)));
+
+                    //if (Divisor > 1) {
+                    //    $(this).attr('data-toggle', 'tooltip');
+                    //    $(this).attr('data-container', 'body');
+                    //    $(this).attr('title', $(this).html());
+                    //}
+                    ///$(this).html(FormatoNumeroIPP(ToDouble($(this).html()) / Divisor, ((Divisor == 1) ? 2 : 0)));
+
+                    $(this).html(FormatoNumeroIPP(ToDouble($(this).html()) , ((Divisor == 1) ? 2 : 0)));
                 }
 
                 if (ToDouble($(this).html()) < 0) {
diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
index 4e9965a19..ec453de5d 100644
--- a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
@@ -28,22 +28,27 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
-            Dim EjercicioParametro, EjercicioParametroFinal, SubProyectoParametro, DivisorParametro As Integer
+            Dim EjercicioParametro, EjercicioParametroFinal, SubProyectoParametro, DivisorParametro, Periodo As Integer
 
             CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
-            EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
-            EjercicioParametroFinal = IfNull(Request("Ejerciciofinal"), "-1").ToString.ToEntero
+            EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
+
+            EjercicioParametroFinal = IfNull(Request("EjercicioFinal"), "-1").ToString.ToEntero
             SubProyectoParametro = IfNull(Request("CveSubproyecto"), "-1").ToString.ToEntero
             DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
-
+            Periodo = IfNull(Request("Periodo"), "-1").ToString.ToEntero
             EsVertical = IfNull(Request("V"), "-1").ToString.ToEntero
 
             InicializaValores()
 
             DdlEjercicio.SelectedValueExist(EjercicioParametro.ToString)
+            DdlEjercicio2.SelectedValueExist(EjercicioParametroFinal.ToString)
+
             DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
             DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
 
+            DdlPeriodo.SelectedValueExist(Periodo)
+
             CargaDatos()
 
         End If
@@ -59,12 +64,15 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
         Dim Conta As New ClsContabilidad
         If Conta.GetEjercicios(UsuarioActual.CveEmpresa) Then
             DdlEjercicio.DataSource = Conta.DtResultados
+            DdlEjercicio2.DataSource = Conta.DtResultados
         Else
             DdlEjercicio.DataSource = Nothing
+            DdlEjercicio2.DataSource = Nothing
         End If
         Conta.Dispose()
 
         DdlEjercicio.DataBind()
+        DdlEjercicio2.DataBind()
 
 
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
@@ -83,7 +91,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
     Private Sub CargaDatos()
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalogoAnual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Conta.GetAnexoCatalogoAnual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlEjercicio2.SelectedValue.ToEntero, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then
             Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0)
             GvAnual.DataSource = Conta.DSResultados.Tables(1)
 
@@ -123,7 +131,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
         GvAnual.DataBind()
         UpAnual.Update()
 
-        RegistraScript($"LimpiaCeros({DdlDivisor.SelectedValue});")
+        'RegistraScript($"LimpiaCeros({DdlDivisor.SelectedValue});")
+        RegistraScript($"LimpiaCeros();")
         Conta.Dispose()
     End Sub
 
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx
index c3e2f91ac..9546b56cf 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx
+++ b/Contabilidad2/RepAnexoCatalogoCC.aspx
@@ -30,14 +30,34 @@
                                 <li>Ejercicio:              
                                     <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 250px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
                                 </li>
-                                <li>SubProyecto:              
+                                <li><asp:Label runat="server" ID="LblSubProyecto" ></asp:Label>               
                                     <asp:DropDownList ID="DdlSubProyecto" Width="230px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
                                 </li>
+
+                                <li>    <label class="col-md-2" style="width: 80px;"  runat="server" id="LiPeriodoLbl"  >Periodo: </label>    
+                                
+                                    <asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
+                                        <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
+                                        <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
+                                        <asp:ListItem Text="Abril" Value="4"></asp:ListItem>
+                                        <asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
+                                        <asp:ListItem Text="Junio" Value="6"></asp:ListItem>
+                                        <asp:ListItem Text="Julio" Value="7"></asp:ListItem>
+                                        <asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
+                                        <asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
+                                        <asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
+                                        <asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
+                                        <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
+                                    </asp:DropDownList>
+                                
+                                    </li>
+
                                 <li>Divisor:              
                                     <asp:DropDownList ID="DdlDivisor" Width="100px" runat="server" CssClass="form-control input-sm select2me">
-                                        <asp:ListItem Text="Unidad" Value="1"></asp:ListItem>
-                                        <asp:ListItem Text="Miles" Value="1000" Selected="True"></asp:ListItem>
-                                        <asp:ListItem Text="Millones" Value="1000000"></asp:ListItem>
+                                        <asp:ListItem Text="1" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="1,000" Value="1000" Selected="True"></asp:ListItem>
+                                        <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
                                     </asp:DropDownList>
                                 </li>
                             </ul>
@@ -51,7 +71,10 @@
 
     <asp:UpdatePanel ID="UpCC" UpdateMode="Conditional" runat="server">
         <ContentTemplate>
-            <asp:GridView ID="GvCC" runat="server" AutoGenerateColumns="False" ShowHeader="true" EmptyDataText="No se encontraron datos" GridLines="none" CssClass="table  table-hover">
+
+           <div class="row">
+               <div class="col-md-12" style="overflow:auto!important">
+                       <asp:GridView ID="GvCC" runat="server" AutoGenerateColumns="False" ShowHeader="true" EmptyDataText="No se encontraron datos" GridLines="none" CssClass="table  table-hover">
                 <Columns>
                     <asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="500px" />
                     <asp:BoundField DataFormatString="{0:N2}" DataField="SubProyectoGeneral" HeaderText="Total" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
@@ -190,7 +213,12 @@
                     <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
                     <asp:BoundField DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
                 </Columns>
-            </asp:GridView>
+            </asp:GridView>
+               </div>
+           </div>
+
+        
+
         </ContentTemplate>
     </asp:UpdatePanel>
 
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
index 09cdb0219..bf8696979 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
@@ -20,17 +20,28 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
-            Dim EjercicioParametro, SubProyectoParametro, DivisorParametro As Integer
-            CveCuenta = IfNull(Request("C"), "-1").ToString.ToEntero
-            EjercicioParametro = IfNull(Request("E"), "-1").ToString.ToEntero
-            SubProyectoParametro = IfNull(Request("S"), "-1").ToString.ToEntero
-            DivisorParametro = IfNull(Request("D"), "-1").ToString.ToEntero
+            'Dim EjercicioParametro, SubProyectoParametro, DivisorParametro As Integer
+            'CveCuenta = IfNull(Request("C"), "-1").ToString.ToEntero
+            'EjercicioParametro = IfNull(Request("E"), "-1").ToString.ToEntero
+            'SubProyectoParametro = IfNull(Request("S"), "-1").ToString.ToEntero
+            'DivisorParametro = IfNull(Request("D"), "-1").ToString.ToEntero
+
+
+            Dim EjercicioParametro, SubProyectoParametro, DivisorParametro, Periodo As Integer
+            CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
+            EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
+            SubProyectoParametro = IfNull(Request("CveSubProyecto"), "-1").ToString.ToEntero
+            DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
+            Periodo = IfNull(Request("Periodo"), "-1").ToString.ToEntero
 
-            InicializaValores()
+            InicializaValores()
+
+            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
 
             DdlEjercicio.SelectedValueExist(EjercicioParametro.ToString)
             DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
             DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
+            DdlPeriodo.SelectedValueExist(Periodo)
 
             CargaDatos()
 
@@ -55,23 +66,25 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
         DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(Now.Year.ToString)
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyecto.SelectedValue = "-1"
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        'DdlSubProyecto.DataBind()
+        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlSubProyecto.SelectedValue = "-1"
 
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "  CARGA DATOS  "
     Protected Sub BtnCargaAsignados_Click(sender As Object, e As EventArgs) Handles BtnCargaAsignados.Click
         CargaDatos()
     End Sub
+
     Private Sub CargaDatos()
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubproyecto.selectedvalue.toentero, UsuarioActual.CveEmpresa) Then
+        If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero) Then
+
             Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0)
             GvCC.DataSource = Conta.DSResultados.Tables(1)
 
diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx b/Contabilidad2/RepAnexoCatalogoMensual.aspx
index 224507d7a..8f3140105 100644
--- a/Contabilidad2/RepAnexoCatalogoMensual.aspx
+++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx
@@ -34,14 +34,34 @@
                                 <li>Ejercicio:              
                                     <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 250px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
                                 </li>
+
+                                <li>
+                                <label class="col-md-2" style="width: 80px;"  runat="server" id="LiPeriodoLbl"  >Periodo: </label>    
+                                
+                                    <asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
+                                        <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
+                                        <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
+                                        <asp:ListItem Text="Abril" Value="4"></asp:ListItem>
+                                        <asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
+                                        <asp:ListItem Text="Junio" Value="6"></asp:ListItem>
+                                        <asp:ListItem Text="Julio" Value="7"></asp:ListItem>
+                                        <asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
+                                        <asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
+                                        <asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
+                                        <asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
+                                        <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
+                                    </asp:DropDownList>
+                                
+                                </li>
                                 <li>SubProyecto:              
                                     <asp:DropDownList ID="DdlSubProyecto" Width="230px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
                                 </li>
                                 <li>Divisor:              
                                     <asp:DropDownList ID="DdlDivisor" Width="100px" runat="server" CssClass="form-control input-sm select2me">
-                                        <asp:ListItem Text="Unidad" Value="1"></asp:ListItem>
-                                        <asp:ListItem Text="Miles" Value="1000" Selected="True"></asp:ListItem>
-                                        <asp:ListItem Text="Millones" Value="1000000"></asp:ListItem>
+                                        <asp:ListItem Text="1" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="1,000" Value="1000" Selected="True"></asp:ListItem>
+                                        <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
                                     </asp:DropDownList>
                                 </li>
                             </ul>
@@ -111,7 +131,10 @@
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 
     <script>
-        function LimpiaCeros(Divisor) {
+        function LimpiaCeros() {
+
+            let Divisor = 1;
+
             $('.ceros').each(function (i, obj) {
                 debugger;
 
diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
index 9e698be19..b54bb1fdc 100644
--- a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
@@ -21,18 +21,19 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
-            Dim EjercicioParametro, SubProyectoParametro, DivisorParametro As Integer
+            Dim EjercicioParametro, SubProyectoParametro, DivisorParametro, Periodo As Integer
             CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
             EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
             SubProyectoParametro = IfNull(Request("CveSubProyecto"), "-1").ToString.ToEntero
-            DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
-
+            DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
+            Periodo = IfNull(Request("Periodo"), "-1").ToString.ToEntero
+
             InicializaValores()
 
             DdlEjercicio.SelectedValueExist(EjercicioParametro.ToString)
             DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
-            DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
-
+            DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
+            DdlPeriodo.SelectedValueExist(Periodo)
             CargaDatos()
 
         End If
@@ -72,7 +73,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
     Private Sub CargaDatos()
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalogoMensual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
+        If Conta.GetAnexoCatalogoMensual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then
             GvMensual2.DataSource = Conta.DtResultados
         Else
             GvMensual2.DataSource = Nothing
@@ -80,7 +81,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
         GvMensual2.DataBind()
         UpMensual.Update()
 
-        RegistraScript($"LimpiaCeros({DdlDivisor.SelectedValue});")
+        RegistraScript($"LimpiaCeros();")
         Conta.Dispose()
     End Sub
 
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
index ecc280669..55f95ed26 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
@@ -60,10 +60,10 @@
                                 </div>                            
 
                                 
-                                <label class="col-md-2" style="width: 80px;"  runat="server" id="LiSubProyectoLbl"  >SubProyecto: </label>
-                                <div class="col-md-2 " runat="server" id="LiSubProyectoDdl">
+                                <label class="col-md-2" style="width: 80px;"  runat="server" id="LiSubProyectoLbl"><asp:Label runat="server" ID="LblSubProyecto" ></asp:Label>  </label>
+                                <div class="col-md-1 " runat="server" id="LiSubProyectoDdl">
                                     <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
-                                        <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                        
                                     </asp:DropDownList>
                                 </div>
  
@@ -768,7 +768,8 @@
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                    <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>--%>
+                                                    <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"   ></asp:HyperLink>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />
                                                 <HeaderTemplate>
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
index 987532962..111600ced 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
@@ -247,10 +247,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             'TxtFechaFin.Text = Date.Now.ToShortDateString
             CargaEjercicios()
 
-            DdlSubproyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
-            DdlSubproyecto.DataBind()
+            CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
+            TabSubProyecto.HeaderText = LblSubProyecto.Text & " H."
+
+            'DdlSubproyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+            'DdlSubproyecto.DataBind()
 
             ' CargaDatos()
+
+            DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual)
+            ValidaEjercicios()
+
         End If
     End Sub
 
@@ -284,12 +291,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             LiEjercicioDdl2.Visible = False
             LiEjercicioLbl2.Visible = False
 
-            LiPeriodoDdl.Visible = False
-            LiPeriodoLbl.Visible = False
+            LiPeriodoDdl.Visible = True
+            LiPeriodoLbl.Visible = True
 
             LiDivisorDdl.Visible = True
             LiDivisorLbl.Visible = True
 
+            DdlPeriodo.SelectedValueExist(12)
 
         End If
 
@@ -306,8 +314,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             LiEjercicioDdl2.Visible = True
             LiEjercicioLbl2.Visible = True
 
-            LiPeriodoDdl.Visible = False
-            LiPeriodoLbl.Visible = False
+            LiPeriodoDdl.Visible = True
+            LiPeriodoLbl.Visible = True
 
             LiDivisorDdl.Visible = True
             LiDivisorLbl.Visible = True
@@ -637,7 +645,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
 
         FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
-        FechaFMes = $"31/12/{DdlEjercicio.SelectedValue}"
+        Dim FechaFin As Date = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}".ToDate
+        FechaFMes = $"{FechaFin.LastDayOfMonth.Day.ToString("00")}/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}"
 
         Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
 
@@ -803,7 +812,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1"
 
-                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1"
+                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
 
                 e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
@@ -819,7 +828,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
 
 
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
+
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL INGRESOS" Then
@@ -895,7 +907,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
 
                 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1"
-                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1"
+                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
 
                 e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
@@ -910,7 +922,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
 
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
 
             End If
 
@@ -1046,7 +1059,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero, Periodo:=DdlPeriodo.SelectedValue.ToEntero) Then
             DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatosAnualH = Nothing
@@ -1274,7 +1287,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
 
-                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1"
+                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
 
                 Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
                 Dim IndiceInicio As Integer = 1
@@ -1287,7 +1300,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                     'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor)
                 Next IndiceInicio
 
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
+                'e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
+
+
 
             ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
 
@@ -1330,7 +1346,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
 
-                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1"
+                'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1&EjercicioFinal={DdlEjercicio2.SelectedValue}"
+                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
+
                 Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
                 Dim IndiceInicio As Integer = 1
                 Dim IndiceMax As Integer = 1 + CountDinamico
@@ -1341,7 +1359,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                     'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor)
                 Next IndiceInicio
 
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
+                'e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
+
 
             ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
 
@@ -1426,6 +1446,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         Dim IndexSubProyectoMAx As Integer = DTSubProyectosCabecerasH.Rows.Count - 1
         Dim IndexTotatles As Integer = 13 + IndexSubProyectoMAx
 
+        '34
+        Dim IDX_LIMPIAR As Integer = 1
+
+        For IDX_LIMPIAR = 1 To 34
+            CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).DataField = Nothing
+            CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).HeaderText = ""
+        Next
+
+
+
         If DtIngresosSubProyectoH.Rows.Count > 0 Then
 
             For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns
@@ -1615,6 +1645,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
 
+                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
 
                 Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
                 Dim IndiceInicio As Integer = 1
diff --git a/Contabilidad2/RepLibroDiario.aspx b/Contabilidad2/RepLibroDiario.aspx
new file mode 100644
index 000000000..4224c2fa5
--- /dev/null
+++ b/Contabilidad2/RepLibroDiario.aspx
@@ -0,0 +1,104 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepLibroDiario.aspx.vb" Inherits="Contabilidad2_RepLibroDiario" %>
+
+<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="E" Runat="Server">
+     Libro Diario
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+    <asp:UpdatePanel runat="server">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="ImgExcel" Visible="false" runat="server"><i class="fa fa-ad-excel"></i> Generar EXCEL</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="Imprimir" Visible="false" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="ImgExcel" />
+            <asp:PostBackTrigger ControlID="Imprimir" />
+        </Triggers>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" CssClass="btn btn-primary" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" Enabled="false"/>
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <div class="row">
+                            <label class="col-md-1" style="width: 90px; padding-right: 2px;">Fecha Inicio:</label>
+                            <div class="col-md-2" style="width: 140px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CVFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2Del" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+                            </div>
+                            <label class="col-md-1" style="width: 80px; padding-right: 2px;">Fecha Fin:</label>
+                            <div class="col-md-2" style="width: 140px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CVFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2Al" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+ 
+
+    <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server" style="margin-left: 15px; margin-right: 15px;">
+        <ContentTemplate>
+
+            <asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall" GridLines="None" AutoGenerateColumns="False" runat="server">
+                <Columns>
+                    <asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
+                    <asp:BoundField HeaderText="Tipo" DataField="TipoPoliza" />
+                    <asp:BoundField HeaderText="Poliza" DataField="FolioPoliza" />
+                    <asp:BoundField HeaderText="Concepto" DataField="Concepto" />
+                    <asp:BoundField HeaderText="Cuenta" DataField="Codigo" />
+                    <asp:BoundField HeaderText="Nombre" DataField="Nombre" />
+                    <asp:BoundField HeaderText="Descripción" DataField="Descripcion" />
+                    <asp:BoundField HeaderText="Cargos" DataField="Cargos" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.00}" />
+                    <asp:BoundField HeaderText="Abonos" DataField="Abonos" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.00}" />
+                </Columns>
+            </asp:GridView>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+</asp:Content>
+
diff --git a/Contabilidad2/RepLibroDiario.aspx.vb b/Contabilidad2/RepLibroDiario.aspx.vb
new file mode 100644
index 000000000..3f01252dc
--- /dev/null
+++ b/Contabilidad2/RepLibroDiario.aspx.vb
@@ -0,0 +1,144 @@
+Option Explicit On
+Option Strict On
+Imports System.Data
+Imports Extensiones
+
+Partial Class Contabilidad2_RepLibroDiario
+    Inherits ClsPaginas
+
+#Region "PROPIEDADES"
+    Private Property DtDatos As DataTable
+        Get
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+    Private Property FechaInicio As Date
+        Get
+            FechaInicio = ViewState("FechaInicio").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaInicio") = value
+        End Set
+    End Property
+    Private Property FechaFin As Date
+        Get
+            FechaFin = ViewState("FechaFin").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaFin") = value
+        End Set
+    End Property
+
+#End Region
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            InicializaValores()
+
+            BtnConsultar.Enabled = True
+
+        End If
+    End Sub
+
+    Private Sub InicializaValores()
+
+        TxtFechaDel.Text = $"01/01/{Now.Year}"
+        TxtFechaAl.Text = Now.ToShortDateString
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+
+#Region "C A R G A - D A T O S"
+    Private Sub CargaDatos()
+
+        FechaInicio = If(IsDate(TxtFechaDel.Text), TxtFechaDel.Text.ToDate, MinFecha)
+        FechaFin = If(IsDate(TxtFechaAl.Text), TxtFechaAl.Text.ToDate, MaxFecha)
+
+        'FechaInicio = New Date(2016, 1, 1)
+        'FechaFin = New Date(2016, 1, 31)
+
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetLibroDiario(FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then
+            DtDatos = ObjConta.DtResultados
+        Else
+            DtDatos = Nothing
+        End If
+        ObjConta.Dispose()
+
+        GvDatos.DataSource = DtDatos
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+        If DtDatos IsNot Nothing Then
+            ImgExcel.Visible = True
+            Imprimir.Visible = True
+
+        Else
+            ImgExcel.Visible = False
+            Imprimir.Visible = False
+        End If
+
+    End Sub
+#End Region
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+
+            ''CABECERA
+            'If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then
+            '    e.Row.Font.Bold = True
+            '    e.Row.Cells(4).Text = ""
+            '    e.Row.Cells(5).Text = ""
+            '    e.Row.Cells(6).Text = ""
+            '    e.Row.Cells(7).Text = ""
+            '    e.Row.Cells(8).Text = ""
+            '    e.Row.CssClass = "SubTotales" ' 
+            'End If
+
+            'DETALLE
+            If e.Row.DBCampo("Codigo") <> "" Then
+                e.Row.Cells(0).Text = ""
+                e.Row.Cells(1).Text = ""
+                e.Row.Cells(2).Text = ""
+                e.Row.Cells(3).Text = ""
+            End If
+
+            'SUBTOTAL
+            If e.Row.DBCampo("Codigo") = "" Then
+                e.Row.Font.Bold = True
+                e.Row.Cells(0).Text = ""
+                e.Row.Cells(1).Text = ""
+                e.Row.Cells(2).Text = ""
+                e.Row.Cells(3).Text = ""
+                e.Row.Cells(4).Text = ""
+                e.Row.Cells(5).Text = ""
+                e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
+                e.Row.Cells(6).Text = "Total:"
+                e.Row.CssClass = "SubTotales"
+            End If
+
+            'TOTAL
+            If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 4 Then
+                e.Row.Font.Bold = True
+                e.Row.Cells(0).Text = ""
+                e.Row.Cells(1).Text = ""
+                e.Row.Cells(2).Text = ""
+                e.Row.Cells(3).Text = ""
+                e.Row.Cells(4).Text = ""
+                e.Row.Cells(5).Text = ""
+                e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
+                e.Row.Cells(6).Text = "Total:"
+                e.Row.CssClass = "Totales"
+            End If
+
+        End If
+    End Sub
+
+End Class
diff --git a/Empresas/119/Formatos/Polizas.rdlc b/Empresas/119/Formatos/Polizas.rdlc
index a2c8d63c8..30145ef5f 100644
--- a/Empresas/119/Formatos/Polizas.rdlc
+++ b/Empresas/119/Formatos/Polizas.rdlc
@@ -1295,6 +1295,7 @@
                     </GroupExpressions>
                     <PageBreak>
                       <BreakLocation>End</BreakLocation>
+                      <ResetPageNumber>true</ResetPageNumber>
                     </PageBreak>
                     <Variables>
                       <Variable Name="UsuarioRegistro">
@@ -1331,9 +1332,11 @@
                 </TablixMember>
               </TablixMembers>
             </TablixRowHierarchy>
+            <KeepTogether>true</KeepTogether>
             <DataSetName>DataSet1</DataSetName>
             <PageBreak>
               <BreakLocation>End</BreakLocation>
+              <ResetPageNumber>true</ResetPageNumber>
             </PageBreak>
             <Top>0.05076cm</Top>
             <Height>3.18542cm</Height>
@@ -1642,7 +1645,8 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox35</rd:DefaultName>
-              <Left>17.03312cm</Left>
+              <Top>0.26458cm</Top>
+              <Left>16.57041cm</Left>
               <Height>0.52564cm</Height>
               <Width>2.8175cm</Width>
               <ZIndex>2</ZIndex>
@@ -1790,7 +1794,8 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  <Code>REM Reset Page Number:
+  <Code>
+    REM Reset Page Number:
     Shared offset As Integer
     Shared newPage As Object
     Shared currentgroup1 As Object
@@ -1822,7 +1827,8 @@
             End If
         End If
         Return newPage
-    End Function</Code>
+    End Function
+  </Code>
   <EmbeddedImages>
     <EmbeddedImage Name="jam3">
       <MIMEType>image/jpeg</MIMEType>
diff --git a/Empresas/72/Formatos/Entradas.rdlc b/Empresas/72/Formatos/Entradas.rdlc
index 8a86b04cd..36bd50101 100644
--- a/Empresas/72/Formatos/Entradas.rdlc
+++ b/Empresas/72/Formatos/Entradas.rdlc
@@ -866,11 +866,77 @@
           </Border>
         </Style>
       </Tablix>
+      <Textbox Name="Textbox8">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!Observaciones.Value</Value>
+                <Style>
+                  <FontFamily>MYRIAd Pro</FontFamily>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox8</rd:DefaultName>
+        <Top>3.8986cm</Top>
+        <Left>0.17882cm</Left>
+        <Height>0.97952cm</Height>
+        <Width>19.04079cm</Width>
+        <ZIndex>4</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox5">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>OBSERVACIONES:</Value>
+                <Style>
+                  <FontFamily>MYRIAd Pro</FontFamily>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox5</rd:DefaultName>
+        <Top>3.11339cm</Top>
+        <Left>0.18166cm</Left>
+        <Height>0.60882cm</Height>
+        <Width>3.98167cm</Width>
+        <ZIndex>5</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
-    <Height>1.75444in</Height>
+    <Height>1.94921in</Height>
     <Style />
   </Body>
-  <Width>7.59789in</Width>
+  <Width>7.6851in</Width>
   <Page>
     <PageHeader>
       <Height>4.936cm</Height>
@@ -1195,12 +1261,12 @@
       </Style>
     </PageHeader>
     <PageFooter>
-      <Height>2.33028cm</Height>
+      <Height>2.93363cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
         <Line Name="Line2">
-          <Top>0.92688cm</Top>
+          <Top>1.1404cm</Top>
           <Left>0.05012cm</Left>
           <Height>0cm</Height>
           <Width>19.16949cm</Width>
@@ -1229,7 +1295,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox12</rd:DefaultName>
-          <Top>1.03271cm</Top>
+          <Top>1.22061cm</Top>
           <Left>0.12893cm</Left>
           <Height>0.44125cm</Height>
           <Width>1.36232cm</Width>
@@ -1264,7 +1330,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox18</rd:DefaultName>
-          <Top>1.03271cm</Top>
+          <Top>1.22061cm</Top>
           <Left>1.49125cm</Left>
           <Height>0.44125cm</Height>
           <Width>5.21516cm</Width>
@@ -1297,7 +1363,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox12</rd:DefaultName>
-          <Top>1.03271cm</Top>
+          <Top>1.22061cm</Top>
           <Left>7.7587cm</Left>
           <Height>0.44125cm</Height>
           <Width>2.68521cm</Width>
@@ -1333,7 +1399,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox18</rd:DefaultName>
-          <Top>1.03271cm</Top>
+          <Top>1.22061cm</Top>
           <Left>10.44391cm</Left>
           <Height>0.44125cm</Height>
           <Width>3.44953cm</Width>
@@ -1368,7 +1434,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
-          <Top>1.03271cm</Top>
+          <Top>1.22061cm</Top>
           <Left>15.59511cm</Left>
           <Height>0.38981cm</Height>
           <Width>3.61081cm</Width>
@@ -1401,7 +1467,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox29</rd:DefaultName>
-          <Top>1.47396cm</Top>
+          <Top>1.66186cm</Top>
           <Left>0.12912cm</Left>
           <Height>0.41981cm</Height>
           <Width>5.78083cm</Width>
@@ -1419,7 +1485,7 @@
         <Rectangle Name="Rectangle1">
           <ReportItems>
             <Line Name="Line6">
-              <Top>0.19459cm</Top>
+              <Top>0.3175cm</Top>
               <Left>1.19476cm</Left>
               <Height>0cm</Height>
               <Width>5.13525cm</Width>
@@ -1447,9 +1513,9 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox31</rd:DefaultName>
-              <Top>0.37098cm</Top>
+              <Top>0.4239cm</Top>
               <Left>0.77992cm</Left>
-              <Height>0.09729cm</Height>
+              <Height>0.56472cm</Height>
               <Width>5.95755cm</Width>
               <ZIndex>1</ZIndex>
               <Style>
@@ -1463,7 +1529,7 @@
               </Style>
             </Textbox>
             <Line Name="Line7">
-              <Top>0.19459cm</Top>
+              <Top>0.3175cm</Top>
               <Left>13.20536cm</Left>
               <Height>0cm</Height>
               <Width>5.24108cm</Width>
@@ -1492,9 +1558,9 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox31</rd:DefaultName>
-              <Top>0.3357cm</Top>
+              <Top>0.38862cm</Top>
               <Left>12.80849cm</Left>
-              <Height>0.13257cm</Height>
+              <Height>0.6cm</Height>
               <Width>5.95755cm</Width>
               <ZIndex>3</ZIndex>
               <Style>
@@ -1507,89 +1573,11 @@
                 <PaddingBottom>2pt</PaddingBottom>
               </Style>
             </Textbox>
-            <Line Name="Line1">
-              <Top>0.75931cm</Top>
-              <Left>0.05417cm</Left>
-              <Height>0cm</Height>
-              <Width>19.1695cm</Width>
-              <ZIndex>4</ZIndex>
-              <Style>
-                <Border>
-                  <Color>#0e2455</Color>
-                  <Style>Solid</Style>
-                </Border>
-              </Style>
-            </Line>
-            <Textbox Name="Textbox5">
-              <CanGrow>true</CanGrow>
-              <KeepTogether>true</KeepTogether>
-              <Paragraphs>
-                <Paragraph>
-                  <TextRuns>
-                    <TextRun>
-                      <Value>OBSERVACIONES:</Value>
-                      <Style>
-                        <FontFamily>MYRIAd Pro</FontFamily>
-                        <FontWeight>Bold</FontWeight>
-                      </Style>
-                    </TextRun>
-                  </TextRuns>
-                  <Style />
-                </Paragraph>
-              </Paragraphs>
-              <rd:DefaultName>Textbox5</rd:DefaultName>
-              <Top>0.46827cm</Top>
-              <Left>0.1196cm</Left>
-              <Height>0.18521cm</Height>
-              <Width>3.98167cm</Width>
-              <ZIndex>5</ZIndex>
-              <Style>
-                <Border>
-                  <Style>None</Style>
-                </Border>
-                <PaddingLeft>2pt</PaddingLeft>
-                <PaddingRight>2pt</PaddingRight>
-                <PaddingTop>2pt</PaddingTop>
-                <PaddingBottom>2pt</PaddingBottom>
-              </Style>
-            </Textbox>
-            <Textbox Name="Textbox8">
-              <CanGrow>true</CanGrow>
-              <KeepTogether>true</KeepTogether>
-              <Paragraphs>
-                <Paragraph>
-                  <TextRuns>
-                    <TextRun>
-                      <Value>=Parameters!Observaciones.Value</Value>
-                      <Style>
-                        <FontFamily>MYRIAd Pro</FontFamily>
-                        <FontSize>9pt</FontSize>
-                      </Style>
-                    </TextRun>
-                  </TextRuns>
-                  <Style />
-                </Paragraph>
-              </Paragraphs>
-              <rd:DefaultName>Textbox8</rd:DefaultName>
-              <Top>0.86514cm</Top>
-              <Left>0.05417cm</Left>
-              <Height>0.04437cm</Height>
-              <Width>19.07699cm</Width>
-              <ZIndex>6</ZIndex>
-              <Style>
-                <Border>
-                  <Style>None</Style>
-                </Border>
-                <PaddingLeft>2pt</PaddingLeft>
-                <PaddingRight>2pt</PaddingRight>
-                <PaddingTop>2pt</PaddingTop>
-                <PaddingBottom>2pt</PaddingBottom>
-              </Style>
-            </Textbox>
           </ReportItems>
           <KeepTogether>true</KeepTogether>
-          <Left>0.05922cm</Left>
-          <Height>0.90952cm</Height>
+          <Top>0.04233cm</Top>
+          <Left>0.05012cm</Left>
+          <Height>0.98862cm</Height>
           <Width>19.22367cm</Width>
           <ZIndex>7</ZIndex>
           <Visibility>
diff --git a/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc b/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc
index ed799ade7..18eb39b46 100644
--- a/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc
+++ b/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc
@@ -12,13 +12,13 @@
               <Width>2.2618cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.38704cm</Width>
+              <Width>1.66778cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.96454cm</Width>
+              <Width>6.13244cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>4.68704cm</Width>
+              <Width>2.12058cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.88704cm</Width>
@@ -550,7 +550,7 @@
         <Top>0.14111cm</Top>
         <Left>0.01325cm</Left>
         <Height>0.84438cm</Height>
-        <Width>20.68675cm</Width>
+        <Width>20.56895cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -564,7 +564,7 @@
   <Width>8.23098in</Width>
   <Page>
     <PageHeader>
-      <Height>3.71891cm</Height>
+      <Height>3.99542cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -609,7 +609,7 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>REPORTE DE PAQUETERÍAS GUÍAS</Value>
+                  <Value>Reporte de Envíos</Value>
                   <Style>
                     <FontSize>10.5pt</FontSize>
                     <FontWeight>Bold</FontWeight>
@@ -665,288 +665,40 @@
             </Border>
           </Style>
         </Image>
-        <Textbox Name="Textbox37">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Sucursal:</Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value xml:space="preserve"> </Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value>=Parameters!Sucursal.Value</Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox15</rd:DefaultName>
-          <Top>2.3cm</Top>
-          <Left>0.01325cm</Left>
-          <Height>0.5cm</Height>
-          <Width>6.6cm</Width>
-          <ZIndex>3</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
         <Line Name="Line1">
-          <Top>3.625cm</Top>
+          <Top>3.9425cm</Top>
           <Height>0cm</Height>
           <Width>20.90669cm</Width>
-          <ZIndex>4</ZIndex>
+          <ZIndex>3</ZIndex>
           <Style>
             <Border>
               <Style>Solid</Style>
             </Border>
           </Style>
         </Line>
-        <Textbox Name="Textbox38">
+        <Textbox Name="Filtros">
           <CanGrow>true</CanGrow>
           <KeepTogether>true</KeepTogether>
           <Paragraphs>
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>Estatus:</Value>
+                  <Value>=Parameters!Filtros.Value</Value>
                   <MarkupType>HTML</MarkupType>
                   <Style>
-                    <FontSize>9.5pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value xml:space="preserve"> </Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value>=Parameters!Estatus.Value</Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
+                    <FontSize>8pt</FontSize>
                   </Style>
                 </TextRun>
               </TextRuns>
               <Style />
             </Paragraph>
           </Paragraphs>
-          <rd:DefaultName>Textbox15</rd:DefaultName>
-          <Top>2.3cm</Top>
-          <Left>6.78964cm</Left>
-          <Height>0.5cm</Height>
-          <Width>6.4cm</Width>
-          <ZIndex>5</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox39">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Paquetería:</Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value xml:space="preserve"> </Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value>=Parameters!Paqueteria.Value</Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox15</rd:DefaultName>
-          <Top>2.3cm</Top>
-          <Left>13.3cm</Left>
-          <Height>0.5cm</Height>
-          <Width>7.4cm</Width>
-          <ZIndex>6</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox40">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Fecha Inicial:</Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value xml:space="preserve">  </Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value>=Parameters!FechaInicio.Value</Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox15</rd:DefaultName>
-          <Top>2.9cm</Top>
+          <rd:DefaultName>Filtros</rd:DefaultName>
+          <Top>2.58974cm</Top>
           <Left>0.01325cm</Left>
-          <Height>0.5cm</Height>
-          <Width>6.6cm</Width>
-          <ZIndex>7</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox41">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Fecha Final:</Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value xml:space="preserve">  </Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value>=Parameters!FechaFin.Value</Value>
-                  <MarkupType>HTML</MarkupType>
-                  <Style>
-                    <FontSize>9.5pt</FontSize>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox15</rd:DefaultName>
-          <Top>2.9cm</Top>
-          <Left>6.78964cm</Left>
-          <Height>0.5cm</Height>
-          <Width>6.4cm</Width>
-          <ZIndex>8</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox5">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Usuario Entrego:  </Value>
-                  <Style>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value>=Parameters!FiltroUsuario.Value</Value>
-                  <Style>
-                    <FontWeight>Normal</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox5</rd:DefaultName>
-          <Top>2.9cm</Top>
-          <Left>13.3cm</Left>
-          <Height>0.5cm</Height>
-          <Width>7.4cm</Width>
-          <ZIndex>9</ZIndex>
-          <Visibility>
-            <Hidden>=Parameters!FiltroUsuario.Value Like ""</Hidden>
-          </Visibility>
+          <Height>0.97042cm</Height>
+          <Width>20.56895cm</Width>
+          <ZIndex>4</ZIndex>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1338,6 +1090,24 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="FiltroTipoPaqueteria">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Orden">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EntregasDirectas">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>1d5d9525-4bdd-4783-9df6-cce93069c30f</rd:ReportID>
diff --git a/General/PopUpPaqueteriasGuias.aspx.cs b/General/PopUpPaqueteriasGuias.aspx.cs
index 80bf6aae8..c124dbd4e 100644
--- a/General/PopUpPaqueteriasGuias.aspx.cs
+++ b/General/PopUpPaqueteriasGuias.aspx.cs
@@ -812,25 +812,28 @@ 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 VendedorAsistente = get_GlobalDTVendedores(UsuarioActual.CveEmpresa,VendedorTipo:3).FiltroPrimero(string.Format("CveSuperior = {0}", CveVendedor));
             DataRow Cliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente : CveCliente).FiltroPrimero("");
-            string CobranzaCorreo = "";
             string CorreoEntregaAlmacen = "";
             string CorreoEntregaCompras = "";
             string CorreoVendedor = "";
-            string CorreoAdicionalNotificacionesVendedor = "";
+            string CorreoNotificaciones = ObjVentas.DtResultados.Rows[0]["CorreoNotificacion"] != null ? ObjVentas.DtResultados.Rows[0]["CorreoNotificacion"].ToString():"";
+            string CorreoAsistente = "";
 
             if (Cliente != null) {
-                CobranzaCorreo=Cliente["CobranzaCorreo"].ToString();
                 CorreoEntregaAlmacen=Cliente["CorreoEntregaAlmacen"].ToString();
                 CorreoEntregaCompras = Cliente["CorreoEntregaCompras"].ToString();
             }
             if (Vendedor != null)
             {
                 CorreoVendedor=Vendedor["Correo"].ToString();
-                CorreoAdicionalNotificacionesVendedor=Vendedor["CorreoAdicionalNotificaciones"].ToString();
+                //CorreoAdicionalNotificacionesVendedor=Vendedor["CorreoAdicionalNotificaciones"].ToString();
             }           
-
-            string CorreosConcat = String.Format("{0};{1};{2};{3};{4}", CobranzaCorreo, CorreoEntregaAlmacen, CorreoEntregaCompras, CorreoVendedor, CorreoAdicionalNotificacionesVendedor);
+            if (VendedorAsistente != null)
+            {
+                CorreoAsistente = VendedorAsistente["Correo"].ToString();
+            }
+            string CorreosConcat = String.Format("{0};{1};{2};{3};{4}", CorreoEntregaAlmacen, CorreoEntregaCompras, CorreoVendedor, CorreoNotificaciones, CorreoAsistente);
             return CorreosConcat;
         }
         ObjVentas.Dispose();
diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs
index bddef6c59..ebb868210 100644
--- a/General/RepPaqueteriasGuias.aspx.cs
+++ b/General/RepPaqueteriasGuias.aspx.cs
@@ -175,6 +175,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             ViewState["Folio"] = value;
         }
     }
+
     #endregion
 
 
@@ -284,12 +285,12 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
     {
         if (UsuarioActual.CveRol == 1339)
         {
-            DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0}", UsuarioActual.CveRol));
+            DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0} AND Estatus = 1", UsuarioActual.CveRol), "Nombre");
             DdlUsuarios.DataBind();
         }
         else
         {
-            DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+            DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre");
             DdlUsuarios.DataBind();
             DdlUsuarios.Items.Insert(0, new ListItem("Todos ", "-1"));
         }
@@ -876,14 +877,20 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
         @params.Add(new ReportParameter("FechaInicio", FechaInicio));
         @params.Add(new ReportParameter("FechaFin", FechaFinal));
 
-        //@params.Add(new ReportParameter("FechaIngInicio", FechaIngInicio));
-        //@params.Add(new ReportParameter("FechaIngFin", FechIngaFinal));
+        @params.Add(new ReportParameter("FechaIngInicio", FechaIngInicio));
+        @params.Add(new ReportParameter("FechaIngFin", FechIngaFinal));
+        @params.Add(new ReportParameter("Orden", DdlFiltro.SelectedItem.Text));
+        @params.Add(new ReportParameter("EntregasDirectas", (ChkLote.Checked?"Solo entregas directas":"Entregas directas y por paquetería")));
 
         @params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
         @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
-        @params.Add(new ReportParameter("Filtros", String.Format(" <b>Sucursal: </b>{0}&emsp;&emsp;<b>Estatus: </b>{1}&emsp;&emsp;<b>Paquetería: </b>{2}<br/><b>Fecha Inicio: </b>{3}&emsp;&emsp;<b>Fecha Fin: </b>{4}", Sucursal, Estatus, Paqueteria, FechaInicio, FechaFinal)));
+        string Usuario = DdlUsuarios.SelectedValue == "-1" ? "No especificado" : DdlUsuarios.SelectedItem.Text;
+
+        string FechasIngF = TxtFechaFinalIngreso.Text.Length > 0 ? string.Format("&emsp; &emsp;< b > F.I.Ingreso: </ b >{0}", TxtFechaFinalIngreso.Text) : "";
+        string FechasIngI = TxtFechaInicialIngreso.Text.Length > 0 ? string.Format("&emsp; &emsp;< b > F.I.Ingreso: </ b >{0}", TxtFechaInicialIngreso.Text) : "";
+        @params.Add(new ReportParameter("Filtros", String.Format(" <b>Sucursal: </b>{0}&emsp;&emsp;<b>Estatus: </b>{1}&emsp;&emsp;<b>Paquetería: </b>{2}&emsp;&emsp;<b>Tipo: </b>{3}<br/><b>Fecha Inicio: </b>{4}&emsp;&emsp;<b>Fecha Fin: </b>{5}{6}{7}&emsp;&emsp;<b>Usuario Entregó: </b>{8}&emsp;&emsp;<b>Entregas: </b>{9}", Sucursal, Estatus, Paqueteria, DdlTipo.SelectedItem.Text, FechaInicio, FechaFinal, FechasIngI, FechasIngF, Usuario, (ChkLote.Checked ? "Solo entregas directas" : "Entregas directas y por paquetería"))));
+        @params.Add(new ReportParameter("FiltroTipoPaqueteria", DdlTipo.SelectedItem.Text));
 
-        string Usuario = DdlUsuarios.SelectedValue == "-1" ? "" : DdlUsuarios.SelectedItem.Text;
         @params.Add(new ReportParameter("FiltroUsuario", Usuario));
 
         if (Imagen.Exists)
@@ -1008,6 +1015,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
 
                     int CveCliente = DbRowVenta["CveCliente"].ToString().ToEntero();
                     int CveVendedor = DbRowVenta["CveVendedor"].ToString().ToEntero();
+                    string CorreoNotificacion = DbRowVenta["CorreoNotificacion"] != null ? DbRowVenta["CorreoNotificacion"].ToString():"";
                     SerieFolio = String.Format("{0}-{1}", DbRowVenta["Serie"].ToString(), DbRowVenta["Folio"].ToString().ToEntero());
                     NombreCliente = DbRowVenta["ClienteNombre"].ToString();
 
@@ -1027,7 +1035,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
                     Destinatario = "sig.buzon02@gmail.com"; // CORREO PRUEBA
                     if (UsuarioActual.Empresa.Funcionalidad(280) == "1" && CveCliente > 0 && CveVendedor > 0)
                     {
-                        Destinatario = getCorreoNotificacion(CveCliente, CveVendedor);
+                        Destinatario = getCorreoNotificacion(CveCliente, CveVendedor,CorreoNotificacion);
                     }
 
                     if (ObjVentas.GetVentaDetalle(CveVenta))
@@ -1037,20 +1045,24 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
 
                 }
             }
+            ObjVentas.Dispose();
         }
     }
 
-    private string getCorreoNotificacion(int CveCliente, int CveVendedor)
+    private string getCorreoNotificacion(int CveCliente, int CveVendedor,string CorreoNotificacion)
     {
         DataRow DatosCliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveCliente = {0}", CveCliente));
         DataRow DatosVendedor = get_GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveVendedor = {0}", CveVendedor));
+        string CorreoAsistente = get_GlobalDTVendedores(UsuarioActual.CveEmpresa,VendedorTipo:3).FiltroPrimeroValor("Correo", string.Format("CveSuperior = {0}", CveVendedor));
         if (DatosCliente != null && DatosVendedor != null)
         {
             StringBuilder correos = new StringBuilder("");
             if (DatosCliente["CorreoEntregaCompras"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosCliente["CorreoEntregaCompras"].ToString()));
             if (DatosCliente["CorreoEntregaAlmacen"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosCliente["CorreoEntregaAlmacen"].ToString()));
             if (DatosVendedor["Correo"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosVendedor["Correo"].ToString()));
-            if (DatosVendedor["CorreoAdicionalNotificaciones"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosVendedor["CorreoAdicionalNotificaciones"].ToString()));
+            correos.Append(CorreoNotificacion + ";");
+            correos.Append(CorreoAsistente + ";");
+            //if (DatosVendedor["CorreoAdicionalNotificaciones"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosVendedor["CorreoAdicionalNotificaciones"].ToString()));
             return correos.ToString();
         }
         return "";
@@ -1104,7 +1116,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
                 string detalle = 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;
             }
-
+            CargaDatosCorreo(CveVenta);
             StringBuilder strBody = new StringBuilder();
             strBody.Append("<html>");
             strBody.Append("<head>");
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index c63564af6..af0790b36 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1408,7 +1408,8 @@ Partial Class Inventarios_EntradasSalidas
                                     Else
                                         ErrorAC = True
                                     End If
-
+                                Else
+                                    ErrorAC = True
                                 End If
 
                             End If
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 2adc2532c..093b01a9f 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2,16 +2,16 @@
 Option Explicit On
 
 Imports System.Data
-Imports System.Data.Entity.Core.Common.CommandTrees
+Imports System.Data.Entity.Core.Common.CommandTrees
 Imports System.IO
 Imports Extensiones
 
 Imports Microsoft.Reporting.WebForms
-Imports Stimulsoft.Base.Indicator
-
+Imports Stimulsoft.Base.Indicator
+
 Partial Class Inventarios_EntregaAlmacen
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "PROPIEDADES"
     Private Property CveVentaAD As Integer
         Get
@@ -245,18 +245,18 @@ Partial Class Inventarios_EntregaAlmacen
         Set(value As Boolean)
             ViewState("EsDevolucionDirecta") = value
         End Set
-    End Property
-    Private Property FormaPaqueteria As Integer
-        Get
-            Return CType(ViewState("FormaPaqueteria"), Integer)
-        End Get
-        Set(value As Integer)
-            ViewState("FormaPaqueteria") = value
-        End Set
-    End Property
-
+    End Property
+    Private Property FormaPaqueteria As Integer
+        Get
+            Return CType(ViewState("FormaPaqueteria"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("FormaPaqueteria") = value
+        End Set
+    End Property
+
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -264,9 +264,9 @@ Partial Class Inventarios_EntregaAlmacen
             CargaParametrosAD()
             If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
         End If
-    End Sub
-
-
+    End Sub
+
+
 #Region "  INICIALIZA VALORES  "
     Private Sub InicializaValores()
         TipoEstatus = -1
@@ -334,11 +334,11 @@ Partial Class Inventarios_EntregaAlmacen
 
 
         LimpiaCampos()
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 #Region "  CARGA PARAMETROS - EXCLUSIVO USO AD  "
     Private Sub CargaParametrosAD()
 
@@ -356,9 +356,9 @@ Partial Class Inventarios_EntregaAlmacen
             BtnGuardar.Visible = False
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  CARGA PENDIENTES POR SURTIR  "
     Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaFolios()
@@ -476,11 +476,11 @@ Partial Class Inventarios_EntregaAlmacen
             End Select
             UpPendientes.Update()
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 #Region "  CARGA VENTA POR SURTIR   "
     Protected Sub BtnSurtir_Click(sender As Object, e As EventArgs)
 
@@ -624,24 +624,24 @@ Partial Class Inventarios_EntregaAlmacen
                         DtDatos.Columns.Add("CantidadSeleccionada", GetType(Double))
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
-                        FormaPaqueteria = DtDatos.Rows(0)("FormaPaqueteria").ToString.ToEntero
-                        Dim FormaPaq As Integer = FormaPaqueteria
-                        RbSinEntrega.Checked = False
-                        RbEntregaInterna.Checked = False
-                        RbEntregaExterna.Checked = False
-                        Select Case FormaPaq
-                            Case 1
-                                RbSinEntrega.Checked = True
-                                LnkPaqueteriaDetalle.Visible = False
-                            Case 2
-                                RbEntregaInterna.Checked = True
-                                'LnkPaqueteriaDetalle.Visible = True
-                                DdlEstatus.SelectedValue = "5"
-                            Case 3
-                                RbEntregaExterna.Checked = True
-                                LnkPaqueteriaDetalle.Visible = True
-                        End Select
+                    If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
+                        FormaPaqueteria = DtDatos.Rows(0)("FormaPaqueteria").ToString.ToEntero
+                        Dim FormaPaq As Integer = FormaPaqueteria
+                        RbSinEntrega.Checked = False
+                        RbEntregaInterna.Checked = False
+                        RbEntregaExterna.Checked = False
+                        Select Case FormaPaq
+                            Case 1
+                                RbSinEntrega.Checked = True
+                                LnkPaqueteriaDetalle.Visible = False
+                            Case 2
+                                RbEntregaInterna.Checked = True
+                                'LnkPaqueteriaDetalle.Visible = True
+                                DdlEstatus.SelectedValue = "5"
+                            Case 3
+                                RbEntregaExterna.Checked = True
+                                LnkPaqueteriaDetalle.Visible = True
+                        End Select
                     End If
                     'TxtFecha.Text = If(EsDevolucionVenta = 1, Now.ToShortDateString, DtDatos.Rows(0)("Fecha").ToString)
                 End If
@@ -828,8 +828,8 @@ Partial Class Inventarios_EntregaAlmacen
 
             If AplicaSeccion Then GvDatos.Columns(7).Visible = True
             If AplicaLote Then GvDatos.Columns(8).Visible = True
-            If AplicaCaducidad Then GvDatos.Columns(9).Visible = True
-
+            If AplicaCaducidad Then GvDatos.Columns(9).Visible = True
+
         End If
         GvDatos.DataSource = DtDatos
 
@@ -891,10 +891,10 @@ Partial Class Inventarios_EntregaAlmacen
                     'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
                     'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
                     'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                    'If dtt.Rows.Count > 1 Then
-                    '    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
-                    'End If
-                    'dtt.Dispose()
+                    'If dtt.Rows.Count > 1 Then
+                    '    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    'End If
+                    'dtt.Dispose()
                 End If
 
             Else
@@ -955,14 +955,14 @@ Partial Class Inventarios_EntregaAlmacen
         End If
         objInv.Dispose()
         GvDocs.DataBind()
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
-
+
+
 #Region "  AGREGAR  "
-
+
     Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
 
         Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)
@@ -989,10 +989,10 @@ Partial Class Inventarios_EntregaAlmacen
             UpLoteBatch.Update()
         End If
 
-    End Sub
-
+    End Sub
+
 #Region "   AGREGA POR SERIE/LOTE   "
-
+
     Private Sub CreaDtDetalle()
         If DtDatosDetalle Is Nothing Then
             DtDatosDetalle = New DataTable
@@ -1197,11 +1197,11 @@ Partial Class Inventarios_EntregaAlmacen
         DtDatosDetalle.AcceptChanges()
         CargaSerie()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "   AGREGA CON LOTE BATCH   "
-
+
     Private Sub CreaDtDetalleLote()
         If DtDatosDetalleLote Is Nothing Then
             DtDatosDetalleLote = New DataTable
@@ -1389,9 +1389,9 @@ Partial Class Inventarios_EntregaAlmacen
         End Try
         DtDatosDetalleLote.AcceptChanges()
         CargaLote()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  AGREGA CON TXT | CODIGO - SERIE  "
     Protected Sub BtnCodigoPS_Click(sender As Object, e As EventArgs)
 
@@ -1525,12 +1525,12 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         TxtCantidadEspecialDiv.Text = "1"
-    End Sub
+    End Sub
 #End Region
-
+
 #End Region
-
-
+
+
 #Region "  GUARDAR  "
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
 
@@ -1695,15 +1695,15 @@ Partial Class Inventarios_EntregaAlmacen
         DtTraspasos.Columns.Add("CveTipoAlmacen", GetType(Integer))
         DtTraspasos.Columns.Add("CveConceptoMovimientoSalida", GetType(Integer))
 
-        Dim CveMovimientoSalida = -1, FolioSalida = -1, CveMovimientoEntrada = -1, CveMovimientoEntradaApartado = -1, FolioEntrada = -1, CveMovimientoSalidaDevRem = -1, FolioMovimientoSalidaDevRem = -1, CveMovimientoEntradaDevRem = -1, FolioMovimientoEntradaDevRem = -1
-
-
-        Dim DtDevSinCosto As New DataTable
-        DtDevSinCosto.Columns.Add("CveAlmacen", GetType(Integer))
-        DtDevSinCosto.Columns.Add("Almacen", GetType(String))
-        DtDevSinCosto.Columns.Add("CveMovimientoEntrada", GetType(Integer))
-        DtDevSinCosto.Columns.Add("FolioEntrada", GetType(Integer))
-        DtDevSinCosto.Columns.Add("CveTipoAlmacen", GetType(Integer))
+        Dim CveMovimientoSalida = -1, FolioSalida = -1, CveMovimientoEntrada = -1, CveMovimientoEntradaApartado = -1, FolioEntrada = -1, CveMovimientoSalidaDevRem = -1, FolioMovimientoSalidaDevRem = -1, CveMovimientoEntradaDevRem = -1, FolioMovimientoEntradaDevRem = -1
+
+
+        Dim DtDevSinCosto As New DataTable
+        DtDevSinCosto.Columns.Add("CveAlmacen", GetType(Integer))
+        DtDevSinCosto.Columns.Add("Almacen", GetType(String))
+        DtDevSinCosto.Columns.Add("CveMovimientoEntrada", GetType(Integer))
+        DtDevSinCosto.Columns.Add("FolioEntrada", GetType(Integer))
+        DtDevSinCosto.Columns.Add("CveTipoAlmacen", GetType(Integer))
         DtDevSinCosto.Columns.Add("CveConceptoMovimientoSalida", GetType(Integer))
 
         Try
@@ -1961,15 +1961,15 @@ Partial Class Inventarios_EntregaAlmacen
                         Dr1("CveMovimientoEntrada") = CveMovimientoEntradaApartado
                         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 CBool(Dr("AplicaSeccion")) Then
-                                    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExA, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                                Else
-                                    CveSeccionAlmacen = -1
-                                End If
-
+                        If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+                            Dim CveSeccionAlmacen As Integer = -1
+                            For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+                                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.")
@@ -2041,11 +2041,11 @@ 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
+                                            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:=CveSeccionAlmacen) Then
@@ -2244,72 +2244,72 @@ Partial Class Inventarios_EntregaAlmacen
                         End If
                     Next
                 End If
-            End If
-            ' TERMINA: GARANTIAS
-
-            'DEVOLUCION DE SIN COSTO
-            Dim CantidadEntradaSinCosto As Decimal = 0
-
-            If Not ErrorMovInv AndAlso TipoMovimiento = 2 AndAlso UsuarioActual.Empresa.Funcionalidad(587) = "1" Then
-                For Each Dr1 As DataRow In DtExistencias.FiltraParametros("CveTipoAlmacenDevolucion = 26").Rows
-                    Dim CveMovimientoSalidaSinCosto = Dr1("CveMovimiento").ToString.ToEntero
-
-                    'Dim CveAlmacenSinCosto As Integer = Dr1("CveAlmacenDevolucion").ToString().ToEntero()
-
-                    'Dim AlmacenSinCosto As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=26).FiltroPrimeroValor("Almacen", $"CveAlmacen={CveAlmacenSinCosto}").ToString()
-
+            End If
+            ' TERMINA: GARANTIAS
+
+            'DEVOLUCION DE SIN COSTO
+            Dim CantidadEntradaSinCosto As Decimal = 0
+
+            If Not ErrorMovInv AndAlso TipoMovimiento = 2 AndAlso UsuarioActual.Empresa.Funcionalidad(587) = "1" Then
+                For Each Dr1 As DataRow In DtExistencias.FiltraParametros("CveTipoAlmacenDevolucion = 26").Rows
+                    Dim CveMovimientoSalidaSinCosto = Dr1("CveMovimiento").ToString.ToEntero
+
+                    'Dim CveAlmacenSinCosto As Integer = Dr1("CveAlmacenDevolucion").ToString().ToEntero()
+
+                    'Dim AlmacenSinCosto As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=26).FiltroPrimeroValor("Almacen", $"CveAlmacen={CveAlmacenSinCosto}").ToString()
+
                     Dim CveMovimientoDevolucionSinCosto = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero(), 41, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
                                                                                    Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida,
-                                                                                   Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
-                    Dim FolioDevSinCosto = ObjInventario.Folio
-
-                    If Not CveMovimientoDevolucionSinCosto > 0 Then
-                        ErrorMovInv = True
-                        TextoError.AppendFormat("Ocurrió un error al procesar los movimientos de traspaso de apartado. Por favor vuelva a intentar.")
-                        Exit For
-                    End If
-
-                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaSinCosto, UsuarioActual.CveEmpresa) Then
-                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-
-                            CantidadEntradaSinCosto += Dr("Cantidad").ToString.ToDecimal()
-
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucionSinCosto, 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
-                                ErrorMovInv = True
-                                TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
-                                Exit For
-                            End If
-                        Next
-                    End If
-
-                    If ErrorMovInv Then Exit For
-
-                    Dim DrMovto = DtDevSinCosto.NewRow
-                    DrMovto("Almacen") = DdlAlmacen.SelectedItem.Text
-                    DrMovto("CveAlmacen") = DdlAlmacen.SelectedValue.ToEntero()
-                    DrMovto("CveMovimientoEntrada") = CveMovimientoDevolucionSinCosto
-                    DrMovto("FolioEntrada") = FolioDevSinCosto
-                    DrMovto("CveTipoAlmacen") = 10
-                    DrMovto("CveConceptoMovimientoSalida") = 41
-                    DtDevSinCosto.Rows.Add(DrMovto)
-
-                    If Not ErrorMovInv Then
-                        ErrorMovInv = Not GenerarPrePoliza(ObjInventario, ObjVentas, ObjConta, CveMovimientoDevolucionSinCosto, TextoError)
-                    End If
-
-                Next
+                                                                                   Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
+                    Dim FolioDevSinCosto = ObjInventario.Folio
+
+                    If Not CveMovimientoDevolucionSinCosto > 0 Then
+                        ErrorMovInv = True
+                        TextoError.AppendFormat("Ocurrió un error al procesar los movimientos de traspaso de apartado. Por favor vuelva a intentar.")
+                        Exit For
+                    End If
+
+                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaSinCosto, UsuarioActual.CveEmpresa) Then
+                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+
+                            CantidadEntradaSinCosto += Dr("Cantidad").ToString.ToDecimal()
+
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucionSinCosto, 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
+                                ErrorMovInv = True
+                                TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
+                                Exit For
+                            End If
+                        Next
+                    End If
+
+                    If ErrorMovInv Then Exit For
+
+                    Dim DrMovto = DtDevSinCosto.NewRow
+                    DrMovto("Almacen") = DdlAlmacen.SelectedItem.Text
+                    DrMovto("CveAlmacen") = DdlAlmacen.SelectedValue.ToEntero()
+                    DrMovto("CveMovimientoEntrada") = CveMovimientoDevolucionSinCosto
+                    DrMovto("FolioEntrada") = FolioDevSinCosto
+                    DrMovto("CveTipoAlmacen") = 10
+                    DrMovto("CveConceptoMovimientoSalida") = 41
+                    DtDevSinCosto.Rows.Add(DrMovto)
+
+                    If Not ErrorMovInv Then
+                        ErrorMovInv = Not GenerarPrePoliza(ObjInventario, ObjVentas, ObjConta, CveMovimientoDevolucionSinCosto, TextoError)
+                    End If
+
+                Next
             End If
 
-            Dim CantidadPendientePorSalir As Decimal = DtDatos.SUM("CantidadGV").ToDecimal()
-
-            If TipoMovimiento = 1 Then
-                CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadSalidaSinCosto
-            ElseIf TipoMovimiento = 2 Then
-                CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadEntradaSinCosto
-            End If
-            'si el alamcen del que salio, es el mismo que entra, no hay traspasos.
-            If CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero Then CveAlmacenTraspasoDestino = 0
-
+            Dim CantidadPendientePorSalir As Decimal = DtDatos.SUM("CantidadGV").ToDecimal()
+
+            If TipoMovimiento = 1 Then
+                CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadSalidaSinCosto
+            ElseIf TipoMovimiento = 2 Then
+                CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadEntradaSinCosto
+            End If
+            'si el alamcen del que salio, es el mismo que entra, no hay traspasos.
+            If CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero Then CveAlmacenTraspasoDestino = 0
+
             If Not ErrorMovInv AndAlso CantidadPendientePorSalir > 0 Then
                 Dim ConceptoMovimiento = 3
                 ConceptoMovimiento = If(TipoMovimiento = 1, ConceptoMovimiento, 18)
@@ -2500,12 +2500,12 @@ Partial Class Inventarios_EntregaAlmacen
                                 ErrorMovInv = True
                                 TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de control de apartados")
                                 Exit For
-                            End If
-                            If CBool(Dr("AplicaSeccion")) 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 CBool(Dr("AplicaSeccion")) 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
@@ -2534,12 +2534,12 @@ Partial Class Inventarios_EntregaAlmacen
                                 Dr1("FolioEntrada") = FolioEntrada
 
                                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-                                    For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                        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
+                                    For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+                                        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
@@ -2684,11 +2684,11 @@ Partial Class Inventarios_EntregaAlmacen
             End If
 
             'Paqueterias guias
-            If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
-                Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero()
-                Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text
-                Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
-                Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
+            If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
+                Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero()
+                Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text
+                Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
+                Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
                 Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
                 Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
 
@@ -2713,9 +2713,9 @@ Partial Class Inventarios_EntregaAlmacen
                 Else
                     Alert("Hace falta indicar un Sub Proyecto", TipoMensaje.MsgAdvertencia)
                     ErrorMovInv = True
-                End If
-            ElseIf RbSinEntrega.Checked AndAlso Not ErrorMovInv Then
-                MandaCorreoEntrega(CveVentaSurtir)
+                End If
+            ElseIf RbSinEntrega.Checked AndAlso Not ErrorMovInv Then
+                MandaCorreoEntrega(CveVentaSurtir)
             End If
         Catch ex As Exception
             ErrorMovInv = True
@@ -3154,11 +3154,11 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         'Paqueterias Guias
-        If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
-            Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero()
-            Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text
-            Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
-            Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
+        If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
+            Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero()
+            Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text
+            Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
+            Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
             Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
             Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
 
@@ -3214,105 +3214,108 @@ Partial Class Inventarios_EntregaAlmacen
         EnviarCorreoEntrega(tCveVenta, UsuarioActual)
     End Sub
 
-    Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario)
-        'Dim Correo As New ClsSisMail
-        Dim SerieFolio As String = ""
-        Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
-        Dim Cuerpo As New StringBuilder()
-        Dim Destinatario As String = ""
-        Dim MensajeEnviado = False
-        Dim tCvecliente As Integer
-        Dim bytes() As Byte = Nothing
-        Dim ObjVentas As New ClsVentas()
-
-        Dim strBody As New StringBuilder
-        If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then
-            Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
-            Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta"))
-
-            tCvecliente = dr("CveCliente").ToString.ToEntero
-
-            Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
-            If drC IsNot Nothing Then
-
-                Destinatario += String.Format(";{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
-
-                Dim ClienteNombre As String = dr("ClienteNombre").ToString()
-                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
-                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
-
-        End If
-        ObjVentas.Dispose()
-
-        Dim MailCls As New ClsSisMail
-
+    Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario)
+        'Dim Correo As New ClsSisMail
+        Dim SerieFolio As String = ""
+        Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
+        Dim Cuerpo As New StringBuilder()
+        Dim Destinatario As String = ""
+        Dim MensajeEnviado = False
+        Dim tCvecliente As Integer
+        Dim tCveVendedor As Integer
+        Dim bytes() As Byte = Nothing
+        Dim ObjVentas As New ClsVentas()
+
+        Dim strBody As New StringBuilder
+        If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
+            tCveVendedor = dr("CveVendedor").ToString.ToEntero
+            Dim CorreoVendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo", String.Format("CveVendedor = {0}", tCveVendedor))
+            Dim CorreoAsistente As String = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=3).FiltroPrimeroValor("Correo", String.Format("CveSuperior = {0}", CveVendedor))
+            Destinatario = String.Format("{0};{1};{2}", dr("CorreoNotificacion"), CorreoVendedor, CorreoAsistente)
+            tCvecliente = dr("CveCliente").ToString.ToEntero
+
+            Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
+            If drC IsNot Nothing Then
+
+                Destinatario += String.Format(";{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
+
+                Dim ClienteNombre As String = dr("ClienteNombre").ToString()
+                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
+                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
+
+        End If
+        ObjVentas.Dispose()
+
+        Dim MailCls As New ClsSisMail
+
         Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
-        Dim itemMail As New ClsSisMail.ArchivoMail()
-        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Entrega en mostrador"})
-
-        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, "Enviado desde Entrega Almacen", strBody.ToString, Destinatario)
-        MailCls = Nothing
+        Dim itemMail As New ClsSisMail.ArchivoMail()
+        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Entrega en mostrador"})
+
+        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, "Enviado desde Entrega Almacen", strBody.ToString, Destinatario)
+        MailCls = Nothing
     End Sub
 
     Private Sub Limpia()
@@ -3350,160 +3353,160 @@ Partial Class Inventarios_EntregaAlmacen
         CargaGvDatos()
 
         UpDatos.Update()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "  TRASPASO  -  TRANSITORIO  "
     Protected Sub ChkTransitorio_CheckedChanged(sender As Object, e As EventArgs)
 
         TxtResponsable.Text = ""
         DivTransitorio2.Visible = ChkTransitorio.Checked
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "SECCION ALMACEN"
-    'Private Sub CreaDtSeccionAlmacen()
-    '    DtSeccionAlmacen = New DataTable
-    '    DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal))
-    '    DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer))
-    '    DtSeccionAlmacen.Columns.Add("CveSeccionAlmacen", GetType(Integer))
-    '    DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer))
-    '    DtSeccionAlmacen.Columns.Add("SeccionAlmacen", GetType(String))
-    '    DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer))
-    'End Sub
-    'Private Sub CargaDdlAlmacen()
-    '    DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
-    '    DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    '    DdlSeccionAlmacen.DataBind()
-    'End Sub
-    'Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs)
-    '    Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-
-    '    If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
-    '        Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen.", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    CantidadTotal = gvRow.FCTextBox("TbCantidadF").Text.ToDecimal
-    '    IndexSeccionAlmacen = gvRow.RowIndex
-    '    CvePS = gvRow.DataKey("CvePS").ToEntero
-    '    CargaSeccionAlmacen()
-    '    RegistraScript("$('#DModalSeccionAlmacen').modal()")
-    'End Sub
-
-    'Private Sub CargaSeccionAlmacen()
-    '    Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
-    '    GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}")
-    '    GvSeccion.DataBind()
-
-    '    TxtCantidadSeccion.Text = ""
-    '    DdlSeccionAlmacen.SelectedIndex = 0
-    '    Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion
-    '    If CantidadRestante = 0 Then
-    '        RVTxtCantidad.MaximumValue = "1"
-    '        TxtCantidadSeccion.Enabled = False
-    '    Else
-    '        RVTxtCantidad.MaximumValue = CantidadRestante.ToString
-    '        TxtCantidadSeccion.Enabled = True
-    '    End If
-
-    '    If CantidadTotalSeccion > 0 Then
-    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = False
-    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = "Cuenta con sección almacen"
-
-    '    Else
-    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = True
-    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = ""
-
-    '    End If
-
-    '    If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then
-    '        DdlAlmacen.Enabled = False
-    '        DdlAlmacen.ToolTip = "Cuenta con sección almacen"
-    '    Else
-    '        DdlAlmacen.Enabled = True
-    '        DdlAlmacen.ToolTip = ""
-    '    End If
-
-    '    UpModalSeccionAlmacen.Update()
-    '    UpDatos.Update()
-    '    UpGenerales.Update()
-    'End Sub
-
-    'Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
-
-    '    Dim ObjInv As New ClsInventarios
-    '    Dim CantidadDisponible As Decimal = 0
-    '    If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero,
-    '                                                    CvePS, UsuarioActual.CveEmpresa) Then
-    '        If ObjInv.DtResultados.Rows.Count > 0 Then
-    '            CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal
-    '        End If
-    '    End If
-    '    ObjInv.Dispose()
-
-    '    CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacen = {DdlSeccionAlmacen.SelectedValue}").SUMD("CantidadSeccionAlmacen")
-
-    '    If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then
-    '        Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: <b>{CantidadDisponible}</b>", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    Dim Row As DataRow = Nothing
-    '    DtSeccionAlmacen.AcceptChanges()
-    '    Row = DtSeccionAlmacen.NewRow
-    '    Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal
-    '    Row("IndexSeccionAlmacen") = IndexSeccionAlmacen
-    '    Row("CveSeccionAlmacen") = DdlSeccionAlmacen.SelectedValue.ToEntero
-    '    Row("SeccionAlmacen") = DdlSeccionAlmacen.SelectedItem.Text
-    '    Row("CvePS") = CvePS
-    '    Row("Consec") = DtSeccionAlmacen.Rows.Count + 1
-    '    DtSeccionAlmacen.Rows.Add(Row)
-    '    DtSeccionAlmacen.AcceptChanges()
-    '    CargaSeccionAlmacen()
-    'End Sub
-
-    'Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs)
-    '    Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-    '    Dim Index As Integer = 0
-    '    For Each Dr As DataRow In DtSeccionAlmacen.Rows
-    '        If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then
-    '            Exit For
-    '        End If
-    '        Index += 1
-    '    Next
-    '    DtSeccionAlmacen.Rows.RemoveAt(Index)
-    '    DtSeccionAlmacen.AcceptChanges()
-    '    CargaSeccionAlmacen()
-    'End Sub
-
-    'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs)
-    '    If Not CveVentaSurtir > 0 Then
-    '        Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
-    '        Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    Dim ObjInv As New ClsInventarios
-    '    If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-    '        GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados
-    '    End If
-    '    ObjInv.Dispose()
-    '    GvVerSeccionesAlmacen.DataBind()
-    '    UpVerSeccionesAlmacen.Update()
-    '    RegistraScript("$('#ModalVerSeccionesAlmacen').modal()")
-    'End Sub
-
+    'Private Sub CreaDtSeccionAlmacen()
+    '    DtSeccionAlmacen = New DataTable
+    '    DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal))
+    '    DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer))
+    '    DtSeccionAlmacen.Columns.Add("CveSeccionAlmacen", GetType(Integer))
+    '    DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer))
+    '    DtSeccionAlmacen.Columns.Add("SeccionAlmacen", GetType(String))
+    '    DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer))
+    'End Sub
+    'Private Sub CargaDdlAlmacen()
+    '    DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+    '    DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '    DdlSeccionAlmacen.DataBind()
+    'End Sub
+    'Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs)
+    '    Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+    '    If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
+    '        Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen.", TipoMensaje.MsgAdvertencia)
+    '        Exit Sub
+    '    End If
+
+    '    CantidadTotal = gvRow.FCTextBox("TbCantidadF").Text.ToDecimal
+    '    IndexSeccionAlmacen = gvRow.RowIndex
+    '    CvePS = gvRow.DataKey("CvePS").ToEntero
+    '    CargaSeccionAlmacen()
+    '    RegistraScript("$('#DModalSeccionAlmacen').modal()")
+    'End Sub
+
+    'Private Sub CargaSeccionAlmacen()
+    '    Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
+    '    GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}")
+    '    GvSeccion.DataBind()
+
+    '    TxtCantidadSeccion.Text = ""
+    '    DdlSeccionAlmacen.SelectedIndex = 0
+    '    Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion
+    '    If CantidadRestante = 0 Then
+    '        RVTxtCantidad.MaximumValue = "1"
+    '        TxtCantidadSeccion.Enabled = False
+    '    Else
+    '        RVTxtCantidad.MaximumValue = CantidadRestante.ToString
+    '        TxtCantidadSeccion.Enabled = True
+    '    End If
+
+    '    If CantidadTotalSeccion > 0 Then
+    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = False
+    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = "Cuenta con sección almacen"
+
+    '    Else
+    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = True
+    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = ""
+
+    '    End If
+
+    '    If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then
+    '        DdlAlmacen.Enabled = False
+    '        DdlAlmacen.ToolTip = "Cuenta con sección almacen"
+    '    Else
+    '        DdlAlmacen.Enabled = True
+    '        DdlAlmacen.ToolTip = ""
+    '    End If
+
+    '    UpModalSeccionAlmacen.Update()
+    '    UpDatos.Update()
+    '    UpGenerales.Update()
+    'End Sub
+
+    'Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
+
+    '    Dim ObjInv As New ClsInventarios
+    '    Dim CantidadDisponible As Decimal = 0
+    '    If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero,
+    '                                                    CvePS, UsuarioActual.CveEmpresa) Then
+    '        If ObjInv.DtResultados.Rows.Count > 0 Then
+    '            CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal
+    '        End If
+    '    End If
+    '    ObjInv.Dispose()
+
+    '    CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacen = {DdlSeccionAlmacen.SelectedValue}").SUMD("CantidadSeccionAlmacen")
+
+    '    If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then
+    '        Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: <b>{CantidadDisponible}</b>", TipoMensaje.MsgAdvertencia)
+    '        Exit Sub
+    '    End If
+
+    '    Dim Row As DataRow = Nothing
+    '    DtSeccionAlmacen.AcceptChanges()
+    '    Row = DtSeccionAlmacen.NewRow
+    '    Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal
+    '    Row("IndexSeccionAlmacen") = IndexSeccionAlmacen
+    '    Row("CveSeccionAlmacen") = DdlSeccionAlmacen.SelectedValue.ToEntero
+    '    Row("SeccionAlmacen") = DdlSeccionAlmacen.SelectedItem.Text
+    '    Row("CvePS") = CvePS
+    '    Row("Consec") = DtSeccionAlmacen.Rows.Count + 1
+    '    DtSeccionAlmacen.Rows.Add(Row)
+    '    DtSeccionAlmacen.AcceptChanges()
+    '    CargaSeccionAlmacen()
+    'End Sub
+
+    'Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs)
+    '    Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+    '    Dim Index As Integer = 0
+    '    For Each Dr As DataRow In DtSeccionAlmacen.Rows
+    '        If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then
+    '            Exit For
+    '        End If
+    '        Index += 1
+    '    Next
+    '    DtSeccionAlmacen.Rows.RemoveAt(Index)
+    '    DtSeccionAlmacen.AcceptChanges()
+    '    CargaSeccionAlmacen()
+    'End Sub
+
+    'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs)
+    '    If Not CveVentaSurtir > 0 Then
+    '        Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
+    '        Exit Sub
+    '    End If
+
+    '    If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
+    '        Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia)
+    '        Exit Sub
+    '    End If
+
+    '    Dim ObjInv As New ClsInventarios
+    '    If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+    '        GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados
+    '    End If
+    '    ObjInv.Dispose()
+    '    GvVerSeccionesAlmacen.DataBind()
+    '    UpVerSeccionesAlmacen.Update()
+    '    RegistraScript("$('#ModalVerSeccionesAlmacen').modal()")
+    'End Sub
+
 #End Region
-
+
 #Region "DIVIDIR"
-
+
     Protected Sub Dividir(sender As Object, e As EventArgs)
         Dim index2 As Integer = 0
 
@@ -3584,11 +3587,11 @@ Partial Class Inventarios_EntregaAlmacen
             index2 += 1
         Next
 
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region " GUIAS - SABE QUE ES PORQUE NO VEO QUE SE UTILIZE EN ALGUNA PARTE - EN MIRAS DE ELIMINAR - IPP 24 AGOSTO 2017  "
     Private Sub BtnNumeroGuia_Click(sender As Object, e As EventArgs) Handles BtnNumeroGuia.Click
         Dim Objeto As New ClsInventarios
@@ -3622,11 +3625,11 @@ Partial Class Inventarios_EntregaAlmacen
 
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "SUGERENCIAS"
-
+
     Protected Sub BtnVerSugerencias_Click(sender As Object, e As EventArgs)
         If Not CveVentaSurtir > 0 Then
             Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
@@ -3726,12 +3729,12 @@ Partial Class Inventarios_EntregaAlmacen
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
 
         ImprimirPDF("Empresas/Grales/Formatos/RepEntregaAlmacenSugerencia.rdlc", DtDatosSugerencias, params, "Equipo GPS")
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "TipoEntrega"
-
+
     Protected Sub EntregaRadioGroup_Click(sender As Object, e As EventArgs)
         If RbEntregaExterna.Checked Then
             RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveVenta={CveVentaSurtir}',800,547,'N')")
@@ -3751,15 +3754,15 @@ Partial Class Inventarios_EntregaAlmacen
         TxtNoCajas.Text = ""
         TxtObservacionesPaqInterna.Text = ""
         UpPaqInterna.Update()
-    End Sub
-    Protected Sub PaqueteriaDetalle_Click(sender As Object, e As EventArgs)
-        If RbEntregaExterna.Checked Then
-            RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveVenta={CveVentaSurtir}',800,547,'N')")
-        ElseIf RbEntregaInterna.Checked Then
-            'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
-        End If
-    End Sub
+    End Sub
+    Protected Sub PaqueteriaDetalle_Click(sender As Object, e As EventArgs)
+        If RbEntregaExterna.Checked Then
+            RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveVenta={CveVentaSurtir}',800,547,'N')")
+        ElseIf RbEntregaInterna.Checked Then
+            'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
+        End If
+    End Sub
 #End Region
-
-
+
+
 End Class
diff --git a/Inventarios/EntregasPorRealizar.aspx b/Inventarios/EntregasPorRealizar.aspx
index 76ec2b76f..3bf84154d 100644
--- a/Inventarios/EntregasPorRealizar.aspx
+++ b/Inventarios/EntregasPorRealizar.aspx
@@ -70,7 +70,7 @@
                 </div>
                 <div class="portlet-body rowpadding">
                     <asp:GridView ID="GvPaqueteriasGuias" runat="server" AutoGenerateColumns="False"
-                        DataKeyNames="CvePaqueteriaGuia,Folio,SerieFolio,FechaIng,Nombre,Contacto,Estatus,CobranzaCorreo,CorreoEntregaAlmacen,CorreoEntregaCompras,Correo,CorreoAdicionalNotificaciones,CveVenta,PedidoContrato,OrdenCompra,NombreComercial,TipoDocto"
+                        DataKeyNames="CvePaqueteriaGuia,Folio,SerieFolio,FechaIng,Nombre,Contacto,Estatus,CobranzaCorreo,CorreoEntregaAlmacen,CorreoEntregaCompras,Correo,CorreoAdicionalNotificaciones,CveVenta,PedidoContrato,OrdenCompra,NombreComercial,TipoDocto,CorreoNotificacion,CveVendedor"
                         EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
                         CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                         data-sort="true"
diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs
index 38a82c6c9..c9a6442da 100644
--- a/Inventarios/EntregasPorRealizar.aspx.cs
+++ b/Inventarios/EntregasPorRealizar.aspx.cs
@@ -199,13 +199,14 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
 
     private void MandarNotificacionCorreo(GridViewRow row)
     {
-        string CobranzaCorreo = row.DataKey("CobranzaCorreo");
         string CorreoEntregaAlmacen = row.DataKey("CorreoEntregaAlmacen");
         string CorreoEntregaCompras = row.DataKey("CorreoEntregaCompras");
         string CorreoVendedor = row.DataKey("Correo");
-        string CorreoAdicionalNotificacionesVendedor = row.DataKey("CorreoAdicionalNotificaciones");
+        string CorreoNotificacion = row.DataKey("CorreoNotificacion");
+        int CveVendedor = row.DataKey("CveVendedor").ToEntero();
+        string CorreoAsistente = get_GlobalDTVendedores(UsuarioActual.CveEmpresa,VendedorTipo:3).FiltroPrimeroValor("Correo",string.Format("CveSuperior = {0}", CveVendedor));
 
-        string Para = string.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoAdicionalNotificacionesVendedor, CobranzaCorreo, CorreoEntregaCompras);
+        string Para = string.Format("{0};{1};{2};{3};{4}", CorreoVendedor, CorreoNotificacion, CorreoEntregaCompras,CorreoEntregaAlmacen,CorreoAsistente);
         string LogCorreo = string.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoEntregaAlmacen, Para);
         LogCorreo.GuardaLog();
 
diff --git a/Inventarios/PaquetesArmadoDesarmado.aspx b/Inventarios/PaquetesArmadoDesarmado.aspx
index 403797160..bfd8a8fee 100644
--- a/Inventarios/PaquetesArmadoDesarmado.aspx
+++ b/Inventarios/PaquetesArmadoDesarmado.aspx
@@ -216,26 +216,21 @@
                                         </div>
                                     </div>
                                     <div class="portlet-body">
-                                        <asp:GridView ID="GvDatosArmado" DataKeyNames="Cantidad,CvePS,CveUM,Consec,Inv_CveMetodoInventario,AplicaSeccion,AplicaSerie,AplicaCaducidad,AplicaLote" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
+                                        <asp:GridView ID="GvDatosArmado" DataKeyNames="Cantidad,CvePS,CveUM,Consec,AplicaSeccion,AplicaSerie,AplicaCaducidad,AplicaLote" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
                                             <Columns>
                                                 <asp:BoundField HeaderText="Cant. Necesaria" DataField="Cantidad" ItemStyle-Width="15%" DataFormatString="{0:###,###,###,##0.##}" ItemStyle-HorizontalAlign="Right" />
                                                 <asp:BoundField HeaderText="Cant. Disponible" DataField="CantidadDisponible2" ItemStyle-Width="15%" DataFormatString="{0:###,###,###,##0.##}" ItemStyle-HorizontalAlign="Right" />
                                                 <asp:BoundField HeaderText="Producto/Servicio" DataField="CodigoPS" ItemStyle-Width="40%" />
                                                 <asp:BoundField HeaderText="Unidad Medida" DataField="UnidadMedida" ItemStyle-Width="20%" />
-                                                <asp:TemplateField HeaderText="Serie Paquete">
+                                                <asp:TemplateField HeaderText="Serie">
                                                     <ItemTemplate>
                                                         <asp:Button Text="Serie" ID="BtnSerie" OnClick="BtnSerie_Click" CssClass="btn btn-xs btn-primary" runat="server" Style="float: left;" />
-                                                        <asp:LinkButton Text="<i class='fa fa-star'></i>" ID="BtnSeriePaquete" OnClick="BtnSeriePaquete_Click" CssClass="btn btn-xs btn-primary" runat="server" Visible="false" Style="float: left;" data-toggle="tooltip" title="Seleccionar como serie del paquete" />
+                                                        <asp:LinkButton Text="<i class='fa fa-star'></i>" ID="BtnSeriePaquete" OnClick="BtnSeriePaquete_Click" CssClass="btn btn-xs btn-primary" runat="server"  Style="float: left;" data-toggle="tooltip" title="Seleccionar como serie del paquete" />
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
-                                                <asp:TemplateField HeaderText="Sección Almacén">
+                                                <asp:TemplateField HeaderText="Sección">
                                                     <ItemTemplate>
-                                                        <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" CssClass="select2me" runat="server"/>
-                                                    </ItemTemplate>
-                                                </asp:TemplateField>
-                                                <asp:TemplateField HeaderText="Fecha Caducidad">
-                                                    <ItemTemplate>
-                                                        <asp:TextBox ID="TxtCaducidad" CssClass="form-control input-sm" runat="server" Width="80px" Style="text-align: right;"></asp:TextBox>
+                                                        <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" CssClass="select2me" runat="server"/>
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
                                                 <asp:TemplateField HeaderText="Lote">
@@ -243,11 +238,12 @@
                                                         <asp:TextBox ID="TxtLote" CssClass="form-control input-sm" runat="server" Width="80px" Style="text-align: right;"></asp:TextBox>
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
-                                                <asp:TemplateField HeaderText="Serie">
+                                                 <asp:TemplateField HeaderText="Fecha Caducidad">
                                                     <ItemTemplate>
-                                                        <asp:TextBox ID="TxtSerie" CssClass="form-control input-sm" runat="server" Width="80px" Style="text-align: right;"></asp:TextBox>
+                                                        <asp:TextBox ID="TxtCaducidad" CssClass="form-control input-sm" runat="server" Width="80px" Style="text-align: right;"></asp:TextBox>
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
+                                               
                                             </Columns>
                                         </asp:GridView>
                                     </div>
@@ -488,7 +484,7 @@
                                     </div>
                                     <div class="portlet-body">
 
-                                        <asp:GridView ID="GvDatosDesarmado" DataKeyNames="Cantidad,CvePS,CveUM,Inv_CveMetodoInventario,Consec" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
+                                        <asp:GridView ID="GvDatosDesarmado" DataKeyNames="Cantidad,CvePS,CveUM, AplicaSeccion,AplicaSerie,AplicaCaducidad,AplicaLote,Consec" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
                                             <Columns>
                                                 <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
@@ -509,6 +505,11 @@
                                                         <asp:Button Text="Serie" ID="BtnSerie" OnClick="BtnSerie_Click" CssClass="btn btn-xs btn-primary" runat="server" Style="float: left;" />
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
+                                                 <asp:TemplateField HeaderText="Sección">
+                                                    <ItemTemplate>
+                                                        <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" CssClass="select2me" runat="server"/>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
                                             </Columns>
                                         </asp:GridView>
 
diff --git a/Inventarios/PaquetesArmadoDesarmado.aspx.vb b/Inventarios/PaquetesArmadoDesarmado.aspx.vb
index 8af94a12a..d76c06fd0 100644
--- a/Inventarios/PaquetesArmadoDesarmado.aspx.vb
+++ b/Inventarios/PaquetesArmadoDesarmado.aspx.vb
@@ -88,14 +88,16 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
             ViewState("CveCliente") = value
         End Set
     End Property
-    Private Property CveTipoPS As Integer
+
+    Private Property AplicaSerie As Boolean
         Get
-            Return CType(ViewState("CveTipoPS"), Integer)
+            Return CType(ViewState("AplicaSerie"), Boolean)
         End Get
-        Set(value As Integer)
-            ViewState("CveTipoPS") = value
+        Set(value As Boolean)
+            ViewState("AplicaSerie") = value
         End Set
     End Property
+
     Private Property DtSeriesDesarmado As DataTable
         Get
             Return CType(ViewState("DtSeriesDesarmado"), DataTable)
@@ -208,7 +210,9 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
         Dim ObjProductosServicios As New ClsProductosServicios
         Dim DtDatos As New DataTable
 
-        Dim CveUMTemp = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteArmado.SelectedValue.ToEntero).FiltroPrimeroValor("CveUM").ToEntero
+        Dim drP As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteArmado.SelectedValue.ToEntero).FiltroPrimero("")
+        Dim AplicaSerie As Boolean = False
+        Dim CveUMTemp = drP("CveUM").ToString.ToEntero
         If ObjProductosServicios.GetPaqueteDetalle(DdlPaqueteArmado.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveUMTemp, TxtCantidadArmado.Text.ToDouble, DdlAlmacenArmado.SelectedValue.ToEntero, TxtFechaArmado.Text.ToDate, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente)) Then
             DtDatos = ObjProductosServicios.DtResultados.FiltraParametros("CveTipoPS = 2").Copy
         Else
@@ -240,15 +244,15 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
             End If
         Next
 
-        Dim AplicaSerie As String = ""
+
         If ErrorExistencias Then
             Alert(TextoExistencias, TipoMensaje.MsgAdvertencia)
         Else
-            AplicaSerie = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteArmado.SelectedValue.ToEntero).FiltroPrimeroValor("AplicaSerie")
+            AplicaSerie = CBool(drP("AplicaSerie"))
             BtnGuadarArmado.Visible = True
         End If
 
-        If AplicaSerie = "True" Then
+        If AplicaSerie Then
             DivSeriesPaqueteArmado.Visible = True
             Dim Dt As New DataTable
             Dt.Columns.Add("Row", GetType(Integer))
@@ -274,9 +278,14 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
         GvDatosArmado.DataSource = DtDatos
         GvDatosArmado.DataBind()
 
-        If ErrorExistencias Then
-            GvDatosArmado.Columns(4).Visible = False
-        End If
+        GvDatosArmado.Columns(5).Visible = DtDatos.MAX("AplicaSeccion") = "True"
+        'GvDatosArmado.Columns(6).Visible = DtDatos.MAX("Serie", "") <> ""
+        GvDatosArmado.Columns(6).Visible = False 'DtDatos.MAX("Lote", "") <> ""
+        GvDatosArmado.Columns(7).Visible = False 'DtDatos.MAX("FechaCaducidad", "FechaCaducidad is not null").ToDate > MinFecha
+
+        'If ErrorExistencias Then
+        '    GvDatosArmado.Columns(4).Visible = False
+        'End If
 
         UpDatosArmado.Update()
         UpGeneralesArmado.Update()
@@ -285,7 +294,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
         DtDatosDetalle.Clear()
         BtnGuadarDesarmado.Visible = False
         TotalDesarmado.Visible = False
-        CveTipoPS = -1
+        AplicaSerie = False
         TxtSerieDesarmado.Text = ""
         CvePaqueteDesarmado = -1
         TipoMovimiento = 2
@@ -299,7 +308,9 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
         BtnAgregarSerieDesarmado.Enabled = True
 
 
-        Dim CveUMTemp = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteDesarmado.SelectedValue.ToEntero).FiltroPrimeroValor("CveUM").ToEntero
+        Dim drP As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteDesarmado.SelectedValue.ToEntero).FiltroPrimero("")
+
+        Dim CveUMTemp = drP("CveUM").ToString.ToEntero
         CveVendedor = If(RowApartadosDesarmado.Visible, DdlVendedorDesarmado.SelectedValue.ToEntero, -1)
         CveCliente = If(RowClienteDesarmado.Visible, DdlClienteDesarmado.SelectedValue.ToEntero, -1)
         Dim FechaFin As String = TxtFechaDesarmado.Text.ToDateTime.ToString("yyyy/MM/dd 23:59")
@@ -314,7 +325,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
             Alert($"No hay existencia suficiente del paquete <b>""{DdlPaqueteDesarmado.SelectedItem.Text}""</b> para desarmar. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia)
             Exit Sub
         Else
-            CveTipoPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteDesarmado.SelectedValue.ToEntero).FiltroPrimeroValor("Inv_CveMetodoInventario").ToEntero
+            AplicaSerie = CBool(drP("AplicaSerie"))
         End If
 
 
@@ -343,8 +354,8 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
             Next
         End If
 
-        If CveTipoPS = 5 Then
-            GvDatosDesarmado.Columns(4).Visible = True
+        If AplicaSerie Then
+
             DivSeriesPaqueteDesarmado.Visible = True
             CreaDtSeriesDesarmado()
             DtSeriesDesarmado.Clear()
@@ -363,6 +374,9 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
         GvDatosDesarmado.DataSource = DtDatos
         GvDatosDesarmado.DataBind()
 
+        GvDatosDesarmado.Columns(4).Visible = CBool(DtDatos.MAX("AplicaSerie"))
+        GvDatosDesarmado.Columns(5).Visible = CBool(DtDatos.MAX("AplicaSeccion"))
+
         BtnGuadarDesarmado.Visible = True
 
         TotalDesarmado.Visible = True
@@ -404,7 +418,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
         Select Case (Tipo)
             Case 1 ' ARMADO
                 For Each gvr As GridViewRow In GvDatosArmado.Rows
-                    If gvr.DataKey("Inv_CveMetodoInventario").ToEntero = 5 Then
+                    If gvr.DataKey("AplicaSerie") = "True" Then
                         If gvr.DataKey("Cantidad").ToEntero <> DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", gvr.DataKey("Consec"))).Rows.Count Then
                             Alert("Es necesario ingresas todas las series de los componentes.", TipoMensaje.MsgAdvertencia)
                             Exit Sub
@@ -413,7 +427,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
                 Next
             Case 2 ' DESARMADO
                 For Each gvr As GridViewRow In GvDatosDesarmado.Rows
-                    If gvr.DataKey("Inv_CveMetodoInventario").ToEntero = 5 Then
+                    If gvr.DataKey("AplicaSerie") = "True" Then
                         If gvr.DataKey("Cantidad").ToEntero <> DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", gvr.DataKey("Consec"))).Rows.Count Then
                             Alert("Es necesario ingresas todas las series de los componentes.", TipoMensaje.MsgAdvertencia)
                             Exit Sub
@@ -423,7 +437,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
         End Select
 
         'VALIDA SI EL PAQUETE ES DE SERIE QUE SE INGRESEN TODAS LAS SERIES (CANTIDAD)
-        If CveTipoPS = 5 Then
+        If AplicaSerie Then
             Select Case (Tipo)
                 Case 1 ' ARMADO
                     For Each gvr As GridViewRow In GvSeriesPaqueteArmado.Rows
@@ -458,7 +472,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
             Case 1 ' ARMADO
 
                 'SALIDA COMPONENTES
-                CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenArmado, 5, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesArmado.Text, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente))
+                CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenArmado, 5, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesArmado.Text, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), Modulo:="ARMPAQ1")
                 FolioSalida = ObjInventario.Folio
 
                 If CveMovimientoSalida <= 0 Then
@@ -472,7 +486,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
                         Dim Lote As String = If(Gvr.FCTextBox("TxtLote").Text = "", "-1", Gvr.FCTextBox("TxtLote").Text)
                         Dim FechaCaducidad As String = If(Gvr.FCTextBox("TxtCaducidad").Text = "", "-1", Gvr.FCTextBox("TxtCaducidad").Text)
                         Dim CveSeccionAlmacen As Integer = Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero()
-                        If Gvr.DataKey("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then
+                        If CBool(Gvr.DataKey("AplicaSerie")) Then
                             For Each Dr As DataRow In DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr.DataKey("Consec").ToEntero)).Rows
                                 If Not ObjInventario.GetExistenciasPS(Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenArmado.SelectedValue.ToEntero, FechaMovto:=Fecha.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Dr("Serie").ToString, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente)) >= 1 Then
                                     MensajeError = String.Format("El Producto <b>{0}</b> con Serie: <b>{1}</b>  no tiene existencia suficiente", Dr("PS"), Dr("Serie"))
@@ -506,7 +520,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
 
                 'ENTRADA PAQUETE
                 If Not TieneError Then
-                    CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenArmado, 19, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesArmado.Text, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveMovimientoRelacionado:=CveMovimientoSalida)
+                    CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenArmado, 19, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesArmado.Text, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="ARMPAQ2")
                     FolioEntrada = ObjInventario.Folio
 
                     If CveMovimientoEntrada <= 0 Then
@@ -520,14 +534,22 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
                             Next
                             PUTemp = PUTemp / LbCantidadArmado.Text.ToDecimal
                             Dim CvePSTemp = CvePaqueteArmado
-                            Dim CveUMTemp = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePaqueteArmado).FiltroPrimeroValor("CveUM").ToEntero
+                            Dim CveSeccionAlmacen As Integer = -1
+                            Dim Drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePaqueteArmado).FiltroPrimero("")
 
-                            If CveTipoPS = 5 Then
+                            Dim CveUMTemp As Integer = Drp("CveUM").ToString.ToEntero
+                            Dim AplicaSeccion As Boolean = CBool(Drp("AplicaSeccion"))
+                            If AplicaSeccion Then
+                                CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenArmado, CvePaqueteArmado).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                            End If
+
+
+                            If AplicaSerie Then
                                 Dim ContadorPaquete = 1
                                 Dim DtSeriesComponentes As New DataTable
                                 For Each Gvr As GridViewRow In GvSeriesPaqueteArmado.Rows
                                     'AGREGA MOVTO DETALLE DE LA ENTRADA DEL PAQUETE
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, 1, CveUMTemp, CvePSTemp, PUTemp, -1, Serie:=Gvr.FCTextBox("TxtSerie").Text.Trim) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, 1, CveUMTemp, CvePSTemp, PUTemp, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Gvr.FCTextBox("TxtSerie").Text.Trim) Then
                                         TieneError = True
                                         MensajeError = "Ocurrió un error al guardar los detalles con serie del movimiento de entrada"
                                         Exit For
@@ -535,7 +557,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
 
                                     'INGRESA EN TABLA DE CONTROL DE PAQUETES CON SERIE
                                     For Each Gvr2 As GridViewRow In GvDatosArmado.Rows
-                                        If Gvr2.DataKey("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then
+                                        If CBool(Gvr2.DataKey("AplicaSerie")) Then
                                             DtSeriesComponentes = New DataTable
                                             DtSeriesComponentes = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr2.DataKey("Consec").ToEntero)).Copy
                                             Dim CantidadComponente = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr2.DataKey("Consec").ToEntero)).Rows.Count / LbCantidadArmado.Text.ToEntero
@@ -552,7 +574,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
                                     ContadorPaquete = ContadorPaquete + 1
                                 Next
                             Else
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, LbCantidadArmado.Text.ToDouble, CveUMTemp, CvePSTemp, PUTemp, -1) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, LbCantidadArmado.Text.ToDouble, CveUMTemp, CvePSTemp, PUTemp, CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los detalles del movimiento de entrada"
                                 End If
@@ -569,7 +591,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
 
 
                 'SALIDA PAQUETE
-                CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenDesarmado, 20, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesDesarmado.Text, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente))
+                CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenDesarmado, 20, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesDesarmado.Text, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), Modulo:="ARMPAQ3")
                 FolioSalida = ObjInventario.Folio
 
                 If CveMovimientoSalida <= 0 Then
@@ -579,12 +601,18 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
                 End If
 
                 Dim CvePSTemp = CvePaqueteDesarmado
-                Dim CveUMTemp = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePaqueteDesarmado).FiltroPrimeroValor("CveUM").ToEntero
+                Dim CveSeccionAlmacen As Integer = -1
+                Dim Drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePaqueteDesarmado).FiltroPrimero("")
 
-                If CveTipoPS = 5 Then
+                Dim CveUMTemp As Integer = Drp("CveUM").ToString.ToEntero
+                Dim AplicaSeccion As Boolean = CBool(Drp("AplicaSeccion"))
+                If AplicaSeccion Then
+                    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenDesarmado, CvePaqueteDesarmado).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                End If
+                If AplicaSerie Then
                     For Each Gvr As GridViewRow In GvSeriesPaqueteDesarmado.Rows
                         'AGREGA MOVTO DETALLE DE LA SALIDA DEL PAQUETE
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, 1, CveUMTemp, CvePSTemp, 0, -1, Serie:=Gvr.DataKey("Serie").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, 1, CveUMTemp, CvePSTemp, 0, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Gvr.DataKey("Serie").ToString) Then
                             TieneError = True
                             MensajeError = "Ocurrió un error al guardar los detalles con serie del movimiento de salida"
                             Exit For
@@ -598,7 +626,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
                         End If
                     Next
                 Else
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, TxtCantidadDesarmado.Text.ToDouble, CveUMTemp, CvePSTemp, 0, -1) Then
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, TxtCantidadDesarmado.Text.ToDouble, CveUMTemp, CvePSTemp, 0, CveSeccionAlmacen:=CveSeccionAlmacen) Then
                         TieneError = True
                         MensajeError = "Ocurrió un error al guardar los movimientos de salida"
                     End If
@@ -607,7 +635,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
 
                 'ENTRADA COMPONENTES
                 If Not TieneError Then
-                    CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenDesarmado, 4, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesDesarmado.Text, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveMovimientoRelacionado:=CveMovimientoSalida)
+                    CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenDesarmado, 4, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesDesarmado.Text, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="ARMPAQ4")
                     FolioEntrada = ObjInventario.Folio
 
                     If CveMovimientoEntrada <= 0 Then
@@ -616,16 +644,20 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
                     Else
                         For Each Gvr As GridViewRow In GvDatosDesarmado.Rows
                             If Gvr.DataKey("Cantidad").ToString.ToDouble > 0 Then
-                                If Gvr.DataKey("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then
+                                If CBool(Gvr.DataKey("AplicaSeccion")) Then
+                                    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenDesarmado, CvePaqueteDesarmado).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                                End If
+
+                                If CBool(Gvr.DataKey("AplicaSerie")) Then
                                     For Each Dr As DataRow In DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr.DataKey("Consec").ToEntero)).Rows
-                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, 1, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.FCTextBox("TxtCosto").Text.ToDecimal, -1, Serie:=Dr("Serie").ToString) Then
+                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, 1, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.FCTextBox("TxtCosto").Text.ToDecimal, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString) Then
                                             MensajeError = "Ocurrió un error al guardar los detalles con serie del movimiento de entrada. Por favor vuelva a intentar."
                                             TieneError = True
                                             Exit For
                                         End If
                                     Next
                                 Else
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Gvr.DataKey("Cantidad").ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.FCTextBox("TxtCosto").Text.ToDecimal, -1) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Gvr.DataKey("Cantidad").ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.FCTextBox("TxtCosto").Text.ToDecimal, CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                         MensajeError = "Ocurrió un error al guardar los detalles del movimiento de entrada. Por favor vuelva a intentar."
                                         TieneError = True
                                         Exit For
@@ -662,7 +694,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
     Private Sub Limpia(Tipo As Integer)
 
         DtDatosDetalle.Clear()
-        CveTipoPS = -1
+        AplicaSerie = False
 
 
         'If Tipo = 1 Then
@@ -719,20 +751,18 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
     Protected Sub GvDatosArmado_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosArmado.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then
+            If CBool(e.Row.DBCampo("AplicaSerie")) Then
                 e.Row.FCButton("BtnSerie").Visible = True
                 e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°1", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
                 e.Row.FCLinkButton("BtnSeriePaquete").CommandArgument = e.Row.DBCampo("Consec")
                 'Dim Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", e.Row.DBCampo("Consec"))).Rows.Count
                 'e.Row.FCTextBox("TbCantidadF").Text = Contador.ToString
 
-                If CveTipoPS = 5 Then
+                If AplicaSerie Then
                     e.Row.FCLinkButton("BtnSeriePaquete").Visible = True
                     e.Row.FCLinkButton("BtnSeriePaquete").Attributes.Add("data-toggle", "tooltip")
                 End If
 
-                GvDatosArmado.Columns(4).Visible = True
-
             Else
                 e.Row.FCButton("BtnSerie").Visible = False
             End If
@@ -740,16 +770,14 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
             If e.Row.DataKey("AplicaSeccion") = "False" Then
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = False
             Else
-                e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
-                e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacenArmado.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa)
+
             End If
 
             e.Row.FCTextBox("TxtCaducidad").Visible = e.Row.DataKey("AplicaCaducidad") = "True"
 
             e.Row.FCTextBox("TxtLote").Visible = e.Row.DataKey("AplicaLote") = "True"
 
-            e.Row.FCTextBox("TxtSerie").Visible = e.Row.DataKey("AplicaSerie") = "True"
             ''FUNCIONALIDAD PISTOLA DE CODIGOS
             'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
             '    e.Row.FCTextBox("TbCantidadF").Enabled = False
@@ -763,13 +791,17 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
     Protected Sub GvDatosDesarmado_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosDesarmado.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then
+            If CBool(e.Row.DBCampo("AplicaSerie")) Then
                 e.Row.FCButton("BtnSerie").Visible = True
                 e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°2", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
             Else
                 e.Row.FCButton("BtnSerie").Visible = False
             End If
-
+            If e.Row.DataKey("AplicaSeccion") = "False" Then
+                e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = False
+            Else
+                CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacenDesarmado.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa)
+            End If
 
             e.Row.FCTextBox("TxtCosto").Attributes.Add("onkeyup", "SumaValores();")
 
diff --git a/Inventarios/RepTraspasoAlmacen.aspx b/Inventarios/RepTraspasoAlmacen.aspx
index fb7c223f9..51762e3f8 100644
--- a/Inventarios/RepTraspasoAlmacen.aspx
+++ b/Inventarios/RepTraspasoAlmacen.aspx
@@ -204,13 +204,13 @@
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Traspaso de Almacén"
                 ToolTip="Remisiones sin Facturar"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
-                data-sort="true" Style="text-align: center;" GridLines="None">
+                data-sort="true" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
-                    <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
-                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
-                    <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" ItemStyle-HorizontalAlign="Left"/>
-                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left"/>                    
+                    <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="5%" />
+                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" />
+                    <asp:BoundField HeaderText="Producto" DataField="PS"  ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left"/>                    
                     <asp:BoundField HeaderText="Valor" DataField="Valor" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n}" />
                 </Columns>
                 <HeaderStyle CssClass="Titulos" />
diff --git a/Inventarios/RepTraspasoAlmacen.aspx.vb b/Inventarios/RepTraspasoAlmacen.aspx.vb
index 56ec9a426..dfcf7ef57 100644
--- a/Inventarios/RepTraspasoAlmacen.aspx.vb
+++ b/Inventarios/RepTraspasoAlmacen.aspx.vb
@@ -77,7 +77,7 @@ Partial Class RepTraspasoAlmacen
         If ObjInventarios.RepTraspasoAlmacen(FechaI.ToDate, FechaF.ToDate, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjInventarios.DtResultados
             DtInventarios = ObjInventarios.DtResultados
-
+            GvDatos.Columns(4).Visible = DtInventarios.MAX("Serie") <> ""
         End If
 
         ObjInventarios.Dispose()
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 49dd41818..be7031de6 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -1799,13 +1799,12 @@ Partial Class OC
         DdlProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
     Private Sub CargaSubProyectos()
-        Dim Filtro As String = If(DdlProyecto.SelectedValue.ToEntero > 0, String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "")
+        Dim Filtro As String = If(DdlProyecto.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(4, 5), String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "")
 
         DdlSubProyecto.Items.Clear()
-        If Filtro <> "" Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, CveEmpresaActual, 1)) 'DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) ' GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
-        End If
+        DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, CveEmpresaActual, 1)) 'DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) ' GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
         DdlSubProyecto.DataBind()
+
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
     Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer)
diff --git a/OI/DocumentoDetalle.aspx b/OI/DocumentoDetalle.aspx
index d5af82e6c..990f00d77 100644
--- a/OI/DocumentoDetalle.aspx
+++ b/OI/DocumentoDetalle.aspx
@@ -13,118 +13,172 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <asp:UpdatePanel runat="server" ID="UpAgregar">
         <ContentTemplate>
-            <%--<li>
-                <asp:LinkButton runat="server" ID="BtnAgregarDocumento" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Documento"></asp:LinkButton>
+            <li>
+                <asp:LinkButton runat="server" ID="LkbNuevaVersion" OnClick="LkbNuevaVersion_Click" data-toggle="tooltip" data-placement="left" title="Agregar una nueva versión de este documento" Text="<i class='fa fa-plus'></i>Crear Nueva Versión"></asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
+                <asp:LinkButton runat="server" ID="LbPruebas" OnClick="LbPruebas_Click" data-toggle="tooltip" data-placement="left" title="Agregar una nueva versión de este documento" Text="<i class='fa fa-plus'></i>Pruebas"></asp:LinkButton>
             </li>
-            <li>
-                <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Imprimir Excel</asp:LinkButton>
-            </li>--%>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-    <asp:UpdatePanel ID="UpCliente" runat="server" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="width: 100%;">
-        <ContentTemplate>
-            <div class="portlet-body form-horizontal form-row-sepe formnombottom" style="padding-top: 0px; margin-top: -5px;">
-                <div class="row form-group" style="width: 100%">
-                    <asp:UpdatePanel ID="UpDerecha" runat="server" UpdateMode="Conditional" class="col-md-2" style="width: 50%;">
-                        <ContentTemplate>
-                            <br />
-                            <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
-                                <asp:Label runat="server" ID="LblDescripción" Text="Descripción" />
-                                <asp:TextBox runat="server" ID="TxtDescripcion" class="form-control" />
-                                <asp:RequiredFieldValidator ID="RfvTxtDescripcion" runat="server" ControlToValidate="TxtDescripcion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDoc"></asp:RequiredFieldValidator>
+    <div style="display:table;width:100%">
+        <asp:UpdatePanel ID="UpCliente" runat="server" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="width: 100%;">
+            <ContentTemplate>
+                    <div class="portlet-body form-horizontal form-row-sepe formnombottom" style="padding-top: 0px; margin-top: -5px;">
+                        <div class="row form-group" style="width: 100%">
+                            <asp:UpdatePanel ID="UpDerecha" runat="server" UpdateMode="Conditional" class="col-md-2" style="width: 50%;">
+                                <ContentTemplate>
+                                    <br />
+                                    <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
+                                        <asp:Label runat="server" ID="LblDescripción" Text="Descripción" />
+                                        <asp:TextBox runat="server" ID="TxtDescripcion" class="form-control" />
+                                        <asp:RequiredFieldValidator ID="RfvTxtDescripcion" runat="server" ControlToValidate="TxtDescripcion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDoc"></asp:RequiredFieldValidator>
+                                    </div>
+                                    <br />
+                                    <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
+                                        <asp:Label runat="server" ID="LblCategoria" Text="Categoría" /><br />
+                                        <asp:DropDownList runat="server" ID="DdlCategoria" CssClass="select2me" Style="width: 30%" DataValueField="CveCategoria" DataTextField="Categoria" OnSelectedIndexChanged="DdlCategoria_SelectedIndexChanged" AutoPostBack="true">
+                                        </asp:DropDownList>
+                                    </div>
+                                    <br />
+                                    <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
+                                        <asp:Label runat="server" ID="LblSubCategoria" Text="Subcategoría" /><br />
+                                        <asp:DropDownList runat="server" ID="DdlSubCategoria" CssClass="select2me" Style="width: 30%" DataValueField="CveSubCategoria" DataTextField="SubCategoria">
+                                        </asp:DropDownList>
+                                    </div>
+                                    <br />
+                                    <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px" runat="server" id="DivEstatusInicial">
+                                        <asp:Label runat="server" ID="Label3" Text="Estatus: En Proceso" /><br />
+                                    </div>
+                                    <br runat="server" id="brEstatusInicial"/>
+                                    <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px" runat="server" id="DivEstatus" visible="false">
+                                        <asp:Label runat="server" ID="LblEstatus" Text="Estatus" /><br />
+                                        <asp:DropDownList runat="server" ID="DdlEstatus" CssClass="select2me" Style="width: 30%">
+                                            <asp:ListItem Value="1" Text="En Proceso" />
+                                            <asp:ListItem Value="2" Text="Aprobado" />
+                                            <asp:ListItem Value="3" Text="Rechazado" />
+                                        </asp:DropDownList>
+                                    </div>
+                                    <br runat="server" id="brEstatus" visible="false"/>
+                                    <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
+                                        <asp:Label runat="server" ID="LblVersion" Text="Versión" />
+                                        <asp:TextBox runat="server" ID="TxtVersion" class="form-control" Style="width: 30%" />
+                                        <asp:RequiredFieldValidator ID="RfvTxtVersion" runat="server" ControlToValidate="TxtVersion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Versión''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDoc"></asp:RequiredFieldValidator>
+                                    </div>
+                                    <br />
+                                    <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
+                                        <asp:Label runat="server" ID="LblResponsable" Text="Responsable" />
+                                        <asp:TextBox runat="server" ID="TxtResponsable" class="form-control" Style="width: 50%" />
+                                        <asp:RequiredFieldValidator ID="RfvTxtResponsable" runat="server" ControlToValidate="TxtResponsable" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Responsable''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDoc"></asp:RequiredFieldValidator>
+                                    </div>
+                                    <br />
+                                    <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
+                                        <asp:Label runat="server" ID="LblObs" Text="Observaciones" />
+                                        <textarea runat="server" id="TxtObs" class="form-control" style="border: 1px solid #e5e5e5" rows="2"></textarea>
+                                    </div>
+                                    <br />
+                                    <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
+                                        <div runat="server" id="DivFileDropZone">
+                                            <asp:Label runat="server" ID="LblDocumentoFile" Text="Documento" />
+                                            <asp:TextBox ID="TxtDocumentoFile" CssClass="ADSdropzone hidden" runat="server" Style="height: 100px"></asp:TextBox>
+                                        </div>
+                                        <div runat="server" id="DivDescargarArchivo" visible="false">
+                                            <asp:Label runat="server" ID="LblDocumentoCargado" Text="Documento cargado:" />
+                                            <asp:LinkButton runat="server" ID="LkbDescargarArchivo" Text="" OnClick="LkbDescargarArchivo_Click" />
+                                        </div>
+                                    </div>
+                                </ContentTemplate>
+                                <Triggers>
+                                    <asp:PostBackTrigger ControlID="LkbDescargarArchivo" />
+                                </Triggers>
+                            </asp:UpdatePanel>
+                            <asp:UpdatePanel ID="UpIzquierda" runat="server" UpdateMode="Conditional" class="col-md-2" style="width: 50%;">
+                                <ContentTemplate>
+                                    <br />
+                                    <div class="form-group form-md-line-input input-iconright" style="margin: unset; height: 200px; text-align: center">
+                                        <asp:Label runat="server" ID="LblUsuarios" Text="Usuarios" Font-Size="14px" /><br />
+                                        <br />
+                                        <div class="text-right" style="">
+                                            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvUsuarios.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4; border: 1px solid #e5e5e5" />
+                                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvUsuarios.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                        </div>
+                                        <asp:UpdatePanel ID="UpDatosUsuarios" runat="server" UpdateMode="Conditional">
+                                            <ContentTemplate>
+                                                <asp:GridView ID="GvUsuarios" runat="server" AutoGenerateColumns="False" DataKeyNames="CveUsuario,Usuario,Correo" EmptyDataText="No se encontraron Categorías de Documentos Registrados"
+                                                    ToolTip="Listado de Categorías de Documentos" CssClass="table table-striped table-advance table-hover ScrollAD" Style="text-align: center; width: 100%; overflow-x: hidden"
+                                                    GridLines="None" OnRowDataBound="GvUsuarios_RowDataBound">
+                                                    <Columns>
+                                                        <asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" />
+                                                        <asp:TemplateField HeaderText="Unir">
+                                                            <ItemTemplate>
+                                                                <asp:CheckBox runat="server" ID="ChkUnir" />
+                                                            </ItemTemplate>
+                                                        </asp:TemplateField>
+                                                        <asp:TemplateField HeaderText="Aprobar" Visible="false">
+                                                            <ItemTemplate>
+                                                                <asp:CheckBox runat="server" ID="ChkAprobar" OnCheckedChanged="ChkAprobar_Checked" AutoPostBack="true" />
+                                                            </ItemTemplate>
+                                                        </asp:TemplateField>
+                                                        <asp:TemplateField HeaderText="Propuesta" Visible="false" ItemStyle-Width="15%">
+                                                            <ItemTemplate>
+                                                                <div class="row">
+                                                                    <div class="col-md-4" style="width:50%;text-align:right;padding-right:unset">
+                                                                        <asp:LinkButton runat="server" ID="LkbSubirPropuesta" OnClick="LkbSubirPropuesta_Click" AlternateText="Subir" CausesValidation="False" s CssClass="btn btn-circle btn-sm green" Text="<i title='Subir Documento' class='fa fa-upload' title='Subir Documento' ></i>" />
+                                                                    </div>
+                                                                    <div class="col-md-4" style="width:50%;text-align:left;;padding-right:unset">
+                                                                        <asp:LinkButton runat="server" ID="LkbDescargarPropuesta" OnClick="LkbDescargarPropuesta_Click" AlternateText="Descargar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" CssStyle="" Text="<i title='Subir Documento' class='fa fa-download' title='Descargar Documento' ></i>" />
+                                                                    </div>
+                                                                </div>
+                                                            </ItemTemplate>
+                                                        </asp:TemplateField>
+                                                    </Columns>
+                                                </asp:GridView>
+                                            </ContentTemplate>
+                                        </asp:UpdatePanel>
+                                    </div>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-1" style="text-align: center; width: 100%" runat="server" id="DivBotonesAcciones">
+                                <br />
+                                <asp:LinkButton runat="server" ID="LkbGuardar" OnClick="LblGuardar_Click" Text="Guardar" class="btn btn-primary" ValidationGroup="GrpDoc" />
+                                <asp:LinkButton runat="server" ID="LkbActualizar" OnClick="LbkActualizar_Click" Text="Actualizar" class="btn btn-primary" ValidationGroup="GrpDoc" Visible="false" />
+                                <asp:LinkButton runat="server" ID="LkbPublicar" OnClick="LkbPublicar_Click" Text="Publicar" class="btn btn-primary" ValidationGroup="GrpDoc" visible="false"/>
+                                <br />
                             </div>
-                            <br />
-                            <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
-                                <asp:Label runat="server" ID="LblSubCategoria" Text="Subcategoría" /><br />
-                                <asp:DropDownList runat="server" ID="DdlSubCategoria" CssClass="select2me" Style="width: 30%" DataValueField="CveSubCategoria" DataTextField="SubCategoria">
-                                </asp:DropDownList>
-                            </div>
-                            <br />
-                            <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
-                                <asp:Label runat="server" ID="LblEstatus" Text="Estatus" /><br />
-                                <asp:DropDownList runat="server" ID="DdlEstatus" CssClass="select2me" Style="width: 30%">
-                                    <asp:ListItem Value="1" Text="En Proceso" />
-                                    <asp:ListItem Value="2" Text="Aprobado" />
-                                    <asp:ListItem Value="1" Text="Rechazado" />
-                                </asp:DropDownList>
-                            </div>
-                            <br />
-                            <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
-                                <asp:Label runat="server" ID="LblVersion" Text="Versión" />
-                                <asp:TextBox runat="server" ID="TxtVersion" class="form-control" Style="width: 30%" />
-                                <asp:RequiredFieldValidator ID="RfvTxtVersion" runat="server" ControlToValidate="TxtVersion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Versión''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDoc"></asp:RequiredFieldValidator>
-                            </div>
-                            <br />
-                            <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
-                                <asp:Label runat="server" ID="LblResponsable" Text="Responsable" />
-                                <asp:TextBox runat="server" ID="TxtResponsable" class="form-control" Style="width: 50%" />
-                                <asp:RequiredFieldValidator ID="RfvTxtResponsable" runat="server" ControlToValidate="TxtResponsable" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Responsable''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDoc"></asp:RequiredFieldValidator>
-                            </div>
-                            <br />
-                            <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
-                                <asp:Label runat="server" ID="LblObs" Text="Observaciones" />
-                                <textarea runat="server" id="TxtObs" class="form-control" style="border: 1px solid #e5e5e5" rows="2"></textarea>
-                            </div>
-                            <br />
-                            <div class="form-group form-md-line-input input-iconright" style="margin: unset; font-size: 14px">
-                                <div>
-                                    <asp:Label runat="server" ID="LblDocumentoFile" Text="Documento" />
-                                    <asp:TextBox ID="TxtDocumentoFile" CssClass="ADSdropzone hidden" runat="server" Style="height: 100px"></asp:TextBox>
-                                </div>
-                                <div runat="server" id="DivDescargarArchivo" visible="false">
-                                    <asp:Label runat="server" ID="LblDocumentoCargado" Text="Documento cargado:" />
-                                    <asp:LinkButton runat="server" ID="LkbDescargarArchivo" Text="" OnClick="LkbDescargarArchivo_Click"/>
-                                </div>
-                            </div>
-                        </ContentTemplate>
-                        <Triggers>
-                            <asp:PostBackTrigger ControlID="LkbDescargarArchivo" />
-                        </Triggers>
-                    </asp:UpdatePanel>
-                    <asp:UpdatePanel ID="UpIzquierda" runat="server" UpdateMode="Conditional" class="col-md-2" style="width: 50%;">
-                        <ContentTemplate>
-                            <br />
-                            <div class="form-group form-md-line-input input-iconright" style="margin: unset; height: 150px; text-align: center">
-                                <asp:Label runat="server" ID="LblUsuarios" Text="Usuarios" Font-Size="14px" /><br /><br />
-                                <div class="text-right" style="">
-                                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvUsuarios.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4; border:1px solid #e5e5e5" />
-                                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvUsuarios.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                                </div>
-                                <asp:UpdatePanel ID="UpDatosUsuarios" runat="server" UpdateMode="Conditional">
+                        </div>
+                        <div id="DivAgregarPropuesta" 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>
-                                        <asp:GridView ID="GvUsuarios" runat="server" AutoGenerateColumns="False" DataKeyNames="CveUsuario,Usuario,Correo" EmptyDataText="No se encontraron Categorías de Documentos Registrados"
-                                            ToolTip="Listado de Categorías de Documentos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
-                                            Style="margin-top: -10px; text-align: center; width: 100%; overflow-x: hidden" GridLines="None">
-                                            <Columns>
-                                                <asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" />
-                                                <asp:TemplateField HeaderText="Unir">
-                                                    <ItemTemplate>
-                                                        <asp:CheckBox runat="server" ID="ChkUnir" />
-                                                    </ItemTemplate>
-                                                </asp:TemplateField>
-                                            </Columns>
-                                        </asp:GridView>
+                                        <div class="modal-header ">
+                                            <button type="button" class="close" data-dismiss="modal">×</button>
+                                            <h4 class="modal-title">
+                                                <asp:Literal ID="LtlTituloModalTiposD" runat="server">Propuesta:</asp:Literal></h4>
+                                        </div>
+                                        <div class="modal-body">
+                                            <asp:Label runat="server" ID="Label1" Text="Subir Archivo de Propuesta:" style="font-size:15px"/>
+                                            <br />
+                                            <asp:TextBox ID="TxtArchivoPropuesta" CssClass="ADSdropzone hidden" runat="server" Style="height: 100px"></asp:TextBox>
+                                            <br />
+                                            <asp:Label runat="server" ID="Label2" Text="Comentarios:" style="font-size:15px"/>
+                                            <textarea runat="server" id="TxtComentarios" class="form-control" style="border: 1px solid #e5e5e5" rows="2"></textarea>
+                                        </div>
+                                        <div class="modal-footer">
+                                            <asp:Button ID="BtnAgregarPropuesta" OnClick="BtnAgregarPropuesta_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>
-                        </ContentTemplate>
-                    </asp:UpdatePanel>
-                </div>
-                <div class="row">
-                    <div class="col-md-1" style="text-align: center; width: 100%">
-                        <br />
-                        <asp:LinkButton runat="server" ID="LkbGuardar" OnClick="LblGuardar_Click" Text="Guardar" class="btn btn-primary" ValidationGroup="GrpDoc"/>
-                        <br />
+                        </div>
                     </div>
-                </div>
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
 
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
diff --git a/OI/DocumentoDetalle.aspx.cs b/OI/DocumentoDetalle.aspx.cs
index eef168503..ce4b59da1 100644
--- a/OI/DocumentoDetalle.aspx.cs
+++ b/OI/DocumentoDetalle.aspx.cs
@@ -11,6 +11,19 @@ using System.Text;
 
 public partial class OI_DocumentoDetalle : ClsPaginas
 {
+    private int CveUsuarioResponsable
+    {
+        get
+        {
+            return ViewState["CveUsuarioResponsable"].ToString().ToEntero();
+        }
+
+        set
+        {
+            ViewState["CveUsuarioResponsable"] = value;
+        }
+    }
+
     private int CveDocumento
     {
         get
@@ -50,6 +63,32 @@ public partial class OI_DocumentoDetalle : ClsPaginas
         }
     }
 
+    private int CveUsuarioSeleccionado
+    {
+        get
+        {
+            return ViewState["CveUsuarioSeleccionado"].ToString().ToEntero();
+        }
+
+        set
+        {
+            ViewState["CveUsuarioSeleccionado"] = value;
+        }
+    }
+
+    private int CveAsignacion
+    {
+        get
+        {
+            return ViewState["CveAsignacion"].ToString().ToEntero();
+        }
+
+        set
+        {
+            ViewState["CveAsignacion"] = value;
+        }
+    }
+
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!IsPostBack)
@@ -74,25 +113,73 @@ public partial class OI_DocumentoDetalle : ClsPaginas
     private void CargarMensajeNuevoEditado()
     {
         string MensajeNuevoEditado = Page.Request["Mensaje"];
-        if (MensajeNuevoEditado == "Nuevo")
+        switch (MensajeNuevoEditado)
         {
-            Alert("El Documento ha sido creado correctamente");
-        }else if(MensajeNuevoEditado == "Editado")
-        {
-            Alert("Los cambios en el Documento han sido guardado correctamente");
+            case "Nuevo":
+                Alert("El Documento ha sido creado correctamente");
+                break;
+            case "NuevaVersion":
+                Alert("Nueva versión del Documento creado correctamente");
+                break;
+            case "Publicado":
+                Alert("Documento publicado");
+                break;
         }
     }
 
     private void CargarUsuarios()
     {
-        GvUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+        GvUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1");
         GvUsuarios.DataBind();
     }
 
+    private void CargarUsuariosParticipantes()
+    {
+
+        DataTable UsuariosAux = null;
+        ClsOIEventos ObjOI = new ClsOIEventos();
+        if (ObjOI.GetDocumentoAutorizacion(this.CveDocumento))
+        {
+            GvUsuarios.DataSource = ObjOI.DtResultados;
+            UsuariosAux = ObjOI.DtResultados;
+        }
+        ObjOI.Dispose();
+        GvUsuarios.DataBind();
+        IndicarQuienesYaAutorizaron(UsuariosAux);
+
+    }
+
+    private void IndicarQuienesYaAutorizaron(DataTable Usuarios)
+    {
+        if (Usuarios != null)
+        {
+            GridViewRowCollection UsuariosEnGrid = GvUsuarios.Rows;
+            foreach (GridViewRow Usuario in UsuariosEnGrid)
+            {
+                int CveUsuario = Usuario.DataKey("CveUsuario").ToEntero();
+                string FechaAprobacion = Usuarios.FiltroPrimeroValor("FechaAprobacion", string.Format("CveUsuario = {0}", CveUsuario));
+                Usuario.FCCheckBox("ChkAprobar").Checked = FechaAprobacion != "" || (UsuarioActual.CveUsuario == CveUsuarioResponsable && CveUsuario == UsuarioActual.CveUsuario);
+            }
+        }
+    }
+
+    protected void GvUsuarios_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            LinkButton LkbSubirPropuestaAux = e.Row.FCLinkButton("LkbSubirPropuesta");
+            ScriptManager.GetCurrent(this).RegisterPostBackControl(LkbSubirPropuestaAux);
+            LinkButton LkbDescargarPropuestaAux = e.Row.FCLinkButton("LkbDescargarPropuesta");
+            ScriptManager.GetCurrent(this).RegisterPostBackControl(LkbDescargarPropuestaAux);
+        }
+    }
+
     private void CargarSubCategoria()
     {
+        DdlSubCategoria.Items.Clear();
+        int CveCategoria = DdlCategoria.SelectedValue.ToEntero();
         ClsOIEventos ObjOI = new ClsOIEventos();
-        if (ObjOI.GetDocumentoSubCategoria())
+        if (ObjOI.GetDocumentoSubCategoria(CveCategoria: CveCategoria))
         {
             DdlSubCategoria.DataSource = ObjOI.DtResultados;
             DdlSubCategoria.DataBind();
@@ -114,7 +201,10 @@ public partial class OI_DocumentoDetalle : ClsPaginas
             {
                 DataRow Documento = ObjOI.DtResultados.Rows[0];
 
+                CveUsuarioResponsable = Documento["CveUsuario"].ToString().ToEntero();
                 TxtDescripcion.Text = Documento["Descripcion"].ToString();
+                DdlCategoria.SelectedValue = Documento["CveCategoria"].ToString();
+                CargarSubCategoria();
                 DdlSubCategoria.SelectedValue = Documento["CveSubCategoria"].ToString();
                 DdlEstatus.SelectedValue = Documento["CveEstatus"].ToString();
                 TxtVersion.Text = Documento["Version"].ToString();
@@ -122,13 +212,8 @@ public partial class OI_DocumentoDetalle : ClsPaginas
                 TxtObs.InnerText = Documento["Observacion"].ToString();
 
                 ArchivoAdjuntoNombre = Documento["ArchivoFisico"].ToString();
-                if (ArchivoAdjuntoNombre.Contains("_"))
-                {
-                    string[] ArchivoAux = Documento["ArchivoFisico"].ToString().Split('_');
-                    string ArchivoAdjunto = ArchivoAux[1];
-                    LkbDescargarArchivo.Text = ArchivoAdjunto;
-                    DivDescargarArchivo.Visible = true;
-                }
+                LkbDescargarArchivo.Text = ArchivoAdjuntoNombre;
+                DivDescargarArchivo.Visible = true;
             }
         }
         ObjOI.Dispose();
@@ -152,28 +237,102 @@ public partial class OI_DocumentoDetalle : ClsPaginas
 
     private void ConfiguracionActualizar()
     {
-        LkbGuardar.Text = "Actualizar";
+        LkbGuardar.Visible = false;
+        LkbActualizar.Visible = true;
+        LkbPublicar.Visible = true;
+        GvUsuarios.Columns[1].Visible = false;
+        GvUsuarios.Columns[2].Visible = true;
+        GvUsuarios.Columns[3].Visible = true;
+    }
+
+    private void ConfigurarGridUsuariosParticipantes()
+    {
+        int CveUsuarioActual = UsuarioActual.CveUsuario;
+        GridViewRowCollection Usuarios = GvUsuarios.Rows;
+        foreach (GridViewRow Usuario in Usuarios)
+        {
+            int CveUsuarioIteracion = Usuario.DataKey("CveUsuario").ToEntero();
+            if (CveUsuarioIteracion != CveUsuarioActual)
+            {
+                Usuario.FCCheckBox("ChkAprobar").Enabled = false;
+                Usuario.FCLinkButton("LkbSubirPropuesta").Visible = false;
+            }
+        }
+    }
+
+    private void ConfigurarCamposDetalleSegunUsuario()
+    {
+        if (UsuarioActual.CveUsuario != CveUsuarioResponsable)
+        {
+            TxtDescripcion.Enabled = false;
+            DdlSubCategoria.Enabled = false;
+            DdlEstatus.Enabled = false;
+            TxtVersion.Enabled = false;
+            TxtResponsable.Enabled = false;
+            TxtObs.Disabled = true;
+            DivFileDropZone.Visible = false;
+            LkbActualizar.Visible = false;
+        }
+    }
+
+    private void ConfigurarSegunEstatus()
+    {
+        bool MostrarSegunAprobado = (DdlEstatus.SelectedValue == "2");
+        DivBotonesAcciones.Visible = !MostrarSegunAprobado;
+        UpAgregar.Visible = MostrarSegunAprobado;
+    }
+
+    private void CargarCategorias()
+    {
+        ClsOIEventos ObjOI = new ClsOIEventos();
+        if (ObjOI.GetDocumentoCategoria())
+        {
+            DdlCategoria.DataSource = ObjOI.DtResultados;
+        }
+        ObjOI.Dispose();
+        DdlCategoria.DataBind();
+        DdlCategoria.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        DdlSubCategoria.Items.Insert(0, new ListItem("Seleccione", "-1"));
+    }
+
+    protected void DdlCategoria_SelectedIndexChanged(object sender, EventArgs e)
+    {
+        if (DdlCategoria.SelectedValue != "-1")
+        {
+            CargarSubCategoria();
+        }
+    }
+
+    private void EstatusMostrar(bool Mostrar)
+    {
+        DivEstatus.Visible = Mostrar;
+        brEstatus.Visible = Mostrar;
+        DivEstatusInicial.Visible = !Mostrar;
+        brEstatusInicial.Visible = !Mostrar;
     }
 
     private void Cargar()
     {
-        CargarUsuarios();
-        CargarSubCategoria();
+        CargarCategorias();
         CargarResponsable();
         CargarCveDocumento();
+        CargarUsuarios();
         if (this.CveDocumento > 0)
         {
+            EstatusMostrar(true);
             CargarDocumentoYaExistente();
+            CargarUsuariosParticipantes();
             CargarUsuariosAutorizo();
             ConfiguracionActualizar();
+            ConfigurarGridUsuariosParticipantes();
+            ConfigurarCamposDetalleSegunUsuario();
             CargarMensajeNuevoEditado();
         }
+        ConfigurarSegunEstatus();
     }
     #endregion
 
     #region "GENERAR DOCUMENTO"
-
-
     protected void LblGuardar_Click(object sender, EventArgs e)
     {
         ClsOIEventos ObjOI = new ClsOIEventos();
@@ -191,7 +350,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
         if (!TieneError) { CorreosNotificacion = GuardarUsuariosQueAutorizan(CveDocumento, RutaArchivo, ref ObjOI, ref TieneError); }//asignamos a los usuarios que participaran en aprovar este documento
         if (!TieneError)
         {
-            ArchivoNotifiacion = GenerarArchivoByte(RutaArchivo);
+            ArchivoNotifiacion = GenerarArchivoByte(CveDocumento, RutaArchivo);
             NotificarPorCorreo(CorreosNotificacion, RutaArchivo, ArchivoNotifiacion);
         }
 
@@ -199,7 +358,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
         if (!TieneError)
         {
             ObjOI.Commit();
-            string ParamMensaje = LkbGuardar.Text == "Guardar" ? "Nuevo" : "Editado";//Esto indica la acción de usuario la cual se mostrará como alert al cargar la página
+            string ParamMensaje = LkbGuardar.Text == "Guardar" ? "Nuevo" : "NuevaVersion";//Esto indica la acción de usuario la cual se mostrará como alert al cargar la página
             Response.Redirect(string.Format("/OI/DocumentoDetalle.aspx?CveDocumento={0}&Mensaje={1}", CveDocumento, ParamMensaje));
         }
         else
@@ -215,7 +374,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
     {
         int CveDocumentoPadre = this.CveDocumento > 0 ? this.CveDocumento : -1; //Asociamos el nuevo insert con un CveDocumento ya generado en caso de ser una nueva versión del documento
 
-        int CveDocumento = ObjOI.AddDocumento(DdlSubCategoria.SelectedValue.ToEntero(), TxtDescripcion.Text, TxtObs.InnerText, TxtVersion.Text, DdlEstatus.SelectedValue.ToEntero(),
+        int CveDocumento = ObjOI.AddDocumento(DdlSubCategoria.SelectedValue.ToEntero(), TxtDescripcion.Text, TxtObs.InnerText, TxtVersion.Text, 1,
                                               "", TxtResponsable.Text, CveDocumentoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
         if (!(CveDocumento > 0))
         {
@@ -254,7 +413,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
             if (GvRow.FCCheckBox("ChkUnir").Checked && !TieneError)
             {
                 int CveUsuario = GvRow.DataKey("CveUsuario").ToEntero();
-                if (!ObjOI.AddDocumentoAutorizacion(CveDocumento, CveUsuario, RutaArchivo))
+                if (!ObjOI.AddDocumentoAutorizacion(CveDocumento, CveUsuario, ""))
                 {
                     TieneError = true;
                     this.ErrorMensaje = "Hubo un error al asignar los usuarios a este documento";
@@ -271,32 +430,70 @@ public partial class OI_DocumentoDetalle : ClsPaginas
     }
     #endregion
 
+    #region "ACTUALIZAR DOCUMENTO"
+    protected void LbkActualizar_Click(object sender, EventArgs e)
+    {
+        string Archivo = ActualizarArchivoEnDirectorio();
+        ActualizarDocumentoYaExistente(Archivo);
+        Cargar();
+        UpCliente.Update();
+        Alert("Documento actualizado");
+    }
+
+    private string ActualizarArchivoEnDirectorio()
+    {
+        string ArchivoFisicoActualizado = ArchivoAdjuntoNombre;
+        if (TxtDocumentoFile.Text != "[]")
+        {
+            string RutaArchivo = string.Format(@"{0}DocumentosRepo\{1}\{2}", UsuarioActual.Empresa.Ruta, this.CveDocumento, ArchivoAdjuntoNombre);
+            if (File.Exists(RutaArchivo))
+            {
+                File.Delete(RutaArchivo);
+            }
+
+            ArchivoFisicoActualizado = GuardarArchivo(this.CveDocumento);
+        }
+        return ArchivoFisicoActualizado;
+    }
+
+    private void ActualizarDocumentoYaExistente(string ArchivoFisico)
+    {
+        ClsOIEventos ObjOI = new ClsOIEventos();
+        if (!ObjOI.UpdateDocumento(this.CveDocumento, DdlSubCategoria.SelectedValue.ToEntero(), TxtDescripcion.Text, TxtObs.InnerText, TxtVersion.Text, DdlEstatus.SelectedValue.ToEntero(),
+                                    ArchivoFisico, UsuarioActual.Nombre, ModExtensiones.MinFecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+        {
+            Alert("Error al actualizar", ModExtensiones.TipoMensaje.MsgError);
+        }
+        ObjOI.Dispose();
+    }
+    #endregion
+
     #region "ARCHIVO ADJUNTO"
 
     private string GuardarArchivo(int CveDocumento)
     {
         string RutaArchivo = "-1";
         List<Archivo> Filesgral = TxtDocumentoFile.getfiles().Archivos;
+
+        //Si no existe la carpeta donde se guardan se crea
+        if (!Directory.Exists(UsuarioActual.Empresa.Ruta + @"\DocumentosRepo\" + CveDocumento))
+        {
+            Directory.CreateDirectory(UsuarioActual.Empresa.Ruta + @"\DocumentosRepo\" + CveDocumento);
+        }
+
         if (TxtDocumentoFile.Text != "[]")
         {
             foreach (Archivo fileItem in Filesgral)
             {
                 try
                 {
-                    string Version = TxtVersion.Text;
                     string NombreArchivo = fileItem.filenameO;
                     //Preparamos la ruta donde moveremos el archivo cargado
-                    string NombreArchivoGuardado = string.Format("{0}_{1}", CveDocumento, NombreArchivo);
-                    string RutaDestino = UsuarioActual.Empresa.Ruta + @"DocumentosRepo\" + NombreArchivoGuardado;
+                    string RutaDestino = string.Format(@"{0}DocumentosRepo\{1}\{2}", UsuarioActual.Empresa.Ruta, CveDocumento, NombreArchivo);
 
-                    //Si no existe la carpeta donde se guardan se crea
-                    if (!Directory.Exists(UsuarioActual.Empresa.Ruta + @"\DocumentosRepo"))
-                    {
-                        Directory.CreateDirectory(UsuarioActual.Empresa.Ruta + @"\DocumentosRepo");
-                    }
                     //Movemos el archivo de la carpeta temporal hacia la carpeta de la empresa
                     System.IO.File.Move(fileItem.FileUrl, RutaDestino);
-                    RutaArchivo = NombreArchivoGuardado;
+                    RutaArchivo = NombreArchivo;
                 }
                 catch (Exception e)
                 {
@@ -305,12 +502,36 @@ public partial class OI_DocumentoDetalle : ClsPaginas
                 }
             }
         }
+        else if (this.CveDocumento > 0)
+        {
+            try
+            {
+                if (ArchivoAdjuntoNombre != "")
+                {
+                    string RutaOrigen = string.Format(@"{0}DocumentosRepo\{1}\{2}", UsuarioActual.Empresa.Ruta, this.CveDocumento, ArchivoAdjuntoNombre);
+                    string RutaDestino = string.Format(@"{0}DocumentosRepo\{1}\{2}", UsuarioActual.Empresa.Ruta, CveDocumento, ArchivoAdjuntoNombre);
+
+                    System.IO.File.Move(RutaOrigen, RutaDestino);
+                    RutaArchivo = ArchivoAdjuntoNombre;
+                }
+                else
+                {
+                    RutaArchivo = "";
+                }
+            }
+            catch (Exception e)
+            {
+                Alert(e.Message);
+                RutaArchivo = "Error";
+            }
+        }
+
         return RutaArchivo;
     }
 
     protected void LkbDescargarArchivo_Click(object sender, EventArgs e)
     {
-        string Ruta = string.Format("{0}Empresas/{1}/DocumentosRepo/{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, ArchivoAdjuntoNombre);
+        string Ruta = string.Format("{0}Empresas/{1}/DocumentosRepo/{2}/{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, this.CveDocumento, ArchivoAdjuntoNombre);
         byte[] archivoBytes = File.ReadAllBytes(Ruta);
 
         HttpContext.Current.Response.Clear();
@@ -357,9 +578,9 @@ public partial class OI_DocumentoDetalle : ClsPaginas
         }
     }
 
-    private byte[] GenerarArchivoByte(string NombreArchivo)
+    private byte[] GenerarArchivoByte(int CveDocumento, string NombreArchivo)
     {
-        string ArchivoEnviar = string.Format(@"{0}DocumentosRepo\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo);
+        string ArchivoEnviar = string.Format(@"{0}DocumentosRepo\{1}\{2}", UsuarioActual.Empresa.Ruta, CveDocumento, NombreArchivo);
         if (File.Exists(ArchivoEnviar))
         {
             System.IO.FileStream fs = System.IO.File.Open(ArchivoEnviar, System.IO.FileMode.Open, System.IO.FileAccess.Read);
@@ -376,4 +597,180 @@ public partial class OI_DocumentoDetalle : ClsPaginas
     }
     #endregion
 
+    #region "PROPUESTAS DE USUARIOS"
+    private DataRow GetUsuarioParticipante(int CveUsuario)
+    {
+        DataRow UsuarioRetorno = null;
+        ClsOIEventos ObjOI = new ClsOIEventos();
+        if (ObjOI.GetDocumentoAutorizacion(this.CveDocumento))
+        {
+            UsuarioRetorno = ObjOI.DtResultados.FiltroPrimero(string.Format("CveUsuario = {0}", CveUsuario));
+        }
+        ObjOI.Dispose();
+        return UsuarioRetorno;
+    }
+
+    protected void LkbSubirPropuesta_Click(object sender, EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int CveUsuarioSeleccionado = GvRow.DataKey("CveUsuario").ToEntero();
+        DataRow UsuarioSeleccionado = GetUsuarioParticipante(CveUsuarioSeleccionado);
+        this.CveUsuarioSeleccionado = CveUsuarioSeleccionado;
+        this.CveAsignacion = UsuarioSeleccionado["CveAutorizacion"].ToString().ToEntero();
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarPropuesta"));
+    }
+
+    protected void LkbDescargarPropuesta_Click(object sender, EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int CveUsuario = GvRow.DataKey("CveUsuario").ToEntero();
+        DataRow UsuarioSeleccionado = GetUsuarioParticipante(CveUsuario);
+        string Propuesta = UsuarioSeleccionado["Adjunto"] == null ? "" : UsuarioSeleccionado["Adjunto"].ToString();
+        string Ruta = string.Format("{0}Empresas/{1}/DocumentosRepo/{2}/{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, this.CveDocumento, Propuesta);
+        if (File.Exists(Ruta))
+        {
+            byte[] archivoBytes = File.ReadAllBytes(Ruta);
+
+            HttpContext.Current.Response.Clear();
+            HttpContext.Current.Response.ClearContent();
+            HttpContext.Current.Response.ContentType = "application/octet-stream";
+            HttpContext.Current.Response.AddHeader("Content-Disposition", String.Format("attachment;filename={0}", Propuesta));
+            HttpContext.Current.Response.AddHeader("Content-Length", archivoBytes.Length.ToString());
+            HttpContext.Current.Response.OutputStream.Write(archivoBytes, 0, archivoBytes.Length);
+            HttpContext.Current.Response.End();
+        }
+        else
+        {
+            Alert("El Usuario no ha realizado una propuesta", ModExtensiones.TipoMensaje.MsgAdvertencia);
+        }
+    }
+
+    protected void BtnAgregarPropuesta_Click(object sender, EventArgs e)
+    {
+
+        string Archivo = SubirPropuestaEnDirectorio(this.CveUsuarioSeleccionado);
+        ActualizarUsuario(this.CveAsignacion, Archivo);
+    }
+
+    private string SubirPropuestaEnDirectorio(int CveUsuario)
+    {
+        List<Archivo> Filesgral = TxtArchivoPropuesta.getfiles().Archivos;
+        string fileNameReturn = "-1";
+        if (TxtArchivoPropuesta.Text != "[]")
+        {
+            foreach (Archivo fileItem in Filesgral)
+            {
+                try
+                {
+                    string NombreArchivo = fileItem.filenameO;
+                    fileNameReturn = string.Format("{0}_{1}", CveUsuario, NombreArchivo);
+                    string RutaDestino = string.Format(@"{0}DocumentosRepo\{1}\{2}_{3}", UsuarioActual.Empresa.Ruta, this.CveDocumento, CveUsuario, NombreArchivo);
+                    System.IO.File.Move(fileItem.FileUrl, RutaDestino);
+                }
+                catch (Exception ex)
+                {
+                    Alert(ex.Message);
+                }
+            }
+        }
+        return fileNameReturn;
+    }
+
+    private void ActualizarUsuario(int CveAutorizacion, string Archivo)
+    {
+        ClsOIEventos ObjOI = new ClsOIEventos();
+        if (!ObjOI.UpdateDocumentoAutorizacion(CveAutorizacion, this.CveDocumento, TxtComentarios.InnerText, Archivo, ModExtensiones.MinFecha))
+        {
+            Alert("Error al actualizar el archivo subido propuesto por el usuario");
+        }
+        ObjOI.Dispose();
+    }
+    #endregion
+
+    #region "APROBACIÓN DEL DOCUMENTO"
+    protected void ChkAprobar_Checked(object sender, EventArgs e)
+    {
+        CheckBox SelectedCheckBox = (CheckBox)sender;
+        GridViewRow UsuarioAux = (GridViewRow)((Control)sender).Parent.Parent;
+        int CveUsuario = UsuarioAux.DataKey("CveUsuario").ToEntero();
+        DataRow Usuario = GetUsuarioParticipante(CveUsuario);
+
+        AprobacionDeUsuario(Usuario, SelectedCheckBox.Checked);
+    }
+
+    private void AprobacionDeUsuario(DataRow Usuario, bool Autorizar)
+    {
+        int CveAutorizacion = Usuario["CveAutorizacion"].ToString().ToEntero();
+        ClsOIEventos ObjOI = new ClsOIEventos();
+        if (Autorizar)
+        {
+            if (ObjOI.UpdateDocumentoAutorizacion(CveAutorizacion, -1, "-1", "-1", DateTime.Now))
+            {
+                Alert("Haz aprobado la versión actual del Documento");
+            }
+        }
+        else
+        {
+            if (ObjOI.DesaprobarDocumentoAutorizacion(CveAutorizacion))
+            {
+                Alert("Haz desaprobado la versión actual del Documento");
+            }
+        }
+        ObjOI.Dispose();
+    }
+
+    protected void LkbPublicar_Click(object sender, EventArgs e)
+    {
+        GridViewRowCollection Usuarios = GvUsuarios.Rows;
+        bool Aprobado = true;
+        foreach (GridViewRow Usuario in Usuarios)
+        {
+            if (!Usuario.FCCheckBox("ChkAprobar").Checked)
+            {
+                Aprobado = false;
+                break;
+            }
+        }
+
+        if (Aprobado)
+        {
+            ClsOIEventos ObjOI = new ClsOIEventos();
+            if (ObjOI.UpdateDocumento(this.CveDocumento, DdlSubCategoria.SelectedValue.ToEntero(), TxtDescripcion.Text, TxtObs.InnerText, TxtVersion.Text, 2, "-1", TxtResponsable.Text,
+                                      DateTime.Now, -1, -1, UsuarioActual.CveEmpresa))
+            {
+                Alert("Documento publicado");
+            }
+            ObjOI.Dispose();
+        }
+        else
+        {
+            Alert("Los usuarios participantes aún no autorizan este Documento");
+        }
+        Response.Redirect(string.Format("/OI/DocumentoDetalle.aspx?CveDocumento={0}&Mensaje={1}", this.CveDocumento, "Publicado"));
+    }
+    #endregion
+
+    #region "NUEVA VERSION"
+    protected void LkbNuevaVersion_Click(object sender, EventArgs e)
+    {
+        CargarUsuarios();
+        LkbGuardar.Text = "Crear Nueva Versión";
+        DivBotonesAcciones.Visible = true;
+        LkbActualizar.Visible = false;
+        LkbPublicar.Visible = false;
+        LkbGuardar.Visible = true;
+        GvUsuarios.Columns[1].Visible = true;
+        GvUsuarios.Columns[2].Visible = false;
+        GvUsuarios.Columns[3].Visible = false;
+        EstatusMostrar(false);
+        UpCliente.Update();
+    }
+    #endregion
+
+    protected void LbPruebas_Click(object sender,EventArgs e)
+    {
+        Cargar();
+        UpCliente.Update();
+        Alert("Documento actualizado");
+    }
 }
\ No newline at end of file
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 90183a6fb..c99cb1fd4 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10953,7 +10953,7 @@ Partial Class Ventas
                                         If ObjFactura.TipoDocto.Contiene("Egs") Then
                                             IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
                                         Else
-                                            IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
+                                            IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaDescuento", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
                                         End If
 
                                         If importeMovimiento <> 0 Then