64 lines
2.7 KiB
Plaintext
64 lines
2.7 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="vizcli1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Clienti PROMPT "\<Clienti (4111)"
|
|
ON SELECTION BAR 1 OF Clienti DO BAR_1_OF_Clienti_FB2P
|
|
|
|
DEFINE BAR 2 OF Clienti PROMPT "Clienti cr\<editori (419)"
|
|
ON SELECTION BAR 2 OF Clienti DO BAR_2_OF_Clienti_FB2P
|
|
|
|
DEFINE BAR 3 OF Clienti PROMPT "Clienti + clienti creditori (4111 + 419)"
|
|
ON SELECTION BAR 3 OF Clienti DO BAR_3_OF_Clienti_FB2P
|
|
|
|
DEFINE BAR 4 OF Clienti PROMPT "Clienti \<incerti (4118)"
|
|
ON SELECTION BAR 4 OF Clienti DO BAR_4_OF_Clienti_FB2P
|
|
|
|
DEFINE BAR 5 OF Clienti PROMPT "Facturi \<neintocmite (418)"
|
|
ON SELECTION BAR 5 OF Clienti DO BAR_5_OF_Clienti_FB2P
|
|
|
|
DEFINE BAR 6 OF Clienti PROMPT "\-"
|
|
ON BAR 6 OF Clienti ACTIVATE POPUP _54c0y4a2x
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _54c0y4a2x SHORTCUT RELATIVE
|
|
DEFINE BAR 7 OF Clienti PROMPT "\<Efecte comerciale (413)"
|
|
ON SELECTION BAR 7 OF Clienti DO lans_balanta_parteneri WITH "413",.T. IN oparteneri.prg
|
|
ACTIVATE POPUP Clienti
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Clienti_FB2P
|
|
*osetviz.tbrprim.butoncli.click
|
|
DO lans_balanta_parteneri WITH gcCont411, .T. IN oparteneri.prg
|
|
ENDPROC && BAR_1_OF_Clienti_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Clienti_FB2P
|
|
DO lans_balanta_parteneri WITH "419",.F. IN oparteneri.prg
|
|
ENDPROC && BAR_2_OF_Clienti_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Clienti_FB2P
|
|
DO lans_balanta_cumulata_4111_419 IN oparteneri.prg
|
|
ENDPROC && BAR_3_OF_Clienti_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_Clienti_FB2P
|
|
*lctitlu = 'Situatie analitica clienti incerti'
|
|
*DO lans_balante_analitice WITH 'A', 'client4118', lctitlu , '4118 ', 'productie', 'incasat', 'prodval', 'incasval', .f., ''
|
|
DO lans_balanta_parteneri WITH "4118",.T. IN oparteneri.prg
|
|
ENDPROC && BAR_4_OF_Clienti_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Clienti_FB2P
|
|
*lctitlu = 'Situatie analitica facturi neintocmite'
|
|
*DO lans_balante_analitice WITH 'A', 'ana418', lctitlu , '418 ', 'productie', 'incasat', 'prodval', 'incasval', .f., ''
|
|
DO lans_balanta_parteneri WITH "418",.T. IN oparteneri.prg
|
|
ENDPROC && BAR_5_OF_Clienti_FB2P
|
|
|
|
*</Procedures>
|