diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index c628638aa..8f1c3a848 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -14703,7 +14703,7 @@ Partial Class Compras_Compras
         If TxtFecha.Text.ToDate.Month < TxtFechaCancelacion.Text.ToDate.Month Or TxtFecha.Text.ToDate.Year < TxtFechaCancelacion.Text.ToDate.Year Or DdlTipoComprobante.SelectedValue.Contiene("NC") Then
 
             'CREA POLIZA NEGATIVA
-            If IdPoliza > 0 AndAlso ObjAC IsNot Nothing Then
+            If IdPoliza > 0 AndAlso ObjAC IsNot Nothing AndAlso UsuarioActual.Empresa.UsaAC Then
                 If ObjAC.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
                     dt = ObjAC.DtResultados
 
@@ -14741,7 +14741,7 @@ Partial Class Compras_Compras
                             If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero,
                                                                         dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
                                                                         dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
-                                                                        dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, dr("CveAcreedor").ToString.ToEntero, dr("CveColectiva").ToString.ToEntero, dr("CveCreditoDetalle").ToString.ToEntero, CveCuenta:=dr("CveCuenta").ToString.ToEntero,
+                                                                        dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero, CveCuenta:=dr("CveCuenta").ToString.ToEntero,
                                                                         ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero,
                                                                         CveCompraAmortizacion:=dr("CveCompraAmortizacion").ToString.ToEntero) Then
                                 ErrorCancelar = True
@@ -14765,7 +14765,7 @@ Partial Class Compras_Compras
                                 If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero,
                                                                             dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
                                                                             dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
-                                                                            dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, dr("CveAcreedor").ToString.ToEntero, dr("CveColectiva").ToString.ToEntero, dr("CveCreditoDetalle").ToString.ToEntero, CveCuenta:=dr("CveCuenta").ToString.ToEntero,
+                                                                            dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero, CveCuenta:=dr("CveCuenta").ToString.ToEntero,
                                                                             ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
                                     ErrorCancelar = True
                                     Exit For
diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs
index 6d37128bf..ff5467b8a 100644
--- a/Contabilidad/RepIVA.aspx.cs
+++ b/Contabilidad/RepIVA.aspx.cs
@@ -68,6 +68,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
 
         DdlCuenta.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:UsuarioActual.CveEmpresa, CveTipoCuenta:2);
         DdlCuenta.DataBind();
+        DdlCuenta.Items.Insert(0, new ListItem("Todos", "-1"));
     }
 
     public void Consulta()
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 245310417..8e68f2b23 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1237,14 +1237,15 @@ Partial Class General_SaldosIniciales
                     Dim TipoDocto As String = Row("Tipo Documento").ToString
                     Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero
                     GuardaLog(Sucursal + " - " + Row("Sucursal").ToString)
-                    Dim RetIVA As Double = Row("Ret IVA").ToString.ToDouble
-                    Dim RetISR As Double = Row("Ret ISR").ToString.ToDouble
+                    Dim RetIVA As Decimal = Row("Ret IVA").ToString.ToDecimal
+                    Dim RetISR As Decimal = Row("Ret ISR").ToString.ToDecimal
                     Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal
                     Dim Moneda As String = Row("Moneda").ToString
                     Dim TipoCambio As String = Row("Tipo Cambio").ToString
                     Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate
                     Dim CveMoneda As Integer = 1
                     Dim CveProveedorSucursal As Integer = Row("CveProveedorSucursal").ToString.ToEntero
+                    Dim PorcentajeIVA As String = Row("PorcentajeIVA").ToString
 
 
                     If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
@@ -1252,7 +1253,7 @@ Partial Class General_SaldosIniciales
                     If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
                     If Not CveProveedorSucursal > 0 Then CveProveedorSucursal = -1
 
-                    TipoDocto = IIf(TipoDocto.ToUpper = "INGRESOS", "Fac", "NC").ToString
+                    TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESOS", "INGRESO", "ING"), "Fac", "NC").ToString
 
 
                     'Temporalmente SE BORRARA
@@ -1261,9 +1262,9 @@ Partial Class General_SaldosIniciales
                     Dim CodProvee As String = "" 'Row("CodProvee2").ToString
 
                     'Moneda
-                    If Moneda = "Pesos" Then
+                    If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
                         CveMoneda = 1
-                    ElseIf Moneda = "Dólares" Then
+                    ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then
                         CveMoneda = 2
                     End If
 
@@ -1287,7 +1288,7 @@ Partial Class General_SaldosIniciales
                     'Compra
                     If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero, SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDouble, FechaVencimiento,
                                                 False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal,
-                                                NumeroReembolso:=Transaccion, PorcentajeIVA:=0.16) Then
+                                                NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal) Then
                         ErrorCompras = True
                         Exit For
                     End If
@@ -1308,6 +1309,10 @@ Partial Class General_SaldosIniciales
                     If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, Folio, 25, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IEPS, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
 
 
+                    If RetIVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetIVA, Folio, 15, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetIVA, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
+                    If RetISR > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetISR, Folio, 16, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetISR, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
+
+
                     'Saldo
                     If Saldo < Total Then
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Folio, 17, Folio, Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total - Saldo) Then ErrorCompras = True : Exit For
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx b/Inventarios/AjustesSeccionAlmacen.aspx
index ea8e354af..3e8855dea 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx
+++ b/Inventarios/AjustesSeccionAlmacen.aspx
@@ -73,7 +73,7 @@
                     <asp:BoundField HeaderText="Producto" DataField="PS" />
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="5%" />
-                    <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" ItemStyle-Width="5%" />
+                    <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="Sección Actual" DataField="SeccionAlmacen" ItemStyle-Width="15%" />
                     <%--<asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%" />--%>
                     <asp:TemplateField ItemStyle-Width="7%">
@@ -91,7 +91,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Nuevo Lote" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
-                            <asp:TextBox runat="server" ID="TxtLote" Text='<%# Eval("Lote").ToString()%>' CssClass="form-control" ClientIDMode="Static" />
+                            <asp:TextBox runat="server" ID="TxtLote" Text='<%# Eval("Lote").ToString()%>' CssClass="form-control input-sm" ClientIDMode="Static" />
                         </ItemTemplate>
                     </asp:TemplateField>
 
@@ -102,8 +102,8 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Nueva Fecha Cad." ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
-                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
-                                <asp:TextBox runat="server" ID="TxtFechaCadNueva" Text='<%# Eval("FechaCaducidad").ToString()%>' CssClass="form-control" ClientIDMode="Static" />
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 113px !important; padding: 0px; margin-bottom: -10px;">
+                                <asp:TextBox runat="server" ID="TxtFechaCadNueva" Text='<%# Eval("FechaCaducidad", "{0:d}").ToString()%>' CssClass="form-control  input-sm" ClientIDMode="Static" />
                                 <span class="input-group-btn ">
                                     <asp:LinkButton runat="server" ID="ImgFecha" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
                                 </span>
diff --git a/Inventarios/Consignaciones.aspx.vb b/Inventarios/Consignaciones.aspx.vb
index a98290c76..8da1e3b5e 100644
--- a/Inventarios/Consignaciones.aspx.vb
+++ b/Inventarios/Consignaciones.aspx.vb
@@ -595,9 +595,9 @@ Partial Class Inventarios_Consignaciones
 
                 Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
                 Dim SeccionAlmacen As String = DdlSeccionAlmacen.SelectedItem.Text
-                Dim Serie As String = If(TxtSerie.Text = "", "-1", TxtSerie.Text)
-                Dim Lote As String = If(TxtLote.Text = "", "-1", TxtLote.Text)
-                Dim Caducidad As String = If(TxtCaducidad.Text = "", "-1", TxtCaducidad.Text)
+                Dim Serie As String = If(TxtSerie.Text = "", "", TxtSerie.Text)
+                Dim Lote As String = If(TxtLote.Text = "", "", TxtLote.Text)
+                Dim Caducidad As String = If(TxtCaducidad.Text = "", MinFecha.ToShortDateString, TxtCaducidad.Text)
 
                 Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PSSelected).FiltroPrimero("")
 
@@ -634,6 +634,15 @@ Partial Class Inventarios_Consignaciones
                     GvDatos.DataSource = DtMovimientos
                     GvDatos.DataBind()
 
+
+                    If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
+                        GvDatos.Columns(7).Visible = DtMovimientos.MAX("CveSeccionAlmacen").ToEntero > 0
+                        GvDatos.Columns(8).Visible = DtMovimientos.MAX("Serie") <> ""
+                        GvDatos.Columns(9).Visible = DtMovimientos.MAX("Lote") <> ""
+                        GvDatos.Columns(10).Visible = DtMovimientos.MAX("FechaCaducidad").ToDate > MinFecha
+
+                    End If
+
                     TxtCantidad.Text = ""
                     TxtPU.Text = ""
                     LbTotal.Text = ""
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 7dd85fdfa..20e6e8e4e 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1259,6 +1259,13 @@ Partial Class Inventarios_EntradasSalidas
             Alert("El producto requiere Serie", TipoMensaje.MsgAdvertencia)
         End If
 
+        If RowPS("VentaMinima").ToString.ToDecimal > 0 Then
+            If Cantidad Mod RowPS("VentaMinima").ToString().ToDecimal <> 0 Then
+                Alert(String.Format("El producto se vende solo en cantidades de {0}", RowPS("VentaMinima").ToString()))
+                Valido = False
+            End If
+        End If
+
         'salida
         If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen
 
diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 7b0398fbb..2bbd9cffe 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -516,7 +516,7 @@
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="Lote" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">
                                 <ItemTemplate>
-                                    <asp:TextBox ID="TxtLote" CssClass="form-control input-sm" runat="server" Visible="false"></asp:TextBox>
+                                    <asp:TextBox ID="TxtLote" CssClass="form-control input-sm" runat="server" Visible="false" Text='<%# Eval("Lote") %>'></asp:TextBox>
                                 </ItemTemplate>
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="F.Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" Visible="false">
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index e21187015..499598d68 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -851,6 +851,7 @@ Partial Class Inventarios_EntregaAlmacen
             If AplicaCaducidad Then GvDatos.Columns(9).Visible = True
             GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
 
+            SugerirFechaLote()
         End If
         GvDatos.DataSource = DtDatos
 
@@ -3819,5 +3820,85 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
 #End Region
 
+#Region "sugerir caducidad"
+    Private Sub SugerirFechaLote()
+        Dim ObjInventarios As New ClsInventarios()
+        Dim FechasExcluidas As New List(Of String)
+        FechasExcluidas.Add(MinFecha.ToDate.ToString)
+        Dim MaxRows As Integer = DtDatos.Rows.Count - 1
 
+        For contador As Integer = 0 To MaxRows
+            Dim DtRow As DataRow = DtDatos.Rows(contador)
+            Dim AplicaCaducidad As Boolean = DtRow.Item("AplicaCaducidad").ToString = "True"
+            Dim AplicaLote As Boolean = DtRow.Item("AplicaLote").ToString = "True"
+            Dim Cantidad As Integer = DtRow.Item("CantidadC").ToString.ToEntero
+            Dim FechasExcluidasFiltro As String = String.Format("FechaCaducidad NOT IN('{0}')", String.Join("','", FechasExcluidas))
+            If AplicaCaducidad Or AplicaLote Then
+                Dim CvePS As Integer = DtRow.Item("CvePS").ToString.ToEntero
+                If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                    If ObjInventarios.DtResultados.Rows.Count > 0 Then
+                        Dim MinimumRow As DataRow = ObjInventarios.DtResultados.FiltroPrimero(FechasExcluidasFiltro, "FechaCaducidad")
+                        DtRow.Item("FechaCaducidad") = MinimumRow.Item("FechaCaducidad").ToString
+                        DtRow.Item("Lote") = MinimumRow.Item("Lote").ToString
+                        Dim CantidadDisponible As Integer = MinimumRow.Item("Cantidad").ToString.ToEntero
+                        DtRow.Item("CantidadF") = CantidadDisponible
+                        DtRow.Item("CantidadS") = CantidadDisponible
+
+                        If Cantidad > CantidadDisponible Then
+                            Dim RowFaltante As DataRow = DtDatos.NewRow()
+                            Dim CantidadFaltante As Integer = (Cantidad - CantidadDisponible)
+                            RowFaltante.Item("CantidadC") = CantidadFaltante
+                            RowFaltante.Item("CantidadF") = CantidadFaltante
+                            RowFaltante.Item("CantidadS") = CantidadFaltante
+                            DtRow.Item("CantidadC") = CantidadDisponible
+                            For Each Column As DataColumn In DtDatos.Columns
+                                If Not Column.ColumnName.Contiene("CantidadC", "CantidadF", "CantidadS") Then
+                                    RowFaltante.Item(Column.ColumnName) = DtRow.Item(Column.ColumnName)
+                                End If
+                            Next
+                            FechasExcluidas.Add(MinimumRow.Item("FechaCaducidad").ToString)
+                            DtDatos.Rows.Add(RowFaltante)
+                            MaxRows += 1
+                        Else
+                            DtRow.Item("CantidadF") = Cantidad
+                        End If
+                    End If
+                End If
+            End If
+        Next
+
+        'For Each DtRow As DataRow In DtDatos.Rows
+        '    Dim AplicaCaducidad As Boolean = DtRow.Item("AplicaCaducidad").ToString = "True"
+        '    Dim AplicaLote As Boolean = DtRow.Item("AplicaLote").ToString = "True"
+        '    Dim Cantidad As Integer = DtRow.Item("CantidadC").ToString.ToEntero
+        '    Dim FechasExcluidasFiltro As String = String.Format("FechaCaducidad NOT IN('{0}')", String.Join("','", FechasExcluidas))
+        '    If AplicaCaducidad Or AplicaLote Then
+        '        Dim CvePS As Integer = DtRow.Item("CvePS").ToString.ToEntero
+        '        If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        '            Dim MinimumRow As DataRow = ObjInventarios.DtResultados.FiltroPrimero(FechasExcluidasFiltro, "FechaCaducidad")
+        '            DtRow.Item("FechaCaducidad") = MinimumRow.Item("FechaCaducidad").ToString
+        '            DtRow.Item("Lote") = MinimumRow.Item("Lote").ToString
+        '            Dim CantidadDisponible As Integer = MinimumRow.Item("Cantidad").ToString.ToEntero
+        '            DtRow.Item("CantidadF") = CantidadDisponible
+
+        '            If Cantidad > CantidadDisponible Then
+        '                Dim RowFaltante As DataRow = DtDatos.NewRow()
+        '                RowFaltante.Item("CantidadC") = (Cantidad - CantidadDisponible)
+        '                RowFaltante.Item("CantidadF") = (Cantidad - CantidadDisponible)
+        '                RowFaltante.Item("CantidadS") = (Cantidad - CantidadDisponible)
+        '                For Each Column As DataColumn In DtDatos.Columns
+        '                    If Not Column.ColumnName.Contiene("CantidadC", "CantidadF", "CantidadS") Then
+        '                        RowFaltante.Item(Column.ColumnName) = DtRow.Item(Column.ColumnName)
+        '                    End If
+        '                Next
+
+        '                DtDatos.Rows.Add(RowFaltante)
+        '            End If
+        '        End If
+        '    End If
+        'Next
+        ObjInventarios.Dispose()
+    End Sub
+
+#End Region
 End Class
diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index d5fdfdc19..4b82deae4 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -4,6 +4,11 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
+        .select2-selection__rendered {
+            margin-top: 0px;
+            height: 25px;
+        }
+
         .dataTables_scrollBody table th {
             padding: 0px !important;
             padding-right: 4px !important;
@@ -119,10 +124,10 @@
     <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional" >
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
+                <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+                <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
             </li>
             <li>
                 <asp:LinkButton ID="LnkSeries" Visible="false" runat="server"><i class="fa fa-list"></i> Series Disponibles</asp:LinkButton>
@@ -131,7 +136,10 @@
                 <asp:LinkButton ID="LnkCaducidad" Visible="false" runat="server"><i class="fa fa-list"></i> Caducidad de producto</asp:LinkButton>
             </li>
             <li>
-                <a target="_blank" class="ayuda" href="../Documentacion/DocumentacionInventarios.aspx#Kardex">&nbsp;</a>
+                <asp:HyperLink runat="server" ID="HlAyuda" NavigateUrl="/Documentacion/DocumentacionInventarios.aspx#Kardex"><i class="fa fa-question-circle"></i> Ayuda</asp:HyperLink>
+                <%--<div>
+                    &nbsp;<a target="_blank" class="ayuda" href="../Documentacion/DocumentacionInventarios.aspx#Kardex">&nbsp;&nbsp;</a>
+                </div>--%>
             </li>
         </ContentTemplate>
         <Triggers>
@@ -165,8 +173,7 @@
                             <label class="col-md-1 truncate" style="max-width: 80px;">Almacén:</label>
                             <div class="col-md-2">
                                 <%--<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 175px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>--%>
-                                <asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" 
-                                    DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>
+                                <asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>
 
                             </div>
 
@@ -376,7 +383,7 @@
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:BoundField DataField="Concepto" ItemStyle-Width="170px" HeaderText="Movimiento" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="Almacen" ItemStyle-Width="140px" HeaderText="Almacen" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Almacen" ItemStyle-Width="140px" HeaderText="Almacén" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField ItemStyle-Width="70px" HeaderText="Folio">
                         <ItemTemplate>
                             <asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index b71e1cd59..f0f8783f6 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -236,10 +236,10 @@ Partial Class Inventarios_Kardex
                     LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero()
                     LtIndicador_UCDolares.Text = Dr("UltimoCostoUSD").ToString.FormatoNumero()
 
-                    LtIndicador_Mensaje.Text = $"* Importes calculados con el tipo de cambio del dia <b> $ {TC.FormatoNumero(4)} </b>"
+                    LtIndicador_Mensaje.Text = $"* Importes calculados con el tipo de cambio del día <b> $ {TC.FormatoNumero(4)} </b>"
 
                     If TxtSerie.Text <> "" Then
-                        LtIndicador_MensajeSerie.Text = $"* Existencia y costos calculada por numero de serie: <b> {TxtSerie.Text} </b>"
+                        LtIndicador_MensajeSerie.Text = $"* Existencia y costos calculada por número de serie: <b> {TxtSerie.Text} </b>"
                     Else
                         LtIndicador_MensajeSerie.Text = ""
                     End If
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 99ce829eb..774880b5a 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2612,7 +2612,13 @@ Partial Class Inventarios_RecepcionAlmacen
                                     MovtosSalidaDirecta.Add(MovSalidaExA.CveMovimiento)
                                     FoliosSalidaDirecta.Add(MovSalidaExA.Folio)
 
-                                    Dim MovEntradaExA = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 9, ObjFactura.CveVenta, MovSalidaExA.CveMovimiento, DtDetalleMovimiento, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R2")
+                                    Dim dttexa As DataTable = DtDetalleMovimiento.Copy
+                                    'se limpia la seccion, para que lo tome automaticamente
+                                    For Each drr As DataRow In dttexa.Rows
+                                        drr("CveSeccionAlmacen") = -3
+                                    Next
+
+                                    Dim MovEntradaExA = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 9, ObjFactura.CveVenta, MovSalidaExA.CveMovimiento, dttexa, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R2")
 
                                     ErrorMovInv = MovEntradaExA.CveMovimiento <= 0
 
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 41a611481..c123af23e 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -3764,7 +3764,7 @@ Partial Class OC
         GvD.EditIndex = e.NewEditIndex
         CargaDatosDetalles()
         Dim EditingRow As GridViewRow = GvD.Rows(e.NewEditIndex)
-        If Not EsCreaApartirDe Then
+        If Not EsCreaApartirDe AndAlso Not UsuarioActual.TienePermisoProceso(131) Then 'si tiene el proce 131, e va a permitir, sino que lo bloquee
             If EditingRow.DataKey("TipoDato").ToEntero = 2 Or EditingRow.DataKey("CantidadNoEditable").ToDecimal > 0 Then
                 EditingRow.FCDropDownList("DdlClasificacion").Enabled = False
                 EditingRow.FCDropDownList("DdlPS").Enabled = False
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 0d7861c1e..ff50f1b94 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1238,7 +1238,7 @@ Partial Class ProductosyServicios
                         End If
                     Next
                 End If
-                If UsuarioActual.CveEmpresa = 141 Then
+                If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
                     TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, True)
                 End If
 
@@ -1304,7 +1304,7 @@ Partial Class ProductosyServicios
                     Next
                 End If
 
-                If UsuarioActual.CveEmpresa = 141 Then
+                If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
                     TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, False)
                 End If
 
@@ -2763,7 +2763,8 @@ Partial Class ProductosyServicios
     End Sub
 
     Private Function GuardarProductoEnFranquicia(ObjPS As ClsProductosServicios, PSS As String, CveMetodoInv As Integer, EsPaquete As Integer, Agregar As Boolean) As Boolean
-        Dim EmpresasFranquicia = New Integer() {152}
+        Dim StrEmpresas As String = UsuarioActual.Empresa.Funcionalidad(563)
+        Dim EmpresasFranquicia As List(Of Integer) = StrEmpresas.Split(","c).ToList().ConvertAll(Function(x) Convert.ToInt32(x))
         For Each Franquicia As Integer In EmpresasFranquicia
             Dim nombreEmpresa As String = GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")
             Dim CveClasificacion As Integer = GlobalDTClasificaciones(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DdlClasificacion.SelectedItem.Text)).ToEntero
diff --git a/vwd.webinfo b/vwd.webinfo
index 58b25d2ef..1391aa8cf 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -130,6 +130,10 @@
     
   
     
+  
+    
+  
+