Clarion - Ejecucion a determinada hora

GLO:TIMER    LONG

  GLO:DIA          LONG

  GLO:HORA     LONG

  GLO:EXPORTING     BYTE

  GLO:TIMER=1000

  MyDay#=TODAY()%7+1

  IF GLO:DIA[MyDay#]=1    // Me fijo si es el dia programada

    MyClock#=CLOCK()

    IF INRANGE(MyClock#,GLO:HORA,GLO:HORA+6000)  // Si es la hora programada

      IF GLO:EXPORTING=False     // para asegurarse que no esta corriendo ya la exportación

        GLO:EXPORTING=True

        Window{PROP:Timer}=0  // Pongo el timer de la ventana en 0

        Log_File('Comenzando tarea programada')

        Export_A()  // Hago la exportacón

        Window{PROP:Timer}=GLO:TIMER // Vuelvo a poner el timer en el valor inicial

      END

    ELSE

      GLO:EXPORTING=False

    END

  ELSE

    GLO:EXPORTING=False

  END