67 lines
2.1 KiB
Plaintext
67 lines
2.1 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori5_.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Furnizorie SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Furnizorie PROMPT "Furnizori de materiale/servicii"
|
|
ON SELECTION BAR 1 OF Furnizorie DO BAR_1_OF_Furnizorie_FB2P
|
|
|
|
DEFINE BAR 2 OF Furnizorie PROMPT "\Furnizori de materiale/servicii scutite de TVA"
|
|
ON SELECTION BAR 2 OF Furnizorie DO BAR_2_OF_Furnizorie_FB2P
|
|
|
|
DEFINE BAR 3 OF Furnizorie PROMPT "Furnizori de \<imobilizari"
|
|
ON SELECTION BAR 3 OF Furnizorie DO BAR_3_OF_Furnizorie_FB2P
|
|
|
|
DEFINE BAR 4 OF Furnizorie PROMPT "\-"
|
|
ON BAR 4 OF Furnizorie ACTIVATE POPUP _0je0sxil0
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0je0sxil0 SHORTCUT RELATIVE
|
|
DEFINE BAR 5 OF Furnizorie PROMPT "\Import marfa"
|
|
ON SELECTION BAR 5 OF Furnizorie DO BAR_5_OF_Furnizorie_FB2P
|
|
ACTIVATE POPUP Furnizorie
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Furnizorie_FB2P
|
|
*DO FURN_E_MAT WITH .T. IN PROCMENIU.PRG
|
|
SELE BAL
|
|
GO TOP
|
|
OS=CREA('SELCONT')
|
|
OS.SHOW(1)
|
|
IF BUTON=2
|
|
RETURN
|
|
ENDIF
|
|
|
|
LANS(10423)
|
|
ENDPROC && BAR_1_OF_Furnizorie_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Furnizorie_FB2P
|
|
DO FURN_E_MAT WITH .F. IN PROCMENIU.PRG
|
|
ENDPROC && BAR_2_OF_Furnizorie_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Furnizorie_FB2P
|
|
*DO FURN_E_IMOB IN PROCMENIU.PRG
|
|
SELE BAL
|
|
GO TOP
|
|
OS=CREA('SELCONT')
|
|
OS.SHOW(1)
|
|
IF BUTON=2
|
|
RETURN
|
|
ENDIF
|
|
|
|
LANS(10424)
|
|
ENDPROC && BAR_3_OF_Furnizorie_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Furnizorie_FB2P
|
|
do importmarfa in procmeniu.prg
|
|
ENDPROC && BAR_5_OF_Furnizorie_FB2P
|
|
|
|
*</Procedures>
|