*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="list2.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 "N.I.R.-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 "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP _1790wd1yu

	*----------------------------------
	DEFINE POPUP _1790wd1yu SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "Bonuri"
ON BAR 3 OF Shortcut ACTIVATE POPUP _1790wcrcu

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

	DEFINE BAR 2 OF _1790wcrcu PROMPT "Pe comenzi"
	ON SELECTION BAR 2 OF _1790wcrcu DO BAR_2_OF__1790wcrcu_FB2P

	DEFINE BAR 3 OF _1790wcrcu PROMPT "Pe gestiuni"
	ON SELECTION BAR 3 OF _1790wcrcu DO BAR_3_OF__1790wcrcu_FB2P

DEFINE BAR 4 OF Shortcut PROMPT "Casare obiecte noi"
ON BAR 4 OF Shortcut ACTIVATE POPUP Casareobie

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

DEFINE BAR 5 OF Shortcut PROMPT "Retur"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P

DEFINE BAR 6 OF Shortcut PROMPT "Transferuri"
ON BAR 6 OF Shortcut ACTIVATE POPUP _13c0v6fki

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

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

	DEFINE BAR 3 OF _13c0v6fki PROMPT "\-"
	ON BAR 3 OF _13c0v6fki ACTIVATE POPUP _5z60klg1g

		*----------------------------------
		DEFINE POPUP _5z60klg1g SHORTCUT RELATIVE
	DEFINE BAR 4 OF _13c0v6fki PROMPT "Transfer obiecte inventar in folosinta dupa numar"
	ON SELECTION BAR 4 OF _13c0v6fki DO BAR_4_OF__13c0v6fki_FB2P

	DEFINE BAR 5 OF _13c0v6fki PROMPT "Transfer obiecte inventar in folosinta dupa numar - durata ramasa"
	ON SELECTION BAR 5 OF _13c0v6fki DO BAR_5_OF__13c0v6fki_FB2P

DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON SELECTION BAR 7 OF Shortcut

DEFINE BAR 8 OF Shortcut PROMPT "Stocuri"
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P

DEFINE BAR 9 OF Shortcut PROMPT "\-"
ON BAR 9 OF Shortcut ACTIVATE POPUP _5z60kpwf5

	*----------------------------------
	DEFINE POPUP _5z60kpwf5 SHORTCUT RELATIVE
DEFINE BAR 10 OF Shortcut PROMPT "Bon dare in folosinta ob. inv."
ON SELECTION BAR 10 OF Shortcut DO BAR_10_OF_Shortcut_FB2P

DEFINE BAR 11 OF Shortcut PROMPT "Casare ob. inv. din folosinta"
ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P

DEFINE BAR 12 OF Shortcut PROMPT "Iesire ob. inv. din folosinta din gestiune"
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 _5z60kxb6d

	*----------------------------------
	DEFINE POPUP _5z60kxb6d SHORTCUT RELATIVE
DEFINE BAR 14 OF Shortcut PROMPT "Fisa de \<magazie"
ON BAR 14 OF Shortcut ACTIVATE POPUP _5z60kp6dv

	*----------------------------------
	DEFINE POPUP _5z60kp6dv SHORTCUT RELATIVE
	DEFINE BAR 1 OF _5z60kp6dv PROMPT "Listare"
	ON SELECTION BAR 1 OF _5z60kp6dv DO fisa_ob_inventar_gest WITH gnTipGest, .F. IN orapoarte.prg

	DEFINE BAR 2 OF _5z60kp6dv PROMPT "Excel"
	ON SELECTION BAR 2 OF _5z60kp6dv DO fisa_ob_inventar_gest WITH gnTipGest, .T. IN orapoarte.prg

DEFINE BAR 15 OF Shortcut PROMPT "Fisa de evidenta a \<ob. inv. in folosinta"
ON BAR 15 OF Shortcut ACTIVATE POPUP _5z60kp9jl

	*----------------------------------
	DEFINE POPUP _5z60kp9jl SHORTCUT RELATIVE
	DEFINE BAR 1 OF _5z60kp9jl PROMPT "Rulaje"
	ON BAR 1 OF _5z60kp9jl ACTIVATE POPUP NewItem

		*----------------------------------
		DEFINE POPUP NewItem SHORTCUT RELATIVE
		DEFINE BAR 1 OF NewItem PROMPT "Listare"
		ON SELECTION BAR 1 OF NewItem DO fisa_ob_inventar_resp WITH .F. IN orapoarte.prg

		DEFINE BAR 2 OF NewItem PROMPT "Excel"
		ON SELECTION BAR 2 OF NewItem DO fisa_ob_inventar_resp WITH .T. IN orapoarte.prg

	DEFINE BAR 2 OF _5z60kp9jl PROMPT "Cantitati cumulate"
	ON BAR 2 OF _5z60kp9jl ACTIVATE POPUP _5z60ks57s

		*----------------------------------
		DEFINE POPUP _5z60ks57s SHORTCUT RELATIVE
		DEFINE BAR 1 OF _5z60ks57s PROMPT "Listare"
		ON SELECTION BAR 1 OF _5z60ks57s DO fisa_ob_inventar_resp_stoc WITH .F. IN orapoarte.prg

		DEFINE BAR 2 OF _5z60ks57s PROMPT "Excel"
		ON SELECTION BAR 2 OF _5z60ks57s DO fisa_ob_inventar_resp_stoc WITH .T. IN orapoarte.prg

DEFINE BAR 16 OF Shortcut PROMPT "Fisa de lichidare (Echipament in evidenta)"
ON SELECTION BAR 16 OF Shortcut DO fisa_lichidare && IN oproceduri_obinv.prg

DEFINE BAR 17 OF Shortcut PROMPT "Fisa de lichidare"
ON BAR 17 OF Shortcut ACTIVATE POPUP _5z60kpgtb

	*----------------------------------
	DEFINE POPUP _5z60kpgtb SHORTCUT RELATIVE
	DEFINE BAR 1 OF _5z60kpgtb PROMPT "Fisa echipament uzat"
	ON SELECTION BAR 1 OF _5z60kpgtb DO fisa_echip_uzat_pred_imputat WITH 1 && IN oproceduri_obinv.prg

	DEFINE BAR 2 OF _5z60kpgtb PROMPT "Fisa echipament predat"
	ON SELECTION BAR 2 OF _5z60kpgtb DO fisa_echip_uzat_pred_imputat WITH 2 && IN oproceduri_obinv.prg

	DEFINE BAR 3 OF _5z60kpgtb PROMPT "Fisa echipament imputat"
	ON SELECTION BAR 3 OF _5z60kpgtb DO fisa_echip_uzat_pred_imputat WITH 3 && IN oproceduri_obinv.prg

DEFINE BAR 18 OF Shortcut PROMPT "\-"
ON BAR 18 OF Shortcut ACTIVATE POPUP _5z60kxb6e

	*----------------------------------
	DEFINE POPUP _5z60kxb6e SHORTCUT RELATIVE
DEFINE BAR 19 OF Shortcut PROMPT "Necesar echipamente"
ON SELECTION BAR 19 OF Shortcut DO necesar_echipamente IN orapoarte.prg
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__1790wcrcu_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__1790wcrcu_FB2P

PROCEDURE BAR_2_OF__1790wcrcu_FB2P
	DO list_bon_pe_lucrare WITH gnTipGest
ENDPROC && BAR_2_OF__1790wcrcu_FB2P

PROCEDURE BAR_3_OF__1790wcrcu_FB2P
	lnTip = gnTipGest
	DO list_total_BON WITH lnTip && in oproceduri_listari.prg
	
	*!*	PRIVATE M.T
	*!*	SET SAFETY OFF
	*!*	do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST"
	*!*	SELE NUMEGEST
	*!*	SCAN
	*!*		IF NUMEGEST==M.NUMEGEST
	*!*			SCATTER MEMVAR
	*!*			EXIT
	*!*		ENDIF
	*!*	ENDSCAN
	
	*!*	M.T='BONURI'
	
	*!*	select DISTINCT rull.denumire,rull.dataact,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.nnir,rull.codmat,;
	*!*	act.nume,act.fdoc,act.nract,act.dataireg;
	*!*	from act,rull;
	*!*	where act.cod=rull.cod;
	*!*	into cursor ra
	
	*!*	SELE Ra
	*!*	SET FILTER TO GEST=M.GEST AND CANTE # 0
	*!*	INDEX ON str(GEST,2)+NNIR TO &loc\&nfscurt\tempo\FFF
	*!*	REPORT FORMAT NIRRUL2.FRX TO PRINTER PROMPT PREVIEW
	*!*	USE IN RA 
ENDPROC && BAR_3_OF__1790wcrcu_FB2P

PROCEDURE BAR_1_OF_Casareobie_FB2P
	PRIVATE pnNr1, pnNr2
	LOCAL lnTip, lnNr1, lnNr2, lcListaIdSet
	pnNr1 = 0
	pnNr2 = 0
	lcListaIdSet = '72'
	
	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, m.lcListaIdSet
	ENDIF 
ENDPROC && BAR_1_OF_Casareobie_FB2P

PROCEDURE BAR_5_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 
	
	*!*	PUBLIC M.T
	*!*	public m.nract1,m.nract2
	*!*	store 0 to m.nract1,m.nract2
	
	*!*	Ointre=CREATEOBJECT("CAUTintre")
	*!*		WITH Ointre
	*!*			.CAPTION="Numarul actului"
	*!*			.label1.caption="Nr.retur:"
	*!*			.label2.visible=.f.
	*!*			.text1.controlsource="m.nract1"
	*!*			.text2.visible=.f.
	*!*		endwith
	*!*		ointre.show(1)
	*!*		
	
ENDPROC && BAR_5_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF__13c0v6fki_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__13c0v6fki_FB2P

PROCEDURE BAR_2_OF__13c0v6fki_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__13c0v6fki_FB2P

PROCEDURE BAR_4_OF__13c0v6fki_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, 'VRUL_OBINV'
	ENDIF 
ENDPROC && BAR_4_OF__13c0v6fki_FB2P

PROCEDURE BAR_5_OF__13c0v6fki_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, 10, 'VRUL_OBINV'
	ENDIF 
ENDPROC && BAR_5_OF__13c0v6fki_FB2P

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

PROCEDURE BAR_10_OF_Shortcut_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_10_OF_Shortcut_FB2P

PROCEDURE BAR_11_OF_Shortcut_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de casare' TO lnNr
	IF gnButon = 1
		DO listare_casare WITH pnNr
	ENDIF 
	
ENDPROC && BAR_11_OF_Shortcut_FB2P

PROCEDURE BAR_12_OF_Shortcut_FB2P
	PRIVATE pnNr
	STORE 0 TO pnNr
	
	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei' TO lnNr
	IF gnButon = 1
		DO listare_casare WITH pnNr, 274
	ENDIF 
ENDPROC && BAR_12_OF_Shortcut_FB2P

*</Procedures>