1782 lines
61 KiB
Plaintext
1782 lines
61 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (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<74>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<61>", ;
|
||
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<75> forma<6D>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<75> sec<65>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<61><6E>", ;
|
||
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<65>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<6D>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<70>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<61>", ;
|
||
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<61> 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<61>'
|
||
This.optiongroup1.option4.Caption = 'Una sau mai multe forma<6D>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
|