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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: dezactiv
		*p: e1
		*p: e2
		*p: e3
	*</DefinedPropArrayMethod>

	*<PropValue>
		AutoCenter = .T.
		BorderStyle = 3
		Caption = ""
		Closable = .F.
		ControlBox = .F.
		DoCreate = .T.
		HalfHeightCaption = .T.
		Height = 251
		MaxButton = .F.
		MinButton = .F.
		Movable = .T.
		Name = "cautalf"
		ShowTips = .T.
		Width = 334
		WindowState = 0
		WindowType = 1
	*</PropValue>

	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
		Height = 24, ;
		Left = 228, ;
		Name = "CMDTERMIN1", ;
		TabIndex = 3, ;
		Top = 176, ;
		Width = 80, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		AutoSize = .F., ;
		Caption = "", ;
		FontBold = .T., ;
		Height = 24, ;
		Left = 20, ;
		Name = "Command1", ;
		Picture = ..\grafice\new.bmp, ;
		StatusBarText = "Nume nou", ;
		TabIndex = 6, ;
		ToolTipText = "Nume nou", ;
		Top = 176, ;
		Width = 30
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command2' AS commandbutton WITH ;
		Caption = "", ;
		FontBold = .T., ;
		Height = 24, ;
		Left = 82, ;
		Name = "Command2", ;
		Picture = ..\grafice\edit1.bmp, ;
		StatusBarText = "Modificare", ;
		TabIndex = 4, ;
		ToolTipText = "Modificare", ;
		Top = 176, ;
		Width = 30
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Caption = "", ;
		FontBold = .T., ;
		Height = 24, ;
		Left = 51, ;
		Name = "Command3", ;
		Picture = ..\grafice\delete.bmp, ;
		StatusBarText = "Stergere", ;
		TabIndex = 5, ;
		ToolTipText = "Stergere", ;
		Top = 176, ;
		Width = 30
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		AllowHeaderSizing = .F., ;
		AllowRowSizing = .F., ;
		BackColor = 255,255,255, ;
		ColumnCount = 2, ;
		DeleteMark = .F., ;
		GridLineColor = 255,255,255, ;
		Height = 108, ;
		Left = 9, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "", ;
		ScrollBars = 2, ;
		TabIndex = 2, ;
		Top = 66, ;
		Width = 315, ;
		Column1.BackColor = 255,255,255, ;
		Column1.ControlSource = "", ;
		Column1.Format = "!", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 209, ;
		Column2.BackColor = 255,255,255, ;
		Column2.ControlSource = "", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Visible = .F., ;
		Column2.Width = 73
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
		Caption = "Denumire", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod fiscal", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1' AS pageframe WITH ;
		ActivePage = 1, ;
		ErasePage = .T., ;
		Height = 216, ;
		Left = 0, ;
		Name = "Pageframe1", ;
		PageCount = 6, ;
		TabIndex = 1, ;
		Tabs = .T., ;
		TabStretch = 0, ;
		TabStyle = 0, ;
		Top = 0, ;
		Width = 336, ;
		Page1.Caption = "A", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "B", ;
		Page2.Name = "Page2", ;
		Page3.Caption = "C", ;
		Page3.Name = "Page3", ;
		Page4.Caption = "D", ;
		Page4.Name = "Page4", ;
		Page5.Caption = "E", ;
		Page5.Name = "Page5", ;
		Page6.Caption = "F", ;
		Page6.Name = "Page6"
		*< END OBJECT: BaseClass="pageframe" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 143, ;
		Left = 4, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 61, ;
		Width = 325
		*< END OBJECT: BaseClass="shape" />
	
	PROCEDURE dezactiv
		PARAMETERS L
		THISFORM.CMDTERMIN1.ENABLED=L
		if !L 
			THISFORM.COMMAND1.ENABLED=L
			THISFORM.COMMAND2.ENABLED=L
			THISFORM.COMMAND3.ENABLED=L
		ELSE
			THISFORM.COMMAND1.ENABLED=THIS.E1
			THISFORM.COMMAND2.ENABLED=THIS.E2
			THISFORM.COMMAND3.ENABLED=THIS.E3
		ENDIF
			
		
	ENDPROC

	PROCEDURE Init
		public buton
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		local c,n1,n2,n3,N4
		c=THISFORM.CAPTION
		n1='NUMELE FURNIZORULUI'
		n2='NUMELE CLIENTULUI'
		n3='MODIFICARI FURNIZORI'
		N4='MODIFICARI CLIENTI'
		
		IF INLIST(c,n1,n2,n3,N4)
		thisform.grid1.column2.visible=.t.
		endif
		
		do case
			case inlist(c,n1,n3)
			  thisform.grid1.column2.controlsource='cod_fiscal'
			case inlist(c,n2,n4)
			  thisform.grid1.column2.controlsource='cod_fisc'
		endcase
		
		if !inlist(c,'FELUL DOCUMENTULUI','NUMELE LUCRARII','NUMELE ACTIVITATII',n3,N4)
			THIS.COMMAND3.ENABLED=.F.
			THIS.COMMAND2.ENABLED=.F.
		ENDIF
		if inlist(c,n3,N4)
			THIS.COMMAND1.ENABLED=.F.
		ENDIF
		
		THIS.e1=THIS.COMMAND1.ENABLED
		THIS.e2=THIS.COMMAND2.ENABLED
		THIS.e3=THIS.COMMAND3.ENABLED
	ENDPROC

	PROCEDURE Command1.Click
		THISFORM.DEZACTIV(.F.)
		local c,CS
		c=THISFORM.CAPTION
		CS='onm.text1.controlsource="M.'+THISFORM.GRID1.COLUMN1.CONTROLSOURCE+'"'
		
		APPE BLANK
		IF INLIST(c,'NUMELE FURNIZORULUI','NUMELE CLIENTULUI')
			ONM=CREATEOBJECT("NOUMODI_CODF")
			onm.caption='NUME NOU'
			onm.text1.controlsource='M.NUME'
			if c=='NUMELE FURNIZORULUI'
				onm.text2.controlsource='m.cod_fiscal'
			endif
			if c=='NUMELE CLIENTULUI'
				onm.text2.controlsource='m.cod_fisc'
			endif
			ONM.SHOW(1)
		
		   ELSE
			ONM=CREATEOBJECT("NOUMODI")
			onm.caption='NUME NOU'
			&CS
			ONM.SHOW(1)
		ENDIF
		THISFORM.DEZACTIV(.T.)
		THISFORM.PAGEFRAME1.REFRESH
	ENDPROC

	PROCEDURE Command2.Click
		local CS,c
		CS='onm.text1.controlsource="M.'+THISFORM.GRID1.COLUMN1.CONTROLSOURCE+'"'
		c=thisform.caption
		
		THISFORM.DEZACTIV(.F.)
		
		DO CASE
		  CASE INLIST(C,'NUMELE FURNIZORULUI','NUMELE CLIENTULUI')
			ONM=CREATEOBJECT("NOUMODI_CODF")
			onm.caption='MODIFICARE'
			ONM.LABEL1.CAPTION="Modificati:"
			onm.text1.controlsource='M.NUME'
			if INLIST(C,'NUMELE FURNIZORULUI')
				onm.text2.controlsource='m.cod_fiscal'
			endif
			ONM.SHOW(1)
			
		  CASE INLIST(C,'MODIFICARI FURNIZORI','MODIFICARI CLIENTI')
			ONM=CREATEOBJECT("modianalit")
			onm.caption='MODIFICARE'
		*	onm.text1.controlsource='M.NUME'
			if INLIST(C,'MODIFICARI FURNIZORI')
				onm.text2.controlsource='m.cod_fiscal'
			endif
			if INLIST(C,'MODIFICARI CLIENTI')
				onm.text2.controlsource='m.cod_fisc'
			endif
		
			ONM.SHOW(1)
		
		*	SCATTER MEMVAR
		*	codnou=m.cod_fiscal
			if buton==1
				THISFORM.RELEASE
				do mesaj with 'Modificarea s-a efectuat',''
			endif
			
		  OTHERWISE
			ONM=CREATEOBJECT("NOUMODI")
			onm.caption='MODIFICARE'
			&CS
			ONM.LABEL1.CAPTION="Modificati:"
			ONM.SHOW(1)
		
		ENDCASE
		
		THISFORM.DEZACTIV(.T.)
		THISFORM.PAGEFRAME1.REFRESH
		
		
	ENDPROC

	PROCEDURE Command3.Click
		local CS
		CS='onm.text1.controlsource="M.'+THISFORM.GRID1.COLUMN1.CONTROLSOURCE+'"'
		
		THISFORM.DEZACTIV(.F.)
		
		ONM=CREATEOBJECT("NOUMODI")
		onm.caption='STERGERE'
		ONM.LABEL1.CAPTION="Stergeti:"
		&CS
		ONM.TEXT1.READONLY=.T.
		ONM.SHOW(1)
		go bottom
		
		THISFORM.DEZACTIV(.T.)
		THISFORM.PAGEFRAME1.REFRESH
	ENDPROC

	PROCEDURE Grid1.Column1.Text1.KeyPress
		LPARAMETERS nKey, nShiftAltCtrl
		LOCAL NP,T
		
			if nkey==13 then
				scatter memvar
				THISFORM.release
			endif
			
			IF nkey>=97 AND NKEY<=122
				S=UPPER(CHR(NKEY))
				NP=ALLTRIM(STR(NKEY-96))
				T='THISFORM.PAGEFRAME1.ACTIVEPAGE='+NP
				&T
				THISFORM.PAGEFRAME1.REFRESH
			ENDIF
			
			IF nkey>=65 AND NKEY<=90
				S=UPPER(CHR(NKEY))
				NP=ALLTRIM(STR(NKEY-64))
				T='THISFORM.PAGEFRAME1.ACTIVEPAGE='+NP
				&T
				THISFORM.PAGEFRAME1.REFRESH
			ENDIF
			
			IF nkey==32
				S=' '
				THISFORM.PAGEFRAME1.ACTIVEPAGE=27
				THISFORM.PAGEFRAME1.REFRESH
			ENDIF
	ENDPROC

	PROCEDURE Grid1.Init
		*LOCAL L
		*CIMP=THISFORM.GRID1.COLUMN1.CONTROLSOURCE
		*L="SET FILTER TO !deleted() and left("+CIMP+",2)#'  '"
		*&L
		
	ENDPROC

	PROCEDURE Pageframe1.Init
		PUBLIC S
		S=" "
		
	ENDPROC

	PROCEDURE Pageframe1.Page1.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page2.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page3.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page4.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page5.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page6.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Refresh
		LOCAL L,L1
		CIMP=THISFORM.GRID1.COLUMN2.CONTROLSOURCE
		L="SET FILTER TO !deleted() and left("+CIMP+",5)#space(5)"
		L1=L+" AND upper(left("+CIMP+",1))==upper(S)"
		
		IF S==" " THEN
			&L
			ELSE
			&L1
		ENDIF
		GO TOP
		thisform.grid1.setfocus
	ENDPROC

ENDDEFINE

DEFINE CLASS cautintre AS form 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />

	*<PropValue>
		AutoCenter = .T.
		Caption = " "
		Closable = .F.
		ControlBox = .F.
		DoCreate = .T.
		Height = 109
		MaxButton = .F.
		MinButton = .F.
		Movable = .F.
		Name = "cautintre"
		Width = 340
	*</PropValue>

	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
		Left = 300, ;
		Name = "Cmdtermin1", ;
		TabIndex = 3, ;
		Top = 76, ;
		Imbuton1.Height = 29, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 27, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Label1' AS label WITH ;
		Caption = "Text1", ;
		FontSize = 11, ;
		Height = 17, ;
		Left = 23, ;
		Name = "Label1", ;
		TabIndex = 4, ;
		Top = 15, ;
		Width = 156
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		Caption = "Text2", ;
		FontSize = 11, ;
		Height = 17, ;
		Left = 23, ;
		Name = "Label2", ;
		TabIndex = 5, ;
		Top = 45, ;
		Width = 156
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 67, ;
		Left = 4, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 5, ;
		Width = 332
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "t1", ;
		Format = "k", ;
		Height = 22, ;
		Left = 178, ;
		Name = "Text1", ;
		TabIndex = 1, ;
		Top = 14, ;
		Width = 134
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		ControlSource = "t2", ;
		Format = "k", ;
		Height = 22, ;
		Left = 178, ;
		Name = "Text2", ;
		TabIndex = 2, ;
		Top = 42, ;
		Width = 134
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Activate
		local t1,t2
	ENDPROC

	PROCEDURE Text1.Valid
		thisform.text2.value=thisform.text1.value
		
		thisform.text2.refresh
		
	ENDPROC

	PROCEDURE Text2.Valid
		if thisform.text2.value<thisform.text1.value AND THISFORM.CAPTION#'Scrieti conturile:'
			wait wind "Gresit!"
			return 0
		endif
	ENDPROC

ENDDEFINE

DEFINE CLASS cautlitere AS form 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />

	*<PropValue>
		AutoCenter = .T.
		Caption = ""
		ControlBox = .F.
		DoCreate = .T.
		Height = 87
		Name = "cautlitere"
		Width = 356
	*</PropValue>

	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
		Left = 315, ;
		Name = "Cmdtermin1", ;
		TabIndex = 2, ;
		Top = 53, ;
		Imbuton1.Height = 29, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 27, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Label1' AS label WITH ;
		Caption = "Tastati primele litere: ", ;
		FontSize = 11, ;
		Height = 17, ;
		Left = 24, ;
		Name = "Label1", ;
		TabIndex = 3, ;
		Top = 17, ;
		Width = 156
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 36, ;
		Left = 3, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 7, ;
		Width = 349
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "M.NUME", ;
		Format = "k!", ;
		Height = 24, ;
		Left = 178, ;
		Name = "Text1", ;
		TabIndex = 1, ;
		Top = 14, ;
		Width = 134
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Text1.Valid
		LOCAL L
		L=THIS.CONTROLSOURCE+'=ALLTRIM('+THIS.CONTROLSOURCE+')'
		&L
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cautnorma AS cautalf OF "cautmf.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 440
		Name = "cautnorma"
		Width = 764
		Pageframe1.ActivePage = 7
		Pageframe1.ErasePage = .T.
		Pageframe1.Height = 432
		Pageframe1.Left = 0
		Pageframe1.Name = "Pageframe1"
		Pageframe1.Page1.Caption = "1"
		Pageframe1.Page1.Name = "Page1"
		Pageframe1.Page2.Caption = "2"
		Pageframe1.Page2.Name = "Page2"
		Pageframe1.Page3.Caption = "3"
		Pageframe1.Page3.Name = "Page3"
		Pageframe1.Page4.Caption = "4"
		Pageframe1.Page4.Name = "Page4"
		Pageframe1.Page5.Caption = "5"
		Pageframe1.Page5.Name = "Page5"
		Pageframe1.Page6.Caption = "6"
		Pageframe1.Page6.Name = "Page6"
		Pageframe1.Page7.Caption = " "
		Pageframe1.Page7.Name = "Page7"
		Pageframe1.PageCount = 7
		Pageframe1.TabStyle = 0
		Pageframe1.Top = 0
		Pageframe1.Width = 756
		Shape1.Height = 386
		Shape1.Left = 4
		Shape1.Name = "Shape1"
		Shape1.Top = 34
		Shape1.Width = 740
		Command3.Left = 51
		Command3.Name = "Command3"
		Command3.Top = 149
		Command3.Visible = .F.
		CMDTERMIN1.Left = 660
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.Top = 391
		Command2.Left = 82
		Command2.Name = "Command2"
		Command2.Top = 149
		Command2.Visible = .F.
		Command1.Left = 20
		Command1.Name = "Command1"
		Command1.Top = 149
		Command1.Visible = .F.
		Grid1.Column1.ColumnOrder = 2
		Grid1.Column1.ControlSource = "TEXT"
		Grid1.Column1.ForeColor = 0,0,0
		Grid1.Column1.Header1.Name = "Header1"
		Grid1.Column1.Name = "Column1"
		Grid1.Column1.Text1.ForeColor = 0,0,0
		Grid1.Column1.Text1.Name = "Text1"
		Grid1.Column1.Width = 539
		Grid1.Column2.ColumnOrder = 1
		Grid1.Column2.ControlSource = "CODMF"
		Grid1.Column2.ForeColor = 0,0,0
		Grid1.Column2.Header1.Caption = "Cod"
		Grid1.Column2.Header1.Name = "Header1"
		Grid1.Column2.Name = "Column2"
		Grid1.Column2.Text1.ForeColor = 0,0,0
		Grid1.Column2.Text1.Name = "Text1"
		Grid1.Column2.Text1.Visible = .T.
		Grid1.Column2.Visible = .T.
		Grid1.Column3.Alignment = 1
		Grid1.Column3.ControlSource = "normat"
		Grid1.Column3.ForeColor = 0,0,0
		Grid1.Column3.Name = "Column3"
		Grid1.ColumnCount = 3
		Grid1.ForeColor = 0,0,0
		Grid1.GridLineColor = 192,192,192
		Grid1.Height = 345
		Grid1.Left = 14
		Grid1.Name = "Grid1"
		Grid1.Panel = 1
		Grid1.RecordMark = .T.
		Grid1.RecordSource = "NORMA"
		Grid1.ScrollBars = 3
		Grid1.Top = 39
		Grid1.Width = 720
	*</PropValue>

	ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
		Caption = "Norma", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Show
		LPARAMETERS nStyle
		sele norma
		set filter to
	ENDPROC

	PROCEDURE CMDTERMIN1.Valid
		m.normat=normat
		m.codmf=codmf
	ENDPROC

	PROCEDURE Pageframe1.Init
		PUBLIC S
		S=" "
		
		
		sele norma
		set filter to 
		*thisform.refresh
		*thisform.pageframe1.page1.click
	ENDPROC

	PROCEDURE Pageframe1.Refresh
		*LOCAL L,L1
		*CIMP=THISFORM.GRID1.COLUMN2.CONTROLSOURCE
		*L="SET FILTER TO !deleted() and left("+CIMP+",5)#space(5)"
		*L1=L+" AND upper(left("+CIMP+",1))==upper(S)"
		
		*IF S==" " THEN
		*      SET FILTER TO !deleted() 
		*	ELSE
		*	WAIT WIND S
		*	WAIT WIND left(CODMF,2)
		S=' '+S
		SELE NORMA
			SET FILTER TO left(CODMF,2)==S
			if thisform.pageframe1.activepage=7
			 set filter to
			endif
		*ENDIF
		GO TOP
		thisform.grid1.REFRESH
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Seip1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblTitlu" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboLuna" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblLuna" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblAn" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: go
		*p: calias
		*p: oluna
	*</DefinedPropArrayMethod>

	*<PropValue>
		calias = 
		DoCreate = .T.
		Height = 129
		Name = "frm_sel_luna"
		oluna = .NULL.
		Width = 240
		Line1.Name = "Line1"
	*</PropValue>

	ADD OBJECT 'cboLuna' AS combobox WITH ;
		ColumnCount = 2, ;
		Height = 24, ;
		Left = 24, ;
		Name = "cboLuna", ;
		RowSourceType = 6, ;
		Style = 2, ;
		TabIndex = 1, ;
		Top = 48, ;
		Width = 72, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
		Enabled = .F., ;
		Left = 192, ;
		Name = "CMDTERMIN1", ;
		TabIndex = 2, ;
		Top = 84, ;
		ZOrderSet = 5, ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'lblAn' AS label WITH ;
		BackStyle = 0, ;
		Caption = " ", ;
		FontItalic = .T., ;
		FontSize = 10, ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 171, ;
		Name = "lblAn", ;
		TabIndex = 5, ;
		Top = 52, ;
		Width = 40
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lblLuna' AS label WITH ;
		BackStyle = 0, ;
		Caption = " ", ;
		FontItalic = .T., ;
		FontSize = 10, ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 136, ;
		Name = "lblLuna", ;
		TabIndex = 4, ;
		Top = 52, ;
		Width = 27
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lblTitlu' AS label WITH ;
		BackStyle = 0, ;
		Caption = "Selectati anul si luna de inceput:", ;
		Height = 13, ;
		Left = 24, ;
		Name = "lblTitlu", ;
		TabIndex = 3, ;
		Top = 24, ;
		Width = 192, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Seip1' AS seip WITH ;
		Height = 108, ;
		Left = 12, ;
		Name = "Seip1", ;
		Top = 12, ;
		Width = 216, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
	
	PROCEDURE go
		Select(Thisform.calias)
		With Thisform.oluna
			.nl=nl
			.an=an
		
			Thisform.lblLuna.Caption=.nl
			Thisform.lblAn.Caption=.an
			If !Empty(.nl) And !Empty(.an)
				Thisform.cmdtermin1.Enabled=.T.
			ELSE 
				Thisform.cmdtermin1.Enabled=.F.	
			Endif
		Endwith
		
	ENDPROC

	PROCEDURE cboLuna.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		thisform.go()
	ENDPROC

	PROCEDURE cboLuna.Valid
		thisform.Go()
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oleImagesList" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oleTreeview" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="label10" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 468
		Name = "normatree"
		Width = 722
	*</PropValue>

	ADD OBJECT 'Banda21' AS banda2 WITH ;
		Height = 32, ;
		Left = 0, ;
		Name = "Banda21", ;
		Top = 0, ;
		Width = 651, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />

	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
		Height = 29, ;
		Left = 687, ;
		Name = "CMDTERMIN1", ;
		Top = 2, ;
		Width = 29, ;
		ZOrderSet = 4, ;
		Imbuton1.Height = 29, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 27, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Label1' AS label WITH ;
		BackStyle = 0, ;
		Caption = "D.S.N.", ;
		Comment = "Norma", ;
		Height = 17, ;
		Left = 25, ;
		Name = "Label1", ;
		Top = 430, ;
		Width = 40, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'label10' AS titlufrumos WITH ;
		Caption = "GRUPE DE AMORTIZARE", ;
		Left = 12, ;
		Name = "label10", ;
		Top = 4, ;
		ZOrderSet = 8
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />

	ADD OBJECT 'oleImagesList' AS olecontrol WITH ;
		Height = 45, ;
		Left = 432, ;
		Name = "oleImagesList", ;
		Top = 35, ;
		Width = 65, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\comctl32.ocx" Value="[encoded data, 5464 characters]" />

	ADD OBJECT 'oleTreeview' AS olecontrol WITH ;
		Height = 357, ;
		Left = 24, ;
		Name = "oleTreeview", ;
		Top = 65, ;
		Width = 672, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGAultWFVMUBAwAAAIABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACIAAAAAAAAAAwAAAAIAAAD+////BQAAAP7////+//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+i6BMHCoUbEK/AQhAQKo2nIUM0EggAAAB0RQAA5iQAAI5+4eYCAAUAQAAAANz+biDoAwAAAwAAAAHvzasAAAUATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkdRkABgCCAAAAAAAFAACAFrT2AQ0AAABvAGwAZQBJAG0AYQBnAGUAcwBMAGkAcwB0AAEAAABcAB/e7L0BAAUAAQAAgA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />

	ADD OBJECT 'RENUNT1' AS renunt WITH ;
		Left = 654, ;
		Name = "RENUNT1", ;
		Top = 2, ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		Height = 409, ;
		Left = 12, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 47, ;
		Width = 696, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		BackStyle = 0, ;
		ControlSource = "oNORMA.NORMAan", ;
		Height = 23, ;
		Left = 64, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		Top = 426, ;
		Width = 60, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Activate
		LOCAL J
		
		O=THISFORM.OLETREEVIEW.NODES
		
		SELE NORMA
		SCAN 
		j=fiu
		if j=0
		   O.ADD(,,,allt(codmf)+' '+allt(TEXT),1)
		  else
			if val(normat)=0
				O.ADD(J,4,,allt(codmf)+' '+allt(TEXT),1)
			 else
				O.ADD(J,4,,allt(codmf)+' '+allt(TEXT)+' '+allt(NORMAAN)+' ani',2)
			endif
		endif
		ENDSCAN
		
	ENDPROC

	PROCEDURE oleTreeview.NodeClick
		*** OLE Control Event ***
		Lparameters Node,IND
		IND=This.SelectedItem.Index
		Sele Norma
		Loca For NRCRT=IND
		IF FOUND()
			onorma.NORMAT=NORMAT
			onorma.NORMAan=NORMAan
			onorma.CODMF=CODMF
		ENDIF 
		Thisform.TEXT1.Refresh
		
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oleTreeview" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oleImagesList" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 468
		Name = "normatree_2005"
		Width = 722
	*</PropValue>

	ADD OBJECT 'Banda21' AS banda2 WITH ;
		Height = 32, ;
		Left = 0, ;
		Name = "Banda21", ;
		Top = 0, ;
		Width = 651, ;
		ZOrderSet = 2
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />

	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
		Height = 29, ;
		Left = 687, ;
		Name = "CMDTERMIN1", ;
		Top = 2, ;
		Width = 29, ;
		ZOrderSet = 4, ;
		Imbuton1.Height = 29, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 27, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Label1' AS label WITH ;
		BackStyle = 0, ;
		Caption = "D.N.S.", ;
		Height = 17, ;
		Left = 21, ;
		Name = "Label1", ;
		Top = 432, ;
		Width = 40
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'label10' AS titlufrumos WITH ;
		Caption = "GRUPE DE AMORTIZARE", ;
		Left = 12, ;
		Name = "label10", ;
		Top = 4, ;
		ZOrderSet = 6
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "-", ;
		Height = 17, ;
		Left = 123, ;
		Name = "Label2", ;
		Top = 432, ;
		Width = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Limita inferioara -  superioara", ;
		FontName = "Arial Narrow", ;
		Height = 18, ;
		Left = 56, ;
		Name = "Label3", ;
		Top = 412, ;
		Width = 121
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'oleImagesList' AS olecontrol WITH ;
		Height = 45, ;
		Left = 648, ;
		Name = "oleImagesList", ;
		Top = 36, ;
		Width = 65, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\comctl32.ocx" Value="[encoded data, 5464 characters]" />

	ADD OBJECT 'oleTreeview' AS olecontrol WITH ;
		Height = 361, ;
		Left = 21, ;
		Name = "oleTreeview", ;
		Top = 48, ;
		Width = 681, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADDU8uSFVMUBAwAAAIABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACIAAAAAAAAAAwAAAAIAAAD+////BQAAAP7////+//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+i6BMHCoUbEK/AQhAQKo2nIUM0EggAAABiRgAATyUAAI5+4eYCAAUAQAAAANz+biDoAwAAAwAAAAHvzasAAAUATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABMNBQABgCCAAAAAAAFAACAFrT2AQ0AAABvAGwAZQBJAG0AYQBnAGUAcwBMAGkAcwB0AAEAAABcAB/e7L0BAAUAAQAAgA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />

	ADD OBJECT 'RENUNT1' AS renunt WITH ;
		Left = 654, ;
		Name = "RENUNT1", ;
		Top = 2, ;
		ZOrderSet = 5, ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		Height = 416, ;
		Left = 12, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 41, ;
		Width = 700, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "onorma.norma_min", ;
		Format = "rk", ;
		Height = 23, ;
		InputMask = "9999", ;
		Left = 73, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		Top = 429, ;
		Width = 47
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		ControlSource = "onorma.norma_max", ;
		Format = "rk", ;
		Height = 23, ;
		InputMask = "9999", ;
		Left = 130, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		Top = 429, ;
		Width = 47
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Activate
		Local J
		
		O=Thisform.OLETREEVIEW.NODES
		
		Sele Norma_2005
		Scan
			J=fiu
			If J=0
				O.Add(,,,Allt(codmf)+' '+Allt(Text),1)
			Else
				*!*		if val(normat)=0
				*!*			O.ADD(J,4,,allt(codmf)+' '+allt(TEXT),1)
				*!*		 else
				If !frunza
					O.Add(J,4,,Allt(codmf)+' '+Allt(Text),1)
				Else
					O.ADD(J,4,,allt(codmf)+' '+allt(TEXT)+' '+ALLTRIM(STR(NORMA_min))+" -" +ALLTRIM(STR(NORMA_max))+' ani',2)
				Endif
			Endif
		Endscan
		
	ENDPROC

	PROCEDURE oleTreeview.NodeClick
		*** OLE Control Event ***
		LPARAMETERS node,IND
		IND=THIS.SELECTEDITEM.INDEX
		
		SELE NORMA_2005
		LOCA FOR NRCRT=IND
		IF FOUND()
			onorma.norma_min = norma_min
			onorma.norma_max = norma_max
			onorma.normaan = normaan
			onorma.CODMF=CODMF	
		ENDIF 
		THISFORM.TEXT1.REFRESH
		THISFORM.TEXT2.REFRESH
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdrenunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		Caption = " "
		Closable = .F.
		DoCreate = .T.
		Height = 83
		Name = "noumodi"
		Width = 293
		Line1.Name = "Line1"
	*</PropValue>

	ADD OBJECT 'Cmdrenunt1' AS cmdrenunt WITH ;
		Left = 208, ;
		Name = "Cmdrenunt1", ;
		TabIndex = 3, ;
		Top = 46, ;
		Imbuton1.Height = 26, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 26, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
		Left = 245, ;
		Name = "Cmdtermin1", ;
		TabIndex = 2, ;
		Top = 46, ;
		Imbuton1.Height = 29, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 27, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Label1' AS label WITH ;
		BackStyle = 0, ;
		Caption = "NUME NOU:", ;
		Height = 17, ;
		Left = 9, ;
		Name = "Label1", ;
		TabIndex = 4, ;
		Top = 17, ;
		Width = 72
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Height = 23, ;
		Left = 89, ;
		Name = "Text1", ;
		TabIndex = 1, ;
		Top = 12, ;
		Width = 192
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		*SCAT MEMV
	ENDPROC

ENDDEFINE
