*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="startfirma.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment 
 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />

	*<PropValue>
		Name = "Dataenvironment"
	*</PropValue>

ENDDEFINE

DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdrenunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: seriadebaza
		*p: ttanul
		*p: ttfirma
		*p: ttluna
	*</DefinedPropArrayMethod>

	*<PropValue>
		AutoCenter = .T.
		BackColor = 255,255,255
		BorderStyle = 2
		DoCreate = .T.
		Height = 474
		Name = "Ffergen1"
		Picture = 
		Width = 500
		WindowType = 1
		Line1.Name = "Line1"
	*</PropValue>

	ADD OBJECT 'Cmdrenunt1' AS cmdrenunt WITH ;
		Left = 305, ;
		Name = "Cmdrenunt1", ;
		TabIndex = 12, ;
		Top = 432
		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
		Left = 396, ;
		Name = "Cmdtermin1", ;
		TabIndex = 11, ;
		Top = 432
		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Label1' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,0,0, ;
		BackStyle = 0, ;
		Caption = "Bun Venit! ", ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontName = "Comic Sans MS", ;
		FontShadow = .F., ;
		FontSize = 18, ;
		ForeColor = 255,0,0, ;
		Height = 37, ;
		Left = 48, ;
		Name = "Label1", ;
		TabIndex = 24, ;
		Top = 60, ;
		Width = 128, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label10' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 0,0,0, ;
		BackStyle = 0, ;
		Caption = "CONT 2003", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 23, ;
		ForeColor = 0,0,0, ;
		Height = 39, ;
		Left = 21, ;
		Name = "Label10", ;
		TabIndex = 23, ;
		Top = 20, ;
		Width = 185, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label11' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 0,0,0, ;
		BackStyle = 0, ;
		Caption = "Anul:", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Height = 22, ;
		Left = 112, ;
		Name = "Label11", ;
		TabIndex = 16, ;
		Top = 403, ;
		Width = 44, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label12' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 0,0,0, ;
		BackStyle = 0, ;
		Caption = "Strada:", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Height = 22, ;
		Left = 94, ;
		Name = "Label12", ;
		TabIndex = 19, ;
		Top = 296, ;
		Width = 62, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label13' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 0,0,0, ;
		BackStyle = 0, ;
		Caption = "Numarul:", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Height = 22, ;
		Left = 80, ;
		Name = "Label13", ;
		TabIndex = 17, ;
		Top = 321, ;
		Width = 74, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 0,0,0, ;
		BackStyle = 0, ;
		Caption = "CONT 2003", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 23, ;
		ForeColor = 0,0,0, ;
		Height = 39, ;
		Left = 22, ;
		Name = "Label2", ;
		TabIndex = 13, ;
		Top = 18, ;
		Width = 185, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 0,0,0, ;
		BackStyle = 0, ;
		Caption = "Luna contabila:", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Height = 22, ;
		Left = 30, ;
		Name = "Label3", ;
		TabIndex = 20, ;
		Top = 373, ;
		Width = 126, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 0,0,0, ;
		BackStyle = 0, ;
		Caption = "Cod fiscal:", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Height = 22, ;
		Left = 71, ;
		Name = "Label4", ;
		TabIndex = 22, ;
		Top = 150, ;
		Width = 87, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 0,0,0, ;
		BackStyle = 0, ;
		Caption = "Nr. Inreg. R.C.:", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Height = 22, ;
		Left = 32, ;
		Name = "Label5", ;
		TabIndex = 14, ;
		Top = 177, ;
		Width = 123, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 0,0,0, ;
		BackStyle = 0, ;
		Caption = "Banca:", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Height = 22, ;
		Left = 97, ;
		Name = "Label6", ;
		TabIndex = 21, ;
		Top = 204, ;
		Width = 59, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 0,0,0, ;
		BackStyle = 0, ;
		Caption = "Cont bancar:", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Height = 22, ;
		Left = 49, ;
		Name = "Label7", ;
		TabIndex = 15, ;
		Top = 230, ;
		Width = 106, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label8' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 0,0,0, ;
		BackStyle = 0, ;
		Caption = "Localitatea:", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Height = 22, ;
		Left = 60, ;
		Name = "Label8", ;
		TabIndex = 18, ;
		Top = 269, ;
		Width = 97, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label9' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 0,0,0, ;
		BackStyle = 0, ;
		Caption = "Numele firmei: ", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Height = 22, ;
		Left = 42, ;
		Name = "Label9", ;
		TabIndex = 25, ;
		Top = 122, ;
		Width = 122, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		BackStyle = 0, ;
		Height = 458, ;
		Left = 10, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 8, ;
		Width = 480, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		Height = 0, ;
		Left = 10, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 356, ;
		Width = 480, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 254,255,240, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.cod_fiscal", ;
		FontName = "BankGothic Md BT", ;
		FontSize = 11, ;
		Format = "K", ;
		Height = 23, ;
		Left = 192, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		TabIndex = 2, ;
		Top = 148, ;
		Value = , ;
		Width = 225, ;
		ZOrderSet = 25
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text10' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 254,255,240, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.numar", ;
		FontName = "BankGothic Md BT", ;
		FontSize = 11, ;
		Format = "K", ;
		Height = 23, ;
		Left = 192, ;
		Name = "Text10", ;
		ReadOnly = .F., ;
		TabIndex = 8, ;
		Top = 319, ;
		Value = , ;
		Width = 102, ;
		ZOrderSet = 26
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 254,255,240, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.luU", ;
		FontName = "BankGothic Md BT", ;
		FontSize = 11, ;
		Format = "K", ;
		Height = 23, ;
		Left = 192, ;
		Name = "Text2", ;
		ReadOnly = .F., ;
		TabIndex = 9, ;
		ToolTipText = "Introduceti (in cifre) numarul lunii contabile cu care doriti sa incepeti.", ;
		Top = 371, ;
		Value = , ;
		Width = 102, ;
		ZOrderSet = 25
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 254,255,240, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.an", ;
		FontName = "BankGothic Md BT", ;
		FontSize = 11, ;
		Format = "K", ;
		Height = 23, ;
		Left = 192, ;
		Name = "Text3", ;
		ReadOnly = .F., ;
		TabIndex = 10, ;
		ToolTipText = "Introduceti anul (inclusiv secolul).", ;
		Top = 401, ;
		Value = , ;
		Width = 102, ;
		ZOrderSet = 26
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 254,255,240, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.flung", ;
		FontName = "BankGothic Md BT", ;
		FontSize = 11, ;
		Format = "K!", ;
		Height = 23, ;
		Left = 192, ;
		Name = "Text4", ;
		ReadOnly = .F., ;
		TabIndex = 1, ;
		ToolTipText = "Introduceti numele complet al noii firme", ;
		Top = 120, ;
		Value = , ;
		Width = 225, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text5' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 254,255,240, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.reg_com", ;
		FontName = "BankGothic Md BT", ;
		FontSize = 11, ;
		Format = "K!", ;
		Height = 23, ;
		Left = 192, ;
		Name = "Text5", ;
		ReadOnly = .F., ;
		TabIndex = 3, ;
		Top = 175, ;
		Value = , ;
		Width = 225, ;
		ZOrderSet = 26
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text6' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 254,255,240, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.banca", ;
		FontName = "BankGothic Md BT", ;
		FontSize = 11, ;
		Format = "K!", ;
		Height = 23, ;
		Left = 192, ;
		Name = "Text6", ;
		ReadOnly = .F., ;
		TabIndex = 4, ;
		Top = 202, ;
		Value = , ;
		Width = 225, ;
		ZOrderSet = 25
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text7' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 254,255,240, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.cont_banca", ;
		FontName = "BankGothic Md BT", ;
		FontSize = 11, ;
		Format = "K", ;
		Height = 23, ;
		Left = 192, ;
		Name = "Text7", ;
		ReadOnly = .F., ;
		TabIndex = 5, ;
		Top = 228, ;
		Value = , ;
		Width = 225, ;
		ZOrderSet = 26
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text8' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 254,255,240, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.localitate", ;
		FontName = "BankGothic Md BT", ;
		FontSize = 11, ;
		Format = "K!", ;
		Height = 23, ;
		Left = 192, ;
		Name = "Text8", ;
		ReadOnly = .F., ;
		TabIndex = 6, ;
		Top = 267, ;
		Value = , ;
		Width = 225, ;
		ZOrderSet = 26
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text9' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 254,255,240, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.strada", ;
		FontName = "BankGothic Md BT", ;
		FontSize = 11, ;
		Format = "K!", ;
		Height = 23, ;
		Left = 192, ;
		Name = "Text9", ;
		ReadOnly = .F., ;
		TabIndex = 7, ;
		Top = 293, ;
		Value = , ;
		Width = 225, ;
		ZOrderSet = 25
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Activate
		*public m.luU,M.FSCURT
		m.luU=alltrim(STR(MONTH(DATE())))
		m.luu=right(alltrim('0'+m.luu),2)
		
		*M.AN=ALLTRIM(STR(YEAR(DATE())))
		M.AN=STR(YEAR(DATE()),4)
		m.nl=m.luu
		
		
	ENDPROC

	PROCEDURE seriadebaza
		LOCAL SB,SN,I,T,TIPAR
		STORE '' TO SB,SN
		T=RAND(-1)
		*TIPAR='VOICUIONEMIL'
		
		DO seriadebaza IN proceduri.prg
		
		
		*!*	FOR I=1 TO 5
		*!*	SB=SB+LITERA()
		*!*	NEXT
		
		*!*	SELE CUL
		*!*	REPL RED WITH SB
		*!*	SN=GREEN
		
		
		*!*	IF SUBSTR(SN,3,1)=SUBSTR(SB,1,1) AND;
		*!*	SUBSTR(SN,6,1)=SUBSTR(SB,2,1) AND;
		*!*	SUBSTR(SN,9,1)=SUBSTR(SB,3,1) AND;
		*!*	SUBSTR(SN,12,1)=SUBSTR(SB,4,1) AND;
		*!*	SUBSTR(SN,15,1)=SUBSTR(SB,5,1) AND;
		*!*	SUBSTR(SN,VAL(M.NL)+floor((VAL(M.NL)-1)/2),1)=SUBSTR(TIPAR,VAL(M.NL),1)
		*!*	*DO MESAJ WITH 'Seria este corecta',''
		*!*	RETURN
		*!*	ELSE
		
		*!*	FOR I=1 TO 17
		*!*	SN=SN+LITERA()
		*!*	NEXT
		
		*!*	FOR I=1 TO 5
		*!*	SN=STUFF(SN, I*3, 1, SUBSTR(SB,I,1))
		*!*	NEXT
		*!*	SN=STUFF(SN, VAL(M.NL)+floor((VAL(M.NL)-1)/2), 1, SUBSTR(TIPAR,VAL(M.NL),1))
		
		*!*	SELE CUL
		*!*	REPL GREEN WITH SN
		*!*	ENDIF
	ENDPROC

	PROCEDURE Cmdtermin1.Click
		*DO NOT RELEASE
	ENDPROC

	PROCEDURE Cmdtermin1.Valid
		PUBLIC LAN,LLUN
		LOCAL I,J,NI
		LAN='AN'+M.AN
		LLUN='DATE'+M.NL
		I=.F.
		
		*SCRIE NUMELE SCURT AL FIRMEI___________________
		sele firma
		M.firma=upper(alltrim(m.flung))
		M.FSCURT=M.FIRMA
		M.fscurt=upper(alltrim(m.fSCURT))+space(7)
		M.fscurt=ALLTRIM(LEFT(ALLTRIM(M.fscurt),8))
		M.FSCURT=CHRTRAN(M.FSCURT,SPACE(8),'________')
		
		tt='Numele noii firme nu trebuie sa coincida cu numele altor firme. '+;
		'O firma al carui nume incepe cu <'+LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+;
		'> exista deja! '+;
			'Este important ca primele 8 caractere sa fie diferite de <'
		IF LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)!=LEFT(m.fscurt+"________",8)
		ttt=LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+'> sau <'+LEFT(m.fscurt+"________",8)+'>.'
		ELSE
		ttt=LEFT(m.fscurt+"________",8)+'>.'
		endif
		
		*!*	SCAN
		*!*	IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA)) OR UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt)) THEN 
		*!*		I=.T.
		*!*		omm=crea('textmare')
		*!*		omm.label2.caption=tt+ttt
		*!*		omm.show(1)
		*!*		RETURN
		*!*	ENDIF
		*!*	ENDSCAN
		SCAN
		IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA)) 
			I=.T.
			omm=crea('textmare')
			omm.label2.caption='Numele noii firme nu trebuie sa coincida cu numele altor firme.'
			omm.show(1)
			RETURN
		ENDIF
		ENDSCAN
		
		SCAN
		IF UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt)) 
			I=.T.
		m.fscurt=LEFT(m.fscurt,2)+LEFT(STRTRAN(TIME(),':',''),6)
		exit
		ENDIF
		ENDSCAN
		
		
		
		*DACA FIRMA NU EXISTA DEJA_______________
			IF !I
		appe blank
		NFSCURT=M.FSCURT
		m.calefirm=dirgen+'\'+nfscurt
		calefirma=m.calefirm
		*m.loctempo='C:\CONTAFIN\TEMP\'
		GATHER MEMVAR
		repl permis with '*'
		REPL locTEMPO WITH '&DIRGEN\'
		
		*CONSTRUIESC ARBORE FISIERE FIRMA NOUA______________________________
		set defa to c:
		if !directory('contafin')
		md contafin
		endif
		set defa to c:\contafin
		if !directory('temp')
		md temp
		endif
		set defa to c:\contafin\temp
		MD &NFSCURT
		set defa to c:\contafin\temp\&nfscurt
		md tempo
		SET DEFA TO &DIRGEN
		
		SET DEFA TO &DIRGEN
		MD &NFSCURT
		CD &NFSCURT
		MD DATEAN
		MD LUNA
		MD TEMPO
		MD &LAN
		CD &LAN
		MD &LLUN
		*COPIEZ FISIERELE STANDARD__________________
		close database
		SET DEFA TO &DIRGEN
		COPY FILE _ALFA\DATEAN\*.* TO &NFSCURT\DATEAN\*.*
		COPY FILE _ALFA\LUNA\*.* TO &NFSCURT\LUNA\*.*
		COPY FILE _ALFA\TEMPO\*.* TO &NFSCURT\TEMPO\*.*
		COPY FILE _ALFA\AN0000\DATE00\*.* TO &NFSCURT\&LAN\&LLUN\*.*
		COPY FILE _ALFA\TEMPO\*.* TO c:\contafin\temp\&NFSCURT\TEMPO\*.*
		
		
		*SCRIU IN CALENDAR___________________
		DIRFIRM=DIRGEN+NFSCURT
		sele 0
		USE &calefirma\DATEAN\CALENDAR alias cal
		APPE BLANK
		REPL NL WITH M.NL
		REPL AN WITH M.AN
		REPL SCONT WITH .T.
		M.antet=ALLTRIM(M.FLUNG)
		
		THISFORM.RELEASE
		*____________
			ENDIF
			
		DO TOTV
		
		THISFORM.SERIADEBAZA
		
		SELE LUNILEAN
		SEEK (M.NL)
		M.LUNA=NUMELUNA
		
		*schimb titlul__________________
		capapl="CONT2000      Firma "+UPPER(rTRIM(m.flung))+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN
		goApp.SetCaption(capapl)	
			
		
	ENDPROC

	PROCEDURE Text2.Valid
		m.nl=RIGHT('0'+ALLTRIM(m.lUU),2)
		
		
		
		
	ENDPROC

	PROCEDURE Text3.Valid
		M.AN=ALLTRIM(THIS.VALUE)
		
	ENDPROC

	PROCEDURE Text4.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
	ENDPROC

	PROCEDURE Text4.Valid
		if alltrim(m.flung)=="" then
			wait wind "Introduceti numele firmei!"
			return 0
		endif
		
	ENDPROC

	PROCEDURE Text4.When
		*thisform.label8.caption=thisform.ttFIRMA
	ENDPROC

ENDDEFINE