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

DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP NewItem

	*----------------------------------
	DEFINE POPUP NewItem SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\<Preluare de date"
ON BAR 3 OF Shortcut ACTIVATE POPUP _1mj0sbbn6

	*----------------------------------
	DEFINE POPUP _1mj0sbbn6 SHORTCUT RELATIVE
	DEFINE BAR 1 OF _1mj0sbbn6 PROMPT "Situatii \<analitice"
	ON BAR 1 OF _1mj0sbbn6 ACTIVATE POPUP _1mj0sbjsk

		*----------------------------------
		DEFINE POPUP _1mj0sbjsk SHORTCUT RELATIVE
		DEFINE BAR 1 OF _1mj0sbjsk PROMPT "\<Furnizori"
		ON SELECTION BAR 1 OF _1mj0sbjsk DO BAR_1_OF__1mj0sbjsk_FB2P

		DEFINE BAR 2 OF _1mj0sbjsk PROMPT "\<Clienti"
		ON SELECTION BAR 2 OF _1mj0sbjsk DO BAR_2_OF__1mj0sbjsk_FB2P

		DEFINE BAR 3 OF _1mj0sbjsk PROMPT "Cr\<editori"
		ON SELECTION BAR 3 OF _1mj0sbjsk DO BAR_3_OF__1mj0sbjsk_FB2P

		DEFINE BAR 4 OF _1mj0sbjsk PROMPT "\<Debitori"
		ON SELECTION BAR 4 OF _1mj0sbjsk DO BAR_4_OF__1mj0sbjsk_FB2P

		DEFINE BAR 5 OF _1mj0sbjsk PROMPT "\<Achizitori"
		ON SELECTION BAR 5 OF _1mj0sbjsk DO BAR_5_OF__1mj0sbjsk_FB2P

		DEFINE BAR 6 OF _1mj0sbjsk PROMPT "Act\<ionari"
		ON SELECTION BAR 6 OF _1mj0sbjsk DO BAR_6_OF__1mj0sbjsk_FB2P

	DEFINE BAR 2 OF _1mj0sbbn6 PROMPT "\-"
	ON BAR 2 OF _1mj0sbbn6 ACTIVATE POPUP _1mj0sbpef

		*----------------------------------
		DEFINE POPUP _1mj0sbpef SHORTCUT RELATIVE
	DEFINE BAR 3 OF _1mj0sbbn6 PROMPT "\<Balanta"
	ON SELECTION BAR 3 OF _1mj0sbbn6 DO BAR_3_OF__1mj0sbbn6_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
	*!*	ll2=m.nl
	*!*	aa2=m.an
	
	*!*	do form startfirma
	*!*	IF buton=2
	*!*	m.an=aa2
	*!*	m.nl=ll2
	*!*	endif
ENDPROC && BAR_1_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF__1mj0sbjsk_FB2P
	*!*	sele act
	*!*	copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX
	
	*!*	sele 0
	*!*	use &loc\&nfscurt\tempo\ytemp alias ytemp
	*!*	sele ytemp
	*!*	BUTON=1
	*!*	mmm=crea('modiffact')
	*!*	mmm.decare='FURN'
	*!*	MMM.SHOW(1)
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	USE IN YTEMP
	*!*	RETURN
	*!*	ENDIF
	
	*!*	SELE YTEMP
	*!*	SCAN
	*!*	SCAT MEMV
	*!*	SELE ACT
	*!*	IF FLOCK()
	*!*	appe blan
	*!*	gath memv
	*!*	endif
	*!*	unlock
	*!*	SELE ACTan
	*!*	IF FLOCK()
	*!*	appe blan
	*!*	gath memv
	*!*	endif
	*!*	unlock
	*!*	endscan
	
	*!*	USE IN YTEMP
	*!*	wait wind 'Se inregistreaza in analiticul de furnizori...' nowait
	*!*	DO TOTV
	*!*	DO REFBAL
	*!*	DO REFFURNIZOR
	*!*	wait wind 'Se inregistreaza in registrul de cumparari...' nowait
	*!*	DO TOTV
	*!*	DO REFCUMP
	*!*	wait wind 'Se inregistreaza in situatia facturilor de furnizori...' nowait
	*!*	do totv
	*!*	DO REFCUMPLUN
	*!*	DO TOTV
	*!*	wait clear
ENDPROC && BAR_1_OF__1mj0sbjsk_FB2P

PROCEDURE BAR_2_OF__1mj0sbjsk_FB2P
	*!*	sele act
	*!*	copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX
	
	*!*	sele 0
	*!*	use &loc\&nfscurt\tempo\ytemp alias ytemp
	*!*	sele ytemp
	*!*	BUTON=1
	*!*	mmm=crea('modiffact')
	*!*	mmm.decare='CLI'
	*!*	MMM.SHOW(1)
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	USE IN YTEMP
	*!*	RETURN
	*!*	ENDIF
	
	*!*	SELE YTEMP
	*!*	SCAN
	*!*	SCAT MEMV
	*!*	SELE ACT
	*!*	IF FLOCK()
	*!*	appe blan
	*!*	gath memv
	*!*	endif
	*!*	unlock
	*!*	SELE ACTan
	*!*	IF FLOCK()
	*!*	appe blan
	*!*	gath memv
	*!*	endif
	*!*	unlock
	*!*	endscan
	
	*!*	USE IN YTEMP
	*!*	wait wind 'Se inregistreaza in analiticul de clienti...' nowait
	*!*	DO TOTV
	*!*	DO REFBAL
	*!*	DO REFCLIENTI
	*!*	wait wind 'Se inregistreaza in registrul de vanzari...' nowait
	*!*	DO TOTV
	*!*	DO REFVANZ
	*!*	wait wind 'Se inregistreaza in situatia facturilor de clienti...' nowait
	*!*	do totv
	*!*	DO REFVANZLUN
	*!*	DO TOTV
	*!*	wait clear
ENDPROC && BAR_2_OF__1mj0sbjsk_FB2P

PROCEDURE BAR_3_OF__1mj0sbjsk_FB2P
	*!*	LOCAL m.SUM1,M.SUM2,M.SUM3
	
	*!*	SELECT CREDITOR
	*!*	SET FILTER TO !DELETED()
	*!*	sum LUAT,DAT to m.SUM1,M.SUM2
	*!*	M.SUM3=M.SUM1-M.SUM2
	
	*!*	SELE BAL
	*!*	SEEK '462 '
	*!*	SCATTER MEMVAR
	*!*	IF M.SOLDcred # M.SUM3
	*!*	do mesajval with 'Diferenta soldului cont.462 este de: ',M.SOLDCRED-M.SUM3
	*!*	endif
	
	
	*!*	     
	*!*	m.cont='462 '
	*!*	cn=m.cont
	
	*!*	SELECT CREDITOR.NUME,CREDITOR.luat as deb,CREDITOR.dat as cred;
	*!*		 from CREDITOR where !deleted() ;
	*!*		 into TABLE &LOC\&nfscurt\tempo\xtemp
	*!*		 
	*!*	*	 rename column luat TO deb;
	*!*	*	 rename column dat TO cred;
	
	*!*	if file('&LOC\&nfscurt\tempo\xtemp.dbf')
	*!*	sele xtemp
	*!*	alter table xtemp ADD COLUMN CONT C(4)
	*!*	repl all cont with m.cont
	
	*!*	sele xtemp
	*!*	index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
	
	*!*	OVIZ=CREATEOBJECT("afsitanalitX")
	*!*	WITH OVIZ
	*!*		.command5.visible=.f.
	*!*		.LABEL10.CAPTION='SITUATIA ANALITICA - CREDITORI'
	*!*		.GRID1.COLUMN2.VISIBLE=.F.
	*!*		.GRID1.COLUMN2.WIDTH=0
	*!*		.GRID1.COLUMN8.VISIBLE=.F.
	*!*		.GRID1.COLUMN8.WIDTH=0
	*!*	ENDWITH
	*!*	OVIZ.SHOW(1)
	*!*	use in xtemp
	*!*	endif
ENDPROC && BAR_3_OF__1mj0sbjsk_FB2P

PROCEDURE BAR_4_OF__1mj0sbjsk_FB2P
	*!*	SELECT debitor
	*!*	SET FILTER TO !DELETED()
	
	*!*	SELECT debitor
	*!*	sum LUAT,DAT to m.SUM1,M.SUM2
	*!*	M.SUM3=M.SUM1-M.SUM2
	*!*	SELE BAL
	*!*	SEEK '461 '
	*!*	SCATTER MEMVAR
	*!*	IF M.SOLDDEB # M.SUM3
	*!*	do mesajval with 'Diferenta soldului cont.461 este de: ',M.SOLDDEB-M.SUM3
	*!*	endif
	
	
	*!*	SELECT debitor.NUME,debitor.luat as deb,debitor.dat as cred;
	*!*		 from debitor where !deleted() ;
	*!*		 into TABLE &LOC\&nfscurt\tempo\xtemp
	*!*	*alter table xtemp;
	*!*	*	 rename column luat TO DEB;
	*!*	*	 rename column dat TO CRED;
	
	*!*	sele xtemp
	*!*	index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
	
	*!*	do creaT_analitX with 'SITUATIE ANALITICA - DEBITORI','Incasat','Restituit'
	*!*	use in xtemp
ENDPROC && BAR_4_OF__1mj0sbjsk_FB2P

PROCEDURE BAR_5_OF__1mj0sbjsk_FB2P
	*!*	local m.sum1,m.sum2,m.sum3
	*!*	set safety off
	
	*!*	SELECT ACHIT542
	*!*	SET FILTER TO !DELETED()
	*!*	sum LUAT,DAT to m.SUM1,M.SUM2
	*!*	M.SUM3=M.SUM1-M.SUM2
	
	*!*	SELE BAL
	*!*	SEEK '542 '
	*!*	SCATTER MEMVAR
	*!*	IF M.SOLDDEB # M.SUM3
	
	*!*	ot=createobj('textval')
	*!*	ot.label2.caption= 'Diferenta soldului este de: '
	*!*	ot.valoare=M.SOLDDEB-M.SUM3
	*!*	ot.show(1)
	*!*	ENDIF
	
	*!*	m.cont='542  '
	*!*	cn=m.cont
	*!*	      
	*!*	SELECT ACHIT542.NUME_2 as nume,achit542.luat as deb,achit542.dat as cred;
	*!*		 from achit542 where !deleted();
	*!*		 into TABLE &LOC\&nfscurt\tempo\xtemp
	
	*!*	**	 rename column nume_2 TO nume;
	*!*	*	 rename column luat TO deb;
	*!*	*	 rename column dat TO cred;
	*!*		 
	*!*	if file('&LOC\&nfscurt\tempo\xtemp.dbf')
	*!*	sele xtemp
	*!*	alter table xtemp ADD COLUMN CONT C(4)
	*!*	repl all cont with m.cont
	*!*	index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
	
	*!*	OVIZ=CREATEOBJECT("afsitanalitX")
	*!*	WITH OVIZ
	*!*		.command5.visible=.f.
	*!*		.LABEL10.CAPTION='SITUATIA ANALITICA - ACHIZITORI'
	*!*		.GRID1.COLUMN2.VISIBLE=.F.
	*!*		.GRID1.COLUMN2.WIDTH=0
	*!*		.GRID1.COLUMN8.VISIBLE=.F.
	*!*		.GRID1.COLUMN8.WIDTH=0
	*!*	ENDWITH
	*!*	OVIZ.SHOW(1)
	*!*	use in xtemp
	*!*	endif
ENDPROC && BAR_5_OF__1mj0sbjsk_FB2P

PROCEDURE BAR_6_OF__1mj0sbjsk_FB2P
	*!*	SELECT actionar
	*!*	SET FILTER TO !DELETED()
	*!*	sum LUAT,DAT to m.SUM1,M.SUM2
	*!*	M.SUM3=M.SUM1-M.SUM2
	*!*	     
	
	*!*	SELECT actionar.NUME,actionar.luat as deb,actionar.dat as cred;
	*!*		 from actionar where !deleted() ;
	*!*		 into TABLE &LOC\&nfscurt\tempo\xtemp
	*!*	*alter table xtemp;
	*!*	*	 rename column luat TO deb;
	*!*	*	 rename column dat TO cred;
	
	*!*	sele xtemp
	*!*	index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
	
	*!*	do creaT_analitX with 'SITUATIE ANALITICA - ACTIONARI','Luat','Dat'
	*!*	use in xtemp
ENDPROC && BAR_6_OF__1mj0sbjsk_FB2P

PROCEDURE BAR_3_OF__1mj0sbbn6_FB2P
	*!*	sele bal
	*!*	do form afisbalx
ENDPROC && BAR_3_OF__1mj0sbbn6_FB2P

*</Procedures>