*       *********************************************************
*       *                                                         
*       * 29/04/2021             MENIU.MPR              12:46:44  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2021 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _61e0re26v OF _MSYSMENU PROMPT "Utile" COLOR SCHEME 3 ;
	KEY ALT+U, ""
DEFINE PAD _61e0re26w OF _MSYSMENU PROMPT "Tasks" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _61e0re26x OF _MSYSMENU PROMPT "Lucrari" COLOR SCHEME 3 ;
	KEY ALT+L, ""
DEFINE PAD _61e0re26y OF _MSYSMENU PROMPT "\<Soft clienti" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _61e0re26z OF _MSYSMENU PROMPT "Actualizare ROA" COLOR SCHEME 3 ;
	KEY ALT+A, ""
DEFINE PAD _61e0re270 OF _MSYSMENU PROMPT "S\<cripturi" COLOR SCHEME 3 ;
	KEY ALT+C, ""
DEFINE PAD _61e0re271 OF _MSYSMENU PROMPT "Setari" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _61e0re272 OF _MSYSMENU PROMPT "E\<xit" COLOR SCHEME 3 ;
	KEY ALT+X, ""
ON PAD _61e0re26v OF _MSYSMENU ACTIVATE POPUP utile
ON SELECTION PAD _61e0re26w OF _MSYSMENU DO FORM frm_tasks
ON PAD _61e0re26x OF _MSYSMENU ACTIVATE POPUP lucrari
ON SELECTION PAD _61e0re26y OF _MSYSMENU ;
	DO _61e0re273 ;
	IN LOCFILE("TASKS\MENIURI\MENIU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU?")
ON SELECTION PAD _61e0re26z OF _MSYSMENU do actualizare_roa.prg
ON SELECTION PAD _61e0re270 OF _MSYSMENU do generare_script.prg
ON SELECTION PAD _61e0re271 OF _MSYSMENU ;
	DO _61e0re274 ;
	IN LOCFILE("TASKS\MENIURI\MENIU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU?")
ON SELECTION PAD _61e0re272 OF _MSYSMENU clear events

DEFINE POPUP utile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF utile PROMPT "Calculator" ;
	MESSAGE 'Deschide calculator'
DEFINE BAR 2 OF utile PROMPT "Notepad" ;
	MESSAGE 'Deschide Notepad'
DEFINE BAR 3 OF utile PROMPT "\-"
DEFINE BAR 4 OF utile PROMPT "Iesire" ;
	KEY F2, "F2" ;
	MESSAGE 'Inchide aplicatia'
ON SELECTION BAR 1 OF utile ;
	DO _61e0re275 ;
	IN LOCFILE("TASKS\MENIURI\MENIU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU?")
ON SELECTION BAR 2 OF utile ;
	DO _61e0re276 ;
	IN LOCFILE("TASKS\MENIURI\MENIU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU?")
ON SELECTION BAR 4 OF utile quit

DEFINE POPUP lucrari MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF lucrari PROMPT "Lucrare noua"
DEFINE BAR 2 OF lucrari PROMPT "Vizualizare lucrari"
ON SELECTION BAR 1 OF lucrari editLucrare()
ON SELECTION BAR 2 OF lucrari do form frm_viz_lucrari


*       *********************************************************
*       *                                                         
*       * _61E0RE273  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENIU.MPR,            Record:   15          
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     Soft clienti                                
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _61e0re273
*SET STEP ON
Do Form sc_form_main


*       *********************************************************
*       *                                                         
*       * _61E0RE274  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENIU.MPR,            Record:   18          
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     Setari                                      
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _61e0re274
LOCAL frm_setari
frm_setari = CREATEOBJECT("frm_setari")
frm_setari.show(1)


*       *********************************************************
*       *                                                         
*       * _61E0RE275  ON SELECTION BAR 1 OF POPUP utile           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENIU.MPR,            Record:    5          
*       * Called By:  ON SELECTION BAR 1 OF POPUP utile           
*       * Prompt:     Calculator                                  
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _61e0re275
LOCAL lcMesaj
Do Case
Case File('C:\WINDOWS\CALC.EXE')
	Run /N C:\Windows\Calc.Exe
Case File('C:\WINDOWS\SYSTEM32\CALC.EXE')
	Run /N C:\Windows\SYSTEM32\Calc.Exe
Case File('C:\WINnt\system32\CALC.EXE')
	Run /N C:\WINnt\SYSTEM32\Calc.Exe
Otherwise
	lcMesaj='Aplicatia "Calculator" nu este instalata pe acest sistem!'
	aMessagebox(lcMesaj,0+48,"ROA Generare serii")
Endcase


*       *********************************************************
*       *                                                         
*       * _61E0RE276  ON SELECTION BAR 2 OF POPUP utile           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENIU.MPR,            Record:    6          
*       * Called By:  ON SELECTION BAR 2 OF POPUP utile           
*       * Prompt:     Notepad                                     
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _61e0re276
LOCAL lcMesaj
Do Case
Case File('C:\WINDOWS\NOTEPAD.EXE')
	Run /N C:\Windows\NOTEPAD.Exe
Case File('C:\WINnt\system32\NOTEPAD.EXE')
	Run /N C:\WINnt\system32\NOTEPAD.Exe
Otherwise
	lcMesaj='Aplicatia "Notepad" nu este instalata pe acest sistem!'
	aMessagebox(lcMesaj,0+48,"ROA Generare serii")
Endcase
