{
 PROGRAMA          : PLMN00000
 OBJETIVO          : Menu principal del Sistema 
                     de Planta. 
 PROGRAMADOR       : Juan Fco. Soto (Johnny)
 MODIFICADO        : Jose A. Paulino.        (19 de oct. 1992)
 FECHA REALIZACION : Octubre 15, 1992.
 MODIFICACION      :
 FECHA             :
}

MAIN                
   DEFER INTERRUPT
   CALL opciones_plmn00000()
END MAIN

FUNCTION opciones_plmn00000()
DEFINE opt char(2)
   OPTIONS
     PROMPT LINE 8,
     ERROR LINE 24
   CALL pantalla()

    DISPLAY "          Menu Principal           " AT 6,22
    DISPLAY "plmn00000"                          AT 4,3 ATTRIBUTE(YELLOW)
    DISPLAY "1- Produccion                    prmn00000" AT 10,6
    #DISPLAY "2- Activo Fijo                      acfm01" AT 11,6
    #DISPLAY "3- Catalogo Activo Fijo          acprrp008" AT 12,6
    DISPLAY "S- Retorna Menu Anterior" AT 14,6 ATTRIBUTE(YELLOW)

     PROMPT "OPCION: " attribute(yellow) FOR OPT
      LET opt = UPSHIFT(opt)  clipped 

    CASE     
       WHEN OPT = "1"
          RUN "fglgo /users/rova/sysinfo/4gidir/prmn00000"
          CLEAR SCREEN
          CALL  opciones_plmn00000()
       {WHEN OPT = "2"
          RUN "isql -s rayovac -fr /users/rova/sysinfo/acfm01"
          CLEAR SCREEN
          CALL  opciones_plmn00000()
       WHEN OPT = "3"
          RUN "isql -s rayovac -rr /users/rova/sysinfo/acprrp008"
          CLEAR SCREEN}
       WHEN OPT = "S" or OPT = "s"
          RETURN
       OTHERWISE
         CALL opciones_plmn00000()
    END CASE
END FUNCTION

FUNCTION pantalla() 
   DEFINE fecha CHAR(8),
          hora char(5) 
   LET fecha = today USING "dd/mm/yy"  
   LET hora = time
    DISPLAY " R A Y - O - V A C  D O M I N I C A N A " AT 4,19
            ATTRIBUTE (REVERSE,YELLOW)
    DISPLAY fecha AT 4,70 ATTRIBUTE (YELLOW)
    DISPLAY "Sistema de Planta" AT 5,31
    DISPLAY hora AT 6,73 ATTRIBUTE(YELLOW)

    CALL fgl_drawbox(5,79,3,1)
    CALL fgl_drawbox(1,79,22,1)
END FUNCTION