diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 6f2ebaad9..6de25b9d9 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1147,12 +1147,6 @@ Public Class ClsInventarios
         End With
         Try
             SqlAdapter.Fill(Data)
-
-            If Data IsNot Nothing AndAlso Data.Rows.Count >= 1 Then
-                Dim dr As DataRow = Data.Rows(0)
-                CveSeccion = dr("CveSeccionAlmacen").ToString.ToEntero
-            End If
-
             Retorno = True
         Catch ex As Exception
             OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 552b2f736..69e205ef3 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6591,7 +6591,7 @@ Partial Class Compras_Compras
                                                                             Next
 
                                                                             'calcula la diferencia entre lo recibido por la OC, considerando costos indirectos y lo que se ingresaria en la compra
-                                                                            SumatoriaOCINV = SumatoriaInventario - (TmpDT.SUMD("Total") * 1).RoundSQL 'sumatoria de la factura
+                                                                            SumatoriaOCINV = SumatoriaInventario - (TmpDT.SUMD("Total") * TCO).RoundSQL 'sumatoria de la factura
                                                                             If SumatoriaOCINV.RoundSQL <> 0 Then
                                                                                 ' se abona el costo, cambiamos su naturaleza
                                                                                 'SumatoriaOCINV = -SumatoriaOCINV
diff --git a/Contratos/RepContratosCostos.aspx b/Contratos/RepContratosCostos.aspx
index 0711f2a7b..bf7c217b9 100644
--- a/Contratos/RepContratosCostos.aspx
+++ b/Contratos/RepContratosCostos.aspx
@@ -134,7 +134,7 @@
                     <asp:BoundField runat="server" HeaderText="Contrato Externo" DataField="ContratoExterno" />
                     <asp:BoundField runat="server" HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField runat="server" HeaderText="PS" DataField="CodigoPS" />
-                    <asp:BoundField runat="server" HeaderText="Serie" DataField="SerieLote" />
+                    <asp:BoundField runat="server" HeaderText="Serie" DataField="Serie" />
                     <asp:BoundField runat="server" HeaderText="Costo Almacén" DataField="Surtido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                 </Columns>
             </asp:GridView>
diff --git a/Inventarios/Apartados.aspx b/Inventarios/Apartados.aspx
index 57bf1f423..36a17a7c0 100644
--- a/Inventarios/Apartados.aspx
+++ b/Inventarios/Apartados.aspx
@@ -86,7 +86,7 @@
                                         <div class="row">
                                             <label class="col-md-2">Cliente:</label>
                                             <div class="col-md-3">
-                                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes"  OnSelectedIndexChanged="DdlCliente_SelectedIndexChanged" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
+                                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes"  OnSelectedIndexChanged="DdlCliente_SelectedIndexChanged" Width="100%" data-metodo="getcliente" IncluyeTodos="false" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
                                              </ADS:Dropdownlost>
                                             </div>
                                             <label class="col-md-2">Vendedor:</label>
@@ -203,7 +203,7 @@
                                                         <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
                                                     <br />
-                                                    <ADS:Dropdownlost runat="server" ID="DdlProducto2" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
+                                                    <ADS:Dropdownlost runat="server" ID="DdlProducto2" CssStyle="width: 100%;" CssClassDdl="select2me" IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" />
                                                 </div>
                                             </div>
                                         </ContentTemplate>
@@ -310,7 +310,7 @@
                                         </div>
                                         <div class="col-md-1" style="max-width: 70px">Cliente</div>
                                         <div class="col-md-2">
-                                             <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClienteDesapartado"  OnSelectedIndexChanged="DdlClienteDesapartado_SelectedIndexChanged" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
+                                             <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClienteDesapartado"  OnSelectedIndexChanged="DdlClienteDesapartado_SelectedIndexChanged" Width="100%" IncluyeTodos="false" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
                                              </ADS:Dropdownlost>
                                             
                                             <%--<asp:RequiredFieldValidator ID="RFVFClienteDesapartado" runat="server" ControlToValidate="DdlClienteDesapartado" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCargarApartados"></asp:RequiredFieldValidator>
diff --git a/Inventarios/Apartados.aspx.vb b/Inventarios/Apartados.aspx.vb
index db73531dd..f10ca6247 100644
--- a/Inventarios/Apartados.aspx.vb
+++ b/Inventarios/Apartados.aspx.vb
@@ -466,7 +466,8 @@ Partial Class Inventarios_Apartados
             Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, "-1"))
 
             If Valido Then
-                AgregarPS(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(TxtnSerie.Text <> "", TxtnSerie.Text, ""), Limpia:=FuncionalidadSinSerie)
+                Dim StrSeccion As String = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedItem.Text, "")
+                AgregarPS(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=StrSeccion, Serie:=If(TxtnSerie.Text <> "", TxtnSerie.Text, ""), Limpia:=FuncionalidadSinSerie)
             End If
 
         End If
diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index 7cd2b7882..393d66ab9 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -255,9 +255,9 @@
                                             <div class="col-md-2 ">
                                                 <asp:DropDownList ID="DdlMoneda" runat="server" Style="max-width: 200px" CssClass="form-control input-sm select2me" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
                                             </div>
-                                            <label class="col-md-1 truncate" style="width: 110px">Sección:</label>
+                                            <label class="col-md-1 truncate" style="width: 110px"></label>
                                             <div class="col-md-2">
-                                                <asp:DropDownList ID="DdlSeccion" runat="server" CssClass="form-control input-sm" Style="max-width: 200px" DataTextField="Seccion" DataValueField="CveSeccion"></asp:DropDownList>
+                                              
                                             </div>
                                         </div>
                                         <div class="row" id="divGuia" runat="server" visible="False">
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index b7acf9b87..2146c8de4 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -463,10 +463,6 @@ Partial Class Inventarios_EntradasSalidas
         End If
         DdlClasificacion.DataBind()
 
-        DdlSeccion.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
-        DdlSeccion.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSeccion.DataBind()
-
         DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
         DdlSeccionAlmacen.DataBind()
 
@@ -825,7 +821,7 @@ Partial Class Inventarios_EntradasSalidas
 
             'cargar también los movimentos detalle
             If Mov.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-                DdlSeccion.SelectedValueExist(Mov.CveSeccion.ToString)
+
                 DtMovimientos = Mov.DtResultados.FiltraParametros("", "CveMovimientoDetalle")
 
                 DtMovimientos.Columns("No").AutoIncrement = True
@@ -929,7 +925,6 @@ Partial Class Inventarios_EntradasSalidas
         TxtObservaciones.Enabled = True
         DdlMoneda.Enabled = True
         TxtGuia.Enabled = True
-        DdlSeccion.Enabled = True
 
         If CveMovimiento > 0 Then
             DdlAlmacen.Enabled = False
@@ -940,7 +935,7 @@ Partial Class Inventarios_EntradasSalidas
             TxtObservaciones.Enabled = False
             DdlMoneda.Enabled = False
             TxtGuia.Enabled = False
-            DdlSeccion.Enabled = False
+
         End If
         UppGrid.Update()
     End Sub
@@ -2233,10 +2228,10 @@ Partial Class Inventarios_EntradasSalidas
         End If
 
         If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
-            GvM.Columns(9).Visible = DtTemp.MAX("Serie").ToString <> ""
-            GvM.Columns(10).Visible = DtTemp.MAX("Lote").ToString <> ""
-            GvM.Columns(11).Visible = DtTemp.MAX("FechaCaducidad").ToString <> ""
-            GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen").ToString <> ""
+            GvM.Columns(9).Visible = DtTemp.MAX("Serie") <> ""
+            GvM.Columns(10).Visible = DtTemp.MAX("Lote") <> ""
+            GvM.Columns(11).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
+            GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen") <> ""
 
         End If
 
@@ -4042,7 +4037,6 @@ Partial Class Inventarios_EntradasSalidas
         If TxtRemision.Visible Then TxtRemision.Enabled = True
         If DdlMoneda.Visible Then DdlMoneda.Enabled = True
         If TxtGuia.Visible Then TxtGuia.Enabled = True
-        If DdlSeccion.Visible Then DdlSeccion.Enabled = True
 
         If BtnEliminar.Visible Then BtnEliminar.Visible = False
 
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 893e3be4c..f0f919c1a 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -479,7 +479,8 @@ Partial Class Inventarios_RecepcionAlmacen
 
     Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacen.SelectedIndexChanged
         If DdlAlmacen.SelectedValue <> "-1" Then
-            CargaCompra(CveCompraSurtir, CveProveedor)
+
+            CargaGVInv()
             'For Each Gvr As GridViewRow In GvInv.Rows
             '    If Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue = "-1" Then
             '        Dim Dr As DataRow = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero).FiltroPrimero("")
@@ -1263,7 +1264,7 @@ Partial Class Inventarios_RecepcionAlmacen
             If CBool(e.Row.DBCampo("AplicaSeccion")) Then
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
                 If DdlAlmacen.SelectedValue.ToEntero > 0 Then
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
+                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
                     e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
                     e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
                 End If
@@ -2192,7 +2193,7 @@ Partial Class Inventarios_RecepcionAlmacen
             'ENTRADA ALMACÉN
             CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, If(TipoMovimiento > 1, 13, 2), 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                                         CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
-                                                        MovimientoFijo:=If(TipoMovimiento = 2, True, False), Remision:=TxtRemision.Text, Modulo:="RA/G")
+                                                        MovimientoFijo:=If(TipoMovimiento = 2, True, False), Remision:=TxtRemision.Text, Modulo:="RA/G1")
             If CveMovimiento > 0 Then
                 InvFolio = ObjInventario.Folio.ToString
                 Dim DtDetalle As New DataTable
@@ -2311,7 +2312,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                             CveMovtoSalidaDirecta = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1,
                                                     CveVenta, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
-                                                    MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimiento, Remision:=TxtRemision.Text, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RA/G")
+                                                    MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimiento, Remision:=TxtRemision.Text, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RA/G2")
                             FolioSalidaDirecta = ObjInventario.Folio
 
                             If Not CveMovtoSalidaDirecta > 0 Then
@@ -2365,7 +2366,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             If CveVendedorActual = -1 Or (Dr("CveVendedor").ToString.ToEntero <> CveVendedorActual Or Dr("CveCliente").ToString.ToEntero <> CveClienteActual) Then
                                 CveMovtoSalidaActual = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 8, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim,
                                                                                    TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveAlmacenDestino:=CveAlmacenDestino, MovimientoFijo:=True, CveVendedor:=Dr("CveVendedor").ToString.ToEntero,
-                                                                                   CveCliente:=Dr("CveCliente").ToString.ToEntero, Remision:=TxtRemision.Text, Modulo:="RA/G")
+                                                                                   CveCliente:=Dr("CveCliente").ToString.ToEntero, Remision:=TxtRemision.Text, Modulo:="RA/G3")
                                 MovtosSalida.Add(CveMovtoSalidaActual)
                                 FoliosSalida.Add(ObjInventario.Folio)
 
@@ -2447,7 +2448,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                         Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacenFiltro).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
-                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G")
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
                         FolioVirtual = ObjInventario.Folio
 
                         For Each RowUsado As DataRow In DtPSVirtual.Rows
@@ -2590,7 +2591,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                         Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
-                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G")
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G5")
                         FolioVirtual = ObjInventario.Folio
 
                         For Each RowUsado As DataRow In DtPSVirtual.Rows
@@ -3048,7 +3049,7 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim ObjContaAC As ClsContPAQi = Nothing
 
         'ENTRADA ALMACÉN
-        CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 2, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveImportacionCompra, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=-1, Remision:=TxtRemision.Text, Modulo:="RA/G")
+        CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 2, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveImportacionCompra, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=-1, Remision:=TxtRemision.Text, Modulo:="RA/G6")
         If CveMovimiento > 0 Then
             InvFolio = ObjInventario.Folio.ToString
             Dim DtDetalle As New DataTable
diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb
index aad0f3987..9aabeb893 100644
--- a/Inventarios/ResguardoMaterial.aspx.vb
+++ b/Inventarios/ResguardoMaterial.aspx.vb
@@ -608,7 +608,7 @@ Partial Class Inventarios_ResguardoMaterial
     Private Sub CargaGvMLiberacion()
         GvM.Columns(5).Visible = False
         For Each Dr As DataRow In DtMovimientosLiberacion.Rows
-            If Dr("SerieLote").ToString <> "" Then
+            If Dr("Serie").ToString <> "" Then
                 GvM.Columns(5).Visible = True
                 Exit For
             End If
@@ -777,7 +777,7 @@ Partial Class Inventarios_ResguardoMaterial
 
                 Dim Cont As Integer = 0
                 For Each Dr As DataRow In DtMovimientos.Rows
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, -1, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, -1, -1, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
                         MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
                         TieneError = True
                         Exit For
@@ -796,7 +796,7 @@ Partial Class Inventarios_ResguardoMaterial
                     Else
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
                                     Exit For
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 55ee7d78a..752c30d04 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -855,7 +855,7 @@ Partial Class Inventarios_TraspasoAlmacen
                     If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                         Dim Cont As Integer = 0
                         For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacenDestino").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Observaciones:=Dr("Observaciones").ToString) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=-1, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Observaciones:=Dr("Observaciones").ToString) Then
                                 ErrorMovInv = True
                                 TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                                 Exit For
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f59b0d4b3..38d4248d4 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10186,7 +10186,7 @@ Partial Class Ventas
                                                                         Exit For
                                                                     Else
                                                                         ViewState("SeGuardoPrePoliza") = True
-                                                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 2, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then
+                                                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 2, Concepto, FechaMovimiento, ObjFactura.Cliente.IdCtaContClientes, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then
                                                                             ErrorPrepoliza = True
                                                                             Exit For
                                                                         End If
diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx
index 88b6270ad..5bf108a04 100644
--- a/asmx/WSApp.asmx
+++ b/asmx/WSApp.asmx
@@ -1122,7 +1122,7 @@ Public Class WSApp
         TmpDT.Columns.Add("NoIdentificacion", GetType(String))
         TmpDT.Columns.Add("CveTipoPS", GetType(Integer))
         TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
-        TmpDT.Columns.Add("SerieLote", GetType(String))
+        TmpDT.Columns.Add("Serie", GetType(String))
         TmpDT.Columns.Add("CuentaPredial", GetType(String))
         TmpDT.Columns.Add("Obs", GetType(String))
         TmpDT.Columns.Add("TiempoEntrega", GetType(String))
@@ -1210,7 +1210,7 @@ Public Class WSApp
         TmpDT.Columns.Add("CveUM", GetType(Integer))
         TmpDT.Columns.Add("Cantidad", GetType(Decimal))
         TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
-        TmpDT.Columns.Add("SerieLote", GetType(String))
+        TmpDT.Columns.Add("Serie", GetType(String))
         TmpDT.Columns.Add("CveVentaDetalle", GetType(Integer))
 
         For Each Dr As DataRow In DtDetalle.FiltraParametros("CveTipoPS = 2").Rows
@@ -1219,7 +1219,7 @@ Public Class WSApp
             ss("CveUM") = Dr("CveUM")
             ss("Cantidad") = Dr("Cantidad")
             ss("CveTipoInvPS") = Dr("CveTipoInvPS")
-            ss("SerieLote") = Dr("SerieLote")
+            ss("Serie") = Dr("Serie")
             ss("CveVentaDetalle") = -1
 
             TmpDT.Rows.Add(ss)
@@ -1228,7 +1228,7 @@ Public Class WSApp
         Return TmpDT
     End Function
     Private Function AgregarProductoServicio(ByRef Retorno As Modelos.Factura.MMensajeFactura, TmpDT As DataTable, PS As MVentaProductos, CveEmpresa As Integer, CvePrecioLista As Integer, CveSubProyecto As Integer,
-               Optional SerieLote As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
+               Optional Serie As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
                Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
                Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0,
                Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0,
@@ -1290,7 +1290,7 @@ Public Class WSApp
         Row("Proyecto") = DrSubProyecto("Proyecto").ToString()
         Row("CveSubProyecto") = CveSubProyecto
         Row("SubProyecto") = DrSubProyecto("SubProyecto").ToString()
-        Row("SerieLote") = SerieLote
+        Row("Serie") = Serie
         Row("TiempoEntrega") = TiempoEntrega
         Row("Orden") = TmpDT.Rows.Count + 1
         Row("Cantidad") = PS.Cantidad