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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="ole_grupe" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_dns_an" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_dns_luni" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_oleimagelist1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: ccod_mf
		*p: nnorma_max
		*p: nnorma_maxl
		*p: nnorma_min
		*p: nnorma_minl
	*</DefinedPropArrayMethod>

	*<PropValue>
		ccod_mf = 
		DoCreate = .T.
		Height = 457
		Name = "frm_norme"
		nnorma_max = 0
		nnorma_maxl = 0
		nnorma_min = 0
		nnorma_minl = 0
		Width = 684
		WindowState = 2
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 684
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 612
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 72
		Lb_titlu_alb_b121.Caption = "CATALOG GRUPE DE AMORTIZARE"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 3
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 650
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 2
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_oleimagelist1' AS _oleimagelist WITH ;
		Height = 38, ;
		Left = 600, ;
		Name = "_oleimagelist1", ;
		Top = 36, ;
		Width = 38
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAyi2NmNsgBAwAAAEABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAD0AAAAAAAAABAAAAAIAAAD+/////v////7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////8jfyQskYXREbFqAMDwKDYoIUM0EggAAADtAwAA7QMAAIB+4eYAAAYAIAAAAAAAAADAwMAA//8AAAHvzasAAAUAXAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAACQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RS04NUZFLTExZDEtOEJFMy0wMDAwRjg3NTREQTFEAEEAOABEADgARgAtADkARAA2AEEALQAxADAAMQBCAC0AQQABAACADAAAAEltYWdlSGVpZ2h0AAkAAABJCgAAAAAAAAALAAAASW1hZ2VXaWR0aAAJAAAASQoAAAAAAAAAAHMAmLseAAYAAAD/////BQAAgAAAAAAAAAAAAAAAAC4AbwBjAHgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Anchor = 9, ;
		Left = 618, ;
		Name = "But_renunt1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_dns_an' AS clb_nr_intre WITH ;
		Anchor = 12, ;
		Left = 83, ;
		Name = "Clb_dns_an", ;
		TabIndex = 4, ;
		TabStop = .F., ;
		Top = 408, ;
		tx_n1.ControlSource = "thisform.nnorma_min", ;
		tx_n1.FontBold = .T., ;
		tx_n1.Name = "tx_n1", ;
		tx_n1.ReadOnly = .T., ;
		Lb_simplu1.Caption = "D.N.S. (ani)", ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		tx_n2.ControlSource = "thisform.nnorma_max", ;
		tx_n2.FontBold = .T., ;
		tx_n2.Name = "tx_n2", ;
		tx_n2.ReadOnly = .T.
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_dns_luni' AS clb_nr_intre WITH ;
		Anchor = 12, ;
		Left = 372, ;
		Name = "Clb_dns_luni", ;
		TabIndex = 4, ;
		TabStop = .F., ;
		Top = 408, ;
		tx_n1.ControlSource = "thisform.nnorma_minl", ;
		tx_n1.FontBold = .T., ;
		tx_n1.Name = "tx_n1", ;
		tx_n1.ReadOnly = .T., ;
		Lb_simplu1.Caption = "D.N.S. (luni)", ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		tx_n2.ControlSource = "thisform.nnorma_maxl", ;
		tx_n2.FontBold = .T., ;
		tx_n2.Name = "tx_n2", ;
		tx_n2.ReadOnly = .T.
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'ole_grupe' AS _olecontrol WITH ;
		Anchor = 15, ;
		Height = 348, ;
		Left = 26, ;
		Name = "ole_grupe", ;
		TabIndex = 1, ;
		Top = 48, ;
		Width = 633
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAyi2NmNsgBAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAagAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAO4AAAAAAAAABAAAAAIAAAD+////BQAAAP7///8GAAAABwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+2kEHHiYXREbFqAMDwKDYoIUM0EggAAABsQQAA+CMAALE8wWoBAAYAIgAAAJwAAADtAwAACAAAAMlSHgAB782rXAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAACQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RS04NUZFLTExZDEtOEJFMy0wMDAwRjg3NTREQTFmAHQAIABXAGkAbgBkAG8AdwBzACAAUgBlAHAAbwByAHQAIAABAACADgAAAEhpZGVTZWxlY3Rpb24ABQAAAEwBAAAADAAAAEluZGVudGF0aW9uABEAAABODQAAAAcAAAAAAAAAAAAFAJhUHgAGAAAAAAAAAAUAAIDk6RIAAQAAAC4AH97svQEABQAo6hIATgBUAFwAUwB5AHMAdABlAG0AMwAyAAAAQ0AKAAAATGluZVN0eWxlAAkAAABJCgAAAAAAAAANAAAATW91c2VQb2ludGVyAAkAAABJCgAAAAAAAAAOAAAAUGF0aFNlcGFyYXRvcgAKAAAASAAAAAABAAAALgYAAABTdHlsZQAJAAAASQoAAAAHAAAADAAAAE9MRURyYWdNb2RlAAkAAABJCgAAAAAAAAAMAAAAT0xFRHJvcE1vZGUACQAAAEkKAAAAAAAAABYAAAAAAAkEAAAAAAAAAAAAAA==" />
	
	PROCEDURE Destroy
		If Used('v_norme')
			Use In v_norme
		Endif
	ENDPROC

	PROCEDURE inainte_de_do_termin
		If Thisform.nnorma_min=0 And Thisform.nnorma_max=0
			aMessagebox("Nu ati ales codul!",0+48,"Atentie")
			Thisform.ole_grupe.SetFocus()
			plreturn=.F.
		Else
			pnnorma_max=Thisform.nnorma_max
			pnnorma_min=Thisform.nnorma_min
			pccod_mf=Thisform.ccod_mf
			plreturn=.T.
		Endif
		Return plreturn
		
	ENDPROC

	PROCEDURE Init
		Dimension a(10)
		Select v_norme
		With Thisform.ole_grupe.Nodes
			Scan
				a(nivel)=Alltrim(cod_mf)
				lcCheie=Chr(64+nivel)+Alltrim(cod_mf)
		&&		lcNorma=Iif(norma_min+norma_max<>0," "+Alltrim(Str(norma_min))+" - "+Alltrim(Str(norma_max))+" ani",'')
				lcNorma=""
				lcText=Alltrim(explicatia)+lcNorma
				If nivel=1
					.Add(,,lcCheie,lcText)				&&	1
				Else
					lcText=Alltrim(cod_mf)+" "+lcText
					lcCod=Chr(64+nivel-1)+a(nivel-1)
					If frunza=1
						.Add(lcCod,4,lcCheie,lcText)	&&	2
					Else
						.Add(lcCod,4,lcCheie,lcText)	&&	1
					Endif
				Endif
			Endscan
		Endwith
	ENDPROC

	PROCEDURE Clb_dns_an.tx_n1.Valid
		*
	ENDPROC

	PROCEDURE Clb_dns_an.tx_n2.Valid
		*
	ENDPROC

	PROCEDURE Clb_dns_luni.tx_n1.Valid
		*
	ENDPROC

	PROCEDURE Clb_dns_luni.tx_n2.Valid
		*
	ENDPROC

	PROCEDURE ole_grupe.NodeClick
		*** ActiveX Control Event ***
		Lparameters Node
		lcCheie=Substr(Node.Key,2)
		Select v_norme
		Locate For cod_mf=lcCheie
		If Found()
			Thisform.ccod_mf=cod_mf
			Thisform.nnorma_min=norma_min
			Thisform.nnorma_max=norma_max
			Thisform.clb_dns_an.Refresh()
			Thisform.nnorma_minl=norma_min*12
			Thisform.nnorma_maxl=norma_max*12
			Thisform.clb_dns_luni.Refresh()
		Endif
	ENDPROC

ENDDEFINE
