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 @@
  • Excel
  • +
  • + +
  • @@ -313,7 +316,7 @@ + + + +
    <%----%>
    diff --git a/Ventas/CatMedicos.aspx.vb b/Ventas/CatMedicos.aspx.vb index d24d594b1..e295a7207 100644 --- a/Ventas/CatMedicos.aspx.vb +++ b/Ventas/CatMedicos.aspx.vb @@ -271,5 +271,40 @@ Partial Class Ventas_CatMedicos #End Region +#Region "CUMPLEAÑOS" + Private Sub CargaCyumpleAnios() + + Dim ObjVentas As New ClsVentas + + If ObjVentas.GetMedicos(-1, UsuarioActual.CveEmpresa, -1, DdlmesCumple.SelectedValue.ToEntero()) Then + GvCumple.DataSource = ObjVentas.DtResultados + Else + GvCumple.DataSource = Nothing + End If + + ObjVentas.Dispose() + + GvCumple.DataBind() + + UpDVModalCumple.Update() + + End Sub + + + Protected Sub LnkCumpleanios_Click(sender As Object, e As EventArgs) + + DdlmesCumple.SelectedValueExist(NowADS.Month) + CargaCyumpleAnios() + RegistraScript("$('#DVModalCumple').modal();") + End Sub + +#End Region + + + + + Protected Sub btnConsultarcumpleAnios_Click(sender As Object, e As EventArgs) + CargaCyumpleAnios() + End Sub End Class