*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="transfer1.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 "\<Diferenta de pret la produse"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P

DEFINE BAR 2 OF Shortcut PROMPT "Catre o gestiune la pret de \<achizitie"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P

DEFINE BAR 3 OF Shortcut PROMPT "Catre o gestiune la pret de \<vanzare"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
	lans(218)
ENDPROC && BAR_1_OF_Shortcut_FB2P

PROCEDURE BAR_2_OF_Shortcut_FB2P
	
	LANS(74)
	
	*!*	SELE CALENDAR
	*!*	LOCA FOR NL=M.NL AND AN=M.AN
	*!*	M.CTVA=CTVAM
	*!*	M.FDOC='NOTA TRANSFER'
	
	*!*	buton=1
	*!*	OACT=CREATEOBJ('ACTTRANSFERg')
	*!*	OACT.SHOW(1)
	
	*!*	IF BUTON=2
	*!*		DO STERGE
	*!*		RETURN
	*!*	ENDIF
	
	*!*	M.NNIR=M.NRACT
	*!*	DO CODARE
	
	*!*	SELE IESIRI
	*!*	ZAP
	*!*	do cursul
	*!*	buton=1
	*!*	OBM=CREA('BONTRANSFERgg')
	*!*	OBM.SHOW(1)
	
	*!*	IF BUTON=2
	*!*		DO STERGE
	*!*		RETURN
	*!*	ENDIF
	*!*	*******************************************
	
	*!*	sele numegest
	*!*	**scd din m.numegest
	*!*	loca for numegest=m.numegest
	*!*	m.scd1=contg
	*!*	**scd din m.nume_4
	*!*	loca for numegest=m.nume_4
	*!*	m.scd2=contg
	
	
	*!*	DO CONTABILIZEAZA WITH m.scd2,m.scd1,M.TOTFTVA-M.TOTADAOS,CLASAACT
	
	*!*	DO IESTOCURIMAGAZII 
	*!*	&&IESIRE DIN GESTIUNEA M.NUMEGEST
	*!*	DO IERULAJMAGAZII
	
	*!*	buton=2
	*!*	DO DANU WITH 'Doriti sa listati NOTA DE TRANSFER?'
	*!*	if buton=1
	*!*	SELE RUL
	*!*	SET FILTER TO cod=m.cod and !empty(cante)
	*!*	REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW
	*!*	endif
	
	*!*	&&INTRARE IN GESTIUNEA M.NUME_4
	*!*	SELE NUMEGEST
	*!*	LOCA FOR ALLT(NUMEGEST)=ALLT(M.NUME_4)
	*!*	SCAT FIEL GEST MEMV
	
	*!*	SELE INTRARI
	*!*	ZAP
	*!*	SELE IESIRI
	*!*	SCAN
	*!*		SCAT FIEL EXCEPT GEST MEMV
	*!*		M.CANT=M.CANTE
	*!*		M.SCD=m.scd2
	*!*		SELE INTRARI
	*!*		APPE BLAN
	*!*		GATH MEMV
	*!*		SELE IESIRI
	*!*	ENDSCAN
	
	
	*!*	DO INRULAJMAGAZII
	*!*	DO INSTOCURIMAGAZII 
	
	*!*	DO STERGE
	*!*	RETURN
	
	
	
ENDPROC && BAR_2_OF_Shortcut_FB2P

PROCEDURE BAR_3_OF_Shortcut_FB2P
	LANS(75)
	
	*!*	Sele CALENDAR
	*!*	Loca For NL=M.NL And AN=M.AN
	*!*	m.CTVA=CTVAM
	*!*	m.FDOC='NOTA TRANSFER'
	
	*!*	buton=1
	*!*	OACT=Createobj('ACTTRANSFER')
	*!*	OACT.Show(1)
	
	*!*	If buton=2
	*!*		Do STERGE
	*!*		Return
	*!*	Endif
	
	*!*	m.NNIR=M.NRACT
	*!*	Do CODARE
	
	*!*	Sele IESIRI
	*!*	Zap
	*!*	Do cursul
	*!*	buton=1
	*!*	*do form bonmarfa1
	*!*	M.NUMEGEST=M.EXPLICATIA
	*!*	SELECT STOC
	*!*	SET FILTER TO 
	*!*	SELECT NUMEGEST
	*!*	SET FILTER TO 
	*!*	M.NUMEGEST=ALLTRIM(M.NUMEGEST)
	*!*	OBM=Crea('BONTRANSFERGM')
	*!*	OBM.Show(1)
	
	*!*	If buton=2
	*!*		Do STERGE
	*!*		Return
	*!*	Endif
	*!*	*******************************************
	*!*	Z=M.EXPLICATIA
	*!*	M.EXPLICATIA=M.NUME_4
	*!*	M.NUME_4=Z
	
	*!*	SELECT NUMEGEST
	*!*	LOCATE FOR NUMEGEST=M.NUME_4
	*!*	M.CONTG=CONTG
	
	*!*	m.TOTTVA=Round(M.TOTFTVA*(M.CTVA-1),0)
	*!*	Do CONTABILIZEAZA With C371ENDETAIL,M.CONTG,M.TOTFTVA-m.totadaos,CLASAACT
	
	*!*	Do CONTABILIZEAZA With C371ENDETAIL,C378ENDETAIL,M.totadaos,CLASAACT
	*!*	Do CONTABILIZEAZA With C371ENDETAIL,'4428',M.TOTTVA,CLASAACT
	
	*!*	Z=M.NUME_4
	*!*	M.NUME_4=M.EXPLICATIA
	*!*	M.EXPLICATIA=Z
	
	*!*	Do IESTOCURIMAGAZII
	*!*	&&IESIRE DIN GESTIUNEA M.NUMEGEST
	*!*	Do IERULAJMAGAZII
	
	
	*!*	&&INTRARE IN GESTIUNEA M.NUME_4
	*!*	Sele NUMEGEST
	*!*	Loca For Allt(NUMEGEST)=Allt(M.NUME_4)
	*!*	Scat Fiel GEST Memv
	
	*!*	Sele INTRARI
	*!*	Zap
	*!*	Sele IESIRI
	*!*	Scan
	*!*		Scat Fiel Except GEST Memv
	*!*		m.CANT=M.CANTE
	*!*		m.SCD=C371ENDETAIL
	*!*		Sele INTRARI
	*!*		Appe Blan
	*!*		Gath Memv
	*!*		Sele IESIRI
	*!*	Endscan
	
	
	*!*	Do INRULAJMAGAZII
	*!*	Do INSTOCURIMAGAZII
	
	*!*	buton=2
	*!*	Do DANU With 'Doriti sa listati NOTA DE TRANSFER?'
	*!*	If buton=1
	*!*		Sele RUL
	*!*	***
	*!*		Select * From RUL Where COD=M.COD Into Table &LOC\&NFSCURT\TEMPO\ARUL
	*!*		Use In RUL
	*!*		Use In ARUL
	*!*		Use &LOC\&NFSCURT\TEMPO\ARUL In 0 Alias RUL
	*!*	***
	*!*		Select RUL
	*!*		Set Filter To !Empty(CANTE)
	*!*		Report Format NIRTRANSFER.FRX To Printer Prompt Preview
	*!*		Do TOTV
	*!*	Endif
	
	*!*	Do STERGE
	*!*	Return
	
	
	
ENDPROC && BAR_3_OF_Shortcut_FB2P

*</Procedures>