diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 4917f0a79..03b143199 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -255,7 +255,7 @@ Partial Class General_SaldosIniciales
                     Alert("El nombre de la quinta columna debe ser 'Fecha'. Favor de corregirlo", TipoMensaje.MsgError)
                     Exit Sub
                 End If
-                If Not dt.Columns(5).ColumnName = "SubTotal" Then
+                If Not dt.Columns(5).ColumnName.ToLower = "subtotal" Then
                     Alert("El nombre de la sexta columna debe ser 'SubTotal'. Favor de corregirlo", TipoMensaje.MsgError)
                     Exit Sub
                 End If
@@ -275,11 +275,11 @@ Partial Class General_SaldosIniciales
                     Alert("El nombre de la décima columna debe ser 'Tipo Documento'. Favor de corregirlo", TipoMensaje.MsgError)
                     Exit Sub
                 End If
-                If Not dt.Columns(10).ColumnName = "Ret IVA" Then
+                If Not dt.Columns(10).ColumnName.ToLower.Contiene("ret iva", "ret iva") Then
                     Alert("El nombre de la onceava columna debe ser 'Ret IVA'. Favor de corregirlo", TipoMensaje.MsgError)
                     Exit Sub
                 End If
-                If Not dt.Columns(11).ColumnName = "Ret ISR" Then
+                If Not dt.Columns(11).ColumnName.ToLower = "ret isr" Then
                     Alert("El nombre de la doceava columna debe ser 'Ret ISR'. Favor de corregirlo", TipoMensaje.MsgError)
                     Exit Sub
                 End If
@@ -289,7 +289,7 @@ Partial Class General_SaldosIniciales
                     Exit Sub
                 End If
 
-                If Not dt.Columns(13).ColumnName = "Tipo Cambio" Then
+                If Not dt.Columns(13).ColumnName.Contiene("Tipo Cambio", "Tipo de Cambio") Then
                     Alert("El nombre de la catorceava columna debe ser 'Tipo Cambio'. Favor de corregirlo", TipoMensaje.MsgError)
                     Exit Sub
                 End If
@@ -1127,7 +1127,7 @@ Partial Class General_SaldosIniciales
                     Dim CodProvee As String = "" 'Row("CodProvee2").ToString
 
                     'Moneda
-                    If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
+                    If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
                         CveMoneda = 1
                     ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then
                         CveMoneda = 2
@@ -1792,6 +1792,7 @@ Partial Class General_SaldosIniciales
                         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
+
                         If CveAlmacen > 0 Then
                             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/>"
@@ -1807,8 +1808,9 @@ Partial Class General_SaldosIniciales
                                         If CveUM > 0 Then
                                             Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString.ToDecimal
                                             Dim Valor As Decimal = nuevaEntrada("Valor").ToString.ToDecimal
+                                            Dim Serie As String = If(dt.Columns.Contains("Serie"), nuevaEntrada("Serie").ToString.Trim, "")
 
-                                            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, Serie:=Serie) Then
                                                 mensajeError = "No se logró generar el detalle del movimiento"
                                                 Throw New Exception()
                                             End If