diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 47e7f074e..bdaa04205 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1524,20 +1524,26 @@ Partial Class General_SaldosIniciales
                 Dim ObjMovimientos As New ClsInventarios
                 ObjMovimientos.IniciaTransacSQL()
                 Dim OcurrioError As Boolean = False
+                Dim contadorMovimientos As Integer = 0
                 Try
                     For Each almacenSinRepetir As DataRow In dt.FiltraParametros("", DistinctColumns:={"Almacen"}).Rows
                         Dim almacenActual As String = almacenSinRepetir("Almacen").ToString
                         Dim CveAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
                         Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, 1, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
                         If CveAlmacen > 0 Then
+                            contadorMovimientos += 1
                             For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows
                                 Dim CvePS As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", $"Codigo = '{nuevaEntrada("CodigoPS")}'").ToEntero
                                 Dim CveUM As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"Codigo = '{nuevaEntrada("CodigoPS")}'").ToEntero
                                 If CvePS > 0 Then
-                                    Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString.ToDecimal
-                                    Dim Valor As Decimal = nuevaEntrada("Valor").ToString.ToDecimal
+                                    If CveUM > 0 Then
+                                        Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString.ToDecimal
+                                        Dim Valor As Decimal = nuevaEntrada("Valor").ToString.ToDecimal
 
-                                    If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, (Valor / Cantidad), -1, -1) Then
+                                        If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, (Valor / Cantidad), -1, -1) Then
+                                            OcurrioError = True
+                                        End If
+                                    Else
                                         OcurrioError = True
                                     End If
                                 Else
@@ -1559,7 +1565,7 @@ Partial Class General_SaldosIniciales
 
                 If Not OcurrioError Then
                     ObjMovimientos.Commit()
-                    Alert("Se cargó correctamente #movimientos")
+                    Alert($"Se cargaron correctamente {contadorMovimientos} movimientos")
                 Else
                     Alert("Ocurrió un error al cargar las existencias", TipoMensaje.MsgError)
                     ObjMovimientos.RollBack()