560 lines
21 KiB
Plaintext
560 lines
21 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS capplication AS wzapplication OF "..\comun\clase\appwiz.vcx" && Application class.
|
|
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
clastcaption = Microsoft Visual FoxPro
|
|
clasticon =
|
|
Name = "capplication"
|
|
nformcount = 0
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS help_leg AS help_pltree OF "cont2000.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Name = "help_leg"
|
|
BANDA21.Name = "BANDA21"
|
|
Shape2.Name = "Shape2"
|
|
Shape1.Name = "Shape1"
|
|
Line1.Name = "Line1"
|
|
Label10.Caption = "AJUTOR LEGISLATIV"
|
|
Label10.Name = "Label10"
|
|
oleImagesList.Height = 45
|
|
oleImagesList.Left = 588
|
|
oleImagesList.Name = "oleImagesList"
|
|
oleImagesList.Top = 1
|
|
oleImagesList.Width = 65
|
|
oleTreeview.Height = 374
|
|
oleTreeview.Left = 24
|
|
oleTreeview.Name = "oleTreeview"
|
|
oleTreeview.Top = 52
|
|
oleTreeview.Width = 336
|
|
Edit1.ControlSource = "helpLEG.expli"
|
|
Edit1.Height = 374
|
|
Edit1.Name = "Edit1"
|
|
Edit1.Top = 52
|
|
Label1.Name = "Label1"
|
|
Label2.Name = "Label2"
|
|
Terminat1.Command1.Name = "Command1"
|
|
Terminat1.Imbuton1.Height = 27
|
|
Terminat1.Imbuton1.Name = "Imbuton1"
|
|
Terminat1.Imbuton1.Width = 30
|
|
Terminat1.Name = "Terminat1"
|
|
*</PropValue>
|
|
|
|
PROCEDURE Activate
|
|
sele helpleg
|
|
set order to tag nrnod
|
|
thisform.filltree
|
|
ENDPROC
|
|
|
|
PROCEDURE filltree
|
|
LOCAL O
|
|
|
|
SELECT HELPleg
|
|
O=THISFORM.OLETREEVIEW.NODES
|
|
|
|
SCAN FOR !DELETED()
|
|
IF NRTATA=0
|
|
O.ADD(,,,ALLT(TITLU),TATAFIU)
|
|
ELSE
|
|
O.ADD(NRTATA,4,,ALLT(TITLU),TATAFIU)
|
|
ENDIF
|
|
ENDSCAN
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE oleTreeview.NodeClick
|
|
*** OLE Control Event ***
|
|
LPARAMETERS node
|
|
LOCAL TX
|
|
TX=THIS.SelectedItem.INDEX
|
|
SELE HELPleg
|
|
LOCA FOR NRNOD=TX
|
|
THISFORM.EDIT1.REFRESH
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS help_pltree 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="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="oleImagesList" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="oleTreeview" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: filltree
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BackColor = 255,255,255
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 449
|
|
Name = "help_pltree"
|
|
Width = 783
|
|
_shape1.Height = 29
|
|
_shape1.Left = 0
|
|
_shape1.Name = "_shape1"
|
|
_shape1.Top = 0
|
|
_shape1.Width = 786
|
|
_shape2.Height = 29
|
|
_shape2.Left = 751
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = 0
|
|
_shape2.Width = 33
|
|
Lb_titlu_alb_b121.Caption = "PLANUL GENERAL DE CONTURI"
|
|
Lb_titlu_alb_b121.FontBold = .T.
|
|
Lb_titlu_alb_b121.Left = 6
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
Lb_titlu_alb_b121.Top = 8
|
|
BUT_TERMIN1.Left = 753
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.Top = 1
|
|
Gridsort1.Name = "Gridsort1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Edit1' AS editbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
ControlSource = "chelpcont.expli", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
DisabledForeColor = 0,0,0, ;
|
|
Height = 374, ;
|
|
Left = 396, ;
|
|
Name = "Edit1", ;
|
|
ReadOnly = .T., ;
|
|
Top = 56, ;
|
|
Width = 367, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="editbox" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "EXPLICATII", ;
|
|
Height = 17, ;
|
|
Left = 396, ;
|
|
Name = "Label1", ;
|
|
Top = 40, ;
|
|
Width = 64, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "TITLURI", ;
|
|
Height = 17, ;
|
|
Left = 22, ;
|
|
Name = "Label2", ;
|
|
Top = 38, ;
|
|
Width = 47, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'oleImagesList' AS olecontrol WITH ;
|
|
Height = 45, ;
|
|
Left = 656, ;
|
|
Name = "oleImagesList", ;
|
|
Top = 22, ;
|
|
Width = 65, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAABtAG0AYQByAHkASQBuAGYAbwByAG0AYQB0AGkAbwBuAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANCwp5ZvIMgBAwAAAEADAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAASgIAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAD0AAAAAAAAAAQAAAP7///8DAAAABAAAAAUAAAAGAAAABwAAAAgAAAAJAAAACgAAAAsAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9PAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAFwAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBxaGogWnR1UWhhO2pkZm5baWFldHIgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI+N2lhqnRsQr8BCEBAqjachQzQSCAAAAO0DAADtAwAAgH7h5gIABQAiAAAAEAAQAMDAwAD/////Ae/NqwAABQCo1h4AcgT///////8FAACAAAAAAAIAAAAAAAIAAAABAAAAbHQAAPYAAABCTfYAAAAAAAAAdgAAACgAAAAQAAAAEAAAAAEABAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A////8A////////AIUP/////wCH91D///8Ah/+HdQ//8If/iAh3UP/1j4gAUId1D/WIAFVVCHdQ9QBVVVVQh3UFhVVbNVUIcA9YVVV7tVCA//WFUzW7VQD//1hVu7NVUP//9YVVVVUA////WFVVAP/////1hQD///////9Q////8CAAAAbHQAAN4AAABCTd4AAAAAAAAAdgAAACgAAAANAAAADQAAAAEABAAAAAAAaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A////////8ADwAAAAAA/wAPD/////D/AA8P////8P8ADw/0RE/w/wAPD/////D/AA8P9ERP8P8ADw/////w/wAPD/RE8AD/AA8P///wgP8ADw////AP/wAPAAAAAP//AA////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAEltYWdlSGVpZ2h0AAkAAABJCgAAABAAAAALAAAASW1hZ2VXaWR0aAAJAAAASQoAAAAQAAAAAAAA//////////9mbu7u7u7/////////////Zu7u7u7//////////////2bu7u7///////////////9m7u7/////////////////bu7//////////////////27/////////////////////////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
|
|
|
|
ADD OBJECT 'oleTreeview' AS olecontrol WITH ;
|
|
Height = 377, ;
|
|
Left = 20, ;
|
|
Name = "oleTreeview", ;
|
|
Top = 55, ;
|
|
Width = 340, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDcrpZvIMgBAwAAAMABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAFQAAAAAAAAAAwAAAAIAAAD+////BQAAAAYAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+i6BMHCoUbEK/AQhAQKo2nIUM0EggAAAAkIwAA9yYAAI5+4eYCAAUAQAAAAMT+biDoAwAAAwAAAAHvzasAAAUATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABEmSQABgCCAAAAAAAFAACAFrRaBA0AAABvAGwAZQBJAG0AYQBnAGUAcwBMAGkAcwB0AAEAAABcAB/e7L0BAAUAAQAAgAoAAABMaW5lU3R5bGUACQAAAEkKAAAAAAAAAA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU3R5bGUACQAAAEkKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 407, ;
|
|
Left = 9, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 33, ;
|
|
Width = 363, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 407, ;
|
|
Left = 384, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 33, ;
|
|
Width = 390, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
PROCEDURE Activate
|
|
|
|
thisform.filltree
|
|
ENDPROC
|
|
|
|
PROCEDURE filltree
|
|
LOCAL I
|
|
|
|
*!* DEBUG
|
|
*!* SUSPEND
|
|
|
|
o=THISFORM.oletreeview.nodes
|
|
|
|
SELE chelpcont
|
|
*BROWSE
|
|
SET ORDER TO TAG NRNOD
|
|
*BROW
|
|
SCAN FOR !DELETED()
|
|
*WAIT WINDOW STR(NRNOD)
|
|
IF NRTATA=0
|
|
o.ADD(,,,ALLT(DENUMIRE),TATAFIU)
|
|
*WAIT WINDOW DENUMIRE
|
|
ELSE
|
|
*!* STRTOFILE(ALLT(CONT)+' ','c:\plcont.txt',1)
|
|
o.ADD(NRTATA,4,,ALLT(CONT)+' '+ALLT(DENUMIRE),TATAFIU)
|
|
ENDIF
|
|
ENDSCAN
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE oleTreeview.NodeClick
|
|
*** OLE Control Event ***
|
|
LPARAMETERS node
|
|
LOCAL TX
|
|
TX=LEFT(THIS.SelectedItem.TEXT,4)
|
|
SELE chelpcont
|
|
LOCA FOR LEFT(CONT,4)=TX
|
|
THISFORM.EDIT1.REFRESH
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS help_tree AS help_pltree OF "cont2000.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
AutoCenter = .T.
|
|
BorderStyle = 0
|
|
DoCreate = .T.
|
|
Height = 450
|
|
Name = "help_tree"
|
|
Width = 783
|
|
BANDA21.Name = "BANDA21"
|
|
Shape2.Left = 383
|
|
Shape2.Name = "Shape2"
|
|
Shape2.Top = 35
|
|
Shape1.Height = 407
|
|
Shape1.Left = 8
|
|
Shape1.Name = "Shape1"
|
|
Shape1.Top = 35
|
|
Shape1.Width = 363
|
|
Line1.Name = "Line1"
|
|
Label10.Caption = "Instructiuni de utilizare a programului"
|
|
Label10.FontSize = 12
|
|
Label10.Left = 6
|
|
Label10.Name = "Label10"
|
|
Label10.Top = 6
|
|
oleImagesList.Height = 45
|
|
oleImagesList.Left = 588
|
|
oleImagesList.Name = "oleImagesList"
|
|
oleImagesList.Top = 1
|
|
oleImagesList.Width = 65
|
|
oleTreeview.Height = 374
|
|
oleTreeview.Left = 24
|
|
oleTreeview.Name = "oleTreeview"
|
|
oleTreeview.Top = 52
|
|
oleTreeview.Width = 336
|
|
Edit1.ControlSource = "helpMENU.expli"
|
|
Edit1.Height = 374
|
|
Edit1.Name = "Edit1"
|
|
Edit1.Top = 52
|
|
Label1.Name = "Label1"
|
|
Label2.Caption = "TITLURI"
|
|
Label2.Name = "Label2"
|
|
Terminat1.Command1.Name = "Command1"
|
|
Terminat1.Imbuton1.Height = 27
|
|
Terminat1.Imbuton1.Name = "Imbuton1"
|
|
Terminat1.Imbuton1.Width = 30
|
|
Terminat1.Name = "Terminat1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Image1' AS image WITH ;
|
|
Height = 32, ;
|
|
Left = 528, ;
|
|
Name = "Image1", ;
|
|
Picture = ..\grafice\arw01rt.ico, ;
|
|
Stretch = 0, ;
|
|
Top = 0, ;
|
|
Visible = .F., ;
|
|
Width = 32
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Image2' AS image WITH ;
|
|
Height = 32, ;
|
|
Left = 642, ;
|
|
Name = "Image2", ;
|
|
Picture = ..\grafice\arw01lt.ico, ;
|
|
Stretch = 0, ;
|
|
Top = -1, ;
|
|
Visible = .F., ;
|
|
Width = 32
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
PROCEDURE Activate
|
|
SELE HELPMENU
|
|
set order to tag nrnod
|
|
THISFORM.FILLTREE
|
|
*THISFORM.image1.click
|
|
ENDPROC
|
|
|
|
PROCEDURE filltree
|
|
LOCAL O
|
|
|
|
SELECT HELPMENU
|
|
O=THISFORM.OLETREEVIEW.NODES
|
|
|
|
SCAN FOR !DELETED()
|
|
IF NRTATA=0
|
|
O.ADD(,,,ALLT(TITLU),TATAFIU)
|
|
ELSE
|
|
O.ADD(NRTATA,4,,ALLT(TITLU),TATAFIU)
|
|
ENDIF
|
|
ENDSCAN
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Image1.Click
|
|
thisform.width=667
|
|
thisform.autocenter=.t.
|
|
thisform.refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Image2.Click
|
|
*thisform.width=310
|
|
thisform.autocenter=.t.
|
|
thisform.refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE oleTreeview.NodeClick
|
|
*** OLE Control Event ***
|
|
LPARAMETERS node
|
|
LOCAL TX
|
|
TX=THIS.SelectedItem.INDEX
|
|
SELE HELPMENU
|
|
LOCA FOR NRNOD=TX
|
|
THISFORM.EDIT1.REFRESH
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS selcontmic AS seleluna OF "cont2000.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 135
|
|
Name = "selcontmic"
|
|
Width = 219
|
|
SEIP1.Height = 108
|
|
SEIP1.Left = 12
|
|
SEIP1.Name = "SEIP1"
|
|
SEIP1.Top = 12
|
|
SEIP1.Width = 192
|
|
LINE1.Name = "LINE1"
|
|
Label1.Caption = "Selectati contul debitor:"
|
|
Label1.Height = 13
|
|
Label1.Left = 24
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 24
|
|
Label1.Width = 144
|
|
Combo1.BoundColumn = 1
|
|
Combo1.ColumnCount = 1
|
|
Combo1.ControlSource = "m.scd"
|
|
Combo1.Name = "Combo1"
|
|
Combo1.RowSource = "300,3011,3012,3014,3018,321,371,3711,3712"
|
|
Combo1.RowSourceType = 1
|
|
Label2.Left = 254
|
|
Label2.Name = "Label2"
|
|
Label2.Top = 48
|
|
Label2.Visible = .F.
|
|
CMDTERMIN1.Left = 108
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.Top = 84
|
|
LABEL3.Left = 289
|
|
LABEL3.Name = "LABEL3"
|
|
LABEL3.Top = 48
|
|
LABEL3.Visible = .F.
|
|
*</PropValue>
|
|
|
|
PROCEDURE Combo1.Valid
|
|
*
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS seleluna AS ffergen 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="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmd_termin1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: aa
|
|
*p: ll
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
aa =
|
|
DoCreate = .T.
|
|
Height = 125
|
|
ll =
|
|
Name = "seleluna"
|
|
Width = 231
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Cmd_termin1' AS cmd_termin WITH ;
|
|
Caption = "\<TERMIN", ;
|
|
Enabled = .F., ;
|
|
Left = 127, ;
|
|
Name = "Cmd_termin1", ;
|
|
Top = 81
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Combo1' AS combobox WITH ;
|
|
Height = 24, ;
|
|
Left = 24, ;
|
|
Name = "Combo1", ;
|
|
Style = 2, ;
|
|
Top = 48, ;
|
|
Width = 72, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
Caption = "Selectati anul si luna de inceput:", ;
|
|
Height = 13, ;
|
|
Left = 24, ;
|
|
Name = "Label1", ;
|
|
Top = 24, ;
|
|
Width = 192, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
Caption = " ", ;
|
|
FontItalic = .T., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 136, ;
|
|
Name = "Label2", ;
|
|
Top = 52, ;
|
|
Width = 27
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
Caption = " ", ;
|
|
FontItalic = .T., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 171, ;
|
|
Name = "Label3", ;
|
|
Top = 52, ;
|
|
Width = 40
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
PROCEDURE Destroy
|
|
IF USED('crscalendar')
|
|
USE IN crscalendar
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
iF USED('crscalendar')
|
|
USE IN crscalendar
|
|
ENDIF
|
|
SELECT PADL(ALLTRIM(nl),2,"0") as nl,an FROM calendar ORDER BY an,nl INTO CURSOR crscalendar
|
|
SELECT crscalendar
|
|
thisform.ll=nl
|
|
thisform.aa=an
|
|
SCAN
|
|
thisform.combo1.AddItem(nl+"/"+an)
|
|
endscan
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmd_termin1.Valid
|
|
m.an=thisform.aa
|
|
m.nl=thisform.ll
|
|
pcanul=thisform.aa
|
|
pcluna=thisform.ll
|
|
ENDPROC
|
|
|
|
PROCEDURE Combo1.MouseLeave
|
|
Lparameters nButton, nShift, nXCoord, nYCoord
|
|
*!* Select crscalendar
|
|
*!* anul=an
|
|
*!* luna=nl
|
|
pcluna=SUBSTR(this.Value,1,2)
|
|
pcanul=SUBSTR(this.Value,4)
|
|
Thisform.label2.Caption=pcluna
|
|
Thisform.label3.Caption=pcanul
|
|
If !Empty(pcluna) And !Empty(pcanul)
|
|
Thisform.cmdtermin1.Enabled=.T.
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Combo1.Valid
|
|
*!* Select crscalendar
|
|
*!* anul=an
|
|
*!* luna=nl
|
|
pcluna=Substr(This.Value,1,2)
|
|
pcanul=Substr(This.Value,4)
|
|
Thisform.label2.Caption=pcluna
|
|
Thisform.label3.Caption=pcanul
|
|
If !Empty(pcluna) And !Empty(pcanul)
|
|
Thisform.cmdtermin1.Enabled=.T.
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|