AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

subiendo cambios en CRM

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-04-15 21:10:21 -07:00
parent b95e9eb841
commit ba33616cf8
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
App_Code/ClsCRM.vb
View File

@@ -273,7 +273,7 @@ Public Class ClsCRM
Return Retorno Return Retorno
End Function End Function
Public Function AddMedioCaptacion(MedioCaptacion As String, Descripcion As String, CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean Public Function AddMedioCaptacion(MedioCaptacion As String, Descripcion As String, CveEmpresa As Integer, CveUsuarioIng As Integer, Optional CveTipoProceso As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CRM_MedioCaptacionAdd") DataAdapter("PA_CRM_MedioCaptacionAdd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -281,6 +281,7 @@ Public Class ClsCRM
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng .Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng
.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -291,7 +292,8 @@ Public Class ClsCRM
Return Retorno Return Retorno
End Function End Function
Public Function UpdateMedioCaptacion(MedioCaptacion As String, Descripcion As String, CveEstatus As Boolean, CveMedioCaptacion As Integer) As Boolean Public Function UpdateMedioCaptacion(MedioCaptacion As String, Descripcion As String, CveEstatus As Boolean, CveMedioCaptacion As Integer,
Optional CveTipoProceso As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CRM_MedioCaptacionUpdate") DataAdapter("PA_CRM_MedioCaptacionUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -299,6 +301,7 @@ Public Class ClsCRM
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
.Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus .Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus
.Add("@CveMedioCaptacion", SqlDbType.Int).Value = CveMedioCaptacion .Add("@CveMedioCaptacion", SqlDbType.Int).Value = CveMedioCaptacion
.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -590,13 +593,14 @@ Public Class ClsCRM
Return Retorno Return Retorno
End Function End Function
Public Function AddProbabilidadAcercamiento(ProbabilidadAcercamiento As String, CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean Public Function AddProbabilidadAcercamiento(ProbabilidadAcercamiento As String, CveEmpresa As Integer, CveUsuarioIng As Integer, Optional CveTipoProceso As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CRM_ProbabilidadAcercamientoAdd") DataAdapter("PA_CRM_ProbabilidadAcercamientoAdd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@ProbabilidadAcercamiento", SqlDbType.VarChar).Value = ProbabilidadAcercamiento .Add("@ProbabilidadAcercamiento", SqlDbType.VarChar).Value = ProbabilidadAcercamiento
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng .Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng
.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -607,7 +611,8 @@ Public Class ClsCRM
Return Retorno Return Retorno
End Function End Function
Public Function UpdateProbabilidadAcercamiento(ProbabilidadAcercamiento As String, CveEstatus As Boolean, CveProbabilidadAcercamiento As Integer) As Boolean Public Function UpdateProbabilidadAcercamiento(ProbabilidadAcercamiento As String, CveEstatus As Boolean, CveProbabilidadAcercamiento As Integer,
Optional CveTipoProceso As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CRM_ProbabilidadAcercamientoUpdate") DataAdapter("PA_CRM_ProbabilidadAcercamientoUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -615,6 +620,7 @@ Public Class ClsCRM
.Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus .Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus
.Add("@CveProbabilidadAcercamiento", SqlDbType.Int).Value = CveProbabilidadAcercamiento .Add("@CveProbabilidadAcercamiento", SqlDbType.Int).Value = CveProbabilidadAcercamiento
.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)