-- se quitaron columnas IdCtaXXX

App_Code/ClsClientes.vb

@@ -69,7 +69,6 @@ Public Class ClsClientes
     Public Property Sucursal As String
     Public Property RecepcionPagos As String
     Public Property TipoPago As String
-    Public Property CuentaContable As String
     Public Property FormaFacturacion As String
     Public Property Codigo As String
     Public Property LimiteCredito As Double
@@ -319,7 +318,6 @@ Public Class ClsClientes
                 _PlazoCobranzaRemision = Data.Rows(0)("PlazoCobranzaRemision").ToString.ToEntero
                 _RecepcionPagos = Data.Rows(0)("RecepcionPagos").ToString
                 _TipoPago = Data.Rows(0)("TipoPago").ToString
-                _CuentaContable = Data.Rows(0)("CuentaContable").ToString
                 _FormaFacturacion = Data(0)("FormaFacturacion").ToString
                 _LimiteCredito = Data(0)("LimiteCredito").ToString.ToDouble
                 '_NumCtaPago = Data(0)("NumCtaPago").ToString

App_Code/ClsCompProveedores.vb

@@ -402,9 +402,7 @@ Public Class ClsCompProveedores
                                     CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer,
                                     Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1,
                                     Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
-                                    Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1,
-                                    Optional IdCtaContProveedores As Integer = -1, Optional CtaContProveedores As String = "", Optional IdCtaContExtranjera As Integer = -1, Optional CtaContExtranjera As String = "", Optional IdCtaContComplementaria As Integer = -1, Optional CtaContComplementaria As String = "",
-                                    Optional IdCtaContAnticipos As Integer = -1, Optional CtaContAnticipos As String = "", Optional IdCtaContAnticiposExtranjera As Integer = -1, Optional CtaContAnticiposExtranjera As String = "", Optional IdCtaContAnticiposComplementaria As Integer = -1, Optional CtaContAnticiposComplementaria As String = "") As Boolean
+                                    Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ProveedorUpdate")
@@ -458,21 +456,21 @@ Public Class ClsCompProveedores
             .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
             .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
 
-            'Proveedores
-            .Add("@IdCtaContProveedores", SqlDbType.Int).Value = IdCtaContProveedores
-            .Add("@CtaContProveedores", SqlDbType.VarChar).Value = CtaContProveedores
-            .Add("@IdCtaContExtranjera", SqlDbType.Int).Value = IdCtaContExtranjera
-            .Add("@CtaContExtranjera", SqlDbType.VarChar).Value = CtaContExtranjera
-            .Add("@IdCtaContComplementaria", SqlDbType.Int).Value = IdCtaContComplementaria
-            .Add("@CtaContComplementaria", SqlDbType.VarChar).Value = CtaContComplementaria
+            ''Proveedores
+            '.Add("@IdCtaContProveedores", SqlDbType.Int).Value = IdCtaContProveedores
+            '.Add("@CtaContProveedores", SqlDbType.VarChar).Value = CtaContProveedores
+            '.Add("@IdCtaContExtranjera", SqlDbType.Int).Value = IdCtaContExtranjera
+            '.Add("@CtaContExtranjera", SqlDbType.VarChar).Value = CtaContExtranjera
+            '.Add("@IdCtaContComplementaria", SqlDbType.Int).Value = IdCtaContComplementaria
+            '.Add("@CtaContComplementaria", SqlDbType.VarChar).Value = CtaContComplementaria
 
-            'Anticipos
-            .Add("@IdCtaContAnticipos", SqlDbType.Int).Value = IdCtaContAnticipos
-            .Add("@CtaContAnticipos", SqlDbType.VarChar).Value = CtaContAnticipos
-            .Add("@IdCtaContAnticiposExtranjera", SqlDbType.Int).Value = IdCtaContAnticiposExtranjera
-            .Add("@CtaContAnticiposExtranjera", SqlDbType.VarChar).Value = CtaContAnticiposExtranjera
-            .Add("@IdCtaContAnticiposComplementaria", SqlDbType.Int).Value = IdCtaContAnticiposComplementaria
-            .Add("@CtaContAnticiposComplementaria", SqlDbType.VarChar).Value = CtaContAnticiposComplementaria
+            ''Anticipos
+            '.Add("@IdCtaContAnticipos", SqlDbType.Int).Value = IdCtaContAnticipos
+            '.Add("@CtaContAnticipos", SqlDbType.VarChar).Value = CtaContAnticipos
+            '.Add("@IdCtaContAnticiposExtranjera", SqlDbType.Int).Value = IdCtaContAnticiposExtranjera
+            '.Add("@CtaContAnticiposExtranjera", SqlDbType.VarChar).Value = CtaContAnticiposExtranjera
+            '.Add("@IdCtaContAnticiposComplementaria", SqlDbType.Int).Value = IdCtaContAnticiposComplementaria
+            '.Add("@CtaContAnticiposComplementaria", SqlDbType.VarChar).Value = CtaContAnticiposComplementaria
 
         End With
 
@@ -522,11 +520,6 @@ Public Class ClsCompProveedores
         Return Retorno
     End Function
 
-
-
-
-
-
     Public Function UpdateProveedorPagoElectronico(EstatusPagoElectronico As Boolean, CveUsuario As Integer, CveProveedor As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ProveedorUpdatePagoElectronico")

App_Code/ClsGenerales.vb

@@ -179,7 +179,7 @@ Public Class ClsGenerales
             SqlAdapter.Fill(Data)
             retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener los registros de Conciliaciones SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al obtener los registros de Conciliaciones detalle SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return retorno
     End Function
@@ -197,11 +197,11 @@ Public Class ClsGenerales
             SqlAdapter.Fill(Data)
             retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener los registros de Conciliaciones SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al obtener las Conciliaciones SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return retorno
     End Function
-    Public Function SAT_DescargaSolicitudesGET(CveEmpresa As Int32, tipo As Int32, fIngInicio As String, fIngFin As String, fSolInicio As String, fSolFin As String) As Boolean
+    Public Function SAT_DescargaSolicitudesGET(CveEmpresa As Integer, tipo As Integer, fIngInicio As String, fIngFin As String, fSolInicio As String, fSolFin As String) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("[PA_SAT_DescargaSolicitudesGET]", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -216,7 +216,7 @@ Public Class ClsGenerales
             SqlAdapter.Fill(Data)
             retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener los registros de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al obtener los registros de solicitudes CFDI SAT4.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return retorno
     End Function
@@ -231,7 +231,7 @@ Public Class ClsGenerales
             SqlAdapter.Fill(Data)
             retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener los registros de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al obtener los folios fiscales de solicitudes CFDI SAT1.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return retorno
     End Function
@@ -248,7 +248,7 @@ Public Class ClsGenerales
             SqlAdapter.Fill(Data)
             retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener los registros de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al obtener las descargas de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return retorno
     End Function
@@ -262,7 +262,7 @@ Public Class ClsGenerales
             SqlAdapter.Fill(Data)
             retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener los registros de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al obtener los registros de descarga de solicitudes CFDI SAT.2", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return retorno
     End Function