diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 60c2d2a48..23ef846b9 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1,524 +1,524 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports System.Data.SqlClient -Imports Extensiones -Imports System -Imports System.Configuration -Imports Modelos - -Public Class ClsClientes - Implements IDisposable - -#Region "Campos" - - 'SQL - Private SqlConexion As SqlConnection - Private SqlAdapter As SqlDataAdapter - Private SqlTransacc As SqlTransaction - Private SqlCommand As SqlCommand - Private Data As DataTable - - 'Atributos de la clase - Private disposedValue As Boolean = False ' Para detectar llamadas redundantes - 'REGISTRAR CONEXIÓN +Option Explicit On +Option Strict On + +Imports System.Data +Imports System.Data.SqlClient +Imports Extensiones +Imports System +Imports System.Configuration +Imports Modelos + +Public Class ClsClientes + Implements IDisposable + +#Region "Campos" + + 'SQL + Private SqlConexion As SqlConnection + Private SqlAdapter As SqlDataAdapter + Private SqlTransacc As SqlTransaction + Private SqlCommand As SqlCommand + Private Data As DataTable + + 'Atributos de la clase + Private disposedValue As Boolean = False ' Para detectar llamadas redundantes + 'REGISTRAR CONEXIÓN Private CveConexion As Integer = 0 Private EsTransaccionCompartida As Boolean = False -#End Region +#End Region -#Region "Propiedades" +#Region "Propiedades" - Public Property CveCliente As Integer - Public Property Nombre As String - Public Property NombreComercial As String - Public Property Direccion As String - Public Property NoExt As String - Public Property NoInt As String - Public Property Colonia As String - Public Property Ciudad As String - Public Property Localidad As String - Public Property Estado As String - Public Property Pais As String - Public Property RFC As String - Public Property CP As String - Public Property Telefono As String - Public Property Contacto As String - Public Property Mail As String - Public Property MailCotizacion As String - Public Property NotificarA As String - Public Property Pagina As String - Public Property Giro As String - Public Property CvePrecioLista As Integer - Public Property EnviarFactura As Boolean - Public Property CveSucursal As Integer - Public Property RetIVA As Double - Public Property RetISR As Double - Public Property RetieneIVAFletes As Boolean - Public Property Estatus As Boolean - Public Property FechaIng As Date - Public Property Usuario As String - Public Property NombreCorto As String - Public Property Vendedor As String - Public Property PlazoCobranza As Integer - Public Property PlazoCobranzaRemision As Integer - Public Property Sucursal As String - - Public Property RecepcionPagos As String - Public Property TipoPago As String - Public Property CuentaContable As String - 'Public Property ConvenioCIE As String - Public Property FormaFacturacion As String - Public Property IdCtaContClientes As Integer - Public Property IdCtaContMonedaExtranjera As Integer - Public Property IdCtaContComplementaria As Integer - Public Property IdCtaContAnticipos As Integer - Public Property IdCtaContRetIVA As Integer - Public Property IdCtaContRetISR As Integer + Public Property CveCliente As Integer + Public Property Nombre As String + Public Property NombreComercial As String + Public Property Direccion As String + Public Property NoExt As String + Public Property NoInt As String + Public Property Colonia As String + Public Property Ciudad As String + Public Property Localidad As String + Public Property Estado As String + Public Property Pais As String + Public Property RFC As String + Public Property CP As String + Public Property Telefono As String + Public Property Contacto As String + Public Property Mail As String + Public Property MailCotizacion As String + Public Property NotificarA As String + Public Property Pagina As String + Public Property Giro As String + Public Property CvePrecioLista As Integer + Public Property EnviarFactura As Boolean + Public Property CveSucursal As Integer + Public Property RetIVA As Double + Public Property RetISR As Double + Public Property RetieneIVAFletes As Boolean + Public Property Estatus As Boolean + Public Property FechaIng As Date + Public Property Usuario As String + Public Property NombreCorto As String + Public Property Vendedor As String + Public Property PlazoCobranza As Integer + Public Property PlazoCobranzaRemision As Integer + Public Property Sucursal As String + + Public Property RecepcionPagos As String + Public Property TipoPago As String + Public Property CuentaContable As String + 'Public Property ConvenioCIE As String + Public Property FormaFacturacion As String + Public Property IdCtaContClientes As Integer + Public Property IdCtaContMonedaExtranjera As Integer + Public Property IdCtaContComplementaria As Integer + Public Property IdCtaContAnticipos As Integer + Public Property IdCtaContRetIVA As Integer + Public Property IdCtaContRetISR As Integer Public Property IdCtaContFondoGarantia As Integer - Public Property Codigo As String - Public Property LimiteCredito As Double - 'Public Property NumCtaPago As String - 'Public Property CveMetodoPago As Integer - Public Property AplicaFEMSA As Boolean - Public Property FEMSA_NumSociedad As String - Public Property FEMSA_NumProveedor As String - Public Property FEMSA_Mail As String - Public Property AplicaDetallista As Boolean - Public Property Detallista_GLNComprador As String - Public Property Detallista_Departamento As String - Public Property Detallista_GLNVendedor As String - Public Property Detallista_NumProveedor As String - Public Property SevenEleven_NumProveedor As String - Public Property TelefonoExtension As String - Public Property TelefonoOtros As String - Public Property AplicaFord As Boolean - Public Property Ford_GSDB As String - Public Property PermiteCredito As Boolean - Public Property CveUsuarioResponsable As Integer - Public Property CveClasificacion As Integer - Public Property CveCondicionEntrega As Integer - - Public Property IdCtaContCompClientes As Integer - Public Property IdCtaContCompAnticipos As Integer - - Public Property IdCtaMonedaExtranjera As Integer - Public Property IdCtaMonedaExtranjeraAnticipos As Integer - Public Property TipoCliente As Integer - Public Property ImprimeNombreSucursal As Boolean - Public Property SubProyecto As String - Public Property CveSubProyecto As Integer - Public Property CobranzaContacto As String - Public Property CobranzaCorreo As String - Public Property CobranzaTelefono As String - Public Property CobranzaNoExt As String - Public Property Horario As String - Public Property PortalFacturacion As String - Public Property DiasEspecificos As String - Public Property Documentacion As String - Public Property UsuarioPortal As String - Public Property ContraseñaPortal As String - Public Property DiasRevision As String - Public Property ObservacionRevision As String - Public Property ReferenciaFiscal As String - Public Property Celular As String - Public Property ExtOtros As String - Public Property CveUsoCFDI As Integer - Public Property CveFormaPago33 As Integer - Public Property CveMetodoPago33 As Integer - Public Property CveClienteCorporativo As String - Public Property DesglosaIEPS As Boolean - Public Property NoDesglosaIVA As Boolean - Public Property AplicaComercioExterior As Boolean - Public Property CveTipoOperacion As Integer - Public Property CvePedimento As Integer - Public Property CveIncoterm As Integer - Public Property ClaveSATTipoOperacionDescripcion As String - Public Property ClaveSATPedimentoDescripcion As String - Public Property ClaveSATIncotermDescripcion As String - Public Property CvePais As Integer - Public Property CveEstado As Integer - Public Property CveMunicipio As Integer - Public Property CveColonia As Integer - Public Property ClaveSATPais As String - Public Property ClaveSATEstado As String - Public Property ClaveSATMunicipio As String - Public Property ClaveSATColonia As String - Public Property ClaveSATCP As String - Public Property CveMotivoTraslado As Integer - Public Property NumRegIdTrib As String - - Public Property ComExtEstado As String - Public Property ComExtMunicipio As String - Public Property ComExtColonia As String - - Public Property ApellidoPaterno As String - Public Property ApellidoMaterno As String - Public Property Nombres As String - Public Property RequiereOC As Boolean - - Public Property CargoUsados As Boolean - Public Property BonificacionUsado As Boolean - Public Property CveSATEstado As Integer - - - Public ReadOnly Property DtResultados() As DataTable - Get - DtResultados = Data - End Get - End Property - -#End Region - - Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) - - If TransaccionCompartida Is Nothing Then - SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString - Try - SqlConexion.Open() - Catch ex As Exception - OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) - End Try - Else - SqlConexion = TransaccionCompartida.Connection - SqlTransacc = TransaccionCompartida - EsTransaccionCompartida = True - End If - - SqlCommand = New SqlCommand("", SqlConexion) - SqlAdapter = New SqlDataAdapter("", SqlConexion) - ConexionAdd() - End Sub - Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) - With SqlAdapter.SelectCommand - .Parameters.Clear() - .CommandText = StrSQL - .CommandType = TipoComando - End With - If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc - Data = New DataTable - End Sub -#Region "Conexiones" + Public Property Codigo As String + Public Property LimiteCredito As Double + 'Public Property NumCtaPago As String + 'Public Property CveMetodoPago As Integer + Public Property AplicaFEMSA As Boolean + Public Property FEMSA_NumSociedad As String + Public Property FEMSA_NumProveedor As String + Public Property FEMSA_Mail As String + Public Property AplicaDetallista As Boolean + Public Property Detallista_GLNComprador As String + Public Property Detallista_Departamento As String + Public Property Detallista_GLNVendedor As String + Public Property Detallista_NumProveedor As String + Public Property SevenEleven_NumProveedor As String + Public Property TelefonoExtension As String + Public Property TelefonoOtros As String + Public Property AplicaFord As Boolean + Public Property Ford_GSDB As String + Public Property PermiteCredito As Boolean + Public Property CveUsuarioResponsable As Integer + Public Property CveClasificacion As Integer + Public Property CveCondicionEntrega As Integer - Private Sub ConexionAdd() - If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then - Try - DataAdapter("PA_Sis_RegistrarConexion") - With SqlAdapter.SelectCommand.Parameters - .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name - .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) - .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output - End With - SqlAdapter.Fill(Data) - CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero - Catch ex As Exception - OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - End If - End Sub - - Private Sub ConexionClose() - If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then - - DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - - Try - SqlAdapter.Fill(Data) - - Catch ex As Exception - OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - CveConexion = 0 - End If - - End Sub -#End Region - Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) - With SqlCommand - .Parameters.Clear() - .CommandText = pStrSQL - .CommandType = TipoComando - End With - - If Not SqlTransacc Is Nothing Then SqlCommand.Transaction = SqlTransacc - - End Sub - Public Function IniciaTransacSQL() As SqlTransaction - If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() - Return SqlTransacc - End Function - Public Sub RollBack() - SqlTransacc.Rollback() - End Sub - Public Sub Commit() - SqlTransacc.Commit() - SqlTransacc = Nothing - End Sub - Public Function GetClientes(CveCliente As Integer, Nombre As String, Codigo As String, NombreCorto As String, RFC As String, Telefono As String, Mail As String, CveSubProyecto As Integer, - CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional Notificar As String = "-1", Optional CvePrecioLista As Integer = -1, Optional CveClienteClasificacion As Integer = -1, - Optional TipoCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PermiteCreditoFiltro As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveUsuarioConsulta As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_ClientesGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@Nombre", SqlDbType.VarChar).Value = Nombre - .Add("@Codigo", SqlDbType.VarChar).Value = Codigo - .Add("@NombreCorto", SqlDbType.VarChar).Value = NombreCorto - .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@Telefono", SqlDbType.VarChar).Value = Telefono - .Add("@Mail", SqlDbType.VarChar).Value = Mail - .Add("@Notificar", SqlDbType.VarChar).Value = Notificar - .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista - .Add("@Estatus", SqlDbType.Int).Value = Estatus - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion - .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@PermiteCredito", SqlDbType.Int).Value = PermiteCreditoFiltro - .Add("@TopSelect", SqlDbType.Int).Value = TopSelect - End With - Try - SqlAdapter.Fill(Data) - If Data.Rows.Count > 0 Then - _CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero - _Nombre = Data.Rows(0)("Nombre").ToString - _NombreComercial = Data.Rows(0)("NombreComercial").ToString - _Codigo = Data.Rows(0)("Codigo").ToString - _Direccion = Data.Rows(0)("Direccion").ToString - _NoExt = Data.Rows(0)("NoExt").ToString - _NoInt = Data.Rows(0)("NoInt").ToString - _Colonia = Data.Rows(0)("Colonia").ToString - _Localidad = Data.Rows(0)("Localidad").ToString - _Ciudad = Data.Rows(0)("Ciudad").ToString - _Estado = Data.Rows(0)("Estado").ToString - _Pais = Data.Rows(0)("Pais").ToString - _RFC = Data.Rows(0)("RFC").ToString().ToString - _CP = Data.Rows(0)("CP").ToString - _Telefono = Data.Rows(0)("Telefono").ToString - _Contacto = Data.Rows(0)("Contacto").ToString - _Mail = Data.Rows(0)("Mail").ToString - _MailCotizacion = Data.Rows(0)("MailCotizacion").ToString - _NotificarA = Data.Rows(0)("NotificarA").ToString - _Pagina = Data.Rows(0)("Pagina").ToString - _Giro = Data.Rows(0)("Giro").ToString - _CvePrecioLista = Data.Rows(0)("CvePrecioLista").ToString.ToEntero - _EnviarFactura = Data.Rows(0)("EnviarFactura").ToString = "Si" - _RetIVA = Data.Rows(0)("RetIVA").ToString.ToDouble - _RetISR = Data.Rows(0)("RetISR").ToString.ToDouble - _RetieneIVAFletes = CBool(Data.Rows(0)("RetIVAFletes")) - _Estatus = Data.Rows(0)("Estatus").ToString = "Activo" - _FechaIng = Data.Rows(0)("Fecha").ToString.ToDate - _Usuario = Data.Rows(0)("Usuario").ToString - _NombreCorto = Data.Rows(0)("NombreCorto").ToString - _Vendedor = Data.Rows(0)("CveVendedor").ToString - _PlazoCobranza = Data.Rows(0)("PlazoCobranza").ToString.ToEntero - _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 - _IdCtaContClientes = Data.Rows(0)("IdCtaContClientes").ToString.ToEntero - _IdCtaContMonedaExtranjera = Data.Rows(0)("IdCtaContMonedaExtranjera").ToString.ToEntero - _IdCtaContComplementaria = Data.Rows(0)("IdCtaContComplementaria").ToString.ToEntero - _IdCtaContAnticipos = Data.Rows(0)("IdCtaContAnticipos").ToString.ToEntero - _IdCtaContRetIVA = Data.Rows(0)("IdCtaContRetIVA").ToString.ToEntero - _IdCtaContRetISR = Data.Rows(0)("IdCtaContRetISR").ToString.ToEntero + Public Property IdCtaContCompClientes As Integer + Public Property IdCtaContCompAnticipos As Integer + + Public Property IdCtaMonedaExtranjera As Integer + Public Property IdCtaMonedaExtranjeraAnticipos As Integer + Public Property TipoCliente As Integer + Public Property ImprimeNombreSucursal As Boolean + Public Property SubProyecto As String + Public Property CveSubProyecto As Integer + Public Property CobranzaContacto As String + Public Property CobranzaCorreo As String + Public Property CobranzaTelefono As String + Public Property CobranzaNoExt As String + Public Property Horario As String + Public Property PortalFacturacion As String + Public Property DiasEspecificos As String + Public Property Documentacion As String + Public Property UsuarioPortal As String + Public Property ContraseñaPortal As String + Public Property DiasRevision As String + Public Property ObservacionRevision As String + Public Property ReferenciaFiscal As String + Public Property Celular As String + Public Property ExtOtros As String + Public Property CveUsoCFDI As Integer + Public Property CveFormaPago33 As Integer + Public Property CveMetodoPago33 As Integer + Public Property CveClienteCorporativo As String + Public Property DesglosaIEPS As Boolean + Public Property NoDesglosaIVA As Boolean + Public Property AplicaComercioExterior As Boolean + Public Property CveTipoOperacion As Integer + Public Property CvePedimento As Integer + Public Property CveIncoterm As Integer + Public Property ClaveSATTipoOperacionDescripcion As String + Public Property ClaveSATPedimentoDescripcion As String + Public Property ClaveSATIncotermDescripcion As String + Public Property CvePais As Integer + Public Property CveEstado As Integer + Public Property CveMunicipio As Integer + Public Property CveColonia As Integer + Public Property ClaveSATPais As String + Public Property ClaveSATEstado As String + Public Property ClaveSATMunicipio As String + Public Property ClaveSATColonia As String + Public Property ClaveSATCP As String + Public Property CveMotivoTraslado As Integer + Public Property NumRegIdTrib As String + + Public Property ComExtEstado As String + Public Property ComExtMunicipio As String + Public Property ComExtColonia As String + + Public Property ApellidoPaterno As String + Public Property ApellidoMaterno As String + Public Property Nombres As String + Public Property RequiereOC As Boolean + + Public Property CargoUsados As Boolean + Public Property BonificacionUsado As Boolean + Public Property CveSATEstado As Integer + + + Public ReadOnly Property DtResultados() As DataTable + Get + DtResultados = Data + End Get + End Property + +#End Region + + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) + + If TransaccionCompartida Is Nothing Then + SqlConexion = New SqlConnection + SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + Try + SqlConexion.Open() + Catch ex As Exception + OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) + End Try + Else + SqlConexion = TransaccionCompartida.Connection + SqlTransacc = TransaccionCompartida + EsTransaccionCompartida = True + End If + + SqlCommand = New SqlCommand("", SqlConexion) + SqlAdapter = New SqlDataAdapter("", SqlConexion) + ConexionAdd() + End Sub + Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) + With SqlAdapter.SelectCommand + .Parameters.Clear() + .CommandText = StrSQL + .CommandType = TipoComando + End With + If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc + Data = New DataTable + End Sub +#Region "Conexiones" + + Private Sub ConexionAdd() + If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + Try + DataAdapter("PA_Sis_RegistrarConexion") + With SqlAdapter.SelectCommand.Parameters + .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name + .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) + .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output + End With + SqlAdapter.Fill(Data) + CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + End If + End Sub + + Private Sub ConexionClose() + If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + + DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) + + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + CveConexion = 0 + End If + + End Sub +#End Region + Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) + With SqlCommand + .Parameters.Clear() + .CommandText = pStrSQL + .CommandType = TipoComando + End With + + If Not SqlTransacc Is Nothing Then SqlCommand.Transaction = SqlTransacc + + End Sub + Public Function IniciaTransacSQL() As SqlTransaction + If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() + Return SqlTransacc + End Function + Public Sub RollBack() + SqlTransacc.Rollback() + End Sub + Public Sub Commit() + SqlTransacc.Commit() + SqlTransacc = Nothing + End Sub + Public Function GetClientes(CveCliente As Integer, Nombre As String, Codigo As String, NombreCorto As String, RFC As String, Telefono As String, Mail As String, CveSubProyecto As Integer, + CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional Notificar As String = "-1", Optional CvePrecioLista As Integer = -1, Optional CveClienteClasificacion As Integer = -1, + Optional TipoCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PermiteCreditoFiltro As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveUsuarioConsulta As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_ClientesGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@Nombre", SqlDbType.VarChar).Value = Nombre + .Add("@Codigo", SqlDbType.VarChar).Value = Codigo + .Add("@NombreCorto", SqlDbType.VarChar).Value = NombreCorto + .Add("@RFC", SqlDbType.VarChar).Value = RFC + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@Mail", SqlDbType.VarChar).Value = Mail + .Add("@Notificar", SqlDbType.VarChar).Value = Notificar + .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion + .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@PermiteCredito", SqlDbType.Int).Value = PermiteCreditoFiltro + .Add("@TopSelect", SqlDbType.Int).Value = TopSelect + End With + Try + SqlAdapter.Fill(Data) + If Data.Rows.Count > 0 Then + _CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero + _Nombre = Data.Rows(0)("Nombre").ToString + _NombreComercial = Data.Rows(0)("NombreComercial").ToString + _Codigo = Data.Rows(0)("Codigo").ToString + _Direccion = Data.Rows(0)("Direccion").ToString + _NoExt = Data.Rows(0)("NoExt").ToString + _NoInt = Data.Rows(0)("NoInt").ToString + _Colonia = Data.Rows(0)("Colonia").ToString + _Localidad = Data.Rows(0)("Localidad").ToString + _Ciudad = Data.Rows(0)("Ciudad").ToString + _Estado = Data.Rows(0)("Estado").ToString + _Pais = Data.Rows(0)("Pais").ToString + _RFC = Data.Rows(0)("RFC").ToString().ToString + _CP = Data.Rows(0)("CP").ToString + _Telefono = Data.Rows(0)("Telefono").ToString + _Contacto = Data.Rows(0)("Contacto").ToString + _Mail = Data.Rows(0)("Mail").ToString + _MailCotizacion = Data.Rows(0)("MailCotizacion").ToString + _NotificarA = Data.Rows(0)("NotificarA").ToString + _Pagina = Data.Rows(0)("Pagina").ToString + _Giro = Data.Rows(0)("Giro").ToString + _CvePrecioLista = Data.Rows(0)("CvePrecioLista").ToString.ToEntero + _EnviarFactura = Data.Rows(0)("EnviarFactura").ToString = "Si" + _RetIVA = Data.Rows(0)("RetIVA").ToString.ToDouble + _RetISR = Data.Rows(0)("RetISR").ToString.ToDouble + _RetieneIVAFletes = CBool(Data.Rows(0)("RetIVAFletes")) + _Estatus = Data.Rows(0)("Estatus").ToString = "Activo" + _FechaIng = Data.Rows(0)("Fecha").ToString.ToDate + _Usuario = Data.Rows(0)("Usuario").ToString + _NombreCorto = Data.Rows(0)("NombreCorto").ToString + _Vendedor = Data.Rows(0)("CveVendedor").ToString + _PlazoCobranza = Data.Rows(0)("PlazoCobranza").ToString.ToEntero + _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 + _IdCtaContClientes = Data.Rows(0)("IdCtaContClientes").ToString.ToEntero + _IdCtaContMonedaExtranjera = Data.Rows(0)("IdCtaContMonedaExtranjera").ToString.ToEntero + _IdCtaContComplementaria = Data.Rows(0)("IdCtaContComplementaria").ToString.ToEntero + _IdCtaContAnticipos = Data.Rows(0)("IdCtaContAnticipos").ToString.ToEntero + _IdCtaContRetIVA = Data.Rows(0)("IdCtaContRetIVA").ToString.ToEntero + _IdCtaContRetISR = Data.Rows(0)("IdCtaContRetISR").ToString.ToEntero _IdCtaContFondoGarantia = Data.Rows(0)("IdCtaContFondoGarantia").ToString.ToEntero '_ConvenioCIE = Data.Rows(0)("ConvenioCIE").ToString - _FormaFacturacion = Data(0)("FormaFacturacion").ToString - _LimiteCredito = Data(0)("LimiteCredito").ToString.ToDouble - '_NumCtaPago = Data(0)("NumCtaPago").ToString - '_CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero - _AplicaFEMSA = CBool(Data(0)("AplicaFEMSA").ToString) - _FEMSA_NumSociedad = Data(0)("FEMSA_NumSociedad").ToString - _FEMSA_NumProveedor = Data(0)("FEMSA_NumProveedor").ToString - _FEMSA_Mail = Data(0)("FEMSA_Mail").ToString - _AplicaDetallista = CBool(Data(0)("AplicaDetallista").ToString) - _Detallista_GLNComprador = Data(0)("Detallista_GLNComprador").ToString - _Detallista_Departamento = Data(0)("Detallista_Departamento").ToString - _Detallista_GLNVendedor = Data(0)("Detallista_GLNVendedor").ToString - _Detallista_NumProveedor = Data(0)("Detallista_NumProveedor").ToString - _SevenEleven_NumProveedor = Data(0)("SevenEleven_NumProveedor").ToString - _TelefonoExtension = Data(0)("TelefonoExtension").ToString - _TelefonoOtros = Data(0)("TelefonoOtros").ToString - AplicaFord = CBool(Data(0)("AplicaFord").ToString) - Ford_GSDB = Data(0)("Ford_GSDB").ToString - PermiteCredito = CBool(Data(0)("PermiteCredito").ToString) - CveUsuarioResponsable = Data(0)("CveUsuarioResponsable").ToString.ToEntero - CveClasificacion = Data(0)("CveClienteClasificacion").ToString.ToEntero - CveCondicionEntrega = Data(0)("CveCondicionEntrega").ToString.ToEntero - _TipoCliente = Data(0)("TipoCliente").ToString.ToEntero - - _IdCtaContCompClientes = Data.Rows(0)("IdCtaContCompClientes").ToString.ToEntero - _IdCtaContCompAnticipos = Data.Rows(0)("IdCtaContCompAnticipos").ToString.ToEntero - - _IdCtaMonedaExtranjera = Data.Rows(0)("IdCtaContMonedaExtranjera").ToString.ToEntero - _IdCtaMonedaExtranjeraAnticipos = Data.Rows(0)("IdCtaContMonedaExtranjeraAnticipos").ToString.ToEntero - ImprimeNombreSucursal = CBool(Data.Rows(0)("ImprimeNombreSucursal")) - SubProyecto = Data.Rows(0)("SubProyecto").ToString - _CveSubProyecto = Data.Rows(0)("CveSubProyecto").ToString.ToEntero - _CobranzaContacto = Data.Rows(0)("CobranzaContacto").ToString - _CobranzaCorreo = Data.Rows(0)("CobranzaCorreo").ToString - _CobranzaTelefono = Data.Rows(0)("CobranzaTelefono").ToString - _CobranzaNoExt = Data.Rows(0)("CobranzaExt").ToString - _Horario = Data.Rows(0)("Horario").ToString - _PortalFacturacion = Data.Rows(0)("PortalFacturacion").ToString - _DiasEspecificos = Data.Rows(0)("DiasPago").ToString - _Documentacion = Data.Rows(0)("Documentacion").ToString - _UsuarioPortal = Data.Rows(0)("UsuarioPortal").ToString - _ContraseñaPortal = Data.Rows(0)("PasswordPortal").ToString - _DiasRevision = Data.Rows(0)("DiasRevision").ToString - _ObservacionRevision = Data.Rows(0)("ObservacionRevision").ToString - _ReferenciaFiscal = Data.Rows(0)("ReferenciaFiscal").ToString - _Celular = Data.Rows(0)("Celular").ToString - _ExtOtros = Data.Rows(0)("ExtOtros").ToString - - - _CveUsoCFDI = Data(0)("CveUsoCFDI").ToString.ToEntero - _CveFormaPago33 = Data(0)("CveFormaPago33").ToString.ToEntero - _CveMetodoPago33 = Data(0)("CveMetodoPago33").ToString.ToEntero - - _CveClienteCorporativo = Data(0)("CveClienteCorporativo").ToString - _DesglosaIEPS = CType(Data(0)("DesglosaIEPS"), Boolean) - _NoDesglosaIVA = CType(Data(0)("NoDesglosaIVA"), Boolean) - - _AplicaComercioExterior = CType(Data(0)("AplicaComercioExterior"), Boolean) - _CveTipoOperacion = Data(0)("CveTipoOperacion").ToString.ToEntero - _CvePedimento = Data(0)("CvePedimento").ToString.ToEntero - _CveIncoterm = Data(0)("CveIncoterm").ToString.ToEntero - _ClaveSATTipoOperacionDescripcion = Data(0)("ClaveSATTipoOperacionDescripcion").ToString - _ClaveSATPedimentoDescripcion = Data(0)("ClaveSATPedimentoDescripcion").ToString - _ClaveSATIncotermDescripcion = Data(0)("ClaveSATIncotermDescripcion").ToString - _CvePais = Data(0)("CvePais").ToString.ToEntero - _CveEstado = Data(0)("CveEstado").ToString.ToEntero - _CveMunicipio = Data(0)("CveMunicipio").ToString.ToEntero - _CveColonia = Data(0)("CveColonia").ToString.ToEntero - _ClaveSATPais = Data(0)("ClaveSATPais").ToString - _ClaveSATEstado = Data(0)("ClaveSATEstado").ToString - _ClaveSATMunicipio = Data(0)("ClaveSATMunicipio").ToString - _ClaveSATColonia = Data(0)("ClaveSATColonia").ToString - _ClaveSATCP = Data(0)("ClaveSATCP").ToString - _CveMotivoTraslado = Data(0)("CveMotivoTraslado").ToString.ToEntero - _NumRegIdTrib = Data(0)("NumRegIdTrib").ToString - - _ComExtEstado = Data(0)("ComExtEstado").ToString - _ComExtMunicipio = Data(0)("ComExtMunicipio").ToString - _ComExtColonia = Data(0)("ComExtColonia").ToString - - _ApellidoPaterno = Data(0)("ApellidoPaterno").ToString - _ApellidoMaterno = Data(0)("ApellidoMaterno").ToString - _Nombres = Data(0)("Nombres").ToString - _RequiereOC = CBool(Data(0)("RequiereOC")) - _CargoUsados = CBool(Data(0)("CargoUsado")) - _BonificacionUsado = CBool(Data(0)("BonificacionUsado")) - _CveSATEstado = Data(0)("CveSATEstado").ToString.ToEntero - - End If - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al consultar el Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetSiguienteCodigoCliente(CveEmpresa As Integer) As Integer - - Dim Codigo As Integer = 0 - - DataAdapter("PA_Vta_ClientesSiguienteCodigoGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Codigo", SqlDbType.Int).Direction = ParameterDirection.Output - End With - Try - SqlAdapter.Fill(Data) - Codigo = SqlAdapter.SelectCommand.Parameters("@Codigo").Value.ToString.ToEntero - Catch ex As Exception - OnError("Ocurrió un error al Obtener el Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Codigo - End Function - - - Public Function RegistrarCliente(CveCliente As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_ClientesRegistrar") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al Registrar el Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function VincularCuentasContables(IdCtaContClientes As Integer, IdCtaContAnticipos As Integer, IdCtaContRetIVA As Integer, IdCtaContRetISR As Integer, CveCliente As Integer, Optional IdCtaContComplementaria As Integer = -1, Optional IdCtaContMonedaExtranjera As Integer = -1, Optional IdCtaContMonedaExtranjeraAnticipos As Integer = -1, Optional IdCtaContCompAnticipos As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_ClientesCuentasContablesUpdate") - - With SqlAdapter.SelectCommand.Parameters - - 'Proveedores - .Add("@IdCtaContClientes", SqlDbType.Int).Value = IdCtaContClientes - - 'Anticipos - .Add("@IdCtaContAnticipos", SqlDbType.Int).Value = IdCtaContAnticipos - - 'IVA - .Add("@IdCtaContRetIVA", SqlDbType.Int).Value = IdCtaContRetIVA - - 'ISR - .Add("@IdCtaContRetISR", SqlDbType.Int).Value = IdCtaContRetISR - - 'Complementaria - .Add("@IdCtaContComplementaria", SqlDbType.Int).Value = IdCtaContComplementaria - - 'Moneda Extranjera - .Add("@IdCtaContMonedaExtranjera", SqlDbType.Int).Value = IdCtaContMonedaExtranjera - - 'Anticipos Moneda Extranjera - .Add("@IdCtaContMonedaExtranjeraAnticipos", SqlDbType.Int).Value = IdCtaContMonedaExtranjeraAnticipos - - 'Anticipos Complementaria - .Add("@IdCtaContCompAnticipos", SqlDbType.Int).Value = IdCtaContCompAnticipos - - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2601;") Or Ex1.Message.Contains("Número: 2627;") Then - - Alert("Los cambios en el cliente no se pudieron realizar ", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - 'SqlAdapter.Dispose() - Return Retorno - End Function - Public Function GetHistorialVentas(CveCliente As Integer, CveEmpresa As Integer, Optional SelectTop As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional TipoDocto As String = "-1", Optional CveEstatusFactura As Integer = -1, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_ClienteHistorialVentas") + _FormaFacturacion = Data(0)("FormaFacturacion").ToString + _LimiteCredito = Data(0)("LimiteCredito").ToString.ToDouble + '_NumCtaPago = Data(0)("NumCtaPago").ToString + '_CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero + _AplicaFEMSA = CBool(Data(0)("AplicaFEMSA").ToString) + _FEMSA_NumSociedad = Data(0)("FEMSA_NumSociedad").ToString + _FEMSA_NumProveedor = Data(0)("FEMSA_NumProveedor").ToString + _FEMSA_Mail = Data(0)("FEMSA_Mail").ToString + _AplicaDetallista = CBool(Data(0)("AplicaDetallista").ToString) + _Detallista_GLNComprador = Data(0)("Detallista_GLNComprador").ToString + _Detallista_Departamento = Data(0)("Detallista_Departamento").ToString + _Detallista_GLNVendedor = Data(0)("Detallista_GLNVendedor").ToString + _Detallista_NumProveedor = Data(0)("Detallista_NumProveedor").ToString + _SevenEleven_NumProveedor = Data(0)("SevenEleven_NumProveedor").ToString + _TelefonoExtension = Data(0)("TelefonoExtension").ToString + _TelefonoOtros = Data(0)("TelefonoOtros").ToString + AplicaFord = CBool(Data(0)("AplicaFord").ToString) + Ford_GSDB = Data(0)("Ford_GSDB").ToString + PermiteCredito = CBool(Data(0)("PermiteCredito").ToString) + CveUsuarioResponsable = Data(0)("CveUsuarioResponsable").ToString.ToEntero + CveClasificacion = Data(0)("CveClienteClasificacion").ToString.ToEntero + CveCondicionEntrega = Data(0)("CveCondicionEntrega").ToString.ToEntero + _TipoCliente = Data(0)("TipoCliente").ToString.ToEntero + + _IdCtaContCompClientes = Data.Rows(0)("IdCtaContCompClientes").ToString.ToEntero + _IdCtaContCompAnticipos = Data.Rows(0)("IdCtaContCompAnticipos").ToString.ToEntero + + _IdCtaMonedaExtranjera = Data.Rows(0)("IdCtaContMonedaExtranjera").ToString.ToEntero + _IdCtaMonedaExtranjeraAnticipos = Data.Rows(0)("IdCtaContMonedaExtranjeraAnticipos").ToString.ToEntero + ImprimeNombreSucursal = CBool(Data.Rows(0)("ImprimeNombreSucursal")) + SubProyecto = Data.Rows(0)("SubProyecto").ToString + _CveSubProyecto = Data.Rows(0)("CveSubProyecto").ToString.ToEntero + _CobranzaContacto = Data.Rows(0)("CobranzaContacto").ToString + _CobranzaCorreo = Data.Rows(0)("CobranzaCorreo").ToString + _CobranzaTelefono = Data.Rows(0)("CobranzaTelefono").ToString + _CobranzaNoExt = Data.Rows(0)("CobranzaExt").ToString + _Horario = Data.Rows(0)("Horario").ToString + _PortalFacturacion = Data.Rows(0)("PortalFacturacion").ToString + _DiasEspecificos = Data.Rows(0)("DiasPago").ToString + _Documentacion = Data.Rows(0)("Documentacion").ToString + _UsuarioPortal = Data.Rows(0)("UsuarioPortal").ToString + _ContraseñaPortal = Data.Rows(0)("PasswordPortal").ToString + _DiasRevision = Data.Rows(0)("DiasRevision").ToString + _ObservacionRevision = Data.Rows(0)("ObservacionRevision").ToString + _ReferenciaFiscal = Data.Rows(0)("ReferenciaFiscal").ToString + _Celular = Data.Rows(0)("Celular").ToString + _ExtOtros = Data.Rows(0)("ExtOtros").ToString + + + _CveUsoCFDI = Data(0)("CveUsoCFDI").ToString.ToEntero + _CveFormaPago33 = Data(0)("CveFormaPago33").ToString.ToEntero + _CveMetodoPago33 = Data(0)("CveMetodoPago33").ToString.ToEntero + + _CveClienteCorporativo = Data(0)("CveClienteCorporativo").ToString + _DesglosaIEPS = CType(Data(0)("DesglosaIEPS"), Boolean) + _NoDesglosaIVA = CType(Data(0)("NoDesglosaIVA"), Boolean) + + _AplicaComercioExterior = CType(Data(0)("AplicaComercioExterior"), Boolean) + _CveTipoOperacion = Data(0)("CveTipoOperacion").ToString.ToEntero + _CvePedimento = Data(0)("CvePedimento").ToString.ToEntero + _CveIncoterm = Data(0)("CveIncoterm").ToString.ToEntero + _ClaveSATTipoOperacionDescripcion = Data(0)("ClaveSATTipoOperacionDescripcion").ToString + _ClaveSATPedimentoDescripcion = Data(0)("ClaveSATPedimentoDescripcion").ToString + _ClaveSATIncotermDescripcion = Data(0)("ClaveSATIncotermDescripcion").ToString + _CvePais = Data(0)("CvePais").ToString.ToEntero + _CveEstado = Data(0)("CveEstado").ToString.ToEntero + _CveMunicipio = Data(0)("CveMunicipio").ToString.ToEntero + _CveColonia = Data(0)("CveColonia").ToString.ToEntero + _ClaveSATPais = Data(0)("ClaveSATPais").ToString + _ClaveSATEstado = Data(0)("ClaveSATEstado").ToString + _ClaveSATMunicipio = Data(0)("ClaveSATMunicipio").ToString + _ClaveSATColonia = Data(0)("ClaveSATColonia").ToString + _ClaveSATCP = Data(0)("ClaveSATCP").ToString + _CveMotivoTraslado = Data(0)("CveMotivoTraslado").ToString.ToEntero + _NumRegIdTrib = Data(0)("NumRegIdTrib").ToString + + _ComExtEstado = Data(0)("ComExtEstado").ToString + _ComExtMunicipio = Data(0)("ComExtMunicipio").ToString + _ComExtColonia = Data(0)("ComExtColonia").ToString + + _ApellidoPaterno = Data(0)("ApellidoPaterno").ToString + _ApellidoMaterno = Data(0)("ApellidoMaterno").ToString + _Nombres = Data(0)("Nombres").ToString + _RequiereOC = CBool(Data(0)("RequiereOC")) + _CargoUsados = CBool(Data(0)("CargoUsado")) + _BonificacionUsado = CBool(Data(0)("BonificacionUsado")) + _CveSATEstado = Data(0)("CveSATEstado").ToString.ToEntero + + End If + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar el Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetSiguienteCodigoCliente(CveEmpresa As Integer) As Integer + + Dim Codigo As Integer = 0 + + DataAdapter("PA_Vta_ClientesSiguienteCodigoGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Codigo", SqlDbType.Int).Direction = ParameterDirection.Output + End With + Try + SqlAdapter.Fill(Data) + Codigo = SqlAdapter.SelectCommand.Parameters("@Codigo").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error al Obtener el Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Codigo + End Function + + + Public Function RegistrarCliente(CveCliente As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_ClientesRegistrar") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al Registrar el Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function VincularCuentasContables(IdCtaContClientes As Integer, IdCtaContAnticipos As Integer, IdCtaContRetIVA As Integer, IdCtaContRetISR As Integer, CveCliente As Integer, Optional IdCtaContComplementaria As Integer = -1, Optional IdCtaContMonedaExtranjera As Integer = -1, Optional IdCtaContMonedaExtranjeraAnticipos As Integer = -1, Optional IdCtaContCompAnticipos As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_ClientesCuentasContablesUpdate") + + With SqlAdapter.SelectCommand.Parameters + + 'Proveedores + .Add("@IdCtaContClientes", SqlDbType.Int).Value = IdCtaContClientes + + 'Anticipos + .Add("@IdCtaContAnticipos", SqlDbType.Int).Value = IdCtaContAnticipos + + 'IVA + .Add("@IdCtaContRetIVA", SqlDbType.Int).Value = IdCtaContRetIVA + + 'ISR + .Add("@IdCtaContRetISR", SqlDbType.Int).Value = IdCtaContRetISR + + 'Complementaria + .Add("@IdCtaContComplementaria", SqlDbType.Int).Value = IdCtaContComplementaria + + 'Moneda Extranjera + .Add("@IdCtaContMonedaExtranjera", SqlDbType.Int).Value = IdCtaContMonedaExtranjera + + 'Anticipos Moneda Extranjera + .Add("@IdCtaContMonedaExtranjeraAnticipos", SqlDbType.Int).Value = IdCtaContMonedaExtranjeraAnticipos + + 'Anticipos Complementaria + .Add("@IdCtaContCompAnticipos", SqlDbType.Int).Value = IdCtaContCompAnticipos + + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2601;") Or Ex1.Message.Contains("Número: 2627;") Then + + Alert("Los cambios en el cliente no se pudieron realizar ", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + 'SqlAdapter.Dispose() + Return Retorno + End Function + Public Function GetHistorialVentas(CveCliente As Integer, CveEmpresa As Integer, Optional SelectTop As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional TipoDocto As String = "-1", Optional CveEstatusFactura As Integer = -1, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_ClienteHistorialVentas") With SqlAdapter.SelectCommand.Parameters .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@SelectTop", SqlDbType.Int).Value = SelectTop @@ -531,538 +531,538 @@ Public Class ClsClientes End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al consultar el Historial de Ventas del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetCotizaciones(CveCliente As Integer, Optional SelectTop As Integer = -1, Optional CveClienteSucursal As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_ClienteCotizaciones") - SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente - SqlAdapter.SelectCommand.Parameters.Add("@SelectTop", SqlDbType.Int).Value = SelectTop - SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal - - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al consultar las Cotizaciones del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function AddCliente(Nombre As String, NombreComercial As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, - Contacto As String, Mail As String, MailCotizacion As String, Notificar As String, Pagina As String, Giro As String, CvePrecioLista As Integer, EnviarFactura As Boolean, RetIVA As Double, RetISR As Double, - RetieneIVAFletes As Boolean, CveUsuario As Integer, CveEmpresa As Integer, NombreCorto As String, CveVendedor As Integer, PlazoCobranza As Integer, PlazoCobranzaRemision As Integer, RecepcionPagos As String, TipoPago As String, - IdCtaContClientes As Integer, CtaContClientes As String, IdCtaContAnticipos As Integer, CtaContAnticipos As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaFondoGarantia As Integer, CtaFondoGarantia As String, - IdCtaContCompClientes As Integer, CtaCompClientes As String, IdCtaContCompAnticipos As Integer, CtaCompAnticipos As String, - FormaFacturacion As String, Codigo As String, LimiteCredito As Double, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, FEMSA_NumProveedor As String, - FEMSA_Mail As String, AplicaDetallista As Boolean, Detallista_GLNComprador As String, Detallista_Departamento As String, Detallista_GLNVendedor As String, Detallista_NumProveedor As String, - SevenEleven_NumProveedor As String, AplicaFord As Boolean, Ford_GSDB As String, TelefonoExtension As String, TelefonoOtros As String, PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer, - Optional CveClienteClasificacion As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, - Optional CveCondicionEntrega As Integer = -1, Optional ImprimeNombreSucursal As Boolean = True, Optional CveZonaHoraria As Integer = -1, Optional CobranzaContacto As String = "-1", Optional CobranzaTelefono As String = "-1", Optional CobranzaExt As String = "-1", Optional CobranzaCorreo As String = "-1", - Optional Horario As String = "-1", Optional PortalFacturacion As String = "-1", Optional Documentacion As String = "-1", Optional DiasEspecifico As String = "-1", Optional UsuarioPortal As String = "-1", Optional ContraseñaPortal As String = "-1", Optional DiasRevision As String = "-1", - Optional ObservacionRevsion As String = "-1", Optional ReferenciaFiscal As String = "-1", Optional Celular As String = "-1", Optional ExtOtros As String = "-1", Optional CveUsoCFDI As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional DesglosaIEPS As Boolean = True, - Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, - Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False, - Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, - Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - - DataAdapter("PA_ClientesAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@Nombre", SqlDbType.VarChar).Value = Nombre - .Add("@NombreComercial", SqlDbType.VarChar).Value = NombreComercial - .Add("@Direccion", SqlDbType.VarChar).Value = Direccion - .Add("@NoExt", SqlDbType.VarChar).Value = NoExt - .Add("@NoInt", SqlDbType.VarChar).Value = NoInt - .Add("@Colonia", SqlDbType.VarChar).Value = Colonia - .Add("@Localidad", SqlDbType.VarChar).Value = Localidad - .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad - .Add("@Estado", SqlDbType.VarChar).Value = Estado - .Add("@Pais", SqlDbType.VarChar).Value = Pais - .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@CP", SqlDbType.VarChar).Value = CP - .Add("@Telefono", SqlDbType.VarChar).Value = Telefono - .Add("@TelefonoExtension", SqlDbType.VarChar).Value = TelefonoExtension - .Add("@TelefonoOtro", SqlDbType.VarChar).Value = TelefonoOtros - .Add("@Contacto", SqlDbType.VarChar).Value = Contacto - .Add("@Mail", SqlDbType.VarChar).Value = Mail - .Add("@MailCotizacion", SqlDbType.VarChar).Value = MailCotizacion - .Add("@Notificar", SqlDbType.VarChar).Value = Notificar - .Add("@Pagina", SqlDbType.VarChar).Value = Pagina - .Add("@Giro", SqlDbType.VarChar).Value = Giro - .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista - .Add("@EnviarFactura", SqlDbType.Bit).Value = If(EnviarFactura, 1, 0) - .Add("@RetIVA", SqlDbType.Float).Value = RetIVA - .Add("@RetISR", SqlDbType.Float).Value = RetISR - .Add("@RetIVAFletes", SqlDbType.Bit).Value = RetieneIVAFletes - .Add("@NombreCorto", SqlDbType.VarChar).Value = NombreCorto - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@PlazoCobranza", SqlDbType.Int).Value = PlazoCobranza - .Add("@PlazoCobranzaRemision", SqlDbType.Int).Value = PlazoCobranzaRemision - .Add("@RecepcionPagos", SqlDbType.VarChar).Value = RecepcionPagos - .Add("@TipoPago", SqlDbType.VarChar).Value = TipoPago - - .Add("@IdCtaContClientes", SqlDbType.Int).Value = IdCtaContClientes - .Add("@CtaContClientes", SqlDbType.VarChar).Value = CtaContClientes - - .Add("@IdCtaContAnticipos", SqlDbType.Int).Value = IdCtaContAnticipos - .Add("@CtaContAnticipos", SqlDbType.VarChar).Value = CtaContAnticipos - - .Add("@IdCtaContRetIVA", SqlDbType.Int).Value = IdCtaContRetIVA - .Add("@CtaContRetIVA", SqlDbType.VarChar).Value = CtaContRetIVA - - .Add("@IdCtaContRetISR", SqlDbType.Int).Value = IdCtaContRetISR - .Add("@CtaContRetISR", SqlDbType.VarChar).Value = CtaContRetISR - - .Add("@IdCtaContFondoGarantia", SqlDbType.Int).Value = IdCtaFondoGarantia - .Add("@CtaContFondoGarantia", SqlDbType.VarChar).Value = CtaFondoGarantia - - .Add("@IdCtaContCompClientes", SqlDbType.Int).Value = IdCtaContCompClientes - .Add("@CtaContCompClientes", SqlDbType.VarChar).Value = CtaCompClientes - - .Add("@IdCtaContCompAnticipos", SqlDbType.Int).Value = IdCtaContCompAnticipos + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar el Historial de Ventas del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetCotizaciones(CveCliente As Integer, Optional SelectTop As Integer = -1, Optional CveClienteSucursal As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_ClienteCotizaciones") + SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente + SqlAdapter.SelectCommand.Parameters.Add("@SelectTop", SqlDbType.Int).Value = SelectTop + SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar las Cotizaciones del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function AddCliente(Nombre As String, NombreComercial As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, + Contacto As String, Mail As String, MailCotizacion As String, Notificar As String, Pagina As String, Giro As String, CvePrecioLista As Integer, EnviarFactura As Boolean, RetIVA As Double, RetISR As Double, + RetieneIVAFletes As Boolean, CveUsuario As Integer, CveEmpresa As Integer, NombreCorto As String, CveVendedor As Integer, PlazoCobranza As Integer, PlazoCobranzaRemision As Integer, RecepcionPagos As String, TipoPago As String, + IdCtaContClientes As Integer, CtaContClientes As String, IdCtaContAnticipos As Integer, CtaContAnticipos As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaFondoGarantia As Integer, CtaFondoGarantia As String, + IdCtaContCompClientes As Integer, CtaCompClientes As String, IdCtaContCompAnticipos As Integer, CtaCompAnticipos As String, + FormaFacturacion As String, Codigo As String, LimiteCredito As Double, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, FEMSA_NumProveedor As String, + FEMSA_Mail As String, AplicaDetallista As Boolean, Detallista_GLNComprador As String, Detallista_Departamento As String, Detallista_GLNVendedor As String, Detallista_NumProveedor As String, + SevenEleven_NumProveedor As String, AplicaFord As Boolean, Ford_GSDB As String, TelefonoExtension As String, TelefonoOtros As String, PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer, + Optional CveClienteClasificacion As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, + Optional CveCondicionEntrega As Integer = -1, Optional ImprimeNombreSucursal As Boolean = True, Optional CveZonaHoraria As Integer = -1, Optional CobranzaContacto As String = "-1", Optional CobranzaTelefono As String = "-1", Optional CobranzaExt As String = "-1", Optional CobranzaCorreo As String = "-1", + Optional Horario As String = "-1", Optional PortalFacturacion As String = "-1", Optional Documentacion As String = "-1", Optional DiasEspecifico As String = "-1", Optional UsuarioPortal As String = "-1", Optional ContraseñaPortal As String = "-1", Optional DiasRevision As String = "-1", + Optional ObservacionRevsion As String = "-1", Optional ReferenciaFiscal As String = "-1", Optional Celular As String = "-1", Optional ExtOtros As String = "-1", Optional CveUsoCFDI As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional DesglosaIEPS As Boolean = True, + Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, + Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False, + Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, + Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + + DataAdapter("PA_ClientesAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@Nombre", SqlDbType.VarChar).Value = Nombre + .Add("@NombreComercial", SqlDbType.VarChar).Value = NombreComercial + .Add("@Direccion", SqlDbType.VarChar).Value = Direccion + .Add("@NoExt", SqlDbType.VarChar).Value = NoExt + .Add("@NoInt", SqlDbType.VarChar).Value = NoInt + .Add("@Colonia", SqlDbType.VarChar).Value = Colonia + .Add("@Localidad", SqlDbType.VarChar).Value = Localidad + .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad + .Add("@Estado", SqlDbType.VarChar).Value = Estado + .Add("@Pais", SqlDbType.VarChar).Value = Pais + .Add("@RFC", SqlDbType.VarChar).Value = RFC + .Add("@CP", SqlDbType.VarChar).Value = CP + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@TelefonoExtension", SqlDbType.VarChar).Value = TelefonoExtension + .Add("@TelefonoOtro", SqlDbType.VarChar).Value = TelefonoOtros + .Add("@Contacto", SqlDbType.VarChar).Value = Contacto + .Add("@Mail", SqlDbType.VarChar).Value = Mail + .Add("@MailCotizacion", SqlDbType.VarChar).Value = MailCotizacion + .Add("@Notificar", SqlDbType.VarChar).Value = Notificar + .Add("@Pagina", SqlDbType.VarChar).Value = Pagina + .Add("@Giro", SqlDbType.VarChar).Value = Giro + .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista + .Add("@EnviarFactura", SqlDbType.Bit).Value = If(EnviarFactura, 1, 0) + .Add("@RetIVA", SqlDbType.Float).Value = RetIVA + .Add("@RetISR", SqlDbType.Float).Value = RetISR + .Add("@RetIVAFletes", SqlDbType.Bit).Value = RetieneIVAFletes + .Add("@NombreCorto", SqlDbType.VarChar).Value = NombreCorto + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@PlazoCobranza", SqlDbType.Int).Value = PlazoCobranza + .Add("@PlazoCobranzaRemision", SqlDbType.Int).Value = PlazoCobranzaRemision + .Add("@RecepcionPagos", SqlDbType.VarChar).Value = RecepcionPagos + .Add("@TipoPago", SqlDbType.VarChar).Value = TipoPago + + .Add("@IdCtaContClientes", SqlDbType.Int).Value = IdCtaContClientes + .Add("@CtaContClientes", SqlDbType.VarChar).Value = CtaContClientes + + .Add("@IdCtaContAnticipos", SqlDbType.Int).Value = IdCtaContAnticipos + .Add("@CtaContAnticipos", SqlDbType.VarChar).Value = CtaContAnticipos + + .Add("@IdCtaContRetIVA", SqlDbType.Int).Value = IdCtaContRetIVA + .Add("@CtaContRetIVA", SqlDbType.VarChar).Value = CtaContRetIVA + + .Add("@IdCtaContRetISR", SqlDbType.Int).Value = IdCtaContRetISR + .Add("@CtaContRetISR", SqlDbType.VarChar).Value = CtaContRetISR + + .Add("@IdCtaContFondoGarantia", SqlDbType.Int).Value = IdCtaFondoGarantia + .Add("@CtaContFondoGarantia", SqlDbType.VarChar).Value = CtaFondoGarantia + + .Add("@IdCtaContCompClientes", SqlDbType.Int).Value = IdCtaContCompClientes + .Add("@CtaContCompClientes", SqlDbType.VarChar).Value = CtaCompClientes + + .Add("@IdCtaContCompAnticipos", SqlDbType.Int).Value = IdCtaContCompAnticipos .Add("@CtaContCompAnticipos", SqlDbType.VarChar).Value = CtaCompAnticipos - .Add("@FormaFacturacion", SqlDbType.VarChar).Value = FormaFacturacion - .Add("@Codigo", SqlDbType.VarChar).Value = Codigo + .Add("@FormaFacturacion", SqlDbType.VarChar).Value = FormaFacturacion + .Add("@Codigo", SqlDbType.VarChar).Value = Codigo .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito - .Add("@AplicaFEMSA", SqlDbType.Bit).Value = If(AplicaFEMSA, 1, 0) - .Add("@FEMSA_NumSociedad", SqlDbType.VarChar).Value = FEMSA_NumSociedad - .Add("@FEMSA_NumProveedor", SqlDbType.VarChar).Value = FEMSA_NumProveedor - .Add("@FEMSA_Mail", SqlDbType.VarChar).Value = FEMSA_Mail - .Add("@AplicaDetallista", SqlDbType.Bit).Value = If(AplicaDetallista, 1, 0) - .Add("@Detallista_GLNComprador", SqlDbType.VarChar).Value = Detallista_GLNComprador - .Add("@Detallista_Departamento", SqlDbType.VarChar).Value = Detallista_Departamento - .Add("@Detallista_GLNVendedor", SqlDbType.VarChar).Value = Detallista_GLNVendedor - .Add("@Detallista_NumProveedor", SqlDbType.VarChar).Value = Detallista_NumProveedor - .Add("@SevenEleven_NumProveedor", SqlDbType.VarChar).Value = SevenEleven_NumProveedor - .Add("@AplicaFord", SqlDbType.Bit).Value = If(AplicaFord, 1, 0) - .Add("@Ford_GSDB", SqlDbType.VarChar).Value = Ford_GSDB - .Add("@PermiteCredito", SqlDbType.Bit).Value = PermiteCredito - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion - .Add("@CveUsuarioResponsable", SqlDbType.Int).Value = CveUsuarioResponsable - .Add("@CveCondicionEntrega", SqlDbType.Int).Value = CveCondicionEntrega - .Add("@ImprimeNombreSucursal", SqlDbType.Bit).Value = ImprimeNombreSucursal - .Add("@CveZonaHoraria", SqlDbType.Int).Value = CveZonaHoraria - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CobranzaContacto", SqlDbType.VarChar).Value = CobranzaContacto - .Add("@CobranzaTelefono", SqlDbType.VarChar).Value = CobranzaTelefono - .Add("@CobranzaExt", SqlDbType.VarChar).Value = CobranzaExt - .Add("@CobranzaCorreo", SqlDbType.VarChar).Value = CobranzaCorreo - .Add("@Horario", SqlDbType.VarChar).Value = Horario - .Add("@PortalFacturacion", SqlDbType.VarChar).Value = PortalFacturacion - .Add("@Documentacion", SqlDbType.VarChar).Value = Documentacion - .Add("@DiasEspecifico", SqlDbType.VarChar).Value = DiasEspecifico - .Add("@UsuarioPortal", SqlDbType.VarChar).Value = UsuarioPortal - .Add("@ContraseñaPortal", SqlDbType.VarChar).Value = ContraseñaPortal - .Add("@DiasRevision", SqlDbType.VarChar).Value = DiasRevision - .Add("@ObservacionRevision", SqlDbType.VarChar).Value = ObservacionRevsion - .Add("@ReferenciaFiscal", SqlDbType.VarChar).Value = ReferenciaFiscal - .Add("@Celular", SqlDbType.VarChar).Value = Celular - .Add("@ExtOtros", SqlDbType.VarChar).Value = ExtOtros - - .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI - .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 - .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 - - .Add("@CveClienteCorporativo", SqlDbType.Int).Value = CveClienteCorporativo - - .Add("@DesglosaIEPS", SqlDbType.Bit).Value = If(DesglosaIEPS, 1, 0) - - .Add("@AplicaComercioExterior", SqlDbType.Bit).Value = AplicaComercioExterior - .Add("@CveTipoOperacion", SqlDbType.Int).Value = CveTipoOperacion - .Add("@CvePedimento", SqlDbType.Int).Value = CvePedimento - .Add("@CveIncoterm", SqlDbType.Int).Value = CveIncoterm - .Add("@CvePais", SqlDbType.Int).Value = CvePais - .Add("@CveEstado", SqlDbType.Int).Value = CveEstado - .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio - .Add("@CveColonia", SqlDbType.Int).Value = CveColonia - - .Add("@CveMotivoTraslado", SqlDbType.TinyInt).Value = CveMotivoTraslado - .Add("@NumRegIdTrib", SqlDbType.VarChar).Value = NumRegIdTrib - - .Add("@ComExtEstado", SqlDbType.VarChar).Value = ComExtEstado - .Add("@ComExtMunicipio", SqlDbType.VarChar).Value = ComExtMunicipio - .Add("@ComExtColonia", SqlDbType.VarChar).Value = ComExtColonia - .Add("@RequiereOC", SqlDbType.Bit).Value = RequiereOC - - .Add("@LT", SqlDbType.VarChar).Value = LT - .Add("@LG", SqlDbType.VarChar).Value = LG - .Add("@EsDistribuidor", SqlDbType.Bit).Value = EsDistribuidor - .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente - .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado - .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado - .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion - - .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue - - .Add("@CorreoEntregaCompras", SqlDbType.VarChar).Value = CorreoEntregaCompras - .Add("@CorreoEntregaAlmacen", SqlDbType.VarChar).Value = CorreoEntregaAlmacen + .Add("@AplicaFEMSA", SqlDbType.Bit).Value = If(AplicaFEMSA, 1, 0) + .Add("@FEMSA_NumSociedad", SqlDbType.VarChar).Value = FEMSA_NumSociedad + .Add("@FEMSA_NumProveedor", SqlDbType.VarChar).Value = FEMSA_NumProveedor + .Add("@FEMSA_Mail", SqlDbType.VarChar).Value = FEMSA_Mail + .Add("@AplicaDetallista", SqlDbType.Bit).Value = If(AplicaDetallista, 1, 0) + .Add("@Detallista_GLNComprador", SqlDbType.VarChar).Value = Detallista_GLNComprador + .Add("@Detallista_Departamento", SqlDbType.VarChar).Value = Detallista_Departamento + .Add("@Detallista_GLNVendedor", SqlDbType.VarChar).Value = Detallista_GLNVendedor + .Add("@Detallista_NumProveedor", SqlDbType.VarChar).Value = Detallista_NumProveedor + .Add("@SevenEleven_NumProveedor", SqlDbType.VarChar).Value = SevenEleven_NumProveedor + .Add("@AplicaFord", SqlDbType.Bit).Value = If(AplicaFord, 1, 0) + .Add("@Ford_GSDB", SqlDbType.VarChar).Value = Ford_GSDB + .Add("@PermiteCredito", SqlDbType.Bit).Value = PermiteCredito + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion + .Add("@CveUsuarioResponsable", SqlDbType.Int).Value = CveUsuarioResponsable + .Add("@CveCondicionEntrega", SqlDbType.Int).Value = CveCondicionEntrega + .Add("@ImprimeNombreSucursal", SqlDbType.Bit).Value = ImprimeNombreSucursal + .Add("@CveZonaHoraria", SqlDbType.Int).Value = CveZonaHoraria + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CobranzaContacto", SqlDbType.VarChar).Value = CobranzaContacto + .Add("@CobranzaTelefono", SqlDbType.VarChar).Value = CobranzaTelefono + .Add("@CobranzaExt", SqlDbType.VarChar).Value = CobranzaExt + .Add("@CobranzaCorreo", SqlDbType.VarChar).Value = CobranzaCorreo + .Add("@Horario", SqlDbType.VarChar).Value = Horario + .Add("@PortalFacturacion", SqlDbType.VarChar).Value = PortalFacturacion + .Add("@Documentacion", SqlDbType.VarChar).Value = Documentacion + .Add("@DiasEspecifico", SqlDbType.VarChar).Value = DiasEspecifico + .Add("@UsuarioPortal", SqlDbType.VarChar).Value = UsuarioPortal + .Add("@ContraseñaPortal", SqlDbType.VarChar).Value = ContraseñaPortal + .Add("@DiasRevision", SqlDbType.VarChar).Value = DiasRevision + .Add("@ObservacionRevision", SqlDbType.VarChar).Value = ObservacionRevsion + .Add("@ReferenciaFiscal", SqlDbType.VarChar).Value = ReferenciaFiscal + .Add("@Celular", SqlDbType.VarChar).Value = Celular + .Add("@ExtOtros", SqlDbType.VarChar).Value = ExtOtros + + .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI + .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 + .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 + + .Add("@CveClienteCorporativo", SqlDbType.Int).Value = CveClienteCorporativo + + .Add("@DesglosaIEPS", SqlDbType.Bit).Value = If(DesglosaIEPS, 1, 0) + + .Add("@AplicaComercioExterior", SqlDbType.Bit).Value = AplicaComercioExterior + .Add("@CveTipoOperacion", SqlDbType.Int).Value = CveTipoOperacion + .Add("@CvePedimento", SqlDbType.Int).Value = CvePedimento + .Add("@CveIncoterm", SqlDbType.Int).Value = CveIncoterm + .Add("@CvePais", SqlDbType.Int).Value = CvePais + .Add("@CveEstado", SqlDbType.Int).Value = CveEstado + .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio + .Add("@CveColonia", SqlDbType.Int).Value = CveColonia + + .Add("@CveMotivoTraslado", SqlDbType.TinyInt).Value = CveMotivoTraslado + .Add("@NumRegIdTrib", SqlDbType.VarChar).Value = NumRegIdTrib + + .Add("@ComExtEstado", SqlDbType.VarChar).Value = ComExtEstado + .Add("@ComExtMunicipio", SqlDbType.VarChar).Value = ComExtMunicipio + .Add("@ComExtColonia", SqlDbType.VarChar).Value = ComExtColonia + .Add("@RequiereOC", SqlDbType.Bit).Value = RequiereOC + + .Add("@LT", SqlDbType.VarChar).Value = LT + .Add("@LG", SqlDbType.VarChar).Value = LG + .Add("@EsDistribuidor", SqlDbType.Bit).Value = EsDistribuidor + .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado + .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado + .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion + + .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue + + .Add("@CorreoEntregaCompras", SqlDbType.VarChar).Value = CorreoEntregaCompras + .Add("@CorreoEntregaAlmacen", SqlDbType.VarChar).Value = CorreoEntregaAlmacen .Add("@CveSATEstado", SqlDbType.Int).Value = CveSATEstado .Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto - End With - Try - SqlAdapter.Fill(Data) - _CveCliente = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero - Retorno = True - Catch Ex1 As SqlException - - If Ex1.Message.Contains("Número: 2627;") Then - Alert("El Nuevo Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) - - ElseIf Ex1.Message.Contains("Número: 2601;") Then - If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then - Dim tRFC As String = Ex1.Message.Substring(194, 13) - Alert("Ya existe un cliente registrado con el mismo RFC: " & tRFC, TipoMensaje.MsgAdvertencia) - GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ya existe un cliente registrado con el mismo RFC.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)) - End If - - If Ex1.Message.Contains("IND_Clientes_Codigo") Then - Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) - GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ya existe un cliente registrado con el mismo Código.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)) - End If - Else - Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - Public Function UpdateCliente(Nombre As String, NombreComercial As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, - Contacto As String, Mail As String, MailCotizacion As String, Notificar As String, Pagina As String, Giro As String, CvePrecioLista As Integer, EnviarFactura As Boolean, RetIVA As Double, RetISR As Double, RetieneIVAFletes As Boolean, - Estatus As Boolean, NombreCorto As String, CveVendedor As Integer, PlazoCobranza As Integer, PlazoCobranzaRemision As Integer, RecepcionPagos As String, TipoPago As String, - IdCtaContClientes As Integer, CtaContClientes As String, IdCtaContAnticipos As Integer, CtaContAnticipos As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaFondoGarantia As Integer, CtaFondoGarantia As String, - IdCtaContCompClientes As Integer, CtaCompClientes As String, IdCtaContCompAnticipos As Integer, CtaCompAnticipos As String, - IdCtaContMonedaExtranjera As Integer, CtaContMonedaExtranjera As String, IdCtaContMonedaExtranjeraAnticipos As Integer, CtaContMonedaExtranjeraAnticipos As String, - FormaFacturacion As String, Codigo As String, LimiteCredito As Double, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, - FEMSA_NumProveedor As String, FEMSA_Mail As String, AplicaDetallista As Boolean, Detallista_GLNComprador As String, Detallista_Departamento As String, Detallista_GLNVendedor As String, - Detallista_NumProveedor As String, SevenEleven_NumProveedor As String, AplicaFord As Boolean, Ford_GSDB As String, CveUsuario As Integer, CveCliente As Integer, CveUsuarioModifico As Integer, CveEmpresa As Integer, TelefonoExtension As String, TelefonoOtros As String, - PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer, - Optional CveClienteClasificacion As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, Optional CveCondicionEntrega As Integer = -1, Optional ImprimeNombreSucursal As Boolean = True, Optional CveZonaHoraria As Integer = -1, - Optional CobranzaContacto As String = "-1", Optional CobranzaTelefono As String = "-1", Optional CobranzaExt As String = "-1", Optional CobranzaCorreo As String = "-1", Optional Horario As String = "-1", Optional PortalFacturacion As String = "-1", - Optional Documentacion As String = "-1", Optional DiasEspecifico As String = "-1", Optional UsuarioPortal As String = "-1", Optional ContraseñaPortal As String = "-1", Optional DiasRevision As String = "-1", - Optional ObservacionRevsion As String = "-1", Optional ReferenciaFiscal As String = "-1", Optional Celular As String = "-1", Optional ExtOtros As String = "-1", Optional CveUsoCFDI As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional DesglosaIEPS As Boolean = True, - Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, - Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", - Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, - Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", - Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False) As Boolean - - Dim Retorno As Boolean = False - - - DataAdapter("PA_ClientesUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@Nombre", SqlDbType.VarChar).Value = Nombre - .Add("@NombreComercial", SqlDbType.VarChar).Value = NombreComercial - .Add("@Direccion", SqlDbType.VarChar).Value = Direccion - .Add("@NoExt", SqlDbType.VarChar).Value = NoExt - .Add("@NoInt", SqlDbType.VarChar).Value = NoInt - .Add("@Colonia", SqlDbType.VarChar).Value = Colonia - .Add("@Localidad", SqlDbType.VarChar).Value = Localidad - .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad - .Add("@Estado", SqlDbType.VarChar).Value = Estado - .Add("@Pais", SqlDbType.VarChar).Value = Pais - .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@CP", SqlDbType.VarChar).Value = CP - .Add("@Telefono", SqlDbType.VarChar).Value = Telefono - .Add("@TelefonoExtension", SqlDbType.VarChar).Value = TelefonoExtension - .Add("@TelefonoOtro", SqlDbType.VarChar).Value = TelefonoOtros - .Add("@Contacto", SqlDbType.VarChar).Value = Contacto - .Add("@Mail", SqlDbType.VarChar).Value = Mail - .Add("@MailCotizacion", SqlDbType.VarChar).Value = MailCotizacion - .Add("@Notificar", SqlDbType.VarChar).Value = Notificar - .Add("@Pagina", SqlDbType.VarChar).Value = Pagina - .Add("@Giro", SqlDbType.VarChar).Value = Giro - .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista - .Add("@EnviarFactura", SqlDbType.Bit).Value = If(EnviarFactura, 1, 0) - .Add("@RetIVA", SqlDbType.Float).Value = RetIVA - .Add("@RetISR", SqlDbType.Float).Value = RetISR - .Add("@RetIVAFletes", SqlDbType.Bit).Value = RetieneIVAFletes - .Add("@Estatus", SqlDbType.Bit).Value = If(Estatus, 1, 0) - .Add("@NombreCorto", SqlDbType.VarChar).Value = NombreCorto - .Add("@CveVendedor", SqlDbType.VarChar).Value = CveVendedor - .Add("@PlazoCobranza", SqlDbType.Int).Value = PlazoCobranza - .Add("@PlazoCobranzaRemision", SqlDbType.Int).Value = PlazoCobranzaRemision - .Add("@RecepcionPagos", SqlDbType.VarChar).Value = RecepcionPagos - .Add("@TipoPago", SqlDbType.VarChar).Value = TipoPago - - .Add("@IdCtaContClientes", SqlDbType.Int).Value = IdCtaContClientes - .Add("@CtaContClientes", SqlDbType.VarChar).Value = CtaContClientes - - .Add("@IdCtaContAnticipos", SqlDbType.Int).Value = IdCtaContAnticipos - .Add("@CtaContAnticipos", SqlDbType.VarChar).Value = CtaContAnticipos - - .Add("@IdCtaContRetIVA", SqlDbType.Int).Value = IdCtaContRetIVA - .Add("@CtaContRetIVA", SqlDbType.VarChar).Value = CtaContRetIVA - - .Add("@IdCtaContRetISR", SqlDbType.Int).Value = IdCtaContRetISR - .Add("@CtaContRetISR", SqlDbType.VarChar).Value = CtaContRetISR - - .Add("@IdCtaContFondoGarantia", SqlDbType.Int).Value = IdCtaFondoGarantia - .Add("@CtaContFondoGarantia", SqlDbType.VarChar).Value = CtaFondoGarantia - - 'Nuevas - .Add("@IdCtaContCompClientes", SqlDbType.Int).Value = IdCtaContCompClientes - .Add("@CtaContCompClientes", SqlDbType.VarChar).Value = CtaCompClientes - - .Add("@IdCtaContCompAnticipos", SqlDbType.Int).Value = IdCtaContCompAnticipos - .Add("@CtaContCompAnticipos", SqlDbType.VarChar).Value = CtaCompAnticipos - - 'Nuevas Extranjeras - .Add("@IdCtaContMonedaExtranjera", SqlDbType.Int).Value = IdCtaContMonedaExtranjera - .Add("@CtaContMonedaExtranjera", SqlDbType.VarChar).Value = CtaContMonedaExtranjera - .Add("@IdCtaContMonedaExtranjeraAnticipos", SqlDbType.Int).Value = IdCtaContMonedaExtranjeraAnticipos + End With + Try + SqlAdapter.Fill(Data) + _CveCliente = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero + Retorno = True + Catch Ex1 As SqlException + + If Ex1.Message.Contains("Número: 2627;") Then + Alert("El Nuevo Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) + + ElseIf Ex1.Message.Contains("Número: 2601;") Then + If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then + Dim tRFC As String = Ex1.Message.Substring(194, 13) + Alert("Ya existe un cliente registrado con el mismo RFC: " & tRFC, TipoMensaje.MsgAdvertencia) + GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ya existe un cliente registrado con el mismo RFC.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)) + End If + + If Ex1.Message.Contains("IND_Clientes_Codigo") Then + Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) + GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ya existe un cliente registrado con el mismo Código.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)) + End If + Else + Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function UpdateCliente(Nombre As String, NombreComercial As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, + Contacto As String, Mail As String, MailCotizacion As String, Notificar As String, Pagina As String, Giro As String, CvePrecioLista As Integer, EnviarFactura As Boolean, RetIVA As Double, RetISR As Double, RetieneIVAFletes As Boolean, + Estatus As Boolean, NombreCorto As String, CveVendedor As Integer, PlazoCobranza As Integer, PlazoCobranzaRemision As Integer, RecepcionPagos As String, TipoPago As String, + IdCtaContClientes As Integer, CtaContClientes As String, IdCtaContAnticipos As Integer, CtaContAnticipos As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaFondoGarantia As Integer, CtaFondoGarantia As String, + IdCtaContCompClientes As Integer, CtaCompClientes As String, IdCtaContCompAnticipos As Integer, CtaCompAnticipos As String, + IdCtaContMonedaExtranjera As Integer, CtaContMonedaExtranjera As String, IdCtaContMonedaExtranjeraAnticipos As Integer, CtaContMonedaExtranjeraAnticipos As String, + FormaFacturacion As String, Codigo As String, LimiteCredito As Double, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, + FEMSA_NumProveedor As String, FEMSA_Mail As String, AplicaDetallista As Boolean, Detallista_GLNComprador As String, Detallista_Departamento As String, Detallista_GLNVendedor As String, + Detallista_NumProveedor As String, SevenEleven_NumProveedor As String, AplicaFord As Boolean, Ford_GSDB As String, CveUsuario As Integer, CveCliente As Integer, CveUsuarioModifico As Integer, CveEmpresa As Integer, TelefonoExtension As String, TelefonoOtros As String, + PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer, + Optional CveClienteClasificacion As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, Optional CveCondicionEntrega As Integer = -1, Optional ImprimeNombreSucursal As Boolean = True, Optional CveZonaHoraria As Integer = -1, + Optional CobranzaContacto As String = "-1", Optional CobranzaTelefono As String = "-1", Optional CobranzaExt As String = "-1", Optional CobranzaCorreo As String = "-1", Optional Horario As String = "-1", Optional PortalFacturacion As String = "-1", + Optional Documentacion As String = "-1", Optional DiasEspecifico As String = "-1", Optional UsuarioPortal As String = "-1", Optional ContraseñaPortal As String = "-1", Optional DiasRevision As String = "-1", + Optional ObservacionRevsion As String = "-1", Optional ReferenciaFiscal As String = "-1", Optional Celular As String = "-1", Optional ExtOtros As String = "-1", Optional CveUsoCFDI As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional DesglosaIEPS As Boolean = True, + Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, + Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", + Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, + Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", + Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False) As Boolean + + Dim Retorno As Boolean = False + + + DataAdapter("PA_ClientesUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@Nombre", SqlDbType.VarChar).Value = Nombre + .Add("@NombreComercial", SqlDbType.VarChar).Value = NombreComercial + .Add("@Direccion", SqlDbType.VarChar).Value = Direccion + .Add("@NoExt", SqlDbType.VarChar).Value = NoExt + .Add("@NoInt", SqlDbType.VarChar).Value = NoInt + .Add("@Colonia", SqlDbType.VarChar).Value = Colonia + .Add("@Localidad", SqlDbType.VarChar).Value = Localidad + .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad + .Add("@Estado", SqlDbType.VarChar).Value = Estado + .Add("@Pais", SqlDbType.VarChar).Value = Pais + .Add("@RFC", SqlDbType.VarChar).Value = RFC + .Add("@CP", SqlDbType.VarChar).Value = CP + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@TelefonoExtension", SqlDbType.VarChar).Value = TelefonoExtension + .Add("@TelefonoOtro", SqlDbType.VarChar).Value = TelefonoOtros + .Add("@Contacto", SqlDbType.VarChar).Value = Contacto + .Add("@Mail", SqlDbType.VarChar).Value = Mail + .Add("@MailCotizacion", SqlDbType.VarChar).Value = MailCotizacion + .Add("@Notificar", SqlDbType.VarChar).Value = Notificar + .Add("@Pagina", SqlDbType.VarChar).Value = Pagina + .Add("@Giro", SqlDbType.VarChar).Value = Giro + .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista + .Add("@EnviarFactura", SqlDbType.Bit).Value = If(EnviarFactura, 1, 0) + .Add("@RetIVA", SqlDbType.Float).Value = RetIVA + .Add("@RetISR", SqlDbType.Float).Value = RetISR + .Add("@RetIVAFletes", SqlDbType.Bit).Value = RetieneIVAFletes + .Add("@Estatus", SqlDbType.Bit).Value = If(Estatus, 1, 0) + .Add("@NombreCorto", SqlDbType.VarChar).Value = NombreCorto + .Add("@CveVendedor", SqlDbType.VarChar).Value = CveVendedor + .Add("@PlazoCobranza", SqlDbType.Int).Value = PlazoCobranza + .Add("@PlazoCobranzaRemision", SqlDbType.Int).Value = PlazoCobranzaRemision + .Add("@RecepcionPagos", SqlDbType.VarChar).Value = RecepcionPagos + .Add("@TipoPago", SqlDbType.VarChar).Value = TipoPago + + .Add("@IdCtaContClientes", SqlDbType.Int).Value = IdCtaContClientes + .Add("@CtaContClientes", SqlDbType.VarChar).Value = CtaContClientes + + .Add("@IdCtaContAnticipos", SqlDbType.Int).Value = IdCtaContAnticipos + .Add("@CtaContAnticipos", SqlDbType.VarChar).Value = CtaContAnticipos + + .Add("@IdCtaContRetIVA", SqlDbType.Int).Value = IdCtaContRetIVA + .Add("@CtaContRetIVA", SqlDbType.VarChar).Value = CtaContRetIVA + + .Add("@IdCtaContRetISR", SqlDbType.Int).Value = IdCtaContRetISR + .Add("@CtaContRetISR", SqlDbType.VarChar).Value = CtaContRetISR + + .Add("@IdCtaContFondoGarantia", SqlDbType.Int).Value = IdCtaFondoGarantia + .Add("@CtaContFondoGarantia", SqlDbType.VarChar).Value = CtaFondoGarantia + + 'Nuevas + .Add("@IdCtaContCompClientes", SqlDbType.Int).Value = IdCtaContCompClientes + .Add("@CtaContCompClientes", SqlDbType.VarChar).Value = CtaCompClientes + + .Add("@IdCtaContCompAnticipos", SqlDbType.Int).Value = IdCtaContCompAnticipos + .Add("@CtaContCompAnticipos", SqlDbType.VarChar).Value = CtaCompAnticipos + + 'Nuevas Extranjeras + .Add("@IdCtaContMonedaExtranjera", SqlDbType.Int).Value = IdCtaContMonedaExtranjera + .Add("@CtaContMonedaExtranjera", SqlDbType.VarChar).Value = CtaContMonedaExtranjera + .Add("@IdCtaContMonedaExtranjeraAnticipos", SqlDbType.Int).Value = IdCtaContMonedaExtranjeraAnticipos .Add("@CtaContMonedaExtranjeraAnticipos", SqlDbType.VarChar).Value = IdCtaContMonedaExtranjeraAnticipos - .Add("@FormaFacturacion", SqlDbType.VarChar).Value = FormaFacturacion - .Add("@Codigo", SqlDbType.VarChar).Value = Codigo + .Add("@FormaFacturacion", SqlDbType.VarChar).Value = FormaFacturacion + .Add("@Codigo", SqlDbType.VarChar).Value = Codigo .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito - .Add("@AplicaFEMSA", SqlDbType.Bit).Value = If(AplicaFEMSA, 1, 0) - .Add("@FEMSA_NumSociedad", SqlDbType.VarChar).Value = FEMSA_NumSociedad - .Add("@FEMSA_NumProveedor", SqlDbType.VarChar).Value = FEMSA_NumProveedor - .Add("@FEMSA_Mail", SqlDbType.VarChar).Value = FEMSA_Mail - .Add("@AplicaDetallista", SqlDbType.Bit).Value = If(AplicaDetallista, 1, 0) - .Add("@Detallista_GLNComprador", SqlDbType.VarChar).Value = Detallista_GLNComprador - .Add("@Detallista_Departamento", SqlDbType.VarChar).Value = Detallista_Departamento - .Add("@Detallista_GLNVendedor", SqlDbType.VarChar).Value = Detallista_GLNVendedor - .Add("@Detallista_NumProveedor", SqlDbType.VarChar).Value = Detallista_NumProveedor - .Add("@SevenEleven_NumProveedor", SqlDbType.VarChar).Value = SevenEleven_NumProveedor - .Add("@AplicaFord", SqlDbType.Bit).Value = If(AplicaFord, 1, 0) - .Add("@Ford_GSDB", SqlDbType.VarChar).Value = Ford_GSDB - .Add("@PermiteCredito", SqlDbType.Bit).Value = PermiteCredito - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion - .Add("@CveUsuarioResponsable", SqlDbType.Int).Value = CveUsuarioResponsable - .Add("@CveCondicionEntrega", SqlDbType.Int).Value = CveCondicionEntrega - .Add("@ImprimeNombreSucursal", SqlDbType.Int).Value = ImprimeNombreSucursal - .Add("@CveZonaHoraria", SqlDbType.Int).Value = CveZonaHoraria - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CobranzaContacto", SqlDbType.VarChar).Value = CobranzaContacto - .Add("@CobranzaTelefono", SqlDbType.VarChar).Value = CobranzaTelefono - .Add("@CobranzaExt", SqlDbType.VarChar).Value = CobranzaExt - .Add("@CobranzaCorreo", SqlDbType.VarChar).Value = CobranzaCorreo - .Add("@Horario", SqlDbType.VarChar).Value = Horario - .Add("@PortalFacturacion", SqlDbType.VarChar).Value = PortalFacturacion - .Add("@Documentacion", SqlDbType.VarChar).Value = Documentacion - .Add("@DiasEspecifico", SqlDbType.VarChar).Value = DiasEspecifico - .Add("@UsuarioPortal", SqlDbType.VarChar).Value = UsuarioPortal - .Add("@ContraseñaPortal", SqlDbType.VarChar).Value = ContraseñaPortal - .Add("@DiasRevision", SqlDbType.VarChar).Value = DiasRevision - .Add("@ObservacionRevision", SqlDbType.VarChar).Value = ObservacionRevsion - .Add("@ReferenciaFiscal", SqlDbType.VarChar).Value = ReferenciaFiscal - .Add("@Celular", SqlDbType.VarChar).Value = Celular - .Add("@ExtOtros", SqlDbType.VarChar).Value = ExtOtros - - - .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI - .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 - .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 - - .Add("@CveClienteCorporativo", SqlDbType.Int).Value = CveClienteCorporativo - - .Add("@DesglosaIEPS", SqlDbType.Bit).Value = If(DesglosaIEPS, 1, 0) - .Add("@NoDesglosaIVA", SqlDbType.Bit).Value = If(NoDesglosaIVA, 1, 0) - - .Add("@AplicaComercioExterior", SqlDbType.Bit).Value = AplicaComercioExterior - .Add("@CveTipoOperacion", SqlDbType.Int).Value = CveTipoOperacion - .Add("@CvePedimento", SqlDbType.Int).Value = CvePedimento - .Add("@CveIncoterm", SqlDbType.Int).Value = CveIncoterm - .Add("@CvePais", SqlDbType.Int).Value = CvePais - .Add("@CveEstado", SqlDbType.Int).Value = CveEstado - .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio - .Add("@CveColonia", SqlDbType.Int).Value = CveColonia - - .Add("@CveMotivoTraslado", SqlDbType.TinyInt).Value = CveMotivoTraslado - .Add("@NumRegIdTrib", SqlDbType.VarChar).Value = NumRegIdTrib - - .Add("@ComExtEstado", SqlDbType.VarChar).Value = ComExtEstado - .Add("@ComExtMunicipio", SqlDbType.VarChar).Value = ComExtMunicipio - .Add("@ComExtColonia", SqlDbType.VarChar).Value = ComExtColonia - - .Add("@ApellidoPaternoPF", SqlDbType.VarChar).Value = ApellidoPaternoPF - .Add("@ApellidoMaternoPF", SqlDbType.VarChar).Value = ApellidoMaternoPF - .Add("@NombresPF", SqlDbType.VarChar).Value = NombresPF - .Add("@RequiereOC", SqlDbType.Bit).Value = RequiereOC - - .Add("@LT", SqlDbType.VarChar).Value = LT - .Add("@LG", SqlDbType.VarChar).Value = LG - .Add("@EsDistribuidor", SqlDbType.Bit).Value = EsDistribuidor - .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente - .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado + .Add("@AplicaFEMSA", SqlDbType.Bit).Value = If(AplicaFEMSA, 1, 0) + .Add("@FEMSA_NumSociedad", SqlDbType.VarChar).Value = FEMSA_NumSociedad + .Add("@FEMSA_NumProveedor", SqlDbType.VarChar).Value = FEMSA_NumProveedor + .Add("@FEMSA_Mail", SqlDbType.VarChar).Value = FEMSA_Mail + .Add("@AplicaDetallista", SqlDbType.Bit).Value = If(AplicaDetallista, 1, 0) + .Add("@Detallista_GLNComprador", SqlDbType.VarChar).Value = Detallista_GLNComprador + .Add("@Detallista_Departamento", SqlDbType.VarChar).Value = Detallista_Departamento + .Add("@Detallista_GLNVendedor", SqlDbType.VarChar).Value = Detallista_GLNVendedor + .Add("@Detallista_NumProveedor", SqlDbType.VarChar).Value = Detallista_NumProveedor + .Add("@SevenEleven_NumProveedor", SqlDbType.VarChar).Value = SevenEleven_NumProveedor + .Add("@AplicaFord", SqlDbType.Bit).Value = If(AplicaFord, 1, 0) + .Add("@Ford_GSDB", SqlDbType.VarChar).Value = Ford_GSDB + .Add("@PermiteCredito", SqlDbType.Bit).Value = PermiteCredito + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion + .Add("@CveUsuarioResponsable", SqlDbType.Int).Value = CveUsuarioResponsable + .Add("@CveCondicionEntrega", SqlDbType.Int).Value = CveCondicionEntrega + .Add("@ImprimeNombreSucursal", SqlDbType.Int).Value = ImprimeNombreSucursal + .Add("@CveZonaHoraria", SqlDbType.Int).Value = CveZonaHoraria + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CobranzaContacto", SqlDbType.VarChar).Value = CobranzaContacto + .Add("@CobranzaTelefono", SqlDbType.VarChar).Value = CobranzaTelefono + .Add("@CobranzaExt", SqlDbType.VarChar).Value = CobranzaExt + .Add("@CobranzaCorreo", SqlDbType.VarChar).Value = CobranzaCorreo + .Add("@Horario", SqlDbType.VarChar).Value = Horario + .Add("@PortalFacturacion", SqlDbType.VarChar).Value = PortalFacturacion + .Add("@Documentacion", SqlDbType.VarChar).Value = Documentacion + .Add("@DiasEspecifico", SqlDbType.VarChar).Value = DiasEspecifico + .Add("@UsuarioPortal", SqlDbType.VarChar).Value = UsuarioPortal + .Add("@ContraseñaPortal", SqlDbType.VarChar).Value = ContraseñaPortal + .Add("@DiasRevision", SqlDbType.VarChar).Value = DiasRevision + .Add("@ObservacionRevision", SqlDbType.VarChar).Value = ObservacionRevsion + .Add("@ReferenciaFiscal", SqlDbType.VarChar).Value = ReferenciaFiscal + .Add("@Celular", SqlDbType.VarChar).Value = Celular + .Add("@ExtOtros", SqlDbType.VarChar).Value = ExtOtros + + + .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI + .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 + .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 + + .Add("@CveClienteCorporativo", SqlDbType.Int).Value = CveClienteCorporativo + + .Add("@DesglosaIEPS", SqlDbType.Bit).Value = If(DesglosaIEPS, 1, 0) + .Add("@NoDesglosaIVA", SqlDbType.Bit).Value = If(NoDesglosaIVA, 1, 0) + + .Add("@AplicaComercioExterior", SqlDbType.Bit).Value = AplicaComercioExterior + .Add("@CveTipoOperacion", SqlDbType.Int).Value = CveTipoOperacion + .Add("@CvePedimento", SqlDbType.Int).Value = CvePedimento + .Add("@CveIncoterm", SqlDbType.Int).Value = CveIncoterm + .Add("@CvePais", SqlDbType.Int).Value = CvePais + .Add("@CveEstado", SqlDbType.Int).Value = CveEstado + .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio + .Add("@CveColonia", SqlDbType.Int).Value = CveColonia + + .Add("@CveMotivoTraslado", SqlDbType.TinyInt).Value = CveMotivoTraslado + .Add("@NumRegIdTrib", SqlDbType.VarChar).Value = NumRegIdTrib + + .Add("@ComExtEstado", SqlDbType.VarChar).Value = ComExtEstado + .Add("@ComExtMunicipio", SqlDbType.VarChar).Value = ComExtMunicipio + .Add("@ComExtColonia", SqlDbType.VarChar).Value = ComExtColonia + + .Add("@ApellidoPaternoPF", SqlDbType.VarChar).Value = ApellidoPaternoPF + .Add("@ApellidoMaternoPF", SqlDbType.VarChar).Value = ApellidoMaternoPF + .Add("@NombresPF", SqlDbType.VarChar).Value = NombresPF + .Add("@RequiereOC", SqlDbType.Bit).Value = RequiereOC + + .Add("@LT", SqlDbType.VarChar).Value = LT + .Add("@LG", SqlDbType.VarChar).Value = LG + .Add("@EsDistribuidor", SqlDbType.Bit).Value = EsDistribuidor + .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado - .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion - - .Add("@CorreoEntregaCompras", SqlDbType.VarChar).Value = CorreoEntregaCompras - .Add("@CorreoEntregaAlmacen", SqlDbType.VarChar).Value = CorreoEntregaAlmacen + .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion + + .Add("@CorreoEntregaCompras", SqlDbType.VarChar).Value = CorreoEntregaCompras + .Add("@CorreoEntregaAlmacen", SqlDbType.VarChar).Value = CorreoEntregaAlmacen .Add("@CveSATEstado", SqlDbType.Int).Value = CveSATEstado .Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then Alert("El Cliente no se guardo debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia) ElseIf Ex1.Message.Contains("Número: 2601;") Then If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then - Alert($"El Cliente no se guardo debido a que el RFC {RFC} se encuentra asignado a otro cliente.", TipoMensaje.MsgAdvertencia) - End If - - If Ex1.Message.Contains("IND_Clientes_Codigo") Then - Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) - End If - - Else - Me.OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - 'Public Function UpdateClienteFactura(NumCtaPago As String, CveMetodoPago As Integer, CveCliente As Integer, CveUsuario As Integer) As Boolean - ' Dim Retorno As Boolean = False - - ' DataAdapter("PA_ClientesUpdateFactura") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@NumCtaPago", SqlDbType.VarChar).Value = NumCtaPago - ' .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago - ' .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - ' Return Retorno - 'End Function - - Public Function UpdateClientePersonaFisica(CveCliente As Integer, ApellidoPaterno As String, ApellidoMaterno As String, Nombres As String) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_ClientesUpdatePersonaFisica") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@ApellidoPaternoPF", SqlDbType.VarChar).Value = ApellidoPaterno - .Add("@ApellidoMaternoPF", SqlDbType.VarChar).Value = ApellidoMaterno - .Add("@NombresPF", SqlDbType.VarChar).Value = Nombres - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("El Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function RemoveCliente(CveCliente As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_ClientesRemove") - SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente - Data = New DataTable() - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 547;") Then - Alert("El Cliente no se pudo Eliminar por que esta siendo utilizado por un registro", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al Eliminar el Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Eliminar el Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - Public Function GetSucursales(CveCliente As Integer, Optional CveClienteSucursal As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Vta_SucursalClienteGet") - SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente - SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el las Sucursales del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno + Alert($"El Cliente no se guardo debido a que el RFC {RFC} se encuentra asignado a otro cliente.", TipoMensaje.MsgAdvertencia) + End If + + If Ex1.Message.Contains("IND_Clientes_Codigo") Then + Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) + End If + + Else + Me.OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function - Public Function GetListaSucursales(RFC As String, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1) As Boolean - Dim Retorno As Boolean = False - + 'Public Function UpdateClienteFactura(NumCtaPago As String, CveMetodoPago As Integer, CveCliente As Integer, CveUsuario As Integer) As Boolean + ' Dim Retorno As Boolean = False + + ' DataAdapter("PA_ClientesUpdateFactura") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@NumCtaPago", SqlDbType.VarChar).Value = NumCtaPago + ' .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago + ' .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + ' End With + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + ' Return Retorno + 'End Function + + Public Function UpdateClientePersonaFisica(CveCliente As Integer, ApellidoPaterno As String, ApellidoMaterno As String, Nombres As String) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_ClientesUpdatePersonaFisica") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@ApellidoPaternoPF", SqlDbType.VarChar).Value = ApellidoPaterno + .Add("@ApellidoMaternoPF", SqlDbType.VarChar).Value = ApellidoMaterno + .Add("@NombresPF", SqlDbType.VarChar).Value = Nombres + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("El Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function RemoveCliente(CveCliente As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_ClientesRemove") + SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente + Data = New DataTable() + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("El Cliente no se pudo Eliminar por que esta siendo utilizado por un registro", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al Eliminar el Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Eliminar el Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function GetSucursales(CveCliente As Integer, Optional CveClienteSucursal As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_SucursalClienteGet") + SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente + SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el las Sucursales del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetListaSucursales(RFC As String, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesSucursalesGet") SqlAdapter.SelectCommand.Parameters.Add("@RFC", SqlDbType.VarChar).Value = RFC - SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente - SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el las Sucursales del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - - 'Public Function GetEstados(Optional ClaveSATPais As String = "-1") As Boolean - ' Dim Retorno As Boolean = False - + SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente + SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el las Sucursales del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + + 'Public Function GetEstados(Optional ClaveSATPais As String = "-1") As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_ClientesEstadosGet") ' SqlAdapter.SelectCommand.Parameters.Add("@ClaveSATPais", SqlDbType.VarChar).Value = ClaveSATPais - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener el los estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener el los estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno 'End Function @@ -1082,704 +1082,704 @@ Public Class ClsClientes ' Return Retorno 'End Function - Public Function AddSucursal(CveCliente As Integer, Sucursal As String, CveUsuario As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer, - LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "") As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Vta_SucursalClienteAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@SucursalCliente", SqlDbType.VarChar).Value = Sucursal - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad - .Add("@Colonia", SqlDbType.VarChar).Value = Colonia - .Add("@CP", SqlDbType.VarChar).Value = CP - .Add("@Direccion", SqlDbType.VarChar).Value = Direccion - .Add("@Estado", SqlDbType.VarChar).Value = Estado - .Add("@Localidad", SqlDbType.VarChar).Value = Localidad - .Add("@Pais", SqlDbType.VarChar).Value = Pais - .Add("@NoExt", SqlDbType.VarChar).Value = NoExt - .Add("@NoInt", SqlDbType.VarChar).Value = NoInt - .Add("@Correo", SqlDbType.VarChar).Value = Correo - .Add("@CorreoCotizacion", SqlDbType.VarChar).Value = CorreoCotizacion - .Add("@Telefono", SqlDbType.VarChar).Value = Telefono - .Add("@Contacto", SqlDbType.VarChar).Value = Contacto - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@NumCtaPago", SqlDbType.VarChar).Value = NumCtaPago - .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago - .Add("@LimiteCredito", SqlDbType.Int).Value = LimiteCredito - .Add("@CveResponsableSucursal", SqlDbType.Int).Value = CveResponsableSucursal - - .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI - .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 - .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 - - .Add("@LT", SqlDbType.VarChar).Value = LT - .Add("@LG", SqlDbType.VarChar).Value = LG - .Add("@RFC", SqlDbType.VarChar).Value = RFC - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe una Sucursal con el mismo nombre: " & Sucursal & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al Guardar la Sucursal del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Guardar la Sucursal del Cliente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateSucursal(Sucursal As String, Estatus As Boolean, CveCliente As Integer, CveClienteSucursal As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer, - LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1") As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Vta_SucursalClienteUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@SucursalCliente", SqlDbType.VarChar).Value = Sucursal - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal - .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad - .Add("@Colonia", SqlDbType.VarChar).Value = Colonia - .Add("@CP", SqlDbType.VarChar).Value = CP - .Add("@Direccion", SqlDbType.VarChar).Value = Direccion - .Add("@Estado", SqlDbType.VarChar).Value = Estado - .Add("@Localidad", SqlDbType.VarChar).Value = Localidad - .Add("@Pais", SqlDbType.VarChar).Value = Pais - .Add("@NoExt", SqlDbType.VarChar).Value = NoExt - .Add("@NoInt", SqlDbType.VarChar).Value = NoInt - .Add("@Correo", SqlDbType.VarChar).Value = Correo - .Add("@CorreoCotizacion", SqlDbType.VarChar).Value = CorreoCotizacion - .Add("@Telefono", SqlDbType.VarChar).Value = Telefono - .Add("@Contacto", SqlDbType.VarChar).Value = Contacto - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@NumCtaPago", SqlDbType.VarChar).Value = NumCtaPago - .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago - .Add("@LimiteCredito", SqlDbType.Int).Value = LimiteCredito - .Add("@CveResponsableSucursal", SqlDbType.Int).Value = CveResponsableSucursal - - .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI33 - .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 - .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 - - - .Add("@LT", SqlDbType.VarChar).Value = LT + Public Function AddSucursal(CveCliente As Integer, Sucursal As String, CveUsuario As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer, + LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_SucursalClienteAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@SucursalCliente", SqlDbType.VarChar).Value = Sucursal + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad + .Add("@Colonia", SqlDbType.VarChar).Value = Colonia + .Add("@CP", SqlDbType.VarChar).Value = CP + .Add("@Direccion", SqlDbType.VarChar).Value = Direccion + .Add("@Estado", SqlDbType.VarChar).Value = Estado + .Add("@Localidad", SqlDbType.VarChar).Value = Localidad + .Add("@Pais", SqlDbType.VarChar).Value = Pais + .Add("@NoExt", SqlDbType.VarChar).Value = NoExt + .Add("@NoInt", SqlDbType.VarChar).Value = NoInt + .Add("@Correo", SqlDbType.VarChar).Value = Correo + .Add("@CorreoCotizacion", SqlDbType.VarChar).Value = CorreoCotizacion + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@Contacto", SqlDbType.VarChar).Value = Contacto + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@NumCtaPago", SqlDbType.VarChar).Value = NumCtaPago + .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago + .Add("@LimiteCredito", SqlDbType.Int).Value = LimiteCredito + .Add("@CveResponsableSucursal", SqlDbType.Int).Value = CveResponsableSucursal + + .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI + .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 + .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 + + .Add("@LT", SqlDbType.VarChar).Value = LT .Add("@LG", SqlDbType.VarChar).Value = LG - .Add("@RFC", SqlDbType.VarChar).Value = RFC - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe una Sucursal con el mismo nombre: " & Sucursal & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al guardar los cambios en la Sucursal del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar los cambios en la Sucursal del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function RemoveSucursal(CveCliente As Integer, CveClienteSucursal As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Vta_SucursalClienteRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 547;") Then - Alert("La Sucursal no se pudo eliminar porque está siendo usadada por un registro.", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al eliminar la Sucursal del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar la Sucursal del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateClienteIdCuenta(CveCliente As Integer, IdCtaContCliente As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ClientesUpdateCuenta") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@IdCtaContCliente", SqlDbType.VarChar).Value = IdCtaContCliente - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 547;") Then - Alert("El Proveedor no se pudo Actualizar por que está siendo utilizado por un registro", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al Actualizar el Proveedor.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Actualizar el Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetClienteImpuestosLocales(CveCliente As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesImpuestosLocalesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los datos de impuestos locales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function AddClienteImpuestosLocales(CveCliente As Integer, CveVentaDeduccion As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesImpuestosLocalesAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveVentaDeduccion", SqlDbType.Int).Value = CveVentaDeduccion - End With - - Try - SqlAdapter.Fill(Data) - - Catch ex As Exception - OnError("Ocurrió un error al tratar de agregar datos a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - Public Function GetClienteVentasDeducciones(CveCliente As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesVentasDeduccionesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los datos de las deducciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function LimpiaImpuestosLocales(CveCliente As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesImpuestosLocalesRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al limpiar la lista de deducciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - ''' Obtiene las OC No Facturas de un Cliente,El parametro OCs debe ser las "CveOrdenCompra" separadas por coma - Public Function GetVentasOCTotales(CveCliente As Integer, OCs As String, Tipo As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_VentasOCsTotales") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@OCs", SqlDbType.VarChar).Value = OCs - .Add("@Tipo", SqlDbType.Int).Value = Tipo - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los Productos de las OCs.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - ''' Obtiene las Remisiones No Facturas de un Cliente,El parametro Ventas debe ser las "CveVenta" separadas por coma - Public Function GetVentasRemisionesTotales(CveCliente As Integer, Ventas As String, Tipo As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_VentasRemisionesTotales") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@Ventas", SqlDbType.VarChar).Value = Ventas - .Add("@Tipo", SqlDbType.Int).Value = Tipo - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los Productos de las Remisiones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - ''' - ''' Obtiene las ventas que tienen Serie-Folio que no existen en la base de datos pero si en el xml y que esten en la base de datos pero no en el XML - ''' - ''' - ''' - ''' - Public Function GetVentasConciliacion(CveCliente As Integer, XML As String) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesConciliacionesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@Datos", SqlDbType.VarChar).Value = XML - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las diferencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - -#Region " Clientes Clasificaciones " - Public Function UpdateClienteClasificacion(Clasificacion As String, CveClasificacion As Integer, CveEmpresa As Integer, CveUsuario As Integer, Estatus As Boolean) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesClasificacionesUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Clasificacion", SqlDbType.VarChar).Value = Clasificacion - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("La Clasificación ya existe en el Catálogo.", TipoMensaje.MsgError) - End If - Catch ex As Exception - OnError("Ocurrió un error al Actualizar la Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function AddClienteClasificacion(Clasificacion As String, CveEmpresa As Integer, CveUsuario As Integer, Estatus As Boolean) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesClasificacionesAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@Clasificacion", SqlDbType.VarChar).Value = Clasificacion - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("La Clasificación ya existe en el Catálogo.", TipoMensaje.MsgError) - End If - Catch ex As Exception - OnError("Ocurrió un error al Guardar una Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - - Public Function GetClienteClasificacion(CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesClasificacionesGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las Clasificaciones de los Clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - - Public Function RemoveClienteClasificacion(CveClasificacion As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesClasificacionesDelete") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error eliminar la Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno + .Add("@RFC", SqlDbType.VarChar).Value = RFC + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe una Sucursal con el mismo nombre: " & Sucursal & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al Guardar la Sucursal del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar la Sucursal del Cliente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateSucursal(Sucursal As String, Estatus As Boolean, CveCliente As Integer, CveClienteSucursal As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer, + LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_SucursalClienteUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@SucursalCliente", SqlDbType.VarChar).Value = Sucursal + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad + .Add("@Colonia", SqlDbType.VarChar).Value = Colonia + .Add("@CP", SqlDbType.VarChar).Value = CP + .Add("@Direccion", SqlDbType.VarChar).Value = Direccion + .Add("@Estado", SqlDbType.VarChar).Value = Estado + .Add("@Localidad", SqlDbType.VarChar).Value = Localidad + .Add("@Pais", SqlDbType.VarChar).Value = Pais + .Add("@NoExt", SqlDbType.VarChar).Value = NoExt + .Add("@NoInt", SqlDbType.VarChar).Value = NoInt + .Add("@Correo", SqlDbType.VarChar).Value = Correo + .Add("@CorreoCotizacion", SqlDbType.VarChar).Value = CorreoCotizacion + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@Contacto", SqlDbType.VarChar).Value = Contacto + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@NumCtaPago", SqlDbType.VarChar).Value = NumCtaPago + .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago + .Add("@LimiteCredito", SqlDbType.Int).Value = LimiteCredito + .Add("@CveResponsableSucursal", SqlDbType.Int).Value = CveResponsableSucursal + + .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI33 + .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 + .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 + + + .Add("@LT", SqlDbType.VarChar).Value = LT + .Add("@LG", SqlDbType.VarChar).Value = LG + .Add("@RFC", SqlDbType.VarChar).Value = RFC + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe una Sucursal con el mismo nombre: " & Sucursal & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios en la Sucursal del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en la Sucursal del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RemoveSucursal(CveCliente As Integer, CveClienteSucursal As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_SucursalClienteRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("La Sucursal no se pudo eliminar porque está siendo usadada por un registro.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al eliminar la Sucursal del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar la Sucursal del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateClienteIdCuenta(CveCliente As Integer, IdCtaContCliente As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ClientesUpdateCuenta") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@IdCtaContCliente", SqlDbType.VarChar).Value = IdCtaContCliente + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("El Proveedor no se pudo Actualizar por que está siendo utilizado por un registro", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al Actualizar el Proveedor.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Actualizar el Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetClienteImpuestosLocales(CveCliente As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesImpuestosLocalesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos de impuestos locales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function AddClienteImpuestosLocales(CveCliente As Integer, CveVentaDeduccion As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesImpuestosLocalesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveVentaDeduccion", SqlDbType.Int).Value = CveVentaDeduccion + End With + + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error al tratar de agregar datos a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function GetClienteVentasDeducciones(CveCliente As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesVentasDeduccionesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos de las deducciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function LimpiaImpuestosLocales(CveCliente As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesImpuestosLocalesRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al limpiar la lista de deducciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno End Function -#End Region + ''' Obtiene las OC No Facturas de un Cliente,El parametro OCs debe ser las "CveOrdenCompra" separadas por coma + Public Function GetVentasOCTotales(CveCliente As Integer, OCs As String, Tipo As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasOCsTotales") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@OCs", SqlDbType.VarChar).Value = OCs + .Add("@Tipo", SqlDbType.Int).Value = Tipo + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los Productos de las OCs.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + ''' Obtiene las Remisiones No Facturas de un Cliente,El parametro Ventas debe ser las "CveVenta" separadas por coma + Public Function GetVentasRemisionesTotales(CveCliente As Integer, Ventas As String, Tipo As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasRemisionesTotales") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@Ventas", SqlDbType.VarChar).Value = Ventas + .Add("@Tipo", SqlDbType.Int).Value = Tipo + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los Productos de las Remisiones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + ''' + ''' Obtiene las ventas que tienen Serie-Folio que no existen en la base de datos pero si en el xml y que esten en la base de datos pero no en el XML + ''' + ''' + ''' + ''' + Public Function GetVentasConciliacion(CveCliente As Integer, XML As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesConciliacionesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@Datos", SqlDbType.VarChar).Value = XML + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las diferencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#Region " Clientes Clasificaciones " + Public Function UpdateClienteClasificacion(Clasificacion As String, CveClasificacion As Integer, CveEmpresa As Integer, CveUsuario As Integer, Estatus As Boolean) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesClasificacionesUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Clasificacion", SqlDbType.VarChar).Value = Clasificacion + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("La Clasificación ya existe en el Catálogo.", TipoMensaje.MsgError) + End If + Catch ex As Exception + OnError("Ocurrió un error al Actualizar la Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function -#Region "D I R E C C I O N D E E N V I O " - Public Function DireccionEnvioAdd(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String, - EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, Optional CveClienteSucursal As Integer = -1, Optional EnvioDepartamento As String = "-1", Optional EnvioTel As String = "-1", - Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Integer - Dim Retorno As Integer = -1 - DataAdapter("PA_Vta_ClientesDireccionesEnvioAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal - .Add("@EnvioDireccion", SqlDbType.VarChar).Value = EnvioDireccion - .Add("@EnvioNoExt", SqlDbType.VarChar).Value = If(EnvioNoExt = "", "-1", EnvioNoExt) - .Add("@EnvioNoInt", SqlDbType.VarChar).Value = If(EnvioNoInt = "", "-1", EnvioNoInt) - .Add("@EnvioColonia", SqlDbType.VarChar).Value = EnvioColonia - .Add("@EnvioCiudad", SqlDbType.VarChar).Value = EnvioCiudad - .Add("@EnvioEstado", SqlDbType.VarChar).Value = EnvioEstado - .Add("@EnvioCP", SqlDbType.Int).Value = EnvioCP - .Add("@EnvioContacto", SqlDbType.VarChar).Value = EnvioContacto - .Add("@EnvioDepartamento", SqlDbType.VarChar).Value = EnvioDepartamento - .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Estatus", SqlDbType.Int).Value = Estatus - - .Add("@CvePais", SqlDbType.Int).Value = CvePais - .Add("@CveEstado", SqlDbType.Int).Value = CveEstado - .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio - .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad - .Add("@CveColonia", SqlDbType.Int).Value = CveColonia - - .Add("@CveDireccionEnvio", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@CveDireccionEnvio").Value.ToString.ToEntero - Catch ex As Exception - OnError("Ocurrió un error al ingresar una dirección de envio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function DireccionEnvioGet(CveDireccionEnvio As Integer, CveCliente As Integer, CveClienteSucursal As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesDireccionesEnvioGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la dirección de envio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function DireccionEnvioUpdate(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String, - EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, CveDireccionEnvio As Integer, Optional EnvioDepartamento As String = "-1", Optional CveClienteSucursal As Integer = -1, Optional EnvioTel As String = "-1", - Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesDireccionesEnvioUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal - .Add("@EnvioDireccion", SqlDbType.VarChar).Value = EnvioDireccion - .Add("@EnvioNoExt", SqlDbType.VarChar).Value = If(EnvioNoExt = "", "-1", EnvioNoExt) - .Add("@EnvioNoInt", SqlDbType.VarChar).Value = If(EnvioNoInt = "", "-1", EnvioNoInt) - .Add("@EnvioColonia", SqlDbType.VarChar).Value = EnvioColonia - .Add("@EnvioCiudad", SqlDbType.VarChar).Value = EnvioCiudad - .Add("@EnvioEstado", SqlDbType.VarChar).Value = EnvioEstado - .Add("@EnvioContacto", SqlDbType.VarChar).Value = EnvioContacto - .Add("@EnvioDepartamento", SqlDbType.VarChar).Value = EnvioDepartamento - .Add("@EnvioCP", SqlDbType.Int).Value = EnvioCP - .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Estatus", SqlDbType.Int).Value = Estatus - - .Add("@CvePais", SqlDbType.Int).Value = CvePais - .Add("@CveEstado", SqlDbType.Int).Value = CveEstado - .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio - .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad - .Add("@CveColonia", SqlDbType.Int).Value = CveColonia - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar la dirección de envio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function DireccionEnvioRemove(CveDireccionEnvio As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesDireccionesEnvioRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar la dirección de envio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - - End Function -#End Region - - Public Function RetencionesGet(CveCliente As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesRetencionesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las retenciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function RepRetencionesGet(CveCliente As Integer, CveMoneda As Integer, CveEmpresa As Integer, Optional FechaI As String = "-1", Optional FechaF As String = "-1") As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesRetencionesGetRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el reporte de retenciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function ValidaClienteRFC(RFC As String, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ValidarRFC") - - With SqlAdapter.SelectCommand.Parameters - .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al validar el RFC", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function + Public Function AddClienteClasificacion(Clasificacion As String, CveEmpresa As Integer, CveUsuario As Integer, Estatus As Boolean) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesClasificacionesAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@Clasificacion", SqlDbType.VarChar).Value = Clasificacion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("La Clasificación ya existe en el Catálogo.", TipoMensaje.MsgError) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar una Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + + Public Function GetClienteClasificacion(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesClasificacionesGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las Clasificaciones de los Clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + + Public Function RemoveClienteClasificacion(CveClasificacion As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesClasificacionesDelete") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error eliminar la Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + +#End Region + + +#Region "D I R E C C I O N D E E N V I O " + Public Function DireccionEnvioAdd(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String, + EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, Optional CveClienteSucursal As Integer = -1, Optional EnvioDepartamento As String = "-1", Optional EnvioTel As String = "-1", + Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Integer + Dim Retorno As Integer = -1 + DataAdapter("PA_Vta_ClientesDireccionesEnvioAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + .Add("@EnvioDireccion", SqlDbType.VarChar).Value = EnvioDireccion + .Add("@EnvioNoExt", SqlDbType.VarChar).Value = If(EnvioNoExt = "", "-1", EnvioNoExt) + .Add("@EnvioNoInt", SqlDbType.VarChar).Value = If(EnvioNoInt = "", "-1", EnvioNoInt) + .Add("@EnvioColonia", SqlDbType.VarChar).Value = EnvioColonia + .Add("@EnvioCiudad", SqlDbType.VarChar).Value = EnvioCiudad + .Add("@EnvioEstado", SqlDbType.VarChar).Value = EnvioEstado + .Add("@EnvioCP", SqlDbType.Int).Value = EnvioCP + .Add("@EnvioContacto", SqlDbType.VarChar).Value = EnvioContacto + .Add("@EnvioDepartamento", SqlDbType.VarChar).Value = EnvioDepartamento + .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Estatus", SqlDbType.Int).Value = Estatus + + .Add("@CvePais", SqlDbType.Int).Value = CvePais + .Add("@CveEstado", SqlDbType.Int).Value = CveEstado + .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio + .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad + .Add("@CveColonia", SqlDbType.Int).Value = CveColonia + + .Add("@CveDireccionEnvio", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@CveDireccionEnvio").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error al ingresar una dirección de envio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function DireccionEnvioGet(CveDireccionEnvio As Integer, CveCliente As Integer, CveClienteSucursal As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesDireccionesEnvioGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la dirección de envio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function DireccionEnvioUpdate(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String, + EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, CveDireccionEnvio As Integer, Optional EnvioDepartamento As String = "-1", Optional CveClienteSucursal As Integer = -1, Optional EnvioTel As String = "-1", + Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesDireccionesEnvioUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + .Add("@EnvioDireccion", SqlDbType.VarChar).Value = EnvioDireccion + .Add("@EnvioNoExt", SqlDbType.VarChar).Value = If(EnvioNoExt = "", "-1", EnvioNoExt) + .Add("@EnvioNoInt", SqlDbType.VarChar).Value = If(EnvioNoInt = "", "-1", EnvioNoInt) + .Add("@EnvioColonia", SqlDbType.VarChar).Value = EnvioColonia + .Add("@EnvioCiudad", SqlDbType.VarChar).Value = EnvioCiudad + .Add("@EnvioEstado", SqlDbType.VarChar).Value = EnvioEstado + .Add("@EnvioContacto", SqlDbType.VarChar).Value = EnvioContacto + .Add("@EnvioDepartamento", SqlDbType.VarChar).Value = EnvioDepartamento + .Add("@EnvioCP", SqlDbType.Int).Value = EnvioCP + .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Estatus", SqlDbType.Int).Value = Estatus + + .Add("@CvePais", SqlDbType.Int).Value = CvePais + .Add("@CveEstado", SqlDbType.Int).Value = CveEstado + .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio + .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad + .Add("@CveColonia", SqlDbType.Int).Value = CveColonia + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la dirección de envio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function DireccionEnvioRemove(CveDireccionEnvio As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesDireccionesEnvioRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar la dirección de envio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function +#End Region + + Public Function RetencionesGet(CveCliente As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesRetencionesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las retenciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RepRetencionesGet(CveCliente As Integer, CveMoneda As Integer, CveEmpresa As Integer, Optional FechaI As String = "-1", Optional FechaF As String = "-1") As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesRetencionesGetRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de retenciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function ValidaClienteRFC(RFC As String, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ValidarRFC") + + With SqlAdapter.SelectCommand.Parameters + .Add("@RFC", SqlDbType.VarChar).Value = RFC + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al validar el RFC", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, - NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_ClientesNoFrecuenteAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Nombre", SqlDbType.VarChar).Value = Nombre - .Add("@Direccion", SqlDbType.VarChar).Value = Direccion - .Add("@NoExt", SqlDbType.VarChar).Value = NoExt - .Add("@NoInt", SqlDbType.VarChar).Value = NoInt - .Add("@Colonia", SqlDbType.VarChar).Value = Colonia - .Add("@Localidad", SqlDbType.VarChar).Value = Localidad - .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad + NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_ClientesNoFrecuenteAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Nombre", SqlDbType.VarChar).Value = Nombre + .Add("@Direccion", SqlDbType.VarChar).Value = Direccion + .Add("@NoExt", SqlDbType.VarChar).Value = NoExt + .Add("@NoInt", SqlDbType.VarChar).Value = NoInt + .Add("@Colonia", SqlDbType.VarChar).Value = Colonia + .Add("@Localidad", SqlDbType.VarChar).Value = Localidad + .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad .Add("@CveEstado", SqlDbType.Int).Value = CveEstado ' .Add("@Pais", SqlDbType.VarChar).Value = Pais - .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@CP", SqlDbType.VarChar).Value = CP - .Add("@Telefono", SqlDbType.VarChar).Value = Telefono - .Add("@Mail", SqlDbType.VarChar).Value = Mail - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 - .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 - .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago - .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - - If Ex1.Message.Contains("Número: 2627;") Then - Alert("El Nuevo Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) - - ElseIf Ex1.Message.Contains("Número: 2601;") Then - If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then - Alert("Ya existe un cliente registrado con el mismo RFC.", TipoMensaje.MsgAdvertencia) - End If - - If Ex1.Message.Contains("IND_Clientes_Codigo") Then - Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) - End If - Else - Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al agregar el cliente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno + .Add("@RFC", SqlDbType.VarChar).Value = RFC + .Add("@CP", SqlDbType.VarChar).Value = CP + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@Mail", SqlDbType.VarChar).Value = Mail + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 + .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 + .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago + .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + If Ex1.Message.Contains("Número: 2627;") Then + Alert("El Nuevo Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) + + ElseIf Ex1.Message.Contains("Número: 2601;") Then + If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then + Alert("Ya existe un cliente registrado con el mismo RFC.", TipoMensaje.MsgAdvertencia) + End If + + If Ex1.Message.Contains("IND_Clientes_Codigo") Then + Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) + End If + Else + Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al agregar el cliente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno End Function Public Function UpdateClienteNoFrencuente(CveCliente As Integer, Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, - NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_ClientesNoFrecuenteUpdate") - + NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_ClientesNoFrecuenteUpdate") + With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@Nombre", SqlDbType.VarChar).Value = Nombre - .Add("@Direccion", SqlDbType.VarChar).Value = Direccion - .Add("@NoExt", SqlDbType.VarChar).Value = NoExt - .Add("@NoInt", SqlDbType.VarChar).Value = NoInt - .Add("@Colonia", SqlDbType.VarChar).Value = Colonia - .Add("@Localidad", SqlDbType.VarChar).Value = Localidad - .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@Nombre", SqlDbType.VarChar).Value = Nombre + .Add("@Direccion", SqlDbType.VarChar).Value = Direccion + .Add("@NoExt", SqlDbType.VarChar).Value = NoExt + .Add("@NoInt", SqlDbType.VarChar).Value = NoInt + .Add("@Colonia", SqlDbType.VarChar).Value = Colonia + .Add("@Localidad", SqlDbType.VarChar).Value = Localidad + .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad .Add("@CveEstado", SqlDbType.Int).Value = CveEstado ' .Add("@Pais", SqlDbType.VarChar).Value = Pais - .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@CP", SqlDbType.VarChar).Value = CP - .Add("@Telefono", SqlDbType.VarChar).Value = Telefono - .Add("@Mail", SqlDbType.VarChar).Value = Mail - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 - .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 - .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago - .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - - If Ex1.Message.Contains("Número: 2627;") Then - Alert("El Nuevo Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) - - ElseIf Ex1.Message.Contains("Número: 2601;") Then - If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then - Alert("Ya existe un cliente registrado con el mismo RFC.", TipoMensaje.MsgAdvertencia) - End If - - If Ex1.Message.Contains("IND_Clientes_Codigo") Then - Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) - End If - Else - Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar el cliente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno + .Add("@RFC", SqlDbType.VarChar).Value = RFC + .Add("@CP", SqlDbType.VarChar).Value = CP + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@Mail", SqlDbType.VarChar).Value = Mail + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 + .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 + .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago + .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + If Ex1.Message.Contains("Número: 2627;") Then + Alert("El Nuevo Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) + + ElseIf Ex1.Message.Contains("Número: 2601;") Then + If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then + Alert("Ya existe un cliente registrado con el mismo RFC.", TipoMensaje.MsgAdvertencia) + End If + + If Ex1.Message.Contains("IND_Clientes_Codigo") Then + Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) + End If + Else + Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar el cliente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno End Function -#Region "UNIFICAR CLIENTES" - Public Function UnificarClientes(CveClienteAUnificar As Integer, CveClienteOriginal As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Vta_UnificarClientes") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveClienteAUnificar", SqlDbType.Int).Value = CveClienteAUnificar - .Add("@CveClienteOriginal", SqlDbType.Int).Value = CveClienteOriginal - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Me.OnError("Ocurrió un error al unificar Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region "IDisposable Support" - - - ' IDisposable - Protected Overridable Sub Dispose(disposing As Boolean) - If Not Me.disposedValue Then +#Region "UNIFICAR CLIENTES" + Public Function UnificarClientes(CveClienteAUnificar As Integer, CveClienteOriginal As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_UnificarClientes") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveClienteAUnificar", SqlDbType.Int).Value = CveClienteAUnificar + .Add("@CveClienteOriginal", SqlDbType.Int).Value = CveClienteOriginal + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al unificar Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region "IDisposable Support" + + + ' IDisposable + Protected Overridable Sub Dispose(disposing As Boolean) + If Not Me.disposedValue Then If disposing Then ' TODO: dispose managed state (managed objects). If Not Data Is Nothing Then Data.Dispose() : Data = Nothing @@ -1787,158 +1787,158 @@ Public Class ClsClientes If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() - If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing - - End If - - ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below. - ' TODO: set large fields to null. - End If - Me.disposedValue = True - End Sub - - ' This code added by Visual Basic to correctly implement the disposable pattern. - Public Sub Dispose() Implements IDisposable.Dispose - ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. - ConexionClose() - Dispose(True) - GC.SuppressFinalize(Me) - End Sub -#End Region - -#Region "REMISIONES CLIENTES" - Public Function GetVentasCotizacionesTotales(CveCliente As Integer, Ventas As String, Tipo As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_VentasCotizacionesTotales") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@Ventas", SqlDbType.VarChar).Value = Ventas - .Add("@Tipo", SqlDbType.Int).Value = Tipo - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los Productos de las Remisiones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function -#End Region - -#Region "C O B R A N Z A V E N T A S" - - - - Public Function GetVisitasCobranza(CveCobranzaVisita As Integer, CveVenta As Integer, CveUsuarioCobranza As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_VisitasCobranzaGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCobranzaVisita", SqlDbType.Int).Value = CveCobranzaVisita - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .Add("@CveUsuarioCobranza", SqlDbType.Int).Value = CveUsuarioCobranza - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex As SqlException - Me.OnError("Ocurrió un error al intentar obtener las visitas de cobranza", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - -#End Region - -#Region "Corporativos" - - - Public Function GetCorporativo(CveEmpresa As Integer, Estatus As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesCorporativoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Estatus", SqlDbType.Int).Value = Estatus - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las diferencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function AddClienteCorporativo(Estatus As Boolean, CveUsuario As Integer, Descripcion As String, CveEmpresa As Integer, CveCliente As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesCorporativoAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("El Corporativo ya existe en el Catálogo.", TipoMensaje.MsgError) - End If - Catch ex As Exception - OnError("Ocurrió un error al Guardar un Corporativo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function RemoveClienteCorporativo(CveClienteCorporativo As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesCorporativoDelete") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveClienteCorporativo", SqlDbType.Int).Value = CveClienteCorporativo - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error eliminar el Corporativo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - - Public Function UpdateClienteCorporativo(CveClienteCorporativo As Integer, Estatus As Boolean, CveUsuario As Integer, Descripcion As String, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClientesCorporativoUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveClienteCorporativo", SqlDbType.VarChar).Value = CveClienteCorporativo - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("El Corporativo ya existe en el Catálogo.", TipoMensaje.MsgError) - End If - Catch ex As Exception - OnError("Ocurrió un error al Actualizar el Corporativo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno + If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing + + End If + + ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below. + ' TODO: set large fields to null. + End If + Me.disposedValue = True + End Sub + + ' This code added by Visual Basic to correctly implement the disposable pattern. + Public Sub Dispose() Implements IDisposable.Dispose + ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. + ConexionClose() + Dispose(True) + GC.SuppressFinalize(Me) + End Sub +#End Region + +#Region "REMISIONES CLIENTES" + Public Function GetVentasCotizacionesTotales(CveCliente As Integer, Ventas As String, Tipo As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasCotizacionesTotales") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@Ventas", SqlDbType.VarChar).Value = Ventas + .Add("@Tipo", SqlDbType.Int).Value = Tipo + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los Productos de las Remisiones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region + +#Region "C O B R A N Z A V E N T A S" + + + + Public Function GetVisitasCobranza(CveCobranzaVisita As Integer, CveVenta As Integer, CveUsuarioCobranza As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_VisitasCobranzaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCobranzaVisita", SqlDbType.Int).Value = CveCobranzaVisita + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveUsuarioCobranza", SqlDbType.Int).Value = CveUsuarioCobranza + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex As SqlException + Me.OnError("Ocurrió un error al intentar obtener las visitas de cobranza", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + +#End Region + +#Region "Corporativos" + + + Public Function GetCorporativo(CveEmpresa As Integer, Estatus As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesCorporativoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las diferencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddClienteCorporativo(Estatus As Boolean, CveUsuario As Integer, Descripcion As String, CveEmpresa As Integer, CveCliente As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesCorporativoAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("El Corporativo ya existe en el Catálogo.", TipoMensaje.MsgError) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar un Corporativo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function RemoveClienteCorporativo(CveClienteCorporativo As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesCorporativoDelete") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveClienteCorporativo", SqlDbType.Int).Value = CveClienteCorporativo + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error eliminar el Corporativo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + + Public Function UpdateClienteCorporativo(CveClienteCorporativo As Integer, Estatus As Boolean, CveUsuario As Integer, Descripcion As String, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesCorporativoUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveClienteCorporativo", SqlDbType.VarChar).Value = CveClienteCorporativo + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("El Corporativo ya existe en el Catálogo.", TipoMensaje.MsgError) + End If + Catch ex As Exception + OnError("Ocurrió un error al Actualizar el Corporativo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno End Function Public Function GetClientePagare(CveCliente As Integer) As Boolean @@ -2022,112 +2022,112 @@ Public Class ClsClientes End Function -#End Region +#End Region -#Region "GRAFICAS" - Public Function GetRotacionCartera(CveCliente As Integer, CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_AnalisisCreditoRotacion") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la rotación de cartera del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - Public Function GetClienteVencido(CveCliente As Integer, CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClienteVencidoGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los dias vencidos del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - Public Function GetClienteSaldoMensual(CveCliente As Integer, CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClienteSaldoMensualGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el saldo mensual del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function GetClienteComportamientoVentaMensual(CveCliente As Integer, CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClienteComportamientoVentaMensualGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las ventas mensuales del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function GetClienteVentasPedido(CveCliente As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClienteVentasPedidoGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los pedidos del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function UpdateEstatusPedido(CveVenta As Integer, CveEstatusFactura As Integer, Dias As Integer, CveUsuario As Integer, Optional CveRemision As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ClienteVentasPedidoEstatusUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura - .Add("@Dias", SqlDbType.Int).Value = Dias - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveRemision", SqlDbType.Int).Value = CveRemision - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el pedido del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno +#Region "GRAFICAS" + Public Function GetRotacionCartera(CveCliente As Integer, CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_AnalisisCreditoRotacion") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la rotación de cartera del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function GetClienteVencido(CveCliente As Integer, CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClienteVencidoGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los dias vencidos del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function GetClienteSaldoMensual(CveCliente As Integer, CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClienteSaldoMensualGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el saldo mensual del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function GetClienteComportamientoVentaMensual(CveCliente As Integer, CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClienteComportamientoVentaMensualGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las ventas mensuales del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function GetClienteVentasPedido(CveCliente As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClienteVentasPedidoGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los pedidos del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function UpdateEstatusPedido(CveVenta As Integer, CveEstatusFactura As Integer, Dias As Integer, CveUsuario As Integer, Optional CveRemision As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClienteVentasPedidoEstatusUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura + .Add("@Dias", SqlDbType.Int).Value = Dias + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveRemision", SqlDbType.Int).Value = CveRemision + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el pedido del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function 'Public Function UpdateFechaPedido(CveVenta As Integer, DiasCredito As Integer) As Boolean @@ -2148,62 +2148,62 @@ Public Class ClsClientes -#End Region +#End Region -#Region "A P L I C A C I O N" - Public Function AddClienteApp(Cliente As MCliente) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_ClientesAppAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@RazonSocial", SqlDbType.VarChar).Value = Cliente.Nombre - .Add("@Direccion", SqlDbType.VarChar).Value = Cliente.Direccion - .Add("@NoExt", SqlDbType.VarChar).Value = Cliente.NoExt - .Add("@NoInt", SqlDbType.VarChar).Value = Cliente.NoInt - .Add("@Colonia", SqlDbType.VarChar).Value = Cliente.Colonia - .Add("@Ciudad", SqlDbType.VarChar).Value = Cliente.Ciudad - .Add("@Municipio", SqlDbType.VarChar).Value = Cliente.Localidad - .Add("@Estado", SqlDbType.VarChar).Value = Cliente.Estado - .Add("@RFC", SqlDbType.VarChar).Value = Cliente.RFC - .Add("@CodigoPostal", SqlDbType.VarChar).Value = Cliente.CP - .Add("@Telefono", SqlDbType.VarChar).Value = Cliente.Telefono - .Add("@Celular", SqlDbType.VarChar).Value = Cliente.Celular - .Add("@CorreoEnvio", SqlDbType.VarChar).Value = Cliente.MailCotizacion - .Add("@EnviarFactura", SqlDbType.Bit).Value = CBool(Cliente.EnviarFactura) - .Add("@CveSubProyecto", SqlDbType.Int).Value = Cliente.CveSucursal - .Add("@CveVendedor", SqlDbType.Int).Value = Cliente.CveVendedor - .Add("@CveUsoCFDI", SqlDbType.Int).Value = Cliente.CveUsoCFDI - .Add("@CveMetodoPago33", SqlDbType.Int).Value = Cliente.CveMetodoPago33 - .Add("@CveFormaPago33", SqlDbType.Int).Value = Cliente.CveFormaPago33 - .Add("@CveUsuario", SqlDbType.Int).Value = Cliente.CveUsuarioResponsable - .Add("@CveEmpresa", SqlDbType.Int).Value = Cliente.CveEmpresa - .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue - End With - Try - SqlAdapter.Fill(Data) - _CveCliente = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero - Retorno = True - Catch Ex1 As SqlException - - If Ex1.Message.Contains("Número: 2627;") Then - Alert("El Nuevo Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) - - ElseIf Ex1.Message.Contains("Número: 2601;") Then - If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then - Alert("Ya existe un cliente registrado con el mismo RFC.", TipoMensaje.MsgAdvertencia) - End If - - If Ex1.Message.Contains("IND_Clientes_Codigo") Then - Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) - End If - Else - Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function -#End Region - -End Class +#Region "A P L I C A C I O N" + Public Function AddClienteApp(Cliente As MCliente) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_ClientesAppAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@RazonSocial", SqlDbType.VarChar).Value = Cliente.Nombre + .Add("@Direccion", SqlDbType.VarChar).Value = Cliente.Direccion + .Add("@NoExt", SqlDbType.VarChar).Value = Cliente.NoExt + .Add("@NoInt", SqlDbType.VarChar).Value = Cliente.NoInt + .Add("@Colonia", SqlDbType.VarChar).Value = Cliente.Colonia + .Add("@Ciudad", SqlDbType.VarChar).Value = Cliente.Ciudad + .Add("@Municipio", SqlDbType.VarChar).Value = Cliente.Localidad + .Add("@Estado", SqlDbType.VarChar).Value = Cliente.Estado + .Add("@RFC", SqlDbType.VarChar).Value = Cliente.RFC + .Add("@CodigoPostal", SqlDbType.VarChar).Value = Cliente.CP + .Add("@Telefono", SqlDbType.VarChar).Value = Cliente.Telefono + .Add("@Celular", SqlDbType.VarChar).Value = Cliente.Celular + .Add("@CorreoEnvio", SqlDbType.VarChar).Value = Cliente.MailCotizacion + .Add("@EnviarFactura", SqlDbType.Bit).Value = CBool(Cliente.EnviarFactura) + .Add("@CveSubProyecto", SqlDbType.Int).Value = Cliente.CveSucursal + .Add("@CveVendedor", SqlDbType.Int).Value = Cliente.CveVendedor + .Add("@CveUsoCFDI", SqlDbType.Int).Value = Cliente.CveUsoCFDI + .Add("@CveMetodoPago33", SqlDbType.Int).Value = Cliente.CveMetodoPago33 + .Add("@CveFormaPago33", SqlDbType.Int).Value = Cliente.CveFormaPago33 + .Add("@CveUsuario", SqlDbType.Int).Value = Cliente.CveUsuarioResponsable + .Add("@CveEmpresa", SqlDbType.Int).Value = Cliente.CveEmpresa + .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue + End With + Try + SqlAdapter.Fill(Data) + _CveCliente = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero + Retorno = True + Catch Ex1 As SqlException + + If Ex1.Message.Contains("Número: 2627;") Then + Alert("El Nuevo Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) + + ElseIf Ex1.Message.Contains("Número: 2601;") Then + If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then + Alert("Ya existe un cliente registrado con el mismo RFC.", TipoMensaje.MsgAdvertencia) + End If + + If Ex1.Message.Contains("IND_Clientes_Codigo") Then + Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) + End If + Else + Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function +#End Region + +End Class diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 16c9f5209..fea44cef7 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -3758,7 +3758,7 @@ Public Class ClsGenerales End Function - Public Function AddInvEntregaAlmacenRuta(CveSubProyectoOrigen As Integer, CveMovimientoAlmacen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, Tipo As String, Orden As Integer) As Integer + Public Function AddInvEntregaAlmacenRuta(CveSubProyectoOrigen As Integer, CveMovimientoAlmacen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, Tipo As String, Orden As Integer, Estatus As Integer) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Inv_EntregaAlmacenRutaAdd") @@ -3773,6 +3773,7 @@ Public Class ClsGenerales .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega .Add("@Orden", SqlDbType.Int).Value = Orden .Add("@Tipo", SqlDbType.VarChar).Value = Tipo + .Add("@Estatus", SqlDbType.VarChar).Value = Estatus .Add("@CveEntregaAlmacen", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -3811,7 +3812,7 @@ Public Class ClsGenerales Return Retorno End Function - Public Function GetInvEntregaAlmacenRuta(CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Opcion As Integer) As Boolean + Public Function GetInvEntregaAlmacenRuta(CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Opcion As Integer, Optional Estatus As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -3824,6 +3825,7 @@ Public Class ClsGenerales .Add("@FechaFin", SqlDbType.Date).Value = FechaFin .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Opcion", SqlDbType.Int).Value = Opcion + .Add("@Estatus", SqlDbType.Int).Value = Estatus End With @@ -3831,7 +3833,29 @@ Public Class ClsGenerales SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error obtener las entregas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al obtener las entregas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + + + Public Function RemoveInvEntregaAlmacenRuta(CveEntregaAlmacen As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_EntregaAlmacenRutaRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar la entregas o Recolección", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno End Function @@ -3858,7 +3882,77 @@ Public Class ClsGenerales SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error obtener las entregas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al obtener las entregas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + + + Public Function AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer, CvePS As Integer, Cantidad As Decimal, CveUnidadMedida As Integer, CveUsuario As Integer) As Boolean + + + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_EntregaAlmacenRutaDetalleAdd") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Cantidad", SqlDbType.Float).Value = Cantidad + .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el detalle de recolección", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + + + Public Function RemoveEntregaAlmacenRutaDetalle(CveEntregaAlmacenDetalle As Integer) As Boolean + + + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_EntregaAlmacenRutaDetalleRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEntregaAlmacenDetalle", SqlDbType.Int).Value = CveEntregaAlmacenDetalle + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el detalle de recolección", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + + Public Function GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_EntregaAlmacenRutaDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el detalle de recolección", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno End Function diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 34bdd0d95..6164807ae 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5503,7 +5503,8 @@ Public Class ClsInventarios End Try Return Retorno End Function - Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer) As Boolean + Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, + NumPolizaSeguro As String, CveUsuario As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesAdd") With SqlAdapter.SelectCommand.Parameters @@ -5517,6 +5518,10 @@ Public Class ClsInventarios .Add("@NumPolizaSeguro", SqlDbType.VarChar).Value = NumPolizaSeguro .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@NombreAseguradoraMedioAmbiente", SqlDbType.VarChar).Value = NombreAseguradoraMedioAmbiente + .Add("@NumPolizaSeguroMedioAmbiente", SqlDbType.VarChar).Value = NumPolizaSeguroMedioAmbiente + .Add("@NombreAseguradoraCarga", SqlDbType.VarChar).Value = NombreAseguradoraCarga + .Add("@NumPolizaSeguroCarga", SqlDbType.VarChar).Value = NumPolizaSeguroCarga End With Try SqlAdapter.Fill(Data) @@ -5541,7 +5546,8 @@ Public Class ClsInventarios End Try Return Retorno End Function - Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, + NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -5556,6 +5562,10 @@ Public Class ClsInventarios .Add("@NumPolizaSeguro", SqlDbType.VarChar).Value = NumPolizaSeguro .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@NombreAseguradoraMedioAmbiente", SqlDbType.VarChar).Value = NombreAseguradoraMedioAmbiente + .Add("@NumPolizaSeguroMedioAmbiente", SqlDbType.VarChar).Value = NumPolizaSeguroMedioAmbiente + .Add("@NombreAseguradoraCarga", SqlDbType.VarChar).Value = NombreAseguradoraCarga + .Add("@NumPolizaSeguroCarga", SqlDbType.VarChar).Value = NumPolizaSeguroCarga End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 2dd6b5be7..54d9be053 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -196,6 +196,20 @@ Public Class ClsNominas End Try Return retorno End Function + Public Function GetNominasSinTimbrar() As Boolean + Dim retorno As Boolean = False + DTSet = New DataSet() + DataAdapter("PA_Nom_NominasSinTimbrar", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el finiquito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function PersonalISRAnual(CvePersonal As Integer, cveEmpresa As Integer, Ejercicio As Integer) As Boolean Dim retorno As Boolean = False DTSet = New DataSet() diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 21f62896b..56bdaaaf3 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -111,6 +111,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState context.Response.Write(ValidaCURP(context.Request("Curp").ToString())) Case "sendMail" context.Response.Write(sendMail(context)) + Case "sendMailEMD" + context.Response.Write(sendMailEMD(context)) Case "sendMailLPM" context.Response.Write(sendMailLPM(context)) Case "getSATColomias" @@ -169,6 +171,41 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If Return retorno End Function + + Private Function sendMailEMD(context As HttpContext) As String + Dim retorno As String = "true" + Dim nombre As String = "" + Dim correo As String = "" + Dim Phone As String = "" + Dim cuerpo As String = "" + Dim obj = context.Request("Nombre") 'Nombre=' + $('#Nombre').val() +'Correo=' + $('#Correo').val() +'Sitio=' + $('#Sitio').val() +'Cuerpo=' + $('#Cuerpo').val() + + If Not IsNothing(obj) Then + nombre = obj.ToString() + End If + obj = context.Request("Correo") + If Not IsNothing(obj) Then + correo = obj.ToString() + End If + obj = context.Request("Phone") + If Not IsNothing(obj) Then + Phone = obj.ToString() + End If + obj = context.Request("Cuerpo") + If Not IsNothing(obj) Then + cuerpo = obj.ToString().Replace("< ", "<") + End If + Dim Body As String = String.Format("Solicitó : {0}
Correo : {1}
Telefono : {2}

{3}", nombre, correo, Phone, cuerpo) + Dim para As String = "paola@adssistemas.mx;caudillo.90d@gmail.com;" + 'para = "" + Dim Mail As New ClsSisMail() + If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then + retorno = "true" + Else + retorno = "false" + End If + Return retorno + End Function + Private Function sendMail(context As HttpContext) As String Dim retorno As String = "true" Dim nombre As String = "" diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 481b142a8..1fd49d130 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2933,7 +2933,13 @@ Partial Class Compras_eFacturas Try If drow("CveIE").ToString.ToEntero > 0 Then + dRow2("CveIE") = drow("CveIE").ToString.ToEntero + dRow2("ImportePago") = drow("Importe").ToString.ToDecimal + + dRow2("FolioPago") = drow("FolioIE") + dRow2("FechaPago") = drow("FechaDocumento") dRow2("CvePrePolizaDetalle") = drow("CvePrePolizaDetalle").ToString + End If Catch ex As Exception @@ -2941,13 +2947,7 @@ Partial Class Compras_eFacturas End Try - If drow("CveIE").ToString.ToEntero > 0 Then - dRow2("CveIE") = drow("CveIE").ToString.ToEntero - dRow2("ImportePago") = drow("Importe").ToString.ToDecimal - End If - dRow2("FolioPago") = drow("FolioIE") - dRow2("FechaPago") = drow("FechaDocumento") End If Next @@ -3151,6 +3151,18 @@ Partial Class Compras_eFacturas + If UsuarioActual.TienePermisoProceso(332) And (BtnVincularPago.Visible = False Or BtnVincularPago.Enabled = False) Then + For Each GvRowVal As GridViewRow In GVPDocumentosRelacionadosPagos.Rows + If GvRowVal.DataKey("CveIE").ToEntero > 0 Then + BtnVincularPago.Enabled = True + BtnVincularPago.Visible = True + Exit For + End If + Next + + End If + + UpVincularPago.Update() @@ -3181,7 +3193,7 @@ Partial Class Compras_eFacturas - If Gv.DataKey("CveCompra").ToEntero > 0 Then + If Gv.DataKey("CveCompra").ToEntero > 0 And Gv.DataKey("CveIE").ToEntero > 0 Then If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then TieneError = True @@ -3232,7 +3244,6 @@ Partial Class Compras_eFacturas For Each Gv As GridViewRow In GVPDocumentosRelacionadosPagos.Rows - If Boolean.Parse(Gv.DataKey("Manual").ToString) Then objEventos.AddEventoBitacora($"Complemento { LblSerieFolioPago.Text} vinculado manualmente a compra {Gv.DataKey("SerieFolio").ToString} y Pago { Gv.DataKey("FolioPago").ToString }", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=Gv.DataKey("CveCompra").ToString.ToEntero) End If diff --git a/General/RepEntregaAlmacenRuta.aspx b/General/RepEntregaAlmacenRuta.aspx index 146b714dc..522992dcc 100644 --- a/General/RepEntregaAlmacenRuta.aspx +++ b/General/RepEntregaAlmacenRuta.aspx @@ -99,10 +99,17 @@ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + + + + + + + diff --git a/General/RepEntregaAlmacenRuta.aspx.cs b/General/RepEntregaAlmacenRuta.aspx.cs index 026ced309..f540f0181 100644 --- a/General/RepEntregaAlmacenRuta.aspx.cs +++ b/General/RepEntregaAlmacenRuta.aspx.cs @@ -351,6 +351,79 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas protected void LnkCancelaTimbre_Click(object sender, EventArgs e) { + return; + bool ProcesoOK = false; + LinkButton LnkCancelarFolioFiscal = (LinkButton)sender; + GridViewRow GvRow = (GridViewRow)LnkCancelarFolioFiscal.BindingContainer; + + int CveTimbre = GvRow.DataKey("CveTimbre").ToEntero(); + string FolioFiscalCancelar = GvRow.DataKey("FolioFiscal").ToString(); + string RFCReceptor = GvRow.DataKey("RFCReceptor").ToString(); + string RFCEmisor = GvRow.DataKey("RFCEmisor").ToString(); + + int CvePACCancelacion = GvRow.DataKey("CvePAC").ToEntero(); + bool AplicaCP = bool.Parse( GvRow.DataKey("AplicaCP") ); + + + Timbrado ObjCancelacion = new Timbrado(); + ClsGenerales ObjGenrales = new ClsGenerales(); + + if (EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptor)) + { + if (ObjGenrales.UpdateGralTimbre(CveTimbre, "-1", "-1", -1, "-1", new DateTime(1900, 01, 01), UsuarioActual.CveEmpresa, UsuarioActual.CveEmpresa, 2, -1, CvePACCancelacion, DateTime.Now, AplicaCP,"-1")){ + ProcesoOK = true; + } + } + else + { + if( ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptor, RFCEmisor, CvePACCancelacion)) { + + + if(ObjGenrales.UpdateGralTimbre(CveTimbre,"-1","-1",-1,"-1",new DateTime(1900,01,01),UsuarioActual.CveEmpresa,UsuarioActual.CveEmpresa,2,-1, CvePACCancelacion,DateTime.Now, AplicaCP,SelloCancelacion: ObjCancelacion.CancelacionAcuse)){ + + } + + Alert("El complemento se cancelo correctamente."); + ProcesoOK = true; + } + else + { + Alert("Se presento un error al cancelar el Folio Fiscal", ModExtensiones.TipoMensaje.MsgAdvertencia); + } + } + + + ObjGenrales.Dispose(); + + if (ProcesoOK) + { + CargaDatos(); + } + + } + + + public bool EstatusSATCancelado(string FolioFiscal, string RFCDe, string RFCReceptor) + { + bool respuesta = false; + var Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, RFCDe, RFCReceptor, "0", true); + if (Vigencia is object) + { + if (Vigencia.Estado.ToUpper() == "CANCELADO") + { + respuesta = true; + } + else + { + respuesta = false; + } + } + else + { + respuesta = false; + } + + return respuesta; } @@ -412,6 +485,19 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas LnkCancelaTimbre.Visible = true; + + + switch (e.Row.DataKey("Tipo")) + { + case "E": + e.Row.FCLabel("LtTipo").CssClass = "label label-sm label-success"; + break; + default: + e.Row.FCLabel("LtTipo").CssClass = "label label-sm label-warning"; + break; + + } + } } diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 6fa41f9fb..841c4e217 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -2053,6 +2053,7 @@ Partial Class General_SaldosIniciales ObjRH.IniciaTransacSQL() Dim ErrorRH As Boolean = False Dim Contador As Integer = 0 + Dim ContadorAgregados As Integer = 0 Dim NumRow As Integer = 0 For Each Row As DataRow In dt.Rows @@ -2095,6 +2096,12 @@ Partial Class General_SaldosIniciales Dim MetodoPago As String = Row("Metodo Pago").ToString Dim Nominista As String = Row("Nominista").ToString + Dim NombreCompleto As String = $"{Nombre} {ApellidoPaterno} {ApellidoMaterno}" + + If NombreCompleto.Trim.Replace(" ", "") = String.Empty Then + Continue For + End If + 'CLAVES Dim CveGenero As Integer = 0 Dim CveEstadoCivil As Integer = 0 @@ -2152,7 +2159,7 @@ Partial Class General_SaldosIniciales End If myarraystr = TipoContrato.Split(":"c) - If (myarraystr.Length > 0) Then + If (myarraystr.Length > 1) Then CveTipoContrato = myarraystr(0).ToEntero() Else CveTipoContrato = GlobalDTTiposContrato().FiltroPrimeroValor("CveTipoContrato", $"TipoContrato = '{TipoContrato}'").ToString.ToEntero @@ -2215,7 +2222,12 @@ Partial Class General_SaldosIniciales 'VALIDACIONES ' If Not CveSucursal > 0 Then Alert("La Empresa no cuenta con Sucursal, es necesario dar una Sucursal de alta.", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For - If Not CveDepartamento > 0 Then Alert($"No se encontró el Departamento: {Departamento} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For + If Not CveDepartamento > 0 Then + Alert($"No se encontró el Departamento: {Departamento} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) + ErrorRH = True + Exit For + End If + If Not CvePuesto > 0 Then Alert($"No se encontró el Puesto: {Puesto} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For If Not CveTurno > 0 Then Alert($"No se encontró el turno: {Turno} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For If Not CveEstado > 0 Then Alert($"No se encontró el Estado: {Estado} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For @@ -2226,7 +2238,7 @@ Partial Class General_SaldosIniciales If Not CveUsuarioNomina > 0 Then CveUsuarioNomina = -1 'Alert("No se encontró el Nominista: " + Nominista + " Renglón: " + NumRow, TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For - Dim NombreCompleto As String = $"{Nombre} {ApellidoPaterno} {ApellidoMaterno}" + Dim CvePersonal As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"NombreCompletoNombre = '{NombreCompleto}'").ToString.ToEntero() @@ -2280,6 +2292,8 @@ Partial Class General_SaldosIniciales ClabeInterbancaria, "", CveJornada, CveJornada, "", -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina) Then ErrorRH = True Exit For + Else + ContadorAgregados = ContadorAgregados + 1 End If End If @@ -2289,7 +2303,7 @@ Partial Class General_SaldosIniciales If Not ErrorRH Then If Contador > 0 Then - Alert(String.Format("Se agregaron: {0} Empleados correctamente.
Se Omitieron: {1} Empleados ya que ya se encontraban registrados.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion) + Alert(String.Format("Se agregaron: {0} Empleados correctamente.
Se Omitieron: {1} Empleados ya que ya se encontraban registrados.", ContadorAgregados, Contador), TipoMensaje.MsgInformacion) ObjRH.Commit() TxtExcel.Text = "" UpDatos.Update() diff --git a/Inicio.aspx b/Inicio.aspx index 5b092c8e2..2e4eace5a 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -805,6 +805,37 @@ +