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

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

DEFINE BAR 3 OF Shortcut PROMPT "\-"
ON BAR 3 OF Shortcut ACTIVATE POPUP _2ev0nri5r

	*----------------------------------
	DEFINE POPUP _2ev0nri5r SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "Intrare din transfer de la gestiune valorica la pret de vanzare"
ON SELECTION BAR 4 OF Shortcut lans(257)

DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _2fv0okwnu

	*----------------------------------
	DEFINE POPUP _2fv0okwnu SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "Retur din transfer de la gestiune valorica la pret de vanzare - aviz \<expeditie"
ON SELECTION BAR 6 OF Shortcut initializeaza_vanzare_din_stoc(255)

DEFINE BAR 7 OF Shortcut PROMPT "Retur din transfer de la gestiune valorica (cantitativ) la pret de vanzare - aviz \<expeditie"
ON SELECTION BAR 7 OF Shortcut initializeaza_vanzare_din_stoc(256)
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
	LANS(253)
	*!*	Local TR
	
	
	*!*	Sele CALENDAR
	*!*	Loca For NL=M.NL And AN=M.AN
	*!*	m.CTVA=CTVAM
	*!*	m.FDOC='NOTA TRANSFER'
	
	*!*	buton=1
	*!*	OACT=Createobj('ACTTRANSFER')
	*!*	OACT.LABEL7.Caption='GESTIUNEA DESTINATIE' &&M.NUMEGEST; SURSA=M.NUME_4
	*!*	OACT.Show(1)
	
	*!*	If buton=2
	*!*		Do STERGE
	*!*		Return
	*!*	Endif
	
	*!*	TR=M.NUMEGEST
	*!*	m.NUMEGEST=M.NUME_4
	*!*	m.NUME_4=TR
	
	*!*	m.NNIR=M.NRACT
	*!*	Do CODARE
	
	*!*	Sele IESIRI
	*!*	Zap
	*!*	Do cursul
	*!*	buton=1
	*!*	*do form bonmarfa1
	*!*	OBM=Crea('BONTRANSFERMG')
	*!*	*OBM.LABELNUME.CAPTION='TRANSFER MAGAZIN - GESTIUNE'
	*!*	OBM.Show(1)
	
	*!*	If buton=2
	*!*		Do STERGE
	*!*		Return
	*!*	Endif
	*!*	*******************************************
	
	*!*	*!*	Z=M.EXPLICATIA
	*!*	*!*	M.EXPLICATIA=M.NUME_4
	*!*	*!*	M.NUME_4=Z
	
	*!*	m.TOTTVA=Round(M.TOTFTVA*(M.CTVA-1),0)
	*!*	Do CONTABILIZEAZA With C371ENGROS,C371ENDETAIL,M.TOTFTVA-m.totadaos,CLASAACT
	*!*	*M.EXPLICATIA='ADAOS COMERCIAL'
	*!*	Do CONTABILIZEAZA With C378ENDETAIL,C371ENDETAIL,M.totadaos,CLASAACT
	*!*	m.EXPLICATIA='TVA '+Allt(Str((M.CTVA-1)*100))+'%'
	*!*	Do CONTABILIZEAZA With '4428',C371ENDETAIL,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=C371ENGROS
	*!*		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
	*!*	*!*	SET FILTER TO cod=m.cod and !empty(cante)
	*!*	*!*	REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW
	*!*		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_1_OF_Shortcut_FB2P

PROCEDURE BAR_2_OF_Shortcut_FB2P
	LANS(254)
	
	*!*	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
	*!*	*do form bonmarfa1
	*!*	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

*</Procedures>
