diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 2db30fb66..0a2e40488 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5977,7 +5977,7 @@ Public Class ClsVentas #Region "AGENTES" - Public Function GetMedicos(CveMedico As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean + Public Function GetMedicos(CveMedico As Integer, CveEmpresa As Integer, Estatus As Integer, Optional Mes As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_MedicosGet") @@ -5986,13 +5986,16 @@ Public Class ClsVentas .Add("@CveMedico", SqlDbType.Int).Value = CveMedico .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@Mes", SqlDbType.Int).Value = Mes End With + Try SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception OnError("Ocurrió un error al obtener los Medicos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try + Return Retorno End Function diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx index 8b00cb48e..34d173a10 100644 --- a/Ventas/CatMedicos.aspx +++ b/Ventas/CatMedicos.aspx @@ -22,6 +22,9 @@