38 lines
1.3 KiB
Plaintext
38 lines
1.3 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="coeficientilunari.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 "Cote TVA"
|
|
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "Plafoane casa"
|
|
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
|
lnAn = gnAn
|
|
lnLuna = gnLuna
|
|
|
|
DO viz_cote_tva WITH gcs,lnAn,lnLuna
|
|
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
|
lnAn = gnAn
|
|
lnLuna = gnLuna
|
|
|
|
DO viz_plafon_casa WITH gcs,lnAn,lnLuna IN onomenclatoare.prg
|
|
*!* oc=crea('coef')
|
|
*!* oc.show(1)
|
|
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
|
|
|
*</Procedures>
|