*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="config5.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 schimba_pret in oschimbare_pret.prg

	DEFINE BAR 2 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de politica de preturi"
	ON SELECTION BAR 2 OF PVdeschimb Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 1

	DEFINE BAR 3 OF PVdeschimb PROMPT "O grupa de gestiuni - pe baza de instiintare schimbare de pret"
	ON SELECTION BAR 3 OF PVdeschimb Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 3

	DEFINE BAR 4 OF PVdeschimb PROMPT "\-"
	ON BAR 4 OF PVdeschimb ACTIVATE POPUP _2k60qobmv

		*----------------------------------
		DEFINE POPUP _2k60qobmv SHORTCUT RELATIVE
	DEFINE BAR 5 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de politica de preturi * (stoc neactualizat)"
	ON SELECTION BAR 5 OF PVdeschimb Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 2

	DEFINE BAR 6 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de instiintare schimbare de pret * (stoc neactualizat)"
	ON SELECTION BAR 6 OF PVdeschimb Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 4

	DEFINE BAR 7 OF PVdeschimb PROMPT "\-"
	ON BAR 7 OF PVdeschimb ACTIVATE POPUP _4cz0orlji

		*----------------------------------
		DEFINE POPUP _4cz0orlji SHORTCUT RELATIVE
	DEFINE BAR 8 OF PVdeschimb PROMPT "Schimbare cota \<TVA"
	ON SELECTION BAR 8 OF PVdeschimb Do schimba_pret_tva in oschimbare_pret.prg

DEFINE BAR 4 OF Shortcut PROMPT "\<Instiintari schimbare pret"
ON SELECTION BAR 4 OF Shortcut do instiintaripret in oschimbare_pret.prg

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

	*----------------------------------
	DEFINE POPUP _10w0hn3fc SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "\Raport gestiuni"
ON SELECTION BAR 6 OF Shortcut DO BAR_6_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_6_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_6_OF_Shortcut_FB2P

*</Procedures>