Correcion de saldos iniciales

General/SaldosIniciales.aspx.vb

@@ -294,6 +294,21 @@ Partial Class General_SaldosIniciales
                     Exit Sub
                 End If
 
+                If Not dt.Columns(15).ColumnName = "IEPS" Then
+                    Alert("El nombre de la decimosexta columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(16).ColumnName = "RetIVAPorcentaje" Then
+                    Alert("El nombre de la decimoséptima columna debe ser 'RetIVAPorcentaje'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(17).ColumnName = "RetISRPorcentaje" Then
+                    Alert("El nombre de la decimoctava columna debe ser 'RetISRPorcentaje'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                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)
@@ -1445,17 +1460,21 @@ Partial Class General_SaldosIniciales
 
 #Region "P R O V E E D O R E S - F A C T U R A S"
 
-                Dim ObjCompras As New ClsCompras
                 Dim ErrorCompras As Boolean = False
-                Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
                 Dim CveCompra As Integer
                 Dim Contador As Integer = 0
                 Dim ExisteCompra As Boolean = False
                 Dim DtProveedores As New DataTable
                 Dim NoEncontrados As Integer = 0
                 Dim Encontrados As Integer = 0
-                DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
                 Dim RFC As String = ""
+
+                Dim ObjCompras As New ClsCompras
+                Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
+
+                Try
+                    DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+
                     Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("")
                     Dim CvePS As Integer = drr("CvePS").ToString().ToEntero()
                     Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString().ToEntero()
@@ -1567,6 +1586,12 @@ Partial Class General_SaldosIniciales
                         Encontrados = Encontrados + 1
 
                     Next
+
+                Catch ex As Exception
+                    OnError("Ocurrió un error al cargar los datos", ex)
+                    ErrorCompras = True
+                End Try
+
                 If Not ErrorCompras Then
                     If Contador > 0 Then
                         Alert(String.Format("Se agregaron: <b>{0}</b> Compras correctamente.<br>Se Omitieron: <b>{1}</b> Compras ya que ya se encuentran registradas.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion)