Calculo de Fecha Probable de Parto (FPP) mediante Regla de Naegele

La Regla de Naegele es un método estandarizado de calcular la fecha prevista de parto para una gestación normal. Se llamó así en honor de Franz Karl Naegele (1778-1851), el obstetra alemán que la desarrolló. Fuente: http://es.wikipedia.org/wiki/Naegele

//FPP = FUM + 1 año + 7 días - 3 meses

&NeageleSumaAnos = AddYr(&FUM, 1)  //Sumamos 1 año
&NeageleSumaDias = &NeageleSumaAnos + 7  //Sumamos 7 dias
&NeageleRestaMeses = AddMth(&NeageleSumaDias, -3)  //Restamos 3 meses
&FPP = &NeageleRestaMeses  //Resultado



FUM = Fecha de Ultima Menstruación
FPP = Fecha Probable de Parto

Todas estas variables son de tipo Date:
&FUM
&FPP
&NeageleSumaAnos
&NeageleSumaDias
&NeageleRestaMeses

Implementación del User Control GXScheduler para Agenda

La petición: Poder revisar las citas asignadas en un calendario

La Solución: Implementación del UC GXScheduler

•  Creamos un WebPannel y desde el Toolbox, hacia el Web Form halamos el control

  

• Conjuntamente con algunos otros controles se creará en el Folder View

• En la siguiente dirección se obtiene una ayuda total para las propiedades que se puede tener, para modificarlas hay que dar clic en el user control insertado en el WebPannel, aca la direccion: http://wiki.gxtechnical.com/commwiki/servlet/hwiki?Scheduler+User+Control,
• IMPORTANTISIMO: Generar el procedimiento SchedulerRequestHandler que es main, si esto me salio un error al momento de la carga.
• Para este ejemplo utilice un Data Provider, en donde se saca variables de una websesion; quedo así y funcionó muy bien.

 SchedulerEvents
{
    &Usuario = &Sesion.Get('Usuario')
    &Sucursal = &Sesion.Get('Sucursal')
    Items
    {
        event
        where AttUsuario = &Usuario
        where AttSucursal = &Sucursal
        where AttFecha >= &dateFrom
        where AttFecha <= &dateTo
        {
            Id = AttHora.ToString()
            Name = AttNombre
            Notes = "Paciente: " + trim(AttNombre) + " Hora: " + trim(AttHora.ToString())       
            StartTime = ymDHMStoT(AttFecha.Year(), AttFecha.Month(), AttFecha.Day(), AttHora.Hour(), AttHora.Minute(), AttHora.Second())
            EndTime = ymDHMStoT(AttFecha.Year(), AttFecha.Month(), AttFecha.Day(), AttHora.Hour(), AttHora.Minute() + 10, AttHora.Second())
        }
    }
}