*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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="" /> * *p: ccod_mf *p: nnorma_max *p: nnorma_maxl *p: nnorma_min *p: nnorma_minl * * 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" * 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