Cumpleaños del mes

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