romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
comun/clase/comun.vc2

10669 lines
322 KiB
Plaintext
Raw Permalink Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="comun.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS afisjurcom AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cScd.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cScd.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cAscd.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cAscd.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cScc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cScc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cAscc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cAscc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column13.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column13.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column14.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column14.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column15.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column15.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column16.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column16.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column17.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column17.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column18.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column18.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column19.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column19.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column20.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column20.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column21.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column21.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column22.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column22.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column23.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column23.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column25.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column25.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column26.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column26.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column27.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column27.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column28.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column28.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column29.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column29.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column30.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column30.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column31.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column31.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column32.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column32.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column33.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column33.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column34.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column34.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column35.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column35.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column36.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column36.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column37.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column37.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column24.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column24.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column38.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column38.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cSerie_act.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cSerie_act.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cValidat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cValidat.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cDataV.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cDataV.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cUtilV.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cUtilV.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cIdFact.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cIdFact.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cIdFactD.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cIdFactD.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cIdFactC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cIdFactC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cCodFiscalD.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cCodFiscalD.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cCodFiscalC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cCodFiscalC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cLuna.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cLuna.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cAn.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cAn.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cBancaD.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cBancaD.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cContBancaD.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cContBancaD.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cBancaC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cBancaC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cContBancaC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cContBancaC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cTaxCode.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cTaxCode.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cSaftProcent.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cSaftProcent.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cPaymentCode.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cPaymentCode.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cRegistru.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.cRegistru.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_total" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="but_validare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_help1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: calculeaza_total
*m: do_validare
*m: e_in_vanzari
*p: cvaluta
*p: eactan
*p: ncurs
*p: nsuma
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
Caption = "Form"
cgridsortlist = _grid1
cvaluta =
DoCreate = .T.
eactan = .F.
Height = 465
Name = "afisjurcom"
ncurs = 0
nsuma = 0
Width = 795
WindowState = 2
WindowType = 1
_shape1.Anchor = 11
_shape1.Comment = "*:OnResize=ST"
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 796
_shape2.Anchor = 9
_shape2.Comment = "*:OnResize=RT"
_shape2.Height = 29
_shape2.Left = 780
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 31
Lb_titlu_alb_b121.Caption = "REGISTRUL JURNAL"
Lb_titlu_alb_b121.Comment = "*:OnResize=LT"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.FontName = "Arial"
Lb_titlu_alb_b121.Left = 6
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 49
Lb_titlu_alb_b121.Top = 1
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Comment = "*:OnResize=RT"
BUT_TERMIN1.Height = 27
BUT_TERMIN1.Left = 766
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 45
BUT_TERMIN1.Top = 1
BUT_TERMIN1.Width = 30
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_GRID1' AS _grid WITH ;
Anchor = 15, ;
ColumnCount = 57, ;
DeleteMark = .F., ;
FontSize = 10, ;
Height = 394, ;
HighlightStyle = 2, ;
Left = 1, ;
Name = "_GRID1", ;
Panel = 1, ;
RecordSource = "actjur", ;
RowHeight = 19, ;
TabIndex = 38, ;
Top = 36, ;
Width = 792, ;
Column1.ControlSource = "nrcrt()", ;
Column1.FontName = "Arial", ;
Column1.FontSize = 10, ;
Column1.ForeColor = 0,0,0, ;
Column1.Name = "Column1", ;
Column1.Width = 42, ;
Column2.ControlSource = "fdoc", ;
Column2.FontName = "Arial", ;
Column2.FontSize = 10, ;
Column2.ForeColor = 0,0,0, ;
Column2.Name = "Column2", ;
Column2.Width = 91, ;
Column3.ControlSource = "dataireg", ;
Column3.FontName = "Arial", ;
Column3.FontSize = 10, ;
Column3.ForeColor = 0,0,0, ;
Column3.Name = "Column3", ;
Column3.Width = 76, ;
Column4.ColumnOrder = 4, ;
Column4.ControlSource = "dataact", ;
Column4.FontName = "Arial", ;
Column4.FontSize = 10, ;
Column4.ForeColor = 0,0,0, ;
Column4.Name = "Column4", ;
Column4.Width = 74, ;
Column5.ColumnOrder = 6, ;
Column5.ControlSource = "nract", ;
Column5.FontName = "Arial", ;
Column5.FontSize = 10, ;
Column5.ForeColor = 0,0,0, ;
Column5.Name = "Column5", ;
Column5.Width = 101, ;
Column6.ColumnOrder = 7, ;
Column6.ControlSource = "partD", ;
Column6.FontName = "Arial", ;
Column6.FontSize = 10, ;
Column6.ForeColor = 0,0,0, ;
Column6.Name = "Column6", ;
Column6.Width = 164, ;
Column7.ColumnOrder = 9, ;
Column7.ControlSource = "partC", ;
Column7.FontName = "Arial", ;
Column7.FontSize = 10, ;
Column7.ForeColor = 0,0,0, ;
Column7.Name = "Column7", ;
Column7.Width = 142, ;
Column8.ColumnOrder = 11, ;
Column8.ControlSource = "explicatia", ;
Column8.FontName = "Arial", ;
Column8.FontSize = 10, ;
Column8.ForeColor = 0,0,0, ;
Column8.Name = "Column8", ;
Column8.Width = 135, ;
Column9.ColumnOrder = 12, ;
Column9.ControlSource = "scd", ;
Column9.FontBold = .T., ;
Column9.FontName = "Arial", ;
Column9.FontSize = 10, ;
Column9.ForeColor = 0,0,0, ;
Column9.Name = "cScd", ;
Column9.Width = 44, ;
Column10.ColumnOrder = 13, ;
Column10.ControlSource = "ascd", ;
Column10.FontName = "Arial", ;
Column10.FontSize = 10, ;
Column10.ForeColor = 0,0,0, ;
Column10.Name = "cAscd", ;
Column10.Width = 42, ;
Column11.ColumnOrder = 14, ;
Column11.ControlSource = "scc", ;
Column11.FontBold = .T., ;
Column11.FontName = "Arial", ;
Column11.FontSize = 10, ;
Column11.ForeColor = 0,0,0, ;
Column11.Name = "cScc", ;
Column11.Width = 44, ;
Column12.ColumnOrder = 15, ;
Column12.ControlSource = "ascc", ;
Column12.FontName = "Arial", ;
Column12.FontSize = 10, ;
Column12.ForeColor = 0,0,0, ;
Column12.Name = "cAscc", ;
Column12.Width = 44, ;
Column13.ColumnOrder = 16, ;
Column13.ControlSource = "suma", ;
Column13.FontName = "Arial", ;
Column13.FontSize = 10, ;
Column13.ForeColor = 0,0,0, ;
Column13.Format = "R", ;
Column13.InputMask = (get_mask(12,gnPA)), ;
Column13.Name = "Column13", ;
Column13.Width = 104, ;
Column14.ColumnOrder = 17, ;
Column14.ControlSource = "nrord", ;
Column14.FontName = "Arial", ;
Column14.FontSize = 10, ;
Column14.ForeColor = 0,0,0, ;
Column14.Name = "Column14", ;
Column14.Width = 108, ;
Column15.ColumnOrder = 19, ;
Column15.ControlSource = "iif(!empty(nvl(perecheD,0)), transform(perecheD) + iif(!empty(nvl(dataactD, {})), ' ' + transform(dataactD), ''), '')", ;
Column15.FontName = "Arial", ;
Column15.FontSize = 10, ;
Column15.ForeColor = 0,0,0, ;
Column15.Name = "Column15", ;
Column15.Width = 95, ;
Column16.ColumnOrder = 20, ;
Column16.ControlSource = "iif(!empty(nvl(perecheC,0)), transform(perecheC) + iif(!empty(nvl(dataactC, {})), ' ' + transform(dataactC), ''), '')", ;
Column16.FontName = "Arial", ;
Column16.FontSize = 10, ;
Column16.ForeColor = 0,0,0, ;
Column16.Name = "Column16", ;
Column16.Width = 120, ;
Column17.ColumnOrder = 26, ;
Column17.ControlSource = "datascad", ;
Column17.FontName = "Arial", ;
Column17.FontSize = 10, ;
Column17.ForeColor = 0,0,0, ;
Column17.Name = "Column17", ;
Column17.Width = 87, ;
Column18.ColumnOrder = 27, ;
Column18.ControlSource = "nnir", ;
Column18.FontName = "Arial", ;
Column18.FontSize = 10, ;
Column18.ForeColor = 0,0,0, ;
Column18.Name = "Column18", ;
Column18.Width = 100, ;
Column19.ColumnOrder = 28, ;
Column19.ControlSource = "nresp", ;
Column19.FontName = "Arial", ;
Column19.FontSize = 10, ;
Column19.ForeColor = 0,0,0, ;
Column19.Name = "Column19", ;
Column19.Width = 135, ;
Column20.ColumnOrder = 29, ;
Column20.ControlSource = "dst_chlt", ;
Column20.FontName = "Arial", ;
Column20.FontSize = 10, ;
Column20.ForeColor = 0,0,0, ;
Column20.Name = "Column20", ;
Column20.Width = 82, ;
Column21.ColumnOrder = 30, ;
Column21.ControlSource = "suma_val", ;
Column21.FontName = "Arial", ;
Column21.FontSize = 10, ;
Column21.ForeColor = 0,0,0, ;
Column21.Format = "R", ;
Column21.InputMask = (get_mask(12,gnPVal)), ;
Column21.Name = "Column21", ;
Column21.Width = 93, ;
Column22.ColumnOrder = 31, ;
Column22.ControlSource = "nume_val", ;
Column22.FontName = "Arial", ;
Column22.FontSize = 10, ;
Column22.ForeColor = 0,0,0, ;
Column22.Name = "Column22", ;
Column22.Width = 52, ;
Column23.ColumnOrder = 32, ;
Column23.ControlSource = "curs", ;
Column23.FontName = "Arial", ;
Column23.FontSize = 10, ;
Column23.ForeColor = 0,0,0, ;
Column23.InputMask = (get_mask(12,gnPcurs)), ;
Column23.Name = "Column23", ;
Column23.Width = 65, ;
Column24.ColumnOrder = 37, ;
Column24.ControlSource = "sectie", ;
Column24.FontName = "Arial", ;
Column24.FontSize = 10, ;
Column24.ForeColor = 0,0,0, ;
Column24.Name = "Column25", ;
Column24.Width = 105, ;
Column25.ColumnOrder = 21, ;
Column25.ControlSource = "proc_tva", ;
Column25.FontName = "Arial", ;
Column25.FontSize = 10, ;
Column25.ForeColor = 0,0,0, ;
Column25.InputMask = "99.99", ;
Column25.Name = "Column26", ;
Column25.Width = 58, ;
Column26.ColumnOrder = 44, ;
Column26.ControlSource = "cod", ;
Column26.FontName = "Arial", ;
Column26.FontSize = 10, ;
Column26.ForeColor = 0,0,0, ;
Column26.Name = "Column27", ;
Column26.Width = 111, ;
Column27.ColumnOrder = 39, ;
Column27.ControlSource = "util", ;
Column27.FontName = "Arial", ;
Column27.FontSize = 10, ;
Column27.ForeColor = 0,0,0, ;
Column27.Name = "Column28", ;
Column27.Width = 129, ;
Column28.ColumnOrder = 40, ;
Column28.ControlSource = "dataora", ;
Column28.FontName = "Arial", ;
Column28.FontSize = 10, ;
Column28.ForeColor = 0,0,0, ;
Column28.Name = "Column29", ;
Column28.Width = 121, ;
Column29.ColumnOrder = 41, ;
Column29.ControlSource = "utils", ;
Column29.FontName = "Arial", ;
Column29.FontSize = 10, ;
Column29.ForeColor = 0,0,0, ;
Column29.Name = "Column30", ;
Column29.Width = 111, ;
Column30.ColumnOrder = 42, ;
Column30.ControlSource = "dataoras", ;
Column30.FontName = "Arial", ;
Column30.FontSize = 10, ;
Column30.ForeColor = 0,0,0, ;
Column30.Name = "Column31", ;
Column30.Width = 103, ;
Column31.ColumnOrder = 43, ;
Column31.ControlSource = "id_set", ;
Column31.FontName = "Arial", ;
Column31.FontSize = 10, ;
Column31.ForeColor = 0,0,0, ;
Column31.Name = "Column32", ;
Column32.ColumnOrder = 38, ;
Column32.ControlSource = "sucursala", ;
Column32.FontName = "Arial", ;
Column32.FontSize = 10, ;
Column32.ForeColor = 0,0,0, ;
Column32.Name = "Column33", ;
Column32.Width = 164, ;
Column33.ColumnOrder = 33, ;
Column33.ControlSource = "explicatia4", ;
Column33.FontName = "Arial", ;
Column33.FontSize = 10, ;
Column33.ForeColor = 0,0,0, ;
Column33.Name = "Column34", ;
Column33.Width = 116, ;
Column34.ColumnOrder = 34, ;
Column34.ControlSource = "explicatia5", ;
Column34.FontName = "Arial", ;
Column34.FontSize = 10, ;
Column34.ForeColor = 0,0,0, ;
Column34.Name = "Column35", ;
Column34.Width = 116, ;
Column35.ColumnOrder = 35, ;
Column35.ControlSource = "GESTIN", ;
Column35.FontName = "Arial", ;
Column35.FontSize = 10, ;
Column35.ForeColor = 0,0,0, ;
Column35.Name = "Column36", ;
Column35.Width = 114, ;
Column36.ColumnOrder = 36, ;
Column36.ControlSource = "GESTOUT", ;
Column36.FontName = "Arial", ;
Column36.FontSize = 10, ;
Column36.ForeColor = 0,0,0, ;
Column36.Name = "Column37", ;
Column36.Width = 89, ;
Column37.ColumnOrder = 18, ;
Column37.ControlSource = "contract", ;
Column37.FontName = "Arial", ;
Column37.FontSize = 10, ;
Column37.ForeColor = 0,0,0, ;
Column37.Name = "Column24", ;
Column37.Width = 105, ;
Column38.ColumnOrder = 22, ;
Column38.ControlSource = "explicatie_tva", ;
Column38.FontName = "Arial", ;
Column38.FontSize = 10, ;
Column38.ForeColor = 0,0,0, ;
Column38.Name = "Column38", ;
Column38.Width = 158, ;
Column39.ColumnOrder = 5, ;
Column39.ControlSource = "serie_act", ;
Column39.FontName = "Arial", ;
Column39.FontSize = 10, ;
Column39.ForeColor = 0,0,0, ;
Column39.Name = "cSerie_act", ;
Column39.Width = 63, ;
Column40.ColumnOrder = 45, ;
Column40.ControlSource = "iif(validat = 0, 'NU', 'DA')", ;
Column40.FontName = "Arial", ;
Column40.FontSize = 10, ;
Column40.ForeColor = 0,0,0, ;
Column40.Name = "cValidat", ;
Column40.Width = 44, ;
Column41.ColumnOrder = 46, ;
Column41.ControlSource = "dataorav", ;
Column41.FontName = "Arial", ;
Column41.FontSize = 10, ;
Column41.ForeColor = 0,0,0, ;
Column41.Name = "cDataV", ;
Column41.Width = 100, ;
Column42.ColumnOrder = 47, ;
Column42.ControlSource = "utilv", ;
Column42.FontName = "Arial", ;
Column42.FontSize = 10, ;
Column42.ForeColor = 0,0,0, ;
Column42.Name = "cUtilV", ;
Column42.Width = 108, ;
Column43.ColumnOrder = 48, ;
Column43.ControlSource = "id_Fact", ;
Column43.FontName = "Arial", ;
Column43.FontSize = 10, ;
Column43.Name = "cIdFact", ;
Column43.Width = 71, ;
Column44.ColumnOrder = 49, ;
Column44.ControlSource = "id_factd", ;
Column44.FontName = "Arial", ;
Column44.FontSize = 10, ;
Column44.Name = "cIdFactD", ;
Column44.Width = 73, ;
Column45.ColumnOrder = 50, ;
Column45.ControlSource = "id_factc", ;
Column45.FontName = "Arial", ;
Column45.FontSize = 10, ;
Column45.Name = "cIdFactC", ;
Column45.Width = 77, ;
Column46.ColumnOrder = 8, ;
Column46.ControlSource = "cod_fiscald", ;
Column46.FontName = "Arial", ;
Column46.FontSize = 10, ;
Column46.Name = "cCodFiscalD", ;
Column46.Width = 94, ;
Column47.ColumnOrder = 10, ;
Column47.ControlSource = "cod_fiscalc", ;
Column47.FontName = "Arial", ;
Column47.FontSize = 10, ;
Column47.Name = "cCodFiscalC", ;
Column47.Width = 73, ;
Column48.ColumnOrder = 56, ;
Column48.ControlSource = "luna", ;
Column48.FontName = "Arial", ;
Column48.FontSize = 10, ;
Column48.Name = "cLuna", ;
Column48.ReadOnly = .T., ;
Column48.Width = 31, ;
Column49.ColumnOrder = 55, ;
Column49.ControlSource = "an", ;
Column49.FontName = "Arial", ;
Column49.FontSize = 10, ;
Column49.Name = "cAn", ;
Column49.ReadOnly = .T., ;
Column49.Width = 29, ;
Column50.ColumnOrder = 51, ;
Column50.ControlSource = "bancad", ;
Column50.FontSize = 10, ;
Column50.Name = "cBancaD", ;
Column50.ReadOnly = .T., ;
Column51.ColumnOrder = 52, ;
Column51.ControlSource = "cont_bancad", ;
Column51.FontSize = 10, ;
Column51.Name = "cContBancaD", ;
Column51.ReadOnly = .T., ;
Column51.Width = 138, ;
Column52.ColumnOrder = 53, ;
Column52.ControlSource = "bancac", ;
Column52.FontSize = 10, ;
Column52.Name = "cBancaC", ;
Column52.ReadOnly = .T., ;
Column53.ColumnOrder = 54, ;
Column53.ControlSource = "cont_bancac", ;
Column53.FontSize = 10, ;
Column53.Name = "cContBancaC", ;
Column53.ReadOnly = .T., ;
Column53.Width = 131, ;
Column54.ColumnOrder = 23, ;
Column54.ControlSource = "taxname", ;
Column54.FontSize = 10, ;
Column54.Name = "cTaxCode", ;
Column54.ReadOnly = .T., ;
Column54.Width = 92, ;
Column55.ColumnOrder = 24, ;
Column55.ControlSource = "saft_procent", ;
Column55.FontSize = 10, ;
Column55.Name = "cSaftProcent", ;
Column55.ReadOnly = .T., ;
Column55.Width = 89, ;
Column56.ColumnOrder = 25, ;
Column56.ControlSource = "paymentname", ;
Column56.FontSize = 10, ;
Column56.Name = "cPaymentCode", ;
Column56.ReadOnly = .T., ;
Column56.Width = 89, ;
Column57.ControlSource = "registru", ;
Column57.FontSize = 10, ;
Column57.Name = "cRegistru", ;
Column57.ReadOnly = .T., ;
Column57.Width = 87
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />
ADD OBJECT '_GRID1.cAn.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Anul", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cAn.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cAscc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "A Cred", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cAscc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cAscd.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "A Deb", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cAscd.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cBancaC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Banca C", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cBancaC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cBancaD.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Banca D", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cBancaD.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cCodFiscalC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod fiscal C", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cCodFiscalC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cCodFiscalD.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod fiscal D", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cCodFiscalD.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cContBancaC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont banca C", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cContBancaC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cContBancaD.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont banca D", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cContBancaD.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cDataV.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Dataora validarii", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cDataV.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cIdFact.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id fact", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cIdFact.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cIdFactC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id FactC", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cIdFactC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cIdFactD.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id FactD", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cIdFactD.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cLuna.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Luna", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cLuna.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.Crt.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column13.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column13.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lucrare/Comanda", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column14.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column15.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Doc.platit", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column15.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column16.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Doc.incasat", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column16.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column17.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data scadenta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column17.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column18.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "NIR/Bon", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column18.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column19.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column19.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel document", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column20.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Chelt/Venituri", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column20.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontItalic = .F., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column21.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma in valuta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column21.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column22.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column22.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column23.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Curs", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column23.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column24.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Contract", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column24.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column25.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sectie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column25.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column26.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cota TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column26.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column27.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column27.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column28.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operator introducere", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column28.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column29.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Dataora introducerii", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column29.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data inreg.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column30.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operator stergere", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column30.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column31.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Dataora stergerii", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column31.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column32.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip operatie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column32.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column33.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sucursala", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column33.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column34.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia 4", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column34.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column35.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia 5", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column35.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column36.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiune destinatie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column36.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column37.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiune sursa", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column37.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column38.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column38.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data Act", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.Doc.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie D", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie C", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cPaymentCode.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod plata SAFT", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cPaymentCode.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cRegistru.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Registru", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cRegistru.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cSaftProcent.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Proc. taxa SAFT", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cSaftProcent.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cScc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "C Cred", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cScc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cScd.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "C Deb", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cScd.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cSerie_act.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie Doc.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cSerie_act.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cTaxCode.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod taxa SAFT", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cTaxCode.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cUtilV.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operator validare", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cUtilV.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.cValidat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Validat", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.cValidat.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
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 = 9, ;
Comment = "*:OnResize=RT", ;
Height = 27, ;
Left = 678, ;
Name = "But_excel1", ;
TabIndex = 42, ;
Top = 1, ;
Visible = .F., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_help1' AS but_help WITH ;
Anchor = 9, ;
Comment = "*:OnResize=RT", ;
Height = 27, ;
Left = 559, ;
Name = "But_help1", ;
TabIndex = 40, ;
Top = 1, ;
Visible = .F., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
Comment = "*:OnResize=RT", ;
Height = 27, ;
Left = 648, ;
Name = "But_listare1", ;
TabIndex = 41, ;
Top = 1, ;
Visible = .F., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
Anchor = 9, ;
Comment = "*:OnResize=RT", ;
Height = 27, ;
Left = 737, ;
Name = "But_modifica1", ;
TabIndex = 44, ;
Top = 1, ;
Visible = .F., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
Anchor = 9, ;
Left = 500, ;
Name = "But_reset_criterii1", ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
Anchor = 9, ;
Comment = "*:OnResize=RT", ;
Left = 529, ;
Name = "But_start_criterii1", ;
Top = 1
*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 9, ;
Comment = "*:OnResize=RT", ;
Height = 27, ;
Left = 707, ;
Name = "But_sterge1", ;
TabIndex = 43, ;
Top = 1, ;
Visible = .F., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'but_validare' AS but_verifica WITH ;
Anchor = 9, ;
caction = do_validare, ;
Comment = "*:OnResize=RT", ;
Height = 27, ;
Left = 588, ;
Name = "but_validare", ;
TabIndex = 39, ;
ToolTipText = "Validare inregistrari", ;
Top = 1, ;
Visible = .T., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
Anchor = 9, ;
cpicturedown = exclamare_jos.bmp, ;
cpictureup = exclamare_sus.bmp, ;
Left = 618, ;
Name = "But_verifica1", ;
Picture = ..\grafice\exclamare_sus.bmp, ;
ToolTipText = "Verificare note contabile cu rulajele dupa cod", ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ck_total' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
Caption = "TOTAL", ;
Comment = "*:OnResize=LT", ;
FontBold = .T., ;
FontName = "Times New Roman", ;
Left = 338, ;
Name = "Ck_total", ;
TabIndex = 48, ;
Top = 440, ;
Visible = .F.
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Anchor = 12, ;
Comment = "*:OnResize=RB", ;
Left = 492, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 47, ;
TabStop = .F., ;
Top = 432, ;
Text_simplu1.ControlSource = "thisform.nsuma", ;
Text_simplu1.FontCharSet = 238, ;
Text_simplu1.FontSize = 10, ;
Text_simplu1.InputMask = (get_mask(12,gnPA)), ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Lb_simplu1.Caption = "TOTAL", ;
Lb_simplu1.FontBold = .T., ;
Lb_simplu1.FontSize = 10, ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
gridexpression = Thisform._GRID1, ;
Left = 780, ;
Name = "Gridextra1", ;
Top = 420
*< END OBJECT: ClassLib="..\..\..\roafacturare\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
Caption = "ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ;
Left = 6, ;
Name = "Lb_shortcuts1", ;
Top = 16
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
PROCEDURE Activate
*!* lnLeft=1000
*!* FOR i=1 TO THISFORM.OBJECTS.COUNT
*!* IF UPPER(SUBSTR(THISFORM.OBJECTS(i).NAME,1,4))='BUT_' AND THISFORM.OBJECTS(i).VISIBLE=.T.
*!* IF thisform.Objects(i).left < lnleft AND UPPER(thisform.Objects(i).name)#"BUT_START_CRITERII1" AND UPPER(thisform.Objects(i).name)#"BUT_RESET_CRITERII1"
*!* lnleft = thisform.Objects(i).left
*!* ENDIF
*!* ENDIF
*!* ENDFOR
*!* thisform.but_start_criterii1.Left=lnLeft-30
*!* thisform.but_reset_criterii1.Left=lnLeft-60
DODEFAULT()
ENDPROC
PROCEDURE actualizeaza_grid1
Lparameters tcFiltru
Local lcFiltru
lcFiltru=tcFiltru
If Empty(lcFiltru)
lcFiltru=poactjur.ca_baza1.cfiltru
Endif
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
save_grid_tag(Thisform._grid1)
poactjur.ca_baza1.cfiltru=lcFiltru
poactjur.ca_baza1.afisare()
If Thisform.ncurs <> 0
Select ACTJUR
Repl All suma With Round(suma/Thisform.ncurs,gnPval)
Endif
restore_grid_tag(Thisform._grid1)
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
ENDPROC
PROCEDURE calculeaza_total
LOCAL lcSelect
lcSelect = SELECT()
SELECT actjur
IF this.clb_tx_simplu1.VISIBLE=.T.
SUM suma TO THISFORM.nsuma
this.clb_tx_simplu1.text_simplu1.Refresh()
ENDIF
GO TOP
SELECT (m.lcSelect)
ENDPROC
PROCEDURE do_cauta
*!* 10.05.2017
*!* marius.mutu
*!* caut " ANUL " in filtru in loc de "ANUL" sa stiu daca pun filtru suplimentar si dupa perioada
*!* nu se punea filtru suplimentar daca se facea o cautare dupa EXPLICATIA INCEPE CU 'ANULAT', pentru ca continea "ANUL"
LOCAL lcFiltru, lcValoare1, lcValoare2, loCollection, i, lcTitlu
lcFiltru = ""
IF !THISFORM.lactiv6
lcFiltru = lcFiltru + [ AND ID_UTIL=]+ALLTRIM(STR(gnidutil))+[ ]
ENDIF
&& DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA
IF !(' PERIOADA '$upper(THISFORM.filtru_pretty_ro_full) OR 'ANUL '$upper(THISFORM.filtru_pretty_ro_full))
lcFiltru = [ AND LUNA=]+ALLTRIM(STR(gnluna))+[ AND AN=]+ALLTRIM(STR(gnan)) + lcFiltru
ENDIF
&& DACA FILTRUL NU CONTINE INREGISTRARILE STERSE, SELECTEZ DOAR INREGISTRARILE STERS = 0
*!* 24.03.2008
*!* If At([6;],gcAcces)>0
If !'STERS'$upper(Thisform.filtru_pretty_ro_full)
lcFiltru = [ AND STERS = 0] + lcFiltru
ENDIF
*!* Endif
*!* 24.03.2008 ^
&& DACA SUNT PE O SUCURSALA - SELECTEZ DOAR INREGISTRARILE DE PE SUCURSALA CURENTA
IF !ISNULL(gnIdSucursala)
lcFiltru = gcCondSucursala + lcFiltru
ENDIF
&& ACTUALIZEZ PERIOADA DIN TITLUL REGISTRULUI JURNAL
lcTitlu = THISFORM.lb_titlu_alb_b121.CAPTION
IF !'PERIOADA'$upper(THISFORM.filtru_pretty_ro_full)
lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu, 1)) + " " + PADL(ALLTRIM(STR(gnluna)),2,"0") + "/" + ALLTRIM(STR(gnan))
ELSE
IF TYPE('this.ocriterii') = 'O'
loCollection = THIS.oCriterii.GetCriteriu("perioada")
i = 0
lcValoare1 = ""
lcValoare2 = ""
FOR EACH criteriu IN loCollection
i = i + 1
IF i = 1
lcValoare1 = criteriu.valoare
ELSE
lcValoare2 = criteriu.valoare
ENDIF
IF i = 2
EXIT
ENDIF
ENDFOR
IF EMPTY(STRTRAN(lcValoare1,'/','')) AND EMPTY(STRTRAN(lcValoare2,'/',''))
lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu, 1)) + " " + PADL(ALLTRIM(STR(gnluna)),2,"0") + "/" + ALLTRIM(STR(gnan))
ELSE
IF EMPTY(STRTRAN(lcValoare2,'/',''))
lcValoare2 = lcValoare1
ENDIF
ENDIF
IF lcValoare1 = lcValoare2
lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu,1)) + " " + lcValoare1
ELSE
lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu,1)) + " " + lcValoare1 + " - " + lcValoare2
ENDIF
ENDIF
ENDIF
If !Empty(Thisform.cValuta)
lcTitlu = lcTitlu + ;
" Evaluarea in valuta 1 "+ Thisform.cValuta + "=" +Alltrim(Str(Thisform.nCurs,10,gnPCurs))+" LEI"
Endif
THIS.lb_titlu_alb_b121.CAPTION = lcTitlu
IF LEN(THISFORM.filtru_pretty)>0
lcFiltru = lcFiltru+" and (" + ALLTRIM(THISFORM.filtru_pretty) + ")"
ENDIF
IF !EMPTY(lcFiltru)
lcFiltru = SUBSTR(lcFiltru, 6)
ENDIF
IF (THIS.filtru_pretty#"none")
THISFORM.actualizeaza_grid1(lcFiltru)
IF RECCOUNT('actjur')=0
aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
ENDIF
ENDIF
IF !THISFORM.eactan
DO nrord WITH "ACTJUR"
ENDIF
this.calculeaza_total()
THISFORM.clb_tx_simplu1.text_simplu1.REFRESH
THISFORM._grid1.SETFOCUS
ENDPROC
PROCEDURE do_excel
If !Thisform.lactiv1
Return
Endif
Local lcAlias, lcFiltru, lcColumnList, lcHeaderList, lcSelect, lcOutput, lcFrom, lcWhere, lcOrder
If !Used('actjur') Or Reccount('actjur') = 0
Return
Endif
lcAlias = 'actjur'
lcFiltru = Filter(lcAlias)
If Empty(lcFiltru)
lcFiltru = '.T.'
Endif
lcColumnList = ''
lcHeaderList = ''
lcSelect = ''
llSelect = .T.
lcType = 'CURSOR'
lcFrom = lcAlias
lcWhere = lcFiltru
lcOrder = 'dataireg,id_Act'
lcOutput = 'crsAct'
get_schema_grid(This._GRID1, @lcColumnList, @lcHeaderList, @lcSelect, llSelect, lcType, lcFrom, lcWhere, lcOrder, lcOutput)
*!*MESSAGEBOX(lcSelect)
&lcSelect
If Used(lcOutput)
Do export_xls With lcOutput IN oproceduri_comune.prg
Use In (lcOutput)
Endif
Return
*!*
*!* If Used('actjur') And Reccount('actjur')>0
*!* Local i,xlsheet,XLApp,tmpsheet
*!* exista_excel=.T.
*!* p1=''
*!* p2=''
*!* With Thisform._grid1
*!* For nCol=1 To .ColumnCount
*!* nColumn=.Columns(nCol).ColumnOrder
*!* p1=p1+.Columns(nCol).ControlSource+','
*!* p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+','
*!* Endfor
*!* p1=Substr(p1,1,Len(p1)-1)
*!* p2=Substr(p2,1,Len(p2)-1)
*!* Endwith
*!* On Error Do exportare With thisform._GRID1.RecordSource,p1,p2
*!* tmpsheet = Getobject('','excel.sheet')
*!* On Error
*!* If exista_excel
*!* Wait Window "Se transmit datele catre Excel..." Nowait
*!* XLApp = tmpsheet.Application
*!* XLApp.workbooks.Close()
*!* XLApp.workbooks.Add()
*!* poExcel = XLApp.ActiveSheet
*!* Go Top
*!* poExcel.Cells(1,1).Font.Size=16
*!* poExcel.Cells(1,1).Font.Bold=.T.
*!* poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption
*!* nRows = 3
*!* With Thisform._grid1
*!* For nCol = 1 To .ColumnCount
*!* nColumn = .Columns(nCol).ColumnOrder
*!* poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
*!* poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption
*!* poExcel.Cells(nRows,nColumn).Font.Bold = .T.
*!* poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16
*!* Endfor
*!* Scan
*!* nRows = nRows + 1
*!* For nCol = 1 To .ColumnCount
*!* nColumn = .Columns(nCol).ColumnOrder
*!* If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0
*!* poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA')
*!* Else
*!* poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource)
*!* Endif
*!* Endfor
*!* Endscan
*!* Endwith
*!* XLApp.Visible = .T.
*!* Endif
*!* Endif
*!* *!* If Used('actjur') And Reccount('actjur')>0
*!* *!* Private pniesire,pccale
*!* *!* pccale=""
*!* *!* pniesire=0
*!* *!* ofrmexcel=Createobject('frm_cale_f_excel')
*!* *!* ofrmexcel.Show(1)
*!* *!* If pniesire=1
*!* *!* Thisform.MousePointer=11
*!* *!* Thisform.LockScreen=.T.
*!* *!* poExcel = Createobject("Excel.Application")
*!* *!* poExcel.Visible=.F.
*!* *!* poExcel.WorkBooks.Add
*!* *!* Select actjur
*!* *!* Go Top
*!* *!* poExcel.Cells(1,1).Font.Size=16
*!* *!* poExcel.Cells(1,1).Font.Bold=.T.
*!* *!* poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption
*!* *!* nRows = 2
*!* *!* With Thisform._grid1
*!* *!* For nCol = 1 To .ColumnCount
*!* *!* nColumn = .Columns(nCol).ColumnOrder
*!* *!* poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
*!* *!* poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption
*!* *!* poExcel.Cells(nRows,nColumn).Font.Bold = .T.
*!* *!* poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16
*!* *!* Endfor
*!* *!* Scan
*!* *!* nRows = nRows + 1
*!* *!* For nCol = 1 To .ColumnCount
*!* *!* nColumn = .Columns(nCol).ColumnOrder
*!* *!* If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0
*!* *!* poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA')
*!* *!* Else
*!* *!* poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource)
*!* *!* Endif
*!* *!* Endfor
*!* *!* Endscan
*!* *!* Endwith
*!* *!* poExcel.ActiveWorkBook.SaveAs(pccale)
*!* *!* *!* poExcel.visible=.T.
*!* *!* *!* poExcel.ActiveWorkBook.Open(pccale)
*!* *!* poExcel.close()
*!* *!* poExcel.Quit
*!* *!* Release poExcel
*!* *!* Go Top
*!* *!* Thisform.LockScreen=.F.
*!* *!* Thisform.MousePointer= 0
*!* *!* Endif
*!* *!* Endif
ENDPROC
PROCEDURE do_listare
Local lnIdMonedaNationala, lnValute, loCauta
*:Global frmRap
If !Thisform.lactiv2
Return
Endif
If Reccount('actjur') > 0
Local llCereTitlu
Private pcperioada, pctitlu && ,pcdataora
Store '' To m.pcperioada, m.pctitlu && ,pcdataora
pcperioada = [Luna: ] + Alltrim(Str(gnLuna)) + [ / ] + Alltrim(Str(gnAn))
*!* lctitlu = [REGISTRUL JURNAL (EXTRAS)]
*!* pctitlu = ceretitlu_rap([Titlul raportului],lctitlu)
*!* pcdataora = get_ora(2)
pctitlu = [REGISTRUL JURNAL]
If !Empty(Thisform.cValuta)
pctitlu = m.pctitlu + " Evaluarea in valuta 1 " + Thisform.cValuta + "=" + Alltrim(Str(Thisform.nCurs, 10, gnPCurs)) + " LEI"
llCereTitlu = .F.
Else
llCereTitlu = .T.
Endif
*!* LOCAL lcText
*!* lctext = ""
*!* PRIVATE pcSubtitlu
*!* pcSubtitlu = THIS.filtru_pretty_ro
*!* IF THIS.filtru_traducere()#""
*!* lctext = THIS.filtru_traducere()
*!* ENDIF
*!* pcSubtitlu = THIS.filtru_pretty_ro + IIF(!(EMPTY(this.filtru_pretty_ro) or EMPTY(lcText)), " si ", "") + lctext
Private pcSubtitlu
pcSubtitlu = This.filtru_pretty_ro_full
loCauta = GetMonedaNationala()
lnIdMonedaNationala = m.loCauta.id_valuta
Select actjur
Calculate Cnt() For !Inlist(Nvl(id_valuta, 0), 0, m.lnIdMonedaNationala) To m.lnValute
*!* ROACONT v 2.5.46 : am adaugat CAST la explicatii
Select 0 As tip, id_act, serie_act, nract, Nvl(dataact, {//}) As dataact, Nvl(dataireg, {//})As dataireg, ;
Nvl(EXPLICATIA, Space(100)) As EXPLICATIA, Nvl(scd, Space(4)) As scd, Nvl(ascd, Space(4)) As ascd, ;
Nvl(scc, Space(4)) As scc, Nvl(ascc, Space(4)) As ascc, suma, id_valuta, Nvl(nume_val, Space(4)) As nume_val, ;
suma_val, Curs, pereched, perechec, Nvl(NRORD, Space(30)) As NRORD, Nvl(PARTC, Space(50)) As PARTC, ;
Nvl(PARTD, Space(50)) As PARTD, Nvl(FDOC, Space(30)) As FDOC, ;
Nvl(EXPLICATIA4, Space(100)) As EXPLICATIA4, Nvl(EXPLICATIA5, Space(100)) As EXPLICATIA5, ;
Iif(glEMama, Nvl(sucursala, Space(100)), []) As sucursala, ;
CAST(IIF(glEMama,allt(nvl(sucursala,''))+'; ','') + ;
IIF(!EMPTY(NVL(partd,'')), ALLT(partd) + '; ', '') + ;
IIF(!EMPTY(NVL(partc,'')), ALLT(partc) + '; ', '') + ;
IIF(!EMPTY(NVL(explicatia,'')), ALLT(explicatia) +'; ', '') + ;
IIF(!EMPTY(NVL(nrord,'')), ALLT(Nrord)+'; ', '') + ;
IIF(!EMPTY(NVL(contract,'')), ALLT(contract)+'; ', '') + ;
iif(!empty(pereched),allt(str(pereched)) +';', '') + ;
iif(!empty(perechec),allt(str(perechec)) +';', '') + ;
iif(!empty(nvl(explicatia4,'')), alltrim(explicatia4)+';', '') + ;
iif(!empty(nvl(explicatia5,'')), alltrim(explicatia5)+';', '') + ;
IIF(!EMPTY(NVL(nume_val,'')) AND !EMPTY(NVL(curs,0)), allt(nume_val) + '; ', '') + ;
IIF(!EMPTY(NVL(curs,0)), allt(STR(curs,12,4)) + '; ', '') as M) as explicatii ;
From actjur ;
Order By dataireg, id_act ;
Into Cursor actjur_val Readwrite
If m.lnValute > 0
* Total pe valute
Select 1 As tip, nume_val, Sum(suma) As suma, Sum(suma_val) As suma_val From actjur_val Order By 2 Group By nume_val Into Cursor cTotalValuta
Select actjur_val
Append From Dbf('cTotalValuta')
Use In (Select('cTotalValuta'))
frmRap = 'rap_regjurnal_val.frx'
Else
frmRap = 'rap_regjurnal.frx'
Endif
Thisform.AlwaysOnTop = .F.
*!* Report Format &frmRap To Printer Prompt Preview
goExport.export2frx([actjur_val], frmRap, m.llCereTitlu, , , , , .T.)
Thisform.AlwaysOnTop = .T.
If Used('actjur_val')
Use In actjur_val
Endif
Else
amessagebox("Nu exista inregistrari pentru listare!", 48, "Atentie")
Endif
ENDPROC
PROCEDURE do_modifica
*!* 24.05.2011
*!* marius.mutu
*!* se pot modifica inregistrarile din sucursale
*!* in pack_contafin.scrie_in_act nu se mai suprascrie id_sucursala completata
#Define CRLF Chr(13) + Chr(10)
If !Thisform.lactiv3
Return
Endif
Local lnCod, llSters, lnSucces, llRul, llGestInvantar, llVanzari
Store .F. To llSters, llRul, llVanzari
lnSucces = 0
If glLunaInchisa
Return
Endif
Local lleSters, lcConditieSters
*!* lleSters = IIF(this.ck_sters.Value = 1, .T., .F.)
lleSters = Iif('STERS'$Upper(Thisform.filtru_pretty_ro_full), .T., .F.)
If lleSters
lcConditieSters = [ ]
Else
lcConditieSters = [ STERS = 0 AND ]
Endif
Select actjur
lnCod = cod
pnAn = an
pnLuna = luna
lnIdSet = id_set
lnSters = sters
*!* modificare ROAGEST v 2.1.36
Private pdDataOra
pdDataOra = Null
lnIdFact = id_fact
lnIdfactd = id_factd
*!* modificare ROAGEST v 2.1.36 ^
If (pnAn * 12) + pnLuna <> (gnAn * 12) + gnLuna
aMESSAGEBOX('Nu puteti modifica decat inregistrari din luna curenta!',0+48,'Atentie!')
Return
Endif
*!* 24.05.2011
If .F.
If glEMama And Nvl(actjur.id_sucursala,0) <> 0
aMESSAGEBOX('Nu se pot modifica inregistrarile provenind din sucursale!',0+48,'Atentie!')
Return
Endif
Endif
*!* 24.05.2011 ^
If Between(lnIdSet,30000,30009)
aMESSAGEBOX("Aceasta nota a fost introdusa din programul ROAPRODUCTIE si nu poate fi modificata!",0+48,"Atentie")
Return
Endif
If lnSters = 1
llSters=.T.
Endif
If lnIdSet = 90101 && nota Inventariere si constatare Diferente
llGestInvantar = .T.
pdDataOra = actjur.dataora
Endif
*!* modificare 19.06.2012
*!* If Between(lnIdSet,25000,25099) OR Inlist(lnIdSet,79,83,206,61,62,63,102,103,64,65,73,222,223,224,225,226,227,236,238,239,240) ;
*!* or InList(lnIdSet,252,255,258,259,260,243,244,233,261,262,267) OR BETWEEN(lnIdSet,31000,31050)
*!* && 03.12.2010 : am adaugat 243,244,233,261,262
*!* && 12.07.2011 : am adaugat 31000 > 31050
*!* *!* modificare 06.03.2007
*!* *!* If Iif(Type('gnModificareIdSetSpe')='U',0,gnModificareIdSetSpe)=0
*!* *!* amessagebox("Nu puteti modifica aceasta nota!",0+48,"Atentie")
*!* *!* Return
*!* *!* Else
*!* llVanzari = .T.
*!* *!* Endif
*!* *!* modificare 06.03.2007 ^
*!* Endif
*!* llVanzari = This.e_in_vanzari(lnCod) && modificare ROAGEST v 2.1.36
*!* modificare 19.06.2012 ^
*!* IF BETWEEN(lnIdSet,40,500)
*!* llRul = .T.
*!* ENDIF
If Used('actactan')
Use In actactan
Endif
*!* modificare 23.10.2012
If Used('tact')
Use In tact
Endif
If Used('rul_temp')
Use In RUL_TEMP
Endif
If Used('trul')
Use In trul
Endif
If Used('rul_temp_obinv')
Use In RUL_TEMP_OBINV
Endif
If Used('trul_obinv')
Use In trul_obinv
Endif
*!* modificare 23.10.2012 ^
lcSel = Thisform._GRID1.RecordSource
*!* lcSql = [select * from ] + gcs + [.vrul_tot where cod = ] + ALLTRIM(STR(lnCod))
*!* lcCursor = [v_rul]
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* goExecutor.oReset()
*!* IF lnSucces < 0
*!* RETURN
*!* ENDIF
*!* SELECT * FROM v_rul INTO CURSOR rul_temp
*!* SELECT * FROM rul_temp INTO CURSOR trul READWRITE
*!* USE IN v_rul
*!* SELECT * FROM (lcSel) WHERE cod = lnCod INTO CURSOR actactan
*!* SELECT * FROM actactan INTO CURSOR tact READWRITE
lcSql = [select * from vact_tot where ] + lcConditieSters + [ an = ] + Transform(gnAn) + [ and luna = ] + Transform(gnLuna) + [ and cod = ] + Alltrim(Str(lnCod)) + [ order by id_act]
lcCursor = [v_act]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
If lnSucces < 0
aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Select * From v_act Into Cursor actactan
*!* 24.05.2011
*!* modificare v 2.4.4 : am adaugat tipnota
Select .F. As ales, T.*, Cast(0 As N(2)) As tipnota From actactan T Into Cursor tact Readwrite
*!* 24.05.2011 ^
Use In v_act
If lnSucces > 0 && AND llRul
lcSql = [select * from vrul_tot where ] + lcConditieSters + [ an = ] + Transform(gnAn) + [ and luna = ] + Transform(gnLuna) + [ and cod = ] + Alltrim(Str(lnCod)) + [ order by id_rul]
lcCursor = [v_rul]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
If lnSucces < 0
aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
Endif
If Reccount(lcCursor)>0
llRul = .T.
Endif
If lnSucces > 0
UPDATE v_rul SET valoare = round(IIF(cant<>0, cant, cante)*pret,m.gnPC) WHERE EMPTY(NVL(valoare,0))
UPDATE v_rul SET valtva = ROUND(IIF(cant<>0, cant, cante)*pret * (IIF(!EMPTY(NVL(proc_tva,0)), proc_tva, 1)-1), m.gnPC) WHERE EMPTY(NVL(valtva,0))
UPDATE v_rul SET valoarev = round(IIF(cant<>0, cant, cante)*pretv,m.gnPC) WHERE EMPTY(NVL(valoarev,0))
UPDATE v_rul SET valtvav = ROUND(IIF(cant<>0, cant, cante)*pretv * (IIF(!EMPTY(NVL(proc_tvav,0)), proc_tvav, 1)-1), m.gnPC) WHERE EMPTY(NVL(valtvav,0))
Select *, ;
valoare + valtva As valoarectva, ;
valoarev + valtvav As valoarevctva ;
From v_rul ;
Into Cursor RUL_TEMP READWRITE
Select * From RUL_TEMP Into Cursor trul Readwrite
Use In v_rul
lcSql = [select * from vrul_obinv_tot where ] + lcConditieSters + [ an = ] + Transform(gnAn) + [ and luna = ] + Transform(gnLuna) + [ and cod = ] + Alltrim(Str(lnCod)) + [ order by id_rul_obinv]
lcCursor = [v_rul_obinv]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
If lnSucces < 0
aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
Endif
If Reccount(lcCursor)>0
llRul = .T.
Endif
Endif
If lnSucces > 0
UPDATE v_rul_obinv SET valoare = round(IIF(cant<>0, cant, cante)*pret,m.gnPC) WHERE EMPTY(NVL(valoare,0))
UPDATE v_rul_obinv SET valtva = ROUND(IIF(cant<>0, cant, cante)*pret * (IIF(!EMPTY(NVL(proc_tva,0)), proc_tva, 1)-1), m.gnPC) WHERE EMPTY(NVL(valtva,0))
UPDATE v_rul_obinv SET valoarev = round(IIF(cant<>0, cant, cante)*pretv,m.gnPC) WHERE EMPTY(NVL(valoarev,0))
UPDATE v_rul_obinv SET valtvav = ROUND(IIF(cant<>0, cant, cante)*pretv * (IIF(!EMPTY(NVL(proc_tvav,0)), proc_tvav, 1)-1), m.gnPC) WHERE EMPTY(NVL(valtvav,0))
Select *, ;
valoare + valtva As valoarectva, ;
valoarev + valtvav As valoarevctva ;
From v_rul_obinv ;
Into Cursor RUL_TEMP_OBINV READWRITE
Select * From RUL_TEMP_OBINV Into Cursor trul_obinv Readwrite
Use In v_rul_obinv
Endif
Endif
If lnSucces > 0
If gnAn >= Iif(Type('gnAnFormNou')='U',2007,gnAnFormNou)
*!* modificare ROACONT v 2.0.78 : Nvl(id_jtva_coloana,0)=0
*Select a.*,Iif(Isnull(id_jtva_coloana),0,1) As cu_Tva From tact a Into Cursor tact Readwrite
Select a.*,Iif(Nvl(id_jtva_coloana,0)=0,0,1) As cu_Tva From tact a Into Cursor tact Readwrite
*!* modificare ROACONT v 2.0.78 ^
* Omodif = Createobject([frm_modific2007],lnIdSet)
Omodif = Createobject([frm_modific2024],lnIdSet)
* DO FORM frm_modific2024 NAME omodif LINKED WITH m.lnIdSet NOSHOW
Else
Omodif = Createobject([frm_modific])
Endif
Select tact
Omodif.Show()
If buton=1
llRul = .T. && este posibil sa modific si rul, rul_obinv
If Thisform.do_deschide_tranzactie()
Select actactan
If !llSters
lnSucces = oscrie_in_fisiere(2,.T.,llRul)
Else
lnSucces = 1
Endif
*!* modificare 04.2014 - scriere act_rul ^
If lnSucces >0
If Used('actactan')
Use In actactan
Endif
Select tact
If gnAn >= Iif(Type('gnAnFormNou')='U',2007,gnAnFormNou)
Replace id_jtva_coloana With Null,proc_tva With 0 For cu_Tva = 0
Endif
Select * From tact Into Cursor actactan Readwrite
Replace All id_util With gnIdUtil, sters With 0
If llRul
If Used('rul_temp')
Use In RUL_TEMP
Endif
Select * From trul Into Cursor RUL_TEMP Readwrite
Replace All id_util With gnIdUtil, sters With 0
If Used('rul_temp_obinv')
Use In RUL_TEMP_OBINV
Endif
Select * From trul_obinv Into Cursor RUL_TEMP_OBINV Readwrite
Replace All id_util With gnIdUtil, sters With 0
Endif
lnSucces = oscrie_in_fisiere(0,.T.,llRul)
Endif
*!* modificare ROAGEST v 2.1.36
If lnSucces > 0
lcSql = [begin pack_contafin.finalizeaza_modificare_nota(?pnLuna,?pnAn,?pdDataOra,] + Alltrim(Str(lnIdSet)) + [,] + ;
ALLTRIM(Str(lnCod)) + [,] + Alltrim(Str(lnIdFact)) + [,] + Alltrim(Str(lnIdfactd)) + [,?gnIdUtil); end;]
lnSucces = Iif(goExecutor.oExecuta(lcSql),1,-1)
Endif
*!* IF lnSucces > 0 AND llGestInvantar && nota de inventariere : update dataOra_validat cu dataora modificarii notei contabile
*!* lcSql = [update ] + gcs + [.gest_inventar set dataora_validat = pack_contafin.GET_DATAORA() where dataora_validat = ?pdDataOra and an = ?pnAn and luna = ?pnLuna]
*!* lnSucces = goExecutor.oExecute(lcSql)
*!* goExecutor.oReset()
*!* IF lnSucces < 0
*!* aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* ENDIF
*!* ENDIF
*!* IF lnSucces > 0 AND llVanzari && nota din ROAFACTURARE
*!* lcSql = [begin ] + gcs + [.pack_facturare.actualizeaza_vanzari(] + ALLTRIM(STR(lnCod)) + [,pack_contafin.get_cod()); end;]
*!* lnSucces = goExecutor.oExecute(lcSql)
*!* goExecutor.oReset()
*!* IF lnSucces < 0
*!* aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* ENDIF
*!* ENDIF
*!* *!* modificare ROACONT v 2.0.73
*!* IF lnSucces > 0
*!* lcSql = [update ] + gcS + [.atasamente_vanzari set cod = pack_contafin.get_cod() where cod = ] + ALLTRIM(STR(lnCod))
*!* lnSucces = goExecutor.oExecute(lcSql)
*!* goExecutor.oReset()
*!* IF lnSucces < 0
*!* aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* ENDIF
*!* ENDIF
*!* *!* modificare ROACONT v 2.0.73 ^
*!* modificare ROAGEST v 2.1.36 ^
*!* modificare 04.2014 - scriere act_rul
*!* IF lnSucces < 0
*!* lnSucces = goExecutor.oExecute("ROLLBACK")
*!* ELSE
*!* lnSucces = goExecutor.oExecute("COMMIT")
*!* ENDIF
*!*
*!* IF lnSucces < 0
*!* aMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
*!* ENDIF
*!*
*!* lnSucces = sqlsetprop(gnhandle,"Transactions",1)
*!* IF lnSucces < 0
*!* aMESSAGEBOX('Programul a trecut pe tranzactie manuala. Iesiti din program si intrati din nou!',0+48,'Atentie!')
*!* QUIT
*!* RETRY
*!* ENDIF
*!* THIS.do_cauta
*!* ENDIF
If Thisform.do_inchide_tranzactie(Iif(lnSucces<0,2,1))
Thisform.do_cauta
Endif
Endif
Endif
*!* modificare 04.2014 - scriere act_rul ^
Endif
If Used('actactan')
Use In actactan
Endif
If Used('tact')
Use In tact
Endif
If Used('rul_temp')
Use In RUL_TEMP
Endif
If Used('rul_temp_obinv')
Use In RUL_TEMP_OBINV
Endif
If Used('trul')
Use In trul
Endif
If Used('trul_obinv')
Use In trul_obinv
Endif
ENDPROC
PROCEDURE do_sterge
If !Thisform.lactiv4
Return
Endif
Local lnCod, llSters, lnSucces, llRul, llGestInvantar,lnIdFact,lnIdfactd, llVanzari, lnOptiune
Store .F. To llSters, llRul, llVanzari
lnSucces = 0
lnOptiune = 0
If glLunaInchisa
Return
Endif
Select actjur
lnCod = cod
pnAn = an
pnLuna = luna
lnIdSet = id_set
lnSters = sters
lnIdFact = id_fact
lnIdfactd = id_factd
*!* modificare ROAGEST v 2.1.36
PRIVATE pdDataOra
pdDataOra = Null
*!* modificare ROAGEST v 2.1.36 ^
If lnSters = 1
Return
Endif
If Between(lnIdSet,30000,30009)
amessagebox("Nu puteti sterge aceasta nota decat din programul ROAPRODUCTIE!",0+48,"Atentie")
Return
Endif
Local lleSters, lcConditieSters
lleSters = Iif('STERS'$UPPER(THISFORM.filtru_pretty_ro_full), .T., .F.)
lcConditieSters = [ STERS = 0 AND ]
If (pnAn * 12) + pnLuna <> (gnAn * 12) + gnLuna
amessagebox('Nu puteti sterge decat inregistrari din luna curenta!',0+48,'Atentie!')
Return
Endif
*** verificare restrictie stergere documente cu referinte (incasari/plati)
llReferinteDocumente = ReferinteDocumenteNota(pnAn, pnLuna, lnCod) && && odocumente.prg
*!* 08.05.2008
If lnIdSet = 90501 && reevaluare solduri in valuta la 31.12
llReferinteDocumente = .F.
aMessageBox("Trebuie refacute situatiile de facturi pentru a se reveni la cursul de schimb original", 0+48, "Reevaluare solduri in valuta")
EndIf
*!* 08.05.2008 ^
If llReferinteDocumente
amessagebox("Documentul are referinte (incasari/plati). Nu poate fi sters.", 0+48,"Stergere")
Return
Endif
lnOptiune = xmenu('Stergere document;\' + IIF(m.lnIdSet = 99996, '', '<') + 'Anulare document = stergere document si creare document anulat')
IF EMPTY(m.lnOptiune)
RETURN
ENDIF
If lnIdSet = 90101 && nota Inventariere si constatare Diferente
llGestInvantar = .T.
pdDataOra = actjur.dataora
Endif
Use In (SELECT('actactan'))
Use In (SELECT('rul_temp'))
Use In (SELECT('rul_temp_obinv'))
*---------------------
lcSql = [select * from vact_tot where ] + lcConditieSters + [ an = ] + Transform(gnAn) + [ and luna = ] + Transform(gnLuna) + [ and cod = ] + Alltrim(Str(lnCod)) + [ order by id_act]
lcCursor = [v_act]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
Endif
If lnSucces > 0
Select * From v_act Into Cursor actactan READWRITE
Use In v_act
Endif
If lnSucces > 0 && AND llRul
lcSql = [select * from vrul_tot where ] + lcConditieSters + [ an = ] + Transform(gnAn) + [ and luna = ] + Transform(gnLuna) + [ and cod = ] + Alltrim(Str(lnCod)) + [ order by id_rul]
lcCursor = [v_rul]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
Endif
If Reccount(lcCursor)>0
llRul = .T.
Endif
If lnSucces > 0
lcSql = [select * from vrul_obinv_tot where ] + lcConditieSters + [ an = ] + Transform(gnAn) + [ and luna = ] + Transform(gnLuna) + [ and cod = ] + Alltrim(Str(lnCod)) + [ order by id_rul_obinv]
lcCursor = [v_rul_obinv]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
Endif
If Reccount(lcCursor)>0
llRul = .T.
Endif
Endif
If lnSucces > 0
Select * From v_rul Into Cursor rul_temp
Use In v_rul
Select * From v_rul_obinv Into Cursor rul_temp_obinv
Use In v_rul_obinv
Endif
Endif
If lnSucces > 0
overif=Createobject('verificare')
overif.Show(1)
Clear Class 'verificare'
If buton = 1
lnSucces = OSCRIE_IN_FISIERE(2,.F.,llRul)
IF lnSucces > 0
lcSql = [begin pack_contafin.finalizeaza_stergere_nota(?pnLuna,?pnAn,?pdDataOra,] + ALLTRIM(STR(lnIdSet)) + [,] + ;
ALLTRIM(STR(lnCod)) + [,] + ALLTRIM(STR(lnIdFact)) + [,] + Alltrim(Str(lnIdfactd)) + [,?gnIdUtil); end;]
llSucces = goExecutor.oExecuta(lcSql)
IF m.llSucces AND m.lnOptiune = 2 && anulare document
USE IN (SELECT('rul_temp'))
USE IN (SELECT('rul_temp_obinv'))
UPDATE actactan SET suma = 0, id_set = 99996, proc_tva = 0, id_jtva_coloana = null, suma_val = 0
lnSucces = OSCRIE_IN_FISIERE(0)
ENDIF
ENDIF
Endif
Endif
Use In (SELECT('actactan'))
Use In (SELECT('rul_temp'))
Use In (SELECT('rul_temp_obinv'))
This.do_cauta
ENDPROC
PROCEDURE do_termin
THIS.BUT_STArt_criterii1.RESETstatus()
DODEFAULT()
ENDPROC
PROCEDURE do_validare
#DEFINE CRLF CHR(13) + CHR(10)
LOCAL lnSucces, lnSucces2, lnRaspuns, lnIdAct, lcDocumentCurentValidat
lnSucces = 0
lnSucces2 = 0
lcDocumentCurentValidat = IIF(actjur.VALIDAT = 1, '\', '')
lnIdAct = actjur.ID_ACT
PRIVATE poRec
poRec = NULL
IF !THIS.but_validare.VISIBLE
RETURN
ENDIF
x = xmenu(lcDocumentCurentValidat + "Validare document \<curent;Validare toate documentele \<selectate")
lnRaspuns = 6
DO CASE
CASE x = 1
lnRaspuns = AMESSAGEBOX('Doriti sa validati documentul curent?',4+32,'Validare')
CASE x = 2
lnRaspuns = AMESSAGEBOX('Doriti sa validati toate documentele selectate?',4+32,'Validare')
ENDCASE
IF lnRaspuns # 6 OR !INLIST(x,1,2)
RETURN
ENDIF
lnSucces = SQLSETPROP(gnHandle,"Transactions",2) && TRANZACTIE MANUALA
IF lnSucces < 0
AERROR(laEroare)
AMESSAGEBOX('Programul nu a trecut pe tranzactie automata!' + CRLF + ;
ALLTRIM(TRANSFORM(laEroare(1))) + CRLF + ALLTRIM(TRANSFORM(laEroare(2))) + CRLF + ;
ALLTRIM(TRANSFORM(laEroare(3))), 0+16, 'Eroare')
RETURN
ENDIF
IF x = 1
lcConditie = [NVL(validat,0) = 0 and cod = ] + ALLTRIM(STR(actjur.cod))
ELSE
lcConditie = [NVL(validat,0) = 0]
ENDIF
SELECT DISTINCT an, luna, cod FROM actjur WHERE &lcConditie INTO CURSOR cCoduriTemp
IF _TALLY = 0
AMESSAGEBOX('Nu exista inregistrari nevalidate!',0+48,'Validare')
ELSE
lnSucces = 1
SELECT cCoduriTemp
SCAN
SCATTER NAME poRec
lcSql = [begin pack_contafin.ValidareInregistrari(?poRec.an, ?poRec.luna, ?gnIdUtil, ?poRec.cod); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
AMESSAGEBOX(goExecutor.oPrelucrareEroare(),0+16,'Eroare')
EXIT
ENDIF
ENDSCAN
IF lnSucces < 0
lcSql = 'ROLLBACK'
ELSE
lcSql = 'COMMIT'
ENDIF
lnSucces2 = goExecutor.oExecute(lcSql)
IF lnSucces2 < 0
AMESSAGEBOX(goExecutor.oPrelucrareEroare(),0+16,'Eroare')
ELSE
AMESSAGEBOX('Inregistrarile au fost validate.',0+64 ,'Validare')
lnSucces = SQLSETPROP(gnHandle,"Transactions",1) && TRANZACTIE AUTOMATA
IF lnSucces < 0
AERROR(laEroare)
AMESSAGEBOX('Programul nu a trecut pe tranzactie automata!' + CRLF + ;
ALLTRIM(TRANSFORM(laEroare(1))) + CRLF + ALLTRIM(TRANSFORM(laEroare(2))) + CRLF + ;
ALLTRIM(TRANSFORM(laEroare(3))), 0+16, 'Eroare')
ENDIF
IF lcSql = 'ROLLBACK'
AMESSAGEBOX('Nu s-a executat validarea inregistrarilor!',0+32,'Atentie')
ELSE
THIS.do_cauta()
SELECT actjur
LOCATE FOR ID_ACT = lnIdAct
IF !FOUND()
GO TOP
ENDIF
THIS._GRID1.SETFOCUS()
ENDIF
ENDIF && lnSucces2 < 0
ENDIF && _TALLY > 0
USE IN (SELECT('cCoduriTemp'))
ENDPROC
PROCEDURE do_verifica
* 01.04.2021
* se afiseaza si rulajele obiecte de inventar in folosinta
* se afiseaza inregistrarile si din alte luni decat luna curenta
Local lleSters, lcConditieSters
Local loar As 'verif_act_rul'
Local lcSql, llSucces, lnAn, lnCod, lnLuna
*!* lleSters = IIF(this.ck_sters.Value = 1, .T., .F.)
lleSters = Iif('STERS' $ Upper(Thisform.filtru_pretty_ro_full), .T., .F.)
If lleSters
lcConditieSters = [ ]
Else
lcConditieSters = [ STERS = 0 AND ]
Endif
Select actjur
lnCod = cod
lnAn = an
lnLuna = luna
TEXT To lcSql Textmerge Noshow
select * from vact_tot where <<lcConditieSters>> an = <<lnAn>> and luna = <<lnLuna>> and cod = <<lnCod>> order by id_act
ENDTEXT
lcCursor = [v_act]
llSucces = goExecutor.oExecuta(lcSql, lcCursor)
If !m.llSucces
Return
Endif
Select * From v_act Into Cursor actactan
Use In (Select('v_act'))
TEXT To lcSql Textmerge Noshow
select * from vrul_tot where <<lcConditieSters>> an = <<lnAn>> and luna = <<lnLuna>> and cod = <<lnCod>> order by id_rul
ENDTEXT
llSucces = goExecutor.oExecuta(lcSql, [v_rul])
If m.llSucces
TEXT To lcSql Textmerge Noshow
select * from vrul_obinv_tot where <<lcConditieSters>> an = <<lnAn>> and luna = <<lnLuna>> and cod = <<lnCod>> order by id_rul_obinv
ENDTEXT
llSucces = goExecutor.oExecuta(lcSql, [v_rul_obinv])
If m.llSucces
Select v_rul
Append From Dbf('v_rul_obinv')
Use In (Select('v_rul_obinv'))
Endif
Endif
If m.llSucces
Select *, ;
Round((cant + cante) * Pret, gnPc) As valoareftva, ;
Round((cant + cante) * tva, gnPc) As valoaretva, ;
Round((cant + cante) * (Pret + tva), gnPc) As valoarectva, ;
Round((cant + cante) * pretv, gnPc) As valoarevftva, ;
Round((cant + cante) * tvav, gnPc) As valoarevtva, ;
Round((cant + cante) * (pretv + tvav), gnPc) As valoarevctva, ;
Round((pretv - Pret) * (cant + cante), gnPc) As valoare_adaosftva, ;
Round((tvav - tva) * (cant + cante), gnPc) As valoare_adaostva ;
From v_rul ;
Into Cursor RUL_TEMP
*!* SELECT * FROM RUL_TEMP INTO CURSOR trul READWRITE
Use In (Select('v_rul'))
Endif
loar = Createobject('verif_act_rul')
loar.Show(1)
Use In (Select('actactan'))
Use In (Select('RUL_TEMP'))
ENDPROC
PROCEDURE e_in_vanzari
*!* modificare ROAGEST v 2.1.36
*!* Lparameters tnCod
*!* Local llEInVanzari,lcCursor,lnNr
*!* Store .F. To llEInVanzari
*!* lcSql = [select COUNT(*) as nr from vanzari where cod = ] + Alltrim(Str(tnCod))
*!* lcCursor = [crstmpvanz]
*!* If goExecutor.oExecuta(lcSql,lcCursor)
*!* Select (lcCursor)
*!* lnNr = nr
*!* If lnNr > 0
*!* llEInVanzari = .T.
*!* Endif
*!* Endif
*!* Use In Select(lcCursor)
*!* Return llEInVanzari
*!* modificare ROAGEST v 2.1.36 ^
ENDPROC
PROCEDURE Init
Lparameters tnCurs,tcValuta
If !Empty(tnCurs)
Thisform.ncurs = tnCurs
Endif
If !Empty(tcValuta)
Thisform.cvaluta = tcValuta
Endif
DoDefault()
With Thisform
*!* 16.11.2007 validare
&& daca utilizatorul are drept de validare - fac vizibil butonul de validare
Private pnAreDreptValidare
pnAreDreptValidare = 0
lnSucces = goExecutor.oFunction2Value([contafin_oracle.pack_drepturi.UtilHasValidare(?gnIdFirma,?gnIdUtil,'DREPTVALIDARE')], @pnAreDreptValidare)
If lnSucces < 0
pnAreDreptValidare = 0
AMESSAGEBOX(goExecutor.oPrelucrareEroare(),0+16,'Eroare')
Endif
If pnAreDreptValidare = 1
This.but_validare.Visible = .T.
Else
This.but_validare.Visible = .F.
Endif
*!* 16.11.2007 validare ^
*!* If lnnivel=0
*!* If .lactiv6
*!* ._GRID1.column27.Visible=.T. && cod
*!* ._GRID1.column28.Visible=.T. && util
*!* ._GRID1.column29.Visible=.T. && dataora introducerii
*!* ._GRID1.column30.Visible=.T. && utils
*!* ._GRID1.column31.Visible=.T. && dataoras
*!* *.ck_util.VISIBLE=.T.
*!* *!* .ck_sters.VISIBLE=.T.
*!* *.ck_dataora.VISIBLE=.T.
*!* *!* modificare 22.11.2006
*!* *!* .but_modifica1.VISIBLE=.T.
*!* Else
*!* ._GRID1.column27.Visible=.F. && cod
*!* ._GRID1.column28.Visible=.F. && util
*!* ._GRID1.column29.Visible=.F. && dataora introducerii
*!* ._GRID1.column30.Visible=.F. && utils
*!* ._GRID1.column31.Visible=.F. && dataoras
*!* *!* If lnnivel>2
*!* *!* *!* .but_help1.left=.but_excel1.left
*!* *!* .but_listare1.Left=.but_sterge1.Left
*!* *!* .but_excel1.Left=.but_modifica1.Left
*!* *!* ._shape2.Left=630
*!* *!* ._shape2.Width=166
*!* *!* *!* thisform.but_sterge1.Visible=.F.
*!* *!* .RemoveObject("but_sterge1")
*!* *!* Else
*!* *!* .but_sterge1.Visible=.T.
*!* *!* *!* .but_help1.left=.but_listare1.left
*!* *!* .but_listare1.Left=.but_excel1.Left
*!* *!* .but_excel1.Left=.but_sterge1.Left
*!* *!* .but_sterge1.Left=.but_modifica1.Left
*!* *!* ._shape2.Left=595
*!* *!* ._shape2.Width=201
*!* *!* Endif
*!* *!* .RemoveObject("but_modifica1")
*!* *.ck_util.VISIBLE=.F.
*!* *!* .ck_sters.VISIBLE=.F.
*!* *.ck_dataora.VISIBLE=.F.
*!* *!* thisform.but_modifica1.Visible=.F.
*!* Endif
*!* If lnnivel>1 Or m.contab='GEST'
*!* .lb_titlu_alb_b121.Caption="REGISTRU JURNAL - EXTRAS * "+PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn))
*!* Else
.lb_titlu_alb_b121.Caption="REGISTRU JURNAL * "+Padl(Alltrim(Str(gnLuna)),2,'0')+"/"+Alltrim(Str(gnAn))
*!* ENDIF
*!* WITH .ck_perioada
*!* .filtru=[ AND LUNA=]+ALLTRIM(STR(gnLuna))+[ AND AN=]+ALLTRIM(STR(gnAn))
*!* .luna=PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn))
*!* .cvaloare1=.luna
*!* .cvaloare2=.luna
*!* .VALUE = 1
*!* ENDWITH
If !Empty(Thisform.cvaluta)
.lb_titlu_alb_b121.Caption = .lb_titlu_alb_b121.Caption + ;
" Evaluarea in valuta 1 "+ Thisform.cvaluta + "=" +Alltrim(Str(Thisform.ncurs,10,gnPCurs))+" LEI"
Endif
Endwith
*Thisform.actualizeaza_grid1()
*** micsorare banda alba
lnLungimeBanda = Thisform.but_termIN1.Width + 10
lnPozitieButon = Thisform.but_termIN1.Left
lnLungimeButon = Thisform.but_termIN1.Width + 1 && 30 + 1 (spatiu)
lnOffsetBanda = 6 && diferenta dintre _shape2.left si but_termin1.left
If Thisform.lactiv3 And !glLunaInchisa
lnPozitieButon = lnPozitieButon - lnLungimeButon
lnLungimeBanda = lnLungimeBanda + lnLungimeButon
Thisform.but_modifica1.Left = lnPozitieButon
Endif
If Thisform.lactiv4 And !glLunaInchisa
lnPozitieButon = lnPozitieButon - lnLungimeButon
lnLungimeBanda = lnLungimeBanda + lnLungimeButon
Thisform.but_sterge1.Left = lnPozitieButon
Endif
If Thisform.lactiv1
lnPozitieButon = lnPozitieButon - lnLungimeButon
lnLungimeBanda = lnLungimeBanda + lnLungimeButon
Thisform.but_excel1.Left = lnPozitieButon
Endif
If Thisform.lactiv2
lnPozitieButon = lnPozitieButon - lnLungimeButon
lnLungimeBanda = lnLungimeBanda + lnLungimeButon
Thisform.but_listare1.Left = lnPozitieButon
Endif
If Thisform.lactiv6
* THISFORM.ck_util.VISIBLE=.T.
*!* THISFORM.ck_sters.VISIBLE=.T.
Endif
*!* With Thisform._shape2
*!* .Width = lnLungimeBanda
*!* .Left = lnPozitieButon - lnOffsetBanda
*!* Endwith
If This.but_modifica1.Visible
This.but_modifica1.Visible=!glLunaInchisa
Endif
If This.but_sterge1.Visible
This.but_sterge1.Visible=!glLunaInchisa
Endif
lnLeft=Thisform.Width
For i=1 To Thisform.Objects.Count
If Upper(Substr(Thisform.Objects(i).Name,1,4))='BUT_' And Thisform.Objects(i).Visible And lnLeft>Thisform.Objects(i).Left
lnLeft=Thisform.Objects(i).Left
Endif
Endfor
Thisform._shape2.Left=lnLeft
*!* Locale
*!* goLocale.SetLocale( thisform )
*!* Locale ^
ENDPROC
PROCEDURE Show
Lparameters nStyle
*!* *THISFORM.COMMAND1.visible=.t.
*!* *THISFORM.COMMAND1.ENABLED=.t.
*!* if luna_inchisa
*!* *THISFORM.COMMAND1.visible=.f.
*!* *THISFORM.COMMAND1.ENABLED=.F.
*!* *THISFORM.COMMAND2.ENABLED=.F.
*!* endif
*M.NIVEL=1
If "REGISTRU JURNAL TOTAL"$UPPER(Thisform.lb_titlu_alb_b121.Caption)
*!* Thisform.ck_sters.Visible=.F.
Endif
If Thisform.eactan=.T.
Thisform._grid1.column1.Visible=.F.
Thisform._grid1.column1.Width=0
Thisform.ck_total.Visible=.T.
Endif
If glLunaInchisa = .T.
Thisform.but_sterge1.Visible=.F.
Thisform.but_modifica1.Visible=.F.
ENDIF
lnPozitieButon = THISFORM.but_termIN1.LEFT
lnLungimeButon = THISFORM.but_termIN1.WIDTH + 1
lnLeft=1000
FOR i=1 TO THISFORM.OBJECTS.COUNT
IF UPPER(SUBSTR(THISFORM.OBJECTS(i).NAME,1,4))='BUT_' AND THISFORM.OBJECTS(i).VISIBLE=.T.
IF thisform.Objects(i).left < lnleft AND UPPER(thisform.Objects(i).name)#"BUT_START_CRITERII1" AND UPPER(thisform.Objects(i).name)#"BUT_RESET_CRITERII1"
lnleft = thisform.Objects(i).left
ENDIF
ENDIF
ENDFOR
thisform.but_start_criterii1.Left=lnLeft+60
*thisform.but_reset_criterii1.Left=thisform.but_start_criterii1.left+thisform.but_reset_criterii1.width
* SAFT
this._gRID1.cTaxcode.Visible = m.gl406
this._gRID1.csaftProcent.Visible = m.gl406
this._gRID1.cPaymentCode.Visible = m.gl406
this.gridextra1.setup()
ENDPROC
PROCEDURE But_start_criterii1.loadcriterii
PARAMETERS tacriterii
EXTERNAL ARRAY tacriterii
#DEFINE crlf CHR(13)+CHR(10)
*!* DEBUG
*!* SUSPEND
lcStringCriterii="Numar doc.\NRACT\N\none\" + crlf + ;
"Tip doc.\fdoc\T\id_fdoc\nom_feldoc"+ crlf + ;
"Serie doc.\serie_act\T\none\"+ crlf + ;
"Data doc.\dataact\D\none\" + crlf + ;
"Data inreg.\dataIREG\D\none\" + crlf + ;
"Explicatie D&C\partd,partc\T\|E|ID_PARTD=<<VALOARE>> OR ID_PARTC=<<VALOARE>>\nom_parteneri"+ crlf + ;
"Cod fiscal D&C\cod_fiscald,cod_fiscalc\T\none\"+ crlf + ;
"Explicatie D\partD\T\ID_PARTD\nom_parteneri"+ crlf + ;
"Explicatie C\partC\T\ID_PARTC\nom_parteneri"+ crlf + ;
"Explicatie\explicatia\T\none\"+ crlf + ;
"Explicatia 4\explicatia4\T\none\"+ crlf + ;
"Explicatia 5\explicatia5\T\none\"+ crlf + ;
"Explicatii\partD,partC,explicatia,explicatia4,explicatia5,fdoc,gestin,gestout,nrord,contract,nresp,dst_chlt,sectie,sucursala\T\none\"+ crlf + ;
"Gest. destinatie\gestin\T\ID_GESTIN\nom_gestiune"+ crlf + ;
"Gest. sursa\gestout\T\ID_GESTOUT\nom_gestiune" + crlf + ;
"Lucrare/Comanda\nrord\T\ID_LUCRARE\nom_lucrare" + crlf + ;
"Contract\contract\T\none\" + crlf + ;
"Cont deb.\scd\T\none\" + crlf + ;
"Cont deb. analit.\ascd\T\none\" + crlf + ;
"Cont cred.\scc\T\none\" + crlf + ;
"Cont cred. analit.\ascc\T\none\" + crlf + ;
"Cls. 1-7\nofiled\E\(to_number(SUBSTR(scd,1,1)) between 1 and 7 or to_number(SUBSTR(scc,1,1)) between 1 and 7)\" + crlf + ;
"Cls. 8\nofiled\E\(to_number(SUBSTR(scd,1,1)) = 8 or to_number(SUBSTR(scc,1,1)) = 8)\" + crlf + ;
"Cls. 9\nofiled\E\(to_number(SUBSTR(scd,1,1)) = 9 or to_number(SUBSTR(scc,1,1)) = 9)\" + crlf + ;
"Suma\suma\N|get_mask(12,gnPA)\none\" + crlf + ;
"Suma valuta\suma_val\N|get_mask(12,gnPval)\none\" + crlf + ;
"Nr doc. incasat\perecheC\N\none\" + crlf + ;
"Data doc. incasat\dataactC\D\none\" + crlf + ;
"Nr doc. platit\perecheD\N\none\" + crlf + ;
"Data doc. platit\dataactD\D\none\" + crlf + ;
"Doc/Incasat/Platit\nract,pereched,perechec\T\|E|NRACT=<<VALOARE>> OR PERECHED=<<VALOARE>> OR PERECHEC=<<VALOARE>>\none"+ crlf + ;
"Nr. NIR/bon\nnir\N\none\" + crlf + ;
"Responsabil\nresp\T\ID_RESPONSABIL\nom_parteneri" + crlf + ;
"Cheltuieli/Venituri\dst_chlt\T\ ID_VENCHELT\nom_venchel" + crlf + ;
"Sectie\sectie\T\ID_SECTIE\nom_sectie" + crlf + ;
"Cod\cod\N\none\" + crlf + ;
"Tip operatie\id_set\N\none\" + crlf + ;
"Valuta\nume_val\T\ID_VALUTA\nom_valuta" + crlf + ;
"Cota TVA\proc_tva\N|get_mask(12,gnPA)\none\" + crlf + ;
"Explicatie TVA\explicatie_tva\T\none\" + crlf + ;
IIF(m.gl406, "Cod Taxa\taxname\T\none\" + crlf, "") + ;
IIF(m.gl406, "Cod Plata\paymentname\T\none\" + crlf, "") + ;
"Data introducerii\trunc(dataora)\D\none\" + crlf + ;
"Oper. introducere\util\T\ID_UTIL\nom_utilizator" + crlf + ;
"Validate\nofiled\E\(validat = 1)\" + crlf + ;
"Nevalidate\nofiled\E\(validat = 0)\" + crlf + ;
"Data validarii\trunc(dataorav)\D\none\" + crlf + ;
"Oper. validare\utilv\T\ID_UTILv\nom_utilizator" + crlf + ;
"Registru\registru\T\none\" + crlf + ;
IIF(glEMama, "Sucursala\sucursala\T\ID_SUCURSALA\nom_sucursala"+ crlf, "") + ; && aleg sucursale doar daca sunt pe mama
"Anul\an\N\none\" + crlf + ;
"Perioada\an*12+luna\D1\none\" + crlf + ;
"Sterse\nofiled\E\(1=1)\" + crlf + ; && modificare ROACONT v 2.0.78
"Oper. stergere\utils\T\ID_UTILS\nom_utilizator" + crlf + ;
"Data stergerii\trunc(dataoras)\D\none\" && modificare ROACONT v 2.0.78 ^
DODEFAULT()
ENDPROC
PROCEDURE Ck_total.InteractiveChange
*
ENDPROC
PROCEDURE Gridextra1.applyfilter
DODEFAULT()
thisform.calculeaza_total()
ENDPROC
PROCEDURE Gridextra1.clearfilter
DODEFAULT()
thisform.calculeaza_total()
ENDPROC
PROCEDURE _GRID1.Init
*!* 06.04.2015
*!* marius.mutu
*!* am adaugat o expresie complexa pereched + dataactd si dadea eroare lasetarea culorii
*!* nu am avuttimp sa depanez
DODEFAULT()
*!* IF m.nivel=0
IF thisform.lactiv6
ENDIF
&& inregistrarile sterse au dynamicforecolor rosu
Thisform._grid1.SetAll("DynamicForeColor", "IIF(sters=1, RGB(255,0,0), RGB(0,0,0))", "Column")
&& clasa 8 si 9 au dynamicforecolor verde pe conturi
Thisform._grid1.cScd.DynamicForeColor = "IIF(INLIST(LEFT(SCD,1), '8', '9') OR INLIST(LEFT(SCC,1), '8', '9'), RGB(0,128,0), RGB(0,0,0))"
Thisform._grid1.cAScd.DynamicForeColor = "IIF(INLIST(LEFT(SCD,1), '8', '9') OR INLIST(LEFT(SCC,1), '8', '9'), RGB(0,128,0), RGB(0,0,0))"
Thisform._grid1.cScc.DynamicForeColor = "IIF(INLIST(LEFT(SCD,1), '8', '9') OR INLIST(LEFT(SCC,1), '8', '9'), RGB(0,128,0), RGB(0,0,0))"
Thisform._grid1.cAScc.DynamicForeColor = "IIF(INLIST(LEFT(SCD,1), '8', '9') OR INLIST(LEFT(SCC,1), '8', '9'), RGB(0,128,0), RGB(0,0,0))"
&& inregistrarile nevalidate sunt gri
&& campurile null au galben pai
lnnrcol=this.ColumnCount
FOR i = 1 TO lnnrcol
lcColor='this.Columns(' + ALLTRIM(STR(i)) + ').DynamicBackColor'
lcControlSource1 = 'this.Columns(' + ALLTRIM(STR(i)) + ').controlsource'
lcControlSource = &lcControlSource1
*!* 16.11.2007
&& iif(validat = 0, 'NU', 'DA') dadea eroare la dynamicbackcolor
IF 'VALIDAT'$UPPER(lcControlSource)
lcControlSource = 'validat'
ENDIF
*!* 16.11.2007 ^
* am adaugat o expresie complexa pereched + dataactd si dadea eroare lasetarea culorii
IF 'pereched'$LOWER(lcControlSource) OR 'perechec'$LOWER(lcControlSource)
LOOP
ENDIF
lcSet = lcColor + [ = "IIF(validat = 0, RGB(240,241,255), IIF(ISNULL(] + lcControlSource + [),RGB(255,255,225),RGB(255,255,255)))"]
&lcSet
ENDFOR
ENDPROC
ENDDEFINE
DEFINE CLASS frm_aleg_vizualizare AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ogTipViz" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Height = 120
Name = "frm_aleg_vizualizare"
Width = 263
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape2.Height = 29
_shape2.Left = 203
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 65
Lb_titlu_alb_b121.Caption = "VIZUALIZARE RAPORT"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Left = 5
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 4
Lb_titlu_alb_b121.Top = 6
BUT_TERMIN1.Left = 234
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
BUT_TERMIN1.Top = 1
GRIDSORT1.Name = "GRIDSORT1"
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 205, ;
Name = "But_renunt1", ;
TabIndex = 3, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
Caption = "Modalitate de vizualizare a raportului", ;
Left = 13, ;
Name = "Lb_simplu1", ;
TabIndex = 5, ;
Top = 39
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'ogTipViz' AS _optiongrup WITH ;
AutoSize = .F., ;
ButtonCount = 2, ;
Height = 48, ;
Left = 58, ;
Name = "ogTipViz", ;
TabIndex = 1, ;
Top = 57, ;
Width = 146, ;
Option1.AutoSize = .T., ;
Option1.Caption = "\<listare la imprimanta", ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option2.AutoSize = .T., ;
Option2.Caption = "\<export in Excel", ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 24
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
PROCEDURE Destroy
pnOptiune=Thisform.ogTipViz.Value
ENDPROC
ENDDEFINE
DEFINE CLASS frm_cale_f_excel AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_numefis" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_cale" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Height = 160
Name = "frm_cale_f_excel"
Width = 340
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Height = 29
_SHAPE2.Left = 268
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 74
LB_TITLU_ALB_B121.Caption = "Introduceti numele fisierului"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 5
BUT_TERMIN1.Left = 307
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 275, ;
Name = "But_renunt1", ;
TabIndex = 4, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Clb_cale' AS clb_tx_simplu WITH ;
Left = 24, ;
Name = "Clb_cale", ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 76, ;
TEXT_SIMPLU1.Format = "!K", ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.ReadOnly = .T., ;
LB_SIMPLU1.Caption = "Cale", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_numefis' AS clb_tx_simplu WITH ;
Left = 24, ;
Name = "Clb_numefis", ;
TabIndex = 1, ;
Top = 48, ;
TEXT_SIMPLU1.Format = "!K", ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
LB_SIMPLU1.Caption = "Nume fisier", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Caption = "\<Alege cale", ;
Height = 27, ;
Left = 216, ;
Name = "Cmd_cauta1", ;
TabIndex = 2, ;
Top = 118
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
PROCEDURE do_cauta
LOCAL lcCale
lcCale=GETDIR(gcAppPath,"Cale","Alegeti directorul",64)
IF !EMPTY(lcCale)
thisform.clb_cale.texT_SIMPLU1.Value=lcCale
ENDIF
ENDPROC
PROCEDURE inainte_de_do_renunt
pniesire=0
RETURN .T.
ENDPROC
PROCEDURE inainte_de_do_termin
Local lcfisier,lccale
lccale=Alltrim(Thisform.clb_cale.text_simplu1.Value)
lcfisier=Alltrim(Thisform.clb_numefis.text_simplu1.Value)
If Empty(lcfisier)
aMessagebox("Nu ati introdus numele fisierului!",0+48,"Atentie")
Thisform.clb_numefis.SetFocus()
Return .F.
Else
lnpos=At('.',lcfisier)
lnlung=Len(lcfisier)
If enumefis(lcfisier)
If lnpos>0
lcext=Upper(Substr(lcfisier,lnpos+1,lnlung-lnpos))
Set Exact On
If lcext!="XLS"
aMessagebox("Extensia nu este corecta!",0+48,"Atentie")
Thisform.clb_numefis.text_simplu1.Value=Substr(lcfisier,1,lnpos)+"XLS"
Return .F.
Endif
*!* Set Exact Off
Else
lcfisier=lcfisier+".XLS"
Endif
Else
aMessagebox("Numele fisierului contine caractere nepermise!",0+48,"Atentie")
Return .F.
Endif
Endif
pccale=lccale+lcfisier
If File(pccale)
aMessagebox("Mai exista un fisier cu acest nume in directorul ales!",0+48,"Atentie")
Thisform.clb_numefis.SetFocus()
Return .F.
Endif
pniesire=1
Return .T.
ENDPROC
PROCEDURE Init
thisform.clb_cale.text_simplu1.Value="C:\"
ENDPROC
PROCEDURE Clb_cale.TEXT_SIMPLU1.Valid
*!* IF !EMPTY(this.value) AND !DIRECTORY(this.Value)
*!* MESSAGEBOX("Calea introdusa este invalida!",0+16,"Eroare")
*!* ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_configurare_efactura AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="chkContP" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="chkTipP" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="chkGestiuneP" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="chkSectieP" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="chkVenCheltP" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="chkContractP" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_checkbox2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboContE" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboContP" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboVenCheltE" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboSectieE" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboTipArticoleP" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboGestiuneP" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboGestiuneE" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboTipArticoleE" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboVenCheltP" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboSectieP" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblCont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label11" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_checkbox3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_checkbox4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_checkbox5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_checkbox6" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: cconte && cont implicit articol client
*p: ccontp && cont implicit articol furnizor
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cconte = 704
ccontp = 628
DoCreate = .T.
Height = 623
Name = "frm_configurare_efactura"
Width = 424
_memberdata = <VFPData>
<memberdata name="ccontp" display="cContP"/>
<memberdata name="cconte" display="cContE"/>
</VFPData>
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 426
_shape2.Left = 367
_shape2.Name = "_shape2"
_shape2.Top = 0
Lb_titlu_alb_b121.Caption = "Configurare import eFactura"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 25
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.Left = 393
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 23
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Preluare cont contabil din inregistrarile anterioare ale clientului", ;
ControlSource = "m.gnEFACTURA_CONT_ART_EF", ;
Left = 12, ;
Name = "_checkbox1", ;
TabIndex = 12, ;
Top = 359
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_checkbox2' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Preluare tip articol din inregistrarile anterioare ale clientului", ;
Enabled = .F., ;
Left = 12, ;
Name = "_checkbox2", ;
TabIndex = 13, ;
Top = 380
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_checkbox3' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Preluare gestiune din inregistrarile anterioare ale clientului", ;
ControlSource = "m.gnEFACTURA_GEST_ART_EF", ;
Left = 12, ;
Name = "_checkbox3", ;
TabIndex = 14, ;
Top = 401
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_checkbox4' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Preluare sectie din inregistrarile anterioare ale clientului", ;
Enabled = .F., ;
Left = 12, ;
Name = "_checkbox4", ;
TabIndex = 15, ;
Top = 424
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_checkbox5' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Preluare tip ven/chlt din inregistrarile anterioare ale clientului", ;
Enabled = .F., ;
Left = 12, ;
Name = "_checkbox5", ;
TabIndex = 16, ;
Top = 443
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_checkbox6' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Preluare contract din inregistrarile anterioare ale clientului", ;
Enabled = .F., ;
Left = 12, ;
Name = "_checkbox6", ;
TabIndex = 17, ;
Top = 464
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_label1' AS _label WITH ;
Caption = "Facturi primite", ;
FontBold = .T., ;
Left = 14, ;
Name = "_label1", ;
TabIndex = 26, ;
Top = 41
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_label10' AS _label WITH ;
Anchor = 0, ;
Caption = "Sectie implicita", ;
Left = 12, ;
Name = "_label10", ;
TabIndex = 32, ;
Top = 569, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_label11' AS _label WITH ;
Anchor = 0, ;
Caption = "Tip ven/chlt implicit", ;
Left = 12, ;
Name = "_label11", ;
TabIndex = 34, ;
Top = 594, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_label2' AS _label WITH ;
Anchor = 0, ;
Caption = "Tip articole implicit", ;
Left = 14, ;
Name = "_label2", ;
TabIndex = 28, ;
Top = 224, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_label3' AS _label WITH ;
Anchor = 0, ;
Caption = "Gestiune implicita", ;
Left = 14, ;
Name = "_label3", ;
TabIndex = 30, ;
Top = 249, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_label4' AS _label WITH ;
Anchor = 0, ;
Caption = "Sectie implicita", ;
Left = 14, ;
Name = "_label4", ;
TabIndex = 33, ;
Top = 274, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_label5' AS _label WITH ;
Anchor = 0, ;
Caption = "Tip ven/chlt implicit", ;
Left = 14, ;
Name = "_label5", ;
TabIndex = 31, ;
Top = 296, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_label6' AS _label WITH ;
Caption = "Facturi emise", ;
FontBold = .T., ;
Left = 12, ;
Name = "_label6", ;
TabIndex = 37, ;
Top = 335
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_label7' AS _label WITH ;
Anchor = 0, ;
Caption = "Cont articole implicit", ;
Left = 12, ;
Name = "_label7", ;
TabIndex = 36, ;
Top = 493, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_label8' AS _label WITH ;
Anchor = 0, ;
Caption = "Tip articole implicit", ;
Left = 12, ;
Name = "_label8", ;
TabIndex = 35, ;
Top = 517, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_label9' AS _label WITH ;
Anchor = 0, ;
Caption = "Gestiune implicita", ;
Left = 12, ;
Name = "_label9", ;
TabIndex = 29, ;
Top = 543, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Anchor = 8, ;
Left = 365, ;
Name = "But_renunt1", ;
TabIndex = 24, ;
Top = 2
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cboContE' AS _cbsearch WITH ;
BoundColumn = 1, ;
BoundTo = .T., ;
ColumnCount = 3, ;
ColumnLines = .F., ;
ColumnWidths = "50,250,50", ;
ControlSource = "m.gcEFACTURA_CONT_ART_E", ;
Format = "K", ;
Height = 24, ;
Left = 144, ;
Name = "cboContE", ;
RowSource = "cPlContE.cont, explicatie, tip_sold", ;
RowSourceType = 6, ;
TabIndex = 18, ;
Top = 489, ;
Width = 87, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT 'cboContP' AS _cbsearch WITH ;
BoundColumn = 1, ;
BoundTo = .T., ;
ColumnCount = 3, ;
ColumnLines = .F., ;
ColumnWidths = "50,250,50", ;
ControlSource = "m.gcEFACTURA_CONT_ART_P", ;
Format = "K", ;
Height = 24, ;
Left = 144, ;
Name = "cboContP", ;
RowSource = "cPlContP.cont, explicatie, tip_sold", ;
RowSourceType = 6, ;
TabIndex = 7, ;
Top = 196, ;
Width = 87, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT 'cboGestiuneE' AS _cbsearch WITH ;
BoundColumn = 3, ;
BoundTo = .T., ;
ColumnCount = 2, ;
ColumnLines = .F., ;
ColumnWidths = "300,50", ;
ControlSource = "m.gnEFACTURA_ID_GESTIUNE_E", ;
Format = "K", ;
Height = 24, ;
Left = 144, ;
Name = "cboGestiuneE", ;
RowSource = "cGestiuniE.nume_gestiune, cont, id_gestiune", ;
RowSourceType = 6, ;
TabIndex = 20, ;
Top = 539, ;
Width = 178, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT 'cboGestiuneP' AS _cbsearch WITH ;
BoundColumn = 3, ;
BoundTo = .T., ;
ColumnCount = 2, ;
ColumnLines = .F., ;
ColumnWidths = "300,50", ;
ControlSource = "m.gnEFACTURA_ID_GESTIUNE_P", ;
Format = "K", ;
Height = 24, ;
Left = 144, ;
Name = "cboGestiuneP", ;
RowSource = "cGestiuniP.nume_gestiune, cont, id_gestiune", ;
RowSourceType = 6, ;
TabIndex = 9, ;
Top = 246, ;
Width = 178, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT 'cboSectieE' AS _cbsearch WITH ;
BoundColumn = 2, ;
BoundTo = .T., ;
ColumnCount = 1, ;
ColumnLines = .F., ;
ColumnWidths = "300", ;
ControlSource = "m.gnEFACTURA_ID_SECTIE_E", ;
Format = "K", ;
Height = 24, ;
Left = 144, ;
Name = "cboSectieE", ;
RowSource = "cSectiiE.sectie, id_sectie", ;
RowSourceType = 6, ;
TabIndex = 21, ;
Top = 564, ;
Width = 178, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT 'cboSectieP' AS _cbsearch WITH ;
BoundColumn = 2, ;
BoundTo = .T., ;
ColumnCount = 1, ;
ColumnLines = .F., ;
ColumnWidths = "300", ;
ControlSource = "m.gnEFACTURA_ID_SECTIE_P", ;
Format = "K", ;
Height = 24, ;
Left = 144, ;
Name = "cboSectieP", ;
RowSource = "cSectiiP.sectie, id_sectie", ;
RowSourceType = 6, ;
TabIndex = 10, ;
Top = 271, ;
Width = 178, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT 'cboTipArticoleE' AS _cbsearch WITH ;
BoundColumn = 3, ;
BoundTo = .T., ;
ColumnCount = 3, ;
ColumnLines = .F., ;
ColumnWidths = "300,50,50", ;
ControlSource = "m.gnEFACTURA_ID_TIPART_E", ;
Format = "K", ;
Height = 24, ;
Left = 144, ;
Name = "cboTipArticoleE", ;
RowSource = "cTipArticoleE.tip, cont, id", ;
RowSourceType = 6, ;
TabIndex = 19, ;
Top = 514, ;
Width = 178, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT 'cboTipArticoleP' AS _cbsearch WITH ;
BoundColumn = 3, ;
BoundTo = .T., ;
ColumnCount = 3, ;
ColumnLines = .F., ;
ColumnWidths = "300,50,50", ;
ControlSource = "m.gnEFACTURA_ID_TIPART_P", ;
Format = "K", ;
Height = 24, ;
Left = 144, ;
Name = "cboTipArticoleP", ;
RowSource = "cTipArticoleP.tip, cont, id", ;
RowSourceType = 6, ;
TabIndex = 8, ;
Top = 221, ;
Width = 178, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT 'cboVenCheltE' AS _cbsearch WITH ;
BoundColumn = 3, ;
BoundTo = .T., ;
ColumnCount = 2, ;
ColumnLines = .F., ;
ColumnWidths = "300,50", ;
ControlSource = "m.gnEFACTURA_ID_VENCHELT_E", ;
Format = "K", ;
Height = 24, ;
Left = 144, ;
Name = "cboVenCheltE", ;
RowSource = "cVenChelE.venchelt, tip, id_venchelt", ;
RowSourceType = 6, ;
TabIndex = 22, ;
Top = 589, ;
Width = 178, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT 'cboVenCheltP' AS _cbsearch WITH ;
BoundColumn = 3, ;
BoundTo = .T., ;
ColumnCount = 2, ;
ColumnLines = .F., ;
ColumnWidths = "300,50", ;
ControlSource = "m.gnEFACTURA_ID_VENCHELT_P", ;
Format = "K", ;
Height = 24, ;
Left = 144, ;
Name = "cboVenCheltP", ;
RowSource = "cVenChelP.venchelt, tip, id_venchelt", ;
RowSourceType = 6, ;
TabIndex = 11, ;
Top = 296, ;
Width = 178, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT 'chkContP' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Preluare cont contabil din inregistrarile anterioare ale furnizorului", ;
ControlSource = "m.gnEFACTURA_CONT_ART_PF", ;
Left = 14, ;
Name = "chkContP", ;
TabIndex = 1, ;
Top = 65
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'chkContractP' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Preluare contract din inregistrarile anterioare ale furnizorului", ;
Enabled = .F., ;
Left = 14, ;
Name = "chkContractP", ;
TabIndex = 6, ;
Top = 170
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'chkGestiuneP' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Preluare gestiune din inregistrarile anterioare ale furnizorului", ;
ControlSource = "m.gnEFACTURA_GEST_ART_PF", ;
Left = 14, ;
Name = "chkGestiuneP", ;
TabIndex = 3, ;
Top = 107
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'chkSectieP' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Preluare sectie din inregistrarile anterioare ale furnizorului", ;
Enabled = .F., ;
Left = 14, ;
Name = "chkSectieP", ;
TabIndex = 4, ;
Top = 130
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'chkTipP' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Preluare tip articol din inregistrarile anterioare ale furnizorului", ;
Enabled = .F., ;
Left = 14, ;
Name = "chkTipP", ;
TabIndex = 2, ;
Top = 86
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'chkVenCheltP' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Preluare tip ven/chlt din inregistrarile anterioare ale furnizorului", ;
Enabled = .F., ;
Left = 14, ;
Name = "chkVenCheltP", ;
TabIndex = 5, ;
Top = 149
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'lblCont' AS _label WITH ;
Anchor = 0, ;
Caption = "Cont articole implicit", ;
Left = 14, ;
Name = "lblCont", ;
TabIndex = 27, ;
Top = 199, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
PROCEDURE cboGestiuneE.Valid
gnEFACTURA_ID_GESTIUNE_E = cGestiuniE.id_gestiune
ENDPROC
PROCEDURE cboGestiuneP.Valid
gnEFACTURA_ID_GESTIUNE_P = cGestiuniP.id_gestiune
ENDPROC
PROCEDURE cboSectieE.Valid
gnEFACTURA_ID_SECTIE_E = cSectiiE.id_sectie
ENDPROC
PROCEDURE cboSectieP.Valid
gnEFACTURA_ID_SECTIE_P = cSectiiP.id_sectie
ENDPROC
PROCEDURE cboTipArticoleE.Valid
gnEFACTURA_ID_TIPART_E = cTipArticoleE.id
ENDPROC
PROCEDURE cboTipArticoleP.Valid
gnEFACTURA_ID_TIPART_P = cTipArticoleP.id
ENDPROC
PROCEDURE cboVenCheltE.Valid
gnEFACTURA_ID_VENCHELT_E = cVenChelE.id_venchelt
ENDPROC
PROCEDURE cboVenCheltP.Valid
gnEFACTURA_ID_VENCHELT_P = cVenChelP.id_venchelt
ENDPROC
ENDDEFINE
DEFINE CLASS frm_deschidere_luna_cont AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Nu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Da1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_intrebare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_tva_incasare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_impozit_profit" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 190
Name = "frm_deschidere_luna_cont"
Width = 311
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 311
_shape2.Anchor = 8
_shape2.Height = 29
_shape2.Left = 287
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Visible = .F.
_shape2.Width = 16
Lb_titlu_alb_b121.Caption = "Titlu"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.Left = 280
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
BUT_TERMIN1.Visible = .F.
GRIDSORT1.Left = 240
GRIDSORT1.Name = "GRIDSORT1"
GRIDSORT1.Top = 36
*</PropValue>
ADD OBJECT 'ck_impozit_profit' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Impozit Profit (Initializare > Configurare Impozit)", ;
ControlSource = "pnImpozitProfit", ;
Enabled = .F., ;
Left = 10, ;
Name = "ck_impozit_profit", ;
Top = 162, ;
Visible = .T.
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'ck_tva_incasare' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "TVA la <20>ncasare (Initializare > Configurare TVA)", ;
ControlSource = "pnTvaIncasare", ;
Enabled = .F., ;
Left = 10, ;
Name = "ck_tva_incasare", ;
Top = 142, ;
Visible = .T.
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'Da1' AS but_da WITH ;
Height = 30, ;
Left = 116, ;
Name = "Da1", ;
TabIndex = 2, ;
Top = 90, ;
Width = 55, ;
ZOrderSet = 2
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Lb_intrebare' AS lb_simplu WITH ;
Alignment = 2, ;
AutoSize = .F., ;
Caption = "Intrebare", ;
Height = 36, ;
Left = 11, ;
Name = "Lb_intrebare", ;
Top = 41, ;
Width = 286
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'Nu1' AS but_nu WITH ;
Height = 30, ;
Left = 172, ;
Name = "Nu1", ;
TabIndex = 3, ;
Top = 90, ;
Width = 55, ;
ZOrderSet = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
PROCEDURE Init
Lparameters tcTitlu,tcIntrebare,tlDeschidereDeLuna
DoDefault()
Thisform.lb_titlu_alb_b121.Caption=Upper(tcTitlu)
Thisform.lb_intrebare.Caption=tcIntrebare
ENDPROC
ENDDEFINE
DEFINE CLASS frm_interval_date AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_data" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: ctip
*</DefinedPropArrayMethod>
*<PropValue>
ctip =
DoCreate = .T.
Height = 100
Name = "frm_interval_date"
Width = 338
_SHAPE1.Name = "_SHAPE1"
_SHAPE1.Width = 338
_SHAPE2.Height = 29
_SHAPE2.Left = 268
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 71
LB_TITLU_ALB_B121.Caption = "Perioada raport"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 4
BUT_TERMIN1.Left = 305
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 272, ;
Name = "But_renunt1", ;
TabIndex = 3, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Clb_data' AS clb_nr_intre WITH ;
Left = 25, ;
Name = "Clb_data", ;
TabIndex = 1, ;
Top = 49, ;
tx_n1.Alignment = 3, ;
tx_n1.ControlSource = "pdData1", ;
tx_n1.InputMask = "", ;
tx_n1.Name = "tx_n1", ;
tx_n1.Value = ({}), ;
Lb_simplu1.Caption = "Data", ;
Lb_simplu1.Name = "Lb_simplu1", ;
tx_n2.Alignment = 3, ;
tx_n2.ControlSource = "pdData2", ;
tx_n2.InputMask = "", ;
tx_n2.Name = "tx_n2", ;
tx_n2.Value = ({})
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
PROCEDURE inainte_de_do_renunt
pniesire=0
RETURN .T.
ENDPROC
PROCEDURE inainte_de_do_termin
Local llReturn
Do Case
Case Empty(pdData1)
aMessagebox("Nu ati completat data de inceput!",0+48,"Atentie")
Thisform.clb_data.tx_n1.SetFocus()
llReturn=.F.
Case Empty(pdData2)
aMessagebox("Nu ati completat data de sfarsit!",0+48,"Atentie")
Thisform.clb_data.tx_n2.SetFocus()
llReturn=.F.
Otherwise
pniesire=1
llReturn=.T.
Endcase
Return llReturn
ENDPROC
ENDDEFINE
DEFINE CLASS frm_interval_luni AS _frmbase OF "..\..\..\roacomenzi\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="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: ctip
*</DefinedPropArrayMethod>
*<PropValue>
BindControls = .T.
ctip =
DoCreate = .T.
Height = 100
Name = "frm_interval_luni"
Width = 338
_SHAPE1.Name = "_SHAPE1"
_SHAPE1.Width = 338
_SHAPE2.Height = 29
_SHAPE2.Left = 268
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 71
LB_TITLU_ALB_B121.Caption = "Interval"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 4
BUT_TERMIN1.Left = 305
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 272, ;
Name = "But_renunt1", ;
Top = 1
*< END OBJECT: ClassLib="..\..\..\roacomenzi\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ;
Left = 25, ;
Name = "Clb_luna_intre1", ;
Top = 49, ;
tx_n1.ControlSource = "pcAnLuna1", ;
tx_n1.Name = "tx_n1", ;
Lb_simplu1.Caption = "Interval", ;
Lb_simplu1.Name = "Lb_simplu1", ;
tx_n2.ControlSource = "pcAnLuna2", ;
tx_n2.Name = "tx_n2"
*< END OBJECT: ClassLib="..\..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" />
PROCEDURE inainte_de_do_termin
LOCAL llReturn
DO CASE
CASE EMPTY(pcAnLuna1)
aMESSAGEBOX("Nu ati completat luna de inceput!",0+48,"Atentie")
THISFORM.clb_data.tx_n1.SETFOCUS()
llReturn=.F.
CASE EMPTY(pcAnLuna2)
aMESSAGEBOX("Nu ati completat luna de sfarsit!",0+48,"Atentie")
THISFORM.clb_data.tx_n2.SETFOCUS()
llReturn=.F.
OTHERWISE
llReturn=.T.
ENDCASE
RETURN llReturn
ENDPROC
ENDDEFINE
DEFINE CLASS frm_optiune AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ogOptiuni" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_intrebare" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Height = 160
Name = "frm_optiune"
Width = 266
_shape1.Anchor = 10
_shape1.Name = "_shape1"
_shape2.Anchor = 8
_shape2.Height = 29
_shape2.Left = 203
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 65
Lb_titlu_alb_b121.Caption = "Titlu"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.Left = 237
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
GRIDSORT1.Name = "GRIDSORT1"
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Anchor = 8, ;
Left = 206, ;
Name = "But_renunt1", ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Lb_intrebare' AS lb_simplu WITH ;
Caption = "Intrebare", ;
Left = 11, ;
Name = "Lb_intrebare", ;
Top = 39
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'ogOptiuni' AS _optiongrup WITH ;
AutoSize = .F., ;
ButtonCount = 4, ;
Height = 84, ;
Left = 22, ;
Name = "ogOptiuni", ;
Top = 60, ;
Width = 220, ;
Option1.AutoSize = .T., ;
Option1.Caption = "optiune 1", ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option2.AutoSize = .T., ;
Option2.Caption = "optiune 2", ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 24, ;
Option3.AutoSize = .T., ;
Option3.BackStyle = 0, ;
Option3.Caption = "optiune 3", ;
Option3.Height = 17, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.Top = 43, ;
Option3.Width = 69, ;
Option4.AutoSize = .T., ;
Option4.BackStyle = 0, ;
Option4.Caption = "optiune 4", ;
Option4.Height = 17, ;
Option4.Left = 5, ;
Option4.Name = "Option4", ;
Option4.Top = 62, ;
Option4.Width = 69
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
PROCEDURE Destroy
pnOptiune = Thisform.ogOptiuni.Value
ENDPROC
PROCEDURE Init
Lparameters tcTitlu,tcIntrebare,tnNrOptiuni,tcOptiuni,tlFaraRenuntare
DoDefault()
Thisform.lb_titlu_alb_b121.Caption=Upper(tcTitlu)
Thisform.lb_intrebare.Caption=tcIntrebare
Thisform.ogOptiuni.ButtonCount=tnNrOptiuni
*!* Do Case
*!* Case tnNrOptiuni=2
*!* Thisform.ogOptiuni.Height=48
*!* Case tnNrOptiuni=3
*!* Thisform.ogOptiuni.Height=60
*!* Endcase
If !Empty(tlFaraRenuntare)
Thisform.but_RENUNT1.Visible = .F.
lnAnchor = Thisform._shaPE2.Anchor
Thisform._shaPE2.Anchor = 0
lnDiferenta = Thisform.but_RENUNT1.Left - Thisform._shaPE2.Left
Thisform._shaPE2.Left = Thisform.but_teRMIN1.Left - lnDiferenta
Thisform._shaPE2.Anchor = lnAnchor
Endif
If !Empty(tcOptiuni)
lnPozI=1
For i=1 To tnNrOptiuni
lnPozF=At([;],tcOptiuni,i)
Thisform.ogOptiuni.Buttons(i).Caption=Substr(tcOptiuni,lnPozI,lnPozF-lnPozI)
Thisform.ogOptiuni.Buttons(i).AutoSize=.T.
Thisform.ogOptiuni.Buttons(i).BackStyle=0
lnPozI=lnPozF+1
Endfor
Endif
Thisform.ogOptiuni.AutoSize=.T.
If Thisform.ogOptiuni.Width>Thisform.Width
Thisform.Width=Thisform.ogOptiuni.Width+Thisform.ogOptiuni.Left+10
Endif
Thisform.Height=Thisform.ogOptiuni.Height+Thisform.ogOptiuni.Top+15
Thisform.ogOptiuni.Left=Round((Thisform.Width-Thisform.ogOptiuni.Width)/2,0)
Thisform.AutoCenter=.T.
Thisform.Refresh()
ENDPROC
ENDDEFINE
DEFINE CLASS verif_act_rul AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="grdRulaje" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNrCrt.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNrCrt.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNnir.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNnir.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDataact.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDataact.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCodmat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCodmat.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDenumire.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDenumire.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cUM.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cUM.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cPret.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cPret.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCant.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCant.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCante.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCante.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCont.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCont.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCod.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCod.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cAcont.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cAcont.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cGest.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cGest.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNrord.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNrord.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCurs.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCurs.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cPretd.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cPretd.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cProcent.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cProcent.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cAdaos.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cAdaos.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cTva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cTva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cValoareftva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cValoareftva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cPretv.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cPretv.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cTvav.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cTvav.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cPretvtva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cPretvtva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cProc_tva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cProc_tva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cUtil.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cUtil.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDataora.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDataora.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cSectie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cSectie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDatain.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDatain.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDataOut.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDataOut.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNresp.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNresp.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cGestC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cGestC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNrespC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNrespC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cTipRulaj.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cTipRulaj.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.Column34.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.Column34.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.Column35.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.Column35.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cGrupa.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cGrupa.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNract.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNract.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cSubgrupa.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cSubgrupa.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cUtils.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cUtils.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDataoras.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDataoras.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cSerie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cSerie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNume_val.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNume_val.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cSerie_act.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cSerie_act.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCodmatF.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cCodmatF.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cLot.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cLot.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDataExpirare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDataExpirare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cSucursala.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cSucursala.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cPart_rez.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cPart_rez.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNrord_rez.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cNrord_rez.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cValoaretva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cValoaretva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cValoarevftva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cValoarevftva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cProc_tvav.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cProc_tvav.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cAdaos_tva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cAdaos_tva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cValoare_adaosftva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cValoare_adaosftva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cvaloare_adaostva.header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cvaloare_adaostva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDiscunitar.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDiscunitar.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDiscunitar_tva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cDiscunitar_tva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cProc_disc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cProc_disc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cvaloarecTVA.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cvaloarecTVA.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cvaloarevTVA.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cvaloarevTVA.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cvaloarevcTVA.cvaloarevcTVA" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdRulaje.cvaloarevcTVA.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cScd.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cScd.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cAscd.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cAscd.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cScc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cScc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cAscc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cAscc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column13.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column13.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column14.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column14.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column15.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column15.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column16.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column16.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column17.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column17.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column18.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column18.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column19.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column19.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column20.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column20.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column21.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column21.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column22.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column22.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column23.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column23.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column25.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column25.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column26.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column26.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column27.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column27.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column28.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column28.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column29.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column29.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column30.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column30.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column31.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column31.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column32.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column32.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column33.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column33.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column34.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column34.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column35.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column35.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column36.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column36.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column37.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column37.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column24.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column24.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column38.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.Column38.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cSerie_act.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cSerie_act.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cIdFact.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cIdFact.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cIdFactD.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cIdFactD.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cIdFactC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdAct.cIdFactC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nsuma
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 192,192,192
BorderStyle = 3
DoCreate = .T.
Height = 508
Name = "verif_act_rul"
nsuma = 0
Width = 807
_shape1.Anchor = 11
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 828
_shape1.ZOrderSet = 1
_shape2.Anchor = 9
_shape2.Left = 758
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.ZOrderSet = 2
Lb_titlu_alb_b121.Caption = "Verificare note contabile cu rulajele dupa cod"
Lb_titlu_alb_b121.Left = 6
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 6
Lb_titlu_alb_b121.ZOrderSet = 3
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 778
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 5
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 4
Gridsort1.Left = 120
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 12
*</PropValue>
ADD OBJECT '_grdfooter1' AS _grdfooter WITH ;
ccolwithlabel = cNrCrt, ;
csourcegrid = grdRulaje, ;
csumcolumns = cValoareftva, cValoaretva, cValoarectva, cValoarevftva, cValoarevtva, cValoarevctva, cValoare_adaosftva, cvaloare_adaostva, ;
ctotallabelexpression = 'TOTAL', ;
Left = 6, ;
Name = "_grdfooter1", ;
Top = 466, ;
Width = 792, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Anchor = 9, ;
Comment = "*:OnResize=RB", ;
Left = 508, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 2, ;
TabStop = .F., ;
Top = 212, ;
ZOrderSet = 7, ;
Text_simplu1.ControlSource = "thisform.nsuma", ;
Text_simplu1.InputMask = (get_mask(12,gnPA)), ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Lb_simplu1.Caption = "TOTAL", ;
Lb_simplu1.FontBold = .T., ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'grdAct' AS _grid WITH ;
Anchor = 11, ;
ColumnCount = 42, ;
DeleteMark = .F., ;
Height = 168, ;
HighlightStyle = 2, ;
Left = 6, ;
Name = "grdAct", ;
Panel = 1, ;
RecordSource = "actactan", ;
RowHeight = 19, ;
TabIndex = 1, ;
Top = 39, ;
Width = 792, ;
ZOrderSet = 6, ;
Column1.ControlSource = "nrcrt()", ;
Column1.FontName = "Arial", ;
Column1.FontSize = 10, ;
Column1.ForeColor = 0,0,0, ;
Column1.Name = "Column1", ;
Column1.Width = 30, ;
Column2.ControlSource = "fdoc", ;
Column2.FontName = "Arial", ;
Column2.FontSize = 10, ;
Column2.ForeColor = 0,0,0, ;
Column2.Name = "Column2", ;
Column2.Width = 38, ;
Column3.ControlSource = "dataireg", ;
Column3.FontName = "Arial", ;
Column3.FontSize = 10, ;
Column3.ForeColor = 0,0,0, ;
Column3.Name = "Column3", ;
Column3.Width = 54, ;
Column4.ColumnOrder = 4, ;
Column4.ControlSource = "dataact", ;
Column4.FontName = "Arial", ;
Column4.FontSize = 10, ;
Column4.ForeColor = 0,0,0, ;
Column4.Name = "Column4", ;
Column4.Width = 54, ;
Column5.ColumnOrder = 6, ;
Column5.ControlSource = "nract", ;
Column5.FontName = "Arial", ;
Column5.FontSize = 10, ;
Column5.ForeColor = 0,0,0, ;
Column5.Name = "Column5", ;
Column5.Width = 48, ;
Column6.ColumnOrder = 7, ;
Column6.ControlSource = "partD", ;
Column6.FontName = "Arial", ;
Column6.FontSize = 10, ;
Column6.ForeColor = 0,0,0, ;
Column6.Name = "Column6", ;
Column6.Width = 125, ;
Column7.ColumnOrder = 8, ;
Column7.ControlSource = "partC", ;
Column7.FontName = "Arial", ;
Column7.FontSize = 10, ;
Column7.ForeColor = 0,0,0, ;
Column7.Name = "Column7", ;
Column7.Width = 116, ;
Column8.ColumnOrder = 9, ;
Column8.ControlSource = "explicatia", ;
Column8.FontName = "Arial", ;
Column8.FontSize = 10, ;
Column8.ForeColor = 0,0,0, ;
Column8.Name = "Column8", ;
Column8.Width = 90, ;
Column9.ColumnOrder = 10, ;
Column9.ControlSource = "scd", ;
Column9.FontBold = .T., ;
Column9.FontName = "Arial", ;
Column9.FontSize = 10, ;
Column9.ForeColor = 0,0,0, ;
Column9.Name = "cScd", ;
Column9.Width = 32, ;
Column10.ColumnOrder = 11, ;
Column10.ControlSource = "ascd", ;
Column10.FontName = "Arial", ;
Column10.FontSize = 10, ;
Column10.ForeColor = 0,0,0, ;
Column10.Name = "cAscd", ;
Column10.Width = 35, ;
Column11.ColumnOrder = 12, ;
Column11.ControlSource = "scc", ;
Column11.FontBold = .T., ;
Column11.FontName = "Arial", ;
Column11.FontSize = 10, ;
Column11.ForeColor = 0,0,0, ;
Column11.Name = "cScc", ;
Column11.Width = 33, ;
Column12.ColumnOrder = 13, ;
Column12.ControlSource = "ascc", ;
Column12.FontName = "Arial", ;
Column12.FontSize = 10, ;
Column12.ForeColor = 0,0,0, ;
Column12.Name = "cAscc", ;
Column12.Width = 35, ;
Column13.ColumnOrder = 14, ;
Column13.ControlSource = "suma", ;
Column13.FontName = "Arial", ;
Column13.FontSize = 10, ;
Column13.ForeColor = 0,0,0, ;
Column13.Format = "R", ;
Column13.InputMask = (get_mask(12,gnPA)), ;
Column13.Name = "Column13", ;
Column13.Width = 85, ;
Column14.ColumnOrder = 15, ;
Column14.ControlSource = "nrord", ;
Column14.FontName = "Arial", ;
Column14.FontSize = 10, ;
Column14.ForeColor = 0,0,0, ;
Column14.Name = "Column14", ;
Column14.Width = 93, ;
Column15.ColumnOrder = 17, ;
Column15.ControlSource = "perecheD", ;
Column15.FontName = "Arial", ;
Column15.FontSize = 10, ;
Column15.ForeColor = 0,0,0, ;
Column15.Name = "Column15", ;
Column15.Width = 55, ;
Column16.ColumnOrder = 18, ;
Column16.ControlSource = "perecheC", ;
Column16.FontName = "Arial", ;
Column16.FontSize = 10, ;
Column16.ForeColor = 0,0,0, ;
Column16.Name = "Column16", ;
Column16.Width = 55, ;
Column17.ColumnOrder = 21, ;
Column17.ControlSource = "datascad", ;
Column17.FontName = "Arial", ;
Column17.FontSize = 10, ;
Column17.ForeColor = 0,0,0, ;
Column17.Name = "Column17", ;
Column17.Width = 47, ;
Column18.ColumnOrder = 22, ;
Column18.ControlSource = "nnir", ;
Column18.FontName = "Arial", ;
Column18.FontSize = 10, ;
Column18.ForeColor = 0,0,0, ;
Column18.Name = "Column18", ;
Column18.Width = 75, ;
Column19.ColumnOrder = 23, ;
Column19.ControlSource = "nresp", ;
Column19.FontName = "Arial", ;
Column19.FontSize = 10, ;
Column19.ForeColor = 0,0,0, ;
Column19.Name = "Column19", ;
Column20.ColumnOrder = 24, ;
Column20.ControlSource = "dst_chlt", ;
Column20.FontName = "Arial", ;
Column20.FontSize = 10, ;
Column20.ForeColor = 0,0,0, ;
Column20.Name = "Column20", ;
Column21.ColumnOrder = 25, ;
Column21.ControlSource = "suma_val", ;
Column21.FontName = "Arial", ;
Column21.FontSize = 10, ;
Column21.ForeColor = 0,0,0, ;
Column21.Format = "R", ;
Column21.InputMask = (get_mask(12,gnPVal)), ;
Column21.Name = "Column21", ;
Column22.ColumnOrder = 26, ;
Column22.ControlSource = "nume_val", ;
Column22.FontName = "Arial", ;
Column22.FontSize = 10, ;
Column22.ForeColor = 0,0,0, ;
Column22.Name = "Column22", ;
Column22.Width = 31, ;
Column23.ColumnOrder = 27, ;
Column23.ControlSource = "curs", ;
Column23.FontName = "Arial", ;
Column23.FontSize = 10, ;
Column23.ForeColor = 0,0,0, ;
Column23.InputMask = (get_mask(12,gnPcurs)), ;
Column23.Name = "Column23", ;
Column23.Width = 51, ;
Column24.ColumnOrder = 32, ;
Column24.ControlSource = "sectie", ;
Column24.FontName = "Arial", ;
Column24.FontSize = 10, ;
Column24.ForeColor = 0,0,0, ;
Column24.Name = "Column25", ;
Column25.ColumnOrder = 19, ;
Column25.ControlSource = "proc_tva", ;
Column25.FontName = "Arial", ;
Column25.FontSize = 10, ;
Column25.ForeColor = 0,0,0, ;
Column25.InputMask = "99.99", ;
Column25.Name = "Column26", ;
Column25.Width = 45, ;
Column26.ColumnOrder = 39, ;
Column26.ControlSource = "cod", ;
Column26.FontName = "Arial", ;
Column26.FontSize = 10, ;
Column26.ForeColor = 0,0,0, ;
Column26.Name = "Column27", ;
Column26.Width = 51, ;
Column27.ColumnOrder = 34, ;
Column27.ControlSource = "util", ;
Column27.FontName = "Arial", ;
Column27.FontSize = 10, ;
Column27.ForeColor = 0,0,0, ;
Column27.Name = "Column28", ;
Column27.Width = 84, ;
Column28.ColumnOrder = 35, ;
Column28.ControlSource = "dataora", ;
Column28.FontName = "Arial", ;
Column28.FontSize = 10, ;
Column28.ForeColor = 0,0,0, ;
Column28.Name = "Column29", ;
Column28.Width = 96, ;
Column29.ColumnOrder = 36, ;
Column29.ControlSource = "utils", ;
Column29.FontName = "Arial", ;
Column29.FontSize = 10, ;
Column29.ForeColor = 0,0,0, ;
Column29.Name = "Column30", ;
Column30.ColumnOrder = 37, ;
Column30.ControlSource = "dataoras", ;
Column30.FontName = "Arial", ;
Column30.FontSize = 10, ;
Column30.ForeColor = 0,0,0, ;
Column30.Name = "Column31", ;
Column30.Width = 83, ;
Column31.ColumnOrder = 38, ;
Column31.ControlSource = "id_set", ;
Column31.FontName = "Arial", ;
Column31.FontSize = 10, ;
Column31.ForeColor = 0,0,0, ;
Column31.Name = "Column32", ;
Column32.ColumnOrder = 33, ;
Column32.ControlSource = "sucursala", ;
Column32.FontName = "Arial", ;
Column32.FontSize = 10, ;
Column32.ForeColor = 0,0,0, ;
Column32.Name = "Column33", ;
Column33.ColumnOrder = 28, ;
Column33.ControlSource = "explicatia4", ;
Column33.FontName = "Arial", ;
Column33.FontSize = 10, ;
Column33.ForeColor = 0,0,0, ;
Column33.Name = "Column34", ;
Column34.ColumnOrder = 29, ;
Column34.ControlSource = "explicatia5", ;
Column34.FontName = "Arial", ;
Column34.FontSize = 10, ;
Column34.ForeColor = 0,0,0, ;
Column34.Name = "Column35", ;
Column35.ColumnOrder = 30, ;
Column35.ControlSource = "GESTIN", ;
Column35.FontName = "Arial", ;
Column35.FontSize = 10, ;
Column35.ForeColor = 0,0,0, ;
Column35.Name = "Column36", ;
Column36.ColumnOrder = 31, ;
Column36.ControlSource = "GESTOUT", ;
Column36.FontName = "Arial", ;
Column36.FontSize = 10, ;
Column36.ForeColor = 0,0,0, ;
Column36.Name = "Column37", ;
Column37.ColumnOrder = 16, ;
Column37.ControlSource = "contract", ;
Column37.FontName = "Arial", ;
Column37.FontSize = 10, ;
Column37.ForeColor = 0,0,0, ;
Column37.Name = "Column24", ;
Column37.Width = 58, ;
Column38.ColumnOrder = 20, ;
Column38.ControlSource = "explicatie_tva", ;
Column38.FontName = "Arial", ;
Column38.FontSize = 10, ;
Column38.ForeColor = 0,0,0, ;
Column38.Name = "Column38", ;
Column39.ColumnOrder = 5, ;
Column39.ControlSource = "serie_act", ;
Column39.FontName = "Arial", ;
Column39.FontSize = 10, ;
Column39.ForeColor = 0,0,0, ;
Column39.Name = "cSerie_act", ;
Column39.Width = 51, ;
Column40.ControlSource = "id_Fact", ;
Column40.FontName = "Arial", ;
Column40.FontSize = 10, ;
Column40.Name = "cIdFact", ;
Column41.ControlSource = "id_factd", ;
Column41.FontName = "Arial", ;
Column41.FontSize = 10, ;
Column41.Name = "cIdFactD", ;
Column42.ControlSource = "id_factc", ;
Column42.FontName = "Arial", ;
Column42.FontSize = 10, ;
Column42.Name = "cIdFactC"
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />
ADD OBJECT 'grdAct.cAscc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "A Cred", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.cAscc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.cAscd.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "A Deb", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.cAscd.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.cIdFact.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id fact", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.cIdFact.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.cIdFactC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id FactC", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.cIdFactC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.cIdFactD.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id FactD", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.cIdFactD.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.Crt.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column13.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column13.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lucrare/Comanda", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column14.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column15.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Doc.platit", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column15.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column16.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Doc.incasat", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column16.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column17.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data scadenta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column17.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column18.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "NIR/Bon", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column18.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column19.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column19.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel document", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column20.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Chelt/Venituri", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column20.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontItalic = .F., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column21.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma in valuta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column21.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column22.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column22.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column23.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Curs", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column23.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column24.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Contract", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column24.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column25.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sectie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column25.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column26.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cota TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column26.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column27.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column27.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column28.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operator introducere", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column28.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column29.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Dataora introducerii", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column29.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data inreg.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column30.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operator stergere", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column30.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column31.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Dataora stergerii", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column31.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column32.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip operatie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column32.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column33.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sucursala", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column33.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column34.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia 4", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column34.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column35.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia 5", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column35.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column36.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiune destinatie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column36.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column37.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiune sursa", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column37.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column38.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column38.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data Act", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.Doc.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie D", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie C", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.cScc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "C Cred", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.cScc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.cScd.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "C Deb", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.cScd.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdAct.cSerie_act.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie Doc.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdAct.cSerie_act.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 61, ;
DeleteMark = .F., ;
GridLineColor = 128,128,128, ;
Height = 219, ;
Left = 6, ;
Name = "grdRulaje", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "rul_temp", ;
TabIndex = 3, ;
Tag = "RESIZABLE", ;
Top = 248, ;
Width = 792, ;
ZOrderSet = 0, ;
Column1.ControlSource = "nrcrt()", ;
Column1.FontName = "Arial", ;
Column1.Format = "R", ;
Column1.InputMask = "999 999", ;
Column1.Name = "cNrCrt", ;
Column1.ReadOnly = .T., ;
Column1.Width = 44, ;
Column2.ControlSource = "nnir", ;
Column2.FontName = "Arial", ;
Column2.Name = "cNnir", ;
Column2.ReadOnly = .T., ;
Column2.Width = 60, ;
Column3.ColumnOrder = 3, ;
Column3.ControlSource = "dataact", ;
Column3.FontName = "Arial", ;
Column3.Name = "cDataact", ;
Column3.ReadOnly = .T., ;
Column3.Width = 60, ;
Column4.ColumnOrder = 6, ;
Column4.ControlSource = "codmat", ;
Column4.FontName = "Arial", ;
Column4.Name = "cCodmat", ;
Column4.ReadOnly = .T., ;
Column5.ColumnOrder = 7, ;
Column5.ControlSource = "denumire", ;
Column5.FontName = "Arial", ;
Column5.Name = "cDenumire", ;
Column5.ReadOnly = .T., ;
Column5.Width = 156, ;
Column6.ColumnOrder = 9, ;
Column6.ControlSource = "um", ;
Column6.FontName = "Arial", ;
Column6.Name = "cUM", ;
Column6.ReadOnly = .T., ;
Column6.Width = 39, ;
Column7.ColumnOrder = 19, ;
Column7.ControlSource = "pret", ;
Column7.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column7.FontName = "Arial", ;
Column7.Format = "R", ;
Column7.InputMask = (get_mask(12,gnPPRET)), ;
Column7.Name = "cPret", ;
Column7.ReadOnly = .T., ;
Column7.Width = 70, ;
Column8.ColumnOrder = 12, ;
Column8.ControlSource = "cant", ;
Column8.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(0,0,255))", ;
Column8.FontName = "Arial", ;
Column8.Format = "R", ;
Column8.InputMask = (get_mask(12,gnPCANT)), ;
Column8.Name = "cCant", ;
Column8.ReadOnly = .T., ;
Column8.Width = 68, ;
Column9.ColumnOrder = 13, ;
Column9.ControlSource = "cante", ;
Column9.FontName = "Arial", ;
Column9.Format = "R", ;
Column9.InputMask = (get_mask(12,gnPCANT)), ;
Column9.Name = "cCante", ;
Column9.ReadOnly = .T., ;
Column9.Width = 68, ;
Column10.ColumnOrder = 14, ;
Column10.ControlSource = "cont", ;
Column10.FontName = "Arial", ;
Column10.Name = "cCont", ;
Column10.ReadOnly = .T., ;
Column10.Width = 46, ;
Column11.ColumnOrder = 61, ;
Column11.ControlSource = "cod", ;
Column11.FontName = "Arial", ;
Column11.Name = "cCod", ;
Column11.ReadOnly = .T., ;
Column12.ColumnOrder = 15, ;
Column12.ControlSource = "acont", ;
Column12.FontName = "Arial", ;
Column12.Name = "cAcont", ;
Column12.ReadOnly = .T., ;
Column12.Width = 46, ;
Column13.ColumnOrder = 16, ;
Column13.ControlSource = "cgest", ;
Column13.FontName = "Arial", ;
Column13.Name = "cGest", ;
Column13.ReadOnly = .T., ;
Column13.Width = 54, ;
Column14.ColumnOrder = 18, ;
Column14.ControlSource = "nrord", ;
Column14.FontName = "Arial", ;
Column14.Name = "cNrord", ;
Column14.ReadOnly = .T., ;
Column15.ColumnOrder = 25, ;
Column15.ControlSource = "curs", ;
Column15.FontName = "Arial", ;
Column15.Format = "R", ;
Column15.InputMask = (get_mask(12,gnPcurs)), ;
Column15.Name = "cCurs", ;
Column15.ReadOnly = .T., ;
Column15.Width = 55, ;
Column16.ColumnOrder = 24, ;
Column16.ControlSource = "pretd", ;
Column16.FontName = "Arial", ;
Column16.Format = "R", ;
Column16.InputMask = (get_mask(12,gnPPretVal)), ;
Column16.Name = "cPretd", ;
Column16.ReadOnly = .T., ;
Column16.Width = 56, ;
Column17.ColumnOrder = 39, ;
Column17.ControlSource = "procent", ;
Column17.FontName = "Arial", ;
Column17.Format = "R", ;
Column17.InputMask = "999 999.99", ;
Column17.Name = "cProcent", ;
Column17.ReadOnly = .T., ;
Column17.Width = 50, ;
Column18.ColumnOrder = 35, ;
Column18.ControlSource = "iif(pretv#0,pretv-pret,0)", ;
Column18.FontName = "Arial", ;
Column18.Format = "R", ;
Column18.InputMask = (get_mask(12,MAX(gnPPret,gnPPretV))), ;
Column18.Name = "cAdaos", ;
Column18.ReadOnly = .T., ;
Column18.Width = 56, ;
Column19.ColumnOrder = 20, ;
Column19.ControlSource = "tva", ;
Column19.FontName = "Arial", ;
Column19.Format = "R", ;
Column19.InputMask = (get_mask(12,gnPPRET)), ;
Column19.Name = "cTva", ;
Column19.ReadOnly = .T., ;
Column19.Width = 75, ;
Column20.ColumnOrder = 21, ;
Column20.ControlSource = "valoareftva", ;
Column20.FontName = "Arial", ;
Column20.Format = "R", ;
Column20.InputMask = (get_mask(12,gnPc)), ;
Column20.Name = "cValoareftva", ;
Column20.ReadOnly = .T., ;
Column21.ColumnOrder = 28, ;
Column21.ControlSource = "pretv", ;
Column21.FontName = "Arial", ;
Column21.Format = "R", ;
Column21.InputMask = (get_mask(12,gnPPRETV)), ;
Column21.Name = "cPretv", ;
Column21.ReadOnly = .T., ;
Column22.ColumnOrder = 29, ;
Column22.ControlSource = "tvav", ;
Column22.FontName = "Arial", ;
Column22.Format = "R", ;
Column22.InputMask = (get_mask(12,gnPPRETV)), ;
Column22.Name = "cTvav", ;
Column22.ReadOnly = .T., ;
Column23.ColumnOrder = 30, ;
Column23.ControlSource = "pretvtva", ;
Column23.FontName = "Arial", ;
Column23.Format = "R", ;
Column23.InputMask = (get_mask(12,gnPPRETV)), ;
Column23.Name = "cPretvtva", ;
Column23.ReadOnly = .T., ;
Column23.Width = 94, ;
Column24.ColumnOrder = 27, ;
Column24.ControlSource = "proc_tva", ;
Column24.FontName = "Arial", ;
Column24.Format = "R", ;
Column24.InputMask = "9.99", ;
Column24.Name = "cProc_tva", ;
Column24.ReadOnly = .T., ;
Column24.Width = 57, ;
Column25.ColumnOrder = 57, ;
Column25.ControlSource = "util", ;
Column25.FontName = "Arial", ;
Column25.Name = "cUtil", ;
Column25.ReadOnly = .T., ;
Column25.Width = 95, ;
Column26.ColumnOrder = 58, ;
Column26.ControlSource = "dataora", ;
Column26.FontName = "Arial", ;
Column26.Name = "cDataora", ;
Column26.ReadOnly = .T., ;
Column26.Width = 95, ;
Column27.ColumnOrder = 45, ;
Column27.ControlSource = "sectie", ;
Column27.FontName = "Arial", ;
Column27.Name = "cSectie", ;
Column27.ReadOnly = .T., ;
Column28.ColumnOrder = 43, ;
Column28.ControlSource = "datain", ;
Column28.FontName = "Arial", ;
Column28.Name = "cDatain", ;
Column28.ReadOnly = .T., ;
Column29.ColumnOrder = 44, ;
Column29.ControlSource = "dataout", ;
Column29.FontName = "Arial", ;
Column29.Name = "cDataOut", ;
Column29.ReadOnly = .T., ;
Column30.ColumnOrder = 46, ;
Column30.ControlSource = "nresp", ;
Column30.FontName = "Arial", ;
Column30.Name = "cNresp", ;
Column30.ReadOnly = .T., ;
Column30.Width = 116, ;
Column31.ColumnOrder = 17, ;
Column31.ControlSource = "cgestc", ;
Column31.FontName = "Arial", ;
Column31.Name = "cGestC", ;
Column31.ReadOnly = .T., ;
Column32.ColumnOrder = 47, ;
Column32.ControlSource = "nrespc", ;
Column32.FontName = "Arial", ;
Column32.Name = "cNrespC", ;
Column32.ReadOnly = .T., ;
Column32.Width = 91, ;
Column33.ColumnOrder = 48, ;
Column33.ControlSource = "tip_rulaj", ;
Column33.FontName = "Arial", ;
Column33.Name = "cTipRulaj", ;
Column33.ReadOnly = .T., ;
Column34.ColumnOrder = 10, ;
Column34.ControlSource = "cant_bax", ;
Column34.FontName = "Arial", ;
Column34.Name = "Column34", ;
Column34.ReadOnly = .T., ;
Column34.Width = 41, ;
Column35.ColumnOrder = 11, ;
Column35.ControlSource = "um2", ;
Column35.FontName = "Arial", ;
Column35.Name = "Column35", ;
Column35.ReadOnly = .T., ;
Column35.Width = 35, ;
Column36.ColumnOrder = 49, ;
Column36.ControlSource = "grupa", ;
Column36.FontName = "Arial", ;
Column36.Name = "cGrupa", ;
Column36.ReadOnly = .T., ;
Column36.Width = 53, ;
Column37.ColumnOrder = 5, ;
Column37.ControlSource = "nract", ;
Column37.FontName = "Arial", ;
Column37.Name = "cNract", ;
Column37.ReadOnly = .T., ;
Column37.Width = 61, ;
Column38.ColumnOrder = 50, ;
Column38.ControlSource = "subgrupa", ;
Column38.FontName = "Arial", ;
Column38.Name = "cSubgrupa", ;
Column38.ReadOnly = .T., ;
Column38.Width = 71, ;
Column39.ColumnOrder = 59, ;
Column39.ControlSource = "utils", ;
Column39.FontName = "Arial", ;
Column39.Name = "cUtils", ;
Column39.ReadOnly = .T., ;
Column40.ColumnOrder = 60, ;
Column40.ControlSource = "dataoras", ;
Column40.FontName = "Arial", ;
Column40.Name = "cDataoras", ;
Column40.ReadOnly = .T., ;
Column40.Width = 80, ;
Column41.ColumnOrder = 8, ;
Column41.ControlSource = "serie", ;
Column41.FontName = "Arial", ;
Column41.Name = "cSerie", ;
Column41.ReadOnly = .T., ;
Column41.Width = 122, ;
Column42.ColumnOrder = 26, ;
Column42.ControlSource = "nume_val", ;
Column42.FontName = "Arial", ;
Column42.Name = "cNume_val", ;
Column42.ReadOnly = .T., ;
Column42.Width = 52, ;
Column43.ColumnOrder = 4, ;
Column43.ControlSource = "serie_act", ;
Column43.FontName = "Arial", ;
Column43.Name = "cSerie_act", ;
Column43.ReadOnly = .T., ;
Column43.Width = 43, ;
Column44.ColumnOrder = 51, ;
Column44.ControlSource = "codmatf", ;
Column44.FontName = "Arial", ;
Column44.Name = "cCodmatF", ;
Column44.ReadOnly = .T., ;
Column45.ColumnOrder = 52, ;
Column45.ControlSource = "lot", ;
Column45.FontName = "Arial", ;
Column45.Name = "cLot", ;
Column45.ReadOnly = .T., ;
Column46.ColumnOrder = 53, ;
Column46.ControlSource = "adata_expirare", ;
Column46.FontName = "Arial", ;
Column46.Name = "cDataExpirare", ;
Column46.ReadOnly = .T., ;
Column47.ColumnOrder = 56, ;
Column47.ControlSource = "sucursala", ;
Column47.FontName = "Arial", ;
Column47.Name = "cSucursala", ;
Column47.ReadOnly = .T., ;
Column48.ColumnOrder = 54, ;
Column48.ControlSource = "part_rez", ;
Column48.FontName = "Arial", ;
Column48.Name = "cPart_rez", ;
Column48.ReadOnly = .T., ;
Column49.ColumnOrder = 55, ;
Column49.ControlSource = "nrord_rez", ;
Column49.FontName = "Arial", ;
Column49.Name = "cNrord_rez", ;
Column49.ReadOnly = .T., ;
Column50.ColumnOrder = 22, ;
Column50.ControlSource = "valoaretva", ;
Column50.FontName = "Arial", ;
Column50.Format = "r", ;
Column50.InputMask = (get_mask(12,gnPc)), ;
Column50.Name = "cValoaretva", ;
Column50.ReadOnly = .T., ;
Column50.Width = 98, ;
Column51.ColumnOrder = 31, ;
Column51.ControlSource = "valoarevftva", ;
Column51.FontName = "Arial", ;
Column51.Format = "r", ;
Column51.InputMask = (get_mask(12,gnPc)), ;
Column51.Name = "cValoarevftva", ;
Column51.ReadOnly = .T., ;
Column52.ColumnOrder = 34, ;
Column52.ControlSource = "proc_tvav", ;
Column52.FontName = "Arial", ;
Column52.Name = "cProc_tvav", ;
Column52.ReadOnly = .T., ;
Column52.Width = 76, ;
Column53.ColumnOrder = 36, ;
Column53.ControlSource = "adaos_tva", ;
Column53.FontName = "Arial", ;
Column53.InputMask = (get_mask(12,MAX(gnPPret,gnPPretV))), ;
Column53.Name = "cAdaos_tva", ;
Column53.ReadOnly = .T., ;
Column54.ColumnOrder = 37, ;
Column54.ControlSource = "valoare_adaosftva", ;
Column54.FontName = "Arial", ;
Column54.Format = "r", ;
Column54.InputMask = (get_mask(12,gnPc)), ;
Column54.Name = "cValoare_adaosftva", ;
Column54.ReadOnly = .T., ;
Column55.ColumnOrder = 38, ;
Column55.ControlSource = "valoare_adaostva", ;
Column55.FontName = "Arial", ;
Column55.Format = "r", ;
Column55.InputMask = (get_mask(12,gnPc)), ;
Column55.Name = "cvaloare_adaostva", ;
Column55.ReadOnly = .T., ;
Column56.ColumnOrder = 40, ;
Column56.ControlSource = "discunitar", ;
Column56.FontName = "Arial", ;
Column56.InputMask = (get_mask(12,gnPPretV)), ;
Column56.Name = "cDiscunitar", ;
Column56.ReadOnly = .T., ;
Column57.ColumnOrder = 41, ;
Column57.ControlSource = "discunitar_tva", ;
Column57.FontName = "Arial", ;
Column57.InputMask = (get_mask(12,gnPPretV)), ;
Column57.Name = "cDiscunitar_tva", ;
Column57.ReadOnly = .T., ;
Column57.Width = 77, ;
Column58.ColumnOrder = 42, ;
Column58.ControlSource = "proc_disc", ;
Column58.FontName = "Arial", ;
Column58.Name = "cProc_disc", ;
Column58.ReadOnly = .T., ;
Column59.ColumnOrder = 23, ;
Column59.ControlSource = "valoarecTVA", ;
Column59.FontName = "Arial", ;
Column59.InputMask = (get_mask(12,gnPc)), ;
Column59.Name = "cvaloarecTVA", ;
Column59.ReadOnly = .T., ;
Column59.Width = 107, ;
Column60.ColumnOrder = 32, ;
Column60.ControlSource = "valoarevTVA", ;
Column60.FontName = "Arial", ;
Column60.Name = "cvaloarevTVA", ;
Column60.ReadOnly = .T., ;
Column60.Width = 103, ;
Column61.ColumnOrder = 33, ;
Column61.ControlSource = "valoarevctva", ;
Column61.FontName = "Arial", ;
Column61.InputMask = (get_mask(12,gnPc)), ;
Column61.Name = "cvaloarevcTVA", ;
Column61.ReadOnly = .T., ;
Column61.Width = 107
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grdRulaje.cAcont.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cAcont.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cAdaos.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Adaos", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cAdaos.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cAdaos_tva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA adaos", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cAdaos_tva.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 'grdRulaje.cCant.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Intrari", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cCant.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cCante.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Iesiri", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cCante.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cCod.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cCod.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cCodmat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod material", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cCodmat.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cCodmatF.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod furnizor", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cCodmatF.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 'grdRulaje.cCont.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cCont.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cCurs.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Curs valutar", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cCurs.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cDataact.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data act", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cDataact.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cDataExpirare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data expirare", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cDataExpirare.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 'grdRulaje.cDatain.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data intrare", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cDatain.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cDataora.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Dataora introducerii", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cDataora.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cDataoras.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data / ora stergerii", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cDataoras.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 'grdRulaje.cDataOut.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data iesire", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cDataOut.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cDenumire.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cDenumire.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cDiscunitar.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Discount unitar", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cDiscunitar.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 'grdRulaje.cDiscunitar_tva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA discount unitar", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cDiscunitar_tva.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 'grdRulaje.cGest.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiunea", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cGest.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cGestC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiune C", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cGestC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cGrupa.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Grupa", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cGrupa.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 'grdRulaje.cLot.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lot", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cLot.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 'grdRulaje.cNnir.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. NIR/Bon", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cNnir.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cNract.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.act", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.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 'grdRulaje.cNrCrt.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.crt.", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cNrCrt.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cNresp.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cNresp.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cNrespC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil C", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cNrespC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cNrord.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lucrare/Comanda", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cNrord.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cNrord_rez.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lucrare rez.", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cNrord_rez.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 'grdRulaje.cNume_val.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cNume_val.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 'grdRulaje.Column34.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cant 2", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.Column34.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 'grdRulaje.Column35.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "UM 2", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.Column35.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 'grdRulaje.cPart_rez.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Part. rez.", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cPart_rez.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 'grdRulaje.cPret.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cPret.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cPretd.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret in valuta", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cPretd.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cPretv.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret vanzare", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cPretv.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cPretvtva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret vanzare cu TVA", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cPretvtva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cProc_disc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procent discount", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cProc_disc.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 'grdRulaje.cProc_tva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cota TVA", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cProc_tva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cProc_tvav.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Proc. TVA vanzare", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cProc_tvav.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 'grdRulaje.cProcent.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procent", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cProcent.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cSectie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sectie", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cSectie.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cSerie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cSerie.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 'grdRulaje.cSerie_act.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie act", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.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 'grdRulaje.cSubgrupa.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Subgrupa", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cSubgrupa.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 'grdRulaje.cSucursala.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sucursala", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cSucursala.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 'grdRulaje.cTipRulaj.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip rulaj", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cTipRulaj.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 'grdRulaje.cTva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA achizitie", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cTva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cTvav.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA vanzare", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cTvav.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cUM.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "UM", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cUM.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cUtil.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operator introducere", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cUtil.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cUtils.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Utilizator stergere", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cUtils.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 'grdRulaje.cValoare_adaosftva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare adaos fara TVA", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cValoare_adaosftva.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 'grdRulaje.cvaloare_adaostva.header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare TVA adaos", ;
FontName = "Arial", ;
Name = "header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cvaloare_adaostva.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 'grdRulaje.cvaloarecTVA.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare achizitie cu TVA", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cvaloarecTVA.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 'grdRulaje.cValoareftva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare achizitie", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cValoareftva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdRulaje.cValoaretva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare TVA achizitie", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cValoaretva.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 'grdRulaje.cvaloarevcTVA.cvaloarevcTVA' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare vanzare cu TVA", ;
FontName = "Arial", ;
Name = "cvaloarevcTVA"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cvaloarevcTVA.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 'grdRulaje.cValoarevftva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare vanzare", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cValoarevftva.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 'grdRulaje.cvaloarevTVA.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare TVA vanzare", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdRulaje.cvaloarevTVA.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" />
PROCEDURE Show
Lparameters nStyle
Select actactan
Sum suma To Thisform.nsuma
This.Width = INT(_screen.Width*0.9)
This.Height = Int(_Screen.Height * 0.7)
this.AutoCenter = .T.
This._grdfooter1.attachtogrid(This.grdrulaje)
This._grdfooter1.calctotal()
ENDPROC
PROCEDURE grdAct.Init
* Nu sterge
ENDPROC
PROCEDURE grdRulaje.Init
*Nu sterge
ENDPROC
ENDDEFINE
DEFINE CLASS verificare AS formtermin OF "baza.vcx" && La stergerea setului de note contabile din registrul jurnal.
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Precedent1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Blocbuton1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Blocbuton1.Da1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Blocbuton1.Nu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column4.Header4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column5.Header5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column6.Header6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column7.Header7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column8.Header8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column9.Header9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column12.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column12.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column13.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column13.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column16.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column16.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column17.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column17.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column18.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column18.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column19.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column19.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column20.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column20.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column21.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column21.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column22.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column22.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column23.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column23.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column24.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column24.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column25.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column25.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column26.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column26.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column27.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column27.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column28.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column28.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column29.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column29.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column30.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column30.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column31.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column31.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column32.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column32.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column33.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column33.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column34.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column34.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column35.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column35.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column36.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column36.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column37.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column37.Text1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: aleg_ascc
*m: aleg_ascd
*m: verif_ascc
*m: verif_ascd
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
Caption = ""
DataSession = 1
DoCreate = .T.
Height = 388
Name = "verificare"
Width = 832
SHAPE1.Anchor = 10
SHAPE1.Height = 36
SHAPE1.Left = 0
SHAPE1.Name = "SHAPE1"
SHAPE1.Top = 0
SHAPE1.Width = 828
TERMINAT1.COMMAND1.Name = "COMMAND1"
TERMINAT1.IMBUTON1.Height = 27
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
TERMINAT1.IMBUTON1.Width = 30
TERMINAT1.Left = 792
TERMINAT1.Name = "TERMINAT1"
TERMINAT1.Top = 2
TERMINAT1.Visible = .F.
TITLUFRUMOS1.Caption = "STERGETI SETUL DE NOTE CONTABILE ?"
TITLUFRUMOS1.Height = 27
TITLUFRUMOS1.Left = 7
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
TITLUFRUMOS1.Top = 5
TITLUFRUMOS1.Width = 364
*</PropValue>
ADD OBJECT 'Blocbuton1' AS blocbuton WITH ;
Anchor = 8, ;
Height = 37, ;
Left = 719, ;
Name = "Blocbuton1", ;
Top = -1, ;
Visible = .T., ;
Width = 110
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Blocbuton1.Da1' AS da WITH ;
Left = 55, ;
Name = "Da1", ;
Top = 4, ;
Imbuton1.Height = 27, ;
Imbuton1.Name = "Imbuton1", ;
Imbuton1.Width = 51, ;
Command1.Name = "Command1"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Blocbuton1.Nu1' AS nu WITH ;
Left = 4, ;
Name = "Nu1", ;
Top = 4, ;
Imbuton1.Height = 27, ;
Imbuton1.Name = "Imbuton1", ;
Imbuton1.Width = 51, ;
Command1.Name = "Command1"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Grid1' AS grid WITH ;
Anchor = 15, ;
BackColor = 255,255,255, ;
ColumnCount = 37, ;
DeleteMark = .F., ;
FontSize = 10, ;
GridLineColor = 192,192,192, ;
GridLines = 3, ;
Height = 349, ;
Left = 0, ;
Name = "Grid1", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "ACTACTAN", ;
RowHeight = 19, ;
TabIndex = 5, ;
Top = 35, ;
Width = 828, ;
ZOrderSet = 5, ;
Column1.Alignment = 1, ;
Column1.BackColor = 255,255,255, ;
Column1.ControlSource = "NRCRT()", ;
Column1.FontName = "Arial", ;
Column1.FontSize = 10, ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .T., ;
Column1.Width = 34, ;
Column2.Alignment = 0, ;
Column2.BackColor = 255,255,255, ;
Column2.ColumnOrder = 3, ;
Column2.ControlSource = "DATAIREG", ;
Column2.FontName = "Arial", ;
Column2.FontSize = 10, ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .T., ;
Column2.Width = 67, ;
Column3.Alignment = 0, ;
Column3.BackColor = 255,255,255, ;
Column3.ColumnOrder = 2, ;
Column3.ControlSource = "FDOC", ;
Column3.FontName = "Arial", ;
Column3.FontSize = 10, ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column3.Width = 90, ;
Column4.Alignment = 0, ;
Column4.BackColor = 255,255,255, ;
Column4.ColumnOrder = 4, ;
Column4.ControlSource = "DATAACT", ;
Column4.FontName = "Arial", ;
Column4.FontSize = 10, ;
Column4.Name = "Column4", ;
Column4.ReadOnly = .T., ;
Column4.Width = 70, ;
Column5.Alignment = 1, ;
Column5.BackColor = 255,255,255, ;
Column5.ColumnOrder = 5, ;
Column5.ControlSource = "NRACT", ;
Column5.FontName = "Arial", ;
Column5.FontSize = 10, ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .T., ;
Column5.Width = 94, ;
Column6.Alignment = 0, ;
Column6.BackColor = 255,255,255, ;
Column6.ColumnOrder = 11, ;
Column6.ControlSource = "partd", ;
Column6.FontName = "Arial", ;
Column6.FontSize = 10, ;
Column6.Name = "Column6", ;
Column6.ReadOnly = .T., ;
Column6.Width = 134, ;
Column7.Alignment = 1, ;
Column7.BackColor = 255,255,255, ;
Column7.ColumnOrder = 6, ;
Column7.ControlSource = "SCD", ;
Column7.DynamicForeColor = "rgb(0,0,128)", ;
Column7.FontBold = .F., ;
Column7.FontName = "Arial", ;
Column7.FontSize = 10, ;
Column7.ForeColor = 0,0,128, ;
Column7.Name = "Column7", ;
Column7.ReadOnly = .T., ;
Column7.Width = 62, ;
Column8.Alignment = 1, ;
Column8.BackColor = 255,255,255, ;
Column8.ColumnOrder = 8, ;
Column8.ControlSource = "SCC", ;
Column8.DynamicForeColor = "rgb(0,0,128)", ;
Column8.FontBold = .F., ;
Column8.FontName = "Arial", ;
Column8.FontSize = 10, ;
Column8.Name = "Column8", ;
Column8.ReadOnly = .T., ;
Column8.Width = 66, ;
Column9.Alignment = 1, ;
Column9.BackColor = 255,255,255, ;
Column9.ColumnOrder = 10, ;
Column9.ControlSource = "SUMA", ;
Column9.DynamicForeColor = "IIF(SUMA>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column9.FontBold = .F., ;
Column9.FontName = "Arial", ;
Column9.FontSize = 10, ;
Column9.Format = "r", ;
Column9.InputMask = (get_mask(12,gnPa)), ;
Column9.Name = "Column9", ;
Column9.ReadOnly = .T., ;
Column9.Width = 107, ;
Column10.Alignment = 0, ;
Column10.BackColor = 255,255,255, ;
Column10.ColumnOrder = 12, ;
Column10.ControlSource = "partc", ;
Column10.FontName = "Arial", ;
Column10.FontSize = 10, ;
Column10.Name = "Column10", ;
Column10.ReadOnly = .T., ;
Column10.Width = 132, ;
Column11.Alignment = 0, ;
Column11.BackColor = 255,255,255, ;
Column11.ColumnOrder = 13, ;
Column11.ControlSource = "EXPLICATIA", ;
Column11.FontName = "Arial", ;
Column11.FontSize = 10, ;
Column11.Name = "Column11", ;
Column11.ReadOnly = .T., ;
Column11.Width = 72, ;
Column12.BackColor = 255,255,255, ;
Column12.ColumnOrder = 29, ;
Column12.ControlSource = "COD", ;
Column12.FontName = "Arial", ;
Column12.FontSize = 10, ;
Column12.Name = "Column12", ;
Column12.ReadOnly = .T., ;
Column12.Width = 97, ;
Column13.BackColor = 255,255,255, ;
Column13.ColumnOrder = 17, ;
Column13.ControlSource = "pereched", ;
Column13.FontName = "Arial", ;
Column13.FontSize = 10, ;
Column13.Name = "Column13", ;
Column13.ReadOnly = .T., ;
Column13.Width = 91, ;
Column14.BackColor = 255,255,255, ;
Column14.ColumnOrder = 20, ;
Column14.ControlSource = "explicatia4", ;
Column14.FontName = "Arial", ;
Column14.FontSize = 10, ;
Column14.Name = "Column14", ;
Column14.ReadOnly = .T., ;
Column14.Width = 72, ;
Column15.BackColor = 255,255,255, ;
Column15.ColumnOrder = 22, ;
Column15.ControlSource = "suma_val", ;
Column15.FontName = "Arial", ;
Column15.FontSize = 10, ;
Column15.Format = "r", ;
Column15.InputMask = (get_mask(12,gnPval)), ;
Column15.Name = "Column16", ;
Column15.ReadOnly = .T., ;
Column15.Width = 67, ;
Column16.BackColor = 255,255,255, ;
Column16.ColumnOrder = 23, ;
Column16.ControlSource = "curs", ;
Column16.FontName = "Arial", ;
Column16.FontSize = 10, ;
Column16.Format = "r", ;
Column16.InputMask = (get_mask(12,gnPcurs)), ;
Column16.Name = "Column17", ;
Column16.ReadOnly = .T., ;
Column16.Width = 64, ;
Column17.BackColor = 255,255,255, ;
Column17.ColumnOrder = 28, ;
Column17.ControlSource = "proc_tva", ;
Column17.FontName = "Arial", ;
Column17.FontSize = 10, ;
Column17.InputMask = "999.99", ;
Column17.Name = "Column18", ;
Column17.ReadOnly = .T., ;
Column17.Width = 78, ;
Column18.BackColor = 255,255,255, ;
Column18.ColumnOrder = 19, ;
Column18.ControlSource = "datascad", ;
Column18.FontName = "Arial", ;
Column18.FontSize = 10, ;
Column18.Name = "Column19", ;
Column18.ReadOnly = .T., ;
Column18.Visible = .T., ;
Column18.Width = 88, ;
Column19.BackColor = 255,255,255, ;
Column19.ColumnOrder = 21, ;
Column19.ControlSource = "explicatia5", ;
Column19.FontName = "Arial", ;
Column19.FontSize = 10, ;
Column19.Name = "Column20", ;
Column19.ReadOnly = .T., ;
Column19.Width = 72, ;
Column20.BackColor = 255,255,255, ;
Column20.ColumnOrder = 31, ;
Column20.ControlSource = "util", ;
Column20.FontName = "Arial", ;
Column20.FontSize = 10, ;
Column20.Name = "Column21", ;
Column20.ReadOnly = .T., ;
Column20.Width = 122, ;
Column21.BackColor = 255,255,255, ;
Column21.ColumnOrder = 32, ;
Column21.ControlSource = "dataora", ;
Column21.FontName = "Arial", ;
Column21.FontSize = 10, ;
Column21.Name = "Column22", ;
Column21.ReadOnly = .T., ;
Column21.Width = 125, ;
Column22.BackColor = 255,255,255, ;
Column22.ColumnOrder = 33, ;
Column22.ControlSource = "utils", ;
Column22.FontName = "Arial", ;
Column22.FontSize = 10, ;
Column22.Name = "Column23", ;
Column22.ReadOnly = .T., ;
Column22.Width = 105, ;
Column23.BackColor = 255,255,255, ;
Column23.ColumnOrder = 34, ;
Column23.ControlSource = "dataoras", ;
Column23.FontName = "Arial", ;
Column23.FontSize = 10, ;
Column23.Name = "Column24", ;
Column23.ReadOnly = .T., ;
Column23.Width = 108, ;
Column24.BackColor = 255,255,255, ;
Column24.ColumnOrder = 25, ;
Column24.ControlSource = "nresp", ;
Column24.FontName = "Arial", ;
Column24.FontSize = 10, ;
Column24.Name = "Column25", ;
Column24.ReadOnly = .T., ;
Column24.Width = 78, ;
Column25.BackColor = 255,255,255, ;
Column25.ColumnOrder = 26, ;
Column25.ControlSource = "dst_chlt", ;
Column25.FontName = "Arial", ;
Column25.FontSize = 10, ;
Column25.Name = "Column26", ;
Column25.ReadOnly = .T., ;
Column25.Width = 105, ;
Column26.BackColor = 255,255,255, ;
Column26.ColumnOrder = 14, ;
Column26.ControlSource = "nrord", ;
Column26.FontName = "Arial", ;
Column26.FontSize = 10, ;
Column26.Name = "Column27", ;
Column26.ReadOnly = .T., ;
Column26.Width = 106, ;
Column27.BackColor = 255,255,255, ;
Column27.ColumnOrder = 16, ;
Column27.ControlSource = "nnir", ;
Column27.FontName = "Arial", ;
Column27.FontSize = 10, ;
Column27.Name = "Column28", ;
Column27.ReadOnly = .T., ;
Column27.Width = 98, ;
Column28.BackColor = 255,255,255, ;
Column28.ColumnOrder = 27, ;
Column28.ControlSource = "sectie", ;
Column28.FontName = "Arial", ;
Column28.FontSize = 10, ;
Column28.Name = "Column29", ;
Column28.ReadOnly = .T., ;
Column28.Width = 76, ;
Column29.BackColor = 255,255,255, ;
Column29.ColumnOrder = 24, ;
Column29.ControlSource = "neimpozab", ;
Column29.FontName = "Arial", ;
Column29.FontSize = 10, ;
Column29.InputMask = (get_mask(12,gnPa)), ;
Column29.Name = "Column30", ;
Column29.ReadOnly = .T., ;
Column30.BackColor = 242,255,255, ;
Column30.ColumnOrder = 7, ;
Column30.ControlSource = "ascd", ;
Column30.DynamicBackColor = "rgb(242,255,255)", ;
Column30.FontName = "Arial", ;
Column30.FontSize = 10, ;
Column30.Format = "r", ;
Column30.InputMask = "xxxx", ;
Column30.Name = "Column31", ;
Column30.ReadOnly = .T., ;
Column30.Width = 50, ;
Column31.BackColor = 242,255,255, ;
Column31.ColumnOrder = 9, ;
Column31.ControlSource = "ascc", ;
Column31.DynamicBackColor = "rgb(242,255,255)", ;
Column31.FontName = "Arial", ;
Column31.FontSize = 10, ;
Column31.Format = "r", ;
Column31.InputMask = "xxxx", ;
Column31.Name = "Column32", ;
Column31.ReadOnly = .T., ;
Column31.Width = 48, ;
Column32.BackColor = 255,255,255, ;
Column32.ColumnOrder = 18, ;
Column32.ControlSource = "perechec", ;
Column32.FontName = "Arial", ;
Column32.FontSize = 10, ;
Column32.Name = "Column33", ;
Column32.ReadOnly = .T., ;
Column32.Width = 88, ;
Column33.BackColor = 255,255,255, ;
Column33.ColumnOrder = 30, ;
Column33.ControlSource = "sucursala", ;
Column33.FontName = "Arial", ;
Column33.FontSize = 10, ;
Column33.Name = "Column15", ;
Column33.ReadOnly = .T., ;
Column33.Width = 109, ;
Column34.BackColor = 255,255,255, ;
Column34.ColumnOrder = 15, ;
Column34.ControlSource = "contract", ;
Column34.FontName = "Arial", ;
Column34.FontSize = 10, ;
Column34.Name = "Column34", ;
Column34.ReadOnly = .T., ;
Column34.Width = 72, ;
Column35.BackColor = 255,255,255, ;
Column35.ControlSource = "explicatie_tva", ;
Column35.FontName = "Arial", ;
Column35.FontSize = 10, ;
Column35.Name = "Column35", ;
Column35.ReadOnly = .T., ;
Column35.Width = 164, ;
Column36.BackColor = 255,255,255, ;
Column36.ControlSource = "taxname", ;
Column36.FontName = "Arial", ;
Column36.FontSize = 10, ;
Column36.Name = "Column36", ;
Column36.ReadOnly = .T., ;
Column36.Width = 111, ;
Column37.BackColor = 255,255,255, ;
Column37.ControlSource = "paymentname", ;
Column37.FontName = "Arial", ;
Column37.FontSize = 10, ;
Column37.Name = "Column37", ;
Column37.ReadOnly = .T., ;
Column37.Width = 96
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "NrCrt", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia Credit", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia 3", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column12.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "COD", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column12.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.doc.platit", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia 4", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sucursala", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column15.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column16.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma 2", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column16.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column17.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma 3", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column17.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column18.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procent TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column18.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column19.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data scadenta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column19.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
Alignment = 2, ;
Caption = "Data Inreg.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header2"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column20.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia 5", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column20.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column21.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operator introducere", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column21.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column22.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data&ora introducerii", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column22.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column23.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operator stergere", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column23.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column24.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data&ora stergerii", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column24.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column25.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabili", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column25.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column26.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cheltuieli/Venituri", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column26.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column27.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lucrare/Comanda", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column27.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column28.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.NIR/Bon", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column28.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column29.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sectie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column29.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
Alignment = 2, ;
Caption = "Fel Doc.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header3"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column30.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Neimpozabil", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column30.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column31.Header1' AS header WITH ;
Caption = "Analit.D", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column31.Text1' AS textbox WITH ;
BackColor = 242,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column32.Header1' AS header WITH ;
Caption = "Analit.C", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column32.Text1' AS textbox WITH ;
BackColor = 242,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column33.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.doc.incasat", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column33.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column34.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Contract", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column34.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column35.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column35.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column36.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Taxa SAFT", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column36.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column37.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod plata SAFT", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column37.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
Alignment = 2, ;
Caption = "Data Act", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header4"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.Doc.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header5"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia Debit", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header6"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderColor = 0,0,0, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ;
Alignment = 2, ;
Caption = "Cont Deb.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header7"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .F., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,128, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ;
Alignment = 2, ;
Caption = "Cont Cred.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header8"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .F., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column9.Header9' AS header WITH ;
Alignment = 2, ;
Caption = "Suma", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header9"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .F., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Precedent1' AS precedent WITH ;
Left = 761, ;
Name = "Precedent1", ;
Top = 2, ;
Visible = .F., ;
IMBUTON1.Height = 27, ;
IMBUTON1.Name = "IMBUTON1", ;
IMBUTON1.Width = 30, ;
COMMAND1.Name = "COMMAND1"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
PROCEDURE aleg_ascc
*!* LOCAL cc,acc
*!* m.den=''
*!* SELECT actactan
*!* cc=scC
*!* acc=ascc
*!* SELECT cont+'.'+acont+' - '+denumire as den FROM plcontana WHERE ALLTRIM(cont)=ALLTRIM(cc) INTO CURSOR ceva ORDER BY acont
*!* SELECT ceva
*!* IF _tally=0
*!* * DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul '+cc
*!* IF USED('CEVA')
*!* USE IN ceva
*!* ENDIF
*!* SELECT actactan
*!* RETURN
*!* ENDIF
*!* SELECT ceva
*!* DO caut_alfa_cursor WITH 'ceva','den','Alegeti simbolul analitic','m.den'
*!* SELECT actactan
*!* REPLACE ascC WITH SUBSTR(m.den,6,4)
*!* IF USED('CEVA')
*!* USE IN ceva
*!* ENDIF
*!* SELECT actactan
*!* thisform.grid1.refresh
ENDPROC
PROCEDURE aleg_ascd
*!* LOCAL cc
*!* m.den=''
*!* SELECT actactan
*!* cc=scd
*!* SELECT cont+'.'+acont+' - '+denumire as den FROM plcontana WHERE cont=cc INTO CURSOR ceva ORDER BY acont
*!* IF _tally=0
*!* *DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul '+cc
*!* IF USED('CEVA')
*!* USE IN ceva
*!* ENDIF
*!* SELECT actactan
*!* RETURN
*!* endif
*!* DO caut_alfa_cursor WITH 'ceva','den','Alegeti simbolul analitic','m.den'
*!* SELECT actactan
*!* REPLACE ascd WITH SUBSTR(m.den,6,4)
*!* IF USED('CEVA')
*!* USE IN ceva
*!* ENDIF
*!* SELECT actactan
*!* thisform.grid1.refresh
ENDPROC
PROCEDURE Init
Local lnFormHeight, lnGridHeight
lnGridHeight = RECCOUNT('actactan') * this.griD1.RowHeight + this.grid1.HeaderHeight
lnFormHeight = m.lnGridHeight + this.shape1.Height
this.Height = MAX(400, MIN(m.lnFormHeight, INT(_screen.Height*0.7)))
this.Width = INT(_screen.Width*0.7)
this.AutoCenter = .T.
this.grID1.column36.Visible = m.gl406 && taxa saft
this.grID1.column37.Visible = m.gl406 && cod plata saft
Do nrord With 'actactan'
Select actactan
Go Top
ENDPROC
PROCEDURE verif_ascc
*!* LOCAL lc_d,acC
*!* m.den=''
*!* ll_l=.f.
*!* SELECT actactan
*!* lc_C=scC
*!* acC=ascC
*!* SELECT cont+'.'+acont+' - '+denumire as den,cont,acont FROM plcontana ;
*!* WHERE ALLTRIM(cont)=ALLTRIM(lc_C) ;
*!* INTO CURSOR tceva ORDER BY acont
*!* SELECT tceva
*!* IF _tally=0
*!* IF !EMPTY(acC)
*!* DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul '+lc_C
*!* ll_l=.t.
*!* ENDIF
*!*
*!* IF USED('TCEVA')
*!* USE IN Tceva
*!* ENDIF
*!* SELECT actactan
*!* THIS.grid1.Setfocus
*!* RETURN ll_l
*!* ELSE
*!* IF !PlClick
*!* IF EMPTY(acc)
*!* SELECT actactan
*!* IF FLOCK()
*!* REPLACE ascc WITH '0000'
*!* ENDIF
*!* IF USED('TCEVA')
*!* USE IN Tceva
*!* ENDIF
*!* SELECT actactan
*!* THIS.grid1.SetFocus
*!* RETURN ll_l
*!* ENDIF
*!* ENDIF
*!* ENDIF
*!* SELECT tceva
*!* IF PlClick
*!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
*!* SELECT actactan
*!* REPLACE ascC WITH SUBSTR(m.den,6,4)
*!* ELSE
*!* LOCATE FOR ALLTRIM(cont)=ALLTRIM(lc_C) AND ALLTRIM(acont)=ALLTRIM(acC)
*!* IF !FOUND()
*!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
*!* SELECT actactan
*!* REPLACE ascC WITH SUBSTR(m.den,6,4)
*!* ENDIF
*!* ENDIF
*!* IF USED('TCEVA')
*!* USE IN Tceva
*!* ENDIF
*!* SELECT actactan
*!* this.grid1.Refresh
*!* RETURN ll_l
ENDPROC
PROCEDURE verif_ascd
*!* LOCAL lc_d,acd
*!* m.den=''
*!* ll_l=.f.
*!* SELECT actactan
*!* lc_d=scd
*!* acd=ascd
*!* SELECT cont+'.'+acont+' - '+denumire as den,cont,acont FROM plcontana ;
*!* WHERE ALLTRIM(cont)=ALLTRIM(lc_d) ;
*!* INTO CURSOR tceva ORDER BY acont
*!* SELECT tceva
*!* IF _tally=0
*!* IF !EMPTY(acd)
*!* DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul '+lc_d
*!* ll_l=.t.
*!* ENDIF
*!*
*!* IF USED('TCEVA')
*!* USE IN Tceva
*!* ENDIF
*!* SELECT actactan
*!* THIS.Grid1.SetFocus
*!* RETURN ll_l
*!* ELSE
*!* IF !PlClick
*!* IF empty(acd)
*!* SELECT actactan
*!* IF FLOCK()
*!* REPLACE ascd WITH '0000'
*!* ENDIF
*!* IF USED('TCEVA')
*!* USE IN Tceva
*!* ENDIF
*!* SELECT actactan
*!* THIS.Grid1.SetFocus
*!* RETURN ll_l
*!* ENDIF
*!* ENDIF
*!* ENDIF
*!* SELECT tceva
*!* IF PlClick
*!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
*!* SELECT actactan
*!* REPLACE ascd WITH SUBSTR(m.den,6,4)
*!* ELSE
*!* LOCATE FOR ALLTRIM(cont)=ALLTRIM(lc_d) AND ALLTRIM(acont)=ALLTRIM(acd)
*!* IF !FOUND()
*!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
*!* SELECT actactan
*!* REPLACE ascd WITH SUBSTR(m.den,6,4)
*!* ENDIF
*!* ENDIF
*!* IF USED('TCEVA')
*!* USE IN Tceva
*!* ENDIF
*!* SELECT actactan
*!* THIS.Grid1.Refresh
*!* RETURN ll_l
ENDPROC
PROCEDURE Grid1.Column1.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column1.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column10.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column10.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column11.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column11.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column12.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column12.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column2.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column2.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column3.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column3.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column31.Text1.Click
*!* *thisform.ALEG_ASCD()
*!* this.LostFocus(.t.)
ENDPROC
PROCEDURE Grid1.Column31.Text1.LostFocus
*!* PARAMETERS PlClick
*!* ll_l=thisform.verif_ASCD()
*!* IF ll_l
*!* REPLACE ACTACTAN.ASCD WITH ''
*!* RETURN 0
*!* ENDIF
*!* THIS.Parent.Parent.Refresh
*ENDIF
ENDPROC
PROCEDURE Grid1.Column32.Text1.Click
*!* *thisform.ALEG_ASCC()
*!* this.LostFocus(.t.)
ENDPROC
PROCEDURE Grid1.Column32.Text1.LostFocus
*!* PARAMETERS PlClick
*!* *IF !EMPTY(ascc)
*!* ll_l=thisform.verif_ASCC()
*!* IF ll_l
*!* REPLACE ACTACTAN.ASCC WITH ''
*!* RETURN 0
*!* ENDIF
*!* THIS.Parent.Parent.Refresh
*!* *ENDIF
ENDPROC
PROCEDURE Grid1.Column4.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column4.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column5.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column5.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column6.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column6.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column7.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column7.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column8.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column8.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column9.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column9.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Precedent1.COMMAND1.Click
BUTON=3
THISFORM.Release
ENDPROC
ENDDEFINE
DEFINE CLASS vizpage AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="BANDA21" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgcod" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column4.Header4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column5.Header5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column6.Header6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column8.Header8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column12.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column12.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column13.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column13.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column16.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column16.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column17.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column17.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column18.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column18.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column19.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column19.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column20.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column20.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column21.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column21.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column22.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column22.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text13" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text15" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text18" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text19" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text20" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text21" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text22" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text23" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text24" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text25" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text26" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text27" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label18" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label23" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label24" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label26" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label27" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BANDABLOC1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BANDABLOC1.BLOCBUTON1.Terminat1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text28" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label28" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BLOCBUTON1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BLOCBUTON1.Nu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BLOCBUTON1.Da1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text29" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label29" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Tpreta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Tpretv" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lpreta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lpretv" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: setcaption
*m: updatelist
*</DefinedPropArrayMethod>
*<PropValue>
AutoCenter = .T.
BackColor = 255,255,255
BorderStyle = 1
Caption = "Form1"
DoCreate = .T.
FontName = "Comic Sans MS"
Height = 377
Name = "vizpage"
TitleBar = 0
Width = 682
WindowType = 1
*</PropValue>
ADD OBJECT 'BANDA21' AS banda2 WITH ;
Height = 34, ;
Left = 0, ;
Name = "BANDA21", ;
Top = 0, ;
Visible = .F., ;
Width = 683
*< END OBJECT: ClassLib="baza.vcx" BaseClass="shape" />
ADD OBJECT 'BANDABLOC1' AS bandabloc WITH ;
Left = 0, ;
Name = "BANDABLOC1", ;
TabIndex = 60, ;
Top = 0, ;
BANDA21.Name = "BANDA21", ;
BLOCBUTON1.Name = "BLOCBUTON1"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'BANDABLOC1.BLOCBUTON1.Terminat1' AS terminat WITH ;
Left = 88, ;
Name = "Terminat1", ;
Top = 2, ;
Imbuton1.Height = 27, ;
Imbuton1.Name = "Imbuton1", ;
Imbuton1.Width = 30, ;
Command1.Name = "Command1"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'BLOCBUTON1' AS blocbuton WITH ;
Height = 35, ;
Left = 574, ;
Name = "BLOCBUTON1", ;
Top = -1, ;
Visible = .F., ;
Width = 110
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'BLOCBUTON1.Da1' AS da WITH ;
Left = 54, ;
Name = "Da1", ;
Top = 3, ;
IMBUTON1.Height = 27, ;
IMBUTON1.Name = "IMBUTON1", ;
IMBUTON1.Width = 51, ;
COMMAND1.Name = "COMMAND1"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'BLOCBUTON1.Nu1' AS nu WITH ;
Left = 4, ;
Name = "Nu1", ;
Top = 3, ;
IMBUTON1.Height = 27, ;
IMBUTON1.Name = "IMBUTON1", ;
IMBUTON1.Width = 51, ;
COMMAND1.Name = "COMMAND1"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Grid1' AS grid WITH ;
BackColor = 255,255,255, ;
ColumnCount = 21, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
GridLineColor = 128,128,128, ;
Height = 241, ;
Left = 17, ;
Name = "Grid1", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "rull", ;
RowHeight = 19, ;
TabIndex = 28, ;
Top = 106, ;
Width = 645, ;
ZOrderSet = 6, ;
Column1.Alignment = 0, ;
Column1.BackColor = 255,255,255, ;
Column1.ColumnOrder = 4, ;
Column1.ControlSource = "um", ;
Column1.FontName = "Arial Narrow", ;
Column1.FontSize = 9, ;
Column1.Name = "Column2", ;
Column1.ReadOnly = .T., ;
Column1.Width = 39, ;
Column2.Alignment = 1, ;
Column2.BackColor = 255,255,255, ;
Column2.ColumnOrder = 5, ;
Column2.ControlSource = "pret", ;
Column2.DynamicForeColor = "IIF(PRET>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column2.FontName = "Arial Narrow", ;
Column2.FontSize = 9, ;
Column2.Format = "r", ;
Column2.InputMask = "99 999 999 999 999.99", ;
Column2.Name = "Column3", ;
Column2.ReadOnly = .T., ;
Column2.Width = 66, ;
Column3.Alignment = 0, ;
Column3.BackColor = 255,255,255, ;
Column3.ColumnOrder = 3, ;
Column3.ControlSource = "denumire", ;
Column3.FontName = "Arial Narrow", ;
Column3.FontSize = 9, ;
Column3.Format = "", ;
Column3.InputMask = "", ;
Column3.Name = "Column4", ;
Column3.ReadOnly = .T., ;
Column3.Width = 124, ;
Column4.Alignment = 1, ;
Column4.BackColor = 255,255,255, ;
Column4.ColumnOrder = 6, ;
Column4.ControlSource = "cant", ;
Column4.DynamicForeColor = "IIF(CANT>=0, RGB(0,0,0), RGB(0,0,255))", ;
Column4.FontName = "Arial Narrow", ;
Column4.FontSize = 9, ;
Column4.Format = "r", ;
Column4.InputMask = "999 999.999", ;
Column4.Name = "Column5", ;
Column4.ReadOnly = .T., ;
Column4.Width = 69, ;
Column5.Alignment = 1, ;
Column5.BackColor = 255,255,255, ;
Column5.ColumnOrder = 7, ;
Column5.ControlSource = "cante", ;
Column5.DynamicForeColor = "IIF(CANTE>=0, RGB(0,0,0), RGB(0,0,255))", ;
Column5.FontName = "Arial Narrow", ;
Column5.FontSize = 9, ;
Column5.Format = "r", ;
Column5.InputMask = "999 999.999", ;
Column5.Name = "Column6", ;
Column5.ReadOnly = .T., ;
Column5.Width = 67, ;
Column6.Alignment = 1, ;
Column6.BackColor = 255,255,255, ;
Column6.ColumnOrder = 9, ;
Column6.ControlSource = "gest", ;
Column6.FontName = "Arial Narrow", ;
Column6.FontSize = 9, ;
Column6.Format = "", ;
Column6.InputMask = "", ;
Column6.Name = "Column8", ;
Column6.ReadOnly = .T., ;
Column6.Width = 43, ;
Column7.BackColor = 255,255,255, ;
Column7.ColumnOrder = 8, ;
Column7.ControlSource = "scd", ;
Column7.FontName = "Arial Narrow", ;
Column7.FontSize = 9, ;
Column7.Name = "Column7", ;
Column7.ReadOnly = .T., ;
Column7.Width = 46, ;
Column8.BackColor = 255,255,255, ;
Column8.ColumnOrder = 14, ;
Column8.ControlSource = "pretv", ;
Column8.FontName = "Arial Narrow", ;
Column8.FontSize = 9, ;
Column8.Format = "r", ;
Column8.InputMask = "99 999 999 999 999", ;
Column8.Name = "Column9", ;
Column8.ReadOnly = .T., ;
Column8.Visible = .T., ;
Column8.Width = 75, ;
Column9.BackColor = 255,255,255, ;
Column9.ColumnOrder = 15, ;
Column9.ControlSource = "tva", ;
Column9.FontName = "Arial Narrow", ;
Column9.FontSize = 9, ;
Column9.Format = "r", ;
Column9.InputMask = "999 999 999 999", ;
Column9.Name = "Column10", ;
Column9.ReadOnly = .T., ;
Column9.Visible = .T., ;
Column9.Width = 75, ;
Column10.BackColor = 255,255,255, ;
Column10.ColumnOrder = 16, ;
Column10.ControlSource = "tvav", ;
Column10.FontName = "Arial Narrow", ;
Column10.FontSize = 9, ;
Column10.Format = "r", ;
Column10.InputMask = "999 999 999 999", ;
Column10.Name = "Column11", ;
Column10.ReadOnly = .T., ;
Column10.Visible = .T., ;
Column10.Width = 75, ;
Column11.BackColor = 255,255,255, ;
Column11.ColumnOrder = 17, ;
Column11.ControlSource = "(cant+cante)*(pret+tva)", ;
Column11.FontName = "Arial Narrow", ;
Column11.FontSize = 9, ;
Column11.Format = "r", ;
Column11.InputMask = "99 999 999 999 999", ;
Column11.Name = "Column12", ;
Column11.ReadOnly = .T., ;
Column11.Visible = .T., ;
Column11.Width = 75, ;
Column12.BackColor = 255,255,255, ;
Column12.ColumnOrder = 18, ;
Column12.ControlSource = "(cant+cante)*(pretv+tvav)", ;
Column12.FontName = "Arial Narrow", ;
Column12.FontSize = 9, ;
Column12.Format = "r", ;
Column12.InputMask = "99 999 999 999 999", ;
Column12.Name = "Column13", ;
Column12.ReadOnly = .T., ;
Column12.Visible = .T., ;
Column12.Width = 75, ;
Column13.BackColor = 255,255,255, ;
Column13.ColumnOrder = 10, ;
Column13.ControlSource = "curs", ;
Column13.FontName = "Arial Narrow", ;
Column13.FontSize = 9, ;
Column13.Format = "r", ;
Column13.InputMask = "9 999 999 999", ;
Column13.Name = "Column14", ;
Column13.ReadOnly = .T., ;
Column13.Width = 54, ;
Column14.BackColor = 255,255,255, ;
Column14.ColumnOrder = 12, ;
Column14.ControlSource = "procent", ;
Column14.FontName = "Arial Narrow", ;
Column14.FontSize = 9, ;
Column14.Format = "r", ;
Column14.InputMask = "999.99", ;
Column14.Name = "Column15", ;
Column14.ReadOnly = .T., ;
Column14.Width = 51, ;
Column15.BackColor = 255,255,255, ;
Column15.ColumnOrder = 13, ;
Column15.ControlSource = "adaos", ;
Column15.FontName = "Arial Narrow", ;
Column15.FontSize = 9, ;
Column15.Format = "r", ;
Column15.InputMask = "9 999 999 999", ;
Column15.Name = "Column16", ;
Column15.ReadOnly = .T., ;
Column15.Width = 56, ;
Column16.BackColor = 255,255,255, ;
Column16.ColumnOrder = 11, ;
Column16.ControlSource = "pretd", ;
Column16.FontName = "Arial Narrow", ;
Column16.FontSize = 9, ;
Column16.Format = "r", ;
Column16.InputMask = "9 999 999.99", ;
Column16.Name = "Column17", ;
Column16.ReadOnly = .T., ;
Column16.Width = 63, ;
Column17.BackColor = 255,255,255, ;
Column17.ColumnOrder = 2, ;
Column17.ControlSource = "codmat", ;
Column17.FontName = "Arial Narrow", ;
Column17.FontSize = 9, ;
Column17.Name = "Column18", ;
Column17.ReadOnly = .F., ;
Column17.Width = 63, ;
Column18.BackColor = 255,255,255, ;
Column18.ColumnOrder = 19, ;
Column18.ControlSource = "util", ;
Column18.FontName = "Arial Narrow", ;
Column18.FontSize = 9, ;
Column18.Name = "Column19", ;
Column18.ReadOnly = .T., ;
Column18.Width = 95, ;
Column19.BackColor = 255,255,255, ;
Column19.ColumnOrder = 20, ;
Column19.ControlSource = "dataora", ;
Column19.FontName = "Arial Narrow", ;
Column19.FontSize = 9, ;
Column19.Name = "Column20", ;
Column19.ReadOnly = .T., ;
Column19.Width = 94, ;
Column20.BackColor = 255,255,255, ;
Column20.ColumnOrder = 1, ;
Column20.ControlSource = "nnir", ;
Column20.FontName = "Arial Narrow", ;
Column20.FontSize = 9, ;
Column20.Name = "Column21", ;
Column20.ReadOnly = .T., ;
Column20.Width = 55, ;
Column21.BackColor = 255,255,255, ;
Column21.ColumnOrder = 21, ;
Column21.ControlSource = "sectie", ;
Column21.FontName = "Arial Narrow", ;
Column21.FontSize = 9, ;
Column21.Name = "Column22", ;
Column21.ReadOnly = .T., ;
Column21.Width = 75
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA achiz.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA vanz.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column12.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare achiz.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column12.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare vanz.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Curs valutar", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procent", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column15.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 'Grid1.Column16.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Adaos", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column16.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 'Grid1.Column17.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret in valuta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column17.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 'Grid1.Column18.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod material", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column18.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 'Grid1.Column19.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operator introducere", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column19.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 'Grid1.Column2.Header2' AS header WITH ;
Alignment = 2, ;
Caption = "UM", ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
Name = "Header2"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column20.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data&ora introducerii", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column20.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 'Grid1.Column21.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. NIR/Bon", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.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 'Grid1.Column22.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sectie", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column22.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 'Grid1.Column3.Header3' AS header WITH ;
Alignment = 2, ;
Caption = "Pret achizitie", ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
Name = "Header3"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
Name = "Header4"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
Alignment = 2, ;
Caption = "Intrari", ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
Name = "Header5"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
Alignment = 2, ;
BackColor = 212,208,200, ;
Caption = "Iesiri", ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
Name = "Header6"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderColor = 0,0,0, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont Deb.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column7.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 'Grid1.Column8.Header8' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiunea", ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
Name = "Header8"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret vanz.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
Caption = "Fel document", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 24, ;
Name = "Label1", ;
TabIndex = 33, ;
Top = 114, ;
Width = 65
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label10' AS label WITH ;
AutoSize = .T., ;
Caption = "Suma", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 233, ;
Name = "Label10", ;
TabIndex = 41, ;
Top = 114, ;
Width = 29
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label11' AS label WITH ;
AutoSize = .T., ;
Caption = "Lucrarea", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 450, ;
Name = "Label11", ;
TabIndex = 42, ;
Top = 193, ;
Width = 45
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label12' AS label WITH ;
AutoSize = .T., ;
Caption = "Nr doc.platit", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 450, ;
Name = "Label12", ;
TabIndex = 43, ;
Top = 114, ;
Width = 57
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label13' AS label WITH ;
AutoSize = .T., ;
Caption = "Data scadenta", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 233, ;
Name = "Label13", ;
TabIndex = 44, ;
Top = 220, ;
Width = 69
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label14' AS label WITH ;
AutoSize = .T., ;
Caption = "NIR / Bon", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 450, ;
Name = "Label14", ;
TabIndex = 45, ;
Top = 166, ;
Width = 49
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label15' AS label WITH ;
AutoSize = .T., ;
Caption = "Responsabil", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 233, ;
Name = "Label15", ;
TabIndex = 46, ;
Top = 246, ;
Width = 60
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label16' AS label WITH ;
AutoSize = .T., ;
Caption = "Cheltuiala/Venit", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 233, ;
Name = "Label16", ;
TabIndex = 47, ;
Top = 273, ;
Width = 74
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label17' AS label WITH ;
AutoSize = .T., ;
Caption = "Explicatia4", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 233, ;
Name = "Label17", ;
TabIndex = 48, ;
Top = 299, ;
Width = 52
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label18' AS label WITH ;
AutoSize = .T., ;
Caption = "Explicatia5", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 233, ;
Name = "Label18", ;
TabIndex = 49, ;
Top = 324, ;
Width = 52
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label19' AS label WITH ;
AutoSize = .T., ;
Caption = "Explicatia6", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 450, ;
Name = "Label19", ;
TabIndex = 50, ;
Top = 220, ;
Width = 52
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
Caption = "Data inregistrarii", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 24, ;
Name = "Label2", ;
TabIndex = 32, ;
Top = 140, ;
Width = 78
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label20' AS label WITH ;
AutoSize = .T., ;
Caption = "Suma in valuta", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 233, ;
Name = "Label20", ;
TabIndex = 51, ;
Top = 166, ;
Width = 71
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label21' AS label WITH ;
AutoSize = .T., ;
Caption = "Curs valutar", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 233, ;
Name = "Label21", ;
TabIndex = 52, ;
Top = 193, ;
Width = 60
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label22' AS label WITH ;
AutoSize = .T., ;
Caption = "Neimpozabil", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 233, ;
Name = "Label22", ;
TabIndex = 53, ;
Top = 140, ;
Width = 59
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label23' AS label WITH ;
AutoSize = .T., ;
Caption = "Sectie", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 450, ;
Name = "Label23", ;
TabIndex = 54, ;
Top = 246, ;
Width = 30
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label24' AS label WITH ;
AutoSize = .T., ;
Caption = "Cod fiscal", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 450, ;
Name = "Label24", ;
TabIndex = 56, ;
Top = 273, ;
Width = 47
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label25' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Cod", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 12, ;
Name = "Label25", ;
TabIndex = 57, ;
Top = 39, ;
Width = 22
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label26' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Operator introducere", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 121, ;
Name = "Label26", ;
TabIndex = 58, ;
Top = 38, ;
Width = 100
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label27' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data/ora introducerii", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 346, ;
Name = "Label27", ;
TabIndex = 59, ;
Top = 38, ;
Width = 97
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label28' AS label WITH ;
AutoSize = .T., ;
Caption = "Nr doc.incasat", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 450, ;
Name = "Label28", ;
TabIndex = 55, ;
Top = 140, ;
Width = 69
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label29' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Tip op.", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 568, ;
Name = "Label29", ;
TabIndex = 57, ;
Top = 39, ;
Width = 35
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
Caption = "Data actului ", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 24, ;
Name = "Label3", ;
TabIndex = 34, ;
Top = 166, ;
Width = 59
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .T., ;
Caption = "Nr document", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 24, ;
Name = "Label4", ;
TabIndex = 35, ;
Top = 193, ;
Width = 62
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
AutoSize = .T., ;
Caption = "Explicatia1", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 24, ;
Name = "Label5", ;
TabIndex = 36, ;
Top = 220, ;
Width = 52
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
AutoSize = .T., ;
Caption = "Explicatia2", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 24, ;
Name = "Label6", ;
TabIndex = 37, ;
Top = 246, ;
Width = 52
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label7' AS label WITH ;
AutoSize = .T., ;
Caption = "Explicatia3", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 24, ;
Name = "Label7", ;
TabIndex = 38, ;
Top = 273, ;
Width = 52
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label8' AS label WITH ;
AutoSize = .T., ;
Caption = "Analitic debitor", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 24, ;
Name = "Label8", ;
TabIndex = 39, ;
Top = 299, ;
Width = 69
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
AutoSize = .T., ;
Caption = "Analitic creditor", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 24, ;
Name = "Label9", ;
TabIndex = 40, ;
Top = 324, ;
Width = 72
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Lpreta' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total Achizitie", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 129, ;
Name = "Lpreta", ;
TabIndex = 58, ;
Top = 67, ;
Visible = .F., ;
Width = 65
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Lpretv' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Toatal Vanzare", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 18, ;
Left = 354, ;
Name = "Lpretv", ;
TabIndex = 59, ;
Top = 67, ;
Visible = .F., ;
Width = 74
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'pgcod' AS pageframe WITH ;
ActivePage = 1, ;
ErasePage = .T., ;
Height = 302, ;
Left = 7, ;
Name = "pgcod", ;
PageCount = 3, ;
TabIndex = 1, ;
Tabs = .T., ;
TabStretch = 1, ;
TabStyle = 1, ;
Top = 62, ;
Width = 666, ;
Page1.Caption = "", ;
Page1.Name = "page1", ;
Page1.PageOrder = 1, ;
Page2.Caption = "", ;
Page2.Name = "page2", ;
Page2.PageOrder = 2, ;
Page3.Caption = "", ;
Page3.FontName = "MS Sans Serif", ;
Page3.Name = "page3", ;
Page3.PageOrder = 3
*< END OBJECT: BaseClass="pageframe" />
ADD OBJECT 'Shape1' AS shape WITH ;
Height = 252, ;
Left = 13, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 101, ;
Width = 653
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Text1' AS textbox WITH ;
ControlSource = "camp.fdoc", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 104, ;
Name = "Text1", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 2, ;
Top = 112, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text10' AS textbox WITH ;
ControlSource = "camp.suma", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
InputMask = "99 999 999 999 999", ;
Left = 309, ;
Name = "Text10", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 11, ;
Top = 112, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text11' AS textbox WITH ;
ControlSource = "camp.nrord", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 525, ;
Name = "Text11", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 12, ;
Top = 191, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text12' AS textbox WITH ;
ControlSource = "camp.pereche", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 525, ;
Name = "Text12", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 13, ;
Top = 112, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text13' AS textbox WITH ;
ControlSource = "camp.datascad", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 309, ;
Name = "Text13", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 14, ;
Top = 218, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text14' AS textbox WITH ;
ControlSource = "camp.nnir", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 525, ;
Name = "Text14", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 15, ;
Top = 164, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text15' AS textbox WITH ;
ControlSource = "camp.nresp", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 309, ;
Name = "Text15", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 16, ;
Top = 244, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text16' AS textbox WITH ;
ControlSource = "camp.dst_chlt", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 309, ;
Name = "Text16", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 17, ;
Top = 270, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text17' AS textbox WITH ;
ControlSource = "camp.nume_3", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 309, ;
Name = "Text17", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 18, ;
Top = 297, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text18' AS textbox WITH ;
ControlSource = "camp.nume_4", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 309, ;
Name = "Text18", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 19, ;
Top = 323, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text19' AS textbox WITH ;
ControlSource = "camp.nume_5", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 525, ;
Name = "Text19", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 23, ;
Top = 218, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text2' AS textbox WITH ;
ControlSource = "camp.dataireg", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 104, ;
Name = "Text2", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 3, ;
Top = 138, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text20' AS textbox WITH ;
ControlSource = "camp.suma_2", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
InputMask = "999 999 999 999.99", ;
Left = 309, ;
Name = "Text20", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 21, ;
Top = 164, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text21' AS textbox WITH ;
ControlSource = "camp.suma_3", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
InputMask = "99 999 999 999 999", ;
Left = 309, ;
Name = "Text21", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 22, ;
Top = 191, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text22' AS textbox WITH ;
ControlSource = "camp.neimpozab", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
InputMask = "99 999 999 999 999", ;
Left = 309, ;
Name = "Text22", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 20, ;
Top = 138, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text23' AS textbox WITH ;
ControlSource = "camp.sectie", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 525, ;
Name = "Text23", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 24, ;
Top = 244, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text24' AS textbox WITH ;
ControlSource = "camp.cod_fiscal", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 525, ;
Name = "Text24", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 25, ;
Top = 270, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text25' AS textbox WITH ;
ControlSource = "camp.cod", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 36, ;
Name = "Text25", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 29, ;
Top = 36, ;
Width = 75
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text26' AS textbox WITH ;
ControlSource = "camp.util", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 222, ;
Name = "Text26", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 30, ;
Top = 36, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text27' AS textbox WITH ;
ControlSource = "camp.dataora", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 447, ;
Name = "Text27", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 31, ;
Top = 36, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text28' AS textbox WITH ;
ControlSource = "camp.pereche2", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 525, ;
Name = "Text28", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 26, ;
Top = 138, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text29' AS textbox WITH ;
ControlSource = "camp.id_set", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 602, ;
Name = "Text29", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 29, ;
Top = 36, ;
Width = 75
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text3' AS textbox WITH ;
ControlSource = "camp.dataact", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 104, ;
Name = "Text3", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 4, ;
Top = 164, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text4' AS textbox WITH ;
ControlSource = "camp.nract", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 104, ;
Name = "Text4", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 5, ;
Top = 191, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text5' AS textbox WITH ;
ControlSource = "camp.nume", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 104, ;
Name = "Text5", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 6, ;
Top = 218, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text6' AS textbox WITH ;
ControlSource = "camp.nume_2", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 104, ;
Name = "Text6", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 7, ;
Top = 244, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text7' AS textbox WITH ;
ControlSource = "camp.explicatia", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 104, ;
Name = "Text7", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 8, ;
Top = 270, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text8' AS textbox WITH ;
ControlSource = "camp.ascd", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 104, ;
Name = "Text8", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 9, ;
Top = 297, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text9' AS textbox WITH ;
ControlSource = "camp.ascc", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 104, ;
Name = "Text9", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 10, ;
Top = 323, ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
Caption = "Detalii inregistrari", ;
Height = 37, ;
Left = 12, ;
Name = "Titlufrumos1", ;
TabIndex = 27, ;
Top = 0, ;
Width = 252
*< END OBJECT: ClassLib="baza.vcx" BaseClass="label" />
ADD OBJECT 'Tpreta' AS textbox WITH ;
ControlSource = "pnPretA", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 197, ;
Name = "Tpreta", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 30, ;
Top = 65, ;
Visible = .F., ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Tpretv' AS textbox WITH ;
ControlSource = "pnPretV", ;
DisabledBackColor = 255,255,255, ;
FontName = "Arial Narrow", ;
Height = 23, ;
Left = 428, ;
Name = "Tpretv", ;
ReadOnly = .T., ;
SpecialEffect = 2, ;
TabIndex = 31, ;
Top = 65, ;
Visible = .F., ;
Width = 115
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Init
THISFORM.LockScreen = .T.
*WAIT WINDOW 'INIT'
SELECT rull
LOCATE FOR cod=m.cod
IF FOUND()
THISFORM.pgcod.PageCount = n+1
THISFORM.pgcod.Pages(n+1).Caption = 'Gestiuni'
ELSE
THISFORM.pgcod.PageCount = n
ENDIF
*Call a method to update the captions on all the tabs
THISFORM.SetCaption
*Call a method to update the list to display the proper values
FOR i=1 TO thisform.pgcod.pagecount
thisform.pgcod.Pages(i).fontname='Comic Sans MS' &&'Arial Narrow'
thisform.pgcod.Pages(i).forecolor=8404992
*thisform.pgcod.Pages(i).fontbold=.t.
*thisform.pgcod.Pages(i).fontsize=10
ENDFOR
SELECT aaa
LOCATE FOR scd=m.scd AND scc=m.scc AND nume_2=m.nume_2
n=RECNO()
thisform.pgcod.ActivePage=n
this.grid1.Visible=.f.
this.grid1.ZOrder(1)
THISFORM.UpdateList
THISFORM.LockScreen = .F.
ENDPROC
PROCEDURE setcaption
*!* THISFORM.LockScreen = .T.
*!* FOR i = 1 to THISFORM.pgcod.PageCount
*!* FirstLetter = SUBSTR(THISFORM.Alphabet,((n - 1)*ROUND(LEN(THISFORM.Alphabet)/THISFORM.pgfRolodex.PageCount,0))+1,1)
*!* IF n = THISFORM.pgfRolodex.PageCount &&last page
*!* LastLetter = right(THISFORM.Alphabet,1)
*!* ELSE
*!* LastLetter = SUBSTR(THISFORM.Alphabet,((n)*ROUND(LEN(THISFORM.Alphabet)/THISFORM.pgfRolodex.PageCount,0)),1)
*!* ENDIF
*!* THISFORM.pgfRolodex.Pages(n).Caption = FirstLetter + "-" + LastLetter
*!* ENDFOR
*!* THISFORM.LockScreen = .F.
FOR i = 1 to n &&THISFORM.pgcod.PageCount
SELECT aaa
GO i
SCATTER FIELDS scd,scc NAME lloc
THISFORM.pgcod.Pages(i).Caption = lloc.scd + "-" + lloc.scc
ENDFOR
RELEASE lloc
ENDPROC
PROCEDURE Show
LPARAMETERS nStyle
*WAIT WINDOW 'SHOW'
thisform.bandablOC1.asezare
ENDPROC
PROCEDURE updatelist
If !This.pgcod.Pages(N).Caption='Gestiuni'
this.grid1.ZOrder(1)
Select aaa
Go N
Scatter Name camp
For i=1 To Thisform.pgcod.PageCount
Thisform.pgcod.Pages(i).ForeColor=Iif(i=N,Rgb(0,0,255),Rgb(0,64,128))
ENDFOR
this.tpreta.Visible = .F.
this.tpretv.Visible = .F.
this.lpreta.Visible = .F.
this.lpretv.Visible = .F.
ELSE
This.pgcod.ActivePage=n
For i=1 To Thisform.pgcod.PageCount
Thisform.pgcod.Pages(i).ForeColor=Iif(i=N,Rgb(0,0,255),Rgb(0,64,128))
ENDFOR
this.grid1.Visible=.t.
Thisform.Refresh
Select rull
Set Filter To cod=m.cod
this.grid1.zorder(0)
Select rull
SUM (cant -cante) * pret TO pnPretA
SUM (cant -cante) * pretv TO pnPretV
GO TOP
pnPretA = ABS(pnPretA)
pnPretV = ABS(pnPretV)
this.tpreta.Visible = .t.
this.tpretv.Visible = .t.
this.lpreta.Visible = .T.
this.lpretv.Visible = .T.
*!* Do Form gestiuni
*!* This.pgcod.ActivePage=1
*!* SELECT aaa
*!* GO top
*!* SCATTER NAME camp
*!* For i=1 To Thisform.pgcod.PageCount
*!* Thisform.pgcod.Pages(i).ForeColor=Iif(i=1,Rgb(0,0,255),Rgb(0,64,128))
*!* Endfor
Endif
Thisform.Refresh
ENDPROC
PROCEDURE Grid1.AfterRowColChange
LPARAMETERS nColIndex
sele rull
scat FIEL CANT,COD memv
*!* if m.cant#0
*!* thisform.pageframe1.page2.enabled=.t.
*!* thisform.optiongroup1.option2.enabled=.t.
*!* thisform.pageframe1.page3.enabled=.f.
*!* thisform.optiongroup1.option3.enabled=.f.
*!* else
*!* thisform.pageframe1.page2.enabled=.f.
*!* thisform.optiongroup1.option2.enabled=.f.
*!* thisform.pageframe1.page3.enabled=.t.
*!* thisform.optiongroup1.option3.enabled=.t.
*!* endif
ENDPROC
PROCEDURE Grid1.Valid
*!* scatter FIEL COD memvar
*!* codfix=m.cod
ENDPROC
PROCEDURE pgcod.Click
*Updates the list to have the proper data
THISFORM.LockScreen = .T.
n=thisform.pgcod.activepage
THISFORM.UpdateList
THISFORM.LockScreen = .F.
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink