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

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

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

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

DEFINE BAR 3 OF Shortcut PROMPT "Casare din folosinta"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P

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

	*----------------------------------
	DEFINE POPUP _34v0qkf04 SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "Fisa de \<magazie"
ON BAR 5 OF Shortcut ACTIVATE POPUP Fisademaga

	*----------------------------------
	DEFINE POPUP Fisademaga SHORTCUT RELATIVE
	DEFINE BAR 1 OF Fisademaga PROMPT "Listare"
	ON SELECTION BAR 1 OF Fisademaga DO BAR_1_OF_Fisademaga_FB2P

	DEFINE BAR 2 OF Fisademaga PROMPT "Excel"
	ON SELECTION BAR 2 OF Fisademaga DO BAR_2_OF_Fisademaga_FB2P

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

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

		*----------------------------------
		DEFINE POPUP Rulaje SHORTCUT RELATIVE
		DEFINE BAR 1 OF Rulaje PROMPT "Listare"
		ON SELECTION BAR 1 OF Rulaje DO BAR_1_OF_Rulaje_FB2P

		DEFINE BAR 2 OF Rulaje PROMPT "Excel"
		ON SELECTION BAR 2 OF Rulaje DO BAR_2_OF_Rulaje_FB2P

	DEFINE BAR 2 OF Fisadeevid PROMPT "Cantitati cumulate"
	ON BAR 2 OF Fisadeevid ACTIVATE POPUP Cantitatic

		*----------------------------------
		DEFINE POPUP Cantitatic SHORTCUT RELATIVE
		DEFINE BAR 1 OF Cantitatic PROMPT "Listare"
		ON SELECTION BAR 1 OF Cantitatic DO BAR_1_OF_Cantitatic_FB2P

		DEFINE BAR 2 OF Cantitatic PROMPT "Excel"
		ON SELECTION BAR 2 OF Cantitatic DO BAR_2_OF_Cantitatic_FB2P

DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON BAR 7 OF Shortcut ACTIVATE POPUP _13c0psb52

	*----------------------------------
	DEFINE POPUP _13c0psb52 SHORTCUT RELATIVE
DEFINE BAR 8 OF Shortcut PROMPT "Fisa de lichidare (Echipament in evidenta)"
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P

DEFINE BAR 9 OF Shortcut PROMPT "Fisa de lichidare"
ON BAR 9 OF Shortcut ACTIVATE POPUP Fisadelich

	*----------------------------------
	DEFINE POPUP Fisadelich SHORTCUT RELATIVE
	DEFINE BAR 1 OF Fisadelich PROMPT "Fisa echipament uzat"
	ON SELECTION BAR 1 OF Fisadelich DO BAR_1_OF_Fisadelich_FB2P

	DEFINE BAR 2 OF Fisadelich PROMPT "Fisa echipament predat"
	ON SELECTION BAR 2 OF Fisadelich DO BAR_2_OF_Fisadelich_FB2P

	DEFINE BAR 3 OF Fisadelich PROMPT "Fisa echipament imputat"
	ON SELECTION BAR 3 OF Fisadelich DO BAR_3_OF_Fisadelich_FB2P

DEFINE BAR 10 OF Shortcut PROMPT "\-"
ON BAR 10 OF Shortcut ACTIVATE POPUP _1xl0nz3zh

	*----------------------------------
	DEFINE POPUP _1xl0nz3zh SHORTCUT RELATIVE
DEFINE BAR 11 OF Shortcut PROMPT "Necesar echipamente"
ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
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, 'VRUL_OBINV'
	ENDIF 
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 = gnTipGest
		DO LISTARE_TRANSFER WITH pnNr, 10, 'VRUL_OBINV'
	ENDIF 
ENDPROC && BAR_2_OF__13c0v6fki_FB2P

PROCEDURE BAR_3_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_3_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_Fisademaga_FB2P
	LOCAL llExcel 
	llExcel = .F.
	DO fisa_ob_inventar_gest WITH gnTipGest, llExcel IN orapoarte.prg
ENDPROC && BAR_1_OF_Fisademaga_FB2P

PROCEDURE BAR_2_OF_Fisademaga_FB2P
	LOCAL llExcel 
	llExcel = .T.
	DO fisa_ob_inventar_gest WITH gnTipGest, llExcel IN orapoarte.prg
ENDPROC && BAR_2_OF_Fisademaga_FB2P

PROCEDURE BAR_1_OF_Rulaje_FB2P
	LOCAL llExcel
	llExcel = .F.
	DO fisa_ob_inventar_resp WITH llExcel IN orapoarte.prg
ENDPROC && BAR_1_OF_Rulaje_FB2P

PROCEDURE BAR_2_OF_Rulaje_FB2P
	LOCAL llExcel
	llExcel = .T.
	DO fisa_ob_inventar_resp WITH llExcel IN orapoarte.prg
ENDPROC && BAR_2_OF_Rulaje_FB2P

PROCEDURE BAR_1_OF_Cantitatic_FB2P
	LOCAL llExcel
	llExcel = .F.
	DO fisa_ob_inventar_resp_stoc WITH llExcel IN orapoarte.prg
ENDPROC && BAR_1_OF_Cantitatic_FB2P

PROCEDURE BAR_2_OF_Cantitatic_FB2P
	LOCAL llExcel
	llExcel = .T.
	DO fisa_ob_inventar_resp_stoc WITH llExcel IN orapoarte.prg
ENDPROC && BAR_2_OF_Cantitatic_FB2P

PROCEDURE BAR_8_OF_Shortcut_FB2P
	DO fisa_lichidare && IN oproceduri_obinv.prg
ENDPROC && BAR_8_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_Fisadelich_FB2P
	DO fisa_echip_uzat_pred_imputat WITH 1 && IN oproceduri_obinv.prg
ENDPROC && BAR_1_OF_Fisadelich_FB2P

PROCEDURE BAR_2_OF_Fisadelich_FB2P
	DO fisa_echip_uzat_pred_imputat WITH 2 && IN oproceduri_obinv.prg
ENDPROC && BAR_2_OF_Fisadelich_FB2P

PROCEDURE BAR_3_OF_Fisadelich_FB2P
	DO fisa_echip_uzat_pred_imputat WITH 3 && IN oproceduri_obinv.prg
ENDPROC && BAR_3_OF_Fisadelich_FB2P

PROCEDURE BAR_11_OF_Shortcut_FB2P
	DO necesar_echipamente IN orapoarte.prg
ENDPROC && BAR_11_OF_Shortcut_FB2P

*</Procedures>
