diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index 31010ecc8..5b63a3ab7 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -674,7 +674,7 @@ Public Class ClsAcumuladores
 
 #Region "GARANTIAS DETALLES"
 
-    Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer,
+    Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CvePS As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer,
                                         CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String,
                                         CveTipoDefecto As Integer, NumPoliza As String, Importe As Double,
                                         Consecutivo As String) As Boolean
@@ -682,6 +682,7 @@ Public Class ClsAcumuladores
         SqlDataAdapter("PA_Acum_GarantiasDetalleAdd")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
             .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
             .Add("@CodigoEnsamble", SqlDbType.VarChar).Value = CodigoEnsamble
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index a9b95dc41..5472ba737 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -1349,7 +1349,7 @@ Namespace Modelos
                 'Ajustes'
                 If DtAjustes IsNot Nothing AndAlso DtAjustes.Rows.Count > 0 Then
                     For Each Dr As DataRow In DtAjustes.Rows
-                        If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero,
+                        If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero,
                                                                Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero,
                                                                Dr("NumPoliza").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString) Then
                             ErrorList.Add("Ocurrió un error al agregar la garantia detalle.")
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index bedb6ca26..11221fb2f 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -371,15 +371,15 @@ Partial Class General_SaldosIniciales
                     Exit Sub
                 End If
 
-                If Not dt.Columns(12).ColumnName = "Servicio" Then
-                    Alert("El nombre de la treceava columna debe ser 'Servicio'. Favor de corregirlo", TipoMensaje.MsgError)
-                    Exit Sub
-                End If
+                'If Not dt.Columns(12).ColumnName = "Servicio" Then
+                '    Alert("El nombre de la treceava columna debe ser 'Servicio'. Favor de corregirlo", TipoMensaje.MsgError)
+                '    Exit Sub
+                'End If
 
-                If Not dt.Columns(13).ColumnName = "Conversion Unidad" Then
-                    Alert("El nombre de la catorceava columna debe ser 'Conversion Unidad'. Favor de corregirlo", TipoMensaje.MsgError)
-                    Exit Sub
-                End If
+                'If Not dt.Columns(13).ColumnName = "Conversion Unidad" Then
+                '    Alert("El nombre de la catorceava columna debe ser 'Conversion Unidad'. Favor de corregirlo", TipoMensaje.MsgError)
+                '    Exit Sub
+                'End If
 
             ElseIf RblFormato.SelectedValue = "6" Then
                 If Not dt.Columns(0).ColumnName = "Código" Then
@@ -669,8 +669,8 @@ Partial Class General_SaldosIniciales
                     Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal
                     Dim Tamaño As String = Row("Tamaño").ToString.Trim
                     Dim SATClavePS As String = Row("Código SAT").ToString.Trim
-                    Dim Clasificacion2 As String = Row("Servicio").ToString.Trim
-                    Dim Litraje As Double = Row("Conversion Unidad").ToString.ToDouble
+                    Dim Clasificacion2 As String = If(dt.Columns.Contains("Servicio"), Row("Servicio").ToString.Trim, "")
+                    Dim Litraje As Double = If(dt.Columns.Contains("Conversion Unidad"), Row("Conversion Unidad").ToString.ToDouble, 0)
                     Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString.Trim, "")
                     Dim Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString.Trim, "")
                     Dim SATClaveUnidadMedida As String = If(Row.Table.Columns.Contains("Clave Unidad"), Row("Clave Unidad").ToString.Trim, "")