203 lines
12 KiB
Plaintext
203 lines
12 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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
|