*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="config6.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 "\Adaos comercial"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P

DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP _11a0rode2

	*----------------------------------
	DEFINE POPUP _11a0rode2 SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\<P.V. de schimbare pret  de vanzare"
ON BAR 3 OF Shortcut ACTIVATE POPUP PVdeschimb

	*----------------------------------
	DEFINE POPUP PVdeschimb SHORTCUT RELATIVE
	DEFINE BAR 1 OF PVdeschimb PROMPT "\<O gestiune"
	ON SELECTION BAR 1 OF PVdeschimb DO BAR_1_OF_PVdeschimb_FB2P

	DEFINE BAR 2 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de politica de preturi"
	ON SELECTION BAR 2 OF PVdeschimb DO BAR_2_OF_PVdeschimb_FB2P

	DEFINE BAR 3 OF PVdeschimb PROMPT "\-"
	ON BAR 3 OF PVdeschimb ACTIVATE POPUP _2k60qhop4

		*----------------------------------
		DEFINE POPUP _2k60qhop4 SHORTCUT RELATIVE
	DEFINE BAR 4 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de politica de preturi *"
	ON SELECTION BAR 4 OF PVdeschimb DO BAR_4_OF_PVdeschimb_FB2P

DEFINE BAR 4 OF Shortcut PROMPT "\-"
ON BAR 4 OF Shortcut ACTIVATE POPUP _10w0hn3fc

	*----------------------------------
	DEFINE POPUP _10w0hn3fc SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "\Raport gestiuni"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
	*!*	*orp=create('parola')
	*!*	*orp.show(1)
	
	*!*	*if buton=3
	
	*!*	o=crea('adaoscom')
	*!*	o.show(1)
	
	*!*	*endif
ENDPROC && BAR_1_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_PVdeschimb_FB2P
	lans(52)
ENDPROC && BAR_1_OF_PVdeschimb_FB2P

PROCEDURE BAR_2_OF_PVdeschimb_FB2P
	Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 1
ENDPROC && BAR_2_OF_PVdeschimb_FB2P

PROCEDURE BAR_4_OF_PVdeschimb_FB2P
	Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 2
ENDPROC && BAR_4_OF_PVdeschimb_FB2P

PROCEDURE BAR_5_OF_Shortcut_FB2P
	*!*	Local SEREFACE
	
	*!*	Do DANU With 'Se recalculeaza soldurile gestiunilor?'
	*!*	If buton=1
	*!*		SEREFACE=.T.
	*!*	Else
	*!*		SEREFACE=.F.
	*!*	Endif
	
	*!*	If SEREFACE
	*!*		Do ref_gestiuni
	*!*	Endif
	
	*!*	Select A.gest,B.NUMEGEST,B.CONTG,a.precdeb as PrecDeb_371,A.deb as RulDeb_371,A.cred as RulCred_371,;
	*!*	a.precdeb+A.deb-A.cred As SOLD_371,;
	*!*	a.precred378 as Preccred_378,A.deb378 as RulDEB_378,A.cred378 as RulCred_378,;
	*!*	a.precred378+A.cred378-A.deb378 As SOLD_378,;
	*!*	a.procent_k ;
	*!*	From gestiuni A,NUMEGEST B;
	*!*		WHERE A.gest=B.gest;
	*!*		INTO Cursor GES Order By NUMEGEST
	
	*!*		Select GES
	*!*	*SELECT gestiuni
	*!*	GO TOP
	*!*	Do Form gestiuni
	
	*!*	*!*	Use In GES
	
	
	
ENDPROC && BAR_5_OF_Shortcut_FB2P

*</Procedures>
