*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="[encoded data, 4096 characters]" />

	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
