62 lines
2.6 KiB
Plaintext
62 lines
2.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="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>
|