171 lines
7.7 KiB
Plaintext
171 lines
7.7 KiB
Plaintext
* *********************************************************
|
|
* *
|
|
* * 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
|