diff --git a/Acumuladores/RepRecolecciones.aspx b/Acumuladores/RepRecolecciones.aspx
index fe1de6735..703cefdb5 100644
--- a/Acumuladores/RepRecolecciones.aspx
+++ b/Acumuladores/RepRecolecciones.aspx
@@ -180,6 +180,7 @@
                                <asp:Literal runat="server" ID="LblProductosCargados">P</asp:Literal>
                                <asp:HiddenField ID="HdnPSRecoleccion" runat="server" />
                                <asp:HiddenField ID="HdnCantidadRecoleccion" runat="server" />
+                               <asp:HiddenField ID="HdnCveEntregaAlmacen" runat="server" />
                             </div>
                         </div>
                      <hr />
diff --git a/Acumuladores/RepRecolecciones.aspx.vb b/Acumuladores/RepRecolecciones.aspx.vb
index 2cc61fdc3..87b5c5e97 100644
--- a/Acumuladores/RepRecolecciones.aspx.vb
+++ b/Acumuladores/RepRecolecciones.aspx.vb
@@ -1,8 +1,5 @@
 Imports System.Data
-Imports CrystalDecisions.Shared.Json
 Imports Extensiones
-Imports Modelos
-
 
 Partial Class Acumuladores_RepRecolecciones
     Inherits ClsPaginas
@@ -73,7 +70,7 @@ Partial Class Acumuladores_RepRecolecciones
     Private Sub CargaDatos()
 
         Dim ObjGeneral As New ClsGenerales
-        If (ObjGeneral.GetInvEntregaAlmacenRuta(-1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 2, -1)) Then
+        If ObjGeneral.GetInvEntregaAlmacenRuta(-1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 2, -1) Then
             GvR.DataSource = ObjGeneral.DtResultados
         End If
         ObjGeneral.Dispose()
@@ -226,9 +223,9 @@ Partial Class Acumuladores_RepRecolecciones
         Dim ErrorMovInv As Boolean = False
         Dim Fecha As DateTime = NowADS()
         Dim Concepto As String = "Traspaso Recolección"
-        Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 26, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
+        Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 26, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveEntregaAlmacen:=CveEntregaAlmacen)
         Dim FolioSalida As Integer = ObjInventario.Folio
-        Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalida)
+        Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalida, CveEntregaAlmacen:=CveEntregaAlmacen)
         Dim CveUM As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=HdnPSRecoleccion.Value.ToEntero).FiltroPrimeroValor("CveUnidadMedida", "").ToEntero
         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, HdnCantidadRecoleccion.Value.ToDecimal, CveUM, HdnPSRecoleccion.Value.ToEntero, 0) Then
             ErrorMovInv = True
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 9f2ba1de5..433116e74 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -4061,12 +4061,11 @@ Public Class ClsGenerales
     End Function
 
 
-    Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1) As Boolean
+    Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1, Optional Tipo As String = "-1") As Boolean
 
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2")
-
         With SqlAdapter.SelectCommand.Parameters
 
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
@@ -4077,6 +4076,7 @@ Public Class ClsGenerales
             .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
             .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Tipo", SqlDbType.VarChar).Value = Tipo
         End With
 
         Try
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 5b45ff77e..ec489f0a4 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -989,9 +989,8 @@ Public Class ClsInventarios
                                   CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CveOS As Integer = -1, Optional CvePersonal As Integer = -1, Optional IDPoliza As Integer = -1, Optional CveUsuarioResponsable As Integer = -1,
                                   Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "",
                                   Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Decimal = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1,
-                                  Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Decimal = -1, Optional CveChofer As Integer = -1, Optional CveCamion As Integer = -1, Optional Placa As String = "",
-                                  Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "",
-                                  Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1) As Integer
+                                  Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Decimal = -1,
+                                  Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1, Optional CveEntregaAlmacen As Integer = -1) As Integer
 
         Dim Retorno As Integer = -1
 
@@ -1037,21 +1036,21 @@ Public Class ClsInventarios
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
             .Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato
             .Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto
-            .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
-            .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
-            .Add("@Placa", SqlDbType.VarChar).Value = Placa
-            .Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega
-            .Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad
+            '.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
+            '.Add("@CveCamion", SqlDbType.Int).Value = CveCamion
+            '.Add("@Placa", SqlDbType.VarChar).Value = Placa
+            '.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega
+            '.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad
             .Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga
             .Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio
-            .Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion
-            .Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
-            .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
-            .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
-            .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
+            '.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion
+            '.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
+            '.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+            '.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
+            '.Add("@Licencia", SqlDbType.VarChar).Value = Licencia
             .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
             .Add("@CveOP", SqlDbType.Int).Value = CveOP
-
+            .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
             .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
         End With
 
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 978a336d6..1636f8159 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -1,5 +1,4 @@
 <%@ Page Title="Compras - Registro de Facturas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" ValidateRequest="false" CodeFile="Compras.aspx.vb" Inherits="Compras_Compras" EnableEventValidation="false" %>
-
  
 <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
     <asp:UpdatePanel ID="UppAddAcciones" runat="server">
@@ -204,14 +203,14 @@
                         <div class="portlet-body form-horizontal form-row-sepe formnombottom">
                             <div class="row">
                                 <div class="form-group ">
-                                    <%--             <asp:DropDownList ID="ddlCargoPrePoliza" CssClass="form-control input-sm whitoutcol linewhitsize  comprasdfleft" runat="server" Width="70px" Visible="false">
+                                    <%--             <asp:DropDownList ID="ddlCargoPrePoliza" CssClass="form-control input-sm whitoutcol  comprasdfleft" runat="server" Width="70px" Visible="false">
                                         <asp:ListItem Text="Proveedor" Value="1" Selected="True"></asp:ListItem>
                                         <asp:ListItem Text="Deudor" Value="2"></asp:ListItem>
                                         <asp:ListItem Text="Acreedor" Value="3"></asp:ListItem>
                                     </asp:DropDownList>--%>
-                                    <asp:LinkButton ID="LblProveedor" runat="server" Visible="true" class="whitoutcol linewhitsize  comprasdfleft" Style="text-decoration: none">Proveedor:</asp:LinkButton>
-                                    <%--<asp:Label ID="LblProveedor" runat="server" Visible="true" class="whitoutcol linewhitsize  comprasdfleft">Proveedor:</asp:Label>--%>
-                                    <%--                                    <asp:Label ID="lblProveedor" runat="server" Visible="true" class="whitoutcol linewhitsize  comprasdfleft">Proveedor:</asp:Label>--%>
+                                    <asp:LinkButton ID="LblProveedor" runat="server" Visible="true" class="whitoutcol  comprasdfleft" Style="text-decoration: none">Proveedor:</asp:LinkButton>
+                                    <%--<asp:Label ID="LblProveedor" runat="server" Visible="true" class="whitoutcol  comprasdfleft">Proveedor:</asp:Label>--%>
+                                    <%--                                    <asp:Label ID="lblProveedor" runat="server" Visible="true" class="whitoutcol  comprasdfleft">Proveedor:</asp:Label>--%>
                                     <div class="whitoutcol whitoutcol  ">
                                         <asp:HyperLink ID="HplProveedor" CssClass="Texto" runat="server" Visible="false"></asp:HyperLink>
                                         <asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm" onclick="CargaProveedores();" runat="server" CausesValidation="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="280px"></asp:DropDownList>
@@ -223,7 +222,7 @@
                                     </div>
                                 </div>
                                 <div class="form-group whitoutcol" style="width: 280px;">
-                                    <span class="whitoutcol linewhitsize comprasdfleft">Tipo:</span>
+                                    <span class="whitoutcol comprasdfleft">Tipo:</span>
                                     <div class="whitoutcol whitoutcol comprasdfleftvar">
                                         <asp:DropDownList ID="DdlTipoComprobante" runat="server" AutoPostBack="true" CssClass="form-control input-sm input-small" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged">
                                             <asp:ListItem Selected="True" Text="Factura" Value="Fac"></asp:ListItem>
@@ -318,7 +317,7 @@
                                     </table>
                                      
                                 <div class="form-group whitoutcol" style="width: 280px;">
-                                    <span class="whitoutcol linewhitsize comprasdfleft">Descripción: </span>
+                                    <span class="whitoutcol comprasdfleft">Descripción: </span>
                                     <div class="whitoutcol whitoutcol comprasdfleftvar">
                                         <asp:TextBox ID="TxtDescripcion" runat="server" CausesValidation="true" MaxLength="200" TextMode="MultiLine" ValidationGroup="GrpGuardar" Width="280px"></asp:TextBox>
                                         <asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -326,14 +325,14 @@
                                     </div>
                                 </div>
                                 <div class="form-group whitoutcol" style="width: 280px;" id="TrFacturaRefacturar" visible="false" runat="server">
-                                    <span class="whitoutcol linewhitsize comprasdfleft">Refacturación: </span>
+                                    <span class="whitoutcol comprasdfleft">Refacturación: </span>
                                     <div class="whitoutcol whitoutcol comprasdfleftvar">
                                         <asp:Literal Text="" ID="LtFacturaRefacturar" runat="server" />
                                         <asp:HiddenField ID="HdnRefacturacionCveCompra" runat="server" />
                                     </div>
                                 </div>
                                 <div class="form-group whitoutcol" style="width: 400px;" id="DivEsNoDeducible" visible="false" runat="server">
-                                    <span class="whitoutcol linewhitsize comprasdfleft" style="width: 120px;">¿Es No Deducible?</span>
+                                    <span class="whitoutcol comprasdfleft" style="width: 120px;">¿Es No Deducible?</span>
                                     <div class="whitoutcol whitoutcol comprasdfleftvar">
                                         <asp:CheckBox ID="ChkEsNoDeducible" runat="server" OnCheckedChanged="ChkEsNoDeducible_CheckedChanged1" AutoPostBack="true" />
                                     </div>
@@ -364,26 +363,26 @@
                         </div>
                         <div class="portlet-body">
                             <div class="form-group proveedoreespes">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">RFC:</span>
+                                <span class="whitoutcol  proveedoreespes">RFC:</span>
                                 <div class="whitoutcol whitoutcol  ">
                                     <asp:Label ID="LblRFC" runat="server" Text="RFC"></asp:Label>
                                     <asp:HiddenField ID="HdnProveedorIVA" ClientIDMode="Static" Value="0" runat="server" />
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">Días de Crédito:</span>
+                                <span class="whitoutcol  proveedoreespes">Días de Crédito:</span>
                                 <div class="whitoutcol whitoutcol  ">
                                     <asp:Label ID="LblDiasCredito" runat="server" Text="0" ClientIDMode="Static"></asp:Label>
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">Límite de Crédito:</span>
+                                <span class="whitoutcol  proveedoreespes">Límite de Crédito:</span>
                                 <div class="whitoutcol whitoutcol  ">
                                     <asp:Label ID="LblLimiteCredito" runat="server" Text="0"></asp:Label>
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">Crédito Disponible:</span>
+                                <span class="whitoutcol  proveedoreespes">Crédito Disponible:</span>
                                 <div class="whitoutcol whitoutcol  ">
                                     <asp:Label ID="LblCreditoDisponible" runat="server" Text="0"></asp:Label>
                                 </div>
@@ -413,7 +412,7 @@
                         <div class="portlet-body">
                             <div runat="server" id="RowProveedorSucursal" visible="false">
                                 <div class="form-group proveedoreespes">
-                                    <span class="whitoutcol linewhitsize  proveedoreespes">Sucursal: </span>
+                                    <span class="whitoutcol  proveedoreespes">Sucursal: </span>
                                     <div class="whitoutcol whitoutcol">
                                         <asp:DropDownList ID="DdlProveedorSucursal" CssClass=" select2me" AppendDataBoundItems="true" DataValueField="CveProveedorSucursal" DataTextField="ProveedorSucursal" runat="server" Width="185px">
                                         </asp:DropDownList>
@@ -422,7 +421,7 @@
                             </div>
 
                             <div class="form-group proveedoreespes">
-                                <span class="whitoutcol linewhitsize  proveedoreespes" style="height: 100%; vertical-align: middle;">Estatus:</span>
+                                <span class="whitoutcol  proveedoreespes" style="height: 100%; vertical-align: middle;">Estatus:</span>
                                 <div class="whitoutcol whitoutcol" style="width: 180px;">
                                     <asp:Label ID="LblCompraEstatus" runat="server" Text="Recibida"></asp:Label><br />
                                     <asp:CheckBox CssClass="md-checksd" ID="ChkProgramarPago" runat="server" Text="Autorizada" Visible="False" />
@@ -433,25 +432,21 @@
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes" id="trImporte" runat="server" visible="False">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">Importe: </span>
+                                <span class="whitoutcol  proveedoreespes">Importe: </span>
                                 <div class="whitoutcol whitoutcol">
-                                    <asp:HyperLink ID="HplImporte" CssClass="Texto thickbox" runat="server"></asp:HyperLink></td>
-                               
-                               
+                                    <asp:HyperLink ID="HplImporte" CssClass="Texto thickbox" runat="server"></asp:HyperLink>
                                
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes" id="trSaldo" runat="server" visible="False">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">Saldo: </span>
+                                <span class="whitoutcol  proveedoreespes">Saldo: </span>
                                 <div class="whitoutcol whitoutcol">
-                                    <asp:HyperLink ID="HplSaldoAuxiliar" CssClass="Texto thickbox" runat="server"></asp:HyperLink></td>
-                               
-                               
+                                    <asp:HyperLink ID="HplSaldoAuxiliar" CssClass="Texto thickbox" runat="server"></asp:HyperLink>
                                
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes" id="trContabilizada" runat="server" visible="true">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">Contabilizada: </span>
+                                <span class="whitoutcol  proveedoreespes">Contabilizada: </span>
                                 <div class="whitoutcol whitoutcol">
                                     <asp:HyperLink ID="HplCompraContabilizada" runat="server" Text="No"></asp:HyperLink>
                                     <%--<asp:HyperLink ID="HplPolizaCancelación" runat="server" Visible="false" Text="Cancelación"></asp:HyperLink>--%>
@@ -460,13 +455,13 @@
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes" runat="server" id="divTipoFactura" visible="false">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">Tipo Factura: </span>
+                                <span class="whitoutcol  proveedoreespes">Tipo Factura: </span>
                                 <div class="whitoutcol whitoutcol">
                                     <asp:Label ID="LblTipoFact" runat="server" Text="CBB"></asp:Label>
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">Validada  SAT: </span>
+                                <span class="whitoutcol  proveedoreespes">Validada  SAT: </span>
                                 <div class="whitoutcol whitoutcol">
                                     <asp:DropDownList ID="DdlValidadaSAT" CssClass="form-control input-sm" runat="server" Enabled="false" Width="78px">
                                         <asp:ListItem>No</asp:ListItem>
@@ -475,19 +470,19 @@
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">Capturó: </span>
+                                <span class="whitoutcol  proveedoreespes">Capturó: </span>
                                 <div class="whitoutcol whitoutcol">
                                     <asp:Label ID="LblUsuarioCaptura" runat="server"></asp:Label>
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">F. Captura </span>
+                                <span class="whitoutcol  proveedoreespes">F. Captura </span>
                                 <div class="whitoutcol whitoutcol">
                                     <asp:Label ID="LitFechCaptura" runat="server"></asp:Label>
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes">
-                                <span class="whitoutcol linewhitsize proveedoreespes">Tipo Compra:</span>
+                                <span class="whitoutcol proveedoreespes">Tipo Compra:</span>
                                 <div class="whitoutcol whitoutcol ">
 
                                     <asp:DropDownList ID="DdlTipoCompra" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoCompra_SelectedIndexChanged" CssClass="form-control input-sm input-small">
@@ -509,20 +504,20 @@
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes" runat="server" id="divImportacion" visible="false">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">Importación </span>
+                                <span class="whitoutcol  proveedoreespes">Importación </span>
                                 <div class="whitoutcol">
                                     <asp:CheckBox runat="server" ID="chkImportacion"> </asp:CheckBox>
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes" runat="server" id="divCompraImportacion" visible="false">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">
+                                <span class="whitoutcol  proveedoreespes">
                                     <asp:Literal ID="LtlImportacionTexto" runat="server">Importación</asp:Literal>:</span>
                                 <div class="whitoutcol">
                                     <asp:HyperLink runat="server" ID="HplCompraImportacion" CssClass="Texto"> </asp:HyperLink>
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes" runat="server" id="divFolioGarantia" visible="false">
-                                <span class="whitoutcol linewhitsize  proveedoreespes">Folio Garantía </span>
+                                <span class="whitoutcol  proveedoreespes">Folio Garantía </span>
                                 <div class="whitoutcol whitoutcol">
                                     <asp:DropDownList ID="DdlFolioGarantia" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="FolioGarantia" DataValueField="CveFolioGarantia" OnSelectedIndexChanged="DdlFolioGarantia_SelectedIndexChanged" CssClass="form-control input-sm input-small select2me">
                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -530,6 +525,15 @@
                                     <asp:Button ID="BtnFolioGarantiaRestantes" runat="server" Text="Resta" CssClass="default" OnClick="BtnFolioGarantiaRestantes_Click" />
                                 </div>
                             </div>
+                            <div class="form-group proveedoreespes" runat="server" id="divRecoleccion" visible="false">
+                                <span class="whitoutcol  proveedoreespes">Recolección</span>
+                                <div class="whitoutcol whitoutcol">
+                                    <asp:DropDownList ID="DdlRecoleccion" runat="server" AutoPostBack="true" DataTextField="Referencia" DataValueField="CveEntregaAlmacen" OnSelectedIndexChanged="DdlFolioGarantia_SelectedIndexChanged" CssClass="form-control input-sm input-small select2me">
+                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:Button ID="BtnRecolecciónAplicar" runat="server" Text="Aplicar" CssClass="default" OnClick="BtnRecolecciónAplicar_Click" />
+                                </div>
+                            </div>
                         </div>
                     </div>
                 </ContentTemplate>
@@ -917,14 +921,13 @@
                                                 <asp:Button runat="server" ID="btnProrateo" Visible="false" Text="Prorratear" CommandArgument="Compras" CssClass="btn btn-success" />
                                                 <asp:Button runat="server" ID="btnProrateo2" Visible="false" Text="Prorratear Nomina" CommandArgument="Nomina" CssClass="btn btn-success" />
                                                 <asp:Button runat="server" ID="BtnProrateoDeducible" Visible="false" Text="Prorratear 8.5%" CommandArgument="Prorratear Deducible" CssClass="btn btn-success" />                                
-                                        </div>
-                                      
+                                        </div>                                      
                                     </div>
 
                                     <div class="col-md-6 ">
-                                        <div id="dvTotales" runat="server" class="well" style="width: 100%; max-width: 400px; float: right;">
+                                        <div id="dvTotales" runat="server" class="well" style="width: 100%; max-width: 400px; margin-top:0px; padding:0px; float: right;">
                                             <table border="0" rules="none" class="TextTab" width="100%">
-                                                <tr>
+                                                <tr id="trTotalOriginal" runat="server" visible="false">
                                                     <td></td>
                                                     <td></td>
                                                     <td id="tdT0" runat="server" visible="false"><strong>Original</strong></td>
@@ -954,7 +957,7 @@
                                                     <td width="82px">
                                                         <asp:TextBox ID="TxtSubTotal" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="98px"></asp:TextBox>
                                                     </td>
-                                                    <td width="82px" runat="server" id="tdT1" visible="false">
+                                                    <td width="22px" runat="server" id="tdT1" visible="false">
                                                         <asp:Label Text="" ID="LbSubTotalOriginal" runat="server" />
                                                     </td>
                                                     <td>&nbsp;</td>
@@ -975,12 +978,9 @@
                                                     <td runat="server" id="tdT3" visible="false">
                                                         <asp:Label Text="" ID="LbAmortizacionOriginal" runat="server" />
                                                     </td>
-                                                    <td align="right">&nbsp
-                                                        &nbsp;   <i class="fa fa-money font-green" title="Aplicar Amortización" data-toggle="tooltip" data-placement="top" runat="server" id="ImgAnticiposPendientes" visible="False" style="cursor: pointer;"></i>
-                                                    </td>
-                                                    <td align="right">&nbsp
-                                                        &nbsp; 
-                                                        
+                                                    <td align="left">&nbsp
+                                                        &nbsp;   <i class="fa fa-money font-green" title="Aplicar Amortización" data-toggle="tooltip" data-placement="top" runat="server" id="ImgAnticiposPendientes" visible="False" style="cursor: pointer;"></i>                                                     
+                                                        &nbsp;                                                         
                                                         <asp:HyperLink ID="HLAplicaNCFact" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#FacturaNC" runat="server"><i title="Aplicar Notas de Credito" data-toggle="tooltip" class='fa fa-money font-green'></i></asp:HyperLink>
                                                     </td>
                                                 </tr>
@@ -1184,7 +1184,7 @@
                                 </ContentTemplate>
                             </asp:UpdatePanel>
 
-                            <asp:UpdatePanel ID="UpINV" runat="server" UpdateMode="Conditional">
+                            <asp:UpdatePanel ID="UpInv" runat="server" UpdateMode="Conditional">
                                 <ContentTemplate>
                                     <asp:GridView ID="GvInv" runat="server" DataKeyNames="Total,PU,Cantidad,CvePS" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall" Visible="false">
                                         <Columns>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index e92869286..7c77741c2 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1748,6 +1748,7 @@ Partial Class Compras_Compras
                             DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
                             DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6"))
                             DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11"))
+                            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
                         Case "E"
                             DdlTipoComprobante.SelectedValue = "NC"
                             DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac"))
@@ -1760,6 +1761,7 @@ Partial Class Compras_Compras
                             DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
                             DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
                             DdlTipoCompra.Items.Add(New ListItem("Garantía", "12"))
+                            DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
                         Case "T"
                             DdlTipoCompra.Items.Clear()
                             DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
@@ -4344,7 +4346,7 @@ Partial Class Compras_Compras
         UM.Dispose()
         PSS.Dispose()
 
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoCompra.SelectedValue = "12" Then 'cuando es garantía, debe de especificar la salida de almacen
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoCompra.SelectedValue.Contiene("12", "14") Then 'cuando es garantía, debe de especificar la salida de almacen
             If Not GvInv.HeaderRow.FCCheckBox("cbAll").Checked OrElse GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToEntero <= 0 Then
                 Alert("No ha especificado la salida de almacen en la garantía.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
@@ -5279,12 +5281,21 @@ Partial Class Compras_Compras
                                                 Dim indice As Integer = 0
                                                 Dim ImporteConcepto As Decimal = 0
                                                 Dim tCveFolioGarantia As Integer = -1
+                                                Dim tCveEntregaAlmacen As Integer = -1
                                                 Dim CveConceptoMovimiento As Integer = 2
-                                                'apoyo logistico/garantia
-                                                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then 'garantía
-                                                    CveConceptoMovimiento = 13
-                                                    tCveFolioGarantia = DdlFolioGarantia.SelectedValue.ToEntero
+                                                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es empresa acumuladora
+                                                    'apoyo logistico/garantia
+                                                    If DdlTipoCompra.SelectedValue = "12" Then 'garantía
+                                                        CveConceptoMovimiento = 13
+                                                        tCveFolioGarantia = DdlFolioGarantia.SelectedValue.ToEntero
+                                                    End If
+                                                    'recolección
+                                                    If DdlTipoCompra.SelectedValue = "14" Then 'recolección
+                                                        CveConceptoMovimiento = 42
+                                                        tCveEntregaAlmacen = DdlRecoleccion.SelectedValue.ToEntero
+                                                    End If
                                                 End If
+
                                                 If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then
 
                                                     For Each tCveAlmacen As Integer In ListAlmacenes
@@ -5296,7 +5307,7 @@ Partial Class Compras_Compras
                                                         Dim fecha As Date = TxtFecha.Text.ToDate
                                                         If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS()
 
-                                                        CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2")
+                                                        CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2", CveEntregaAlmacen:=tCveEntregaAlmacen)
 
                                                         If CveMovimientoInventario <= 0 Then
                                                             ErrorMovInv = True
@@ -6311,7 +6322,7 @@ Partial Class Compras_Compras
                                                             Dim RegistroCuentaPuente As Boolean = False
                                                             'NC CON PRODUCTOS - CUENTA PUENTE
 
-                                                            If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12") Then
+                                                            If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12", "14") Then
                                                                 RegistraConcepto225 = True
                                                             End If
 
@@ -6332,7 +6343,7 @@ Partial Class Compras_Compras
                                                                     CveMovimientoDevolucion = Devolucion.CveMovimiento
                                                                 End If
                                                                 'cuando es garantía. 
-                                                                If DdlTipoCompra.SelectedValue = "12" Then
+                                                                If DdlTipoCompra.SelectedValue.Contiene("12", "14") Then
                                                                     ConceptoContabilizacionNC = 259
                                                                 End If
 
@@ -10217,7 +10228,7 @@ Partial Class Compras_Compras
             If UsuarioActual.Empresa.UsaAC Then e.Row.FCCheckBox("cbInv").Enabled = False
 
             Dim StrTipo As String = "CveTipoAlmacen IN (1,2,7,14,19)"
-            If DdlTipoCompra.SelectedValue.Contiene("9", "12") Then StrTipo = "CveTipoAlmacen IN (21)"
+            If DdlTipoCompra.SelectedValue.Contiene("9", "12", "14") Then StrTipo = "CveTipoAlmacen IN (21)"
             If EsDevolucionApoyoLogistico Then StrTipo = "CveTipoAlmacen = 27"
             e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrTipo)
 
@@ -15778,6 +15789,7 @@ Partial Class Compras_Compras
     End Sub
     Private Sub OriginalesVisible(Accion As Boolean)
         tdT0.Visible = Accion
+        trTotalOriginal.Visible = Accion
         tdT1.Visible = Accion
         tdT2.Visible = Accion
         tdT3.Visible = Accion
@@ -15796,7 +15808,7 @@ Partial Class Compras_Compras
 
         'VALIDA IMPORTES
         'VALIDA TOTAL CON LOS IMPORTES TOTALES
-        Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Double
+        Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Decimal
 
         Dim Amortizacion As Decimal = 0
         Dim TieneAmortizacion As Boolean = False
@@ -15813,26 +15825,25 @@ Partial Class Compras_Compras
             TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString
         End If
 
-
-        TempSubTotal = TxtSubTotal.Text.ToDouble
+        TempSubTotal = TxtSubTotal.Text.ToDecimal
         SubTotalOriginal = TxtSubTotal.Text.ToDecimal
         SubTotal2Original = TxtSubTotal2.Text.ToDecimal
-        TempDescuentos = TxtDescuento.Text.Trim.ToDouble + Amortizacion
+        TempDescuentos = TxtDescuento.Text.Trim.ToDecimal + Amortizacion
         TempSubTotal2 = TempSubTotal - TempDescuentos
-        TempIVA = TxtIVA.Text.ToDouble
-        TempIEPS = TxtIEPS.Text.ToDouble
-        TempRetIVA = TxtRetIVA.Text.ToDouble
-        TempRetISR = TxtRetISR.Text.ToDouble
-        TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDouble - Amortizacion, 2)
-        DifTotales = TxtTotal.Text.ToDouble - TempTotal
+        TempIVA = TxtIVA.Text.ToDecimal
+        TempIEPS = TxtIEPS.Text.ToDecimal
+        TempRetIVA = TxtRetIVA.Text.ToDecimal
+        TempRetISR = TxtRetISR.Text.ToDecimal
+        TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDecimal - Amortizacion, 2)
+        DifTotales = TxtTotal.Text.ToDecimal - TempTotal
         Dim DiferenciaPermitida As Decimal = 0.6D
 
         If Math.Abs(DifTotales) > DiferenciaPermitida Then
             Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia)
             EsValido = False
         ElseIf DifTotales <> 0 Then
-            TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble + DifTotales).ToString
-            TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + DifTotales).ToString
+            TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDecimal + DifTotales).ToString
+            TxtSubTotal.Text = (TxtSubTotal.Text.ToDecimal + DifTotales).ToString
             SubTotalOriginal = TxtSubTotal.Text.ToDecimal
             SubTotal2Original = TxtSubTotal2.Text.ToDecimal
         End If
@@ -16691,7 +16702,7 @@ Partial Class Compras_Compras
         If DrPS IsNot Nothing Then
             Row("PSCodigo") = If(PSCodigo = "", DrPS("PSCodigo").ToString, PSCodigo)
             Row("CveMetodoInventario") = DrPS("Inv_CveMetodoInventario").ToString.ToEntero
-            If DdlTipoCompra.SelectedValue = "12" AndAlso DrPS("AplicaSerie").ToString = "True" Then
+            If Not DdlTipoCompra.SelectedValue.Contiene("12", "14") AndAlso DrPS("AplicaSerie").ToString = "True" Then
                 Row("CveMetodoInventario") = "1"
             End If
         Else
@@ -18911,23 +18922,40 @@ Partial Class Compras_Compras
 
     Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs)
 
-        If DdlTipoCompra.SelectedValue.ToEntero.Contiene(9, 10, 12) Then 'Al seleccionar apoyo logístico se cargan los amancenes de  devoculcion proveedor para dar entrada
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es emp acumuladora 
+            If DdlTipoCompra.SelectedValue.Contiene("9", "10", "12") Then 'Al seleccionar apoyo logístico se cargan los amancenes de  devoculcion proveedor para dar entrada
 
-            If DdlTipoCompra.SelectedValue = "12" AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es emp acumuladora 
-                divFolioGarantia.Visible = True
-                Using objAcum As New ClsAcumuladores
-                    If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then
-                        DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC")
-                        DdlFolioGarantia.DataBind()
-                    End If
-                End Using
+                If DdlTipoCompra.SelectedValue = "12" Then 'cuando es emp acumuladora 
+                    divFolioGarantia.Visible = True
+                    Using objAcum As New ClsAcumuladores
+                        If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then
+                            DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC")
+                            DdlFolioGarantia.DataBind()
+                        End If
+                    End Using
+                End If
+
+                'cambia si hay ps con uso de serie
+                For Each dr As DataRow In TmpDT.Rows
+                    dr("CveMetodoInventario") = 1
+                Next
+                CargaGvInv()
+            Else
+                If DdlTipoCompra.SelectedValue.Contiene("14") Then 'Recolección
+                    divRecoleccion.Visible = True
+                    Using objAcum As New ClsGenerales
+                        If objAcum.GetInvEntregaAlmacenRuta(-1, MinFecha, MaxFecha, UsuarioActual.Empresa.CveEmpresa, 2, Estatus:=0) Then
+                            DdlRecoleccion.DataSource = objAcum.DtResultados.FiltraParametros("", "Referencia DESC")
+                            DdlRecoleccion.DataBind()
+                        End If
+                    End Using
+                    'cambia si hay ps con uso de serie
+                    For Each dr As DataRow In TmpDT.Rows
+                        dr("CveMetodoInventario") = 1
+                    Next
+                    CargaGvInv()
+                End If
             End If
-
-            'cambia si hay ps con uso de serie
-            For Each dr As DataRow In TmpDT.Rows
-                dr("CveMetodoInventario") = 1
-            Next
-            CargaGvInv()
         End If
 
     End Sub
@@ -19524,11 +19552,7 @@ Partial Class Compras_Compras
         Dim ProcesoError As Boolean = True
 
         If FechaCompraOriginal <> TxtFecha.Text.ToDate Then
-
-
             Dim ObjCompra As New ClsCompras
-            ObjCompra.IniciaTransacSQL()
-
             Dim ObjEventos As New ClsOIEventos(ObjCompra.IniciaTransacSQL())
 
             If ObjEventos.AddEventoBitacora($"Cambio de Fecha de compra de { FechaCompraOriginal.ToString("dd/MM/yyyy")} a {TxtFecha.Text}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
@@ -19543,7 +19567,6 @@ Partial Class Compras_Compras
                 ProcesoError = True
             End If
 
-
             If Not ProcesoError Then
                 ObjCompra.Commit()
                 FechaCompraOriginal = TxtFecha.Text.ToDate
@@ -19558,11 +19581,8 @@ Partial Class Compras_Compras
                 CargaEventoBitacora()
                 UPEventoBitacora.Update()
             End If
-
-
         End If
 
-
     End Sub
 
 
@@ -20040,6 +20060,29 @@ Partial Class Compras_Compras
         DdlRefacturacionFacturas.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
+
+    Protected Sub BtnRecolecciónAplicar_Click(sender As Object, e As EventArgs)
+        Using ObjAcum As New ClsGenerales
+            If ObjAcum.GetEntregaAlmacenRutaDetalle(DdlRecoleccion.SelectedValue.ToEntero) Then
+                'Dim dtt As DataTable = ObjAcum.DtResultados.FiltraParametros("CantidadDisponible > 0")
+                'Dim Porcentaje As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
+                'Dim tCveSub As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
+                'Dim tCveTipoGasto As Integer = TmpDT.MAX("CveTipoGasto").ToEntero
+                'Dim Total As Decimal = TmpDT.SUMD("Total")
+                'For Each drr As DataRow In TmpDT.Rows
+                '    ClavesBorradas.Add(drr("CveCompraDetalle").ToString)
+                'Next
+                TmpDT.Clear()
+                'For Each dr As DataRow In dtt.Rows
+                '    Dim pu As Decimal = Total / dtt.SUMD("CantidadDisponible")
+                '    Dim cantidad As Decimal = dr("CantidadDisponible").ToString.ToDecimal
+                '    AddPS(cantidad, dr("CveUM").ToString.ToEntero, "", dr("CveClasificacion").ToString.ToEntero, "", dr("CvePS").ToString.ToEntero, dr("PS").ToString, 2, tCveSub.ToString, "SE", "SE", "", "", pu, Total, Porcentaje, 0, 0, 0, 0, 0, PorcentajeIVA:=Porcentaje, TCalculaTotales:=True, CveTipoGasto:=tCveTipoGasto)
+                'Next
+                'AddPS2()
+
+            End If
+        End Using
+    End Sub
 End Class