diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index c286f04ca..17b2bd1b1 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -6089,21 +6089,36 @@ Partial Class Inventarios_EntradasSalidas
             dt.TableName = "Datos"
 
             Dim TieneError As Boolean = False
+            Dim TieneErrorCodigos As Boolean = False
             Try
                 If DdlAlmacenInventarioFisico.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlPS.SelectedText = "" : Exit Sub
 
+                Dim sbNoencontrados As New StringBuilder
+
                 For Each row As DataRow In dt.Rows
                     Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, Codigo:=row("Codigo").ToString(), Estatus:=-1).FiltroPrimero("")
-                    Dim CvePS As Integer = DrPS("CvePS").ToString().ToEntero()
 
-                    If row("EntradaSalida").ToString() = "1" Then
-                        AddPSEntrada(CvePS, row("Diferencia").ToString().ToDecimal(), row("Costo").ToString().ToDecimal(), Sonido:=False, CargaGV:=False)
+                    If DrPS IsNot Nothing Then
+                        Dim CvePS As Integer = DrPS("CvePS").ToString().ToEntero()
+
+                        If row("EntradaSalida").ToString() = "1" Then
+                            AddPSEntrada(CvePS, row("Diferencia").ToString().ToDecimal(), row("Costo").ToString().ToDecimal(), Sonido:=False, CargaGV:=False)
+                        Else
+                            AddPSSalida(CvePS, row("Diferencia").ToString().ToDecimal(), Sonido:=False, CargaGV:=False)
+                        End If
                     Else
-                        AddPSSalida(CvePS, row("Diferencia").ToString().ToDecimal(), Sonido:=False, CargaGV:=False)
+                        TieneError = True
+                        TieneErrorCodigos = True
+                        sbNoencontrados.Append($"{row("Codigo").ToString}<br>")
                     End If
 
                 Next
 
+                If sbNoencontrados.Length > 0 Then
+                    Alert($"No se encontraron los siguientes códigos. <br> {sbNoencontrados.ToString}", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+
                 CargaGvSalidas(DtMovimientosSalidaInvFisico)
                 CargaGvEntradas(DtMovimientosEntradaInvFisico)
             Catch ex As Exception
@@ -6122,7 +6137,10 @@ Partial Class Inventarios_EntradasSalidas
                     CargaGvSalidas(DtMovimientosSalidaInvFisico)
                     CargaGvEntradas(DtMovimientosEntradaInvFisico)
 
-                    Alert("Ocurrió un error al cargar los datos", TipoMensaje.MsgError)
+                    If Not TieneErrorCodigos Then
+                        Alert("Ocurrió un error al cargar los datos", TipoMensaje.MsgError)
+                    End If
+
                 Else
                     If DtMovimientosEntradaInvFisico.Rows.Count <> dt.FiltraParametros("EntradaSalida = 1").Rows.Count Then
                         Alert("No se cargaron todas las entradas.", TipoMensaje.MsgAdvertencia)