diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 9d29b4915..f6543f8e5 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -4102,7 +4102,7 @@ Partial Class Inventarios_EntradasSalidas
             Dim CodigoPS As String = ""
             Dim PS As String = ""
 
-            Dim CveSeccionAlmacen As Integer = DdlAlmacenCambioVigencias.SelectedValue.ToEntero
+            Dim CveSeccionAlmacen As Integer = DdlSeccionCambio.SelectedValue.ToEntero
             Dim Serie As String = If(TxtSerieCambio.Text = "", "", TxtSerieCambio.Text)
             Dim Lote As String = If(TxtLoteCambio.Text = "", "", TxtLoteCambio.Text)
             Dim Caducidad As String = If(TxtCaducidadCambio.Text = "", MinFecha.ToShortDateString, TxtCaducidadCambio.Text)
@@ -4501,7 +4501,8 @@ Partial Class Inventarios_EntradasSalidas
                         ImporteConcepto += PUEntrada * Dr("Cantidad").ToString.ToDecimal()
 
                         'INSERTA EL MOVIMIENTO DE ENTRADA
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUMVigencia").ToString.ToEntero, Dr("CvePSVigencia").ToString.ToEntero, PUEntrada, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUMVigencia").ToString.ToEntero, Dr("CvePSVigencia").ToString.ToEntero, PUEntrada, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString,
+                                                          Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate) Then
                             Mensaje = "Ocurrió un error al guardar los movimientos de entrada"
                             ErrorMovInv = True
                             Exit For
@@ -5356,7 +5357,7 @@ Partial Class Inventarios_EntradasSalidas
         Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
         Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
         Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
-        Timbre.Comprobante.Subtotal = Obj.SubTotal
+        Timbre.Comprobante.SubTotal = Obj.SubTotal
         Timbre.Comprobante.Descuentos = Obj.Descuento
         Timbre.Comprobante.Moneda = Obj.MonedaSAT
         Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)