*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000.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 "\<Utile" COLOR SCHEME 3 ;
	NEGOTIATE LEFT, NONE ;
	KEY ALT+U, "ALT+U" ;
	MESSAGE 'Instrumente utile: calculator, calendar, bloc-notes; iesirea din program.'

ON PAD _000000001 OF _msysmenu ACTIVATE POPUP Utile

	*----------------------------------
	DEFINE POPUP Utile MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF Utile PROMPT "\<Optiuni sistem" ;
		SKIP FOR m.nivel>1 ;
		MESSAGE 'Optiuni Sistem'
	ON BAR 1 OF Utile ACTIVATE POPUP Optiunisis

		*----------------------------------
		DEFINE POPUP Optiunisis MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Optiunisis PROMPT "\<Parola"
		ON SELECTION BAR 1 OF Optiunisis DO BAR_1_OF_Optiunisis_FB2P

		DEFINE BAR 2 OF Optiunisis PROMPT "\<Redirectionare" ;
			SKIP FOR m.nivel#0
		ON SELECTION BAR 2 OF Optiunisis DO BAR_2_OF_Optiunisis_FB2P

		DEFINE BAR 3 OF Optiunisis PROMPT "\-"
		ON BAR 3 OF Optiunisis ACTIVATE POPUP _01p0vy9yv

			*----------------------------------
			DEFINE POPUP _01p0vy9yv MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 4 OF Optiunisis PROMPT "\<Culori"
		ON SELECTION BAR 4 OF Optiunisis DO BAR_4_OF_Optiunisis_FB2P

	DEFINE BAR 2 OF Utile PROMPT "\-"
	ON BAR 2 OF Utile ACTIVATE POPUP _0jl0u5xe0

		*----------------------------------
		DEFINE POPUP _0jl0u5xe0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 3 OF Utile PROMPT "\<Administrare"
	ON SELECTION BAR 3 OF Utile DO BAR_3_OF_Utile_FB2P

	DEFINE BAR 4 OF Utile PROMPT "\<Reindexare"
	ON BAR 4 OF Utile ACTIVATE POPUP Reindexare

		*----------------------------------
		DEFINE POPUP Reindexare MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Reindexare PROMPT "\<Toate fisierele"
		ON SELECTION BAR 1 OF Reindexare DO BAR_1_OF_Reindexare_FB2P

		DEFINE BAR 2 OF Reindexare PROMPT "\<Fisiere locale"
		ON SELECTION BAR 2 OF Reindexare DO BAR_2_OF_Reindexare_FB2P

	DEFINE BAR 5 OF Utile PROMPT "\-"
	ON BAR 5 OF Utile ACTIVATE POPUP _rap18gw4b

		*----------------------------------
		DEFINE POPUP _rap18gw4b MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 6 OF Utile PROMPT "\<Calculator" ;
		MESSAGE 'Deschide un calculator.'
	ON SELECTION BAR 6 OF Utile DO BAR_6_OF_Utile_FB2P

	DEFINE BAR 7 OF Utile PROMPT "C\<alendar" ;
		MESSAGE 'Deschide un calendar.'
	ON SELECTION BAR 7 OF Utile DO BAR_7_OF_Utile_FB2P

	DEFINE BAR 8 OF Utile PROMPT "\<Notepad" ;
		MESSAGE 'Deschide un carnetel.'
	ON SELECTION BAR 8 OF Utile DO BAR_8_OF_Utile_FB2P

	DEFINE BAR 9 OF Utile PROMPT "\-"
	ON BAR 9 OF Utile ACTIVATE POPUP _s9r16veuj

		*----------------------------------
		DEFINE POPUP _s9r16veuj MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 10 OF Utile PROMPT "\<Iesire" ;
		KEY F2, "F2" ;
		MESSAGE 'Iesire din program.'
	ON SELECTION BAR 10 OF Utile DO BAR_10_OF_Utile_FB2P

DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Editare" COLOR SCHEME 3 ;
	KEY ALT+E, "" ;
	MESSAGE 'Comenzi de editare.'

ON PAD _000000002 OF _msysmenu ACTIVATE POPUP Editare

	*----------------------------------
	DEFINE POPUP Editare MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR _med_undo OF Editare PROMPT "\<Anuleaza" ;
		KEY CTRL+Z, "Ctrl+Z" ;
		MESSAGE 'Anuleaza ultima comanda de editare.'

	DEFINE BAR _med_redo OF Editare PROMPT "\<Refa" ;
		KEY CTRL+R, "Ctrl+R" ;
		MESSAGE 'Repeta ultima comanda anulata.'

	DEFINE BAR _med_sp100 OF Editare PROMPT "\-"

	DEFINE BAR _med_cut OF Editare PROMPT "\<Taie si retine" ;
		KEY CTRL+X, "Ctrl+X" ;
		MESSAGE 'Copiaza in memorie textul selectat si apoi il sterge din ecran.'

	DEFINE BAR _med_copy OF Editare PROMPT "\<Copiaza" ;
		KEY CTRL+C, "Ctrl+C" ;
		MESSAGE 'Copiaza in memorie textul  selectat.'

	DEFINE BAR _med_paste OF Editare PROMPT "Re\<da" ;
		KEY CTRL+V, "Ctrl+V" ;
		MESSAGE 'Reda din memorie textul retinut cu comanda <Copiaza>.'

	DEFINE BAR _med_sp200 OF Editare PROMPT "\-"

	DEFINE BAR _med_slcta OF Editare PROMPT "\<Selecteaza tot" ;
		KEY CTRL+A, "Ctrl+A" ;
		MESSAGE 'Selecteaza tot textul din celula activa.'

DEFINE PAD _000000003 OF _msysmenu PROMPT "I\<nitializare" COLOR SCHEME 3 ;
	KEY ALT+N, "ALT+N" ;
	MESSAGE 'Comenzi de initializare a sesiunii de lucru.'

ON PAD _000000003 OF _msysmenu ACTIVATE POPUP Initializa

	*----------------------------------
	DEFINE POPUP Initializa MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF Initializa PROMPT "\<Intrare..." ;
		MESSAGE 'Intrare in luna contabila dorita.'
	ON SELECTION BAR 1 OF Initializa DO BAR_1_OF_Initializa_FB2P

	DEFINE BAR 2 OF Initializa PROMPT "\<Seria periodica" ;
		SKIP FOR !LUNA_NEPLATITA
	ON SELECTION BAR 2 OF Initializa DO BAR_2_OF_Initializa_FB2P

	DEFINE BAR 3 OF Initializa PROMPT "\-"
	ON BAR 3 OF Initializa ACTIVATE POPUP _s89079igs

		*----------------------------------
		DEFINE POPUP _s89079igs MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 4 OF Initializa PROMPT "\<Actualizare Conturi" ;
		SKIP FOR m.nivel>1 ;
		MESSAGE 'Introducerea,  eliminarae din balanta a  conturilor dorite.'
	ON BAR 4 OF Initializa ACTIVATE POPUP _0vm0luviu

		*----------------------------------
		DEFINE POPUP _0vm0luviu MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF _0vm0luviu PROMPT "Modificare conturi"
		ON SELECTION BAR 1 OF _0vm0luviu DO BAR_1_OF__0vm0luviu_FB2P

		DEFINE BAR 2 OF _0vm0luviu PROMPT "\-"
		ON BAR 2 OF _0vm0luviu ACTIVATE POPUP _0vm0m2ez0

			*----------------------------------
			DEFINE POPUP _0vm0m2ez0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 3 OF _0vm0luviu PROMPT "Plan de conturi nou"
		ON SELECTION BAR 3 OF _0vm0luviu DO BAR_3_OF__0vm0luviu_FB2P

		DEFINE BAR 4 OF _0vm0luviu PROMPT "Revenire la planul de conturi vechi"
		ON SELECTION BAR 4 OF _0vm0luviu DO BAR_4_OF__0vm0luviu_FB2P

	DEFINE BAR 5 OF Initializa PROMPT "A\<ctualizare Coeficienti" ;
		SKIP FOR m.nivel>1 ;
		MESSAGE 'Modificarea coeficientilor: TVA, etc.'
	ON BAR 5 OF Initializa ACTIVATE POPUP _0b40qr5uc

		*----------------------------------
		DEFINE POPUP _0b40qr5uc MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF _0b40qr5uc PROMPT "\<Coeficienti lunari"
		ON SELECTION BAR 1 OF _0b40qr5uc DO BAR_1_OF__0b40qr5uc_FB2P

		DEFINE BAR 2 OF _0b40qr5uc PROMPT "\<Coeficienti fluctuanti"
		ON BAR 2 OF _0b40qr5uc ACTIVATE POPUP Coeficient

			*----------------------------------
			DEFINE POPUP Coeficient MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF Coeficient PROMPT "\<Cursul valutar"
			ON SELECTION BAR 1 OF Coeficient DO BAR_1_OF_Coeficient_FB2P

			DEFINE BAR 2 OF Coeficient PROMPT "\<Adaos comercial"
			ON SELECTION BAR 2 OF Coeficient DO BAR_2_OF_Coeficient_FB2P

	DEFINE BAR 6 OF Initializa PROMPT "\-"
	ON BAR 6 OF Initializa ACTIVATE POPUP _0lr0ye5vn

		*----------------------------------
		DEFINE POPUP _0lr0ye5vn MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 7 OF Initializa PROMPT "Generare \<Gestiuni" ;
		SKIP FOR m.nivel>1
	ON SELECTION BAR 7 OF Initializa DO BAR_7_OF_Initializa_FB2P

	DEFINE BAR 8 OF Initializa PROMPT "Generare \<Sectii" ;
		SKIP FOR m.nivel>1
	ON SELECTION BAR 8 OF Initializa DO BAR_8_OF_Initializa_FB2P

	DEFINE BAR 9 OF Initializa PROMPT "\<Nomenclator de materiale"
	ON SELECTION BAR 9 OF Initializa DO BAR_9_OF_Initializa_FB2P

	DEFINE BAR 10 OF Initializa PROMPT "\-"
	ON BAR 10 OF Initializa ACTIVATE POPUP _s3n16gukq

		*----------------------------------
		DEFINE POPUP _s3n16gukq MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 11 OF Initializa PROMPT "\<Deschidere de luna noua" ;
		SKIP FOR luna_neplatita OR !ultima_luna or m.nivel>1 ;
		MESSAGE 'Inceperea unei noi luni contabile.'
	ON SELECTION BAR 11 OF Initializa DO BAR_11_OF_Initializa_FB2P

	DEFINE BAR 12 OF Initializa PROMPT "\<Redeschidere de luna" ;
		SKIP FOR luna_inchisa or m.nivel>1 ;
		MESSAGE 'Actualizarea cu date modificate din luna precedenta, aparute ulterior deschiderii lunii contabile curente.'
	ON SELECTION BAR 12 OF Initializa DO BAR_12_OF_Initializa_FB2P

	DEFINE BAR 13 OF Initializa PROMPT "\<Blocare de luna" ;
		SKIP FOR m.nivel>1 ;
		MESSAGE 'Inchidere de luna.'
	ON BAR 13 OF Initializa ACTIVATE POPUP Blocaredel

		*----------------------------------
		DEFINE POPUP Blocaredel MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Blocaredel PROMPT "\<Blocare de luna"
		ON SELECTION BAR 1 OF Blocaredel DO BAR_1_OF_Blocaredel_FB2P

		DEFINE BAR 2 OF Blocaredel PROMPT "\<Situatia lunilor blocate"
		ON SELECTION BAR 2 OF Blocaredel DO BAR_2_OF_Blocaredel_FB2P

	DEFINE BAR 14 OF Initializa PROMPT "\-"
	ON BAR 14 OF Initializa ACTIVATE POPUP _s6j0k4tqn

		*----------------------------------
		DEFINE POPUP _s6j0k4tqn MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 15 OF Initializa PROMPT "\<Datele firmei" ;
		SKIP FOR m.nivel>3
	ON SELECTION BAR 15 OF Initializa DO BAR_15_OF_Initializa_FB2P

	DEFINE BAR 16 OF Initializa PROMPT "\<Firma noua" ;
		MESSAGE 'Deschiderea unei firme noi.'
	ON BAR 16 OF Initializa ACTIVATE POPUP Firmanoua

		*----------------------------------
		DEFINE POPUP Firmanoua MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Firmanoua PROMPT "\<Deschidere de firma" ;
			SKIP FOR luna_neplatita OR !ultima_luna
		ON SELECTION BAR 1 OF Firmanoua DO BAR_1_OF_Firmanoua_FB2P

		DEFINE BAR 2 OF Firmanoua PROMPT "\-"
		ON BAR 2 OF Firmanoua ACTIVATE POPUP _0980yqnzq

			*----------------------------------
			DEFINE POPUP _0980yqnzq MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 3 OF Firmanoua PROMPT "\<Preluare de date" ;
			SKIP FOR luna_neplatita
		ON BAR 3 OF Firmanoua ACTIVATE POPUP Preluarede

			*----------------------------------
			DEFINE POPUP Preluarede MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF Preluarede PROMPT "Situatii \<analitice"
			ON BAR 1 OF Preluarede ACTIVATE POPUP _0980v14qn

				*----------------------------------
				DEFINE POPUP _0980v14qn MARGIN RELATIVE SHADOW COLOR SCHEME 4
				DEFINE BAR 1 OF _0980v14qn PROMPT "\<Furnizori"
				ON SELECTION BAR 1 OF _0980v14qn DO BAR_1_OF__0980v14qn_FB2P

				DEFINE BAR 2 OF _0980v14qn PROMPT "\<Clienti"
				ON SELECTION BAR 2 OF _0980v14qn DO BAR_2_OF__0980v14qn_FB2P

				DEFINE BAR 3 OF _0980v14qn PROMPT "\-"
				ON BAR 3 OF _0980v14qn ACTIVATE POPUP _0hh0qtiwf

					*----------------------------------
					DEFINE POPUP _0hh0qtiwf MARGIN RELATIVE SHADOW COLOR SCHEME 4
				DEFINE BAR 4 OF _0980v14qn PROMPT "Cr\<editori"
				ON SELECTION BAR 4 OF _0980v14qn DO BAR_4_OF__0980v14qn_FB2P

				DEFINE BAR 5 OF _0980v14qn PROMPT "\<Debitori"
				ON SELECTION BAR 5 OF _0980v14qn DO BAR_5_OF__0980v14qn_FB2P

				DEFINE BAR 6 OF _0980v14qn PROMPT "\<Achizitori"
				ON SELECTION BAR 6 OF _0980v14qn DO BAR_6_OF__0980v14qn_FB2P

				DEFINE BAR 7 OF _0980v14qn PROMPT "\<Responsabili"
				ON SELECTION BAR 7 OF _0980v14qn DO BAR_7_OF__0980v14qn_FB2P

				DEFINE BAR 8 OF _0980v14qn PROMPT "Act\<ionari"
				ON SELECTION BAR 8 OF _0980v14qn DO BAR_8_OF__0980v14qn_FB2P

				DEFINE BAR 9 OF _0980v14qn PROMPT "Acti\<vitati/Lucrari"
				ON SELECTION BAR 9 OF _0980v14qn DO BAR_9_OF__0980v14qn_FB2P

			DEFINE BAR 2 OF Preluarede PROMPT "\-"
			ON BAR 2 OF Preluarede ACTIVATE POPUP _0980v1qoe

				*----------------------------------
				DEFINE POPUP _0980v1qoe MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 3 OF Preluarede PROMPT "\<Stocuri"
			ON SELECTION BAR 3 OF Preluarede DO BAR_3_OF_Preluarede_FB2P

			DEFINE BAR 4 OF Preluarede PROMPT "\-"
			ON BAR 4 OF Preluarede ACTIVATE POPUP _0980v1qof

				*----------------------------------
				DEFINE POPUP _0980v1qof MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 5 OF Preluarede PROMPT "\<Balanta"
			ON SELECTION BAR 5 OF Preluarede DO BAR_5_OF_Preluarede_FB2P

	DEFINE BAR 17 OF Initializa PROMPT "\-"
	ON BAR 17 OF Initializa ACTIVATE POPUP _0b30u9w0u

		*----------------------------------
		DEFINE POPUP _0b30u9w0u MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 18 OF Initializa PROMPT "\<Optiuni" ;
		SKIP FOR m.nivel>1
	ON SELECTION BAR 18 OF Initializa DO BAR_18_OF_Initializa_FB2P

DEFINE PAD _000000004 OF _msysmenu PROMPT "In\<chidere" COLOR SCHEME 3 ;
	KEY ALT+C, "ALT+C" ;
	SKIP FOR luna_inchisa or luna_neplatita

ON PAD _000000004 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
DEFINE PAD _000000005 OF _msysmenu PROMPT "Ac\<tualizari" COLOR SCHEME 3 ;
	KEY ALT+T, "ALT+T" ;
	SKIP FOR luna_inchisa ;
	MESSAGE 'Diverse analize'

ON PAD _000000005 OF _msysmenu ACTIVATE POPUP _09i15mm5f

	*----------------------------------
	DEFINE POPUP _09i15mm5f MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF _09i15mm5f PROMPT "\<Verificari" ;
		SKIP FOR m.nivel>1 ;
		MESSAGE 'Diverse verificari'
	ON SELECTION BAR 1 OF _09i15mm5f DO BAR_1_OF__09i15mm5f_FB2P

	DEFINE BAR 2 OF _09i15mm5f PROMPT "\<Refaceri" ;
		SKIP FOR luna_inchisa or m.nivel>1 ;
		MESSAGE 'Refacerea balantei, registrelor, analiticelor, pe baza registrului jurnal'
	ON SELECTION BAR 2 OF _09i15mm5f DO BAR_2_OF__09i15mm5f_FB2P

	DEFINE BAR 3 OF _09i15mm5f PROMPT "\<Modificare libera" ;
		SKIP FOR m.nivel#0
	ON SELECTION BAR 3 OF _09i15mm5f DO BAR_3_OF__09i15mm5f_FB2P

	DEFINE BAR 4 OF _09i15mm5f PROMPT "\<Initializare facturi/solduri" ;
		SKIP FOR luna_inchisa or m.nivel>1
	ON BAR 4 OF _09i15mm5f ACTIVATE POPUP _0ln0qf60i

		*----------------------------------
		DEFINE POPUP _0ln0qf60i MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF _0ln0qf60i PROMPT "Furnizori -> Facturi Cumparari"
		ON SELECTION BAR 1 OF _0ln0qf60i DO BAR_1_OF__0ln0qf60i_FB2P

		DEFINE BAR 2 OF _0ln0qf60i PROMPT "Clienti -> Facturi Vanzari"
		ON SELECTION BAR 2 OF _0ln0qf60i DO BAR_2_OF__0ln0qf60i_FB2P

		DEFINE BAR 3 OF _0ln0qf60i PROMPT "\-"
		ON BAR 3 OF _0ln0qf60i ACTIVATE POPUP _0rb0tndj4

			*----------------------------------
			DEFINE POPUP _0rb0tndj4 MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 4 OF _0ln0qf60i PROMPT "Facturi Cumparari->Furnizori"
		ON SELECTION BAR 4 OF _0ln0qf60i DO BAR_4_OF__0ln0qf60i_FB2P

		DEFINE BAR 5 OF _0ln0qf60i PROMPT "Facturi Vanzari -> Clienti"
		ON SELECTION BAR 5 OF _0ln0qf60i DO BAR_5_OF__0ln0qf60i_FB2P

	DEFINE BAR 5 OF _09i15mm5f PROMPT "\-"
	ON BAR 5 OF _09i15mm5f ACTIVATE POPUP _0ms0u7t1l

		*----------------------------------
		DEFINE POPUP _0ms0u7t1l MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 6 OF _09i15mm5f PROMPT "\<Serii" ;
		SKIP FOR m.nivel#0
	ON BAR 6 OF _09i15mm5f ACTIVATE POPUP Serii

		*----------------------------------
		DEFINE POPUP Serii MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Serii PROMPT "\<Codul" ;
			SKIP FOR m.nivel#0
		ON SELECTION BAR 1 OF Serii DO BAR_1_OF_Serii_FB2P

		DEFINE BAR 2 OF Serii PROMPT "\<Nir" ;
			SKIP FOR m.nivel#0
		ON SELECTION BAR 2 OF Serii DO BAR_2_OF_Serii_FB2P

		DEFINE BAR 3 OF Serii PROMPT "\<Bon" ;
			SKIP FOR m.nivel#0
		ON SELECTION BAR 3 OF Serii DO BAR_3_OF_Serii_FB2P

	DEFINE BAR 7 OF _09i15mm5f PROMPT "\-"
	ON BAR 7 OF _09i15mm5f ACTIVATE POPUP _s4a0z4oi2

		*----------------------------------
		DEFINE POPUP _s4a0z4oi2 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 8 OF _09i15mm5f PROMPT "\<Actualizari fisiere" ;
		SKIP FOR m.nivel#0
	ON BAR 8 OF _09i15mm5f ACTIVATE POPUP Actualizar

		*----------------------------------
		DEFINE POPUP Actualizar MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Actualizar PROMPT "\<General"
		ON SELECTION BAR 1 OF Actualizar DO BAR_1_OF_Actualizar_FB2P

		DEFINE BAR 2 OF Actualizar PROMPT "\-"
		ON BAR 2 OF Actualizar ACTIVATE POPUP _09x0pyhbo

			*----------------------------------
			DEFINE POPUP _09x0pyhbo MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 3 OF Actualizar PROMPT "\<Act -> Actan"
		ON SELECTION BAR 3 OF Actualizar DO BAR_3_OF_Actualizar_FB2P

		DEFINE BAR 4 OF Actualizar PROMPT "\<Rull -> Rul"
		ON SELECTION BAR 4 OF Actualizar DO BAR_4_OF_Actualizar_FB2P

		DEFINE BAR 5 OF Actualizar PROMPT "\-"
		ON BAR 5 OF Actualizar ACTIVATE POPUP _07q180bx4

			*----------------------------------
			DEFINE POPUP _07q180bx4 MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 6 OF Actualizar PROMPT "Pereche \<Cumparari"
		ON SELECTION BAR 6 OF Actualizar DO BAR_6_OF_Actualizar_FB2P

		DEFINE BAR 7 OF Actualizar PROMPT "Pereche \<Vanzari"
		ON SELECTION BAR 7 OF Actualizar DO BAR_7_OF_Actualizar_FB2P

		DEFINE BAR 8 OF Actualizar PROMPT "Pereche \<Actan -> Act"
		ON SELECTION BAR 8 OF Actualizar DO BAR_8_OF_Actualizar_FB2P

		DEFINE BAR 9 OF Actualizar PROMPT "\-"
		ON BAR 9 OF Actualizar ACTIVATE POPUP _07q17tw62

			*----------------------------------
			DEFINE POPUP _07q17tw62 MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 10 OF Actualizar PROMPT "\<Total cumparari"
		ON SELECTION BAR 10 OF Actualizar DO BAR_10_OF_Actualizar_FB2P

		DEFINE BAR 11 OF Actualizar PROMPT "T\<otal vanzari"
		ON SELECTION BAR 11 OF Actualizar DO BAR_11_OF_Actualizar_FB2P

		DEFINE BAR 12 OF Actualizar PROMPT "\-"
		ON BAR 12 OF Actualizar ACTIVATE POPUP _09x0raa35

			*----------------------------------
			DEFINE POPUP _09x0raa35 MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 13 OF Actualizar PROMPT "\<Neimpozabil"
		ON SELECTION BAR 13 OF Actualizar DO BAR_13_OF_Actualizar_FB2P

		DEFINE BAR 14 OF Actualizar PROMPT "\-"
		ON BAR 14 OF Actualizar ACTIVATE POPUP _0cm0tezha

			*----------------------------------
			DEFINE POPUP _0cm0tezha MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 15 OF Actualizar PROMPT "\<Responsabili"
		ON BAR 15 OF Actualizar ACTIVATE POPUP Responsabi

			*----------------------------------
			DEFINE POPUP Responsabi MARGIN RELATIVE SHADOW COLOR SCHEME 4
			DEFINE BAR 1 OF Responsabi PROMPT "\<In luna curenta"
			ON SELECTION BAR 1 OF Responsabi DO BAR_1_OF_Responsabi_FB2P

			DEFINE BAR 2 OF Responsabi PROMPT "\<Total"
			ON SELECTION BAR 2 OF Responsabi DO BAR_2_OF_Responsabi_FB2P

		DEFINE BAR 16 OF Actualizar PROMPT "\-"
		ON BAR 16 OF Actualizar ACTIVATE POPUP _09x0qma69

			*----------------------------------
			DEFINE POPUP _09x0qma69 MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 17 OF Actualizar PROMPT "\<Data scadenta"
		ON SELECTION BAR 17 OF Actualizar DO BAR_17_OF_Actualizar_FB2P

	DEFINE BAR 9 OF _09i15mm5f PROMPT "\<Actualizare dupa receptia de date" ;
		SKIP FOR luna_inchisa or m.nivel>1
	ON SELECTION BAR 9 OF _09i15mm5f DO BAR_9_OF__09i15mm5f_FB2P

DEFINE PAD _000000006 OF _msysmenu PROMPT "A\<jutor" COLOR SCHEME 3 ;
	KEY ALT+J, "ALT+J" ;
	MESSAGE 'Instructiuni de utilizare, informatii despre acest program.'

ON PAD _000000006 OF _msysmenu ACTIVATE POPUP Ajutor

	*----------------------------------
	DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF Ajutor PROMPT "\<Planul general de conturi" ;
		MESSAGE 'Planul general de conturi'
	ON SELECTION BAR 1 OF Ajutor DO BAR_1_OF_Ajutor_FB2P

	DEFINE BAR 2 OF Ajutor PROMPT "\<Instructiuni de utilizare"
	ON SELECTION BAR 2 OF Ajutor DO BAR_2_OF_Ajutor_FB2P

	DEFINE BAR 3 OF Ajutor PROMPT "\<Consilier legislativ"
	ON SELECTION BAR 3 OF Ajutor DO BAR_3_OF_Ajutor_FB2P

	DEFINE BAR 4 OF Ajutor PROMPT "\-"
	ON BAR 4 OF Ajutor ACTIVATE POPUP _s23165irc

		*----------------------------------
		DEFINE POPUP _s23165irc MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 5 OF Ajutor PROMPT "\<Despre program..." ;
		MESSAGE 'Informatii despre program'
	ON SELECTION BAR 5 OF Ajutor DO BAR_5_OF_Ajutor_FB2P

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Optiunisis_FB2P
	oschp=create('schimbparola')
	oschp.show(1)
ENDPROC && BAR_1_OF_Optiunisis_FB2P

PROCEDURE BAR_2_OF_Optiunisis_FB2P
	orp=create('parola')
	orp.show(1)
	
	if buton=3
	or=create('redirect')
	or.show(1)
	endif
	
ENDPROC && BAR_2_OF_Optiunisis_FB2P

PROCEDURE BAR_4_OF_Optiunisis_FB2P
	oc=crea('culori')
	oc.show(1)
ENDPROC && BAR_4_OF_Optiunisis_FB2P

PROCEDURE BAR_3_OF_Utile_FB2P
	
	orp=create('parolaMEA')
	orp.show(1)
	
	if buton=3
	DO FORM fisiere
	ENDIF
ENDPROC && BAR_3_OF_Utile_FB2P

PROCEDURE BAR_1_OF_Reindexare_FB2P
	do reindexare.prg
ENDPROC && BAR_1_OF_Reindexare_FB2P

PROCEDURE BAR_2_OF_Reindexare_FB2P
	do reindexaretempo in reindexare.prg
ENDPROC && BAR_2_OF_Reindexare_FB2P

PROCEDURE BAR_6_OF_Utile_FB2P
	do case
		case file('C:\WINDOWS\CALC.EXE')
			run /N C:\WINDOWS\CALC.EXE
		case file('C:\WINDOWS\SYSTEM32\CALC.EXE')
			run /N C:\WINDOWS\SYSTEM32\CALC.EXE
		case file('C:\WINnt\system32\CALC.EXE')
			run /N C:\WINnt\system32\CALC.EXE
		otherwise
			do mesajatent with 'Aplicatia "Calculator" nu este instalata','pe acest sistem!'
	endcase
			
		
		
ENDPROC && BAR_6_OF_Utile_FB2P

PROCEDURE BAR_7_OF_Utile_FB2P
	od=createo('diary')
	od.show(1)
ENDPROC && BAR_7_OF_Utile_FB2P

PROCEDURE BAR_8_OF_Utile_FB2P
	do case
		case file('C:\WINDOWS\NOTEPAD.EXE')
			run /N C:\WINDOWS\NOTEPAD.EXE
		case file('C:\WINnt\system32\NOTEPAD.EXE')
			run /N C:\WINnt\system32\NOTEPAD.EXE
		otherwise
			do mesajatent with 'Aplicatia "NOTEPAD" nu este instalata','pe acest sistem!'
	endcase
			
ENDPROC && BAR_8_OF_Utile_FB2P

PROCEDURE BAR_10_OF_Utile_FB2P
	ies=.t.
	
	DO IESIRE
	
	*RELEASE OBJECTS_________________________-
	*ostart.release
	*OSETVIZ.RELEASE
	*OSETTULBAR.RELEASE
	*OSETINSTRUM.RELEASE
	
ENDPROC && BAR_10_OF_Utile_FB2P

PROCEDURE BAR_1_OF_Initializa_FB2P
	
	do form start00
	
	
	
ENDPROC && BAR_1_OF_Initializa_FB2P

PROCEDURE BAR_2_OF_Initializa_FB2P
	osp=crea('seriaper')
	osp.show(1)
ENDPROC && BAR_2_OF_Initializa_FB2P

PROCEDURE BAR_1_OF__0vm0luviu_FB2P
	do form contnou
ENDPROC && BAR_1_OF__0vm0luviu_FB2P

PROCEDURE BAR_3_OF__0vm0luviu_FB2P
	
	USE IN PLCONT
	ERR1=.F.
	
	ON ERROR do errn
	COPY FILE &calefirma\datean\plcont.* to &calefirma\datean\plcont2002.*
	ON error
	IF ERR1
	RETURN
	ENDIF
	
	ERR1=.F.
	ON ERROR do errn
	COPY FILE &dirgen\_alfa\datean\plcont.* to &calefirma\datean\plcont.*
	ON error
	IF ERR1
	RETURN
	ENDIF
	
	DO DES WITH 'PLCONT'
	DO mesaj WITH 'Planul de conturi a fost inlocuit.','Verificati la <Modificare conturi>'
ENDPROC && BAR_3_OF__0vm0luviu_FB2P

PROCEDURE BAR_4_OF__0vm0luviu_FB2P
	IF !FILE('&calefirma\datean\plcont2002.dbf')
	DO mesaj WITH 'Planul de conturi nu a fost inlocuit','Aveti planul original'
	return
	endif
	
	USE IN PLCONT
	SET SAFETY off
	ERR1=.F.
	ON ERROR do errn
	COPY FILE &calefirma\datean\plcont2002.* to &calefirma\datean\plcont.*
	ON error
	IF ERR1
	RETURN
	ENDIF
	
	DO DES WITH 'PLCONT'
	DO mesaj WITH 'Planul de conturi a fost inlocuit.','Verificati la <Modificare conturi>'
ENDPROC && BAR_4_OF__0vm0luviu_FB2P

PROCEDURE BAR_1_OF__0b40qr5uc_FB2P
	oc=crea('coef')
	oc.show(1)
ENDPROC && BAR_1_OF__0b40qr5uc_FB2P

PROCEDURE BAR_1_OF_Coeficient_FB2P
	o=crea('cursval')
	o.show(1)
ENDPROC && BAR_1_OF_Coeficient_FB2P

PROCEDURE BAR_2_OF_Coeficient_FB2P
	orp=create('parola')
	orp.show(1)
	
	if buton=3
	
	o=crea('adaoscom')
	o.show(1)
	
	endif
ENDPROC && BAR_2_OF_Coeficient_FB2P

PROCEDURE BAR_7_OF_Initializa_FB2P
	SELECT numegest
	SET FILTER TO !EMPTY(numegest)
	
	oge=create('afgest')
	oge.show(1)
ENDPROC && BAR_7_OF_Initializa_FB2P

PROCEDURE BAR_8_OF_Initializa_FB2P
	ofs=create('afsectii')
	ofs.show(1)
ENDPROC && BAR_8_OF_Initializa_FB2P

PROCEDURE BAR_9_OF_Initializa_FB2P
	SELE LISTAST
	REPL ALL ALES WITH .F.
	ONOM=CREA('NOMALES')
	onom.grid1.column4.visible=.f.
	ONOM.SHOW(1)
ENDPROC && BAR_9_OF_Initializa_FB2P

PROCEDURE BAR_11_OF_Initializa_FB2P
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	
	PUBLIC M.ANMAX
	LOCAL ZZAN
	ZZAN=M.AN
	
	SELE CALENDAR
	GOTO BOTTOM
	SCATTER MEMVAR
	
	m.nnlmax=val(m.nl)
	M.ANMAX=VAL(M.AN)
	
	sele lunilean
	IF M.NNLMAX==12 THEN
			GOTO TOP
			ZZAN=VAL(M.AN)+1
			ZZAN=ALLTRIM(STR(ZZAN))
		ELSE
			seek(m.nl)
			goto recno()+1
	ENDIF
	scatter memvar
	
	oT=CREATEOBJ("TEXTR")
	OT.LABEL2.CAPTION="Deschidere de luna noua:"
	ot.label3.caption=rtrim(m.numeluna)+' '+ZZan
	ot.label3.fontbold=.t.
	ot.show(1)
	IF BUTON=1
	
	do deschidl.prg
	DO REDESCHI.PRG
	do totv
	luna_neplatita=.t.
	
	OT1=CREATEOBJ("TEXT")
	OT1.LABEL2.CAPTION="Am deschis luna:"
	ot1.label3.caption=rtrim(m.numeluna)+' '+ZZan
	ot1.label3.fontbold=.t.
	ot1.show(1)
	
	NUMEFIRMA=UPPER(rTRIM(m.flung))
	capapl="CONT2000      Firma "+numefirma+"- Luna contabila: "+RTRIM(M.NUMELUNA)+" "+ZZAN
	goApp.SetCaption(capapl)
	
	DO TOTV
	*ostart.show(1)
	
	ENDIF
	
ENDPROC && BAR_11_OF_Initializa_FB2P

PROCEDURE BAR_12_OF_Initializa_FB2P
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	
	
	ot=createobj("textr")
	ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')'
	ot.label3.caption="Redeschiderea lunii: "+m.nl+" "+m.an
	ot.show(1)
	if buton=1
	DO REDESCHI
	do totv
	ot=createobj("text")
	ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')'
	ot.label3.caption="Redeschiderea lunii: "+m.nl+" "+m.an+" a fost efectuata."
	ot.show(1)
	endif
ENDPROC && BAR_12_OF_Initializa_FB2P

PROCEDURE BAR_1_OF_Blocaredel_FB2P
	sele calendar
	loca for nl=m.nl and an=m.an
	if smf
		do mesaj with 'Luna '+m.nl+' '+m.an+' este inchisa!',''
	else
		oi=crea('danuinchid')
		oi.show(1)
		if buton=1
			sele calendar
			loca for nl=m.nl and an=m.an
			repl smf with .t.
			luna_inchisa=.t.
		endif
	endif
ENDPROC && BAR_1_OF_Blocaredel_FB2P

PROCEDURE BAR_2_OF_Blocaredel_FB2P
	orp=create('parola')
	orp.show(1)
	if buton=3
	SELECT calendar
	do form inchidluni
	endif
	
	
ENDPROC && BAR_2_OF_Blocaredel_FB2P

PROCEDURE BAR_15_OF_Initializa_FB2P
	do form datefirma
	use &calefirma\datean\datefirma in 0 shared again
	sele datefirma
	repl denumire with m.flung
	repl localitate with m.localitate
	repl strada with m.strada
	repl nr with ALLT(STR(m.numar))
	brow title 'CTR-Y pentru linie noua    /     ESC pentru iesire'
	use in datefirma
ENDPROC && BAR_15_OF_Initializa_FB2P

PROCEDURE BAR_1_OF_Firmanoua_FB2P
	ll2=m.nl
	aa2=m.an
	
	do form startfirma
	IF buton=2
	m.an=aa2
	m.nl=ll2
	endif
ENDPROC && BAR_1_OF_Firmanoua_FB2P

PROCEDURE BAR_1_OF__0980v14qn_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 REFFUR
	wait wind 'Se inregistreaza in registrul de cumparari...' nowait
	DO TOTV
	DO REFCUMPnou
	wait wind 'Se inregistreaza in situatia facturilor de furnizori...' nowait
	do totv
	DO REFCUMPLUN
	DO TOTV
	wait clear
ENDPROC && BAR_1_OF__0980v14qn_FB2P

PROCEDURE BAR_2_OF__0980v14qn_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 REFCLI
	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__0980v14qn_FB2P

PROCEDURE BAR_4_OF__0980v14qn_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_4_OF__0980v14qn_FB2P

PROCEDURE BAR_5_OF__0980v14qn_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_5_OF__0980v14qn_FB2P

PROCEDURE BAR_6_OF__0980v14qn_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_6_OF__0980v14qn_FB2P

PROCEDURE BAR_7_OF__0980v14qn_FB2P
	SELECT respons
	SET FILTER TO !DELETED()
	sum indirecte,materiale to m.SUM1,M.SUM2
	M.SUM3=M.SUM1-M.SUM2
	     
	
	SELECT respons.NUME_2,respons.indirecte,respons.materiale;
		 from respons where !deleted() ;
		 into TABLE &LOC\&nfscurt\tempo\xtemp
	alter table xtemp;
		 rename column nume_2 TO nume;
		 rename column indirecte TO deb;
		 rename column materiale TO cred
	
	sele xtemp
	index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
	
	do creaT_analitx with 'SITUATIE ANALITICA - RESPONSABILI','Indirecte','Materiale'
ENDPROC && BAR_7_OF__0980v14qn_FB2P

PROCEDURE BAR_8_OF__0980v14qn_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_8_OF__0980v14qn_FB2P

PROCEDURE BAR_9_OF__0980v14qn_FB2P
	oluc=create('aflucrarix')
	oluc.show(1)
ENDPROC && BAR_9_OF__0980v14qn_FB2P

PROCEDURE BAR_3_OF_Preluarede_FB2P
	sele stoc
	do form afstocx
ENDPROC && BAR_3_OF_Preluarede_FB2P

PROCEDURE BAR_5_OF_Preluarede_FB2P
	sele bal
	do form afisbalx
ENDPROC && BAR_5_OF_Preluarede_FB2P

PROCEDURE BAR_18_OF_Initializa_FB2P
	O=CREA('OPTIUNI')
	O.SHOW(1)
ENDPROC && BAR_18_OF_Initializa_FB2P

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

PROCEDURE BAR_1_OF__09i15mm5f_FB2P
	overi=crea('verif')
	overi.show(1)
ENDPROC && BAR_1_OF__09i15mm5f_FB2P

PROCEDURE BAR_2_OF__09i15mm5f_FB2P
	local l,a
	l=m.nl
	a=m.an
	
	orp=create('parola')
	orp.show(1)
	
	if buton=3
	overi=crea('REF')
	overi.show(1)
	ENDIF
	
	set dele on
ENDPROC && BAR_2_OF__09i15mm5f_FB2P

PROCEDURE BAR_3_OF__09i15mm5f_FB2P
	set deleted off
	orp=create('parola')
	orp.show(1)
	
	if buton=3
	
	*overi=crea('modif')
	*overi.show()
	do form modif
	endif
	
	set dele on
ENDPROC && BAR_3_OF__09i15mm5f_FB2P

PROCEDURE BAR_1_OF__0ln0qf60i_FB2P
	set deleted on
	orp=create('parolamea')
	orp.show(1)
	
	if buton=3
	
	do furn-cumplun.prg
	DO MESAJ WITH 'GATA',''
	endif
ENDPROC && BAR_1_OF__0ln0qf60i_FB2P

PROCEDURE BAR_2_OF__0ln0qf60i_FB2P
	set deleted on
	orp=create('parolamea')
	orp.show(1)
	
	if buton=3
	
	do cli-vanzlun.prg
	DO MESAJ WITH 'GATA',''
	endif
ENDPROC && BAR_2_OF__0ln0qf60i_FB2P

PROCEDURE BAR_4_OF__0ln0qf60i_FB2P
	set deleted on
	orp=create('parolamea')
	orp.show(1)
	
	if buton=3
	
	do cumplun-furn.prg
	DO MESAJ WITH 'GATA',''
	endif
ENDPROC && BAR_4_OF__0ln0qf60i_FB2P

PROCEDURE BAR_5_OF__0ln0qf60i_FB2P
	set deleted on
	orp=create('parolamea')
	orp.show(1)
	
	if buton=3
	
	do vanzlun-clienti.prg
	DO MESAJ WITH 'GATA',''
	endif
ENDPROC && BAR_5_OF__0ln0qf60i_FB2P

PROCEDURE BAR_1_OF_Serii_FB2P
	set deleted off
	orp=create('parolamea')
	orp.show(1)
	
	if buton=3
	
	sele cod
	brow
	endif
	
	set dele on
ENDPROC && BAR_1_OF_Serii_FB2P

PROCEDURE BAR_2_OF_Serii_FB2P
	set deleted off
	orp=create('parolamea')
	orp.show(1)
	
	if buton=3
	
	sele nir
	brow
	endif
	
	set dele on
ENDPROC && BAR_2_OF_Serii_FB2P

PROCEDURE BAR_3_OF_Serii_FB2P
	set deleted off
	orp=create('parolamea')
	orp.show(1)
	
	if buton=3
	
	sele nrbon
	brow
	endif
	
	set dele on
ENDPROC && BAR_3_OF_Serii_FB2P

PROCEDURE BAR_1_OF_Actualizar_FB2P
	local l,a
	l=m.nl
	a=m.an
	
	orp=create('parolaMEA')
	orp.show(1)
	
	if buton=3
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	do actualizari.prg
	m.nl=l
	m.an=a
	do totv
	
	endif
	
	
ENDPROC && BAR_1_OF_Actualizar_FB2P

PROCEDURE BAR_3_OF_Actualizar_FB2P
	local ll,aa,d
	ll=m.nl
	aa=m.an
	
	orp=create('parola')
	orp.show(1)
	
	if buton=3
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	do actualizactan
	endif
	
	m.nl=ll
	m.an=aa
	do totv
	*do mesaj with 'Gata!',''
	
	
	
ENDPROC && BAR_3_OF_Actualizar_FB2P

PROCEDURE BAR_4_OF_Actualizar_FB2P
	local ll,aa,d
	ll=m.nl
	aa=m.an
	
	orp=create('parola')
	orp.show(1)
	
	if buton=3
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	do actualizrul
	endif
	
	m.nl=ll
	m.an=aa
	do totv
	*do mesaj with 'Gata!',''
	
	
ENDPROC && BAR_4_OF_Actualizar_FB2P

PROCEDURE BAR_6_OF_Actualizar_FB2P
	orp=create('parolaMEA')
	orp.show(1)
	
	if buton=3
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	do refper
	endif
	
	do mesaj with 'Gata!',''
	
	
ENDPROC && BAR_6_OF_Actualizar_FB2P

PROCEDURE BAR_7_OF_Actualizar_FB2P
	orp=create('parolaMEA')
	orp.show(1)
	
	if buton=3
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	do refpercli
	endif
	
	do mesaj with 'Gata!',''
ENDPROC && BAR_7_OF_Actualizar_FB2P

PROCEDURE BAR_8_OF_Actualizar_FB2P
	orp=create('parolaMEA')
	orp.show(1)
	
	if buton=3
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	do actanact
	endif
	
	do mesaj with 'Gata!',''
	
	
ENDPROC && BAR_8_OF_Actualizar_FB2P

PROCEDURE BAR_10_OF_Actualizar_FB2P
	local ll,aa
	ll=m.nl
	aa=m.an
	
	orp=create('parolaMEA')
	orp.show(1)
	
	if buton#3
	return
	endif
	
	
	
	set safety off
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	do refcumpNOUan 
	do mesaj with 'Total cumparari','Refacerea s-a incheiat.'
	
	m.nl=ll
	m.an=aa
	do totv
ENDPROC && BAR_10_OF_Actualizar_FB2P

PROCEDURE BAR_11_OF_Actualizar_FB2P
	local ll,aa
	ll=m.nl
	aa=m.an
	
	
	orp=create('parolaMEA')
	orp.show(1)
	
	if buton#3
	return
	endif
	
	
	
	set safety off
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	do refvanzan 
	do mesaj with 'Total vanzari','Refacerea s-a incheiat.'
	
	m.nl=ll
	m.an=aa
	do totv
ENDPROC && BAR_11_OF_Actualizar_FB2P

PROCEDURE BAR_13_OF_Actualizar_FB2P
	local ll,aa
	ll=m.nl
	aa=m.an
	
	orp=create('parolaMEA')
	orp.show(1)
	
	if buton#3
	return
	endif
	
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	
	sele act
	use
	sele actan
	use
	
	do refact in actualizari.prg
	do refactan in actualizari.prg
	
	m.nl=ll
	m.an=aa
	do totv
ENDPROC && BAR_13_OF_Actualizar_FB2P

PROCEDURE BAR_1_OF_Responsabi_FB2P
	local ll,aa
	ll=m.nl
	aa=m.an
	
	orp=create('parolaMEA')
	orp.show(1)
	
	if buton#3
	return
	endif
	
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	
	do refresponsl
	
	
	m.nl=ll
	m.an=aa
	do totv
	return
	
	
	*________________________________
	proc refresponsl
	sele act
	if flock()
	repl all nresp with nume_2 for left(scd,1)='6' or left(scd,1)='3' and empty(nresp)
	endif
	unlock
	
	sele rull
	if flock()
	sele act
	scan for left(scd,1)='6' or left(scd,1)='3' and !empty(nresp)
	scat fiel cod,nresp memv
	sele rull
	repl all nresp with m.nresp for cod=m.cod and empty(nresp)
	sele act
	endscan
	endif
	unlock in rull
	return
	
	
ENDPROC && BAR_1_OF_Responsabi_FB2P

PROCEDURE BAR_2_OF_Responsabi_FB2P
	local ll,aa
	ll=m.nl
	aa=m.an
	
	orp=create('parolaMEA')
	orp.show(1)
	
	if buton#3
	return
	endif
	
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	
	do refresponsan
	
	m.nl=ll
	m.an=aa
	do totv
	return
	
	
	
	*________________________________
	proc refresponsan
	sele actan
	if flock()
	repl all nresp with nume_2 for left(scd,1)='6' or left(scd,1)='3' and empty(nresp)
	endif
	unlock
	
	sele rul
	if flock()
	sele actan
	scan for left(scd,1)='6' or left(scd,1)='3' and !empty(nresp)
	scat fiel cod,nresp memv
	sele rul
	repl all nresp with m.nresp for cod=m.cod and empty(nresp)
	sele actan
	endscan
	endif
	unlock in rul
	return
ENDPROC && BAR_2_OF_Responsabi_FB2P

PROCEDURE BAR_17_OF_Actualizar_FB2P
	local ll,aa,d
	ll=m.nl
	aa=m.an
	
	
	orp=create('parolaMEA')
	orp.show(1)
	
	if buton#3
	return
	endif
	
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	
	sele calendar
	M=RECCOUNT()+3
	OP=CREA('PROGRESBAR')
	op.titlu.caption='Refacere Data Scadenta'
	OP.SHOW()
	j=0
	
	
	*_actan_________________________________________________
	sele actan
	do datasc
	do pr with j
		
	*_cumpan_________________________________________________
	sele cumpan
	do datasc
	do pr with j
		
	*_vanzan_________________________________________________
	sele vanzan
	do datasc
	do pr with j
	
	*_act_________________________________________________
	sele act
	do datasc
	sele calendar
	scan for !(m.nl=nl and m.an=an)
	d=calefirma+'\an'+an+'\date'+nl+'\act.dbf'
	sele 0
	use &d alias acta
	do datasc
	use
	do pr with j
	endscan
	
	op.release
	
	m.an=aa
	m.nl=ll
	
	
	do mesaj with 'Gata!',''
	return
	
	
	
	
	
	
	
	*datasc_________________________________________________
	proc datasc
	REPL ALL DATASCAD WITH CTOD('30/'+STR(MONTH(DATAACT)+1)+'/'+STR(YEAR(DATAACT)) ) ;
		FOR empty(datascad) and inlist(DAY(DATAACT),31,30) and !inlist(MONTH(DATAACT),12,1)
		
	REPL ALL DATASCAD WITH CTOD(STR(DAY(DATAACT))+'/'+STR(MONTH(DATAACT)+1)+'/'+STR(YEAR(DATAACT)) ) ;
		FOR empty(datascad) and !inlist(DAY(DATAACT),31,30) and !inlist(MONTH(DATAACT),12,1)
		
	REPL ALL DATASCAD WITH CTOD('28/'+STR(MONTH(DATAACT)+1)+'/'+STR(YEAR(DATAACT)) ) ;
		FOR empty(datascad) and inlist(DAY(DATAACT),28,29,30,31) and inlist(MONTH(DATAACT),1)
	
	REPL ALL DATASCAD WITH CTOD(STR(DAY(DATAACT))+'/01/'+STR(YEAR(DATAACT)) ) ;
		FOR empty(datascad) and inlist(MONTH(DATAACT),12)
	return
		
ENDPROC && BAR_17_OF_Actualizar_FB2P

PROCEDURE BAR_9_OF__09i15mm5f_FB2P
	local l,a
	l=m.nl
	a=m.an
	
	orp=create('parola')
	orp.show(1)
	
	if buton=3
	****************************
	public semafor1
	semafor1=.f.
	do curatare
	if semafor1
	return
	endif
	
	
	ot=createobj("textr")
	ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')'
	ot.label3.caption="Se redeschide luna: "+m.nl+" "+m.an
	ot.show(1)
	if buton=1
	DO REDESCHI
	do totv
	ot=createobj("text")
	ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')'
	ot.label3.caption="Redeschiderea lunii: "+m.nl+" "+m.an+" a fost efectuata."
	ot.show(1)
	endif
	
	wait wind 'Se recompune baza de date: Registrul jurnal total' nowait
	do actualizactan
	wait wind 'Se recompune baza de date: Rulaje generale' nowait
	do actualizrul
	
	m.nl=l
	m.an=a
	do totv
	
	do mesaj with 'Actualizarea s-a efectuat',''
	***************************8
	ENDIF
ENDPROC && BAR_9_OF__09i15mm5f_FB2P

PROCEDURE BAR_1_OF_Ajutor_FB2P
	ohelpcont=createobj('help_pltree')
	ohelpcont.show(1)
ENDPROC && BAR_1_OF_Ajutor_FB2P

PROCEDURE BAR_2_OF_Ajutor_FB2P
	oh=crea('help_tree')
	oh.show(1)
ENDPROC && BAR_2_OF_Ajutor_FB2P

PROCEDURE BAR_3_OF_Ajutor_FB2P
	oh=crea('help_leg')
	oh.show(1)
ENDPROC && BAR_3_OF_Ajutor_FB2P

PROCEDURE BAR_5_OF_Ajutor_FB2P
	OD=CREATEO('DESPRE')
	OD.SHOW(1)
ENDPROC && BAR_5_OF_Ajutor_FB2P

*</Procedures>