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

	*----------------------------------
	DEFINE POPUP _1020qr818 SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "Bonuri"
ON BAR 3 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 4 OF Shortcut PROMPT "\<Retur magazie"
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P

DEFINE BAR 5 OF Shortcut PROMPT "Transferuri"
ON BAR 5 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 "\<De la o gestiune valorica"
	ON SELECTION BAR 3 OF Transferur DO BAR_3_OF_Transferur_FB2P

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

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

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

	*----------------------------------
	DEFINE POPUP _1020queaj SHORTCUT RELATIVE
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 "\-"
ON BAR 10 OF Shortcut ACTIVATE POPUP _1020r00x7

	*----------------------------------
	DEFINE POPUP _1020r00x7 SHORTCUT RELATIVE
DEFINE BAR 11 OF Shortcut PROMPT "Stocuri"
ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P

DEFINE BAR 12 OF Shortcut PROMPT "Fisa de \<magazie"
ON SELECTION BAR 12 OF Shortcut DO BAR_12_OF_Shortcut_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 ^
	
	*!*	Ointre=CREATEOBJECT("CAUTintre")
	*!*		WITH Ointre
	*!*			.CAPTION="Numarul NIR-ului"
	*!*			.label1.caption="Numarul NIR-ului:"
	*!*			.label2.visible=.f.
	*!*			.text1.controlsource="m.nract1"
	*!*			.text2.visible=.f.
	*!*		endwith
	*!*		ointre.show(1)
		
	*!*	DO LIST_NIR WITH STR(M.NRACT1),1
	
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_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
	
	
	*!*	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.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.nnir,rull.codmat,rull.dataact,;
	*!*	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
	*!*	* WINDOW WPRINT
	*!*	USE IN RA
ENDPROC && BAR_3_OF_Bonuri_FB2P

PROCEDURE BAR_4_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_4_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 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr
	IF gnButon = 1
		lnTip = gnTipGest
		DO listare_nir WITH pnNr, lnTip, .F. , .F. , 1
	ENDIF 
ENDPROC && BAR_3_OF_Transferur_FB2P

PROCEDURE BAR_7_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_7_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 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_9_OF_Shortcut_FB2P

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

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

*</Procedures>