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

*<MenuCode>
DEFINE POPUP _09c0qzbvl SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF _09c0qzbvl PROMPT "Constituire"
ON BAR 1 OF _09c0qzbvl ACTIVATE POPUP _09c0r8r60

	*----------------------------------
	DEFINE POPUP _09c0r8r60 SHORTCUT RELATIVE
	DEFINE BAR 1 OF _09c0r8r60 PROMPT "Cheltuieli de constituire 201"
	ON BAR 1 OF _09c0r8r60 ACTIVATE POPUP Cheltuieli

		*----------------------------------
		DEFINE POPUP Cheltuieli SHORTCUT RELATIVE
		DEFINE BAR 1 OF Cheltuieli PROMPT "Prin banca" ;
			MESSAGE '201:5121'
		ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P

		DEFINE BAR 2 OF Cheltuieli PROMPT "Prin casa" ;
			MESSAGE '201 :5311'
		ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P

		DEFINE BAR 3 OF Cheltuieli PROMPT "Prin furnizori" ;
			MESSAGE '201 :404 ;4426:404 '
		ON SELECTION BAR 3 OF Cheltuieli DO BAR_3_OF_Cheltuieli_FB2P

		DEFINE BAR 4 OF Cheltuieli PROMPT "De la furnizori-taxa inversa" ;
			MESSAGE '4426:4427 '
		ON SELECTION BAR 4 OF Cheltuieli DO BAR_4_OF_Cheltuieli_FB2P

	DEFINE BAR 2 OF _09c0r8r60 PROMPT "Cheltuieli de cercetare dezvoltare 203"
	ON BAR 2 OF _09c0r8r60 ACTIVATE POPUP _09c0rhqjj

		*----------------------------------
		DEFINE POPUP _09c0rhqjj SHORTCUT RELATIVE
		DEFINE BAR 1 OF _09c0rhqjj PROMPT "Realizate pe cont propriu" ;
			MESSAGE '203 :721 '
		ON SELECTION BAR 1 OF _09c0rhqjj DO BAR_1_OF__09c0rhqjj_FB2P

		DEFINE BAR 2 OF _09c0rhqjj PROMPT "Aport asociati" ;
			MESSAGE '203 :456 '
		ON SELECTION BAR 2 OF _09c0rhqjj DO BAR_2_OF__09c0rhqjj_FB2P

		DEFINE BAR 3 OF _09c0rhqjj PROMPT "Prin furnizori" ;
			MESSAGE '203 :404 ;4426:404 '
		ON SELECTION BAR 3 OF _09c0rhqjj DO BAR_3_OF__09c0rhqjj_FB2P

	DEFINE BAR 3 OF _09c0r8r60 PROMPT "Concesiuni,brevete 205"
	ON BAR 3 OF _09c0r8r60 ACTIVATE POPUP Concesiuni

		*----------------------------------
		DEFINE POPUP Concesiuni SHORTCUT RELATIVE
		DEFINE BAR 1 OF Concesiuni PROMPT "Primite cu titlu gratuit" ;
			MESSAGE '205 :131 '
		ON SELECTION BAR 1 OF Concesiuni DO BAR_1_OF_Concesiuni_FB2P

		DEFINE BAR 2 OF Concesiuni PROMPT "Ca urmare a chelt. de dezvoltare" ;
			MESSAGE '205 :203 '
		ON SELECTION BAR 2 OF Concesiuni DO BAR_2_OF_Concesiuni_FB2P

		DEFINE BAR 3 OF Concesiuni PROMPT "Prin furnizori" ;
			MESSAGE '205 :404 ;4426:404 '
		ON SELECTION BAR 3 OF Concesiuni DO BAR_3_OF_Concesiuni_FB2P

		DEFINE BAR 4 OF Concesiuni PROMPT "Aport asociati" ;
			MESSAGE '205 :456 '
		ON SELECTION BAR 4 OF Concesiuni DO BAR_4_OF_Concesiuni_FB2P

		DEFINE BAR 5 OF Concesiuni PROMPT "Realizate pe cont propriu" ;
			MESSAGE '205 :721 '
		ON SELECTION BAR 5 OF Concesiuni DO BAR_5_OF_Concesiuni_FB2P

	DEFINE BAR 4 OF _09c0r8r60 PROMPT "Fond comercial 207"
	ON BAR 4 OF _09c0r8r60 ACTIVATE POPUP NewItem

		*----------------------------------
		DEFINE POPUP NewItem SHORTCUT RELATIVE
		DEFINE BAR 1 OF NewItem PROMPT "Aport asociati" ;
			MESSAGE '207 :456 '
		ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P

		DEFINE BAR 2 OF NewItem PROMPT "De la furnizori" ;
			MESSAGE '207 :404 ;4426:404 '
		ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P

	DEFINE BAR 5 OF _09c0r8r60 PROMPT "Alte imobilizari necorporale 208"
	ON BAR 5 OF _09c0r8r60 ACTIVATE POPUP Alteimobil

		*----------------------------------
		DEFINE POPUP Alteimobil SHORTCUT RELATIVE
		DEFINE BAR 1 OF Alteimobil PROMPT "Realizate pe cont propriu" ;
			MESSAGE '208 :721 '
		ON SELECTION BAR 1 OF Alteimobil DO BAR_1_OF_Alteimobil_FB2P

		DEFINE BAR 2 OF Alteimobil PROMPT "Aport asociati" ;
			MESSAGE '208 :456 '
		ON SELECTION BAR 2 OF Alteimobil DO BAR_2_OF_Alteimobil_FB2P

		DEFINE BAR 3 OF Alteimobil PROMPT "Prin furnizori" ;
			MESSAGE '208 :404 ;4426:404 '
		ON SELECTION BAR 3 OF Alteimobil DO BAR_3_OF_Alteimobil_FB2P

DEFINE BAR 2 OF _09c0qzbvl PROMPT "Vanzare"
ON BAR 2 OF _09c0qzbvl ACTIVATE POPUP _0u60orcae

	*----------------------------------
	DEFINE POPUP _0u60orcae SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0u60orcae PROMPT "Cheltuieli de dezvoltare 203" ;
		MESSAGE '6583:203 '
	ON SELECTION BAR 1 OF _0u60orcae DO BAR_1_OF__0u60orcae_FB2P

	DEFINE BAR 2 OF _0u60orcae PROMPT "Concesiuni, brevete si licente 205" ;
		MESSAGE '6583:205 '
	ON SELECTION BAR 2 OF _0u60orcae DO BAR_2_OF__0u60orcae_FB2P

	DEFINE BAR 3 OF _0u60orcae PROMPT "Fond comercial 207" ;
		MESSAGE '6583:207 '
	ON SELECTION BAR 3 OF _0u60orcae DO BAR_3_OF__0u60orcae_FB2P

DEFINE BAR 3 OF _09c0qzbvl PROMPT "Inchidere"
ON BAR 3 OF _09c0qzbvl ACTIVATE POPUP _09c0rf0za

	*----------------------------------
	DEFINE POPUP _09c0rf0za SHORTCUT RELATIVE
	DEFINE BAR 1 OF _09c0rf0za PROMPT "Cheltuieli de constituire 201" ;
		MESSAGE '2801:201 '
	ON SELECTION BAR 1 OF _09c0rf0za DO BAR_1_OF__09c0rf0za_FB2P

	DEFINE BAR 2 OF _09c0rf0za PROMPT "Cheltuieli de cercetare dezvoltare 203" ;
		MESSAGE '2803:203 '
	ON SELECTION BAR 2 OF _09c0rf0za DO BAR_2_OF__09c0rf0za_FB2P

	DEFINE BAR 3 OF _09c0rf0za PROMPT "Concesiuni brevete 205" ;
		MESSAGE '2805:205 '
	ON SELECTION BAR 3 OF _09c0rf0za DO BAR_3_OF__09c0rf0za_FB2P

	DEFINE BAR 4 OF _09c0rf0za PROMPT "Fond comercial 207" ;
		MESSAGE '2807:207 '
	ON SELECTION BAR 4 OF _09c0rf0za DO BAR_4_OF__09c0rf0za_FB2P
ACTIVATE POPUP _09c0qzbvl

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Cheltuieli_FB2P
	*DO ABC1 WITH '201',"5121"
	lans(10126)
ENDPROC && BAR_1_OF_Cheltuieli_FB2P

PROCEDURE BAR_2_OF_Cheltuieli_FB2P
	*DO ABC1 WITH '201 ',"5311"
	lans(10127)
ENDPROC && BAR_2_OF_Cheltuieli_FB2P

PROCEDURE BAR_3_OF_Cheltuieli_FB2P
	lans(10128)
ENDPROC && BAR_3_OF_Cheltuieli_FB2P

PROCEDURE BAR_4_OF_Cheltuieli_FB2P
	lans(10589)
ENDPROC && BAR_4_OF_Cheltuieli_FB2P

PROCEDURE BAR_1_OF__09c0rhqjj_FB2P
	*!*	DO ABC1 WITH '203 ',"5121"
	*DO ABC1 WITH '203 ',"721"
	lans(10129)
ENDPROC && BAR_1_OF__09c0rhqjj_FB2P

PROCEDURE BAR_2_OF__09c0rhqjj_FB2P
	*!*	DO ABC1 WITH '203 ',"5311"
	*DO ABC1 WITH '203 ',"456 "
	lans(10130)
ENDPROC && BAR_2_OF__09c0rhqjj_FB2P

PROCEDURE BAR_3_OF__09c0rhqjj_FB2P
	lans(10131)
	*!*	*!*	DO ABC1 WITH '203 ',"404 "
	*!*	DEB='203 '
	*!*	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_3_OF__09c0rhqjj_FB2P

PROCEDURE BAR_1_OF_Concesiuni_FB2P
	*!*	DO ABC1 WITH '205 ',"5121" - Prin banca
	*DO ABC1 WITH '205 ',"131 "
	lans(10132)
ENDPROC && BAR_1_OF_Concesiuni_FB2P

PROCEDURE BAR_2_OF_Concesiuni_FB2P
	*!*	DO ABC1 WITH '205 ',"5311" - Prin casa
	*DO ABC1 WITH '205 ',"203 "
	lans(10133)
ENDPROC && BAR_2_OF_Concesiuni_FB2P

PROCEDURE BAR_3_OF_Concesiuni_FB2P
	lans(10134)
	*!*	*!*	DO ABC1 WITH '205 ',"404 "
	*!*	DEB='205 '
	*!*	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_3_OF_Concesiuni_FB2P

PROCEDURE BAR_4_OF_Concesiuni_FB2P
	*DO ABC1 WITH '205 ',"456 "
	lans(10135)
ENDPROC && BAR_4_OF_Concesiuni_FB2P

PROCEDURE BAR_5_OF_Concesiuni_FB2P
	*DO ABC1 WITH '205 ',"721 "
	lans(10136)
ENDPROC && BAR_5_OF_Concesiuni_FB2P

PROCEDURE BAR_1_OF_NewItem_FB2P
	*DO ABC1 WITH '207 ','456 '
	lans(10137)
ENDPROC && BAR_1_OF_NewItem_FB2P

PROCEDURE BAR_2_OF_NewItem_FB2P
	lans(10138)
	*!*	DEB='207 '
	*!*	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_NewItem_FB2P

PROCEDURE BAR_1_OF_Alteimobil_FB2P
	*DO ABC1 WITH '208 ',"721"
	lans(10139)
ENDPROC && BAR_1_OF_Alteimobil_FB2P

PROCEDURE BAR_2_OF_Alteimobil_FB2P
	*DO ABC1 WITH '208 ',"456 "
	lans(10140)
ENDPROC && BAR_2_OF_Alteimobil_FB2P

PROCEDURE BAR_3_OF_Alteimobil_FB2P
	lans(10141)
	*!*	*!*	DO ABC1 WITH '208 ',"404 "
	*!*	DEB='208 '
	*!*	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_3_OF_Alteimobil_FB2P

PROCEDURE BAR_1_OF__0u60orcae_FB2P
	*DO ABC1 WITH '6583',"203 "
	lans(10142)
ENDPROC && BAR_1_OF__0u60orcae_FB2P

PROCEDURE BAR_2_OF__0u60orcae_FB2P
	*DO ABC1 WITH '6583',"205 "
	lans(10143)
ENDPROC && BAR_2_OF__0u60orcae_FB2P

PROCEDURE BAR_3_OF__0u60orcae_FB2P
	*DO ABC1 WITH '6583',"207 "
	lans(10144)
ENDPROC && BAR_3_OF__0u60orcae_FB2P

PROCEDURE BAR_1_OF__09c0rf0za_FB2P
	*DO ABC1 WITH '2801',"201 "
	lans(10145)
ENDPROC && BAR_1_OF__09c0rf0za_FB2P

PROCEDURE BAR_2_OF__09c0rf0za_FB2P
	*DO ABC1 WITH '2803',"203 "
	lans(10146)
ENDPROC && BAR_2_OF__09c0rf0za_FB2P

PROCEDURE BAR_3_OF__09c0rf0za_FB2P
	*DO ABC1 WITH '2805',"205 "
	lans(10147)
ENDPROC && BAR_3_OF__09c0rf0za_FB2P

PROCEDURE BAR_4_OF__09c0rf0za_FB2P
	*DO ABC1 WITH '2807','207 '
	lans(10148)
ENDPROC && BAR_4_OF__09c0rf0za_FB2P

*</Procedures>
