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

*<MenuCode>
DEFINE POPUP Venituri SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Venituri PROMPT "Din vanzari si servicii catre clienti" ;
	MESSAGE '4111 :X ;4111 :4427'
ON SELECTION BAR 1 OF Venituri DO BAR_1_OF_Venituri_FB2P

DEFINE BAR 2 OF Venituri PROMPT "\-"
ON BAR 2 OF Venituri ACTIVATE POPUP _09c1aknd0

	*----------------------------------
	DEFINE POPUP _09c1aknd0 SHORTCUT RELATIVE
DEFINE BAR 3 OF Venituri PROMPT "Din redevente,locatii de gestiune si chirii" ;
	MESSAGE '461 :706 ;461 :4427'
ON SELECTION BAR 3 OF Venituri DO BAR_3_OF_Venituri_FB2P

DEFINE BAR 4 OF Venituri PROMPT "\-"
ON BAR 4 OF Venituri ACTIVATE POPUP NewItem

	*----------------------------------
	DEFINE POPUP NewItem SHORTCUT RELATIVE
DEFINE BAR 5 OF Venituri PROMPT "Din productia de imobilizari"
ON BAR 5 OF Venituri ACTIVATE POPUP Dinproduct

	*----------------------------------
	DEFINE POPUP Dinproduct SHORTCUT RELATIVE
	DEFINE BAR 1 OF Dinproduct PROMPT "Necorporale"
	ON BAR 1 OF Dinproduct ACTIVATE POPUP Necorporal

		*----------------------------------
		DEFINE POPUP Necorporal SHORTCUT RELATIVE
		DEFINE BAR 1 OF Necorporal PROMPT "Cercetere-dezvoltare 203" ;
			MESSAGE '203 :721 '
		ON SELECTION BAR 1 OF Necorporal DO BAR_1_OF_Necorporal_FB2P

		DEFINE BAR 2 OF Necorporal PROMPT "Concesiuni,brevete 205" ;
			MESSAGE '205 :721 '
		ON SELECTION BAR 2 OF Necorporal DO BAR_2_OF_Necorporal_FB2P

		DEFINE BAR 3 OF Necorporal PROMPT "Alte imobilizari 208" ;
			MESSAGE '208 :721 '
		ON SELECTION BAR 3 OF Necorporal DO BAR_3_OF_Necorporal_FB2P

		DEFINE BAR 4 OF Necorporal PROMPT "In curs 230" ;
			MESSAGE '230 :721 '
		ON SELECTION BAR 4 OF Necorporal DO BAR_4_OF_Necorporal_FB2P

	DEFINE BAR 2 OF Dinproduct PROMPT "Corporale"
	ON BAR 2 OF Dinproduct ACTIVATE POPUP Corporale

		*----------------------------------
		DEFINE POPUP Corporale SHORTCUT RELATIVE
		DEFINE BAR 1 OF Corporale PROMPT "Mijloace fixe obtinute din productie proprie" ;
			MESSAGE '212 :722 ;4426:4427'
		ON SELECTION BAR 1 OF Corporale DO BAR_1_OF_Corporale_FB2P

		DEFINE BAR 2 OF Corporale PROMPT "In curs de productie" ;
			MESSAGE '231 :722 '
		ON SELECTION BAR 2 OF Corporale DO BAR_2_OF_Corporale_FB2P

DEFINE BAR 6 OF Venituri PROMPT "Din dobanzi"
ON BAR 6 OF Venituri ACTIVATE POPUP Dindobanzi

	*----------------------------------
	DEFINE POPUP Dindobanzi SHORTCUT RELATIVE
	DEFINE BAR 1 OF Dindobanzi PROMPT "De la debitori diversi" ;
		MESSAGE '461 :766 '
	ON SELECTION BAR 1 OF Dindobanzi DO BAR_1_OF_Dindobanzi_FB2P

	DEFINE BAR 2 OF Dindobanzi PROMPT "De la banci" ;
		MESSAGE '5187:766 '
	ON SELECTION BAR 2 OF Dindobanzi DO BAR_2_OF_Dindobanzi_FB2P

DEFINE BAR 7 OF Venituri PROMPT "Imputatii"
ON BAR 7 OF Venituri ACTIVATE POPUP Imputatii

	*----------------------------------
	DEFINE POPUP Imputatii SHORTCUT RELATIVE
	DEFINE BAR 1 OF Imputatii PROMPT "Salariati" ;
		MESSAGE '4282 :758X ;4282 :4427'
	ON SELECTION BAR 1 OF Imputatii DO BAR_1_OF_Imputatii_FB2P

	DEFINE BAR 2 OF Imputatii PROMPT "Debitori diversi" ;
		MESSAGE '461 :758 ;461 :4427'
	ON SELECTION BAR 2 OF Imputatii DO BAR_2_OF_Imputatii_FB2P

DEFINE BAR 8 OF Venituri PROMPT "\-"
ON BAR 8 OF Venituri ACTIVATE POPUP _09c1akncz

	*----------------------------------
	DEFINE POPUP _09c1akncz SHORTCUT RELATIVE
DEFINE BAR 9 OF Venituri PROMPT "\<Discount 767" ;
	MESSAGE '401 :767 ;4426:401 '
ON SELECTION BAR 9 OF Venituri DO BAR_9_OF_Venituri_FB2P

DEFINE BAR 10 OF Venituri PROMPT "Reduceri comerciale primite 609" ;
	MESSAGE '401 :609 ;4426:401 '
ON SELECTION BAR 10 OF Venituri lans(10606)

DEFINE BAR 11 OF Venituri PROMPT "\-"
ON BAR 11 OF Venituri ACTIVATE POPUP _14d0z6nkt

	*----------------------------------
	DEFINE POPUP _14d0z6nkt SHORTCUT RELATIVE
DEFINE BAR 12 OF Venituri PROMPT "Repunere venituri in avans (472)" ;
	MESSAGE '472-7xx'
ON SELECTION BAR 12 OF Venituri DO BAR_12_OF_Venituri_FB2P

DEFINE BAR 13 OF Venituri PROMPT "Repunere venituri in avans (472) valuta"
ON SELECTION BAR 13 OF Venituri DO BAR_13_OF_Venituri_FB2P

DEFINE BAR 14 OF Venituri PROMPT "Repunere venituri in avans (472) - toate cu rate"
ON SELECTION BAR 14 OF Venituri do repunere_venchelt_avans with '472' in ocont2003.prg

DEFINE BAR 15 OF Venituri PROMPT "\-"
ON BAR 15 OF Venituri ACTIVATE POPUP _5is0uvphe

	*----------------------------------
	DEFINE POPUP _5is0uvphe SHORTCUT RELATIVE
DEFINE BAR 16 OF Venituri PROMPT "Repunere subventii (475X)  - toate cu rate"
ON SELECTION BAR 16 OF Venituri DO BAR_16_OF_Venituri_FB2P
ACTIVATE POPUP Venituri

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Venituri_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'7')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10298)
ENDPROC && BAR_1_OF_Venituri_FB2P

PROCEDURE BAR_3_OF_Venituri_FB2P
	lans(10275)
ENDPROC && BAR_3_OF_Venituri_FB2P

PROCEDURE BAR_1_OF_Necorporal_FB2P
	lans(10277)
ENDPROC && BAR_1_OF_Necorporal_FB2P

PROCEDURE BAR_2_OF_Necorporal_FB2P
	lans(10278)
ENDPROC && BAR_2_OF_Necorporal_FB2P

PROCEDURE BAR_3_OF_Necorporal_FB2P
	lans(10279)
ENDPROC && BAR_3_OF_Necorporal_FB2P

PROCEDURE BAR_4_OF_Necorporal_FB2P
	lans(10280)
ENDPROC && BAR_4_OF_Necorporal_FB2P

PROCEDURE BAR_1_OF_Corporale_FB2P
	lans(10281)
ENDPROC && BAR_1_OF_Corporale_FB2P

PROCEDURE BAR_2_OF_Corporale_FB2P
	lans(10282)
ENDPROC && BAR_2_OF_Corporale_FB2P

PROCEDURE BAR_1_OF_Dindobanzi_FB2P
	
	lans(10283)
ENDPROC && BAR_1_OF_Dindobanzi_FB2P

PROCEDURE BAR_2_OF_Dindobanzi_FB2P
	lans(10284)
ENDPROC && BAR_2_OF_Dindobanzi_FB2P

PROCEDURE BAR_1_OF_Imputatii_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'758')  &&,7581,7582,7583,7584,7588')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10285)
ENDPROC && BAR_1_OF_Imputatii_FB2P

PROCEDURE BAR_2_OF_Imputatii_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'758')   && ,7581,7582,7583,7584,7588')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10286)
ENDPROC && BAR_2_OF_Imputatii_FB2P

PROCEDURE BAR_9_OF_Venituri_FB2P
	lans(10463)
ENDPROC && BAR_9_OF_Venituri_FB2P

PROCEDURE BAR_12_OF_Venituri_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'7')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10472)
ENDPROC && BAR_12_OF_Venituri_FB2P

PROCEDURE BAR_13_OF_Venituri_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'7')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10645)
ENDPROC && BAR_13_OF_Venituri_FB2P

PROCEDURE BAR_16_OF_Venituri_FB2P
	LOCAL lcCont
	loCont=ret_cont("Selectati contul",'475')
	
	IF TYPE('loCont') # 'O' OR buton = 2
		RELEASE loCont
		RETURN
	ENDIF 
	lcCont = locont.cont
	
	do repunere_venchelt_avans with m.lcCont in ocont2003.prg
ENDPROC && BAR_16_OF_Venituri_FB2P

*</Procedures>