From ba33616cf8da26a5e1735c97e0dc0b9579e6b228 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Wed, 15 Apr 2020 21:10:21 -0700
Subject: [PATCH] subiendo cambios en CRM

---
 App_Code/ClsCRM.vb | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb
index 67953b293..b4a4f540e 100644
--- a/App_Code/ClsCRM.vb
+++ b/App_Code/ClsCRM.vb
@@ -273,7 +273,7 @@ Public Class ClsCRM
         Return Retorno
     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
         DataAdapter("PA_CRM_MedioCaptacionAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -281,6 +281,7 @@ Public Class ClsCRM
             .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng
+            .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -291,7 +292,8 @@ Public Class ClsCRM
         Return Retorno
     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
         DataAdapter("PA_CRM_MedioCaptacionUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -299,6 +301,7 @@ Public Class ClsCRM
             .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
             .Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus
             .Add("@CveMedioCaptacion", SqlDbType.Int).Value = CveMedioCaptacion
+            .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -590,13 +593,14 @@ Public Class ClsCRM
         Return Retorno
     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
         DataAdapter("PA_CRM_ProbabilidadAcercamientoAdd")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@ProbabilidadAcercamiento", SqlDbType.VarChar).Value = ProbabilidadAcercamiento
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng
+            .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -607,7 +611,8 @@ Public Class ClsCRM
         Return Retorno
     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
         DataAdapter("PA_CRM_ProbabilidadAcercamientoUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -615,6 +620,7 @@ Public Class ClsCRM
 
             .Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus
             .Add("@CveProbabilidadAcercamiento", SqlDbType.Int).Value = CveProbabilidadAcercamiento
+            .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
         End With
         Try
             SqlAdapter.Fill(Data)