diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 6bc4d1389..1852ebb92 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -5963,7 +5963,7 @@ Public Class ClsInventarios
 
 
 
-    Public Function RepCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, VigenciaIndeterminada As Boolean, CveEmpresa As Integer, Optional ConCaducidad As Boolean = False) As Boolean
+    Public Function RepCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, VigenciaIndeterminada As Boolean, CveEmpresa As Integer, CveAlmacen As Integer, CveUsuario As Integer, Optional ConCaducidad As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_CompuestosVigenciaRep")
@@ -5975,9 +5975,10 @@ Public Class ClsInventarios
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@VigenciaIndeterminada", SqlDbType.Int).Value = VigenciaIndeterminada
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@ConCaducidad", SqlDbType.Bit).Value = ConCaducidad
-
+            .Add("@ConCaducidad", SqlDbType.Bit).Value = If(ConCaducidad, 1, 0)
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
         End With
 
         Try
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index f8f0acc7a..ffee09df2 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9861,6 +9861,8 @@ Public Class ClsPaginas
             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 39, VentaActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
         End If
+        'concepto pago
+        Concepto = String.Format("{0} NC:{1}", VentaActual.ClienteNombre, Pago.Referencia)
 
         If Pago.TipoPago = "A" AndAlso Not ErrorMovtos Then 'A N T I C I P O
             Dim Ret As New ConceptosRetenciones
@@ -9895,11 +9897,9 @@ Public Class ClsPaginas
         End If
 
         If Pago.TipoPago = "I" AndAlso Not ErrorMovtos Then 'I N G R E S O S   X   C O M P R O B A R 
-
             Dim Ret As New ConceptosRetenciones
             If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                 If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
-
                 If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
 
             End If
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 64faacc41..a682a10fd 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -723,6 +723,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                 CveIEPago = 0
                                 Dim FolioIENew = ObjIE.GetNextFolio(CveCajaChica, 6).ToString
                                 CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, If(ChkReembolsarSinBancos.Checked, TxtFechaPrePoliza.Text.ToDate, TxtFechaDocumento.Text.ToDate), FolioIENew, gvr.DataKey("Proveedor"), ImporteMovto, CveMoneda, 0.0, $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}", "", False, True, -1, CvePrePolizaPago, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
+                                TipoCambioPago = 1
                             Else
                                 CveIEPago = CveIERegistrado
                             End If
@@ -746,10 +747,10 @@ Partial Class Compras_ReembolsosComprobaciones
                                     If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovto, Referencia, If(CveCajaChica > 0, 30, 29), ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(CveCajaChica > 0, IdCuentaBancaria, IdCtaPersonal), -1, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), ImporteMX:=ImporteMovto * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then
                                         MsgError = "Detalle"
                                     End If
-                                Else
-                                    If AplicaPrePolizaPago(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
-                                        MsgError = "Detalle"
-                                    End If
+                                End If
+
+                                If AplicaPrePolizaPago(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
+                                    MsgError = "Detalle"
                                 End If
                             End If
 
diff --git a/Inventarios/RepProductosPorCaducar.aspx b/Inventarios/RepProductosPorCaducar.aspx
index 69bd14031..451465fb4 100644
--- a/Inventarios/RepProductosPorCaducar.aspx
+++ b/Inventarios/RepProductosPorCaducar.aspx
@@ -179,6 +179,7 @@
                     <asp:BoundField HeaderText="Almacén" DataField="Almacen" ItemStyle-Width="160px" />
                     <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}"  ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Producto" DataField="CodigoPS" />
+                    <asp:BoundField HeaderText="Compuesto" DataField="Compuesto" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="150px" />
                     <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" DataFormatString = "{0:dd/MM/yyyy}"  ItemStyle-Width="90px" />
                      <asp:TemplateField ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Right" HeaderText="Días de Cad." Visible="false">
diff --git a/Inventarios/RepRSCO.aspx b/Inventarios/RepRSCO.aspx
index 5f9149377..ae968ebcf 100644
--- a/Inventarios/RepRSCO.aspx
+++ b/Inventarios/RepRSCO.aspx
@@ -90,41 +90,35 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-
-
-                          
-
+                             
                         </div>
                     </div>
                 </div>
-                <div class="portlet-body" style="display: none">                
+                <div class="portlet-body" style="display: none">
+                     <div class="row">
+                          <label class="col-md-1 truncate" style="text-align:right">Almacén:</label>
+                            <div class="col-md-1">                                
+                                <asp:ListBox ID="ddlAlmacen"  data-text="Todos" AppendDataBoundItems="true" CssClass="input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>
+                            </div>
+                     </div>                    
                 </div>
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
     <br />
-
-
-
-
-
-
-
-
+     
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"                
-                EmptyDataText="No se Encontraron Registros" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
+                EmptyDataText="No se Encontraron Registros" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD " data-sort="true" Style="width: 100%" GridLines="None">
                 <Columns>
-                    <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Clasificacion" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Compuesto" DataField="Compuesto" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Registro RSCO" DataField="RegistroRSCO" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Fecha. Vigencia" ItemStyle-HorizontalAlign="Center" DataField="FechaVigenciaRSCOStr"  />                                        
-                    <asp:BoundField HeaderText="Usuario" DataField="Usuario" />
-                    <asp:BoundField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" DataField="Fecha" ItemStyle-Width="5%" DataFormatString="{0:d}" />                    
-                   
+                    <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial"  />
+                    <asp:BoundField HeaderText="Clasificacion" DataField="Clasificacion"  />
+                    <asp:BoundField HeaderText="Producto" DataField="CodigoPS"  />
+                    <asp:BoundField HeaderText="Compuesto" DataField="Compuesto"  />
+                    <asp:BoundField HeaderText="Registro RSCO" DataField="RegistroRSCO" ItemStyle-Width="200px"  />
+                    <asp:BoundField HeaderText="Fecha. Vigencia"  DataField="FechaVigenciaRSCOStr"  />                                        
+                     
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
diff --git a/Inventarios/RepRSCO.aspx.vb b/Inventarios/RepRSCO.aspx.vb
index ddd0ca648..720d140d6 100644
--- a/Inventarios/RepRSCO.aspx.vb
+++ b/Inventarios/RepRSCO.aspx.vb
@@ -36,7 +36,7 @@ Partial Class Inventarios_RepRSCO
 
         LnkDescargaExcel.Visible = False
 
-        If ObjInventarios.RepCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 1, UsuarioActual.CveEmpresa) Then
+        If ObjInventarios.RepCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 1, UsuarioActual.CveEmpresa, ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
 
             DTDatos = ObjInventarios.DtResultados
             GvDatos.DataSource = DTDatos
@@ -63,6 +63,10 @@ Partial Class Inventarios_RepRSCO
         DdlProveedores.SelectedText = "Todos"
         DdlProveedores.SelectedValue = "-1"
 
+        ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        ddlAlmacen.DataBind()
+        ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
+        ddlAlmacen.SelectedValue = "-1"
 
         Dim ObjPS As New ClsProductosServicios
 
@@ -80,15 +84,8 @@ Partial Class Inventarios_RepRSCO
         txtFechaF.Text = Now.ToString("dd/MM/yyyy")
         txtFechaI.Text = txtFechaF.Text.ToDate.AddMonths(-2).ToString("dd/MM/yyyy")
 
-
-
     End Sub
 
-
-
-
-
-
     Protected Sub LnkDescargaExcel_Click(sender As Object, e As EventArgs)
         ImprimirReporte("EXCEL")
     End Sub