*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>

*<MenuCode>
DEFINE POPUP _0u60sg1k5 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF _0u60sg1k5 PROMPT "Corporale 231"
ON BAR 1 OF _0u60sg1k5 ACTIVATE POPUP _0u60sk6ro

	*----------------------------------
	DEFINE POPUP _0u60sk6ro SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0u60sk6ro PROMPT "Realizarea imobilizarilor in curs"
	ON BAR 1 OF _0u60sk6ro ACTIVATE POPUP _0u60skexy

		*----------------------------------
		DEFINE POPUP _0u60skexy SHORTCUT RELATIVE
		DEFINE BAR 1 OF _0u60skexy PROMPT "De la asociati" ;
			MESSAGE '231 :456 '
		ON SELECTION BAR 1 OF _0u60skexy DO BAR_1_OF__0u60skexy_FB2P

		DEFINE BAR 2 OF _0u60skexy PROMPT "De la furnizori" ;
			MESSAGE '231 :404 ;4426:404 '
		ON SELECTION BAR 2 OF _0u60skexy DO BAR_2_OF__0u60skexy_FB2P

		DEFINE BAR 3 OF _0u60skexy PROMPT "De la furnizori-taxa inversa" ;
			MESSAGE '4426:404 '
		ON SELECTION BAR 3 OF _0u60skexy DO BAR_3_OF__0u60skexy_FB2P

		DEFINE BAR 4 OF _0u60skexy PROMPT "Din regie proprie" ;
			MESSAGE '231 :722 '
		ON SELECTION BAR 4 OF _0u60skexy DO BAR_4_OF__0u60skexy_FB2P

	DEFINE BAR 2 OF _0u60sk6ro PROMPT "Receptionarea imobilizarilor in curs, terminate"
	ON BAR 2 OF _0u60sk6ro ACTIVATE POPUP _0u60spwkz

		*----------------------------------
		DEFINE POPUP _0u60spwkz SHORTCUT RELATIVE
		DEFINE BAR 1 OF _0u60spwkz PROMPT "Constructii 212" ;
			MESSAGE '212 :231 '
		ON SELECTION BAR 1 OF _0u60spwkz DO BAR_1_OF__0u60spwkz_FB2P

		DEFINE BAR 2 OF _0u60spwkz PROMPT "Echipamente tehnologice 2131" ;
			MESSAGE '2131:231 '
		ON SELECTION BAR 2 OF _0u60spwkz DO BAR_2_OF__0u60spwkz_FB2P

		DEFINE BAR 3 OF _0u60spwkz PROMPT "Aparate de masura 2132" ;
			MESSAGE '2132:231 '
		ON SELECTION BAR 3 OF _0u60spwkz DO BAR_3_OF__0u60spwkz_FB2P

		DEFINE BAR 4 OF _0u60spwkz PROMPT "Mijloace de transport 2133" ;
			MESSAGE '2133:231 '
		ON SELECTION BAR 4 OF _0u60spwkz DO BAR_4_OF__0u60spwkz_FB2P

		DEFINE BAR 5 OF _0u60spwkz PROMPT "Mobilier birotica 214" ;
			MESSAGE '214 :231 '
		ON SELECTION BAR 5 OF _0u60spwkz DO BAR_5_OF__0u60spwkz_FB2P

		DEFINE BAR 6 OF _0u60spwkz PROMPT "Animale si plantatii 2134" ;
			MESSAGE '2134 :231 '
		ON SELECTION BAR 6 OF _0u60spwkz DO BAR_6_OF__0u60spwkz_FB2P

DEFINE BAR 2 OF _0u60sg1k5 PROMPT "Avansuri pentru imob. corporale 232"
ON BAR 2 OF _0u60sg1k5 ACTIVATE POPUP _0u60sw49x

	*----------------------------------
	DEFINE POPUP _0u60sw49x SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0u60sw49x PROMPT "Acordate furnizorilor" ;
		MESSAGE '232 :404 '
	ON SELECTION BAR 1 OF _0u60sw49x DO BAR_1_OF__0u60sw49x_FB2P

	DEFINE BAR 2 OF _0u60sw49x PROMPT "Decontate de furnizori" ;
		MESSAGE '404 :232 '
	ON SELECTION BAR 2 OF _0u60sw49x DO BAR_2_OF__0u60sw49x_FB2P

DEFINE BAR 3 OF _0u60sg1k5 PROMPT "Necorporale 233"
ON BAR 3 OF _0u60sg1k5 ACTIVATE POPUP _0u60t8smb

	*----------------------------------
	DEFINE POPUP _0u60t8smb SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0u60t8smb PROMPT "Realizarea imobilizarilor in curs"
	ON BAR 1 OF _0u60t8smb ACTIVATE POPUP _0u60t9l2m

		*----------------------------------
		DEFINE POPUP _0u60t9l2m SHORTCUT RELATIVE
		DEFINE BAR 1 OF _0u60t9l2m PROMPT "De la asociati" ;
			MESSAGE '233 :456 '
		ON SELECTION BAR 1 OF _0u60t9l2m DO BAR_1_OF__0u60t9l2m_FB2P

		DEFINE BAR 2 OF _0u60t9l2m PROMPT "De la furnizori" ;
			MESSAGE '233 :404 ;4426:404 '
		ON SELECTION BAR 2 OF _0u60t9l2m DO BAR_2_OF__0u60t9l2m_FB2P

		DEFINE BAR 3 OF _0u60t9l2m PROMPT "Din regie proprie" ;
			MESSAGE '233 :721 '
		ON SELECTION BAR 3 OF _0u60t9l2m DO BAR_3_OF__0u60t9l2m_FB2P

	DEFINE BAR 2 OF _0u60t8smb PROMPT "Receptionarea imobilizarilor in curs, terminate"
	ON BAR 2 OF _0u60t8smb ACTIVATE POPUP _0u60tfh6h

		*----------------------------------
		DEFINE POPUP _0u60tfh6h SHORTCUT RELATIVE
		DEFINE BAR 1 OF _0u60tfh6h PROMPT "Cheltuieli de dezvoltare 203" ;
			MESSAGE '203 :233 '
		ON SELECTION BAR 1 OF _0u60tfh6h DO BAR_1_OF__0u60tfh6h_FB2P

		DEFINE BAR 2 OF _0u60tfh6h PROMPT "Concesiuni, brevete 205" ;
			MESSAGE '205 :233 '
		ON SELECTION BAR 2 OF _0u60tfh6h DO BAR_2_OF__0u60tfh6h_FB2P

		DEFINE BAR 3 OF _0u60tfh6h PROMPT "Alte imobilizari necorporale 208" ;
			MESSAGE '208 :233 '
		ON SELECTION BAR 3 OF _0u60tfh6h DO BAR_3_OF__0u60tfh6h_FB2P

DEFINE BAR 4 OF _0u60sg1k5 PROMPT "Avansuri pentru imob. necorporale 234"
ON BAR 4 OF _0u60sg1k5 ACTIVATE POPUP _0u60tiszu

	*----------------------------------
	DEFINE POPUP _0u60tiszu SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0u60tiszu PROMPT "Acordate furnizorilor" ;
		MESSAGE '234 :404 '
	ON SELECTION BAR 1 OF _0u60tiszu DO BAR_1_OF__0u60tiszu_FB2P

	DEFINE BAR 2 OF _0u60tiszu PROMPT "Decontate de furnizori" ;
		MESSAGE '404 :234 '
	ON SELECTION BAR 2 OF _0u60tiszu DO BAR_2_OF__0u60tiszu_FB2P
ACTIVATE POPUP _0u60sg1k5

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF__0u60skexy_FB2P
	*DO ABC1 WITH '231 ','456 '
	lans(10169)
ENDPROC && BAR_1_OF__0u60skexy_FB2P

PROCEDURE BAR_2_OF__0u60skexy_FB2P
	lans(10170)
ENDPROC && BAR_2_OF__0u60skexy_FB2P

PROCEDURE BAR_3_OF__0u60skexy_FB2P
	lans(10590)
ENDPROC && BAR_3_OF__0u60skexy_FB2P

PROCEDURE BAR_4_OF__0u60skexy_FB2P
	*DO ABC1 WITH '231 ','722 '
	lans(10171)
ENDPROC && BAR_4_OF__0u60skexy_FB2P

PROCEDURE BAR_1_OF__0u60spwkz_FB2P
	*DO ABC1 WITH '212 ','231 '
	lans(10172)
ENDPROC && BAR_1_OF__0u60spwkz_FB2P

PROCEDURE BAR_2_OF__0u60spwkz_FB2P
	*DO ABC1 WITH '2131','231 '
	lans(10173)
ENDPROC && BAR_2_OF__0u60spwkz_FB2P

PROCEDURE BAR_3_OF__0u60spwkz_FB2P
	*DO ABC1 WITH '2132','231 '
	lans(10174)
ENDPROC && BAR_3_OF__0u60spwkz_FB2P

PROCEDURE BAR_4_OF__0u60spwkz_FB2P
	*DO ABC1 WITH '2133','231 '
	lans(10175)
ENDPROC && BAR_4_OF__0u60spwkz_FB2P

PROCEDURE BAR_5_OF__0u60spwkz_FB2P
	*DO ABC1 WITH '214 ','231 '
	lans(10176)
ENDPROC && BAR_5_OF__0u60spwkz_FB2P

PROCEDURE BAR_6_OF__0u60spwkz_FB2P
	lans(10599)
ENDPROC && BAR_6_OF__0u60spwkz_FB2P

PROCEDURE BAR_1_OF__0u60sw49x_FB2P
	lans(10177)
	*!*	*DO ABC1 WITH '232 ','404 '
	*!*	m.scd='232  '
	*!*	m.scc='404  '
	*!*	****do casa.spr
	*!*	DO alfabeta with;
	*!*		'casa',;
	*!*		"NUMELE FURNIZORULUI","FURNIZ404","NUME",;
	*!*		"","","",;
	*!*		'','','',;
	*!*		""
	*!*	*
	*!*	IF BUTON=2
	*!*		DO STERGE
	*!*		RETURN
	*!*	ENDIF
	
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	SELE FURNIZ404
	*!*	IF flock()
	*!*		REPL ACHIZIT with ACHIZIT+m.suma
	*!*	ENDIF
	*!*	UNLOCK
	*!*	m.totctva=m.suma
	*!*	m.totftva=m.suma
	*!*	DO adcump404
	
	*!*	DO STERGE
ENDPROC && BAR_1_OF__0u60sw49x_FB2P

PROCEDURE BAR_2_OF__0u60sw49x_FB2P
	lans(10178)
	*!*	*DO ABC1 WITH '404 ','232 '
	*!*	m.scd='404  '
	*!*	m.scc='232  '
	*!*	****do casa.spr
	*!*	DO alfabeta with;
	*!*		'casa',;
	*!*		"NUMELE FURNIZORULUI","FURNIZ404","NUME",;
	*!*		"","","",;
	*!*		'','','',;
	*!*		""
	*!*	*
	*!*	IF BUTON=2
	*!*		DO STERGE
	*!*		RETURN
	*!*	ENDIF
	
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	SELE FURNIZ404
	*!*	IF flock()
	*!*		REPL PLATIT with PLATIT+m.suma
	*!*	ENDIF
	*!*	UNLOCK
	*!*	*DO ADCUMP404
	*!*	*!*	SELECT CUMPLUN404
	*!*	*!*	IF FLOCK()
	*!*	*!*	APPEND BLANK 
	*!*	*!*	GATHER MEMV
	*!*	*!*	REPLACE TOTCTVA WITH M.SUMA 
	*!*	*!*	ENDIF
	*!*	*!*	UNLOCK 
	
	*!*	*!*	SELECT CUMP
	*!*	*!*	IF FLOCK()
	*!*	*!*	APPEND BLANK 
	*!*	*!*	GATHER MEMV
	*!*	*!*	REPLACE TOTCTVA WITH M.SUMA 
	*!*	*!*	ENDIF
	*!*	*!*	UNLOCK 
	*!*	DO STERGE
ENDPROC && BAR_2_OF__0u60sw49x_FB2P

PROCEDURE BAR_1_OF__0u60t9l2m_FB2P
	*DO ABC1 WITH '233 ','456 '
	lans(10179)
ENDPROC && BAR_1_OF__0u60t9l2m_FB2P

PROCEDURE BAR_2_OF__0u60t9l2m_FB2P
	lans(10180)
	*!*	*DO ABC2 WITH '233 ','404 ','4426','404 '
	*!*	DEB='233 '
	*!*	M.SCD=DEB
	*!*	M.SCD1=DEB
	*!*	SCC1='404 '
	*!*	SCD2='4426'
	*!*	SCC2=SCC1
	
	*!*	***DO ACTFIX.SPR  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
	*!*	CLASAACT='ACTFIX404'
	*!*	OA=CREA(CLASAACT)
	*!*	OA.SHOW(1)
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	do pnir
	
	*!*	M.TOTCTVA=M.TOTFTVA+M.TOTTVA
	*!*	***********
	*!*	DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT
	*!*	*************
	*!*	IF m.NEIMPOZAB>0
	*!*	m.num=m.nume_2
	*!*	m.nume_2='NEIMPOZABIL '
	*!*	DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT
	*!*	M.NUME_2=M.NUM
	*!*	ENDIF
	*!*	IF m.totftvaI>0
	*!*	m.num=m.nume_2
	
	*!*	m.nume_2='TVA '+str(m.ctvai,5,2)
	*!*	DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT
	*!*	M.NUME_2=M.NUM
	*!*	ENDIF
	*!*	IF m.totftvaM>0
	*!*	m.num=m.nume_2
	
	*!*	m.nume_2='TVA '+str(m.ctvaM,5,2)
	*!*	DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT
	*!*	M.NUME_2=M.NUM
	*!*	ENDIF
	*!*	SELE FURNIZ404
	*!*	set filter to
	*!*	loca for allt(nume)=allt(m.nume)
	*!*	if flock()
	*!*	repl achizit with achizit+M.TOTCTVA
	*!*	endif
	*!*	unlock
	*!*	DO ADCUMP404 
	*!*	**********
	*!*	DO STERGE
ENDPROC && BAR_2_OF__0u60t9l2m_FB2P

PROCEDURE BAR_3_OF__0u60t9l2m_FB2P
	*DO ABC1 WITH '233 ','721 '
	lans(10181)
ENDPROC && BAR_3_OF__0u60t9l2m_FB2P

PROCEDURE BAR_1_OF__0u60tfh6h_FB2P
	*DO ABC1 WITH '203 ','233 '
	lans(10182)
ENDPROC && BAR_1_OF__0u60tfh6h_FB2P

PROCEDURE BAR_2_OF__0u60tfh6h_FB2P
	*DO ABC1 WITH '205 ','233 '
	lans(10183)
ENDPROC && BAR_2_OF__0u60tfh6h_FB2P

PROCEDURE BAR_3_OF__0u60tfh6h_FB2P
	*DO ABC1 WITH '208 ','233 '
	lans(10184)
ENDPROC && BAR_3_OF__0u60tfh6h_FB2P

PROCEDURE BAR_1_OF__0u60tiszu_FB2P
	lans(10185)
	*!*	*DO ABC1 WITH '234 ','404 '
	*!*	m.scd='234  '
	*!*	m.scc='404  '
	*!*	****do casa.spr
	*!*	DO alfabeta with;
	*!*		'casa',;
	*!*		"NUMELE FURNIZORULUI","FURNIZ404","NUME",;
	*!*		"","","",;
	*!*		'','','',;
	*!*		""
	*!*	*
	*!*	IF BUTON=2
	*!*		DO STERGE
	*!*		RETURN
	*!*	ENDIF
	
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	SELE FURNIZ404
	*!*	IF flock()
	*!*		REPL ACHIZIT with ACHIZIT+m.suma
	*!*	ENDIF
	*!*	UNLOCK
	*!*	m.totctva=m.suma
	*!*	m.totftva=m.suma
	*!*	DO adcump404
	
	*!*	DO STERGE
ENDPROC && BAR_1_OF__0u60tiszu_FB2P

PROCEDURE BAR_2_OF__0u60tiszu_FB2P
	lans(10186)
	*!*	*DO ABC1 WITH '404 ','234 '
	*!*	m.scd='404  '
	*!*	m.scc='234  '
	*!*	****do casa.spr
	*!*	DO alfabeta with;
	*!*		'casa',;
	*!*		"NUMELE FURNIZORULUI","FURNIZ404","NUME",;
	*!*		"","","",;
	*!*		'','','',;
	*!*		""
	*!*	*
	*!*	IF BUTON=2
	*!*		DO STERGE
	*!*		RETURN
	*!*	ENDIF
	
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	SELE FURNIZ404
	*!*	IF flock()
	*!*		REPL PLATIT with PLATIT+m.suma
	*!*	ENDIF
	*!*	UNLOCK
	*!*	*DO ADCUMP404
	*!*	*!*	SELECT CUMPLUN404
	*!*	*!*	IF FLOCK()
	*!*	*!*	APPEND BLANK 
	*!*	*!*	GATHER MEMV
	*!*	*!*	REPLACE TOTCTVA WITH M.SUMA 
	*!*	*!*	ENDIF
	*!*	*!*	UNLOCK 
	
	*!*	*!*	SELECT CUMP
	*!*	*!*	IF FLOCK()
	*!*	*!*	APPEND BLANK 
	*!*	*!*	GATHER MEMV
	*!*	*!*	REPLACE TOTCTVA WITH M.SUMA 
	*!*	*!*	ENDIF
	*!*	*!*	UNLOCK 
	*!*	DO STERGE
ENDPROC && BAR_2_OF__0u60tiszu_FB2P

*</Procedures>
