diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 0d9be3e11..455e17b73 100644 --- a/App_Code/ClsClientes.vb +++ b/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 diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb index aee9aab93..2d5d2f14d 100644 --- a/App_Code/ClsCompProveedores.vb +++ b/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") diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index a28971f9e..782d554cf 100644 --- a/App_Code/ClsGenerales.vb +++ b/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