diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 5da863d9d..e3edbd586 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1519,7 +1519,7 @@ Partial Class Inventarios_EntradasSalidas
 
                     Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv/ES", 53, 0, 0, 1, TxtFecha.Text.ToDate, obs, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
 
-                    CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, DdlConcepto.SelectedValue.ToEntero, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor)
+                    CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, DdlConcepto.SelectedValue.ToEntero, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="ES/1")
 
 
                     If CveMovimiento <= 0 OrElse CvePrePoliza <= 0 Then
@@ -1961,7 +1961,7 @@ Partial Class Inventarios_EntradasSalidas
         Dim ObjInv As New ClsInventarios
 
         If CveMovimiento <= 0 Then
-            CveMovimiento = ObjInv.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, DdlConcepto.SelectedValue.ToEntero, 1, TxtFecha.Text.ToDate, TxtFolio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
+            CveMovimiento = ObjInv.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, DdlConcepto.SelectedValue.ToEntero, 1, TxtFecha.Text.ToDate, TxtFolio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Modulo:="ES/CS1")
         End If
 
         ObjInv.AddMovimientoDetalle(CveMovimiento, Cantidad, CveUM, CvePS, CostoPromedio, -1, Serie:=SerieLote)
@@ -3837,7 +3837,7 @@ Partial Class Inventarios_EntradasSalidas
         'MOVIMIENTO DE ENTRADA
         If DtMovimientosEntradaInvFisico.Rows.Count > 0 Then
             Dim FolioEntrada As Integer = ObjInventario.GetFolioSiguiente(32, UsuarioActual.CveEmpresa)
-            CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 32, 1, Fecha, FolioEntrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtIFDescripcion.Text.Trim)
+            CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 32, 1, Fecha, FolioEntrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtIFDescripcion.Text.Trim, Modulo:="ES/AJ1")
         Else
             CveMovimientoEntrada = -1
         End If
@@ -3845,7 +3845,7 @@ Partial Class Inventarios_EntradasSalidas
         'MOVIMIENTO DE SALIDA
         If DtMovimientosSalidaInvFisico.Rows.Count > 0 Then
             Dim FolioSalida As Integer = ObjInventario.GetFolioSiguiente(34, UsuarioActual.CveEmpresa)
-            CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacen, 34, 1, Fecha, FolioSalida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoEntrada, Observaciones:=TxtIFDescripcion.Text.Trim)
+            CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacen, 34, 1, Fecha, FolioSalida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoEntrada, Observaciones:=TxtIFDescripcion.Text.Trim, Modulo:="ES/AJ2")
 
         End If
 
@@ -4132,19 +4132,21 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
     Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
         Dim dt As New DataTable
-        Dim Conexion As Odbc.OdbcConnection = Nothing
+        'Dim Conexion As Odbc.OdbcConnection = Nothing
         Dim ErrorArchivo = False
         Dim n As Integer = 0
         Try
             Select Case Tipo
                 Case "EXCEL"
-                    Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
-                    Conexion.Open()
-                    Dim cmd = Conexion.CreateCommand()
-                    cmd.CommandType = CommandType.Text
-                    cmd.CommandText = "Select * FROM [Hoja1$]"
-                    Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
-                    DataAdapter.Fill(dt)
+                    dt = ReadExcelFile(Ruta + FileName, True)
+                    dt = dt.FiltraParametros("Cantidad <> '' ")
+                    'Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
+                    'Conexion.Open()
+                    'Dim cmd = Conexion.CreateCommand()
+                    'cmd.CommandType = CommandType.Text
+                    'cmd.CommandText = "Select * FROM [Hoja1$]"
+                    'Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
+                    'DataAdapter.Fill(dt)
                 Case Else
                     Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
                     Exit Sub
@@ -4153,7 +4155,7 @@ Partial Class Inventarios_EntradasSalidas
             ErrorArchivo = True
             OnError("Ocurrio un Error al leer el archivo <br/>" & ex.Message, ex)
         End Try
-        Conexion.Close()
+        ' Conexion.Close()
         If Not ErrorArchivo Then
             If Not dt.Columns(0).ColumnName = "Cantidad" Then
                 Alert("El nombre de la primera columna debe ser 'Cantidad'.Favor de corregirlo", TipoMensaje.MsgError)
@@ -4299,7 +4301,12 @@ Partial Class Inventarios_EntradasSalidas
         Dim StrReturn As String = String.Empty
         Dim CvePS As Integer = 0
         Dim Condicion As String = String.Format("{0} = '{1}'", Opt, Valor)
-        CvePS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", Condicion).ToString.ToEntero
+        If Opt = "Codigo" Then
+            CvePS = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=Valor).FiltroPrimeroValor("CvePS", "").ToString.ToEntero
+        Else
+            CvePS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", Condicion).ToString.ToEntero
+        End If
+
         If CvePS > 0 Then
             StrReturn = "True|" & CvePS.ToString
         Else