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

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
This commit is contained in:
Marius Mutu
2026-07-23 17:08:56 +03:00
commit 63f3828d5e
141 changed files with 77057 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

125
Meniuri/roaregistratura.mn2 Normal file
View File

@@ -0,0 +1,125 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="roaregistratura.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>1</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE MENU _msysmenu BAR
DEFINE PAD _000000001 OF _msysmenu PROMPT "\<Utile" COLOR SCHEME 3 ;
NEGOTIATE LEFT, NONE ;
KEY ALT+U, "ALT+U" ;
MESSAGE 'Instrumente utile: calculator, calendar, bloc-notes; iesirea din program.'
ON PAD _000000001 OF _msysmenu ACTIVATE POPUP Utile
*----------------------------------
DEFINE POPUP Utile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Utile PROMPT "I\<ntrare..."
ON SELECTION BAR 1 OF Utile DO BAR_1_OF_Utile_FB2P
DEFINE BAR 2 OF Utile PROMPT "\-"
ON BAR 2 OF Utile ACTIVATE POPUP _0dg0s4tx8
*----------------------------------
DEFINE POPUP _0dg0s4tx8 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Utile PROMPT "\<Calculator" ;
MESSAGE 'Deschide un calculator.'
ON SELECTION BAR 3 OF Utile DO BAR_3_OF_Utile_FB2P
DEFINE BAR 4 OF Utile PROMPT "\<Notepad" ;
MESSAGE 'Deschide un carnetel.'
ON SELECTION BAR 4 OF Utile DO BAR_4_OF_Utile_FB2P
DEFINE BAR 5 OF Utile PROMPT "\-"
ON BAR 5 OF Utile ACTIVATE POPUP _s9r16veuj
*----------------------------------
DEFINE POPUP _s9r16veuj MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 6 OF Utile PROMPT "\<Iesire" ;
KEY F2, "F2" ;
MESSAGE 'Iesire din program.'
ON SELECTION BAR 6 OF Utile DO BAR_6_OF_Utile_FB2P
DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Serii" COLOR SCHEME 3
ON SELECTION PAD _000000002 OF _msysmenu DO PAD__000000002_OF__msysmenu_FB2P
DEFINE PAD _000000003 OF _msysmenu PROMPT "\<Operatii" COLOR SCHEME 3
ON PAD _000000003 OF _msysmenu ACTIVATE POPUP NewItem
*----------------------------------
DEFINE POPUP NewItem MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF NewItem PROMPT "Import atasamente in baza de date"
ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P
DEFINE PAD _000000004 OF _msysmenu PROMPT "A\<jutor" COLOR SCHEME 3 ;
KEY ALT+J, "ALT+J" ;
MESSAGE 'Instructiuni de utilizare, informatii despre acest program.'
ON PAD _000000004 OF _msysmenu ACTIVATE POPUP Ajutor
*----------------------------------
DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Ajutor PROMPT "\<Instructiuni de utilizare"
ON SELECTION BAR 1 OF Ajutor DO BAR_1_OF_Ajutor_FB2P
DEFINE BAR 2 OF Ajutor PROMPT "\-"
ON BAR 2 OF Ajutor ACTIVATE POPUP _s23165irc
*----------------------------------
DEFINE POPUP _s23165irc MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Ajutor PROMPT "\<Jurnal modificari"
ON SELECTION BAR 3 OF Ajutor DO BAR_3_OF_Ajutor_FB2P
DEFINE BAR 4 OF Ajutor PROMPT "\<Despre program..." ;
MESSAGE 'Informatii despre program'
ON SELECTION BAR 4 OF Ajutor DO BAR_4_OF_Ajutor_FB2P
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Utile_FB2P
*!* do form start00
DO start_firma IN ostartfirma.prg
ENDPROC && BAR_1_OF_Utile_FB2P
PROCEDURE BAR_3_OF_Utile_FB2P
DO apeleaza_calc IN oproceduri_comune
ENDPROC && BAR_3_OF_Utile_FB2P
PROCEDURE BAR_4_OF_Utile_FB2P
DO apeleaza_notepad IN oproceduri_comune
ENDPROC && BAR_4_OF_Utile_FB2P
PROCEDURE BAR_6_OF_Utile_FB2P
QUIT
ENDPROC && BAR_6_OF_Utile_FB2P
PROCEDURE PAD__000000002_OF__msysmenu_FB2P
DO viz_config_serii_complet WITH 10 IN oserii_numere.prg
ENDPROC && PAD__000000002_OF__msysmenu_FB2P
PROCEDURE BAR_1_OF_NewItem_FB2P
lnRaspuns=aMessagebox('Doriti sa importati in baza de date ca atasamente fisierele din sistemul de fisiere (local/retea)?' ,4,'Import atasamente')
If lnRaspuns=6
Do import_atasamente In oproceduri_atasamente.prg
Endif
ENDPROC && BAR_1_OF_NewItem_FB2P
PROCEDURE BAR_1_OF_Ajutor_FB2P
DO arata_manual IN oproceduri_comune.prg
ENDPROC && BAR_1_OF_Ajutor_FB2P
PROCEDURE BAR_3_OF_Ajutor_FB2P
DO arata_modificari IN oproceduri_comune.prg
ENDPROC && BAR_3_OF_Ajutor_FB2P
PROCEDURE BAR_4_OF_Ajutor_FB2P
DO arata_versiune IN oproceduri_comune.prg
ENDPROC && BAR_4_OF_Ajutor_FB2P
*</Procedures>