diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index c3b3c7a00..c9e6b5b2d 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -213,14 +213,14 @@ Partial Class General_SaldosIniciales
                 End If
 
 
-                If Not dt.Columns(14).ColumnName = "Vendedor" Then
-                        Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
-                        Exit Sub
-                    End If
-                    If Not dt.Columns(15).ColumnName = "Clasificación" Then
-                        Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
-                        Exit Sub
-                    End If
+                If Not dt.Columns(14).ColumnName = "Vendedor" Then
+                    Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+                If Not dt.Columns(15).ColumnName = "Clasificación" Then
+                    Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
                 If Not dt.Columns(16).ColumnName = "Es distribuidor" Then
                     Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
                     Exit Sub
@@ -294,7 +294,19 @@ Partial Class General_SaldosIniciales
                 If Not dt.Columns(14).ColumnName = "Fecha Vencimiento" Then
                     Alert("El nombre de la quinceava columna debe ser 'Fecha Vencimiento'. Favor de corregirlo", TipoMensaje.MsgError)
                     Exit Sub
-                End If
+                End If
+
+                If RblFormato.SelectedValue = "4" Then
+                    If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
+                        Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
+                        Exit Sub
+                    End If
+
+                    If Not dt.Columns(16).ColumnName = "Amort.Ant" Then
+                        Alert("El nombre de la diescisieteava columna debe ser 'Amort.Ant'. Favor de corregirlo", TipoMensaje.MsgError)
+                        Exit Sub
+                    End If
+                End If
 
 
             ElseIf RblFormato.SelectedValue = "5" Then
@@ -1309,6 +1321,8 @@ Partial Class General_SaldosIniciales
                     Dim Folio As Integer = Row("Folio").ToString.ToEntero
                     Dim Fecha As Date = Row("Fecha").ToString.ToDate
                     Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate
+                    Dim ImpuestoLocal As Double = Row("ImpuestoLocal").ToString.ToDouble
+                    Dim Amortizacion As Double = Row("Amort.Ant").ToString.ToDouble
                     Dim SubTotal As Decimal = Row("SubTotal").ToString.ToDecimal
                     Dim IVA As Decimal = Row("IVA").ToString.ToDecimal
                     Dim Total As Decimal = Row("Total").ToString.ToDecimal
@@ -1367,10 +1381,10 @@ Partial Class General_SaldosIniciales
 
                         If TipoDocto.Contiene("Ing", "Egs", "Rem") Then
                             GuardaLog(Serie & "-" & Folio)
-                            If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero, CveClienteSucursal, SubTotal, 0, 0, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
+                            If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero, CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
                                                0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza,
                                               UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero, CveSubProyectoEjecucion:=Sucursal.ToEntero,
-                                              CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS, ImpuestoLocal:=ImpuestosLocales,
+                                              CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS,
                                               ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente) Then
                                 ErrorVentas = True
                                 Exit For
@@ -1987,7 +2001,7 @@ Partial Class General_SaldosIniciales
 
     Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
+        Dim excelFile As ExcelFile = excelFile.Load(flatFilePath)
 
         Dim unnamed As Integer = 0
         Dim cols As Integer