*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="osalarii_listari.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_list_anumiti AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column16.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column16.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column17.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column17.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column18.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column18.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column19.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column19.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column20.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column20.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column21.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column21.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column22.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column22.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column23.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column23.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column24.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column24.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column25.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column25.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column26.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column26.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column27.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column27.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column28.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column28.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column31.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column31.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column30.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column30.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: anumiti_da
		*p: clistare
	*</DefinedPropArrayMethod>

	*<PropValue>
		anumiti_da = .F.
		clistare = avans
		DoCreate = .T.
		Height = 372
		Name = "frm_list_anumiti"
		Width = 748
		WindowState = 2
		_shape1.Anchor = 160
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 756
		_shape2.Anchor = 9
		_shape2.Left = 676
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		Lb_titlu_alb_b121.Caption = "Selectați persoanele"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 715
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
		But_renunt1.Anchor = 9
		But_renunt1.Left = 683
		But_renunt1.Name = "But_renunt1"
		But_renunt1.Top = 1
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 29, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		Height = 313, ;
		Left = 12, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		Partition = 0, ;
		ReadOnly = .T., ;
		RecordSource = "v_stat", ;
		Top = 48, ;
		Width = 728, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "nrcrt()", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 39, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "ALLT(nume) + ' ' +ALLT(prenume)", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column3", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 120, ;
		Column3.ColumnOrder = 8, ;
		Column3.ControlSource = "brutlucrat", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.InputMask = (get_mask(16,gnps)), ;
		Column3.Name = "Column4", ;
		Column3.ReadOnly = .F., ;
		Column4.ColumnOrder = 9, ;
		Column4.ControlSource = "brutco+brutcm", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.InputMask = (get_mask(16,gnps)), ;
		Column4.Name = "Column5", ;
		Column4.ReadOnly = .T., ;
		Column5.ColumnOrder = 10, ;
		Column5.ControlSource = "primabrut", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.InputMask = (get_mask(16,gnps)), ;
		Column5.Name = "Column6", ;
		Column5.ReadOnly = .T., ;
		Column6.ColumnOrder = 11, ;
		Column6.ControlSource = "altedr", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.InputMask = (get_mask(16,gnps)), ;
		Column6.Name = "Column7", ;
		Column6.ReadOnly = .T., ;
		Column7.ColumnOrder = 13, ;
		Column7.ControlSource = "neimpozab", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.InputMask = (get_mask(16,gnps)), ;
		Column7.Name = "Column8", ;
		Column7.ReadOnly = .F., ;
		Column8.ColumnOrder = 12, ;
		Column8.ControlSource = "TOTBRUT", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.InputMask = (get_mask(16,gnps)), ;
		Column8.Name = "Column9", ;
		Column8.ReadOnly = .T., ;
		Column9.ColumnOrder = 5, ;
		Column9.ControlSource = "lichidare", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.InputMask = (get_mask(16,gnps)), ;
		Column9.Name = "Column10", ;
		Column9.ReadOnly = .F., ;
		Column10.ColumnOrder = 14, ;
		Column10.ControlSource = "salnet", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.InputMask = (get_mask(16,gnps)), ;
		Column10.Name = "Column11", ;
		Column10.ReadOnly = .T., ;
		Column11.ColumnOrder = 6, ;
		Column11.ControlSource = "avans", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.InputMask = (get_mask(16,gnps)), ;
		Column11.Name = "Column12", ;
		Column11.ReadOnly = .T., ;
		Column12.ColumnOrder = 16, ;
		Column12.ControlSource = "tarifar", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.InputMask = (get_mask(16,gnps)), ;
		Column12.Name = "Column13", ;
		Column12.ReadOnly = .T., ;
		Column13.ColumnOrder = 17, ;
		Column13.ControlSource = "ssomaj", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.InputMask = (get_mask(16,gnps)), ;
		Column13.Name = "Column14", ;
		Column13.ReadOnly = .T., ;
		Column14.ColumnOrder = 18, ;
		Column14.ControlSource = "scas", ;
		Column14.FontName = "Arial Narrow", ;
		Column14.InputMask = (get_mask(16,gnps)), ;
		Column14.Name = "Column15", ;
		Column14.ReadOnly = .T., ;
		Column15.ColumnOrder = 19, ;
		Column15.ControlSource = "ssanatate", ;
		Column15.FontName = "Arial Narrow", ;
		Column15.InputMask = (get_mask(16,gnps)), ;
		Column15.Name = "Column16", ;
		Column15.ReadOnly = .T., ;
		Column16.ColumnOrder = 21, ;
		Column16.ControlSource = "sdeducere", ;
		Column16.FontName = "Arial Narrow", ;
		Column16.InputMask = (get_mask(16,gnps)), ;
		Column16.Name = "Column17", ;
		Column16.ReadOnly = .T., ;
		Column17.ColumnOrder = 20, ;
		Column17.ControlSource = "venitnet", ;
		Column17.FontName = "Arial Narrow", ;
		Column17.InputMask = (get_mask(16,gnps)), ;
		Column17.Name = "Column18", ;
		Column17.ReadOnly = .T., ;
		Column18.ColumnOrder = 22, ;
		Column18.ControlSource = "simpozit", ;
		Column18.FontName = "Arial Narrow", ;
		Column18.InputMask = (get_mask(16,gnps)), ;
		Column18.Name = "Column19", ;
		Column18.ReadOnly = .T., ;
		Column19.ColumnOrder = 23, ;
		Column19.ControlSource = "sumapop", ;
		Column19.FontName = "Arial Narrow", ;
		Column19.InputMask = (get_mask(16,gnps)), ;
		Column19.Name = "Column20", ;
		Column19.ReadOnly = .T., ;
		Column20.ColumnOrder = 24, ;
		Column20.ControlSource = "sumaspor", ;
		Column20.FontName = "Arial Narrow", ;
		Column20.InputMask = (get_mask(16,gnps)), ;
		Column20.Name = "Column21", ;
		Column20.ReadOnly = .T., ;
		Column21.ColumnOrder = 25, ;
		Column21.ControlSource = "brutco", ;
		Column21.FontName = "Arial Narrow", ;
		Column21.InputMask = (get_mask(16,gnps)), ;
		Column21.Name = "Column22", ;
		Column21.ReadOnly = .T., ;
		Column22.ColumnOrder = 26, ;
		Column22.ControlSource = "brutcm", ;
		Column22.FontName = "Arial Narrow", ;
		Column22.InputMask = (get_mask(16,gnps)), ;
		Column22.Name = "Column23", ;
		Column22.ReadOnly = .T., ;
		Column23.ColumnOrder = 27, ;
		Column23.ControlSource = "primanet", ;
		Column23.FontName = "Arial Narrow", ;
		Column23.InputMask = (get_mask(16,gnps)), ;
		Column23.Name = "Column24", ;
		Column23.ReadOnly = .T., ;
		Column24.ColumnOrder = 3, ;
		Column24.ControlSource = "sectie", ;
		Column24.FontName = "Arial Narrow", ;
		Column24.Name = "Column25", ;
		Column24.ReadOnly = .F., ;
		Column25.ColumnOrder = 4, ;
		Column25.ControlSource = "formatia", ;
		Column25.FontName = "Arial Narrow", ;
		Column25.Name = "Column26", ;
		Column25.ReadOnly = .F., ;
		Column26.ColumnOrder = 28, ;
		Column26.ControlSource = "meserie", ;
		Column26.FontName = "Arial Narrow", ;
		Column26.Name = "Column27", ;
		Column26.ReadOnly = .T., ;
		Column27.ColumnOrder = 15, ;
		Column27.ControlSource = "avansconc", ;
		Column27.FontName = "Arial Narrow", ;
		Column27.InputMask = (get_mask(16,gnps)), ;
		Column27.Name = "Column28", ;
		Column27.ReadOnly = .T., ;
		Column28.ColumnOrder = 29, ;
		Column28.ControlSource = "codpers", ;
		Column28.FontName = "Arial Narrow", ;
		Column28.Name = "Column31", ;
		Column28.ReadOnly = .T., ;
		Column29.ColumnOrder = 7, ;
		Column29.ControlSource = "ales", ;
		Column29.FontName = "Arial Narrow", ;
		Column29.Name = "Column30", ;
		Column29.ReadOnly = .F., ;
		Column29.Sparse = .F., ;
		Column29.Width = 21
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	ADD OBJECT '_grdrow1.Column18.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Venit net", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

	ADD OBJECT '_grdrow1.Column22.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Brut CO", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT '_grdrow1.Column24.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Prima net", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

	ADD OBJECT '_grdrow1.Column28.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Avans CO", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column28.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 '_grdrow1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.Column30.Check1' AS checkbox WITH ;
		Alignment = 2, ;
		Caption = "", ;
		Centered = .T., ;
		Height = 17, ;
		Left = 5, ;
		Name = "Check1", ;
		ReadOnly = .F., ;
		Top = 47, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_grdrow1.Column30.Header1' AS header WITH ;
		Caption = "Ales", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.Column31.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 '_grdrow1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Brut", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Brut concedii", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Prima bruta", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Alte drepturi", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT '_grdrow1.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total brut", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		gridexpression = Thisform._grdrow1, ;
		Left = 528, ;
		Name = "Gridextra1", ;
		Top = 5
		*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />
	
	PROCEDURE inainte_de_do_termin
		Thisform.AlwaysOnTop = .F.
		If Thisform.anumiti_da
			Select v_stat
			Set Filter To ales = 1
		Else
			Select v_stat
			Set Filter To ales = 0
		Endif
		*!*	REPORT FORMAT (thisform.clistare) TO PRINTER PROMPT NOCONSOLE PREVIEW
		*!*	goExport.export2frx([v_stat],Thisform.clistare,, , , , , .T.)
		goExport.export2frx([v_stat],Thisform.clistare)
		
		Select v_stat
		Set Filter To
		Thisform.AlwaysOnTop = .T.
		Thisform._grdrow1.SetFocus
		
		Return .F.
	ENDPROC

	PROCEDURE Init
		Lparameters tlRestrans
		DoDefault()
		Thisform.gridextra1.Setup()
		If tlRestrans
			With Thisform._grdrow1
				.SetAll("Visible",.F.,"Column")
		*!*			.SetAll("ControlSource",'',"Column")		
				.Column1.Visible = .T.
		*!*			.Column1.ControlSource = [nrcrt()]
				.Column3.Visible = .T.
		*!*			.Column3.ControlSource = [ALLT(nume)+' '+ALLT(prenume)]
				.Column4.Visible = .T.
		*!*			.Column4.ControlSource = [brutlucrat]
				.Column25.Visible = .T.
		*!*			.Column25.ControlSource = [sectie]
				.Column26.Visible = .T.
		*!*			.Column26.ControlSource = [formatia]
				.Column30.Visible = .T.
		*!*			.Column30.ControlSource = [ales]
			Endwith
		Endif
		Do nrord With 'v_stat'
		Select v_stat
		Go Top
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_list_stat AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< 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="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CkFormatie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ckCenzori" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CkSectie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_cautare3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_perioada" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_txtformatii" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_cauta1
		*m: do_cauta2
		*m: do_cauta3
		*m: speccentraliz
		*p: clistare
		*p: csiridgest
		*p: e_centralizator
		*p: filtruinitial
		*p: lpersoana
		*p: ndinsal
		*p: nidgest
		*p: oresult
		*p: orezult
		*p: pcnumegest
	*</DefinedPropArrayMethod>

	*<PropValue>
		clistare = avans
		csiridgest = 
		DoCreate = .T.
		e_centralizator = .F.
		filtruinitial = 
		Height = 345
		lpersoana = .F.
		Name = "frm_list_stat"
		ndinsal = 1
		nidgest = 0
		oresult = .F.
		orezult = .F.
		pcnumegest = 
		Width = 417
		_SHAPE1.Height = 29
		_SHAPE1.Left = 0
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE1.Top = 0
		_SHAPE1.Width = 444
		_SHAPE1.ZOrderSet = 2
		_SHAPE2.Height = 29
		_SHAPE2.Left = 348
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 69
		_SHAPE2.ZOrderSet = 3
		LB_TITLU_ALB_B121.Caption = "Listare avansuri"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 10
		LB_TITLU_ALB_B121.ZOrderSet = 4
		BUT_TERMIN1.Left = 386
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 8
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 5
		Gridsort1.Name = "Gridsort1"
		BUT_RENUNT1.Left = 353
		BUT_RENUNT1.Name = "BUT_RENUNT1"
		BUT_RENUNT1.TabIndex = 9
		BUT_RENUNT1.Top = 1
		BUT_RENUNT1.ZOrderSet = 6
	*</PropValue>

	ADD OBJECT '_txtformatii' AS _textbox WITH ;
		ControlSource = "thisform.pcnumegest", ;
		DisabledForeColor = 0,0,0, ;
		Enabled = .F., ;
		FontItalic = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 22, ;
		Left = 130, ;
		Name = "_txtformatii", ;
		TabIndex = 4, ;
		Top = 185, ;
		Width = 215, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'But_cautare3' AS but_cautare WITH ;
		Left = 346, ;
		Name = "But_cautare3", ;
		TabIndex = 13, ;
		Top = 181, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Ck_perioada' AS ck_filtru_luna WITH ;
		Alignment = 0, ;
		camp_nume = luna+an*12, ;
		Caption = "Perioadă", ;
		FontName = "Arial", ;
		Left = 216, ;
		luna = , ;
		Name = "Ck_perioada", ;
		TabIndex = 3, ;
		TabStop = .F., ;
		Top = 84, ;
		Visible = .F.
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'ckCenzori' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cenzori", ;
		FontCharSet = 238, ;
		Height = 17, ;
		Left = 216, ;
		Name = "ckCenzori", ;
		TabIndex = 2, ;
		TabStop = .F., ;
		Top = 60, ;
		Visible = .F., ;
		Width = 60, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'CkFormatie' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "După formație", ;
		FontCharSet = 238, ;
		Height = 17, ;
		Left = 135, ;
		Name = "CkFormatie", ;
		TabIndex = 6, ;
		Top = 263, ;
		Width = 96, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'CkSectie' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "După secție", ;
		FontCharSet = 238, ;
		Height = 17, ;
		Left = 135, ;
		Name = "CkSectie", ;
		TabIndex = 7, ;
		Top = 282, ;
		Width = 84, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "{", ;
		FontName = "Book Antiqua", ;
		FontSize = 18, ;
		Height = 30, ;
		Left = 121, ;
		Name = "Label1", ;
		TabIndex = 14, ;
		Top = 264, ;
		Width = 10, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ;
		Caption = "II", ;
		FontName = "Courier", ;
		Left = 20, ;
		Name = "Lb_simplu2", ;
		TabIndex = 12, ;
		Top = 268, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'Lb_simplu3' AS lb_simplu WITH ;
		Caption = "Grupare:", ;
		Left = 68, ;
		Name = "Lb_simplu3", ;
		TabIndex = 5, ;
		Top = 270, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderColor = 192,192,192, ;
		ButtonCount = 7, ;
		Height = 201, ;
		Left = 36, ;
		Name = "Optiongroup1", ;
		SpecialEffect = 1, ;
		TabIndex = 1, ;
		Top = 56, ;
		Value = 1, ;
		Width = 352, ;
		ZOrderSet = 7, ;
		Option1.AutoSize = .T., ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "Toate persoanele", ;
		Option1.FontCharSet = 238, ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option1.Value = 1, ;
		Option1.Width = 115, ;
		Option2.AutoSize = .T., ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "O tranșă", ;
		Option2.FontCharSet = 238, ;
		Option2.Height = 17, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 36, ;
		Option2.Width = 65, ;
		Option3.AutoSize = .T., ;
		Option3.BackStyle = 0, ;
		Option3.Caption = "O secție", ;
		Option3.FontCharSet = 238, ;
		Option3.Height = 17, ;
		Option3.Left = 5, ;
		Option3.Name = "Option3", ;
		Option3.Top = 57, ;
		Option3.Width = 63, ;
		Option4.AutoSize = .T., ;
		Option4.BackStyle = 0, ;
		Option4.Caption = "O formație", ;
		Option4.FontCharSet = 238, ;
		Option4.Height = 17, ;
		Option4.Left = 5, ;
		Option4.Name = "Option4", ;
		Option4.Top = 80, ;
		Option4.Width = 75, ;
		Option5.AutoSize = .T., ;
		Option5.BackStyle = 0, ;
		Option5.Caption = "Anumite persoane", ;
		Option5.FontCharSet = 238, ;
		Option5.Height = 17, ;
		Option5.Left = 5, ;
		Option5.Name = "Option5", ;
		Option5.Top = 151, ;
		Option5.Width = 119, ;
		Option6.AutoSize = .T., ;
		Option6.BackStyle = 0, ;
		Option6.Caption = "Mai puțin anumite persoane", ;
		Option6.FontCharSet = 238, ;
		Option6.Height = 17, ;
		Option6.Left = 5, ;
		Option6.Name = "Option6", ;
		Option6.Top = 175, ;
		Option6.Width = 171, ;
		Option7.AutoSize = .T., ;
		Option7.BackStyle = 0, ;
		Option7.Caption = "O persoană", ;
		Option7.FontCharSet = 238, ;
		Option7.Height = 17, ;
		Option7.Left = 5, ;
		Option7.Name = "Option7", ;
		Option7.Top = 104, ;
		Option7.Width = 83
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		BackStyle = 0, ;
		BorderColor = 192,192,192, ;
		Height = 278, ;
		Left = 12, ;
		Name = "Shape1", ;
		Top = 41, ;
		Width = 390, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		BorderColor = 192,192,192, ;
		Height = 49, ;
		Left = 36, ;
		Name = "Shape2", ;
		Top = 256, ;
		Width = 352, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="shape" />
	
	PROCEDURE do_cauta
		With This.optiongroup1
			Do Case
				Case  .Value = 2
					If This.e_centralizator
						pcselect = [select * from ] + gcs + [.VNOM_SUCURSALE ]
						pcfiltru = [2=2]
						pcschema = []
						pcorder = [sucursala]
						pccoloane = [sucursala]
						pcTitlu = [Alegeti sucursala]
						pcTitluColoane = [Sucursala]
						pcFiltruInitial = [sters = 0]
						locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.t.,pcFiltruInitial)&&30iul2007
						*!*	modificare	ROASAL	v 2.0.13 : loCauta = caut_sucursala(.T.)
						*!*	modificare	ROASAL	v 2.0.15 : am comentat ce am adaugat in v 2.0.13 
						*!*		daca apelez caut_sucursala, atunci nu mai pot alege sucursalele decat pe firma mama si ar trebui sa modific
						*!*		in inainte_de_do_termin ca sa-i puna automat filtrul pe sucursala pe care sunt
						This.pcnumegest = loCauta.sucursala
						This.nidgest = loCauta.id_sucursala
					Else
						loCauta = caut_transa()
						IF !ISNULL(loCauta)
							This.pcnumegest = loCauta.Transa
							This.nidgest = loCauta.id_transa
						ENDIF
					Endif
		
				Case .Value = 3
					*!*	modificare	2.0.13
					*!*				pcselect = [select * from vnom_sectii]
					*!*				pcfiltru = [2=2]
					*!*				pcschema = []
					*!*				pcorder = [sectie]
					*!*				pccoloane = [sectie]
					*!*				pcTitlu = [Alegeti sectia]
					*!*				pcTitluColoane = [Sectie]
					*!*				pcFiltruInitial = [inactiv = 0]
					*!*				locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.t.,pcFiltruInitial)&&30iul2007
					loCauta = caut_sectie(1,.F.,.T.)
					*!*	modificare	2.0.13	^
					This.pcnumegest = loCauta.sectie
					This.nidgest = loCauta.id_sectie
		
		
				Case .Value = 4
					*!*	modificare	2.0.13
					*!*	pcselect = [select * from sal_vnom_formatii ]
					*!*				pcfiltru = [2=2]
					*!*				pcschema = []
					*!*				pcorder = [denumire]
					*!*				pccoloane = [denumire]
					*!*				pcTitlu = [Alegeti formatia]
					*!*				pcTitluColoane = [formatia]
					*!*				pcFiltruInitial = [inactiv = 0]
					*!*				locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.t.,pcFiltruInitial)&&30iul2007
					*!*				this.pcnumegest = locauta.denumire
					*!*				this.nidgest = locauta.id_formatia
					If This.e_centralizator
						lcXMLFormatii = caut_formatii_xml()
						lcSeparator = [,]
						loCauta = Null
						If !Empty(lcXMLFormatii) And gnbuton = 1
							Xmltocursor(lcXMLFormatii, "crsFormTemp")
							If Reccount('crsFormTemp') = 0
								amessagebox('Nu ati selectat nici o formatie!',0+48,'Atentie')
							ELSE
								Thisform.pcnumegest = cursor2lista("crsFormTemp", "denumire", lcSeparator)
								Thisform.csiridgest = cursor2lista("crsFormTemp","id_formatia",lcSeparator)
							Endif
							Use In crsFormTemp
						Endif
					ELSE
						IF !Inlist(Lower(Thisform.clistare), [state_simplificat])
							loCauta = caut_formatie(.T.)
						ELSE 
							loCauta = caut_formatie_sal_salspec(.T.)
						ENDIF 
						If !Isnull(loCauta)
							This.pcnumegest = loCauta.denumire
							This.nidgest = loCauta.id_formatia
							IF TYPE('loCauta.dinSalarii')<>'U'
								this.ndinsal = loCauta.dinSalarii
							ENDIF 
						ENDIF
					Endif
					*!*	modificare	2.0.13	^
				Case .Value = 7
					IF !Inlist(Lower(Thisform.clistare), [state_simplificat])
					
						pcselect = [select id_stat,nume,prenume,marca,1 as dinSalarii from sal_vstat]
					ELSE 
						pcselect = [select id_stat,nume,prenume,marca,1 as dinSalarii from sal_vstat ]+;
									[ union ]+;
									[ select id_venit as id_stat,nume,prenume,marca,0 as dinSalarii from  spec_vvenituri where brut+venitnet >0]
					ENDIF 
					pcfiltru = [2=2]
					pcschema = []
					pcorder = [nume,prenume]
					pccoloane = [nume,prenume,marca]
					pcTitlu = [Alegeti angajatul]
					pcTitluColoane = [Nume,Prenume,Marca]
					pcFiltruInitial = [sters = 0]
					loCauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.T.,pcFiltruInitial)&&30iul2007
		
					This.pcnumegest = Alltrim(loCauta.nume) +' '+ Alltrim(loCauta.prenume)
					This.nidgest = loCauta.id_stat
					this.ndinsal = loCauta.dinSalarii
				Otherwise
					loCauta = ''
					This.nidgest = 0
					this.ndinsal = 1
			Endcase
		Endwith
		This._txtformatii.Refresh
		This.orezult = loCauta
	ENDPROC

	PROCEDURE do_cauta1
	ENDPROC

	PROCEDURE do_cauta2
	ENDPROC

	PROCEDURE do_cauta3
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local lcCursor,lcCursor2,lcOrder,llAfiseaza,lcRaportSemnaturi,lcRaportListare,llRestrans,lcSql,lcAn1,lcLuna1,lcAn2,lcLuna2
		Private osel,pcSelect,pcSchema,pcFiltru,pcOrder,pcGroup,poStocuri,pnTotAvCard,pnTotPrima,pcTitlu,pcSubtitlu,pcSemnaturi,pcFiltru2,pcFiltruId,pcSectie,pcFormatie,pcFiltruOriginal,pcHeaderGrup
		Store [] To lcCursor,lcCursor2,lcOrder,lcRaportSemnaturi,lcRaportListare,lcSql,lcAn1,lcLuna1,lcAn2,lcLuna2
		Store [] To osel,poStocuri
		Store [] To pcSelect,pcSchema,pcFiltru,pcOrder,pcGroup,pcTitlu,pcSubtitlu,pcSemnaturi,pcFiltru2,pcFiltruId,pcSectie,pcFormatie,pcFiltruOriginal,pcHeaderGrup
		Store 0 To pnTotAvCard,pnTotPrima
		Store .F. To llRestrans, llAfiseaza
		
		*!*	SET STEP ON
		*!*	Private pcGrupCont,pcGrupAcont
		Set Step On
		osel = This.orezult
		If Empty(This.pcnumegest)
			With This.optiongroup1
				Do Case
				Case  .Value = 2
					Thisform.do_cauta()
				Case .Value = 3
					Thisform.do_cauta()
				Case .Value = 4
					Thisform.do_cauta()
				Case .Value = 7
					Thisform.do_cauta()
				Otherwise
					pcFiltru = []
				Endcase
			Endwith
		Endif
		If Empty(This.pcnumegest) And Inlist(Thisform.optiongroup1.Value,2,3,4,7)
			Return .F.
		Endif
		
		If This.pcnumegest # [<TOATE INREGISTRARILE>]
			With This.optiongroup1
				Do Case
				Case .Value = 2
					If This.e_centralizator
						pcFiltru = [sucursala = ']+Alltrim(This.pcnumegest)+[']
						pcFiltruId = [id_sucursala = ] + Alltrim(Str(This.nidgest))
					Else
						pcFiltru = [transa = ']+Alltrim(This.pcnumegest)+[']
						pcFiltruId = [id_transa = ] + Alltrim(Str(This.nidgest))
					Endif
				Case .Value = 3
					pcFiltru = [sectie = ']+Alltrim(This.pcnumegest)+[']
					pcFiltruId = [id_sectie = ] + Alltrim(Str(This.nidgest))
					
				Case .Value = 4
		*!*	modificare	ROASAL	v 2.0.13
					If This.e_centralizator
						pcFiltru = [formatia in ('] + Strtran(Alltrim(This.pcnumegest),[,],[',']) + [')]
						pcFiltruId = [id_formatie in (] + Alltrim(Thisform.csiridgest) + [)]
					Else
		*!*	modificare	ROASAL	v 2.0.13	^
						If Inlist(Lower(Thisform.clistare),[foaia],[foaia2])
							pcFiltru = [formatie = ']+Alltrim(This.pcnumegest)+[']
						Else
							pcFiltru = [formatia = ']+Alltrim(This.pcnumegest)+[']
						ENDIF
						IF !Inlist(Lower(Thisform.clistare), [state_simplificat])
							pcFiltruId = [id_formatie = ] + Alltrim(Str(This.nidgest))
						ELSE 
							pcFiltruId = [id_formatie = ] + Alltrim(Str(This.nidgest))+[ and dinSalarii = ]+ALLTRIM(STR(this.ndinsal))
						ENDIF 
		*!*	modificare	ROASAL	v 2.0.13
					Endif
		*!*	modificare	ROASAL	v 2.0.13	^
				Case .Value = 7
					pcFiltru = [nume  = ']+Alltrim(This.pcnumegest)+[']
					pcFiltruId = [id_stat = ] + Alltrim(Str(This.nidgest))
				Otherwise
					pcFiltru = []
		
				Endcase
			Endwith
		Endif
		If This.pcnumegest # [<TOATE INREGISTRARILE>] And This.e_centralizator And Lower(Thisform.clistare) = [centralizator]
			If This.ckCenzori.Value=1
				pcFiltru = pcFiltru  + [ and id_tipctr = 3]
				pcFiltruId = pcFiltruId + [ and id_tipctr = 3]
			Else
				pcFiltru = pcFiltru  + [ and id_tipctr <> 3]
				pcFiltruId = pcFiltruId + [ and id_tipctr <> 3]
			Endif
		Else
			If Lower(Thisform.clistare) = [centralizator]
				If This.ckCenzori.Value =1
					pcFiltru = [id_tipctr = 3]
					pcFiltruId = [id_tipctr = 3]
				Else
					pcFiltru = [id_tipctr <> 3]
					pcFiltruId = [id_tipctr <> 3]
				Endif
			Endif
		Endif
		
		pcFiltruOriginal = [2=2]
		lcOrder = []
		pcSectie = [EOF()]
		pcFormatie = [EOF()]
		lcRaportSemnaturi =	Thisform.clistare
		lcRaportListare	= Thisform.clistare
		If This.ckSectie.Value = 1
			lcOrder = lcOrder + [,sectie]
			pcSectie = [sectie]
			pcHeaderGrup = [Sectie : ]
		Endif
		If This.ckFormatie.Value = 1
			pcFormatie = [formatia]
			lcOrder = lcOrder + [,formatia]
		Endif
		
		lcOrder = Substr(lcOrder + [,nume,prenume],2)
		pcselect=[select a.*,0 as ales from ]+gcS+[.sal_vstatplata a]
		Do Case
		Case Lower(Thisform.clistare) = [sitco]
			pcSelect=[select a.*,0 as ales,0 as brutco,0 as brutcm from ]+gcS+[.sal_vsitco_dinplanif a]
		Case Lower(Thisform.clistare) = [sitco_prez]
			pcSelect=[select a.*,0 as ales,0 as brutco,0 as brutcm from ]+gcS+[.sal_vsitco_prezent a]
			lcRaportListare	= [sitco]	&&	modificare	ROANOR v 2.0.2
		Case Inlist(Lower(Thisform.clistare) , [foaia] , [foaia2])
			pcSelect=[select a.*,0 as ales from ]+gcS+[.sal_vacord a]
			pcFormatie = Strtran(Lower(pcFormatie),[formatia],[formatie])
			lcOrder = Strtran(Lower(lcOrder),[formatia],[formatie])
			llRestrans = .T.			&&	modificare	ROANOR v 2.0.2
		Case Inlist(Lower(Thisform.clistare),[pontaje1_15],[pontaje16_31],[pontajea4],[pontajea4_lucr])
			pcSelect=[select a.*,0 as ales,0 as brutco,0 as brutcm from ]+gcS+[.sal_vpontare a]
			llRestrans = .T.			&&	modificare	ROANOR v 2.0.2
			Case Inlist(Lower(Thisform.clistare),[pontajea4_ore])
			pcSelect=[select a.*,0 as ales,0 as brutco,0 as brutcm from ]+gcS+[.sal_vpontare_ore a]
			llRestrans = .T.
		*!*	modificare	ROANOR v 2.0.1
		*!*			pcFormatie = Strtran(pcFormatie,[formatia],[formatie])
		*!*			lcOrder = Strtran(lcOrder,[formatia],[formatie])
		*!*	modificare	ROANOR v 2.0.1	^
		Case Inlist(Lower(Thisform.clistare), [avans],[flutur2])
			pcFiltru = pcFiltru + Iif(Empty(pcFiltru),[ avans > 0],[ and avans > 0])
		Case Inlist(Lower(Thisform.clistare), [statsomajtehnic])
			pcFiltru = pcFiltru + Iif(Empty(pcFiltru),[ brutsomteh> 0],[ and brutsomteh> 0])
		Case Lower(Thisform.clistare) = [avansconc]
			pcFiltru = pcFiltru + Iif(Empty(pcFiltru),[ avansconc > 0],[ and avansconc > 0])
		Case Lower(Thisform.clistare) = [stat_prima]
			pcFiltru = pcFiltru + Iif(Empty(pcFiltru),[ (primanet > 0 or primabrut >0)],[ and (primanet > 0  or primabrut >0)])
		Case Lower(Thisform.clistare) = [stateco]
			pcSelect=[select a.*,0 as ales from ]+gcS+[.sal_vstatplata a]		&&	modificare	ROANOR v 2.0.2
			pcFiltru = pcFiltru + Iif(Empty(pcFiltru),[ brutco>0],[ and brutco>0])
		Case Lower(Thisform.clistare) = [statprimeco]
			pcSelect=[select a.id_stat, a.an, a.luna, a.nume, a.id_meserie, a.tarifar, a.id_formatie, a.svechime, a.c_vechime, a.primavacbr, a.primavacn, a.prenume, a.marca, a.meserie, a.formatie as formatia, a.id_sectie, a.sectie, a.zilecotot,a.primavac_card,0 as ales ]+;
				[from ]+gcS+[.sal_vprimevacanta a]								&&	modificare	ROANOR v 2.0.2
			pcFiltru = pcFiltru + Iif(Empty(pcFiltru),[ (primavacn>0 or primavacbr >0)],[ and (primavacn>0 or primavacbr >0)])
		*!*	modificare	ROANOR v 2.0.2
		*!*	Case Inlist(Lower(Thisform.clistare),[flutur1],[popriri_ang],[popriri_beneficiar])
		*!*		pcfiltru = pcfiltru
		Case Inlist(Lowe(Thisform.clistare),[flutur_det],[flutur_det_tip1],[flutur_det_tip2],[flutur_pop])
			pcSelect=[select a.*,0 as ales from ]+gcS+[.sal_vstatlist a]
			lcRaportSemnaturi = Substr(Thisform.clistare,1,10)
			llRestrans = .T.	
		Case Lower(Thisform.clistare) = [sporuri_ang]
			pcSelect=[select * from ] + gcS + [.sal_vsporuri_list ]
		Case Inlist(Lower(Thisform.clistare),[popriri_ang],[popriri_beneficiar])
			pcSelect=[select * from ] + gcS + [.sal_vpopriri_list ]
			lcOrder=[beneficiar,nume_popr,nume,prenume]
		Case Inlist(Lower(Thisform.clistare), [state_ch1])
			pcSelect=[select a.*,0 as ales from ]+gcS+[.sal_vstatlist a]
			pcFiltru = pcFiltru + Iif(Empty(pcFiltru),[ a.brutch1 >0],[ and a.brutch1 >0])
			lcRaportSemnaturi = [state]
			lcRaportListare = [state_tip1]
			llRestrans = .T.
		Case Inlist(Lower(Thisform.clistare), [state_ch2])
			pcSelect=[select a.*,0 as ales from ]+gcS+[.sal_vstatlist_ch2 a ]
			pcFiltru = pcFiltru + Iif(Empty(pcFiltru),[ a.brutch2 >0],[ and a.brutch2 >0])
			llRestrans = .T.
		Case Inlist(Lower(Thisform.clistare), [state_tip1])
			pcSelect=[select a.*,0 as ales from ]+gcS+[.sal_vstatlist a]
			pcFiltru = pcFiltru + Iif(Empty(pcFiltru),[ a.lichidare >0],[ and a.lichidare >0])
			lcRaportSemnaturi = [state]
			llRestrans = .T.
		Case Inlist(Lower(Thisform.clistare), [state_tip2])
			pcSelect=[select a.*,0 as ales from ]+gcS+[.sal_vstatlist a]
		*!*		pcFiltru = pcFiltru + Iif(Empty(pcFiltru),[ a.lichidare >0],[ and a.lichidare >0])
			lcRaportSemnaturi = [state]
			llRestrans = .T.
			*!*	modificare	ROASAL v 2.0.53	
		Case Inlist(Lower(Thisform.clistare), [state_detaliimic], [state_detaliiscst])
			pcSelect=[select a.*,0 as ales from ]+gcS+[.sal_vstatplata a]
			lcRaportSemnaturi = [state_detalii]
		
			*!*	modificare	ROASAL v 2.0.53	^	
		Case Inlist(Lower(Thisform.clistare), [state_simplificat])&&state pentru banca
		*!*		pcSelect=[select a.*,0 as ales from ]+gcS+[.sal_vstatplata a]
			pcSelect = [select sectie,formatia,nume,prenume,marca,tarifar,altedr as altedrsal,0 as altedrimp,totbrut,scas,ssomaj,ssanatate,venitnet, ]+;
		[0 as alteded,sdeducere,neimpozab, ]+;
		[(case when venitnet+nvl(valtichete,0)-sdeducere-neimpozab>0 then venitnet+nvl(valtichete,0)-sdeducere-neimpozab else 0 end) as bazaCalcul, ]+;
		[simpozit,salnet,avans+avansconc as avans,totpopriri,lichidare,0 as ales,1 as dinSalarii,nvl(valtichete,0) as valtichete,primabrut,primanet from sal_vstatplata  ]+;
		[union all ]+;
		[select sectie,formatia,nume,prenume,marca, brut as tarifar,0 as altedrsal,brut as altedrimp,brut as totbrut,scas,ssomaj,ssanatate, ]+;
		[(case when brut-scas-ssomaj-ssanatate>0 then brut-scas-ssomaj-ssanatate else 0 end) as venitnet, ]+;
		[scheltforf  as alteded,0 as sdeducere, 0 as neimpozab, ]+;
		[(case when brut-scas-ssomaj-ssanatate-scheltforf>0 then brut-scas-ssomaj-ssanatate-scheltforf else 0 end) as bazaCalcul, ]+;
		[impozit as simpozit,venitnet as salnet, avans,0 as totpopriri,venitnet as lichidare,0 as ales,0 as dinSalarii,0 as valtichete,0 as primabrut,0 as primanet from spec_vvenituri ]
		pcFiltru = pcFiltru + Iif(Empty(pcFiltru),[  brut+venitnet >0],[ and brut+venitnet >0])
			lcRaportSemnaturi = [state_detalii]
			*!*	modificare	ROASAL v 2.0.53	^	
		CASE Inlist(Lower(Thisform.clistare), [sal_condica_farasemn],[sal_condica_cusemn])
			pcSelect=[select a.*,0 as ales from ]+gcS+[.sal_vcondica a]
			lcOrder=[ziua,nume,prenume]
		CASE Inlist(Lower(Thisform.clistare), [sal_persvechimeinmun])
			pcSelect=[select marca,codpers,nume,prenume,dataang,datasfctr,tip_contract,formatia,meseria,cod_meserie,tarifar,cod as clasa_sal,vechime-vechimei]+;
					[ as vluni,vechime,data_vech  as data_vechi,semnatura ] + ;
				[ from sal_vnom_pers ]
			lcOrder=[nume,prenume]
				
		Otherwise
			pcSelect=[select a.*,0 as ales from ]+gcS+[.sal_vstatplata a]
		*!*	modificare	ROANOR v 2.0.2	^
		Endcase
		If This.pcnumegest # [<TOATE INREGISTRARILE>]
			pcSubtitlu = This.pcnumegest
		Endif
		
		*!*	modificare	ROANOR v 2.0.2
		*!*	Do Case
		*!*	Case Lower(Thisform.clistare) = [centralizator]
		If Lower(Thisform.clistare) = [centralizator]
		*!*	modificare	ROANOR v 2.0.2	^
			Wait Window "Asteptati, se calculează datele..." Nowait
		*!*	modificare	v 2.0.9
			Private poCoefListare
			lcSql = [select * from sal_calendar where an = ?gnAn and luna = ?gnLuna]
			lcCursor = [crsCoefLuna]
			If goExecutor.oExecuta(lcSql,lcCursor)
				Select (lcCursor)
				Scatter Name poCoefListare
				Use In (Select(lcCursor))
		*!*	modificare	v 2.0.9	^
		SET STEP ON 
				If This.pcnumegest = [<TOATE INREGISTRARILE>] Or This.optiongroup1.Value = 1
					pcFiltruId = ''
					lcfiltru2 = pcFiltruId
				Else
					lcfiltru2 = ' where ' + pcFiltruId
					pcFiltruId = ' and '+pcFiltruId
				Endif
		
				lcSql = [select id_stat from ]+gcS+[.sal_vstatplata ]+ lcfiltru2
				lcCursor = [crsRezultate]
				If !goExecutor.oExecuta(lcSql,lcCursor)
					Return .F.
				Endif
				Select (lcCursor)
				If Reccount() <= 0
					amessagebox('Nu exista inregistrari pentru selectia facuta',16+0,'Atentie')
					Use In (lcCursor)
					Return .F.
				Endif
				Use In (lcCursor)
				If This.e_centralizator And This.ckCenzori.Value =1
					pcFiltruId = pcFiltruId + [ and id_tipctr = 3 ]
				Endif
				If Thisform.ck_perioada.Value = 0
		*!*		MessageBox(pcfiltruId,0)
					lcSql = [begin PACK_SALARII.calcul_centralizator('] + gcS +[',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnLuna)) +[,' ]+pcFiltruId+['); end;]&&[select * from ] + gcS + [.calendar]
					If !goExecutor.oExecuta(lcSql)
						Return .F.
					Endif
		
					lcSql = [select * from ]+gcS+[.sal_vtmp_centr ]
					lcCursor = [crsRezultate]
					If !goExecutor.oExecuta(lcSql,lcCursor)
						Return .F.
					Endif
				Else
					lcLuna1 = Left(Alltrim(Thisform.ck_perioada.cvaloare1),At('/',Alltrim(Thisform.ck_perioada.cvaloare1))-1)
					lcLuna2 = Left(Alltrim(Thisform.ck_perioada.cvaloare2),At('/',Alltrim(Thisform.ck_perioada.cvaloare2))-1)
					lcAn1 = Substr(Alltrim(Thisform.ck_perioada.cvaloare1),At('/',Alltrim(Thisform.ck_perioada.cvaloare1))+1)
					lcAn2 = Substr(Alltrim(Thisform.ck_perioada.cvaloare2),At('/',Alltrim(Thisform.ck_perioada.cvaloare2))+1)
		
		*!*			lcSql = [select pack_sesiune.getluna(),pack_sesiune.getan() as valoare from dual]
		*!*			lcCursor = [crsRezultate]
		*!*			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		*!*			IF lnSucces < 0
		*!*				MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
		*!*			ENDIF
		*!*			Select crsRezultate
					lcSql = [begin PACK_SALARII.calcul_centralizator_perioada('] + gcS +[',] + ;
						lcAn1 +[,]+lcLuna1 +[,]+lcAn2 +[,]+lcLuna2 +[,' ]+pcFiltruId+['); end;]&&[select * from ] + gcS + [.calendar]
					If !goExecutor.oExecuta(lcSql)
						Return .F.
					Endif
		
		*!*			lcSql = [select pack_sesiune.getluna(),pack_sesiune.getan() as valoare from dual]
		*!*			lcCursor = [crsRezultate]
		*!*			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		*!*			IF lnSucces < 0
		*!*				MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
		*!*			ENDIF
		*!*			Select crsRezultate
		*!*			Browse
					lcSql = [select * from ]+gcS+[.sal_vtmp_centr_perioada ]
					lcCursor = [crsRezultate]
					If !goExecutor.oExecuta(lcSql,lcCursor)
						Return .F.
					Endif
					Private pcPerioada
					pcPerioada = [Perioada: ]+Alltrim(Thisform.ck_perioada.cvaloare1)+[ - ]+Alltrim(Thisform.ck_perioada.cvaloare2)
				Endif
		
				Select crsRezultate
				Thisform.speccentraliz
				Select crsRezultate
		
		*!*			pcTitlu = 'Centralizator cheltuieli societate -  '+Alltrim(Str(gnLuna))+' / '+Alltrim(Str(gnAn))
		*!*			Store '' To pcTitlu,pcSemnaturi
				param_listari('centralizator',@pcTitlu,@pcSemnaturi)
		
				Thisform.AlwaysOnTop = .F.
		*!*	modificare	v 2.0.9
		*!*		SELECT crsRezultate
		*!*		REPORT FORM centralizator TO PRINTER PROMPT PREVIEW
				goExport.export2frx([crsRezultate],[centralizator])
		*!*			goExport.export2frx([crsRezultate],[centralizator],, , , , , .T.)
		*!*	modificare	v 2.0.9	^
				Thisform.AlwaysOnTop = .T.
			Endif
			Release poCoefListare, pcPerioada
		Else
			lcCursor = [v_stat]
			pcOrder = lcOrder
			If !Empty(Thisform.filtruInitial)
				pcFiltru = Thisform.filtruInitial + Iif(!Empty(pcFiltru)," and "," ") + pcFiltru   &&Filtru initial
			Else
				pcFiltru = pcFiltru +[]
			Endif
			gencursor('postocuri',lcCursor,pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza,pcGroup, .T., pcFiltruOriginal)
			poStocuri.ca_baza1.afisare()
		
			Do Case
			Case Lower(Thisform.clistare) = [flutur_pop]
					lcSql = [select a.*,1 as epoprire from ] + gcS + [.sal_vpopriri a ]
				lcCursor2 = [v_popriri]
				If !goExecutor.oExecuta(lcSql,lcCursor2)
					RETURN .f.
				Endif
		*!*				v 2.0.71 - 15.06.2015 - sa apara cheltuieli societate pe fluturasi'
					LOCAL lnNrPf
					STORE 0 TO lnNrPf
					lcSql = [select COUNT(*) as nrpef from ]+gcS+[.sal_centralizator where pe_fluturas = 1 and pack_sesiune.getan()*12+pack_sesiune.getluna() between nvl(lunaaninc,1900*12+1) and nvl(lunaansf,2999*12+12)]
					If !goExecutor.oExecuta(lcSql,[crsNrPefluturas])
						Return .F.
					ENDIF
					SELECT crsNrPefluturas
					lnNrPf = crsNrPefluturas.nrpef 
					USE IN crsNrPefluturas
					IF lnNrPf > 0
						
						LOCAL lnTotalBrutFlutur,lnTotalCheltsocietate
						STORE 0 TO lnTotalbrutFlutur,lnTotalCheltsocietate
						lcSql = [begin PACK_SALARII.calcul_centralizator('] + gcS +[',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnLuna)) +[,' '); end;]&&[select * from ] + gcS + [.calendar]
						If !goExecutor.oExecuta(lcSql)
							Return .F.
						Endif
		
						lcSql = [select * from ]+gcS+[.sal_vtmp_centr where pe_fluturas = 1 or id_tmp_centr = 22]
						If !goExecutor.oExecuta(lcSql,[crsCentralizator])
							Return .F.
						ENDIF
						IF RECCOUNT('crsCentralizator') > 1 
							SELECT crsCentralizator
							LOCATE FOR id_tmp_centr = 22
							lnTotalBrutFlutur = suma
							DELETE FOR id_tmp_centr = 22
							
		
							SELECT v_stat
							SCAN
							SCATTER NAME lostatCentrFluturas
								INSERT INTO v_popriri (id_stat,id_poprire,sumapop,epoprire,nume_popr) ;
								VALUES (lostatCentrFluturas.id_stat,0,0,0,'TAXE COMPANIE:')
								SELECT crsCentralizator
								SCAN 
									INSERT INTO v_popriri (id_stat,id_poprire,sumapop,epoprire,nume_popr) ;
										VALUES (lostatCentrFluturas.id_stat,0,;
										IIF('IMPOZIT'$ALLTRIM(UPPER(crsCentralizator.nume_coloana)),v_stat.simpozit,(ROUND((crsCentralizator.suma*(lostatCentrFluturas.totbrut*100)/lnTotalBrutFlutur )/100,0))+;
											IIF(EMPTY(NVL(crsCentralizator.sdinstat,[])),0,EVALUATE([v_stat.]+ALLTRIM(crsCentralizator.sdinstat)))),0,;
											STRTRAN(STRTRAN(UPPER(crsCentralizator.nume_coloana),'SOCIETATE',''),'TOTAL',''))
								ENDSCAN 
								SELECT v_popriri 
								SUM sumapop FOR id_stat = lostatCentrFluturas.id_stat AND epoprire = 0 TO lnTotalCheltsocietate
								LOCATE FOR id_stat = lostatCentrFluturas.id_stat AND epoprire = 0 AND ALLTRIM(nume_popr) = 'TAXE COMPANIE:'
								REPLACE sumapop WITH lnTotalCheltsocietate 
								SELECT v_stat
							ENDSCAN 
							lcRaportListare = [flutur_pop_centr]
						ENDIF 
						USE IN crsCentralizator
					ENDIF 
		*!*				v 2.0.71 ^			
					Select (lcCursor2)
					Index On id_stat Tag id_stat Of &gctemppath\popr_stat
					Set Order To id_stat
					Select (lcCursor)
					Set Relation To id_stat Into (lcCursor2)
		
			Case Lower(Thisform.clistare) = [avans]
				Select (lcCursor)
				Sum avans_card To pnTotAvCard
			Case Lower(Thisform.clistare) = [stat_prima]
				Select (lcCursor)
				Sum prima_card To pnTotPrima
			Otherwise
				lcSql = []
			Endcase
		
			param_listari(lcRaportSemnaturi,@pcTitlu,@pcSemnaturi)
			Do Case
			Case Inlist(Lower(Thisform.clistare),[state_ch1])
				pcTitlu = 'STAT DE PLATA - CHENZINA 1'
			Case Inlist(Lower(Thisform.clistare),[state_ch2])
				pcTitlu = 'STAT DE PLATA - CHENZINA 2'
			Otherwise
				pcTitlu = pcTitlu
			Endcase
		
			SELECT (lcCursor)
			Thisform.AlwaysOnTop=.F.
			With This.optiongroup1
				Do Case
				Case  .Value = 5
					ofrm_anumiti = Createobject('frm_list_anumiti',llRestrans)
					ofrm_anumiti.clistare = lcRaportListare
					ofrm_anumiti.anumiti_da = .T.
					ofrm_anumiti.Show(1)
				Case .Value = 6
					ofrm_anumiti = Createobject('frm_list_anumiti',llRestrans)
					ofrm_anumiti.clistare = lcRaportListare
					ofrm_anumiti.anumiti_da = .F.
					ofrm_anumiti.Show(1)
				Otherwise
		*!*				goExport.export2frx(lcCursor,lcRaportListare,, , , , , .T.)
					goExport.export2frx(lcCursor,lcRaportListare)
		
				Endcase
			Endwith
			Thisform.AlwaysOnTop=.T.
			Use In (lcCursor)
			If Used(lcCursor2)
				Use In (lcCursor2)
			Endif
		Endif
		*!*	modificare	ROANOR v 2.0.2	^
		Release lcCursor,lcCursor2,lcOrder,llAfiseaza,lcRaportSemnaturi,lcRaportListare, llRestrans, lcSql
		Release pcSelect,pcSchema,pcFiltru,pcOrder,pcGroup,poStocuri,pnTotAvCard,pnTotPrima,pcTitlu,pcSubtitlu,pcSemnaturi,pcFiltru2, pcFiltruId,pcSectie,pcFormatie,pcFiltruOriginal
		Return .F.
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		IF this.e_centralizator 
			this.optiongroup1.option2.Caption = 'O sucursală'
			This.optiongroup1.option4.Caption = 'Una sau mai multe formații'	&&	modificare	ROASAL v 2.0.13
			this.optiongroup1.option5.Visible = .f.
			this.optiongroup1.option6.Visible = .f.
			this.ckFormatie.Visible = .f.
			this.ckSectie.Visible=.f.
			this.label1.Visible = .f.
			this.lb_simplu2.Visible = .f.
			this.lb_simplu3.Visible = .f.
			this.shape2.Visible = .f.
			this.shape1.Height = 181
			this.optiongroup1.Height = 124
			this.Height = 233
			IF LOWER(THISFORM.clistare) = [centralizator]
				this.ckCenzori.Visible=.t.
				this.ck_perioada.Visible=.t.
			ENDIF 
		ELSE 
			IF !Inlist(Lower(Thisform.clistare), [state_simplificat])
				this.optiongroup1.option2.Visible = .t.
			ELSE 
				this.optiongroup1.option2.Visible = .f.
			ENDIF 
			this.optiongroup1.option7.Visible = this.lpersoana
		ENDIF 
	ENDPROC

	PROCEDURE speccentraliz
		LOCAL lcOrdine
		STORE '' TO lcOrdine
		SELECT nrcrt,suma FROM crsRezultate INTO CURSOR crsNrcrt
		SELECT crsNrcrt
		*!*	BROWSE 
		SCAN 
			SCATTER NAME crsRez
			lcOrdine = '('+ALLTRIM(STR(crsRez.nrcrt))+')'
			SELECT crsRezultate
			SCAN FOR lcOrdine $ nume_coloana
				REPLACE nume_coloana WITH STRTRAN(nume_coloana,lcOrdine,ALLTRIM(STR(crsRez.suma)))	
			ENDSCAN 
			SELECT crsNrcrt
		ENDSCAN 
	ENDPROC

	PROCEDURE Optiongroup1.InteractiveChange
		thisform.pcnumegest = ''
		thisform._txtformatii.Refresh 
	ENDPROC

ENDDEFINE
