*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="list4.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 "NIR-uri"
ON BAR 1 OF Shortcut ACTIVATE POPUP NIRuri

	*----------------------------------
	DEFINE POPUP NIRuri SHORTCUT RELATIVE
	DEFINE BAR 1 OF NIRuri PROMPT "\<NIR de la numar la numar"
	ON SELECTION BAR 1 OF NIRuri DO BAR_1_OF_NIRuri_FB2P

	DEFINE BAR 2 OF NIRuri PROMPT "NIR-uri \<pe Gestiuni"
	ON SELECTION BAR 2 OF NIRuri DO BAR_2_OF_NIRuri_FB2P

DEFINE BAR 2 OF Shortcut PROMPT "\Aprovizionare marfuri"
ON BAR 2 OF Shortcut ACTIVATE POPUP Aprovizion

	*----------------------------------
	DEFINE POPUP Aprovizion SHORTCUT RELATIVE
	DEFINE BAR 1 OF Aprovizion PROMPT "Pe furnizori"
	ON SELECTION BAR 1 OF Aprovizion DO BAR_1_OF_Aprovizion_FB2P

	DEFINE BAR 2 OF Aprovizion PROMPT "Pe produse"
	ON SELECTION BAR 2 OF Aprovizion DO BAR_2_OF_Aprovizion_FB2P

	DEFINE BAR 3 OF Aprovizion PROMPT "Pe grupe si subgrupe"
	ON SELECTION BAR 3 OF Aprovizion DO BAR_3_OF_Aprovizion_FB2P

DEFINE BAR 3 OF Shortcut PROMPT "\-"
ON BAR 3 OF Shortcut ACTIVATE POPUP _1020qr818

	*----------------------------------
	DEFINE POPUP _1020qr818 SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "Bonuri"
ON BAR 4 OF Shortcut ACTIVATE POPUP Bonuri

	*----------------------------------
	DEFINE POPUP Bonuri SHORTCUT RELATIVE
	DEFINE BAR 1 OF Bonuri PROMPT "\<De la numar la numar"
	ON SELECTION BAR 1 OF Bonuri DO BAR_1_OF_Bonuri_FB2P

	DEFINE BAR 2 OF Bonuri PROMPT "Pe comenzi"
	ON SELECTION BAR 2 OF Bonuri DO BAR_2_OF_Bonuri_FB2P

	DEFINE BAR 3 OF Bonuri PROMPT "Pe gestiuni"
	ON SELECTION BAR 3 OF Bonuri DO BAR_3_OF_Bonuri_FB2P

DEFINE BAR 5 OF Shortcut PROMPT "\<Protocol"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P

DEFINE BAR 6 OF Shortcut PROMPT "Protocol - aviz \<expeditie"
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P

DEFINE BAR 7 OF Shortcut PROMPT "\<Sponsorizare"
ON SELECTION BAR 7 OF Shortcut DO BAR_7_OF_Shortcut_FB2P

DEFINE BAR 8 OF Shortcut PROMPT "Sponsorizare - aviz \<expeditie"
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P

DEFINE BAR 9 OF Shortcut PROMPT "\<Retur magazie"
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P

DEFINE BAR 10 OF Shortcut PROMPT "Transferuri"
ON BAR 10 OF Shortcut ACTIVATE POPUP Transferur

	*----------------------------------
	DEFINE POPUP Transferur SHORTCUT RELATIVE
	DEFINE BAR 1 OF Transferur PROMPT "\<Catre o gestiune la pret de achizitie"
	ON SELECTION BAR 1 OF Transferur DO BAR_1_OF_Transferur_FB2P

	DEFINE BAR 2 OF Transferur PROMPT "\<Catre o gestiune la pret de vanzare"
	ON SELECTION BAR 2 OF Transferur DO BAR_2_OF_Transferur_FB2P

	DEFINE BAR 3 OF Transferur PROMPT "\<Rezervare"
	ON SELECTION BAR 3 OF Transferur DO BAR_3_OF_Transferur_FB2P

DEFINE BAR 11 OF Shortcut PROMPT "\-"
ON BAR 11 OF Shortcut ACTIVATE POPUP _1020r4619

	*----------------------------------
	DEFINE POPUP _1020r4619 SHORTCUT RELATIVE
DEFINE BAR 12 OF Shortcut PROMPT "\Avize de insotire"
ON SELECTION BAR 12 OF Shortcut DO BAR_12_OF_Shortcut_FB2P

DEFINE BAR 13 OF Shortcut PROMPT "\-"
ON BAR 13 OF Shortcut ACTIVATE POPUP _1020queaj

	*----------------------------------
	DEFINE POPUP _1020queaj SHORTCUT RELATIVE
DEFINE BAR 14 OF Shortcut PROMPT "\<Factura de vanzare"
ON SELECTION BAR 14 OF Shortcut DO BAR_14_OF_Shortcut_FB2P

DEFINE BAR 15 OF Shortcut PROMPT "\-"
ON BAR 15 OF Shortcut ACTIVATE POPUP _1020r00x7

	*----------------------------------
	DEFINE POPUP _1020r00x7 SHORTCUT RELATIVE
DEFINE BAR 16 OF Shortcut PROMPT "\<Raport de gestiune"
ON SELECTION BAR 16 OF Shortcut DO BAR_16_OF_Shortcut_FB2P

DEFINE BAR 17 OF Shortcut PROMPT "\-"
ON BAR 17 OF Shortcut ACTIVATE POPUP _1u716eziw

	*----------------------------------
	DEFINE POPUP _1u716eziw SHORTCUT RELATIVE
DEFINE BAR 18 OF Shortcut PROMPT "Stocuri"
ON SELECTION BAR 18 OF Shortcut DO BAR_18_OF_Shortcut_FB2P

DEFINE BAR 19 OF Shortcut PROMPT "Fisa de \<magazie"
ON SELECTION BAR 19 OF Shortcut DO BAR_19_OF_Shortcut_FB2P

DEFINE BAR 20 OF Shortcut PROMPT "Fisa de magazie - cu preturi in valuta"
ON SELECTION BAR 20 OF Shortcut DO BAR_20_OF_Shortcut_FB2P

DEFINE BAR 21 OF Shortcut PROMPT "\-"
ON BAR 21 OF Shortcut ACTIVATE POPUP _1te0ou05e

	*----------------------------------
	DEFINE POPUP _1te0ou05e SHORTCUT RELATIVE
DEFINE BAR 22 OF Shortcut PROMPT "Vanzare marfa la pret de lista"
ON BAR 22 OF Shortcut ACTIVATE POPUP Vanzaremar

	*----------------------------------
	DEFINE POPUP Vanzaremar SHORTCUT RELATIVE
	DEFINE BAR 1 OF Vanzaremar PROMPT "Centralizator pe articole"
	ON SELECTION BAR 1 OF Vanzaremar DO BAR_1_OF_Vanzaremar_FB2P

	DEFINE BAR 2 OF Vanzaremar PROMPT "Rulaje articole"
	ON SELECTION BAR 2 OF Vanzaremar DO BAR_2_OF_Vanzaremar_FB2P

	DEFINE BAR 3 OF Vanzaremar PROMPT "Centralizator valoric pe liste de preturi"
	ON SELECTION BAR 3 OF Vanzaremar DO BAR_3_OF_Vanzaremar_FB2P

DEFINE BAR 23 OF Shortcut PROMPT "\<Raport comparativ de scadere din gestiune pe baza de fisa tehnologica"
ON SELECTION BAR 23 OF Shortcut DO BAR_23_OF_Shortcut_FB2P

DEFINE BAR 24 OF Shortcut PROMPT "\<Raport de scadere din gestiune"
ON SELECTION BAR 24 OF Shortcut DO BAR_24_OF_Shortcut_FB2P

DEFINE BAR 25 OF Shortcut PROMPT "\<Raport de productie si descarcare gestiune"
ON SELECTION BAR 25 OF Shortcut DO BAR_25_OF_Shortcut_FB2P

DEFINE BAR 26 OF Shortcut PROMPT "\<Raport vanzari"
ON SELECTION BAR 26 OF Shortcut DO BAR_26_OF_Shortcut_FB2P

DEFINE BAR 27 OF Shortcut PROMPT "Centralizatoare livrari pe subgrupe de produse"
ON BAR 27 OF Shortcut ACTIVATE POPUP NewItem

	*----------------------------------
	DEFINE POPUP NewItem SHORTCUT RELATIVE
	DEFINE BAR 1 OF NewItem PROMPT "Transferuri catre gestiuni la p.v. cumulate pe gestiuni"
	ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P

	DEFINE BAR 2 OF NewItem PROMPT "Facturi cumulate pe clienti"
	ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P

	DEFINE BAR 3 OF NewItem PROMPT "Protocol si sponsorizari cumulate pe parteneri"
	ON SELECTION BAR 3 OF NewItem DO BAR_3_OF_NewItem_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_NIRuri_FB2P
	
	*!*	13.01.2015
	*!*	PRIVATE pnNr
	*!*	STORE 0 TO pnNr
	
	*!*	DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr
	*!*	IF gnButon = 1
	*!*		lnTip = gnTipGest
	*!*		DO listare_nir WITH pnNr, lnTip
	*!*	ENDIF 
	
	PRIVATE pnNr1, pnNr2
	LOCAL lnTip, lnNr1, lnNr2
	pnNr1 = 0
	pnNr2 = 0
	
	lnTip = gnTipGest
	DO FORM frm_cere_text WITH 'Numar NIR 1','pnNr1','Numar NIR 1' TO lnNr1
	IF gnButon = 1
		pnNr2 = m.pnNr1
		DO FORM frm_cere_text WITH 'Numar NIR 2','pnNr2','Numar NIR 2' TO lnNr2
	
	*!*		DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip
		DO listare_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip
	ENDIF 
	*!*	13.01.2015 ^
ENDPROC && BAR_1_OF_NIRuri_FB2P

PROCEDURE BAR_2_OF_NIRuri_FB2P
	lnTip = gnTipGest
	DO list_total_NIR WITH lnTip && in oproceduri_listari.prg
ENDPROC && BAR_2_OF_NIRuri_FB2P

PROCEDURE BAR_1_OF_Aprovizion_FB2P
	*!*	DO list_marf_furn_grupe WITH 1
ENDPROC && BAR_1_OF_Aprovizion_FB2P

PROCEDURE BAR_2_OF_Aprovizion_FB2P
	*!*	DO list_marf_furn_grupe WITH 2
ENDPROC && BAR_2_OF_Aprovizion_FB2P

PROCEDURE BAR_3_OF_Aprovizion_FB2P
	*!*	DO list_articole_gr IN gestiuni.prg
ENDPROC && BAR_3_OF_Aprovizion_FB2P

PROCEDURE BAR_1_OF_Bonuri_FB2P
	PRIVATE pnNr1, pnNr2
	LOCAL lnTip, lnNr1, lnNr2
	pnNr1 = 0
	pnNr2 = 0
	
	lnTip = gnTipGest
	DO FORM frm_cere_text WITH 'Numar BON 1','pnNr1','Numar BON 1' TO lnNr1
	IF gnButon = 1
		pnNr2 = m.pnNr1
		DO FORM frm_cere_text WITH 'Numar BON 2','pnNr2','Numar BON 2' TO lnNr2
	
		DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip
	ENDIF 
ENDPROC && BAR_1_OF_Bonuri_FB2P

PROCEDURE BAR_2_OF_Bonuri_FB2P
	DO list_bon_pe_lucrare WITH gnTipGest
	
	*!*	SELECT DISTINCT RULL.NRORD FROM RULL into TABLE &LOC\&NFSCURT\tempo\raA.DBF 
	*!*	SELECT RAA
	*!*	APPEND BLANK
	*!*	REPLACE NRORD WITH " <TOATE>"
	*!*	Index ON NRORD TAG NRORD
	*!*	*!*	SET ORDER TO NRORD 
	*!*	do caut_alfa with "RAA","Nrord","NUMELE COMENZII","M.nrord"
	
	*!*	DO danu WITH 'Total bonuri? (Alegeti DA pt. total bonuri, si NU pt. bonuri din luna curenta)'
	
	*!*	IF buton=1
	*!*	Select DISTINCT rul.nnir,rul.nrord,rul.denumire,rul.um,rul.cant,rul.cante,rul.pret,rul.gest,rul.codmat,rul.dataact,;
	*!*		actan.dataireg,actan.NUME_2 As RESPONS,rul.PRETV,rul.scd;
	*!*		from actan,rul;
	*!*		where actan.cod=rul.cod And rul.cante # 0 And rul.cant=0;
	*!*		into CURSOR ra
	*!*	ELSE
	*!*	Select DISTINCT rull.nnir,rull.nrord,rull.denumire,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.codmat,rull.dataact,;
	*!*		act.dataireg,act.NUME_2 As RESPONS,rull.PRETV,rull.scd;
	*!*		from act,rull;
	*!*		where act.cod=rull.cod And rull.cante # 0 And rull.cant=0;
	*!*		into CURSOR ra
	*!*	endif
	
	*!*	SELECT RA
	*!*	Index On NRORD+STR(VAL(ALLTRIM(nnir)))+DTOC(dataact) TAG nnir &&To &LOC\&NFSCURT\tempo\FFD 
	
	*!*	IF ALLTRIM(M.NRORD)="<TOATE>"
	*!*		SELECT ra
	*!*		*SET ORDER TO NRORD
	*!*	    SET ORDER TO NNIR 
	*!*	   	REPORT FORM BONC.FRX TO PRINTER PROMPT PREVIEW 
	*!*	ELSE
	*!*		SELECT RA
	*!*		SET FILTER TO NRORD=M.NRORD
	*!*		SET ORDER TO nnir 
	*!*		REPORT FORM BONC.FRX TO PRINTER PROMPT PREVIEW 
	*!*	ENDIF
	*!*	USE IN ra
	*!*	SELECT rul 
	*!*	SET FILTER TO 	
	*!*	SELECT rull 
	*!*	SET FILTER TO
ENDPROC && BAR_2_OF_Bonuri_FB2P

PROCEDURE BAR_3_OF_Bonuri_FB2P
	lnTip = gnTipGest
	DO list_total_BON WITH lnTip && in oproceduri_listari.prg
ENDPROC && BAR_3_OF_Bonuri_FB2P

PROCEDURE BAR_5_OF_Shortcut_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Numarul avizului','pnNr','Numarul avizului' TO lnNr
	IF gnButon = 1
		DO listare_protocol WITH pnNr
	ENDIF 
ENDPROC && BAR_5_OF_Shortcut_FB2P

PROCEDURE BAR_6_OF_Shortcut_FB2P
	Private pnNrAct,pcSerie
	Store 0 To pnNr
	Store "" To pcSerie
	
	Do Form frm_cere_nrserie With 'Nr. aviz'
	If gnButon = 1
		Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,-9 In ofacturare_stoc.prg
	Endif
	Release pnNrAct,pcSerie
ENDPROC && BAR_6_OF_Shortcut_FB2P

PROCEDURE BAR_7_OF_Shortcut_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Numarul avizului','pnNr','Numarul avizului' TO lnNr
	IF gnButon = 1
		DO listare_protocol WITH pnNr,2
	ENDIF 
ENDPROC && BAR_7_OF_Shortcut_FB2P

PROCEDURE BAR_8_OF_Shortcut_FB2P
	Private pnNrAct,pcSerie
	Store 0 To pnNr
	Store "" To pcSerie
	
	Do Form frm_cere_nrserie With 'Nr. aviz'
	If gnButon = 1
		Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,-10 In ofacturare_stoc.prg
	Endif
	Release pnNrAct,pcSerie
ENDPROC && BAR_8_OF_Shortcut_FB2P

PROCEDURE BAR_9_OF_Shortcut_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de retur' TO lnNr
	IF gnButon = 1
		lnTip = gnTipGest
		DO LISTARE_RETUR WITH pnNr, lnTip
	ENDIF 
	
	*!*	store 0 to m.nract1
	*!*	Ointre=CREATEOBJECT("CAUTintre")
	*!*		WITH Ointre
	*!*			.CAPTION="Numarul notei de retur"
	*!*			.label1.caption="Nr. nota:"
	*!*			.label2.visible=.f.
	*!*			.text1.controlsource="m.nract1"
	*!*			.text2.visible=.f.
	*!*		endwith
	*!*		ointre.show(1)
	
	*!*	DO LIST_RETUR WITH M.NRACT1,5
ENDPROC && BAR_9_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_Transferur_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
	IF gnButon = 1
		lnTip = gnTipGest
		DO LISTARE_TRANSFER WITH pnNr, lnTip
	ENDIF 
	
	*!*	store 0 to m.nract1
	*!*	Ointre=CREATEOBJECT("CAUTintre")
	*!*		WITH Ointre
	*!*			.CAPTION="Numarul notei de transfer"
	*!*			.label1.caption="Nr. nota:"
	*!*			.label2.visible=.f.
	*!*			.text1.controlsource="m.nract1"
	*!*			.text2.visible=.f.
	*!*		endwith
	*!*		ointre.show(1)
	
	*!*	DO LIST_TRANSFER WITH M.NRACT1,17
ENDPROC && BAR_1_OF_Transferur_FB2P

PROCEDURE BAR_2_OF_Transferur_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
	IF gnButon = 1
		lnTip = 6
		DO LISTARE_TRANSFER WITH pnNr, lnTip
	ENDIF 
	
	*!*	store 0 to m.nract1
	*!*	Ointre=CREATEOBJECT("CAUTintre")
	*!*		WITH Ointre
	*!*			.CAPTION="Numarul notei de transfer"
	*!*			.label1.caption="Nr. nota:"
	*!*			.label2.visible=.f.
	*!*			.text1.controlsource="m.nract1"
	*!*			.text2.visible=.f.
	*!*		endwith
	*!*		ointre.show(1)
	
	*!*	DO LIST_TRANSFER WITH M.NRACT1,18
	
ENDPROC && BAR_2_OF_Transferur_FB2P

PROCEDURE BAR_3_OF_Transferur_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de rezervare/transfer' TO lnNr
	IF gnButon = 1
		lnTip = 8
		DO LISTARE_TRANSFER WITH pnNr, lnTip
	ENDIF 
ENDPROC && BAR_3_OF_Transferur_FB2P

PROCEDURE BAR_12_OF_Shortcut_FB2P
	*!*	*osetgest.tbrprim.buton4.click
	*!*	Public M.T
	*!*	Public m.nract1,m.nract2
	*!*	Store 0 To m.nract1,m.nract2
	*!*	public m.delegat,m.bi,m.nrinmat
	*!*	store '' to m.delegat,m.bi,m.nrinmat
	*!*	store 0 to m.nract1
	*!*	sele calendar
	*!*	loca for nl=m.nl and an=m.an
	*!*	m.ctva=ctvam
	
	
	*!*	*___________________________________________________________
	*!*	Ointre=Createobject("CAUTintre")
	*!*	With Ointre
	*!*		.Caption="Numarul bonului"
	*!*		.label1.Caption="Nr.initial:"
	*!*		.label2.Visible=.F.
	*!*		.text1.ControlSource="m.nract1"
	*!*		.text2.Visible=.F.
	*!*	Endwith
	*!*	Ointre.Show(1)
	
	*!*	Sele rull
	*!*	Loca For Val(rull.nnir)=m.nract1
	*!*	If !Found()
	*!*		Do mesaj With 'Nu a fost inregistrat nici un bon','cu numarul '+Allt(Str(m.nract1))
	*!*		Return
	*!*	Else
	*!*		m.T='BONURI'
	
	*!*		Select Distinct rull.denumire,rull.um,rull.cante,rull.pretV,rull.gest,rull.nnir,rull.codmat,rull.NRORD,rull.PRET,;
	*!*			act.dataact,act.NUME_2 As RESPONS,rull.scd,rull.cant;
	*!*			from act,rull;
	*!*			where act.cod=rull.cod And Val(rull.nnir)=m.nract1 And rull.cante # 0 And rull.cant=0;
	*!*			into Table &loc\&nfscurt\tempo\ra
	
	*!*		Sele ra
	*!*		Index On Str(gest,2)+nnir To &loc\&nfscurt\tempo\ra
	*!*	ENDIF 
	
	*!*	DO FORM dateexp
	*!*	SELE FIRMA
	*!*	LOCA FOR NFSCURT=FSCURT
	*!*	SCAT MEMV
	*!*	FCOD_FISCAL=M.COD_FISCAL
	
	
	*!*	sele clienti
	*!*	loca for ALLTRIM(nume)=ALLTRIM(m.nume)
	*!*		if found()
	*!*		*scat fiel cod_fiscal memv
	*!*		CODF=COD_FISCAL
	*!*		else
	*!*		CODF=''
	*!*		ENDIF
	*!*		
	*!*	*!*	SELECT respon
	*!*	*!*		LOCATE FOR ales
	*!*	*!*		SCATTER MEMVAR 
	*!*			
	*!*	SELECT ra
	*!*	*REPORT FORMAT BONCONS.FRX TO PRINTER PROMPT PREVIEW
	*!*	REPORT FORM aviz TO PRINTER PROMPT PREVIEW 
	*!*	Use In ra
	
ENDPROC && BAR_12_OF_Shortcut_FB2P

PROCEDURE BAR_14_OF_Shortcut_FB2P
	*!*	PRIVATE pnNr
	*!*	STORE 0 TO pnNr
	
	*!*	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul facturii' TO lnNr
	*!*	IF gnButon = 1
	*!*		*!*	modificare	20.08.2007
	*!*		*!*		DO LISTARE_facturi WITH pnNr
	*!*		Do relisteaza_ofacturare_stoc With pnNr In ofacturare_stoc.prg
	*!*		*!*	modificare	20.08.2007	^
	*!*	ENDIF 
	
	*!*	*!*	STORE 0 to m.nract1
	
	*!*	*!*	Ointre=CREATEOBJECT("CAUTintre")
	*!*	*!*	WITH Ointre
	*!*	*!*		.CAPTION="Numarul Documentului"
	*!*	*!*		.label1.caption="Nr. factura:"
	*!*	*!*		.label2.visible=.f.
	*!*	*!*		.text1.controlsource="m.nract1"
	*!*	*!*		.text2.visible=.f.
	*!*	*!*	ENDWITH
	*!*	*!*	Ointre.show(1)
	
	*!*	*!*	DO list_fact WITH m.nract1
	
	
	Private pnNrAct,pcSerie
	Store 0 To pnNr
	Store "" To pcSerie
	
	Do Form frm_cere_nrserie With 'Nr. factura'
	If gnButon = 1
		Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,2 In ofacturare_stoc.prg
	Endif
	Release pnNrAct,pcSerie
ENDPROC && BAR_14_OF_Shortcut_FB2P

PROCEDURE BAR_16_OF_Shortcut_FB2P
	DO list_raport_gestiuni WITH gnTipGest IN oproceduri_listari.prg
ENDPROC && BAR_16_OF_Shortcut_FB2P

PROCEDURE BAR_18_OF_Shortcut_FB2P
	ostoc=CREATEOBJECT('frm_raport_stoc')
	ostoc.show(1)
ENDPROC && BAR_18_OF_Shortcut_FB2P

PROCEDURE BAR_19_OF_Shortcut_FB2P
	DO fisa_magazie_FIFO WITH gnTipGest IN orapoarte.prg
ENDPROC && BAR_19_OF_Shortcut_FB2P

PROCEDURE BAR_20_OF_Shortcut_FB2P
	DO fisa_magazie_FIFO_valuta WITH gnTipGest IN orapoarte.prg
ENDPROC && BAR_20_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_Vanzaremar_FB2P
	omarfa=CREATEOBJECT('frm_raport_marfa',1)
	omarfa.show(1)
ENDPROC && BAR_1_OF_Vanzaremar_FB2P

PROCEDURE BAR_2_OF_Vanzaremar_FB2P
	omarfa=CREATEOBJECT('frm_raport_marfa',2)
	omarfa.show(1)
ENDPROC && BAR_2_OF_Vanzaremar_FB2P

PROCEDURE BAR_3_OF_Vanzaremar_FB2P
	omarfa=CREATEOBJECT('frm_raport_marfa',3)
	omarfa.show(1)
ENDPROC && BAR_3_OF_Vanzaremar_FB2P

PROCEDURE BAR_23_OF_Shortcut_FB2P
	locant = CREATEOBJECT('frm_rap_gv_cant')
	locant.show(1)
ENDPROC && BAR_23_OF_Shortcut_FB2P

PROCEDURE BAR_24_OF_Shortcut_FB2P
	loval = CREATEOBJECT('frm_rap_gv_val')
	loval.show(1)
ENDPROC && BAR_24_OF_Shortcut_FB2P

PROCEDURE BAR_25_OF_Shortcut_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Numarul bonului','pnNr','Numarul bonului' TO lnNr
	IF gnButon = 1
		lnTip = gnTipGest
		DO listare_descarcare_productie WITH pnNr, lnTip
	ENDIF 
ENDPROC && BAR_25_OF_Shortcut_FB2P

PROCEDURE BAR_26_OF_Shortcut_FB2P
	DO raport_vanzari IN oproceduri_listari.prg
ENDPROC && BAR_26_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_NewItem_FB2P
	Do list_centr_iesiri with gnTipGest,1 in oproceduri_listari.prg
ENDPROC && BAR_1_OF_NewItem_FB2P

PROCEDURE BAR_2_OF_NewItem_FB2P
	Do list_centr_iesiri with gnTipGest,2 in oproceduri_listari.prg
ENDPROC && BAR_2_OF_NewItem_FB2P

PROCEDURE BAR_3_OF_NewItem_FB2P
	Do list_centr_iesiri with gnTipGest,3 in oproceduri_listari.prg
ENDPROC && BAR_3_OF_NewItem_FB2P

*</Procedures>