diff --git a/General/SaldosIniciales.aspx b/General/SaldosIniciales.aspx
index 6d8b0d9b6..83a5f7055 100644
--- a/General/SaldosIniciales.aspx
+++ b/General/SaldosIniciales.aspx
@@ -50,7 +50,16 @@
                             <asp:ListItem Value="11" Text="ContaSIG - Saldos Iniciales Cuentas" Enabled="True"></asp:ListItem>
                             <asp:ListItem Value="12" Text="Almacen" Enabled="True"></asp:ListItem>
                         </asp:RadioButtonList>
-
+                        <div runat="server" id="divAlmacen">
+                            <div class="row">
+                                Fecha:<asp:TextBox ID="TxtFecha" runat="server"></asp:TextBox>
+                            </div>
+                            Concepto:
+                            <asp:DropDownList ID="DdlConceptoAlmacen" runat="server">
+                                <asp:ListItem Selected="True" Value="1">Carga Inicial</asp:ListItem>
+                                <asp:ListItem Value="3">Salida Almacen</asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
 
                     </div>
                 </div>
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index ca07acd2c..4d9c3b474 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1774,37 +1774,46 @@ Partial Class General_SaldosIniciales
                 Dim contadorMovimientos As Integer = 0
                 Dim listadoMovimientos As String = ""
                 Dim mensajeError As String = ""
+                Dim Fecha As DateTime = (TxtFecha.Text).ToDate
                 Try
                     For Each almacenSinRepetir As DataRow In dt.FiltraParametros("Almacen <> ''", DistinctColumns:={"Almacen"}).Rows
-                        Dim almacenActual As String = almacenSinRepetir("Almacen").ToString
+                        Dim almacenActual As String = almacenSinRepetir("Almacen").ToString.Trim
                         'Dim CveAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
                         Dim CveAlmacen As Integer = AlmacenRef.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)
-                        listadoMovimientos += $"movimiento con folio <a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={movimientoCabecera}' target='_blank' style='color:blue'>{ObjMovimientos.Folio}</a><br/>"
                         If CveAlmacen > 0 Then
-                            contadorMovimientos += 1
-                            For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows
-                                Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' AND CveEmpresa = {UsuarioActual.CveEmpresa}")
-                                If RowPS IsNot Nothing Then
-                                    Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero
-                                    Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero
-                                    If CveUM > 0 Then
-                                        Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString.ToDecimal
-                                        Dim Valor As Decimal = nuevaEntrada("Valor").ToString.ToDecimal
+                            Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, DdlConceptoAlmacen.SelectedValue.ToEntero, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
+                            listadoMovimientos += $"movimiento con folio <a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={movimientoCabecera}' target='_blank' style='color:blue'>{ObjMovimientos.Folio}</a><br/>"
+                            If movimientoCabecera > 0 Then
 
-                                        If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, (Valor / Cantidad), -1, -1) Then
-                                            mensajeError = "No se logró generar el detalle del movimiento"
+
+                                contadorMovimientos += 1
+                                For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows
+                                    Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' AND CveEmpresa = {UsuarioActual.CveEmpresa}")
+                                    If RowPS IsNot Nothing Then
+                                        Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero
+                                        Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero
+                                        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
+                                                mensajeError = "No se logró generar el detalle del movimiento"
+                                                Throw New Exception()
+                                            End If
+                                        Else
+                                            mensajeError = $"La unidad de medida no se reconoce para el producto servicio:{nuevaEntrada("CodigoPS")}"
                                             Throw New Exception()
                                         End If
                                     Else
-                                        mensajeError = $"La unidad de medida no se reconoce para el producto servicio:{nuevaEntrada("CodigoPS")}"
+                                        mensajeError = $"No se encontró el producto o servicio con código ""{nuevaEntrada("CodigoPS")}"""
                                         Throw New Exception()
                                     End If
-                                Else
-                                    mensajeError = $"No se encontró el producto o servicio con código ""{nuevaEntrada("CodigoPS")}"""
-                                    Throw New Exception()
-                                End If
-                            Next
+                                Next
+                            Else
+                                mensajeError = $"No se registró el encabezado ""{almacenActual}"""
+                                Throw New Exception()
+                                Exit For
+                            End If
                         Else
                             mensajeError = $"No se encontró el almacén con nombre ""{almacenActual}"""
                             Throw New Exception()