se agrego la opción de Almacen para Saldos iniciales

General/SaldosIniciales.aspx

@@ -48,6 +48,7 @@
                             <asp:ListItem Value="9" Text="ContaSIG - Cuentas Contables" Enabled="True"></asp:ListItem>
                             <asp:ListItem Value="10" Text="Cont - Saldos Iniciales Cuentas" Enabled="True"></asp:ListItem>
                             <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>
 
 

General/SaldosIniciales.aspx.vb

@@ -449,7 +449,26 @@ Partial Class General_SaldosIniciales
                 Alert("El nombre de la diescisieteava columna debe ser 'Clave Unidad'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
+        ElseIf RblFormato.SelectedValue = "12" Then
+            If Not dt.Columns(0).ColumnName = "CodigoPS" Then
+                Alert("El nombre de la primera columna debe ser 'CodigoPS'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
 
+            If Not dt.Columns(1).ColumnName = "Almacen" Then
+                Alert("El nombre de la segunda columna debe ser 'Almacen'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(2).ColumnName = "Existencia" Then
+                Alert("El nombre de la tercera columna debe ser 'Existencia'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(3).ColumnName = "Valor" Then
+                Alert("El nombre de la cuarta columna debe ser 'Valor'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
         End If
 
 
@@ -1501,7 +1520,29 @@ Partial Class General_SaldosIniciales
                 End Try
 
                 ObjConta.Dispose()
+            ElseIf RblFormato.SelectedValue = "12" Then
+                Dim ObjMovimientos As New ClsInventarios
+                ObjMovimientos.IniciaTransacSQL()
+                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).FiltraParametros("CveAlmacen", $"Almacen = {almacenActual}").ToEntero
+                        For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = {almacenActual}").Rows
+                            Dim CvePS As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros("CvePS", $"PSCodigo = {nuevaEntrada("CodigoPS")}").ToEntero
+                            If CvePS > 0 Then
+                                Dim Cantidad As Double = nuevaEntrada("Existencia").ToString.ToDouble
+                                Dim Valor As Double = nuevaEntrada("Valor").ToString.ToDouble
+                                Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, 1, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
+                                If ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, -1, CvePS, (Valor / Cantidad), -1, -1) Then
+                                    Alert("Movimiento terminado con exito")
+                                End If
+                            End If
+                        Next
+                    Next
+                Catch ex As Exception
 
+                End Try
+                ObjMovimientos.Dispose()
             End If
         End If
 
@@ -1528,6 +1569,8 @@ Partial Class General_SaldosIniciales
             Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoContabilidad.xlsx"
         ElseIf RblFormato.SelectedValue = "9" Then
             Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoContabilidad.xlsx"
+        ElseIf RblFormato.SelectedValue = "12" Then
+            Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoAlmacen.xlsx"
         End If
 
         Dim Archivo As New IO.FileInfo(Directorio)