romfast/tasks
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit - tasks v1.1.14

Browse Source 
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-04-21 15:46:20 +03:00
commit d91b19e336
218 changed files with 8258 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

170
meniuri/MENIU.MPR Normal file
View File

@@ -0,0 +1,170 @@
* *********************************************************
* *
* * 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

BIN
meniuri/meniu.MNT Normal file
View File

Binary file not shown.

BIN
meniuri/meniu.MPX Normal file
View File

Binary file not shown.

BIN
meniuri/meniu.mnx Normal file
View File

Binary file not shown.