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

DEFINE BAR 2 OF Shortcut PROMPT "\<Nota de inventariere si constatare diferente"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P

DEFINE BAR 3 OF Shortcut PROMPT "\<Nota inventariere obiecte inventar 8039"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
	Do lista_inventar In ointroduceri.prg
ENDPROC && BAR_1_OF_Shortcut_FB2P

PROCEDURE BAR_2_OF_Shortcut_FB2P
	DO nota_inventar IN ointroduceri.prg
	
	*!*	buton=2
	*!*	If File('&loc\&nfscurt\tempo\difstoc.DBF')
	*!*		Do danu With 'Doriti sa continuati nota inceputa?'
	*!*	Endif
	
	*!*	If buton=1
	*!*		Use &loc\&nfscurt\tempo\difstoc.Dbf In 0 Exclusive Alias difstoc
	*!*	Else
	*!*		Do stoc_data In PROCEDURI.PRG
	
	*!*		Use &loc\&nfscurt\tempo\inloc In 0 Alias inloc
	
	*!*		Select *,cants+cant-cante As stocf,cants-cants As Dif,pret*0 As valdif;
	*!*			FROM inloc Into Table &loc\&nfscurt\tempo\difstoc.Dbf Order By denumire
	*!*	Endif
	
	*!*	Do sterge
	*!*	buton=2
	
	*!*	PRIVATE PcNrgrupa
	*!*	STORE '' TO PcNrgrupa
	
	*!*	Select difstoc
	*!*	Do Form difinventar
	
	*!*	If buton=2
	*!*		IF USED('inloc')
	*!*			Use In inloc
	*!*		endif
	*!*		Use In difstoc
	*!*		Return
	*!*	Endif
	
	*!*	Do codare
	*!*	m.id_set=90101
	*!*	Select * From difstoc Where Dif#0 Into Table &loc\&nfscurt\tempo\aaa.Dbf
	
	*!*	*SELECT aaa
	*!*	Replace All cante With Dif
	
	
	*!*	Select iesiri
	*!*	Zap
	*!*	Append From &loc\&nfscurt\tempo\aaa.Dbf
	*!*	m.nnir=ALLTRIM(STR(m.NRACT))
	
	*!*	Select  iesiri
	*!*	Replace All nnir With m.nnir,cod With m.cod,dataact With m.dataact,dataout WITH m.dataact
	*!*	*BROWSE
	
	*!*	*Do contabilizeaza_ana With m.scd,m.scc,m.ascd,m.ascc,m.suma
	*!*	IF USED('actactan')
	*!*		USE IN actactan
	*!*	ENDIF 
	
	
	*!*	SELECT ACT
	*!*	COPY STRUCTURE TO &loc\&nfscurt\tempo\actactan WITH CDX 
	*!*	USE &loc\&nfscurt\tempo\actactan IN 0 SHARED ALIAS ACTACTAN 
	
	*!*	SELECT ACTACTAN
	*!*	APPEND BLANK
	*!*	GATHER MEMVAR 
	
	*!*	DO FORM verificare
	*!*	IF buton = 1
	*!*		SCRIE_IN_FISIERE('BON')
	*!*	ENDIF 
	
	*!*	Use In difstoc
	*!*	Use In aaa
	*!*	IF USED('inloc')
	*!*		Use In inloc
	*!*	ENDIF
	*!*	IF USED('actactan')
	*!*		USE IN actactan
	*!*	ENDIF 
ENDPROC && BAR_2_OF_Shortcut_FB2P

PROCEDURE BAR_3_OF_Shortcut_FB2P
	DO nota_inventar WITH .T. IN ointroduceri.prg
ENDPROC && BAR_3_OF_Shortcut_FB2P

*</Procedures>
