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

*<MenuCode>
DEFINE MENU _msysmenu BAR
DEFINE PAD _000000001 OF _msysmenu PROMPT "In\<chidere" COLOR SCHEME 3 ;
	KEY ALT+C, "ALT+C" ;
	SKIP FOR luna_inchisa or luna_neplatita

ON PAD _000000001 OF _msysmenu ACTIVATE POPUP Inchidere

	*----------------------------------
	DEFINE POPUP Inchidere MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF Inchidere PROMPT "\<Nota de salarii" ;
		SKIP FOR m.nivel>1
	ON SELECTION BAR 1 OF Inchidere DO BAR_1_OF_Inchidere_FB2P

	DEFINE BAR 2 OF Inchidere PROMPT "A\<mortizare imobilizari necorporale"
	ON SELECTION BAR 2 OF Inchidere DO BAR_2_OF_Inchidere_FB2P

	DEFINE BAR 3 OF Inchidere PROMPT "\<Amortizare  Mijloace Fixe" ;
		SKIP FOR m.nivel>1
	ON SELECTION BAR 3 OF Inchidere DO BAR_3_OF_Inchidere_FB2P

	DEFINE BAR 4 OF Inchidere PROMPT "\<T.V.A." ;
		SKIP FOR m.nivel>1
	ON SELECTION BAR 4 OF Inchidere DO BAR_4_OF_Inchidere_FB2P

	DEFINE BAR 5 OF Inchidere PROMPT "\<Venituri" ;
		SKIP FOR m.nivel>1
	ON SELECTION BAR 5 OF Inchidere DO BAR_5_OF_Inchidere_FB2P

	DEFINE BAR 6 OF Inchidere PROMPT "\<Cheltuieli" ;
		SKIP FOR m.nivel>1
	ON SELECTION BAR 6 OF Inchidere DO BAR_6_OF_Inchidere_FB2P

	DEFINE BAR 7 OF Inchidere PROMPT "Cheltuiala \<Profit" ;
		SKIP FOR m.nivel>1
	ON SELECTION BAR 7 OF Inchidere DO BAR_7_OF_Inchidere_FB2P

	DEFINE BAR 8 OF Inchidere PROMPT "\<Marfa" ;
		SKIP FOR m.nivel>1
	ON SELECTION BAR 8 OF Inchidere DO BAR_8_OF_Inchidere_FB2P

	DEFINE BAR 9 OF Inchidere PROMPT "\-"
	ON BAR 9 OF Inchidere ACTIVATE POPUP _08g0oc8ql

		*----------------------------------
		DEFINE POPUP _08g0oc8ql MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 10 OF Inchidere PROMPT "\<Penalitati" ;
		SKIP FOR m.nivel>1
	ON BAR 10 OF Inchidere ACTIVATE POPUP Penalitati

		*----------------------------------
		DEFINE POPUP Penalitati MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Penalitati PROMPT "\<TVA"
		ON SELECTION BAR 1 OF Penalitati DO BAR_1_OF_Penalitati_FB2P

		DEFINE BAR 2 OF Penalitati PROMPT "\Impozit pe \<profit"
		ON BAR 2 OF Penalitati ACTIVATE POPUP Impozitpep

			*----------------------------------
			DEFINE POPUP Impozitpep MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 3 OF Penalitati PROMPT "\Impozit \<salarii"
		ON BAR 3 OF Penalitati ACTIVATE POPUP Impozitsal

			*----------------------------------
			DEFINE POPUP Impozitsal MARGIN RELATIVE SHADOW COLOR SCHEME 4
*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Inchidere_FB2P
	do salarii19 in inchidere.prg
ENDPROC && BAR_1_OF_Inchidere_FB2P

PROCEDURE BAR_2_OF_Inchidere_FB2P
	
	
	SELE calendar
	LOCATE for nl=m.nl and an=m.an
	Skip -1
	IF !bof()
		nla=nl
		ana=an
		dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC
	ELSE
		dateA=dirgen+'\_alfa\an0000\date00\'
	ENDIF
	
	USE &DATEA\BAL IN 0 ALIAS BALP
	
	M.NRACT=8
	m.NUME='UZURA OB.DE INVENTAR'
	M.EXPLICATIA='LUNA '+M.NL
	M.SUMA=0
	M.FDOC='NOTA'
	
	
	SELE BALP
	SUM RULcred TO M.SUMA FOR CONT='2801'
	M.NUME_2='CHELT.CONSTITUIRE'
	DO ABC1 WITH '6811','2801'
	SELE BALP
	SUM RULcred TO M.SUMA FOR CONT='2803'
	M.NUME_2='CHELT.CERCET.DEZV.'
	DO ABC1 WITH '6811','2803'
	SELE BALP
	SUM RULcred TO M.SUMA FOR CONT='2805'
	M.NUME_2='BREVETE SI INVENTII'
	DO ABC1 WITH '6811','2805'
	SELE BALP
	SUM RULcred TO M.SUMA FOR CONT='2808'
	M.NUME_2='ALTE IMOB.NECORP.'
	DO ABC1 WITH '6811','2808'
	
	USE IN BALP
	
	
	
	DO STERGE
ENDPROC && BAR_2_OF_Inchidere_FB2P

PROCEDURE BAR_3_OF_Inchidere_FB2P
	do amortizari in inchidere.prg
ENDPROC && BAR_3_OF_Inchidere_FB2P

PROCEDURE BAR_4_OF_Inchidere_FB2P
	do tva in inchidere.prg
ENDPROC && BAR_4_OF_Inchidere_FB2P

PROCEDURE BAR_5_OF_Inchidere_FB2P
	do venituri in inchidere.prg
ENDPROC && BAR_5_OF_Inchidere_FB2P

PROCEDURE BAR_6_OF_Inchidere_FB2P
	do cheltuieli in inchidere.prg
ENDPROC && BAR_6_OF_Inchidere_FB2P

PROCEDURE BAR_7_OF_Inchidere_FB2P
	do cheltprofit in inchidere.prg
ENDPROC && BAR_7_OF_Inchidere_FB2P

PROCEDURE BAR_8_OF_Inchidere_FB2P
	do marfa in inchidere.prg
ENDPROC && BAR_8_OF_Inchidere_FB2P

PROCEDURE BAR_1_OF_Penalitati_FB2P
	DO PENTVA IN PENALITATI.PRG
	
	IF !USED('PENTVA')
	sele 0
	use &dirfirm\tempo\pentva alias pentva 
	ENDIF
	
	o=crea('penalitati')
	o.show(1)
	
	sele pentva
	use
ENDPROC && BAR_1_OF_Penalitati_FB2P

*</Procedures>
