*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="odebcred.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_debcred AS _frmbase OF "_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="_grdbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNrAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNrAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSuma.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSuma.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cExpl3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cExpl3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cScd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cScd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cScc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cScc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cExpl1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cExpl1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cExpl2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cExpl2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFelDoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFelDoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cUtil.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cUtil.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataOra.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataOra.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_titlu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_total" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 437
		Name = "frm_debcred"
		Width = 752
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 756
		_shape2.Height = 29
		_shape2.Left = 684
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 69
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 4
		BUT_TERMIN1.Left = 721
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 3
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_grdbase1' AS _grdbase WITH ;
		ColumnCount = 14, ;
		DeleteMark = .F., ;
		Height = 312, ;
		Left = 22, ;
		Name = "_grdbase1", ;
		Panel = 1, ;
		RecordSource = "acn1", ;
		TabIndex = 1, ;
		Top = 72, ;
		Width = 698, ;
		Column1.ColumnOrder = 2, ;
		Column1.ControlSource = "dataact", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "cDataAct", ;
		Column1.Width = 48, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "nract", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "cNrAct", ;
		Column2.Width = 64, ;
		Column3.ColumnOrder = 7, ;
		Column3.ControlSource = "suma", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.InputMask = (get_mask(15,gnPa)), ;
		Column3.Name = "cSuma", ;
		Column3.Width = 88, ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "explicatia", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "cExpl3", ;
		Column4.Width = 80, ;
		Column5.ColumnOrder = 8, ;
		Column5.ControlSource = "scd", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "cScd", ;
		Column5.Width = 37, ;
		Column6.ColumnOrder = 10, ;
		Column6.ControlSource = "scc", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "cScc", ;
		Column6.Width = 31, ;
		Column7.ColumnOrder = 4, ;
		Column7.ControlSource = "partD", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "cExpl1", ;
		Column7.Width = 110, ;
		Column8.ColumnOrder = 5, ;
		Column8.ControlSource = "partC", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Name = "cExpl2", ;
		Column8.Width = 110, ;
		Column9.ColumnOrder = 1, ;
		Column9.ControlSource = "dataireg", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "cDataIreg", ;
		Column9.Width = 48, ;
		Column10.ColumnOrder = 12, ;
		Column10.ControlSource = "fdoc", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "cFelDoc", ;
		Column10.Width = 95, ;
		Column11.ColumnOrder = 13, ;
		Column11.ControlSource = "util", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.Name = "cUtil", ;
		Column12.ColumnOrder = 14, ;
		Column12.ControlSource = "dataora", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.Name = "cDataOra", ;
		Column13.ColumnOrder = 9, ;
		Column13.ControlSource = "ascd", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.Name = "Column13", ;
		Column13.Width = 37, ;
		Column14.ColumnOrder = 11, ;
		Column14.ControlSource = "ascc", ;
		Column14.FontName = "Arial Narrow", ;
		Column14.Name = "Column14", ;
		Column14.Width = 39
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdbase1.cDataAct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataAct.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inreg.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDataOra.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataOra.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cExpl1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.1", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cExpl1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cExpl2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.2", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cExpl2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cExpl3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.3", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cExpl3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFelDoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel doc.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFelDoc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cNrAct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. doc.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cNrAct.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column13.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "AnaliticD", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column13.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column14.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "AnaliticC", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column14.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cScc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Cred.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cScc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cScd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Deb.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cScd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSuma.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSuma.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cUtil.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Utilizator", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cUtil.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_listare' AS but_listare WITH ;
		Left = 689, ;
		Name = "But_listare", ;
		TabIndex = 2, ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_total' AS clb_tx_simplu WITH ;
		Left = 432, ;
		Name = "Clb_total", ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 396, ;
		Text_simplu1.InputMask = (get_mask(15,gnPA)), ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Lb_simplu1.Caption = "Total", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Lb_titlu1' AS lb_titlu_negru_b12 WITH ;
		Caption = "RULAJ", ;
		Left = 24, ;
		Name = "Lb_titlu1", ;
		TabIndex = 5, ;
		Top = 43
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
	
	PROCEDURE actualizeaza_grid1
		Local lnSuma1,lcRec
		Select acn1
		lcRec=Iif(Reccount()>0,Alltrim(Str(Recno())),'TOP')
		Sum suma To lnSuma1
		Thisform.clb_total.text_simplu1.Value=lnSuma1
		Go &lcRec
	ENDPROC

	PROCEDURE do_listare
		*!*	Local lcTitlu
		*!*	PRIVATE pcdataora
		*!*	If Used('acn1') And Reccount('acn1')>0
		*!*		lcTitlu=Thisform.lb_titlu1.Caption
		*!*		pcdataora=TTOC(get_ora())
		*!*		Thisform.AlwaysOnTop= .F.
		*!*		Select acn1
		*!*		Report Form ist_deb_cred To Printer Prompt Preview
		*!*		Thisform.AlwaysOnTop= .T.
		*!*	Else
		*!*		aMessagebox("Nu exista date pentru listare!",0+48,"Atentie")
		*!*	Endif
		Private pcTitlu
		pcTitlu = Thisform.lb_titlu1.Caption
		Thisform.AlwaysOnTop = .F.
		goExport.export2frx([acn1],[ist_deb_cred])
		Thisform.AlwaysOnTop = .T.
		Release pcTitlu
	ENDPROC

	PROCEDURE Init
		DODEFAULT()
		thisform.actualizeaza_grid1()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_debsicred AS _frmbase OF "_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="_grdbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNrAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNrAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSuma.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSuma.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cExpl3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cExpl3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cScd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cScd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cScc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cScc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cExpl1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cExpl1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cExpl2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cExpl2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFelDoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFelDoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_titlu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_titlu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listaredebit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listarecredit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cDataAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cDataAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cNrAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cNrAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cSuma.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cSuma.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cExpl3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cExpl3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cScd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cScd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cScc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cScc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cExpl1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cExpl1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cExpl2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cExpl2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cDataIreg.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cDataIreg.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cFelDoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.cFelDoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase2.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_totaldebit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_totalcredit" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_listare2
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 437
		Name = "frm_debsicred"
		Width = 752
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 756
		_shape2.Height = 29
		_shape2.Left = 720
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 33
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 6
		BUT_TERMIN1.Left = 721
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 5
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_grdbase1' AS _grdbase WITH ;
		ColumnCount = 12, ;
		DeleteMark = .F., ;
		Height = 312, ;
		Left = 22, ;
		Name = "_grdbase1", ;
		Panel = 1, ;
		RecordSource = "acn1", ;
		TabIndex = 1, ;
		Top = 72, ;
		Width = 348, ;
		Column1.ControlSource = "dataact", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "cDataAct", ;
		Column1.Width = 48, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "nract", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "cNrAct", ;
		Column2.Width = 64, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "suma", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.InputMask = (get_mask(15,gnPa)), ;
		Column3.Name = "cSuma", ;
		Column3.Width = 88, ;
		Column4.ControlSource = "explicatia", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "cExpl3", ;
		Column4.Width = 80, ;
		Column5.ColumnOrder = 5, ;
		Column5.ControlSource = "scd", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "cScd", ;
		Column5.Width = 37, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "scc", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "cScc", ;
		Column6.Width = 31, ;
		Column7.ColumnOrder = 9, ;
		Column7.ControlSource = "partD", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "cExpl1", ;
		Column7.Width = 110, ;
		Column8.ColumnOrder = 10, ;
		Column8.ControlSource = "partC", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Name = "cExpl2", ;
		Column8.Width = 110, ;
		Column9.ColumnOrder = 11, ;
		Column9.ControlSource = "dataireg", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "cDataIreg", ;
		Column9.Width = 48, ;
		Column10.ColumnOrder = 12, ;
		Column10.ControlSource = "fdoc", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "cFelDoc", ;
		Column10.Width = 95, ;
		Column11.ColumnOrder = 6, ;
		Column11.ControlSource = "ascd", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.Name = "Column11", ;
		Column11.Width = 39, ;
		Column12.ColumnOrder = 8, ;
		Column12.ControlSource = "ascc", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.Name = "Column12", ;
		Column12.Width = 39
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdbase1.cDataAct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataAct.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inreg.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cExpl1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.1", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cExpl1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cExpl2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.2", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cExpl2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cExpl3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.3", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cExpl3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFelDoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel doc.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFelDoc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cNrAct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. doc.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cNrAct.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "AnaliticD", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column11.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column12.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "AnaliticC", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column12.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cScc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Cred.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cScc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cScd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Deb.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cScd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSuma.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSuma.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase2' AS _grdbase WITH ;
		ColumnCount = 12, ;
		DeleteMark = .F., ;
		Height = 312, ;
		Left = 384, ;
		Name = "_grdbase2", ;
		Panel = 1, ;
		RecordSource = "acn2", ;
		TabIndex = 2, ;
		Top = 72, ;
		Width = 348, ;
		Column1.ControlSource = "dataact", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "cDataAct", ;
		Column1.Width = 48, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "nract", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "cNrAct", ;
		Column2.Width = 64, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "suma", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.InputMask = (get_mask(15,gnPA)), ;
		Column3.Name = "cSuma", ;
		Column3.Width = 88, ;
		Column4.ControlSource = "explicatia", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "cExpl3", ;
		Column4.Width = 80, ;
		Column5.ColumnOrder = 5, ;
		Column5.ControlSource = "scd", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "cScd", ;
		Column5.Width = 32, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "scc", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "cScc", ;
		Column6.Width = 32, ;
		Column7.ColumnOrder = 9, ;
		Column7.ControlSource = "partD", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "cExpl1", ;
		Column7.Width = 110, ;
		Column8.ColumnOrder = 10, ;
		Column8.ControlSource = "partC", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Name = "cExpl2", ;
		Column8.Width = 110, ;
		Column9.ColumnOrder = 11, ;
		Column9.ControlSource = "dataireg", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "cDataIreg", ;
		Column9.Width = 48, ;
		Column10.ColumnOrder = 12, ;
		Column10.ControlSource = "fdoc", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "cFelDoc", ;
		Column10.Width = 95, ;
		Column11.ColumnOrder = 6, ;
		Column11.ControlSource = "ascd", ;
		Column11.Name = "Column11", ;
		Column11.Width = 40, ;
		Column12.ColumnOrder = 8, ;
		Column12.ControlSource = "ascc", ;
		Column12.Name = "Column12", ;
		Column12.Width = 49
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdbase2.cDataAct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase2.cDataAct.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase2.cDataIreg.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inreg.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase2.cDataIreg.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase2.cExpl1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.1", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase2.cExpl1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase2.cExpl2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.2", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase2.cExpl2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase2.cExpl3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.3", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase2.cExpl3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase2.cFelDoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel doc.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase2.cFelDoc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase2.cNrAct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. doc.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase2.cNrAct.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase2.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Analitic D", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase2.Column11.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase2.Column12.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Analitic C", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase2.Column12.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase2.cScc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Cred.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase2.cScc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase2.cScd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Deb.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase2.cScd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase2.cSuma.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase2.cSuma.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_listarecredit' AS but_listare WITH ;
		caction = do_listare2, ;
		Left = 700, ;
		Name = "But_listarecredit", ;
		TabIndex = 4, ;
		ToolTipText = "Listare (CTRL+I)", ;
		Top = 396
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listaredebit' AS but_listare WITH ;
		Left = 22, ;
		Name = "But_listaredebit", ;
		TabIndex = 3, ;
		Top = 396
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_totalcredit' AS clb_tx_simplu WITH ;
		Left = 384, ;
		Name = "Clb_totalcredit", ;
		TabIndex = 10, ;
		TabStop = .F., ;
		Top = 396, ;
		Text_simplu1.InputMask = (get_mask(15,gnPA)), ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Lb_simplu1.Caption = "Total credit", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_totaldebit' AS clb_tx_simplu WITH ;
		Left = 81, ;
		Name = "Clb_totaldebit", ;
		TabIndex = 9, ;
		TabStop = .F., ;
		Top = 396, ;
		Text_simplu1.InputMask = (get_mask(15,gnPA)), ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Lb_simplu1.Caption = "Total debit", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Lb_titlu1' AS lb_titlu_negru_b12 WITH ;
		Caption = "DEBIT", ;
		Left = 24, ;
		Name = "Lb_titlu1", ;
		TabIndex = 7, ;
		Top = 43
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'Lb_titlu2' AS lb_titlu_negru_b12 WITH ;
		Caption = "CREDIT", ;
		Left = 382, ;
		Name = "Lb_titlu2", ;
		TabIndex = 8, ;
		Top = 43
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
	
	PROCEDURE actualizeaza_grid1
		Local lnSuma1,lcRec
		Select acn1
		lcRec=Iif(Reccount()>0,Alltrim(Str(Recno())),'TOP')
		Sum suma To lnSuma1
		Thisform.clb_totaldebit.text_simplu1.Value=lnSuma1
		Go &lcRec
	ENDPROC

	PROCEDURE actualizeaza_grid2
		Local lnSuma2,lnRec
		Select acn2
		lcRec=Iif(Reccount()>0,Alltrim(Str(Recno())),'TOP')
		Sum suma To lnSuma2
		Thisform.clb_totalcredit.text_simplu1.Value=lnSuma2
		Go &lcRec
	ENDPROC

	PROCEDURE do_listare
		*!*	Local lcTitlu
		*!*	PRIVATE pcdataora
		*!*	If Used('acn1') And Reccount('acn1')>0
		*!*		lcTitlu=Thisform.lb_titlu1.Caption
		*!*		pcdataora=TTOC(get_ora())
		*!*		Thisform.AlwaysOnTop= .F.
		*!*		Select acn1
		*!*		Report Form ist_deb_cred To Printer Prompt Preview
		*!*		Thisform.AlwaysOnTop= .T.
		*!*	Else
		*!*		aMessagebox("Nu exista date pentru listare!",0+48,"Atentie")
		*!*	Endif
		Private pcTitlu
		pcTitlu = Thisform.lb_titlu1.Caption
		Thisform.AlwaysOnTop = .F.
		goExport.export2frx([acn1],[ist_deb_cred])
		Thisform.AlwaysOnTop = .T.
		Release pcTitlu
		
	ENDPROC

	PROCEDURE do_listare2
		*!*	Local lcTitlu
		*!*	PRIVATE pcdataora
		*!*	If Used('acn2') And Reccount('acn2')>0
		*!*		lcTitlu=Thisform.lb_titlu2.Caption
		*!*		pcdataora=TTOC(get_ora())
		*!*		Thisform.AlwaysOnTop= .F.
		*!*		Select acn2
		*!*		Report Form ist_deb_cred To Printer Prompt Preview
		*!*		Thisform.AlwaysOnTop= .T.
		*!*	Else
		*!*		aMessagebox("Nu exista date pentru listare!",0+48,"Atentie")
		*!*	Endif
		Private pcTitlu
		pcTitlu = Thisform.lb_titlu1.Caption
		Thisform.AlwaysOnTop = .F.
		goExport.export2frx([acn2],[ist_deb_cred])
		Thisform.AlwaysOnTop = .T.
		Release pcTitlu
	ENDPROC

	PROCEDURE Init
		DODEFAULT()
		thisform.actualizeaza_grid1()
		thisform.actualizeaza_grid2()
	ENDPROC

	PROCEDURE KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		LOCAL lbviz
		lbviz=thisform.bvizualizare
		Do Case
		Case nKeyCode=27 And nShiftAltCtrl=0
			Nodefault
			If aMessagebox("Sunteti sigur ca doriti sa inchideti fereastra?",4+32+256,"Confirmare")==6
				This.do_renunt()
			ENDIF
		CASE nKeyCode=5 AND nShiftAltCtrl=2 AND lbviz=.F.
			NODEFAULT
			If PEMSTATUS(This,"do_excel",5)
				this.do_excel()
			ENDIF
		Case nKeyCode=14 And nShiftAltCtrl=2 AND lbviz=.F.
			NODEFAULT
			If PEMSTATUS(This,"do_adauga",5)
				This.do_adauga()
			ENDIF
		Case nKeyCode=13 And nShiftAltCtrl=2 AND lbviz=.F.
			NODEFAULT
			If PEMSTATUS(This,"do_modifica",5)
				This.do_modifica()
			ENDIF
		Case nKeyCode=4 And nShiftAltCtrl=2 AND lbviz=.F.
			NODEFAULT
			If PEMSTATUS(This,"do_sterge",5)
					This.do_sterge()
			Endif
		Case nKeyCode=6 And nShiftAltCtrl=2
			NODEFAULT
			This.do_termin()
		Case nKeyCode=16 And nShiftAltCtrl=2 AND lbviz=.F.
			Nodefault
			If PEMSTATUS(This,"do_listare",5)
				This.do_listare()
			ENDIF
		Case nKeyCode=9 And nShiftAltCtrl=2 AND lbviz=.F.
			Nodefault
			If PEMSTATUS(This,"do_listare2",5)
				This.do_listare2()
			ENDIF
		Endcase
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_seleluna AS _frmbase OF "..\libs\_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="_shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_luna" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_an" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: aa
		*p: ll
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 100
		Name = "frm_seleluna"
		Width = 295
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE1.Width = 295
		_SHAPE1.ZOrderSet = 1
		_SHAPE2.Height = 29
		_SHAPE2.Left = 229
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 65
		_SHAPE2.ZOrderSet = 2
		LB_TITLU_ALB_B121.Caption = "Selectati anul si luna de inceput"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 4
		LB_TITLU_ALB_B121.ZOrderSet = 8
		BUT_TERMIN1.Enabled = .F.
		BUT_TERMIN1.Left = 263
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 2
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 3
	*</PropValue>

	ADD OBJECT '_shape3' AS _shape WITH ;
		BackStyle = 0, ;
		Height = 48, ;
		Left = 24, ;
		Name = "_shape3", ;
		Top = 36, ;
		Width = 252, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\libs\_baza.vcx" BaseClass="shape" />

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Left = 232, ;
		Name = "But_renunt1", ;
		TabIndex = 3, ;
		Top = 1, ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Combo1' AS _cbbase WITH ;
		Height = 24, ;
		Left = 47, ;
		Name = "Combo1", ;
		TabIndex = 1, ;
		Top = 48, ;
		Width = 80, ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="..\libs\_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'Lb_an' AS lb_simplu WITH ;
		Caption = " ", ;
		FontBold = .T., ;
		FontSize = 12, ;
		ForeColor = 0,0,128, ;
		Left = 196, ;
		Name = "Lb_an", ;
		TabIndex = 6, ;
		Top = 50, ;
		ZOrderSet = 6
		*< END OBJECT: ClassLib="..\libs\lb.vcx" BaseClass="label" />

	ADD OBJECT 'Lb_luna' AS lb_simplu WITH ;
		Caption = " ", ;
		FontBold = .T., ;
		FontSize = 12, ;
		ForeColor = 0,0,128, ;
		Left = 161, ;
		Name = "Lb_luna", ;
		TabIndex = 5, ;
		Top = 50, ;
		ZOrderSet = 5
		*< END OBJECT: ClassLib="..\libs\lb.vcx" BaseClass="label" />
	
	PROCEDURE Destroy
		IF USED('crscalendar')
			USE IN crscalendar
		ENDIF
	ENDPROC

	PROCEDURE inainte_de_do_termin
		m.an=thisform.aa
		m.nl=thisform.ll
		pcanul=thisform.aa
		pcluna=thisform.ll
		DODEFAULT()
	ENDPROC

	PROCEDURE Init
		DoDefault()
		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 Combo1.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		pcluna=SUBSTR(this.Value,1,2)
		pcanul=SUBSTR(this.Value,4)
		Thisform.lb_luna.Caption=pcluna
		Thisform.lb_an.Caption=pcanul
		If !Empty(pcluna) And !Empty(pcanul)
			Thisform.but_termin1.Enabled=.T.
		Endif
		
	ENDPROC

	PROCEDURE Combo1.Valid
		pcluna=Substr(This.Value,1,2)
		pcanul=Substr(This.Value,4)
		Thisform.lb_luna.Caption=pcluna
		Thisform.lb_an.Caption=pcanul
		If !Empty(pcluna) And !Empty(pcanul)
			Thisform.but_termin1.Enabled=.T.
		Endif
	ENDPROC

ENDDEFINE
