1611 lines
49 KiB
Plaintext
1611 lines
49 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="odebcred.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS frm_debcred AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cDataAct.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cDataAct.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cNrAct.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cNrAct.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cSuma.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cSuma.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExpl3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExpl3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cScd.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cScd.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cScc.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cScc.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExpl1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExpl1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExpl2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExpl2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cFelDoc.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cFelDoc.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cUtil.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cUtil.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cDataOra.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cDataOra.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.Column13.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.Column13.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.Column14.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.Column14.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExplicatieTVA.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExplicatieTVA.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Lb_titlu1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_listare" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Clb_total" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 3
|
|
DoCreate = .T.
|
|
Height = 430
|
|
Name = "frm_debcred"
|
|
Width = 752
|
|
WindowState = 2
|
|
_shape1.Anchor = 10
|
|
_shape1.Height = 29
|
|
_shape1.Left = 0
|
|
_shape1.Name = "_shape1"
|
|
_shape1.Top = 0
|
|
_shape1.Width = 756
|
|
_shape2.Anchor = 9
|
|
_shape2.Height = 29
|
|
_shape2.Left = 659
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = -1
|
|
_shape2.Width = 93
|
|
Lb_titlu_alb_b121.FontBold = .T.
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
Lb_titlu_alb_b121.TabIndex = 4
|
|
BUT_TERMIN1.Anchor = 8
|
|
BUT_TERMIN1.Left = 721
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.TabIndex = 3
|
|
BUT_TERMIN1.Top = 0
|
|
Gridsort1.Name = "Gridsort1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT '_grdbase1' AS _grdbase WITH ;
|
|
Anchor = 15, ;
|
|
ColumnCount = 16, ;
|
|
DeleteMark = .F., ;
|
|
Height = 312, ;
|
|
Left = 12, ;
|
|
Name = "_grdbase1", ;
|
|
Panel = 1, ;
|
|
RecordSource = "acn1", ;
|
|
TabIndex = 1, ;
|
|
Top = 72, ;
|
|
Width = 734, ;
|
|
Column1.ColumnOrder = 2, ;
|
|
Column1.ControlSource = "dataact", ;
|
|
Column1.FontName = "Arial", ;
|
|
Column1.Name = "cDataAct", ;
|
|
Column1.Width = 56, ;
|
|
Column2.ColumnOrder = 5, ;
|
|
Column2.ControlSource = "nract", ;
|
|
Column2.FontName = "Arial", ;
|
|
Column2.Name = "cNrAct", ;
|
|
Column2.Width = 46, ;
|
|
Column3.ColumnOrder = 8, ;
|
|
Column3.ControlSource = "suma", ;
|
|
Column3.FontName = "Arial", ;
|
|
Column3.InputMask = (get_mask(15,gnPa)), ;
|
|
Column3.Name = "cSuma", ;
|
|
Column3.Width = 91, ;
|
|
Column4.ColumnOrder = 14, ;
|
|
Column4.ControlSource = "explicatia", ;
|
|
Column4.FontName = "Arial", ;
|
|
Column4.Name = "cExpl3", ;
|
|
Column4.Width = 160, ;
|
|
Column5.ColumnOrder = 9, ;
|
|
Column5.ControlSource = "scd", ;
|
|
Column5.FontName = "Arial", ;
|
|
Column5.Name = "cScd", ;
|
|
Column5.Width = 59, ;
|
|
Column6.ColumnOrder = 11, ;
|
|
Column6.ControlSource = "scc", ;
|
|
Column6.FontName = "Arial", ;
|
|
Column6.Name = "cScc", ;
|
|
Column6.Width = 63, ;
|
|
Column7.ColumnOrder = 6, ;
|
|
Column7.ControlSource = "partD", ;
|
|
Column7.FontName = "Arial", ;
|
|
Column7.Name = "cExpl1", ;
|
|
Column7.Width = 118, ;
|
|
Column8.ColumnOrder = 7, ;
|
|
Column8.ControlSource = "partC", ;
|
|
Column8.FontName = "Arial", ;
|
|
Column8.Name = "cExpl2", ;
|
|
Column8.Width = 131, ;
|
|
Column9.ColumnOrder = 1, ;
|
|
Column9.ControlSource = "dataireg", ;
|
|
Column9.FontName = "Arial", ;
|
|
Column9.Name = "cDataIreg", ;
|
|
Column9.Width = 64, ;
|
|
Column10.ColumnOrder = 3, ;
|
|
Column10.ControlSource = "fdoc", ;
|
|
Column10.FontName = "Arial", ;
|
|
Column10.Name = "cFelDoc", ;
|
|
Column10.Width = 111, ;
|
|
Column11.ColumnOrder = 15, ;
|
|
Column11.ControlSource = "util", ;
|
|
Column11.FontName = "Arial", ;
|
|
Column11.Name = "cUtil", ;
|
|
Column11.Width = 51, ;
|
|
Column12.ColumnOrder = 16, ;
|
|
Column12.ControlSource = "dataora", ;
|
|
Column12.FontName = "Arial", ;
|
|
Column12.Name = "cDataOra", ;
|
|
Column12.Width = 30, ;
|
|
Column13.ColumnOrder = 10, ;
|
|
Column13.ControlSource = "ascd", ;
|
|
Column13.FontName = "Arial", ;
|
|
Column13.Name = "Column13", ;
|
|
Column13.Width = 52, ;
|
|
Column14.ColumnOrder = 12, ;
|
|
Column14.ControlSource = "ascc", ;
|
|
Column14.FontName = "Arial", ;
|
|
Column14.Name = "Column14", ;
|
|
Column14.Width = 52, ;
|
|
Column15.ColumnOrder = 4, ;
|
|
Column15.ControlSource = "serie_act", ;
|
|
Column15.FontName = "Arial", ;
|
|
Column15.Name = "cSerie_act", ;
|
|
Column15.Width = 59, ;
|
|
Column16.ColumnOrder = 13, ;
|
|
Column16.ControlSource = "explicatie_tva", ;
|
|
Column16.FontName = "Arial", ;
|
|
Column16.Name = "cExplicatieTVA", ;
|
|
Column16.Width = 80
|
|
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT '_grdbase1.cDataAct.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data doc.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cDataAct.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data inreg.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cDataOra.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cDataOra.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cExpl1.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Expl.1", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cExpl1.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cExpl2.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Expl.2", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cExpl2.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cExpl3.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Expl.3", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cExpl3.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cExplicatieTVA.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Explicatie TVA", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cExplicatieTVA.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cFelDoc.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Fel doc.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cFelDoc.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cNrAct.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. doc.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cNrAct.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.Column13.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "AnaliticD", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.Column13.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.Column14.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "AnaliticC", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.Column14.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cScc.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont Cred.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cScc.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cScd.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont Deb.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cScd.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cSerie_act.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Serie doc.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cSerie_act.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cSuma.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Suma", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cSuma.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cUtil.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Utilizator", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cUtil.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'But_excel1' AS but_excel WITH ;
|
|
Anchor = 8, ;
|
|
Left = 659, ;
|
|
Name = "But_excel1", ;
|
|
Top = 0
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_listare' AS but_listare WITH ;
|
|
Anchor = 8, ;
|
|
Left = 690, ;
|
|
Name = "But_listare", ;
|
|
TabIndex = 2, ;
|
|
Top = 0, ;
|
|
Visible = .T.
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Clb_total' AS clb_tx_simplu WITH ;
|
|
Anchor = 12, ;
|
|
Left = 456, ;
|
|
Name = "Clb_total", ;
|
|
TabIndex = 6, ;
|
|
TabStop = .F., ;
|
|
Top = 396, ;
|
|
Text_simplu1.InputMask = (get_mask(15,gnPA)), ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.ReadOnly = .T., ;
|
|
Lb_simplu1.Caption = "Total", ;
|
|
Lb_simplu1.Name = "Lb_simplu1"
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
|
|
gridexpression = Thisform._grdbase1, ;
|
|
Left = 152, ;
|
|
Name = "Gridextra1", ;
|
|
productname = ROA, ;
|
|
Top = 44
|
|
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
|
|
|
ADD OBJECT 'Lb_titlu1' AS lb_titlu_negru_b12 WITH ;
|
|
Anchor = 2, ;
|
|
Caption = "RULAJ", ;
|
|
Left = 24, ;
|
|
Name = "Lb_titlu1", ;
|
|
TabIndex = 5, ;
|
|
Top = 43
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
|
|
|
PROCEDURE actualizeaza_grid1
|
|
Local lnSuma1,lcRec
|
|
Select acn1
|
|
lcRec=Iif(Reccount()>0,Alltrim(Str(Recno())),'TOP')
|
|
Sum suma To lnSuma1
|
|
Thisform.clb_total.text_simplu1.Value=lnSuma1
|
|
Go &lcRec
|
|
ENDPROC
|
|
|
|
PROCEDURE do_excel
|
|
export_excel_grid(thisform._grdbase1,'dataireg')
|
|
ENDPROC
|
|
|
|
PROCEDURE do_listare
|
|
*!* Local lcTitlu
|
|
*!* PRIVATE pcdataora
|
|
*!* If Used('acn1') And Reccount('acn1')>0
|
|
*!* lcTitlu=Thisform.lb_titlu1.Caption
|
|
*!* pcdataora=get_ora(2)
|
|
*!* Thisform.AlwaysOnTop= .F.
|
|
*!* Select acn1
|
|
*!* Report Form ist_deb_cred To Printer Prompt Preview
|
|
*!* Thisform.AlwaysOnTop= .T.
|
|
*!* Else
|
|
*!* aMessagebox("Nu exista date pentru listare!",0+48,"Atentie")
|
|
*!* Endif
|
|
Private pcTitlu
|
|
pcTitlu = Thisform.lb_titlu1.Caption
|
|
Thisform.AlwaysOnTop = .F.
|
|
goExport.export2frx([acn1],[ist_deb_cred], , , , , , .T.)
|
|
Thisform.AlwaysOnTop = .T.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
DODEFAULT()
|
|
this.WindowState = 2
|
|
thisform.actualizeaza_grid1()
|
|
this.gridextra1.setup()
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_debsicred AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cDataAct.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cDataAct.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cNrAct.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cNrAct.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cSuma.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cSuma.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExpl3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExpl3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cScd.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cScd.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cScc.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cScc.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExpl1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExpl1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExpl2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cExpl2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cFelDoc.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cFelDoc.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.Column11.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.Column11.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.Column12.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.Column12.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Lb_titlu1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Lb_titlu2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_listaredebit" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_listarecredit" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cDataAct.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cDataAct.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cNrAct.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cNrAct.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cSuma.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cSuma.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cExpl3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cExpl3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cScd.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cScd.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cScc.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cScc.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cExpl1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cExpl1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cExpl2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cExpl2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cDataIreg.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cDataIreg.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cFelDoc.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cFelDoc.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.Column11.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.Column11.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.Column12.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.Column12.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cSerie_act.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_grdbase2.cSerie_act.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Clb_totaldebit" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Clb_totalcredit" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_excel2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridextra2" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: do_excel2
|
|
*m: do_listare2
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 3
|
|
cbuton1 = but_excel1;but_excel2
|
|
DoCreate = .T.
|
|
Height = 433
|
|
Name = "frm_debsicred"
|
|
Width = 752
|
|
WindowState = 2
|
|
_shape1.Anchor = 10
|
|
_shape1.Height = 29
|
|
_shape1.Left = 0
|
|
_shape1.Name = "_shape1"
|
|
_shape1.Top = 0
|
|
_shape1.Width = 759
|
|
_shape2.Anchor = 8
|
|
_shape2.Height = 29
|
|
_shape2.Left = 720
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = 0
|
|
_shape2.Width = 33
|
|
Lb_titlu_alb_b121.FontBold = .T.
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
Lb_titlu_alb_b121.TabIndex = 6
|
|
BUT_TERMIN1.Anchor = 8
|
|
BUT_TERMIN1.Left = 721
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.TabIndex = 5
|
|
BUT_TERMIN1.Top = 1
|
|
Gridsort1.Name = "Gridsort1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT '_grdbase1' AS _grdbase WITH ;
|
|
Anchor = 135, ;
|
|
ColumnCount = 13, ;
|
|
DeleteMark = .F., ;
|
|
Height = 312, ;
|
|
Left = 7, ;
|
|
Name = "_grdbase1", ;
|
|
Panel = 1, ;
|
|
RecordSource = "acn1", ;
|
|
TabIndex = 1, ;
|
|
Top = 72, ;
|
|
Width = 364, ;
|
|
Column1.ControlSource = "TTOD(dataact)", ;
|
|
Column1.FontName = "Arial", ;
|
|
Column1.Name = "cDataAct", ;
|
|
Column1.Width = 56, ;
|
|
Column2.ColumnOrder = 3, ;
|
|
Column2.ControlSource = "nract", ;
|
|
Column2.FontName = "Arial", ;
|
|
Column2.Name = "cNrAct", ;
|
|
Column2.Width = 71, ;
|
|
Column3.ColumnOrder = 4, ;
|
|
Column3.ControlSource = "suma", ;
|
|
Column3.FontName = "Arial", ;
|
|
Column3.InputMask = (get_mask(15,gnPa)), ;
|
|
Column3.Name = "cSuma", ;
|
|
Column3.Width = 88, ;
|
|
Column4.ColumnOrder = 5, ;
|
|
Column4.ControlSource = "explicatia", ;
|
|
Column4.FontName = "Arial", ;
|
|
Column4.Name = "cExpl3", ;
|
|
Column4.Width = 80, ;
|
|
Column5.ColumnOrder = 6, ;
|
|
Column5.ControlSource = "scd", ;
|
|
Column5.FontName = "Arial", ;
|
|
Column5.Name = "cScd", ;
|
|
Column5.Width = 55, ;
|
|
Column6.ColumnOrder = 8, ;
|
|
Column6.ControlSource = "scc", ;
|
|
Column6.FontName = "Arial", ;
|
|
Column6.Name = "cScc", ;
|
|
Column6.Width = 63, ;
|
|
Column7.ColumnOrder = 10, ;
|
|
Column7.ControlSource = "partD", ;
|
|
Column7.FontName = "Arial", ;
|
|
Column7.Name = "cExpl1", ;
|
|
Column7.Width = 110, ;
|
|
Column8.ColumnOrder = 11, ;
|
|
Column8.ControlSource = "partC", ;
|
|
Column8.FontName = "Arial", ;
|
|
Column8.Name = "cExpl2", ;
|
|
Column8.Width = 110, ;
|
|
Column9.ColumnOrder = 12, ;
|
|
Column9.ControlSource = "TTOD(dataireg)", ;
|
|
Column9.FontName = "Arial", ;
|
|
Column9.Name = "cDataIreg", ;
|
|
Column9.Width = 64, ;
|
|
Column10.ColumnOrder = 13, ;
|
|
Column10.ControlSource = "fdoc", ;
|
|
Column10.FontName = "Arial", ;
|
|
Column10.Name = "cFelDoc", ;
|
|
Column10.Width = 95, ;
|
|
Column11.ColumnOrder = 7, ;
|
|
Column11.ControlSource = "ascd", ;
|
|
Column11.FontName = "Arial", ;
|
|
Column11.Name = "Column11", ;
|
|
Column11.Width = 52, ;
|
|
Column12.ColumnOrder = 9, ;
|
|
Column12.ControlSource = "ascc", ;
|
|
Column12.FontName = "Arial", ;
|
|
Column12.Name = "Column12", ;
|
|
Column12.Width = 52, ;
|
|
Column13.ColumnOrder = 2, ;
|
|
Column13.ControlSource = "serie_act", ;
|
|
Column13.FontName = "Arial", ;
|
|
Column13.Name = "cSerie_act", ;
|
|
Column13.Width = 60
|
|
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT '_grdbase1.cDataAct.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data doc.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cDataAct.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data inreg.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cExpl1.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Expl.1", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cExpl1.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cExpl2.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Expl.2", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cExpl2.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cExpl3.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Expl.3", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cExpl3.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cFelDoc.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Fel doc.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cFelDoc.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cNrAct.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. doc.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cNrAct.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.Column11.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "AnaliticD", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.Column11.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.Column12.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "AnaliticC", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.Column12.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cScc.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont Cred.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cScc.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cScd.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont Deb.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cScd.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cSerie_act.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Serie doc.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cSerie_act.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase1.cSuma.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Suma", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase1.cSuma.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2' AS _grdbase WITH ;
|
|
Anchor = 45, ;
|
|
ColumnCount = 13, ;
|
|
DeleteMark = .F., ;
|
|
Height = 312, ;
|
|
Left = 384, ;
|
|
Name = "_grdbase2", ;
|
|
Panel = 1, ;
|
|
RecordSource = "acn2", ;
|
|
TabIndex = 2, ;
|
|
Top = 72, ;
|
|
Width = 364, ;
|
|
Column1.ControlSource = "TTOD(dataact)", ;
|
|
Column1.FontName = "Arial", ;
|
|
Column1.Name = "cDataAct", ;
|
|
Column1.Width = 56, ;
|
|
Column2.ColumnOrder = 3, ;
|
|
Column2.ControlSource = "nract", ;
|
|
Column2.FontName = "Arial", ;
|
|
Column2.Name = "cNrAct", ;
|
|
Column2.Width = 64, ;
|
|
Column3.ColumnOrder = 4, ;
|
|
Column3.ControlSource = "suma", ;
|
|
Column3.FontName = "Arial", ;
|
|
Column3.InputMask = (get_mask(15,gnPA)), ;
|
|
Column3.Name = "cSuma", ;
|
|
Column3.Width = 88, ;
|
|
Column4.ColumnOrder = 5, ;
|
|
Column4.ControlSource = "explicatia", ;
|
|
Column4.FontName = "Arial", ;
|
|
Column4.Name = "cExpl3", ;
|
|
Column4.Width = 80, ;
|
|
Column5.ColumnOrder = 6, ;
|
|
Column5.ControlSource = "scd", ;
|
|
Column5.FontName = "Arial", ;
|
|
Column5.Name = "cScd", ;
|
|
Column5.Width = 59, ;
|
|
Column6.ColumnOrder = 8, ;
|
|
Column6.ControlSource = "scc", ;
|
|
Column6.FontName = "Arial", ;
|
|
Column6.Name = "cScc", ;
|
|
Column6.Width = 63, ;
|
|
Column7.ColumnOrder = 10, ;
|
|
Column7.ControlSource = "partD", ;
|
|
Column7.FontName = "Arial", ;
|
|
Column7.Name = "cExpl1", ;
|
|
Column7.Width = 110, ;
|
|
Column8.ColumnOrder = 11, ;
|
|
Column8.ControlSource = "partC", ;
|
|
Column8.FontName = "Arial", ;
|
|
Column8.Name = "cExpl2", ;
|
|
Column8.Width = 110, ;
|
|
Column9.ColumnOrder = 12, ;
|
|
Column9.ControlSource = "TTOD(dataireg)", ;
|
|
Column9.FontName = "Arial", ;
|
|
Column9.Name = "cDataIreg", ;
|
|
Column9.Width = 48, ;
|
|
Column10.ColumnOrder = 13, ;
|
|
Column10.ControlSource = "fdoc", ;
|
|
Column10.FontName = "Arial", ;
|
|
Column10.Name = "cFelDoc", ;
|
|
Column10.Width = 95, ;
|
|
Column11.ColumnOrder = 7, ;
|
|
Column11.ControlSource = "ascd", ;
|
|
Column11.FontName = "Arial", ;
|
|
Column11.Name = "Column11", ;
|
|
Column11.Width = 55, ;
|
|
Column12.ColumnOrder = 9, ;
|
|
Column12.ControlSource = "ascc", ;
|
|
Column12.FontName = "Arial", ;
|
|
Column12.Name = "Column12", ;
|
|
Column12.Width = 55, ;
|
|
Column13.ColumnOrder = 2, ;
|
|
Column13.ControlSource = "serie_act", ;
|
|
Column13.FontName = "Arial", ;
|
|
Column13.Name = "cSerie_act", ;
|
|
Column13.Width = 59
|
|
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT '_grdbase2.cDataAct.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data doc.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.cDataAct.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2.cDataIreg.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data inreg.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.cDataIreg.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2.cExpl1.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Expl.1", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.cExpl1.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2.cExpl2.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Expl.2", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.cExpl2.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2.cExpl3.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Expl.3", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.cExpl3.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2.cFelDoc.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Fel doc.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.cFelDoc.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2.cNrAct.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. doc.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.cNrAct.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2.Column11.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Analitic D", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.Column11.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2.Column12.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Analitic C", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.Column12.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2.cScc.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont Cred.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.cScc.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2.cScd.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont Deb.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.cScd.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2.cSerie_act.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Serie doc.", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.cSerie_act.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT '_grdbase2.cSuma.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Suma", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT '_grdbase2.cSuma.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
SelectedBackColor = 100,185,255
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'But_excel1' AS but_excel WITH ;
|
|
Anchor = 129, ;
|
|
Left = 340, ;
|
|
Name = "But_excel1", ;
|
|
Top = 42, ;
|
|
Visible = .T.
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_excel2' AS but_excel WITH ;
|
|
Anchor = 9, ;
|
|
caction = do_excel2, ;
|
|
Left = 718, ;
|
|
Name = "But_excel2", ;
|
|
Top = 42, ;
|
|
Visible = .T.
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_listarecredit' AS but_listare WITH ;
|
|
Anchor = 9, ;
|
|
caction = do_listare2, ;
|
|
Left = 687, ;
|
|
Name = "But_listarecredit", ;
|
|
TabIndex = 4, ;
|
|
ToolTipText = "Listare (CTRL+I)", ;
|
|
Top = 42, ;
|
|
Visible = .T.
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_listaredebit' AS but_listare WITH ;
|
|
Anchor = 129, ;
|
|
Left = 309, ;
|
|
Name = "But_listaredebit", ;
|
|
TabIndex = 3, ;
|
|
Top = 42, ;
|
|
Visible = .T.
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Clb_totalcredit' AS clb_tx_simplu WITH ;
|
|
Anchor = 12, ;
|
|
Left = 458, ;
|
|
Name = "Clb_totalcredit", ;
|
|
TabIndex = 10, ;
|
|
TabStop = .F., ;
|
|
Top = 396, ;
|
|
Text_simplu1.InputMask = (get_mask(15,gnPA)), ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.ReadOnly = .T., ;
|
|
Lb_simplu1.Caption = "Total credit", ;
|
|
Lb_simplu1.Name = "Lb_simplu1"
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Clb_totaldebit' AS clb_tx_simplu WITH ;
|
|
Anchor = 132, ;
|
|
Left = 80, ;
|
|
Name = "Clb_totaldebit", ;
|
|
TabIndex = 9, ;
|
|
TabStop = .F., ;
|
|
Top = 396, ;
|
|
Text_simplu1.InputMask = (get_mask(15,gnPA)), ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.ReadOnly = .T., ;
|
|
Lb_simplu1.Caption = "Total debit", ;
|
|
Lb_simplu1.Name = "Lb_simplu1"
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
|
|
gridexpression = Thisform._grdbase1, ;
|
|
Left = 144, ;
|
|
Name = "Gridextra1", ;
|
|
productname = ROA, ;
|
|
Top = 36
|
|
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
|
|
|
ADD OBJECT 'Gridextra2' AS gridextra WITH ;
|
|
gridexpression = Thisform._grdbase2, ;
|
|
Left = 480, ;
|
|
Name = "Gridextra2", ;
|
|
productname = ROA, ;
|
|
Top = 48
|
|
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
|
|
|
ADD OBJECT 'Lb_titlu1' AS lb_titlu_negru_b12 WITH ;
|
|
Anchor = 2, ;
|
|
Caption = "DEBIT", ;
|
|
Left = 24, ;
|
|
Name = "Lb_titlu1", ;
|
|
TabIndex = 7, ;
|
|
Top = 43
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Lb_titlu2' AS lb_titlu_negru_b12 WITH ;
|
|
Anchor = 33, ;
|
|
Caption = "CREDIT", ;
|
|
Left = 382, ;
|
|
Name = "Lb_titlu2", ;
|
|
TabIndex = 8, ;
|
|
Top = 43
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
|
|
|
PROCEDURE actualizeaza_grid1
|
|
Local lnSuma1,lcRec
|
|
Select acn1
|
|
lcRec=Iif(Reccount()>0,Alltrim(Str(Recno())),'TOP')
|
|
Sum suma To lnSuma1
|
|
Thisform.clb_totaldebit.text_simplu1.Value=lnSuma1
|
|
Go &lcRec
|
|
ENDPROC
|
|
|
|
PROCEDURE actualizeaza_grid2
|
|
Local lnSuma2,lnRec
|
|
Select acn2
|
|
lcRec=Iif(Reccount()>0,Alltrim(Str(Recno())),'TOP')
|
|
Sum suma To lnSuma2
|
|
Thisform.clb_totalcredit.text_simplu1.Value=lnSuma2
|
|
Go &lcRec
|
|
ENDPROC
|
|
|
|
PROCEDURE do_excel
|
|
export_excel_grid(thisform._grdbase1,'dataireg')
|
|
ENDPROC
|
|
|
|
PROCEDURE do_excel2
|
|
export_excel_grid(thisform._grdbase2,'dataireg')
|
|
ENDPROC
|
|
|
|
PROCEDURE do_listare
|
|
Local lcTitlu
|
|
PRIVATE pcdataora
|
|
If Used('acn1') And Reccount('acn1')>0
|
|
lcTitlu=Thisform.lb_titlu1.Caption
|
|
pcdataora=get_ora(2)
|
|
Thisform.AlwaysOnTop= .F.
|
|
Select acn1
|
|
*!* Report Form ist_deb_cred To Printer Prompt Preview
|
|
goExport.export2frx('acn1','ist_deb_cred', , , , , , .T.)
|
|
Thisform.AlwaysOnTop= .T.
|
|
Else
|
|
aMessagebox("Nu exista date pentru listare!",0+48,"Atentie")
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_listare2
|
|
Local lcTitlu
|
|
PRIVATE pcdataora
|
|
If Used('acn2') And Reccount('acn2')>0
|
|
lcTitlu=Thisform.lb_titlu2.Caption
|
|
pcdataora=get_ora(2)
|
|
Thisform.AlwaysOnTop= .F.
|
|
Select acn2
|
|
*!* Report Form ist_deb_cred To Printer Prompt Preview
|
|
goExport.export2frx('acn2','ist_deb_cred', , , , , , .T.)
|
|
Thisform.AlwaysOnTop= .T.
|
|
Else
|
|
aMessagebox("Nu exista date pentru listare!",0+48,"Atentie")
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
DODEFAULT()
|
|
this.WindowState = 2
|
|
thisform.actualizeaza_grid1()
|
|
thisform.actualizeaza_grid2()
|
|
|
|
This.gridextra1.setup()
|
|
this.gridextra2.setup()
|
|
ENDPROC
|
|
|
|
PROCEDURE KeyPress
|
|
Lparameters nKeyCode, nShiftAltCtrl
|
|
LOCAL lbviz
|
|
lbviz=thisform.bvizualizare
|
|
Do Case
|
|
Case nKeyCode=27 And nShiftAltCtrl=0
|
|
Nodefault
|
|
If aMessagebox("Sunteti sigur ca doriti sa inchideti fereastra?",4+32+256,"Confirmare")==6
|
|
This.do_renunt()
|
|
ENDIF
|
|
CASE nKeyCode=5 AND nShiftAltCtrl=2 AND lbviz=.F.
|
|
NODEFAULT
|
|
If PEMSTATUS(This,"do_excel",5)
|
|
this.do_excel()
|
|
ENDIF
|
|
Case nKeyCode=14 And nShiftAltCtrl=2 AND lbviz=.F.
|
|
NODEFAULT
|
|
If PEMSTATUS(This,"do_adauga",5)
|
|
This.do_adauga()
|
|
ENDIF
|
|
Case nKeyCode=13 And nShiftAltCtrl=2 AND lbviz=.F.
|
|
NODEFAULT
|
|
If PEMSTATUS(This,"do_modifica",5)
|
|
This.do_modifica()
|
|
ENDIF
|
|
Case nKeyCode=4 And nShiftAltCtrl=2 AND lbviz=.F.
|
|
NODEFAULT
|
|
If PEMSTATUS(This,"do_sterge",5)
|
|
This.do_sterge()
|
|
Endif
|
|
Case nKeyCode=6 And nShiftAltCtrl=2
|
|
NODEFAULT
|
|
This.do_termin()
|
|
Case nKeyCode=16 And nShiftAltCtrl=2 AND lbviz=.F.
|
|
Nodefault
|
|
If PEMSTATUS(This,"do_listare",5)
|
|
This.do_listare()
|
|
ENDIF
|
|
Case nKeyCode=9 And nShiftAltCtrl=2 AND lbviz=.F.
|
|
Nodefault
|
|
If PEMSTATUS(This,"do_listare2",5)
|
|
This.do_listare2()
|
|
ENDIF
|
|
Endcase
|
|
ENDPROC
|
|
|
|
PROCEDURE _grdbase1.Init
|
|
* Nu sterge
|
|
ENDPROC
|
|
|
|
PROCEDURE _grdbase2.Init
|
|
* Nu sterge
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_seleluna AS _frmbase OF "..\libs\_frm_base.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Lb_luna" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Lb_an" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: aa
|
|
*p: ll
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 100
|
|
Name = "frm_seleluna"
|
|
Width = 295
|
|
_SHAPE1.Name = "_SHAPE1"
|
|
_SHAPE1.Width = 295
|
|
_SHAPE1.ZOrderSet = 1
|
|
_SHAPE2.Height = 29
|
|
_SHAPE2.Left = 229
|
|
_SHAPE2.Name = "_SHAPE2"
|
|
_SHAPE2.Top = 0
|
|
_SHAPE2.Width = 65
|
|
_SHAPE2.ZOrderSet = 2
|
|
LB_TITLU_ALB_B121.Caption = "Selectati anul si luna de inceput"
|
|
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
|
|
LB_TITLU_ALB_B121.TabIndex = 4
|
|
LB_TITLU_ALB_B121.ZOrderSet = 8
|
|
BUT_TERMIN1.Enabled = .F.
|
|
BUT_TERMIN1.Left = 263
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.TabIndex = 2
|
|
BUT_TERMIN1.Top = 1
|
|
BUT_TERMIN1.ZOrderSet = 3
|
|
*</PropValue>
|
|
|
|
ADD OBJECT '_shape3' AS _shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 48, ;
|
|
Left = 24, ;
|
|
Name = "_shape3", ;
|
|
Top = 36, ;
|
|
Width = 252, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: ClassLib="..\libs\_baza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
|
Left = 232, ;
|
|
Name = "But_renunt1", ;
|
|
TabIndex = 3, ;
|
|
Top = 1, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Combo1' AS _cbbase WITH ;
|
|
Height = 24, ;
|
|
Left = 47, ;
|
|
Name = "Combo1", ;
|
|
TabIndex = 1, ;
|
|
Top = 48, ;
|
|
Width = 80, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: ClassLib="..\libs\_cb_base.vcx" BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Lb_an' AS lb_simplu WITH ;
|
|
Caption = " ", ;
|
|
FontBold = .T., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,128, ;
|
|
Left = 196, ;
|
|
Name = "Lb_an", ;
|
|
TabIndex = 6, ;
|
|
Top = 50, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: ClassLib="..\libs\lb.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Lb_luna' AS lb_simplu WITH ;
|
|
Caption = " ", ;
|
|
FontBold = .T., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,128, ;
|
|
Left = 161, ;
|
|
Name = "Lb_luna", ;
|
|
TabIndex = 5, ;
|
|
Top = 50, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: ClassLib="..\libs\lb.vcx" BaseClass="label" />
|
|
|
|
PROCEDURE Destroy
|
|
IF USED('crscalendar')
|
|
USE IN crscalendar
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_termin
|
|
m.an=thisform.aa
|
|
m.nl=thisform.ll
|
|
pcanul=thisform.aa
|
|
pcluna=thisform.ll
|
|
DODEFAULT()
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
DoDefault()
|
|
If Used('crscalendar')
|
|
Use In crscalendar
|
|
Endif
|
|
Select Padl(Alltrim(nl),2,"0") As nl,an From calendar Order By an,nl Into Cursor crscalendar
|
|
Select crscalendar
|
|
Thisform.ll=nl
|
|
Thisform.aa=an
|
|
Scan
|
|
Thisform.combo1.AddItem(nl+"/"+an)
|
|
Endscan
|
|
ENDPROC
|
|
|
|
PROCEDURE Combo1.MouseLeave
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
pcluna=SUBSTR(this.Value,1,2)
|
|
pcanul=SUBSTR(this.Value,4)
|
|
Thisform.lb_luna.Caption=pcluna
|
|
Thisform.lb_an.Caption=pcanul
|
|
If !Empty(pcluna) And !Empty(pcanul)
|
|
Thisform.but_termin1.Enabled=.T.
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Combo1.Valid
|
|
pcluna=Substr(This.Value,1,2)
|
|
pcanul=Substr(This.Value,4)
|
|
Thisform.lb_luna.Caption=pcluna
|
|
Thisform.lb_an.Caption=pcanul
|
|
If !Empty(pcluna) And !Empty(pcanul)
|
|
Thisform.but_termin1.Enabled=.T.
|
|
Endif
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|