*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="mfix2000.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"

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" ;
		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"
		ON SELECTION BAR 2 OF OptiuniSis DO BAR_2_OF_OptiuniSis_FB2P

		DEFINE BAR 3 OF OptiuniSis PROMPT "\-"
		ON SELECTION BAR 3 OF OptiuniSis

		DEFINE BAR 4 OF OptiuniSis PROMPT "\Inchid fundalul"
		ON SELECTION BAR 4 OF OptiuniSis goApp.ReleaseForm

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

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

	DEFINE BAR 4 OF Utile PROMPT "\-"
	ON BAR 4 OF Utile ACTIVATE POPUP _0x60jnn96

		*----------------------------------
		DEFINE POPUP _0x60jnn96 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 5 OF Utile PROMPT "\<Calculator"
	ON SELECTION BAR 5 OF Utile DO BAR_5_OF_Utile_FB2P

	DEFINE BAR 6 OF Utile PROMPT "C\<alendar"
	ON SELECTION BAR 6 OF Utile DO BAR_6_OF_Utile_FB2P

	DEFINE BAR 7 OF Utile PROMPT "\<Notepad"
	ON SELECTION BAR 7 OF Utile DO BAR_7_OF_Utile_FB2P

	DEFINE BAR 8 OF Utile PROMPT "\-"
	ON BAR 8 OF Utile ACTIVATE POPUP _0310yhezd

		*----------------------------------
		DEFINE POPUP _0310yhezd MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 9 OF Utile PROMPT "\<Iesire" ;
		KEY F2, "F2" ;
		MESSAGE "Quits Visual FoxPro"
	ON SELECTION BAR 9 OF Utile DO BAR_9_OF_Utile_FB2P

DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Editare" COLOR SCHEME 3 ;
	KEY ALT+E, "ALT+E"

ON PAD _000000002 OF _msysmenu ACTIVATE POPUP Editare

	*----------------------------------
	DEFINE POPUP Editare MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR _med_copy OF Editare PROMPT "\<Copiaza" ;
		KEY CTRL+C, "Ctrl+C" ;
		MESSAGE "Copies the selection onto the Clipboard"

	DEFINE BAR _med_paste OF Editare PROMPT "\<Reda" ;
		KEY CTRL+V, "Ctrl+V" ;
		MESSAGE "Pastes the contents of the Clipboard"

DEFINE PAD _000000003 OF _msysmenu PROMPT "\<Initializare" COLOR SCHEME 3 ;
	KEY ALT+I, "ALT+I"

ON PAD _000000003 OF _msysmenu ACTIVATE POPUP Initializa

	*----------------------------------
	DEFINE POPUP Initializa MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF Initializa PROMPT "\<Seria periodica" ;
		SKIP FOR !LUNA_NEPLATITA OR !glimobIndependent or luna_inchisa
	ON SELECTION BAR 1 OF Initializa DO BAR_1_OF_Initializa_FB2P

	DEFINE BAR 2 OF Initializa PROMPT "\<Activare RON" ;
		SKIP FOR verific_rolronsnr(calefirma)
	ON SELECTION BAR 2 OF Initializa do form frm_activare_ron

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

		*----------------------------------
		DEFINE POPUP _0mc0k9eoa MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 4 OF Initializa PROMPT "\<Deschidere de luna noua" ;
		SKIP FOR luna_neplatita OR !ultima_luna OR !glimobIndependent or luna_inchisa
	ON SELECTION BAR 4 OF Initializa DO BAR_4_OF_Initializa_FB2P

	DEFINE BAR 5 OF Initializa PROMPT "\<Redeschidere de luna" ;
		SKIP FOR luna_inchisa
	ON SELECTION BAR 5 OF Initializa DO BAR_5_OF_Initializa_FB2P

	DEFINE BAR 6 OF Initializa PROMPT "\<Firma noua" ;
		SKIP FOR luna_neplatita OR !ultima_luna OR !glimobIndependent
	ON SELECTION BAR 6 OF Initializa DO BAR_6_OF_Initializa_FB2P

	DEFINE BAR 7 OF Initializa PROMPT "\-"
	ON BAR 7 OF Initializa ACTIVATE POPUP _11d0uufgm

		*----------------------------------
		DEFINE POPUP _11d0uufgm MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 8 OF Initializa PROMPT "\<Blocare de luna"
	ON BAR 8 OF Initializa ACTIVATE POPUP Blocaredel

		*----------------------------------
		DEFINE POPUP Blocaredel MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Blocaredel PROMPT "\<Situatia lunilor blocate"
		ON SELECTION BAR 1 OF Blocaredel DO BAR_1_OF_Blocaredel_FB2P

	DEFINE BAR 9 OF Initializa PROMPT "\-"
	ON BAR 9 OF Initializa ACTIVATE POPUP _1gh0lyccd

		*----------------------------------
		DEFINE POPUP _1gh0lyccd MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 10 OF Initializa PROMPT "\<Gestiuni"
	ON SELECTION BAR 10 OF Initializa DO BAR_10_OF_Initializa_FB2P

	DEFINE BAR 11 OF Initializa PROMPT "\<Sectii"
	ON SELECTION BAR 11 OF Initializa DO BAR_11_OF_Initializa_FB2P

	DEFINE BAR 12 OF Initializa PROMPT "\-"
	ON BAR 12 OF Initializa ACTIVATE POPUP _0750xicgr

		*----------------------------------
		DEFINE POPUP _0750xicgr MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 13 OF Initializa PROMPT "\<Conversie conturi"
	ON SELECTION BAR 13 OF Initializa DO BAR_13_OF_Initializa_FB2P

	DEFINE BAR 14 OF Initializa PROMPT "\<Conturi de amortizare"
	ON SELECTION BAR 14 OF Initializa DO BAR_14_OF_Initializa_FB2P

	DEFINE BAR 15 OF Initializa PROMPT "\<Conversie coduri 2005"
	ON SELECTION BAR 15 OF Initializa DO BAR_15_OF_Initializa_FB2P

	DEFINE BAR 16 OF Initializa PROMPT "\-"
	ON BAR 16 OF Initializa ACTIVATE POPUP _1il0l5woq

		*----------------------------------
		DEFINE POPUP _1il0l5woq MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 17 OF Initializa PROMPT "Optiuni"
	ON SELECTION BAR 17 OF Initializa DO BAR_17_OF_Initializa_FB2P

DEFINE PAD _000000004 OF _msysmenu PROMPT "\<Ajutor" COLOR SCHEME 3 ;
	KEY ALT+A, "ALT+A"

ON PAD _000000004 OF _msysmenu ACTIVATE POPUP Ajutor

	*----------------------------------
	DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF Ajutor PROMPT "\<Instructiuni de utilizare"
	ON SELECTION BAR 1 OF Ajutor DO BAR_1_OF_Ajutor_FB2P

	DEFINE BAR 2 OF Ajutor PROMPT "\-"
	ON BAR 2 OF Ajutor ACTIVATE POPUP _1gf0kwo4s

		*----------------------------------
		DEFINE POPUP _1gf0kwo4s MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 3 OF Ajutor PROMPT "\<Grupe de amortizare"
	ON SELECTION BAR 3 OF Ajutor DO BAR_3_OF_Ajutor_FB2P

	DEFINE BAR 4 OF Ajutor PROMPT "\<Grupe de amortizare - 2005"
	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 _0030m57rm

		*----------------------------------
		DEFINE POPUP _0030m57rm MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 6 OF Ajutor PROMPT "\<Despre program..."
	ON SELECTION BAR 6 OF Ajutor DO BAR_6_OF_Ajutor_FB2P

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_OptiuniSis_FB2P
	OSC=CREATE('schimbparola')
	OSC.SHOW(1)
ENDPROC && BAR_1_OF_OptiuniSis_FB2P

PROCEDURE BAR_2_OF_OptiuniSis_FB2P
	OP=CREATE('parola')
	OP.SHOW(1)
	
	if corect
	or=create('redirect')
	or.show(1)
	endif
	
ENDPROC && BAR_2_OF_OptiuniSis_FB2P

PROCEDURE BAR_3_OF_Utile_FB2P
	DO reindexare.prg WITH ['GCAPPPATH'$UPPER(CALEALFA)]
ENDPROC && BAR_3_OF_Utile_FB2P

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

PROCEDURE BAR_6_OF_Utile_FB2P
	ocal=crea('diary')
	ocal.show(1)
ENDPROC && BAR_6_OF_Utile_FB2P

PROCEDURE BAR_7_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_7_OF_Utile_FB2P

PROCEDURE BAR_9_OF_Utile_FB2P
	quit
ENDPROC && BAR_9_OF_Utile_FB2P

PROCEDURE BAR_1_OF_Initializa_FB2P
	LOCAL LL,AA
	LL=M.NL
	AA=M.AN
	
	osp=crea('seriaper')
	osp.show(1)
	
	M.AN=AA
	M.NL=LL
	*OSTART.SHOW(1)
ENDPROC && BAR_1_OF_Initializa_FB2P

PROCEDURE BAR_4_OF_Initializa_FB2P
	
	PRIVATE pnLunaMax,pnAnMax,pnLunaNew,pnAnNew,pcLunaMax,pcAnMax,pcLunaNew,pcAnNew,pcNumeLuna
	LOCAL lcAnCrt, lcLunaCrt
	
	lcAnCrt = m.an
	lcLunaCrt = m.nl
	
	SELE CALENDAR
	GOTO BOTTOM
	
	pcLunaMax = nl
	pcAnMax = AN
	pnLunaMax=VAL(pcLunaMax)
	pnAnMax=VAL(pcAnMax)
	
	IF pnLunaMax = 12 THEN
		pnAnNew = pnAnMax+1
		pnLunaNew = 1
		pcAnNew = ALLTRIM(STR(pnAnNew))
		pcLunaNew = '01'
	ELSE 
		pnAnNew = pnAnMax
		pnLunaNew = pnLunaMax + 1
		pcAnNew = pcAnMax
		pcLunaNew = PADL(ALLTRIM(STR(pnLunaNew)),2,'0')
	ENDIF 
	
	SELE lunilean
	SEEK(pcLunaNew)
	pcNumeLuna = ALLTRIM(numeluna)
	
	oT=CREATEOBJ("TEXTR")
	oT.LABEL2.CAPTION = "Deschidere de luna noua:"
	oT.label3.CAPTION = 'Se deschide luna ' + pcNumeLuna + ' ' + pcAnNew + '?'
	oT.label3.FONTBOLD= .T.
	oT.SHOW(1)
	
	IF BUTON=2
		m.an = lcAnCrt 
		m.nl = lcLunaCrt 
		RETURN 
	ENDIF 
	
	*DO DESCHIDL.PRG
	DO deschid_luna_noua WITH pcAnNew, pcLunaNew IN redeschidere.prg
	DO redeschid_luna WITH pcAnNew, pcLunaNew IN redeschidere.prg
	
	luna_neplatita=.T.
	
	OT1=CREATEOBJ("TEXT")
	OT1.LABEL2.CAPTION= "Am deschis luna:"
	OT1.label3.CAPTION= pcNumeLuna + ' ' + pcAnNew
	OT1.label3.FONTBOLD=.T.
	OT1.SHOW(1)
	
	lcFscurt = ALLTRIM(nfscurt)
	lcFisS = "start_meniuri"
	lcFisF = "sfirma"
	adfirmaluna(lcFscurt,pcAnNew,pcLunaNew,lcFisS)
	adfirmaluna(lcFscurt,pcAnNew,pcLunaNew,lcFisF)
		
	NUMEFIRMA=UPPER(RTRIM(m.flung))
	capapl = gcAppCaption + "    Firma "+ NUMEFIRMA + "- Luna contabila: "+ pcNumeLuna + ' ' + pcAnNew
	goApp.SetCaption(capapl)
	
	DO totv
	
	
	
	
ENDPROC && BAR_4_OF_Initializa_FB2P

PROCEDURE BAR_5_OF_Initializa_FB2P
	*do redeschid
	DO redeschid_luna IN redeschidere.prg
ENDPROC && BAR_5_OF_Initializa_FB2P

PROCEDURE BAR_6_OF_Initializa_FB2P
	do form startfirma
ENDPROC && BAR_6_OF_Initializa_FB2P

PROCEDURE BAR_1_OF_Blocaredel_FB2P
	*!*	orp=CREATE('parola')
	*!*	orp.SHOW(1)
	*!*	IF buton=3
		SELECT calendar
		GO BOTTOM  
		DO FORM inchidluni
	*!*	ENDIF
	
	
ENDPROC && BAR_1_OF_Blocaredel_FB2P

PROCEDURE BAR_10_OF_Initializa_FB2P
	oge=create('afgest')
	oge.show(1)
ENDPROC && BAR_10_OF_Initializa_FB2P

PROCEDURE BAR_11_OF_Initializa_FB2P
	ose=create('nom_sectii')
	ose.show(1)
ENDPROC && BAR_11_OF_Initializa_FB2P

PROCEDURE BAR_13_OF_Initializa_FB2P
	DO FORM conversie
ENDPROC && BAR_13_OF_Initializa_FB2P

PROCEDURE BAR_14_OF_Initializa_FB2P
	DO FORM contamort
ENDPROC && BAR_14_OF_Initializa_FB2P

PROCEDURE BAR_15_OF_Initializa_FB2P
	DO FORM conversie_2005
ENDPROC && BAR_15_OF_Initializa_FB2P

PROCEDURE BAR_17_OF_Initializa_FB2P
	opt = CREATEOBJECT('frm_optiuni')
	opt.show(1)
ENDPROC && BAR_17_OF_Initializa_FB2P

PROCEDURE BAR_1_OF_Ajutor_FB2P
	*!*	*oh=create('help_leg')
	*!*	*oh.show(1)
	*!*	IF FILE('&dirgen\imob2003\help\ajutor_imob.exe')
	*!*	CD &dirgen\imob2003\help
	*!*	RUN /n ajutor_imob.exe
	*!*	ELSE
	*!*	DO mesaj WITH 'Programul de ajutor nu a fost instalat',''
	*!*	endif
	LOCAL cSite
	cSite = ADDBS(dirgen)+"manual\prezentare_imob.htm"
	IF !FILE(csite)
		DO mesaj WITH "Nu a fost instalat manualul de utilizare",""
		RETURN
	ENDIF 
	oBrowser=CREATEOBJECT("internetexplorer.application")
	oBrowser.Navigate(cSite)
	oBrowser.Visible = .T.
ENDPROC && BAR_1_OF_Ajutor_FB2P

PROCEDURE BAR_3_OF_Ajutor_FB2P
	SELE norma
	SCATTER NAME onorma BLANK 
	otr=CREATEOBJECT('normatree')
	*otr.cmdtermin1.caption='\<TERMINAT'
	otr.show(1)
ENDPROC && BAR_3_OF_Ajutor_FB2P

PROCEDURE BAR_4_OF_Ajutor_FB2P
	SELE norma_2005
	SCATTER NAME onorma BLANK 
	otr=CREATEOBJECT('normatree_2005')
	otr.show(1)
ENDPROC && BAR_4_OF_Ajutor_FB2P

PROCEDURE BAR_6_OF_Ajutor_FB2P
	DO FORM FRM_ABOUT
ENDPROC && BAR_6_OF_Ajutor_FB2P

*</Procedures>