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

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

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

DEFINE BAR 2 OF Shortcut PROMPT "NIR \<RATC"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P

DEFINE BAR 3 OF Shortcut PROMPT "NIR din \<Aviz Transfer" ;
	MESSAGE 'Lstare aviz de transfer sub forma de NIR'
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 _1020qz893

	*----------------------------------
	DEFINE POPUP _1020qz893 SHORTCUT RELATIVE
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 "\<Transferuri"
ON BAR 6 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 7 OF Shortcut PROMPT "\-"
ON BAR 7 OF Shortcut ACTIVATE POPUP _1020r95mz

	*----------------------------------
	DEFINE POPUP _1020r95mz SHORTCUT RELATIVE
DEFINE BAR 8 OF Shortcut PROMPT "\<Aviz de expeditie / aviz de retur"
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P

DEFINE BAR 9 OF Shortcut PROMPT "\<Factura de vanzare"
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P

DEFINE BAR 10 OF Shortcut PROMPT "Retur de la gestiune valorica - aviz de expeditie"
ON SELECTION BAR 10 OF Shortcut DO BAR_10_OF_Shortcut_FB2P

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

	*----------------------------------
	DEFINE POPUP _1020qwge1 SHORTCUT RELATIVE
DEFINE BAR 12 OF Shortcut PROMPT "\<Raport de gestiune"
ON SELECTION BAR 12 OF Shortcut DO BAR_12_OF_Shortcut_FB2P

DEFINE BAR 13 OF Shortcut PROMPT "Raport de gestiune \<centralizator"
ON SELECTION BAR 13 OF Shortcut DO BAR_13_OF_Shortcut_FB2P

DEFINE BAR 14 OF Shortcut PROMPT "\<P.V. schimbare pret 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 _1020r0q7d

	*----------------------------------
	DEFINE POPUP _1020r0q7d SHORTCUT RELATIVE
DEFINE BAR 16 OF Shortcut PROMPT "\<Stocuri"
ON SELECTION BAR 16 OF Shortcut DO BAR_16_OF_Shortcut_FB2P

DEFINE BAR 17 OF Shortcut PROMPT "Fisa de \<magazie"
ON SELECTION BAR 17 OF Shortcut DO BAR_17_OF_Shortcut_FB2P

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

	*----------------------------------
	DEFINE POPUP _2f20vtiu6 SHORTCUT RELATIVE
DEFINE BAR 19 OF Shortcut PROMPT "Centralizator valoric pe subgrupe de produse"
ON SELECTION BAR 19 OF Shortcut DO BAR_19_OF_Shortcut_FB2P

DEFINE BAR 20 OF Shortcut PROMPT "Centralizator valoric pe subgrupe de produse, gestiune"
ON SELECTION BAR 20 OF Shortcut DO BAR_20_OF_Shortcut_FB2P

DEFINE BAR 21 OF Shortcut PROMPT "Centralizator articole procese verbale schimbare pret"
ON SELECTION BAR 21 OF Shortcut DO BAR_21_OF_Shortcut_FB2P

DEFINE BAR 22 OF Shortcut PROMPT "\-"
ON BAR 22 OF Shortcut ACTIVATE POPUP _2k610w3wl

	*----------------------------------
	DEFINE POPUP _2k610w3wl SHORTCUT RELATIVE
DEFINE BAR 23 OF Shortcut PROMPT "Centralizator procese verbale de schimbare pret"
ON SELECTION BAR 23 OF Shortcut DO BAR_23_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_NIRdupanum_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 ^
	
	
	*!*	Ointre=CREATEOBJECT("CAUTintre")
	*!*		WITH Ointre
	*!*			.CAPTION="Numarul NIR-ului"
	*!*			.label1.caption="Nr.="
	*!*			.label2.visible=.f.
	*!*			.text1.controlsource="m.nract1"
	*!*			.text2.visible=.f.
	*!*		endwith
	*!*		ointre.show(1)
	
	*!*	DO LIST_NIR WITH ALLTRIM(STR(M.NRACT1)),2
ENDPROC && BAR_1_OF_NIRdupanum_FB2P

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

PROCEDURE BAR_2_OF_Shortcut_FB2P
	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, 17
	ENDIF 
ENDPROC && BAR_2_OF_Shortcut_FB2P

PROCEDURE BAR_3_OF_Shortcut_FB2P
	* listare transfer ca un NIR
	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_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip, .F., .F., 1
	ENDIF 
ENDPROC && BAR_3_OF_Shortcut_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_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,18
	
	
	
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,17
ENDPROC && BAR_2_OF_Transferur_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,1 In ofacturare_stoc.prg
	Endif
	Release pnNrAct,pcSerie
ENDPROC && BAR_8_OF_Shortcut_FB2P

PROCEDURE BAR_9_OF_Shortcut_FB2P
	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_9_OF_Shortcut_FB2P

PROCEDURE BAR_10_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,-6 In ofacturare_stoc.prg
	Endif
	Release pnNrAct,pcSerie
ENDPROC && BAR_10_OF_Shortcut_FB2P

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

PROCEDURE BAR_13_OF_Shortcut_FB2P
	DO list_raport_gestiuni_centralizator WITH gnTipGest IN oproceduri_listari.prg
ENDPROC && BAR_13_OF_Shortcut_FB2P

PROCEDURE BAR_14_OF_Shortcut_FB2P
	Do relisteaza_schimbare_pret In oschimbare_pret.prg
ENDPROC && BAR_14_OF_Shortcut_FB2P

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

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

PROCEDURE BAR_19_OF_Shortcut_FB2P
	Do list_centr_valoric_subgr in oproceduri_listari.prg
ENDPROC && BAR_19_OF_Shortcut_FB2P

PROCEDURE BAR_20_OF_Shortcut_FB2P
	Do list_centr_valoric_subgr WITH 2 in oproceduri_listari.prg
ENDPROC && BAR_20_OF_Shortcut_FB2P

PROCEDURE BAR_21_OF_Shortcut_FB2P
	Do centralizator_articole_schimbpret in oschimbare_pret.prg
ENDPROC && BAR_21_OF_Shortcut_FB2P

PROCEDURE BAR_23_OF_Shortcut_FB2P
	Do listeaza_centralizator_schimbpret in oschimbare_pret.prg WITH gnTipGest
ENDPROC && BAR_23_OF_Shortcut_FB2P

*</Procedures>