*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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 "\Reasignare" ;
			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 "\Configurare"
	ON SELECTION BAR 3 OF Utile DO BAR_3_OF_Utile_FB2P

	DEFINE BAR 4 OF Utile PROMPT "\Administrare"
	ON SELECTION BAR 4 OF Utile DO BAR_4_OF_Utile_FB2P

	DEFINE BAR 5 OF Utile PROMPT "\Reindexare"
	ON BAR 5 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 6 OF Utile PROMPT "\-"
	ON BAR 6 OF Utile ACTIVATE POPUP _rap18gw4b

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

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

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

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

		*----------------------------------
		DEFINE POPUP _s9r16veuj MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 11 OF Utile PROMPT "\<Iesire" ;
		KEY F2, "F2" ;
		MESSAGE 'Iesire din program.'
	ON SELECTION BAR 11 OF Utile DO BAR_11_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 "\<Deschidere de luna noua" ;
		SKIP FOR glLuna_neplatita OR !glUltimaLuna or m.nivel>1 ;
		MESSAGE 'Inceperea unei noi luni contabile.'
	ON SELECTION BAR 4 OF Initializa DO BAR_4_OF_Initializa_FB2P

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

	DEFINE BAR 6 OF Initializa PROMPT "\Blocare de luna" ;
		SKIP FOR m.nivel>1 ;
		MESSAGE 'Inchidere de luna.'
	ON BAR 6 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 7 OF Initializa PROMPT "\-"
	ON BAR 7 OF Initializa ACTIVATE POPUP _s3n16gukq

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

	DEFINE BAR 9 OF Initializa PROMPT "\Firma noua" ;
		MESSAGE 'Deschiderea unei firme noi.'
	ON BAR 9 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 "Cr\<editori"
				ON SELECTION BAR 3 OF _0980v14qn DO BAR_3_OF__0980v14qn_FB2P

				DEFINE BAR 4 OF _0980v14qn PROMPT "\<Debitori"
				ON SELECTION BAR 4 OF _0980v14qn DO BAR_4_OF__0980v14qn_FB2P

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

				DEFINE BAR 6 OF _0980v14qn PROMPT "Act\<ionari"
				ON SELECTION BAR 6 OF _0980v14qn DO BAR_6_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 "\<Balanta"
			ON SELECTION BAR 3 OF Preluarede DO BAR_3_OF_Preluarede_FB2P

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

		*----------------------------------
		DEFINE POPUP _0y30reu0z MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 11 OF Initializa PROMPT "\Coeficienti lunari" ;
		SKIP FOR m.nivel>1 ;
		MESSAGE 'Modificarea coeficientilor: TVA, etc.'
	ON SELECTION BAR 11 OF Initializa DO BAR_11_OF_Initializa_FB2P

	DEFINE BAR 12 OF Initializa PROMPT "C\<onfigurare note"
	ON SELECTION BAR 12 OF Initializa DO BAR_12_OF_Initializa_FB2P

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

		*----------------------------------
		DEFINE POPUP _0lr0ye5vn MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 14 OF Initializa PROMPT "\<Liste nomenclatoare"
	ON BAR 14 OF Initializa ACTIVATE POPUP Listenomen

		*----------------------------------
		DEFINE POPUP Listenomen MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Listenomen PROMPT "\<Tipuri documente"
		ON SELECTION BAR 1 OF Listenomen DO BAR_1_OF_Listenomen_FB2P

		DEFINE BAR 2 OF Listenomen PROMPT "\<Sectii"
		ON SELECTION BAR 2 OF Listenomen DO BAR_2_OF_Listenomen_FB2P

		DEFINE BAR 3 OF Listenomen PROMPT "\<Gestiuni"
		ON SELECTION BAR 3 OF Listenomen DO BAR_3_OF_Listenomen_FB2P

		DEFINE BAR 4 OF Listenomen PROMPT "\<Venituri/Cheltuieli"
		ON SELECTION BAR 4 OF Listenomen DO BAR_4_OF_Listenomen_FB2P

		DEFINE BAR 5 OF Listenomen PROMPT "\<Lucrari"
		ON SELECTION BAR 5 OF Listenomen DO BAR_5_OF_Listenomen_FB2P

		DEFINE BAR 6 OF Listenomen PROMPT "\<Responsabili"
		ON SELECTION BAR 6 OF Listenomen DO BAR_6_OF_Listenomen_FB2P

		DEFINE BAR 7 OF Listenomen PROMPT "\<Judete"
		ON SELECTION BAR 7 OF Listenomen DO BAR_7_OF_Listenomen_FB2P

		DEFINE BAR 8 OF Listenomen PROMPT "\<Localitati"
		ON SELECTION BAR 8 OF Listenomen DO BAR_8_OF_Listenomen_FB2P

	DEFINE BAR 15 OF Initializa PROMPT "\<Plan conturi"
	ON SELECTION BAR 15 OF Initializa DO BAR_15_OF_Initializa_FB2P

	DEFINE BAR 16 OF Initializa PROMPT "\<Entitati" ;
		SKIP FOR m.nivel>0
	ON SELECTION BAR 16 OF Initializa DO BAR_16_OF_Initializa_FB2P

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

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

		*----------------------------------
		DEFINE POPUP Optiuni MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Optiuni PROMPT "Optiuni \<Default"
		ON SELECTION BAR 1 OF Optiuni DO BAR_1_OF_Optiuni_FB2P

		DEFINE BAR 2 OF Optiuni PROMPT "Optiuni \<Firma"
		ON SELECTION BAR 2 OF Optiuni DO BAR_2_OF_Optiuni_FB2P

DEFINE PAD _000000004 OF _msysmenu PROMPT "Ac\<tualizari" COLOR SCHEME 3 ;
	KEY ALT+T, "ALT+T" ;
	SKIP FOR luna_inchisa ;
	MESSAGE 'Diverse analize'

ON PAD _000000004 OF _msysmenu ACTIVATE POPUP _1bs12qror

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

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

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

	DEFINE BAR 4 OF _1bs12qror PROMPT "\Initializare facturi/solduri" ;
		SKIP FOR luna_inchisa or m.nivel>1
	ON BAR 4 OF _1bs12qror 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 _1bs12qror PROMPT "\-"
	ON BAR 5 OF _1bs12qror ACTIVATE POPUP _0wt0ymzyk

		*----------------------------------
		DEFINE POPUP _0wt0ymzyk MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 6 OF _1bs12qror PROMPT "\Alte actualizari"
	ON BAR 6 OF _1bs12qror ACTIVATE POPUP NewItem

		*----------------------------------
		DEFINE POPUP NewItem MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF NewItem PROMPT "Adaptarea textului in balanta cf. planului de conturi"
		ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P

		DEFINE BAR 2 OF NewItem PROMPT "Completarea nomenclatorului de materiale pe baza stocului"
		ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P

		DEFINE BAR 3 OF NewItem PROMPT "\-"
		ON BAR 3 OF NewItem ACTIVATE POPUP _16a0jfcmp

			*----------------------------------
			DEFINE POPUP _16a0jfcmp MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 4 OF NewItem PROMPT "\Sincronizare nume - balante analitice, registru jurnal"
		ON SELECTION BAR 4 OF NewItem DO BAR_4_OF_NewItem_FB2P

		DEFINE BAR 5 OF NewItem PROMPT "\-"
		ON BAR 5 OF NewItem ACTIVATE POPUP _1770wos9a

			*----------------------------------
			DEFINE POPUP _1770wos9a MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 6 OF NewItem PROMPT "Actualizare solduri facturi in valuta la 31.12.NN"
		ON SELECTION BAR 6 OF NewItem do actualizare_facturi_valuta.prg

	DEFINE BAR 7 OF _1bs12qror PROMPT "\-"
	ON BAR 7 OF _1bs12qror ACTIVATE POPUP _0ms0u7t1l

		*----------------------------------
		DEFINE POPUP _0ms0u7t1l MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 8 OF _1bs12qror PROMPT "\Serii" ;
		SKIP FOR m.nivel#0
	ON BAR 8 OF _1bs12qror 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 9 OF _1bs12qror PROMPT "\-"
	ON BAR 9 OF _1bs12qror ACTIVATE POPUP _s4a0z4oi2

		*----------------------------------
		DEFINE POPUP _s4a0z4oi2 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 10 OF _1bs12qror PROMPT "\Actualizari fisiere" ;
		SKIP FOR m.nivel#0
	ON BAR 10 OF _1bs12qror 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 11 OF _1bs12qror PROMPT "\Actualizare dupa receptia de date" ;
		SKIP FOR luna_inchisa or m.nivel>1
	ON SELECTION BAR 11 OF _1bs12qror DO BAR_11_OF__1bs12qror_FB2P

	DEFINE BAR 12 OF _1bs12qror PROMPT "\-"
	ON BAR 12 OF _1bs12qror ACTIVATE POPUP _16w10v8x0

		*----------------------------------
		DEFINE POPUP _16w10v8x0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 13 OF _1bs12qror PROMPT "\<Verificare Globala"
	ON SELECTION BAR 13 OF _1bs12qror DO BAR_13_OF__1bs12qror_FB2P

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

ON PAD _000000005 OF _msysmenu ACTIVATE POPUP Ajutor

	*----------------------------------
	DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF Ajutor PROMPT "\<Planul general de conturi" ;
		KEY F1, "F1" ;
		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 "\-"
	ON BAR 3 OF Ajutor ACTIVATE POPUP _0yw0umukf

		*----------------------------------
		DEFINE POPUP _0yw0umukf MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 4 OF Ajutor PROMPT "\<Sesizari"
	ON SELECTION BAR 4 OF Ajutor DO BAR_4_OF_Ajutor_FB2P

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

		*----------------------------------
		DEFINE POPUP _s23165irc MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 6 OF Ajutor PROMPT "\<Despre program..." ;
		MESSAGE 'Informatii despre program'
	ON SELECTION BAR 6 OF Ajutor DO BAR_6_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
	OMENU=CREA('MENUg')
	OMENU.SHOW()
ENDPROC && BAR_3_OF_Utile_FB2P

PROCEDURE BAR_4_OF_Utile_FB2P
	
	orp=create('parolaMEA')
	orp.show(1)
	
	if buton=3
	DO FORM fisiere
	ENDIF
ENDPROC && BAR_4_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_7_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_7_OF_Utile_FB2P

PROCEDURE BAR_8_OF_Utile_FB2P
	*!*	od=createo('diary')
	*!*	od.show(1)
ENDPROC && BAR_8_OF_Utile_FB2P

PROCEDURE BAR_9_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_9_OF_Utile_FB2P

PROCEDURE BAR_11_OF_Utile_FB2P
	ies=.t.
	
	DO IESIRE
ENDPROC && BAR_11_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_4_OF_Initializa_FB2P
	DO deschidluna WITH .T. IN oredeschid.prg 
ENDPROC && BAR_4_OF_Initializa_FB2P

PROCEDURE BAR_5_OF_Initializa_FB2P
	DO deschidluna WITH .F. IN oredeschid.prg 
ENDPROC && BAR_5_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_8_OF_Initializa_FB2P
	Local ERR
	*!*	IF !USED("CALEFIRMA")
	*!*		USE &calefirma\datean\datefirma IN 0 SHARED
	*!*	ENDIF
	
	Sele datefirma
	If !existacamp("datefirma","punct_luc")
		Select datefirma
		Use
		ERR=1
		On Error Do ERREIND With ERR,"Dati reindexare pe 'DATEAN'"
		Use &calefirma\DATEAN\datefirma In 0 Excl
		If ERR=0
			Use &calefirma\DATEAN\datefirma In 0 Shared
			Return
		Endif
		Alter Table datefirma Add Column punct_luc c(20)
		Use In datefirma
		Use &calefirma\DATEAN\datefirma In 0 Shared
		On Error
	Endif
	Do Form datefirma
	*use &calefirma\datean\datefirma in 0 shared again
	Sele datefirma
	
	Select * From datefirma Into Cursor FFF
	If _Tally=0
		Sele datefirma
		Append Blank
	Endif
	Select datefirma
	Go Top
	If Flock()
		Gather Memvar
		Repl denumire With Alltrim(m.flung)
		Repl localitate With m.localitate
		Repl strada With m.strada
		Repl nr With Allt(Str(m.numar))
		m.denumire=Alltrim(m.flung)
		Unlock
	Endif
	
	*SELECT datefirma
	If !existacamp('datefirma',"capsocvar")
		Use In datefirma
	
		On Error Do a
		Use &calefirma\DATEAN\datefirma In 0 Exclusive
	
		If !Used('datefirma')
			Do mesaj With "Inchideti programul pe toate calculatoarele din retea","pentru actualizarea datelor"
			Quit
		Else
			Alter Table datefirma Add Column capsocvar N(14)
			Alter Table datefirma Add Column capsocSUB N(14)
		Endif
		On Error
		Use In datefirma
		Use &calefirma\DATEAN\datefirma In 0 Shared Again
	Endif
	Select datefirma
	Scatter Memvar
	Do Form datelefirma
	Select datefirma
	If Flock()
		Gather Memv
	Endif
	Unlock
	If !Empty(m.punct_luc)
		punct_de_lucru="Punct de lucru: "+Alltrim(m.punct_luc)
	Endif
	*brow title 'CTR-Y pentru linie noua    /     ESC pentru iesire'
	*use in datefirma
ENDPROC && BAR_8_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 REFFURNIZOR
	wait wind 'Se inregistreaza in registrul de cumparari...' nowait
	DO TOTV
	DO REFCUMP
	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 REFCLIENTI
	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_3_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_3_OF__0980v14qn_FB2P

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

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

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

PROCEDURE BAR_3_OF_Preluarede_FB2P
	sele bal
	do form afisbalx
ENDPROC && BAR_3_OF_Preluarede_FB2P

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

PROCEDURE BAR_12_OF_Initializa_FB2P
	DO configurare_note IN omeniu_initializari.prg
ENDPROC && BAR_12_OF_Initializa_FB2P

PROCEDURE BAR_1_OF_Listenomen_FB2P
	DO VIZ_FDOC IN ONOMENCLATOARE.PRG
ENDPROC && BAR_1_OF_Listenomen_FB2P

PROCEDURE BAR_2_OF_Listenomen_FB2P
	DO viz_sectii IN ONOMENCLATOARE.PRG
ENDPROC && BAR_2_OF_Listenomen_FB2P

PROCEDURE BAR_3_OF_Listenomen_FB2P
	DO VIZ_GESTIUNI IN ONOMENCLATOARE.PRG
ENDPROC && BAR_3_OF_Listenomen_FB2P

PROCEDURE BAR_4_OF_Listenomen_FB2P
	DO viz_venchel IN onomenclatoare.prg
ENDPROC && BAR_4_OF_Listenomen_FB2P

PROCEDURE BAR_5_OF_Listenomen_FB2P
	DO viz_lucrari IN onomenclatoare.prg
ENDPROC && BAR_5_OF_Listenomen_FB2P

PROCEDURE BAR_6_OF_Listenomen_FB2P
	DO VIZ_RESPONSABILI IN ONOMENCLATOARE.PRG
ENDPROC && BAR_6_OF_Listenomen_FB2P

PROCEDURE BAR_7_OF_Listenomen_FB2P
	DO VIZ_JUDETE IN ONOMENCLATOARE.PRG
ENDPROC && BAR_7_OF_Listenomen_FB2P

PROCEDURE BAR_8_OF_Listenomen_FB2P
	DO VIZ_LOCALITATI IN ONOMENCLATOARE.PRG
ENDPROC && BAR_8_OF_Listenomen_FB2P

PROCEDURE BAR_15_OF_Initializa_FB2P
	DO viz_plcont IN onomenclatoare.prg
ENDPROC && BAR_15_OF_Initializa_FB2P

PROCEDURE BAR_16_OF_Initializa_FB2P
	DO viz_parteneri IN onomenclatoare.prg
ENDPROC && BAR_16_OF_Initializa_FB2P

PROCEDURE BAR_1_OF_Optiuni_FB2P
	DO viz_optiuni IN oinit_optiuni.prg
ENDPROC && BAR_1_OF_Optiuni_FB2P

PROCEDURE BAR_2_OF_Optiuni_FB2P
	DO viz_optiuni WITH gcS IN oinit_optiuni.prg
ENDPROC && BAR_2_OF_Optiuni_FB2P

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

PROCEDURE BAR_2_OF__1bs12qror_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__1bs12qror_FB2P

PROCEDURE BAR_3_OF__1bs12qror_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__1bs12qror_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)
	
	orp=Create('parola')
	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)
	orp=Create('parola')
	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_NewItem_FB2P
	Select bal
	Scan
		Scatter Memv
		Select plcont
		Locate For cimp1=m.cont
		If Found()
			m.denumire=cimp2
			Select bal
			If Flock()
				Replace denumire With m.denumire
			Endif
			Unlock
		Endif
		Select bal
	Endscan
	
	Select balana
	Scan
		Scatter Memv
		Select plcontana
		Locate For cont = m.cont AND acont = m.acont
		If Found()
			m.denumire = denumire
			Select balana
			If Flock()
				Replace denumire With m.denumire
			Endif
			Unlock
		Endif
		Select balana
	ENDSCAN
	
	Do mesaj With 'Operatiunea a fost executata.',''
	
ENDPROC && BAR_1_OF_NewItem_FB2P

PROCEDURE BAR_2_OF_NewItem_FB2P
	SELECT DISTINCT denumire, scd,codmat FROM stoc INTO CURSOR ff ORDER BY denumire
	
	SELECT DISTINCT denumire, scd,codmat FROM ff WHERE ;
	denumire+scd+codmat NOT in (select DISTINCT denumire+scd+codmat FROM listast);
	into CURSOR aaa
	
	SELECT listast
	IF FLOCK()
	APPEND FROM DBF('aaa')
	ENDIF
	UNLOCK
	
	DO mesaj WITH 'Operatiunea a fost executata',''
ENDPROC && BAR_2_OF_NewItem_FB2P

PROCEDURE BAR_4_OF_NewItem_FB2P
	DO VIZ_SINCRONIZARE_NUME IN sincronizare_g.prg
ENDPROC && BAR_4_OF_NewItem_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 REFCUMP
	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_11_OF__1bs12qror_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 REDESCHI2
	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_11_OF__1bs12qror_FB2P

PROCEDURE BAR_13_OF__1bs12qror_FB2P
	DO verificareGlobala IN overificari.prg
ENDPROC && BAR_13_OF__1bs12qror_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)
	LOCAL cSite
	cSite = dirgen+"/manual/prezentare_cont.htm"
	
	IF !FILE(csite)
		DO mesaj WITH 'Nu este instalat manualul de utilizare !',''
		RETURN
	ENDIF 
	
	oBrowser=CREATEOBJECT("internetexplorer.application")
	oBrowser.Navigate(cSite)
	oBrowser.Visible = .T.
ENDPROC && BAR_2_OF_Ajutor_FB2P

PROCEDURE BAR_4_OF_Ajutor_FB2P
	IF !DIRECTORY('&CALEFIRMA\SESIZARI')
		MD &CALEFIRMA\SESIZARI
	Endif	
	IF !FILE('&CALEFIRMA\SESIZARI\SESIZARI.DBF')
	COPY FILE &DIRGEN\_ALFA\TEMPO\sesizari.* TO &CALEFIRMA\SESIZARI\SESIZARI.*
	ENDIF 
	
	USE &CALEFIRMA\SESIZARI\sesizari.dbf IN 0 shared    
	SELECT sesizari
	DO FORM edises
	*DO FORM sesizare
	USE IN sesizari 
	
	
ENDPROC && BAR_4_OF_Ajutor_FB2P

PROCEDURE BAR_6_OF_Ajutor_FB2P
	DO FORM frm_about
ENDPROC && BAR_6_OF_Ajutor_FB2P

*</Procedures>