*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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="" /> * *m: calculeaza_total *m: do_validare *m: e_in_vanzari *p: cvaluta *p: eactan *p: ncurs *p: nsuma * * 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" * 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 \ 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 <> an = <> and luna = <> and cod = <> 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 <> an = <> and luna = <> and cod = <> 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 <> an = <> and luna = <> and cod = <> 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=<> OR ID_PARTC=<>\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=<> OR PERECHED=<> OR PERECHEC=<>\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="" /> * 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" * 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 = "\ 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="" /> * 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" * 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 = "\ 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="" /> * *p: cconte && cont implicit articol client *p: ccontp && cont implicit articol furnizor * * BorderStyle = 1 cconte = 704 ccontp = 628 DoCreate = .T. Height = 623 Name = "frm_configurare_efactura" Width = 424 _memberdata = _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" * 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="" /> * 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 * 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 î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="" /> * *p: ctip * * 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" * 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="" /> * *p: ctip * * 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" * 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="" /> * 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" * 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="" /> * *p: nsuma * * 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 * 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="" /> * *m: aleg_ascc *m: aleg_ascd *m: verif_ascc *m: verif_ascd * * 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 * 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="" /> * *m: setcaption *m: updatelist * * 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 * 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