Marius Mutu
7cc3bff358
Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md: - .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu) - 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2) - Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti - Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back) - CLAUDE.md, docs/README.md, roa_sync.bat Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
126 lines
4.6 KiB
Plaintext
126 lines
4.6 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="roacontracte.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 quit
|
|
|
|
DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Alerte" COLOR SCHEME 3
|
|
|
|
ON SELECTION PAD _000000002 OF _msysmenu DO PAD__000000002_OF__msysmenu_FB2P
|
|
|
|
DEFINE PAD _000000003 OF _msysmenu PROMPT "\<Configurare serii" COLOR SCHEME 3
|
|
|
|
ON SELECTION PAD _000000003 OF _msysmenu DO viz_config_serii_complet IN oserii_numere.prg
|
|
|
|
DEFINE PAD _000000004 OF _msysmenu PROMPT "\<Operatii" COLOR SCHEME 3
|
|
|
|
ON PAD _000000004 OF _msysmenu ACTIVATE POPUP Operatii
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Operatii MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF Operatii PROMPT "Import atasamente in baza de date"
|
|
ON SELECTION BAR 1 OF Operatii DO BAR_1_OF_Operatii_FB2P
|
|
|
|
DEFINE PAD _000000005 OF _msysmenu PROMPT "A\<jutor" COLOR SCHEME 3 ;
|
|
KEY ALT+J, "ALT+J" ;
|
|
MESSAGE 'Instructiuni de utilizare, informatii despre acest program.'
|
|
|
|
ON PAD _000000005 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.prg
|
|
ENDPROC && BAR_3_OF_Utile_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_Utile_FB2P
|
|
DO apeleaza_notepad IN oproceduri_comune.prg
|
|
ENDPROC && BAR_4_OF_Utile_FB2P
|
|
|
|
PROCEDURE PAD__000000002_OF__msysmenu_FB2P
|
|
DO viz_alerte_garantii IN oproceduri_roacontracte.prg
|
|
ENDPROC && PAD__000000002_OF__msysmenu_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Operatii_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_Operatii_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>
|