romfast/roacont
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 10:54:13 +03:00
commit 09580ad9d6
340 changed files with 334893 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
Meniuri/vizfurn1.mn2 Normal file
View File

@@ -0,0 +1,61 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="vizfurn1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Furnizori PROMPT "\<Furnizori (401)"
ON SELECTION BAR 1 OF Furnizori DO BAR_1_OF_Furnizori_FB2P
DEFINE BAR 2 OF Furnizori PROMPT "Furnizori \<debitori (409)"
ON SELECTION BAR 2 OF Furnizori DO BAR_2_OF_Furnizori_FB2P
DEFINE BAR 3 OF Furnizori PROMPT "Furnizori + Furnizori debitori (401 + 409)"
ON SELECTION BAR 3 OF Furnizori DO BAR_3_OF_Furnizori_FB2P
DEFINE BAR 4 OF Furnizori PROMPT "Furnizori de \<imobilizari (404)"
ON SELECTION BAR 4 OF Furnizori DO BAR_4_OF_Furnizori_FB2P
DEFINE BAR 5 OF Furnizori PROMPT "Facturi \<nesosite (408)"
ON SELECTION BAR 5 OF Furnizori DO lans_balanta_parteneri WITH "408",.F. IN oparteneri.prg
DEFINE BAR 6 OF Furnizori PROMPT "\-"
ON BAR 6 OF Furnizori ACTIVATE POPUP _54c0y3z3z
*----------------------------------
DEFINE POPUP _54c0y3z3z SHORTCUT RELATIVE
DEFINE BAR 7 OF Furnizori PROMPT "Efecte comerciale (403)"
ON SELECTION BAR 7 OF Furnizori DO lans_balanta_parteneri WITH "403",.F. IN oparteneri.prg
DEFINE BAR 8 OF Furnizori PROMPT "Efecte comerciale imobilizari (405)"
ON SELECTION BAR 8 OF Furnizori DO lans_balanta_parteneri WITH "405",.F. IN oparteneri.prg
ACTIVATE POPUP Furnizori
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Furnizori_FB2P
*osetviz.tbrprim.butonfurn.click
DO lans_balanta_parteneri WITH "401",.F. IN oparteneri.prg
ENDPROC && BAR_1_OF_Furnizori_FB2P
PROCEDURE BAR_2_OF_Furnizori_FB2P
DO lans_balanta_parteneri WITH "409,4091,4092,4093,4094",.T. IN oparteneri.prg
ENDPROC && BAR_2_OF_Furnizori_FB2P
PROCEDURE BAR_3_OF_Furnizori_FB2P
DO lans_balanta_cumulata_401_409 IN oparteneri.prg
ENDPROC && BAR_3_OF_Furnizori_FB2P
PROCEDURE BAR_4_OF_Furnizori_FB2P
*lctitlu = 'Situatie analitica furnizori imobilizari'
*DO lans_balante_analitice WITH 'P', 'furniz404', lctitlu , '404 ', 'platit', 'achizit', 'platival', 'achizitval', .f., ''
DO lans_balanta_parteneri WITH "404",.F. IN oparteneri.prg
ENDPROC && BAR_4_OF_Furnizori_FB2P
*</Procedures>