1322 lines
50 KiB
Plaintext
1322 lines
50 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAABQAAAAYAAAD+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAABtAG0AYQByAHkASQBuAGYAbwByAG0AYQB0AGkAbwBuAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMCnlNWFVMUBAwAAAEAHAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAcgYAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAD0AAAAAAAAAAQAAAP7///8DAAAABAAAAAUAAAAGAAAABwAAAAgAAAAJAAAACgAAAAsAAAAMAAAADQAAAA4AAAAPAAAAEAAAABEAAAASAAAAEwAAABQAAAAVAAAAFgAAABcAAAAYAAAAGQAAABoAAAAbAAAA/v////7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9PAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAFwAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBxaGogWnR1UWhhO2pkZm5baWFldHIgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI+N2lhqnRsQr8BCEBAqjachQzQSCAAAAO0DAADtAwAAgH7h5gIABQAiAAAAEAAQAMDAwAD/////Ae/NqwAABQAQaBYAcgT///////8FAACAAAAAAAIAAAAAAAIAAAABAAAAbHQAAP4CAAAAAAEAAQAgIBAAAAAAAOgCAAAWAAAAKAAAACAAAABAAAAAAQAEAAAAAACAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD/////////////////////M////////////////////zMA//////////////////8zAAD/////////////////MzAAAP///////////////zMwAAAA//////////////8zMAAAAAD/////////////MzMAAAAAAP///////////zMzAAAAAAAA//////////8zMwAAAAAAAAD/////////MzMwAAAAAAAAAP///////zMzMAAAAAAAAAAA//////8zMzAAAAAAAAAAAAD/////MzMzAAAAAAAAAAAAAP///zMzMwAAAAAAAAAAAAAA//8zMzMAAAAAAAAAAAAAAAD/MzMzu7u7u7u7u7u7u7u7/zMzO7u7u7u7u7u7u7u7//8zMzu7u7u7u7u7u7u7////MzM7u7u7u7u7u7u7/////zMzu7u7u7u7u7u7//////8zM7u7u7u7u7u7////////MzO7u7u7u7u7/////////zM7u7u7u7u7//////////8zO7u7u7u7////////////Mzu7u7u7/////////////zO7u7u7//////////////8zu7u7////////////////M7u7/////////////////zu7//////////////////87/////////////////////////////////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAGx0AAD+AgAAAAABAAEAICAQAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAgAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A/////////////////////2b///////////////////9mAP//////////////////ZgAA/////////////////2ZgAAD///////////////9mYAAAAP//////////////ZmAAAAAA/////////////2ZmAAAAAAD///////////9mZgAAAAAAAP//////////ZmYAAAAAAAAA/////////2ZmYAAAAAAAAAD///////9mZmAAAAAAAAAAAP//////ZmZgAAAAAAAAAAAA/////2ZmZgAAAAAAAAAAAAD///9mZmYAAAAAAAAAAAAAAP//ZmZmAAAAAAAAAAAAAAAA/2ZmZu7u7u7u7u7u7u7u7v9mZm7u7u7u7u7u7u7u7v//ZmZu7u7u7u7u7u7u7v///2Zmbu7u7u7u7u7u7v////9mZu7u7u7u7u7u7v//////Zmbu7u7u7u7u7v///////2Zm7u7u7u7u7v////////9mbu7u7u7u7v//////////Zm7u7u7u7v///////////2Zu7u7u7v////////////9m7u7u7v//////////////Zu7u7v///////////////2bu7v////////////////9u7v//////////////////bv////////////////////////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAgAwAAABJbWFnZUhlaWdodAAJAAAASQoAAAAQAAAACwAAAEltYWdlV2lkdGgACQAAAEkKAAAAEAAAAAAAAO7u7v///////////2Zu7u7u7v////////////9m7u7u7v//////////////Zu7u7v///////////////2bu7v////////////////9u7v//////////////////bv////////////////////////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
|
|
|
|
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="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAABQAAAAYAAAD+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAABtAG0AYQByAHkASQBuAGYAbwByAG0AYQB0AGkAbwBuAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADDU8uSFVMUBAwAAAEAHAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAcgYAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAD0AAAAAAAAAAQAAAP7///8DAAAABAAAAAUAAAAGAAAABwAAAAgAAAAJAAAACgAAAAsAAAAMAAAADQAAAA4AAAAPAAAAEAAAABEAAAASAAAAEwAAABQAAAAVAAAAFgAAABcAAAAYAAAAGQAAABoAAAAbAAAA/v////7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9PAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAFwAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBxaGogWnR1UWhhO2pkZm5baWFldHIgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI+N2lhqnRsQr8BCEBAqjachQzQSCAAAAO0DAADtAwAAgH7h5gIABQAiAAAAEAAQAMDAwAD/////Ae/NqwAABQCI6xgAcgT///////8FAACAAAAAAAIAAAAAAAIAAAABAAAAbHQAAP4CAAAAAAEAAQAgIBAAAAAAAOgCAAAWAAAAKAAAACAAAABAAAAAAQAEAAAAAACAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD/////////////////////M////////////////////zMA//////////////////8zAAD/////////////////MzAAAP///////////////zMwAAAA//////////////8zMAAAAAD/////////////MzMAAAAAAP///////////zMzAAAAAAAA//////////8zMwAAAAAAAAD/////////MzMwAAAAAAAAAP///////zMzMAAAAAAAAAAA//////8zMzAAAAAAAAAAAAD/////MzMzAAAAAAAAAAAAAP///zMzMwAAAAAAAAAAAAAA//8zMzMAAAAAAAAAAAAAAAD/MzMzu7u7u7u7u7u7u7u7/zMzO7u7u7u7u7u7u7u7//8zMzu7u7u7u7u7u7u7////MzM7u7u7u7u7u7u7/////zMzu7u7u7u7u7u7//////8zM7u7u7u7u7u7////////MzO7u7u7u7u7/////////zM7u7u7u7u7//////////8zO7u7u7u7////////////Mzu7u7u7/////////////zO7u7u7//////////////8zu7u7////////////////M7u7/////////////////zu7//////////////////87/////////////////////////////////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAGx0AAD+AgAAAAABAAEAICAQAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAgAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A/////////////////////2b///////////////////9mAP//////////////////ZgAA/////////////////2ZgAAD///////////////9mYAAAAP//////////////ZmAAAAAA/////////////2ZmAAAAAAD///////////9mZgAAAAAAAP//////////ZmYAAAAAAAAA/////////2ZmYAAAAAAAAAD///////9mZmAAAAAAAAAAAP//////ZmZgAAAAAAAAAAAA/////2ZmZgAAAAAAAAAAAAD///9mZmYAAAAAAAAAAAAAAP//ZmZmAAAAAAAAAAAAAAAA/2ZmZu7u7u7u7u7u7u7u7v9mZm7u7u7u7u7u7u7u7v//ZmZu7u7u7u7u7u7u7v///2Zmbu7u7u7u7u7u7v////9mZu7u7u7u7u7u7v//////Zmbu7u7u7u7u7v///////2Zm7u7u7u7u7v////////9mbu7u7u7u7v//////////Zm7u7u7u7v///////////2Zu7u7u7v////////////9m7u7u7v//////////////Zu7u7v///////////////2bu7v////////////////9u7v//////////////////bv////////////////////////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAgAwAAABJbWFnZUhlaWdodAAJAAAASQoAAAAQAAAACwAAAEltYWdlV2lkdGgACQAAAEkKAAAAEAAAAAAAAO7u7v///////////2Zu7u7u7v////////////9m7u7u7v//////////////Zu7u7v///////////////2bu7v////////////////9u7v//////////////////bv////////////////////////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
|
|
|
|
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
|