*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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 "\<Romfast Suport" ;
		KEY ALT+R, "ALT+R" ;
		MESSAGE 'Romfast Suport'
	ON SELECTION BAR 1 OF Utile DO BAR_1_OF_Utile_FB2P

	DEFINE BAR 2 OF Utile PROMPT "\<Captura ecran si email" ;
		KEY ALT+S, "ALT+S"
	ON SELECTION BAR 2 OF Utile DO BAR_2_OF_Utile_FB2P

	DEFINE BAR 3 OF Utile PROMPT "\-"
	ON BAR 3 OF Utile ACTIVATE POPUP _5ow11i45g

		*----------------------------------
		DEFINE POPUP _5ow11i45g MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 4 OF Utile PROMPT "Schimbare tip raport clasic/modern" ;
		MESSAGE 'Previzualizare rapoarte tip clasic sau modern'
	ON SELECTION BAR 4 OF Utile DO BAR_4_OF_Utile_FB2P

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

		*----------------------------------
		DEFINE POPUP _4lz0t1ukd MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 6 OF Utile PROMPT "\<Iesire" ;
		KEY F2, "F2" ;
		MESSAGE 'Iesire din program.'
	ON SELECTION BAR 6 OF Utile DO BAR_6_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 BAR 9 OF Editare PROMPT "\-"
	ON BAR 9 OF Editare ACTIVATE POPUP _5j00vkrd6

		*----------------------------------
		DEFINE POPUP _5j00vkrd6 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 10 OF Editare PROMPT "Alege font implicit"
	ON SELECTION BAR 10 OF Editare DO BAR_10_OF_Editare_FB2P

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 "\<Deschidere de luna noua"
	ON SELECTION BAR 1 OF Initializa DO BAR_1_OF_Initializa_FB2P

	DEFINE BAR 2 OF Initializa PROMPT "\<Redeschidere de luna" ;
		MESSAGE 'Actualizarea cu date modificate din luna precedenta, aparute ulterior deschiderii lunii contabile curente.'
	ON BAR 2 OF Initializa ACTIVATE POPUP Redeschide

		*----------------------------------
		DEFINE POPUP Redeschide MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Redeschide PROMPT "Redeschidere de luna"
		ON SELECTION BAR 1 OF Redeschide DO BAR_1_OF_Redeschide_FB2P

		DEFINE BAR 2 OF Redeschide PROMPT "\-"
		ON BAR 2 OF Redeschide ACTIVATE POPUP _34h0z67ak

			*----------------------------------
			DEFINE POPUP _34h0z67ak MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 3 OF Redeschide PROMPT "Programare redeschidere de luna"
		ON SELECTION BAR 3 OF Redeschide do programare_deschidere_luna in oredeschid.prg

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

		*----------------------------------
		DEFINE POPUP _1mw0krb26 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 4 OF Initializa PROMPT "\<Plan conturi"
	ON SELECTION BAR 4 OF Initializa DO BAR_4_OF_Initializa_FB2P

	DEFINE BAR 5 OF Initializa PROMPT "\<Completare plan conturi din anul precedent"
	ON SELECTION BAR 5 OF Initializa DO BAR_5_OF_Initializa_FB2P

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

		*----------------------------------
		DEFINE POPUP _3a60oj8xk MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 7 OF Initializa PROMPT "Configurare TVA & Impozit"
	ON SELECTION BAR 7 OF Initializa DO BAR_7_OF_Initializa_FB2P

	DEFINE BAR 8 OF Initializa PROMPT "Plafoane c\<asa"
	ON SELECTION BAR 8 OF Initializa DO viz_plafon_casa WITH gcs, gnAn, gnLuna IN onomenclatoare.prg

	DEFINE BAR 9 OF Initializa PROMPT "Configurare \<serii"
	ON BAR 9 OF Initializa ACTIVATE POPUP Configurar

		*----------------------------------
		DEFINE POPUP Configurar MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Configurar PROMPT "\<Bon fiscal"
		ON SELECTION BAR 1 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 3

		DEFINE BAR 2 OF Configurar PROMPT "\<Chitanta"
		ON SELECTION BAR 2 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 16

		DEFINE BAR 3 OF Configurar PROMPT "\<Dispozitie de incasare/plata"
		ON SELECTION BAR 3 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 19

		DEFINE BAR 4 OF Configurar PROMPT "\<Factura"
		ON SELECTION BAR 4 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 5

		DEFINE BAR 5 OF Configurar PROMPT "\<Factura alocata D394" ;
			MESSAGE 'Serii facturi alocate pentru D394'
		ON SELECTION BAR 5 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 24

		DEFINE BAR 6 OF Configurar PROMPT "\<Monetar"
		ON SELECTION BAR 6 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 12

	DEFINE BAR 10 OF Initializa PROMPT "Configurare inchidere \<amortizare"
	ON SELECTION BAR 10 OF Initializa DO BAR_10_OF_Initializa_FB2P

	DEFINE BAR 11 OF Initializa PROMPT "\-"
	ON BAR 11 OF Initializa ACTIVATE POPUP _3a60ohaj1

		*----------------------------------
		DEFINE POPUP _3a60ohaj1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 12 OF Initializa PROMPT "Configurare \<Entitati"
	ON SELECTION BAR 12 OF Initializa DO BAR_12_OF_Initializa_FB2P

	DEFINE BAR 13 OF Initializa PROMPT "Configurare Entitati - \<Conturi"
	ON SELECTION BAR 13 OF Initializa DO BAR_13_OF_Initializa_FB2P

	DEFINE BAR 14 OF Initializa PROMPT "Configurare \<Balante Parteneri"
	ON SELECTION BAR 14 OF Initializa DO BAR_14_OF_Initializa_FB2P

	DEFINE BAR 15 OF Initializa PROMPT "Configurare Note contabile"
	ON SELECTION BAR 15 OF Initializa DO BAR_15_OF_Initializa_FB2P

	DEFINE BAR 16 OF Initializa PROMPT "Configurare \<Analitice"
	ON BAR 16 OF Initializa ACTIVATE POPUP _4k30zzwaf

		*----------------------------------
		DEFINE POPUP _4k30zzwaf MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF _4k30zzwaf PROMPT "Configurare analitice pe \<grupuri utilizatori"
		ON SELECTION BAR 1 OF _4k30zzwaf DO BAR_1_OF__4k30zzwaf_FB2P

		DEFINE BAR 2 OF _4k30zzwaf PROMPT "Configurare analitice conturi TVA"
		ON SELECTION BAR 2 OF _4k30zzwaf DO BAR_2_OF__4k30zzwaf_FB2P

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

		*----------------------------------
		DEFINE POPUP _6cc0uc21r MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 18 OF Initializa PROMPT "Optiuni utilizator"
	ON BAR 18 OF Initializa ACTIVATE POPUP Optiuniuti

		*----------------------------------
		DEFINE POPUP Optiuniuti MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Optiuniuti PROMPT "\<Tratare bug blocare listare Registru Cumparari"
		ON SELECTION BAR 1 OF Optiuniuti DO BAR_1_OF_Optiuniuti_FB2P

		DEFINE BAR 2 OF Optiuniuti PROMPT "\-"
		ON BAR 2 OF Optiuniuti ACTIVATE POPUP _7it1dbypw

			*----------------------------------
			DEFINE POPUP _7it1dbypw MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 3 OF Optiuniuti PROMPT "\<Verificare ANAF la alegerea partenerului"
		ON SELECTION BAR 3 OF Optiuniuti DO ANAF_ComutaVerificare IN ocautare.prg

DEFINE PAD _000000004 OF _msysmenu PROMPT "Ac\<tualizari" COLOR SCHEME 3 ;
	KEY ALT+T, "ALT+T" ;
	SKIP FOR Type('glLunaInchisa') = 'L' and m.glLunaInchisa

ON PAD _000000004 OF _msysmenu ACTIVATE POPUP _1bs12qror

	*----------------------------------
	DEFINE POPUP _1bs12qror MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF _1bs12qror PROMPT "Conversie"
	ON BAR 1 OF _1bs12qror ACTIVATE POPUP Conversie

		*----------------------------------
		DEFINE POPUP Conversie MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Conversie PROMPT "1. Actualizare Plan Conturi"
		ON SELECTION BAR 1 OF Conversie DO BAR_1_OF_Conversie_FB2P

		DEFINE BAR 2 OF Conversie PROMPT "2. Actualizare Registrul Jurnal"
		ON SELECTION BAR 2 OF Conversie DO BAR_2_OF_Conversie_FB2P

		DEFINE BAR 3 OF Conversie PROMPT "3. Actualizare Balanta de verificare"
		ON SELECTION BAR 3 OF Conversie DO BAR_3_OF_Conversie_FB2P

	DEFINE BAR 2 OF _1bs12qror PROMPT "\-"
	ON BAR 2 OF _1bs12qror ACTIVATE POPUP _1v40t2lwt

		*----------------------------------
		DEFINE POPUP _1v40t2lwt MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 3 OF _1bs12qror PROMPT "Actualizare solduri in \<valuta"
	ON SELECTION BAR 3 OF _1bs12qror DO BAR_3_OF__1bs12qror_FB2P

	DEFINE BAR 4 OF _1bs12qror PROMPT "Actualizare cote \<TVA pentru anul 2007"
	ON SELECTION BAR 4 OF _1bs12qror DO BAR_4_OF__1bs12qror_FB2P

DEFINE PAD _000000005 OF _msysmenu PROMPT "\<Verificari" COLOR SCHEME 3 ;
	SKIP FOR Type('glLunaInchisa') = 'L' and m.glLunaInchisa

ON PAD _000000005 OF _msysmenu ACTIVATE POPUP Verificari

	*----------------------------------
	DEFINE POPUP Verificari MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF Verificari PROMPT "\<Verificare globala"
	ON SELECTION BAR 1 OF Verificari DO BAR_1_OF_Verificari_FB2P

	DEFINE BAR 2 OF Verificari PROMPT "\<Situatii contabile invalidate" ;
		MESSAGE 'Situatii contabile invalidate de operatii efectuate in lunile anterioare'
	ON SELECTION BAR 2 OF Verificari DO BAR_2_OF_Verificari_FB2P

DEFINE PAD _000000006 OF _msysmenu PROMPT "\<Import" COLOR SCHEME 3 ;
	SKIP FOR Type('glLunaInchisa') = 'L' and m.glLunaInchisa

ON PAD _000000006 OF _msysmenu ACTIVATE POPUP _5100zlkwx

	*----------------------------------
	DEFINE POPUP _5100zlkwx MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF _5100zlkwx PROMPT "Initializare \<facturi, balante parteneri si Registre TVA  din *.xlsx"
	ON SELECTION BAR 1 OF _5100zlkwx do form frm_initializare_facturi_balanta.scx

	DEFINE BAR 2 OF _5100zlkwx PROMPT "\-"
	ON BAR 2 OF _5100zlkwx ACTIVATE POPUP _66a0sg613

		*----------------------------------
		DEFINE POPUP _66a0sg613 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 3 OF _5100zlkwx PROMPT "\<Note facturi clienti din *.xlsx" ;
		MESSAGE '4111 = 7xx ; 4111 = 442x'
	ON SELECTION BAR 3 OF _5100zlkwx do form frm_import_note_facturi_clienti.scx

	DEFINE BAR 4 OF _5100zlkwx PROMPT "\<Note facturi clienti anulate din *.xlsx"
	ON SELECTION BAR 4 OF _5100zlkwx do form frm_import_note_facturi_clienti.scx with 'ANULAT'

	DEFINE BAR 5 OF _5100zlkwx PROMPT "\-"
	ON BAR 5 OF _5100zlkwx ACTIVATE POPUP _61m0tv1xb

		*----------------------------------
		DEFINE POPUP _61m0tv1xb MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 6 OF _5100zlkwx PROMPT "\<Monetare din fisiere casa marcat A4200" ;
		MESSAGE '4111 = 7xx ; 4111 = 442x ; 5xx = 4111'
	ON SELECTION BAR 6 OF _5100zlkwx do form frm_import_note_a4200.scx

	DEFINE BAR 7 OF _5100zlkwx PROMPT "\-"
	ON BAR 7 OF _5100zlkwx ACTIVATE POPUP _61m0tuffp

		*----------------------------------
		DEFINE POPUP _61m0tuffp MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 8 OF _5100zlkwx PROMPT "\<Extrase bancare, deconturi curieri, procesatori plati"
	ON SELECTION BAR 8 OF _5100zlkwx do form frm_import_extrase_banca.scx

DEFINE PAD _000000007 OF _msysmenu PROMPT "\<SPV - eFactura" COLOR SCHEME 3 ;
	MESSAGE 'Borderou eFactura'

ON PAD _000000007 OF _msysmenu ACTIVATE POPUP SPVeFactur

	*----------------------------------
	DEFINE POPUP SPVeFactur MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF SPVeFactur PROMPT "Borderou eFactura"
	ON SELECTION BAR 1 OF SPVeFactur DO BAR_1_OF_SPVeFactur_FB2P

	DEFINE BAR 2 OF SPVeFactur PROMPT "\-"
	ON BAR 2 OF SPVeFactur ACTIVATE POPUP _6y511yz3u

		*----------------------------------
		DEFINE POPUP _6y511yz3u MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 3 OF SPVeFactur PROMPT "\<Trimite xml eFactura..."
	ON SELECTION BAR 3 OF SPVeFactur DO BAR_3_OF_SPVeFactur_FB2P

	DEFINE BAR 4 OF SPVeFactur PROMPT "\-"
	ON BAR 4 OF SPVeFactur ACTIVATE POPUP _6ug0wevae

		*----------------------------------
		DEFINE POPUP _6ug0wevae MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 5 OF SPVeFactur PROMPT "Import eFactura primite"
	ON SELECTION BAR 5 OF SPVeFactur DO BAR_5_OF_SPVeFactur_FB2P

	DEFINE BAR 6 OF SPVeFactur PROMPT "Import eFactura trimise"
	ON SELECTION BAR 6 OF SPVeFactur DO BAR_6_OF_SPVeFactur_FB2P

	DEFINE BAR 7 OF SPVeFactur PROMPT "\-"
	ON BAR 7 OF SPVeFactur ACTIVATE POPUP _6zm0qrbxl

		*----------------------------------
		DEFINE POPUP _6zm0qrbxl MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 8 OF SPVeFactur PROMPT "SPV"
	ON SELECTION BAR 8 OF SPVeFactur DO BAR_8_OF_SPVeFactur_FB2P

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

ON PAD _000000008 OF _msysmenu ACTIVATE POPUP Ajutor

	*----------------------------------
	DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF Ajutor PROMPT "\<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" ;
		KEY F1, "F1"
	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 "\<Despre program..." ;
		MESSAGE 'Informatii despre program'
	ON SELECTION BAR 4 OF Ajutor DO BAR_4_OF_Ajutor_FB2P

	DEFINE BAR 5 OF Ajutor PROMPT "\<Jurnal modificari"
	ON SELECTION BAR 5 OF Ajutor DO BAR_5_OF_Ajutor_FB2P

	DEFINE BAR 6 OF Ajutor PROMPT "\-"
	ON BAR 6 OF Ajutor ACTIVATE POPUP _70c02mw5j

		*----------------------------------
		DEFINE POPUP _70c02mw5j MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 7 OF Ajutor PROMPT "Romfast Suport Bot"
	ON SELECTION BAR 7 OF Ajutor DO FORM frm_chatbot
ON SELECTION MENU _msysmenu *:Locale=Yes

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Utile_FB2P
	Try
		OHELP.TOOL_HELP1.stromfast.Click
	Catch To loEx
		AMESSAGEBOX(loEx.Message,0+48,_Screen.Caption)
	Endtry
ENDPROC && BAR_1_OF_Utile_FB2P

PROCEDURE BAR_2_OF_Utile_FB2P
	Try
		ohelp.toOL_HELP1.screenshot.Click
	Catch To loEx
		AMESSAGEBOX(loEx.Message,0+48,_Screen.Caption)
	Endtry
ENDPROC && BAR_2_OF_Utile_FB2P

PROCEDURE BAR_4_OF_Utile_FB2P
	**OVARIABILE_GLOBALE.PRG
	
	*** Citesc setarea pentru ReportBehaviour
	IF TYPE('gnReportBehaviour') = 'U'
		PUBLIC gnReportBehaviour 
		gnReportBehaviour = 90
	ENDIF 
	
	LOCAL lcReportBehaviour
	lcReportBehaviour = NVL(getini(m.gcGeneralIniFile,'report','reportbehaviour'), '')
	IF EMPTY(m.lcReportBehaviour)
		setini(m.gcGeneralIniFile,'report','reportbehaviour', '90')
		gnReportBehaviour = 90
	ELSE
		gnReportBehaviour = VAL(m.lcReportBehaviour)
	ENDIF 
	IF !INLIST(gnReportBehaviour, 80, 90)
	     setini(m.gcGeneralIniFile,'report','reportbehaviour', '90')
		 gnReportBehaviour = 90
	ENDIF  
	
	lnReportBehaviourNew = IIF(gnReportBehaviour = 90, 80, 90)
	
	IF AMESSAGEBOX('Rapoarte tip ' + IIF(m.gnReportBehaviour=90, 'modern', 'clasic') + '. Doriti sa schimbati in tip ' + IIF(m.lnReportBehaviourNew=90, 'modern', 'clasic') + '?',4+32,_screen.Caption) = 6
		setini(m.gcGeneralIniFile,'report','reportbehaviour', ALLTRIM(STR(m.lnReportBehaviourNew)))
		gnReportBehaviour = m.lnReportBehaviourNew
	ENDIF 
ENDPROC && BAR_4_OF_Utile_FB2P

PROCEDURE BAR_6_OF_Utile_FB2P
	ies=.t.
	QUIT 
ENDPROC && BAR_6_OF_Utile_FB2P

PROCEDURE BAR_10_OF_Editare_FB2P
	Local oFonts, llReturn
	Do Case
		Case Type("goApp") = "O" And ;
				PEMSTATUS(goApp, "oFontHandler",5)
			If Vartype(goApp.oFontHandler) <> "O"
				* instantiate it
				goApp.oFontHandler = CREATEOBJECT("cusFontHandler") && Newobject("cusFontHandler", "Accessibility")
			Endif
			oFonts = goApp.oFontHandler
		Case Vartype(oFontHandler) <> "O"
			Release oFontHandler
			Public oFontHandler
			oFontHandler = CREATEOBJECT("cusFontHandler")&& Newobject("cusFontHandler", "Accessibility")
			oFonts = oFontHandler
		Otherwise
			* it already exists in the public variable
			oFonts = oFontHandler
	ENDCASE
	
	llReturn = oFonts.PromptForFont()
	
	IF m.llReturn
		goApp.WriteIni('INTERFATA', 'FONTNAME', oFonts.cFontName)
		AMESSAGEBOX('Intrati din nou in aplicatie pentru activarea fontului ' + oFonts.cFontName,0+64,_SCREEN.Caption)
	ENDIF 	
ENDPROC && BAR_10_OF_Editare_FB2P

PROCEDURE BAR_1_OF_Initializa_FB2P
	gcAcces = "1;2;3;4;"
	DO deschidluna WITH .T. IN oredeschid.prg 
ENDPROC && BAR_1_OF_Initializa_FB2P

PROCEDURE BAR_1_OF_Redeschide_FB2P
	DO deschidluna WITH .F., "refacere_completa" IN oredeschid.prg 
ENDPROC && BAR_1_OF_Redeschide_FB2P

PROCEDURE BAR_4_OF_Initializa_FB2P
	* gcAcces = "1;2;3;4"
	gcAcces = GetAccesByCod("ZA03") && Z = meniu, A = pad#, 3 = bar#
	DO viz_plcont IN onomenclatoare.prg
ENDPROC && BAR_4_OF_Initializa_FB2P

PROCEDURE BAR_5_OF_Initializa_FB2P
	Local lcSql,lnSucces
	lnRasp=aMESSAGEBOX("Doriti sa completati planul de conturi",4+32,"Atentie")
	If lnRasp=6
		lcSql = [begin pack_deschidere_luna.completare_plan_conturi(?gnAn); end;]
		llSucces = goExecutor.oExecuta(m.lcSql)
		If m.llSucces
			aMESSAGEBOX("Planul de conturi s-a completat!",0,"Confirmare")
		Endif
	Endif
	
	
ENDPROC && BAR_5_OF_Initializa_FB2P

PROCEDURE BAR_7_OF_Initializa_FB2P
	gcAcces = "1;2;3;4;"    
	LOCAL lcSchema, lnAn, lnLuna
	lnAn = m.gnAn
	lnLuna = m.gnLuna
	lcSchema = m.gcS
	DO viz_cote_tva WITH m.lcSchema, m.lnAn, m.lnLuna
ENDPROC && BAR_7_OF_Initializa_FB2P

PROCEDURE BAR_10_OF_Initializa_FB2P
	gcAcces = "1;2;3;4;"
	DO viz_inchidere_amortizari_conturi in oproceduri_inchidere.prg
ENDPROC && BAR_10_OF_Initializa_FB2P

PROCEDURE BAR_12_OF_Initializa_FB2P
	*gcAcces = "1;2;3;4;"
	gcAcces = GetAccesByCod("ZA09") && Z = meniu, A = pad#, 9 = bar#
	DO viz_parteneri IN onomenclatoare.prg
ENDPROC && BAR_12_OF_Initializa_FB2P

PROCEDURE BAR_13_OF_Initializa_FB2P
	gcAcces = "1;2;3;4;"
	DO viz_entitati_conturi IN onomenclatoare.prg
ENDPROC && BAR_13_OF_Initializa_FB2P

PROCEDURE BAR_14_OF_Initializa_FB2P
	gcAcces = "1;2;3;4;"
	DO configurare_balanta_cumulata IN oparteneri.prg
ENDPROC && BAR_14_OF_Initializa_FB2P

PROCEDURE BAR_15_OF_Initializa_FB2P
	gcAcces = "1;2;3;4;"
	DO configurare_note IN omeniu_initializari.prg
ENDPROC && BAR_15_OF_Initializa_FB2P

PROCEDURE BAR_1_OF__4k30zzwaf_FB2P
	gcAcces = "1;2;3;4;"   
	DO configurare_analitice_gruputil IN omeniu_initializari.prg
ENDPROC && BAR_1_OF__4k30zzwaf_FB2P

PROCEDURE BAR_2_OF__4k30zzwaf_FB2P
	gcAcces = "1;2;3;4;"
	DO configurare_analitice_tva IN omeniu_initializari.prg
ENDPROC && BAR_2_OF__4k30zzwaf_FB2P

PROCEDURE BAR_1_OF_Optiuniuti_FB2P
	Local lcOptiune, lnOptiune
	lcOptiune = 'RC_REGCUMP_LISTARE_BUG'
	lnOptiune = Int(Val(Nvl(citeste_optiune_utilizator(m.lcOptiune), '0')))
	lnRaspuns = AMESSAGEBOX('Optiunea este ' + Iif(m.lnOptiune = 0, 'Inactiva.', 'Activa.') + Chr(13) + Chr(10) + ;
		'Doriti sa o ' + Iif(m.lnOptiune = 0, 'activati?', 'inactivati?'),4+32, _Screen.Caption)
	
	If m.lnRaspuns = 6
		lnOptiune = Iif(m.lnOptiune = 0, 1, 0)
		scrie_optiune_utilizator(m.lcOptiune, ALLTRIM(STR(m.lnOptiune)), "Tratare bug blocare listare Registru Cumparari")
	Endif
ENDPROC && BAR_1_OF_Optiuniuti_FB2P

PROCEDURE BAR_1_OF_Conversie_FB2P
	gcAcces = "1;2;3;4;"
	DO CONVERSIE_CONTURI with "PLAN" IN oproceduri_conversie.prg
ENDPROC && BAR_1_OF_Conversie_FB2P

PROCEDURE BAR_2_OF_Conversie_FB2P
	gcAcces = "1;2;3;4;"
	DO CONVERSIE_CONTURI with "JURNAL" IN oproceduri_conversie.prg
ENDPROC && BAR_2_OF_Conversie_FB2P

PROCEDURE BAR_3_OF_Conversie_FB2P
	gcAcces = "1;2;3;4;"
	DO CONVERSIE_CONTURI with "BALANTA" IN oproceduri_conversie.prg
ENDPROC && BAR_3_OF_Conversie_FB2P

PROCEDURE BAR_3_OF__1bs12qror_FB2P
	gcAcces = "1;2;3;4;"
	do actualizare_solduri_valuta in oproceduri_actualizari.prg
ENDPROC && BAR_3_OF__1bs12qror_FB2P

PROCEDURE BAR_4_OF__1bs12qror_FB2P
	gcAcces = "1;2;3;4;"
	do actualizare_tva2007 in oproceduri_actualizari.prg
ENDPROC && BAR_4_OF__1bs12qror_FB2P

PROCEDURE BAR_1_OF_Verificari_FB2P
	gcAcces = "1;2;3;4;"
	DO verificareGlobala IN overificari.prg
ENDPROC && BAR_1_OF_Verificari_FB2P

PROCEDURE BAR_2_OF_Verificari_FB2P
	gcAcces = "1;2;3;4;"
	do SituatiiInvalidate in overificari.prg
ENDPROC && BAR_2_OF_Verificari_FB2P

PROCEDURE BAR_1_OF_SPVeFactur_FB2P
	gcAcces = GetAccesByCod("ZE01") && Z = meniu, A = pad#, 3 = bar#
	do viz_borderou_efactura in anaf_efactura.prg
ENDPROC && BAR_1_OF_SPVeFactur_FB2P

PROCEDURE BAR_3_OF_SPVeFactur_FB2P
	gcAcces = GetAccesByCod("ZE01") && Z = meniu, A = pad#, 3 = bar#
	do viz_efactura_xml in anaf_efactura.prg
ENDPROC && BAR_3_OF_SPVeFactur_FB2P

PROCEDURE BAR_5_OF_SPVeFactur_FB2P
	gcAcces = GetAccesByCod("DA01") && D = Pagina 4 Terti, A = pagina 2 Furnizori, 01 = meniul 1 Furnizori
	do importEfacturaPrimite in import_efactura.prg
ENDPROC && BAR_5_OF_SPVeFactur_FB2P

PROCEDURE BAR_6_OF_SPVeFactur_FB2P
	gcAcces = GetAccesByCod("DB01") && D = Pagina 4 Terti, B = pagina 2 Clienti, 01 = meniul 1 Clienti
	do importEfacturaTrimise in import_efactura.prg
ENDPROC && BAR_6_OF_SPVeFactur_FB2P

PROCEDURE BAR_8_OF_SPVeFactur_FB2P
	gcAcces = GetAccesByCod("ZE05") && Z = meniu, E = pad#, 5 = bar#
	do viz_spv in anaf_efactura.prg
ENDPROC && BAR_8_OF_SPVeFactur_FB2P

PROCEDURE BAR_1_OF_Ajutor_FB2P
	DO viz_plcont IN ocont2003.prg 
ENDPROC && BAR_1_OF_Ajutor_FB2P

PROCEDURE BAR_2_OF_Ajutor_FB2P
	lansare_help_meniu() &&oproceduri_comune.prg
ENDPROC && BAR_2_OF_Ajutor_FB2P

PROCEDURE BAR_4_OF_Ajutor_FB2P
	DO FORM frm_about
ENDPROC && BAR_4_OF_Ajutor_FB2P

PROCEDURE BAR_5_OF_Ajutor_FB2P
	DO FORM frm_changelog
ENDPROC && BAR_5_OF_Ajutor_FB2P

*</Procedures>