diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb index cdad985da..b212c9403 100644 --- a/App_Code/ClsCRM.vb +++ b/App_Code/ClsCRM.vb @@ -130,7 +130,9 @@ Public Class ClsCRM Return Retorno End Function - Public Function AddTipoProceso(TipoProceso As String, Descripcion As String, CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean + Public Function AddTipoProceso(TipoProceso As String, Descripcion As String, CveEmpresa As Integer, CveUsuarioIng As Integer, + RequiereMedioCaptacion As Boolean, RequiereImporte As Boolean, RequiereProbabilidadAcercamiento As Boolean, + RequierePS As Boolean, RequiereComision As Boolean) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CRM_TipoProcesoAdd") With SqlAdapter.SelectCommand.Parameters @@ -138,6 +140,11 @@ Public Class ClsCRM .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng + .Add("@RequiereMedioCaptacion", SqlDbType.Bit).Value = RequiereMedioCaptacion + .Add("@RequiereImporte", SqlDbType.Bit).Value = RequiereImporte + .Add("@RequiereProbabilidadAcercamiento", SqlDbType.Bit).Value = RequiereProbabilidadAcercamiento + .Add("@RequierePS", SqlDbType.Bit).Value = RequierePS + .Add("@RequiereComision", SqlDbType.Bit).Value = RequiereComision End With Try SqlAdapter.Fill(Data) @@ -148,7 +155,9 @@ Public Class ClsCRM Return Retorno End Function - Public Function UpdateTipoProceso(TipoProceso As String, Descripcion As String, CveEstatus As Boolean, CveTipoProceso As Integer) As Boolean + Public Function UpdateTipoProceso(TipoProceso As String, Descripcion As String, CveEstatus As Boolean, CveTipoProceso As Integer, + RequiereMedioCaptacion As Boolean, RequiereImporte As Boolean, RequiereProbabilidadAcercamiento As Boolean, + RequierePS As Boolean, RequiereComision As Boolean) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CRM_TipoProcesoUpdate") With SqlAdapter.SelectCommand.Parameters @@ -156,6 +165,11 @@ Public Class ClsCRM .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso + .Add("@RequiereMedioCaptacion", SqlDbType.Bit).Value = RequiereMedioCaptacion + .Add("@RequiereImporte", SqlDbType.Bit).Value = RequiereImporte + .Add("@RequiereProbabilidadAcercamiento", SqlDbType.Bit).Value = RequiereProbabilidadAcercamiento + .Add("@RequierePS", SqlDbType.Bit).Value = RequierePS + .Add("@RequiereComision", SqlDbType.Bit).Value = RequiereComision End With Try SqlAdapter.Fill(Data) diff --git a/Bin/ADSNetLibrary.dll b/Bin/ADSNetLibrary.dll index c9badec25..562d17536 100644 Binary files a/Bin/ADSNetLibrary.dll and b/Bin/ADSNetLibrary.dll differ diff --git a/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx index bb3e9389d..8bc859a44 100644 --- a/CRM/Acercamiento.aspx +++ b/CRM/Acercamiento.aspx @@ -410,7 +410,7 @@ -
-