romfast/roagest
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>
This commit is contained in:
Marius Mutu
2026-07-16 11:22:03 +03:00
commit 7ae0c39d5e
204 changed files with 66147 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

108
Meniuri/config6.mn2 Normal file
View File

@@ -0,0 +1,108 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="config6.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Shortcut PROMPT "\Adaos comercial"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP _11a0rode2
*----------------------------------
DEFINE POPUP _11a0rode2 SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\<P.V. de schimbare pret de vanzare"
ON BAR 3 OF Shortcut ACTIVATE POPUP PVdeschimb
*----------------------------------
DEFINE POPUP PVdeschimb SHORTCUT RELATIVE
DEFINE BAR 1 OF PVdeschimb PROMPT "\<O gestiune"
ON SELECTION BAR 1 OF PVdeschimb DO BAR_1_OF_PVdeschimb_FB2P
DEFINE BAR 2 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de politica de preturi"
ON SELECTION BAR 2 OF PVdeschimb DO BAR_2_OF_PVdeschimb_FB2P
DEFINE BAR 3 OF PVdeschimb PROMPT "\-"
ON BAR 3 OF PVdeschimb ACTIVATE POPUP _2k60qhop4
*----------------------------------
DEFINE POPUP _2k60qhop4 SHORTCUT RELATIVE
DEFINE BAR 4 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de politica de preturi *"
ON SELECTION BAR 4 OF PVdeschimb DO BAR_4_OF_PVdeschimb_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "\-"
ON BAR 4 OF Shortcut ACTIVATE POPUP _10w0hn3fc
*----------------------------------
DEFINE POPUP _10w0hn3fc SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "\Raport gestiuni"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
*!* *orp=create('parola')
*!* *orp.show(1)
*!* *if buton=3
*!* o=crea('adaoscom')
*!* o.show(1)
*!* *endif
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_PVdeschimb_FB2P
lans(52)
ENDPROC && BAR_1_OF_PVdeschimb_FB2P
PROCEDURE BAR_2_OF_PVdeschimb_FB2P
Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 1
ENDPROC && BAR_2_OF_PVdeschimb_FB2P
PROCEDURE BAR_4_OF_PVdeschimb_FB2P
Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 2
ENDPROC && BAR_4_OF_PVdeschimb_FB2P
PROCEDURE BAR_5_OF_Shortcut_FB2P
*!* Local SEREFACE
*!* Do DANU With 'Se recalculeaza soldurile gestiunilor?'
*!* If buton=1
*!* SEREFACE=.T.
*!* Else
*!* SEREFACE=.F.
*!* Endif
*!* If SEREFACE
*!* Do ref_gestiuni
*!* Endif
*!* Select A.gest,B.NUMEGEST,B.CONTG,a.precdeb as PrecDeb_371,A.deb as RulDeb_371,A.cred as RulCred_371,;
*!* a.precdeb+A.deb-A.cred As SOLD_371,;
*!* a.precred378 as Preccred_378,A.deb378 as RulDEB_378,A.cred378 as RulCred_378,;
*!* a.precred378+A.cred378-A.deb378 As SOLD_378,;
*!* a.procent_k ;
*!* From gestiuni A,NUMEGEST B;
*!* WHERE A.gest=B.gest;
*!* INTO Cursor GES Order By NUMEGEST
*!* Select GES
*!* *SELECT gestiuni
*!* GO TOP
*!* Do Form gestiuni
*!* *!* Use In GES
ENDPROC && BAR_5_OF_Shortcut_FB2P
*</Procedures>