*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.21" SourceFile="imob_2005.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * * *< LIBCOMMENT: Application Wizard framework class library. /> * DEFINE CLASS frm_fisa AS formtermin OF "..\..\comun\clase\baza.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text13" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text27" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label33" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text23" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text18" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text20" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label30" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label28" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text15" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text25" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label18" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label24" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label23" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text28" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label34" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text26" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label32" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label26" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label29" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text24" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text21" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text19" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="T21" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text22" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="T23" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label27" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label31" UniqueID="" Timestamp="" /> * *p: fel_imob * * BorderStyle = 1 DoCreate = .T. fel_imob = Height = 474 Name = "frm_fisa" Width = 557 Shape1.Height = 36 Shape1.Left = 0 Shape1.Name = "Shape1" Shape1.Top = 0 Shape1.Width = 487 Terminat1.Command1.Name = "Command1" Terminat1.Imbuton1.Height = 29 Terminat1.Imbuton1.Name = "Imbuton1" Terminat1.Imbuton1.Width = 27 Terminat1.Left = 521 Terminat1.Name = "Terminat1" Terminat1.TabIndex = 32 Terminat1.Top = 3 Titlufrumos1.Caption = "Fisa mijlocului fix" Titlufrumos1.Height = 28 Titlufrumos1.Left = 7 Titlufrumos1.Name = "Titlufrumos1" Titlufrumos1.TabIndex = 34 Titlufrumos1.Top = 5 Titlufrumos1.Width = 364 * ADD OBJECT 'Combo1' AS combobox WITH ; Alignment = 3, ; BackColor = 255,255,255, ; BoundTo = .F., ; ControlSource = "m.k", ; DisplayValue = Combo1, ; Enabled = .F., ; FirstElement = 1, ; Format = "", ; Height = 20, ; InputMask = "", ; Left = 409, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "1.5,2,2.5", ; RowSourceType = 1, ; SpecialEffect = 2, ; Style = 0, ; TabIndex = 20, ; Top = 89, ; Value = , ; Width = 130, ; ZOrderSet = 20 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Command1' AS commandbutton WITH ; Caption = "Calculul amortizarii", ; Height = 60, ; Left = 417, ; Name = "Command1", ; SpecialEffect = 2, ; TabIndex = 31, ; Top = 408, ; Width = 130, ; WordWrap = .T., ; ZOrderSet = 72 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'Command2' AS commandbutton WITH ; Caption = "Calculul cota", ; Height = 60, ; Left = 284, ; Name = "Command2", ; SpecialEffect = 2, ; TabIndex = 30, ; Top = 408, ; Width = 130, ; WordWrap = .T., ; ZOrderSet = 72 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'Label1' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Amortizare", ; FontBold = .F., ; FontItalic = .T., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 293, ; Name = "Label1", ; TabIndex = 37, ; Top = 317, ; Width = 65, ; ZOrderSet = 37 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label10' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Uzura (in luni)", ; FontBold = .F., ; FontItalic = .T., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 293, ; Name = "Label10", ; TabIndex = 50, ; Top = 158, ; Width = 82, ; ZOrderSet = 49 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label11' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Durata normala de serviciu (DNS)", ; FontBold = .F., ; FontItalic = .T., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 293, ; Name = "Label11", ; TabIndex = 39, ; Top = 247, ; Width = 195, ; ZOrderSet = 38 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label12' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Precedenta ", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 322, ; Name = "Label12", ; TabIndex = 48, ; Top = 176, ; Width = 72, ; ZOrderSet = 47 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label13' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Tip de amortizare", ; FontBold = .F., ; FontItalic = .T., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 293, ; Name = "Label13", ; TabIndex = 53, ; Top = 48, ; Width = 103, ; ZOrderSet = 51 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label14' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Gestiunea", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 25, ; Name = "Label14", ; TabIndex = 57, ; Top = 322, ; Width = 61, ; ZOrderSet = 55 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label15' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Responsabil", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 25, ; Name = "Label15", ; TabIndex = 59, ; Top = 346, ; Width = 73, ; ZOrderSet = 59 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label16' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Cont ", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 26, ; Name = "Label16", ; TabIndex = 63, ; Top = 420, ; Width = 33, ; ZOrderSet = 62 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label17' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nr. inventar", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 25, ; Name = "Label17", ; TabIndex = 66, ; Top = 272, ; Width = 67, ; ZOrderSet = 29 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label18' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Calculata", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 334, ; Name = "Label18", ; TabIndex = 44, ; Top = 198, ; Width = 56, ; ZOrderSet = 45 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label19' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Totala", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 352, ; Name = "Label19", ; TabIndex = 45, ; Top = 220, ; Width = 37, ; ZOrderSet = 43 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; AutoSize = .F., ; BackStyle = 0, ; Caption = "ani = luni", ; DisabledBackColor = 128,128,255, ; Height = 17, ; Left = 434, ; Name = "Label2", ; TabIndex = 69, ; Top = 293, ; Width = 106, ; ZOrderSet = 63 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label20' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Precedenta ", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 319, ; Name = "Label20", ; TabIndex = 46, ; Top = 336, ; Width = 72, ; ZOrderSet = 42 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label21' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Lunara", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 346, ; Name = "Label21", ; TabIndex = 42, ; Top = 357, ; Width = 41, ; ZOrderSet = 41 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label22' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Totala", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label22", ; TabIndex = 38, ; Top = 379, ; Width = 37, ; ZOrderSet = 40 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label23' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "procent", ; Enabled = .F., ; FontBold = .F., ; FontItalic = .T., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 353, ; Name = "Label23", ; TabIndex = 54, ; Top = 70, ; Width = 45, ; ZOrderSet = 50 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label24' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "coeficient", ; Enabled = .F., ; FontBold = .F., ; FontItalic = .T., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 340, ; Name = "Label24", ; TabIndex = 52, ; Top = 90, ; Width = 58, ; ZOrderSet = 48 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label25' AS label WITH ; AutoSize = .F., ; BackStyle = 0, ; Caption = "ani = luni", ; DisabledBackColor = 128,128,255, ; Height = 17, ; Left = 434, ; Name = "Label25", ; TabIndex = 70, ; Top = 269, ; Width = 106, ; ZOrderSet = 0 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label26' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoare de calcul", ; DisabledBackColor = 128,128,255, ; FontBold = .F., ; FontItalic = .T., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 292, ; Name = "Label26", ; TabIndex = 47, ; Top = 127, ; Width = 102, ; ZOrderSet = 60 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label27' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "De calcul", ; DisabledBackColor = 128,128,255, ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 320, ; Name = "Label27", ; TabIndex = 43, ; Top = 289, ; Width = 56, ; ZOrderSet = 77 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label28' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoarea de intrare", ; FontBold = .F., ; FontItalic = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 24, ; Name = "Label28", ; TabIndex = 41, ; Top = 174, ; Width = 109, ; WordWrap = .T., ; ZOrderSet = 34 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label29' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Data ultimei evaluari", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 25, ; Name = "Label29", ; TabIndex = 55, ; Top = 90, ; Width = 118, ; ZOrderSet = 11 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nr. doc.achiz.", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 25, ; Name = "Label3", ; TabIndex = 51, ; Top = 45, ; Width = 83, ; ZOrderSet = 9 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label30' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoarea reziduala", ; FontBold = .F., ; FontItalic = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 24, ; Name = "Label30", ; TabIndex = 40, ; Top = 197, ; Width = 107, ; WordWrap = .T., ; ZOrderSet = 34 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label31' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Initiala", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 320, ; Name = "Label31", ; TabIndex = 49, ; Top = 267, ; Width = 39, ; ZOrderSet = 79 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label32' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Sectie", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 25, ; Name = "Label32", ; TabIndex = 61, ; Top = 371, ; Width = 39, ; ZOrderSet = 57 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label33' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Cont Analitic", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 25, ; Name = "Label33", ; TabIndex = 67, ; Top = 445, ; Width = 76, ; ZOrderSet = 27 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label34' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Lucrarea", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 25, ; Name = "Label34", ; TabIndex = 60, ; Top = 396, ; Width = 52, ; ZOrderSet = 53 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Data doc. achiz.", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 25, ; Name = "Label4", ; TabIndex = 56, ; Top = 67, ; Width = 97, ; ZOrderSet = 11 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label5' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Denumire ", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 25, ; Name = "Label5", ; TabIndex = 58, ; Top = 120, ; Width = 61, ; ZOrderSet = 13 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label6' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoare de achizitie", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 24, ; Name = "Label6", ; TabIndex = 62, ; Top = 150, ; Width = 116, ; ZOrderSet = 15 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label7' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Data p.i.f.", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 25, ; Name = "Label7", ; TabIndex = 64, ; Top = 224, ; Width = 58, ; ZOrderSet = 17 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label8' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nr. p.i.f.", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 25, ; Name = "Label8", ; TabIndex = 65, ; Top = 248, ; Width = 48, ; ZOrderSet = 19 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label9' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Cod", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 26, ; Name = "Label9", ; TabIndex = 68, ; Top = 297, ; Width = 25, ; ZOrderSet = 26 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Renunt1' AS renunt WITH ; Left = 489, ; Name = "Renunt1", ; TabIndex = 33, ; Top = 3, ; ZOrderSet = 75, ; Imbuton1.Height = 27, ; Imbuton1.Name = "Imbuton1", ; Imbuton1.Width = 30, ; Command1.Name = "Command1" *< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" /> ADD OBJECT 'Shape10' AS shape WITH ; Height = 2, ; Left = 7, ; Name = "Shape10", ; SpecialEffect = 0, ; Top = 112, ; Width = 266, ; ZOrderSet = 82 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape2' AS shape WITH ; BackStyle = 0, ; Height = 366, ; Left = 284, ; Name = "Shape2", ; SpecialEffect = 0, ; Top = 39, ; Width = 266, ; ZOrderSet = 1 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape3' AS shape WITH ; BackStyle = 0, ; Height = 430, ; Left = 7, ; Name = "Shape3", ; SpecialEffect = 0, ; Top = 38, ; Width = 266, ; ZOrderSet = 2 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape4' AS shape WITH ; Height = 2, ; Left = 284, ; Name = "Shape4", ; SpecialEffect = 0, ; Top = 117, ; Width = 266, ; ZOrderSet = 3 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape5' AS shape WITH ; Height = 2, ; Left = 284, ; Name = "Shape5", ; SpecialEffect = 0, ; Top = 154, ; Width = 266, ; ZOrderSet = 5 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape6' AS shape WITH ; Height = 2, ; Left = 284, ; Name = "Shape6", ; SpecialEffect = 0, ; Top = 313, ; Width = 266, ; ZOrderSet = 6 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape7' AS shape WITH ; Height = 2, ; Left = 7, ; Name = "Shape7", ; SpecialEffect = 0, ; Top = 219, ; Width = 266, ; ZOrderSet = 4 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape8' AS shape WITH ; Height = 2, ; Left = 284, ; Name = "Shape8", ; SpecialEffect = 0, ; Top = 242, ; Width = 266, ; ZOrderSet = 28 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape9' AS shape WITH ; Height = 2, ; Left = 7, ; Name = "Shape9", ; SpecialEffect = 0, ; Top = 144, ; Width = 266, ; ZOrderSet = 81 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'T21' AS textbox WITH ; ControlSource = "m.normat", ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 477, ; Name = "T21", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 24, ; Top = 264, ; Width = 37, ; ZOrderSet = 84 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'T23' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.valin", ; FontName = "Arial Narrow", ; Format = "kr", ; Height = 22, ; InputMask = (get_mask(14,gnZ)), ; Left = 145, ; Name = "T23", ; SpecialEffect = 0, ; TabIndex = 6, ; Top = 172, ; Width = 115, ; ZOrderSet = 76 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text1' AS textbox WITH ; Alignment = 3, ; BorderStyle = 1, ; ControlSource = "m.nract", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 145, ; Name = "Text1", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 1, ; Top = 43, ; Width = 115, ; ZOrderSet = 8 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text10' AS combobox WITH ; Alignment = 3, ; BackColor = 255,255,255, ; BoundTo = .F., ; ControlSource = "m.tipamort", ; DisplayValue = , ; FirstElement = 1, ; Height = 20, ; Left = 409, ; Name = "Text10", ; ReadOnly = .F., ; RowSource = "Liniara,Accelerata,Degresiva", ; RowSourceType = 1, ; SpecialEffect = 0, ; Style = 2, ; TabIndex = 18, ; Top = 48, ; Value = , ; Width = 130, ; ZOrderSet = 21 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Text11' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.NUMEgest", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 145, ; Name = "Text11", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 12, ; Top = 320, ; Width = 115, ; ZOrderSet = 54 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text12' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.respons", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 145, ; Name = "Text12", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 13, ; Top = 345, ; Width = 115, ; ZOrderSet = 58 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text13' AS textbox WITH ; Alignment = 3, ; BorderStyle = 1, ; ControlSource = "m.dataeval", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 145, ; Name = "Text13", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 3, ; Top = 88, ; Width = 115, ; ZOrderSet = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text14' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.nrinv", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 145, ; Name = "Text14", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 10, ; Top = 270, ; Width = 115, ; ZOrderSet = 25 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text15' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.amortprec", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "kr", ; Height = 22, ; InputMask = (get_mask(14,gnZ)), ; Left = 408, ; Name = "Text15", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 27, ; ToolTipText = "Valoarea amortizarii pana in momentul achizitiei", ; Top = 335, ; Width = 132, ; ZOrderSet = 35 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text16' AS textbox WITH ; Alignment = 3, ; ControlSource = "uz", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 409, ; Name = "Text16", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 35, ; ToolTipText = "Uzura - de la data punerii in functiune si pana in prezent", ; Top = 193, ; Value = , ; Width = 132, ; ZOrderSet = 44 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text17' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.uzura", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 409, ; Name = "Text17", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 36, ; ToolTipText = "", ; Top = 214, ; Width = 132, ; ZOrderSet = 39 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text18' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.amortlun", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "kr", ; Height = 22, ; InputMask = (get_mask(14,gnZ)), ; Left = 408, ; Name = "Text18", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 28, ; Top = 356, ; Width = 132, ; ZOrderSet = 32 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text19' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.amorttot", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "kr", ; Height = 22, ; InputMask = (get_mask(14,gnZ)), ; Left = 408, ; Name = "Text19", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 29, ; Top = 377, ; Width = 132, ; ZOrderSet = 80 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text2' AS textbox WITH ; Alignment = 3, ; BorderStyle = 1, ; ControlSource = "m.dataact", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 145, ; Name = "Text2", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 2, ; Top = 65, ; Width = 115, ; ZOrderSet = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text20' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.p", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "r", ; Height = 22, ; InputMask = "9.99", ; Left = 409, ; Name = "Text20", ; ReadOnly = .F., ; SpecialEffect = 2, ; TabIndex = 19, ; ToolTipText = "", ; Top = 68, ; Width = 130, ; ZOrderSet = 33 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text21' AS textbox WITH ; ControlSource = "m.scd", ; Height = 22, ; Left = 145, ; Name = "Text21", ; SpecialEffect = 0, ; TabIndex = 16, ; Top = 420, ; Width = 115, ; ZOrderSet = 67 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text22' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.valrez", ; FontName = "Arial Narrow", ; Format = "kr", ; Height = 22, ; InputMask = (get_mask(14,gnZ)), ; Left = 145, ; Name = "Text22", ; SpecialEffect = 0, ; TabIndex = 7, ; Top = 195, ; Width = 115, ; ZOrderSet = 76 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text23' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.normat2", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; InputMask = "999.999", ; Left = 393, ; Name = "Text23", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 25, ; TabStop = .F., ; Top = 288, ; Width = 37, ; ZOrderSet = 30 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text24' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.normat2lun", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 477, ; Name = "Text24", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 26, ; TabStop = .F., ; Top = 288, ; Width = 36, ; ZOrderSet = 64 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text25' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.valramasa", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "kr", ; Height = 22, ; InputMask = (get_mask(14,gnZ)), ; Left = 408, ; Name = "Text25", ; SpecialEffect = 0, ; TabIndex = 21, ; ToolTipText = "Valoarea amortizarii pana in momentul achizitiei", ; Top = 124, ; Width = 132, ; ZOrderSet = 36 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text26' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.sectie", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 145, ; Name = "Text26", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 14, ; Top = 370, ; Width = 115, ; ZOrderSet = 56 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text27' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.ascd", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 145, ; Name = "Text27", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 17, ; Top = 443, ; Width = 115, ; ZOrderSet = 24 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text28' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.NRORD", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 145, ; Name = "Text28", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 15, ; Top = 395, ; Width = 115, ; ZOrderSet = 52 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text3' AS textbox WITH ; Alignment = 3, ; BorderStyle = 1, ; ControlSource = "m.denumire", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 90, ; Name = "Text3", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 4, ; Top = 118, ; Width = 173, ; ZOrderSet = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text4' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.valoare", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "kr", ; Height = 22, ; InputMask = (get_mask(14,gnZ)), ; Left = 145, ; Name = "Text4", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 5, ; Top = 148, ; Width = 115, ; ZOrderSet = 14 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text5' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.datapif", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 145, ; Name = "Text5", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 8, ; Top = 222, ; Width = 115, ; ZOrderSet = 16 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text6' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.nrpif", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 145, ; Name = "Text6", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 9, ; Top = 246, ; Width = 115, ; ZOrderSet = 18 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text7' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.codmf", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 145, ; Name = "Text7", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 11, ; Top = 295, ; Width = 115, ; ZOrderSet = 23 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text8' AS textbox WITH ; ControlSource = "m.normaan", ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; InputMask = "999.999", ; Left = 393, ; Name = "Text8", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 23, ; Top = 264, ; Width = 37, ; ZOrderSet = 31 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text9' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.uzuraprec", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 409, ; Name = "Text9", ; ReadOnly = .F., ; SpecialEffect = 0, ; TabIndex = 22, ; ToolTipText = "Uzura la momentul achizitiei", ; Top = 172, ; Width = 132, ; ZOrderSet = 46 *< END OBJECT: BaseClass="textbox" /> PROCEDURE Command1.Click do calcamortm.prg DO FORM frm_calcul thisform.text18.refresh thisform.text19.refresh ENDPROC PROCEDURE Command2.Click m.cota = calcul_cota(m.normat2lun) ENDPROC PROCEDURE T21.Valid IF EMPTY(m.normaan) m.normaan = ROUND(m.normat/12,3) thisform.text8.Refresh ENDIF ENDPROC PROCEDURE Text10.Valid if m.tipamort='Accelerata' thisform.text20.enabled=.t. thisform.label23.enabled=.t. else thisform.text20.enabled=.f. thisform.label23.enabled=.f. endif if m.tipamort='Degresiva' thisform.combo1.enabled=.t. thisform.label24.enabled=.t. do case case m.normat>24 and m.normat<=60 m.k=1.5 case m.normat>60 and m.normat<=120 m.k=2 case m.normat>120 m.k=2.5 endcase thisform.combo1.refresh else thisform.combo1.enabled=.f. thisform.label24.enabled=.f. endif ENDPROC PROCEDURE Text11.GotFocus DO CAUT_ALFa WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST' SELE NUMEGEST LOCATE FOR ALLTRIM(NUMEGEST)=ALLTRIM(M.NUMEGEST) m.Gest = gest ENDPROC PROCEDURE Text12.GotFocus DO CAUT_ALFa WITH "respons","nume_2",'NUMELE RESPONSABILULUI','M.NUME_2' m.RESPONS=M.NUME_2 ENDPROC PROCEDURE Text15.Valid thisform.text18.refresh thisform.text19.refresh ENDPROC PROCEDURE Text2.LostFocus IF EMPTY(m.dataeval) m.dataeval = m.dataact ENDIF IF EMPTY(m.datapif) m.datapif = m.dataact ENDIF ENDPROC PROCEDURE Text20.Valid if m.p<=0 or m.p>0.5 do mesaj with 'Valoarea acestui coeficient trebuie sa fie cuprinsa intre','0(exclusiv) si 0,50 (inclusiv)' return 0 endif thisform.text15.valid ENDPROC PROCEDURE Text23.Valid IF EMPTY(m.normat2lun) m.normat2lun = ROUND(m.normat2*12,0) thisform.text24.Refresh ENDIF ENDPROC PROCEDURE Text24.Valid m.normat2 = ROUND(m.normat2lun/12,3) thisform.text23.Refresh ENDPROC PROCEDURE Text25.Valid thisform.text18.refresh thisform.text19.refresh ENDPROC PROCEDURE Text26.GotFocus DO CAUT_ALFa_cursor WITH "sectie","sectie",'NUMELE SECTIEI','M.sectie' SELECT sectie LOCATE FOR UPPER(ALLTRIM(sectie)) = UPPER(ALLTRIM(m.sectie)) IF FOUND() m.id_sectie=id_sectie ENDIF ENDPROC PROCEDURE Text28.GotFocus DO CAUT_ALFa WITH "lucrari","nrord",'NUMELE LUCRARII','M.NRORD' ENDPROC PROCEDURE Text7.GotFocus LOCAL den *STORE 0 TO m.norma_min, m.norma_max den=m.denumire IF VAL(m.an)>=2005 SELE norma_2005 SCATTER NAME onorma BLANK OCA=CREATEOBJECT("NORMATREE_2005") OCA.SHOW(1) *SELE norma_2005 ELSE SELE NORMA SCATTER NAME onorma BLANK OCA=CREATEOBJECT("NORMATREE") OCA.SHOW(1) *SELE NORMA ENDIF m.denumire=den IF buton = 1 IF VAL(m.an)>=2005 m.normaan = onorma.norma_min m.normat = onorma.norma_min*12 DO CASE CASE LEFT(ALLTRIM(onorma.codmf),2) = [1.] lcCont = '212 ' CASE LEFT(ALLTRIM(onorma.codmf),2) = [2.] IF LEFT(ALLTRIM(onorma.codmf),3) # [2.5] lcCont = '213' + SUBSTR(ALLTRIM(onorma.codmf),3,1) ELSE lcCont = [] ENDIF CASE LEFT(ALLTRIM(onorma.codmf),2) = [3.] lcCont = '214' OTHERWISE lcCont = [] ENDCASE IF !EMPTY(lcCont) AND ALLTRIM(lcCont)#ALLTRIM(m.scd) DO mesaj WITH 'Atentie! Trebuie schimbat contul!',' ' ENDIF ELSE IF TYPE('onorma.NORMAT')='C' m.normat=VAL(onorma.normat) ENDIF IF TYPE('onorma.NORMAAN')='C' m.normaan=VAL(onorma.normaan) ENDIF ENDIF m.codmf = onorma.codmf ENDIF *!* m.normat2 = m.normaan *!* m.normat2lun = m.normat RELEASE onorma THISFORM.REFRESH ENDPROC PROCEDURE Text8.Valid IF EMPTY(m.normat) m.normat=ROUND(12*m.normaan,0) thisform.t21.Refresh ENDIF ENDPROC PROCEDURE Text9.Valid LOCAL NRL,NRA,L,A STORE 0 TO L,A NRL=VAL(M.NL) NRA=VAL(M.AN) if empty(m.datapif) do mesaj with 'Trebuie introdusa data punerii in functiune!','' return endif L=MONTH(m.DATAPIF) A=YEAR(m.DATAPIF) UZ=IIF(NRA *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Seip4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="OpIndependent" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Container1.Label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Container1.Text3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Container1.Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Container1.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Container1.Spinner1" UniqueID="" Timestamp="" /> * *p: clunaron *p: independent *p: nanron *p: nzecimale * * BorderStyle = 2 clunaron = DoCreate = .T. Height = 191 Name = "frm_optiuni" nanron = 2005 nzecimale = Width = 450 Shape1.Height = 36 Shape1.Left = 0 Shape1.Name = "Shape1" Shape1.Top = 0 Shape1.Width = 417 TERMINAT1.Command1.Name = "Command1" TERMINAT1.Imbuton1.Height = 29 TERMINAT1.Imbuton1.Name = "Imbuton1" TERMINAT1.Imbuton1.Width = 27 TERMINAT1.Left = 419 TERMINAT1.Name = "TERMINAT1" TERMINAT1.Top = 3 TITLUFRUMOS1.Caption = "OPIUNI PROGRAM" TITLUFRUMOS1.Height = 32 TITLUFRUMOS1.Left = 7 TITLUFRUMOS1.Name = "TITLUFRUMOS1" TITLUFRUMOS1.Top = 6 TITLUFRUMOS1.Width = 398 * ADD OBJECT 'Container1' AS container WITH ; BackStyle = 0, ; BorderColor = 128,128,128, ; Height = 78, ; Left = 9, ; Name = "Container1", ; Top = 108, ; Width = 432 *< END OBJECT: BaseClass="container" /> ADD OBJECT 'Container1.Combo1' AS combobox WITH ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "thisform.clunaron", ; Height = 24, ; Left = 259, ; Name = "Combo1", ; RowSource = "lunilean.numeluna,nl", ; RowSourceType = 2, ; Top = 12, ; Width = 103 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Container1.Label1' AS label WITH ; AutoSize = .F., ; BackStyle = 0, ; Caption = "Numar zecimale afisare / calcul in luna curenta", ; Height = 20, ; Left = 18, ; Name = "Label1", ; Top = 53, ; Visible = .F., ; Width = 258, ; WordWrap = .F. *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Container1.Label2' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "(la deschiderea acestei luni se face impartirea la 10 000)", ; FontName = "Arial Narrow", ; Height = 18, ; Left = 18, ; Name = "Label2", ; Top = 21, ; Width = 234 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Container1.Label5' AS label WITH ; AutoSize = .F., ; BackStyle = 0, ; Caption = "Trecerea de la ROL la RON se face in luna", ; Height = 20, ; Left = 18, ; Name = "Label5", ; Top = 7, ; Width = 243, ; WordWrap = .T. *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Container1.Spinner1' AS spinner WITH ; ControlSource = "thisform.nanron", ; Height = 24, ; KeyboardHighValue = 2050, ; KeyboardLowValue = 1990, ; Left = 364, ; Name = "Spinner1", ; ReadOnly = .F., ; SpinnerHighValue = 2050.00, ; SpinnerLowValue = 1990.00, ; Top = 13, ; Value = 2005, ; Width = 58 *< END OBJECT: BaseClass="spinner" /> ADD OBJECT 'Container1.Text3' AS textbox WITH ; ControlSource = "thisform.nzecimale", ; Height = 21, ; InputMask = "9", ; Left = 282, ; Name = "Text3", ; Top = 50, ; Visible = .F., ; Width = 49 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Label4' AS label WITH ; AutoSize = .F., ; BackStyle = 0, ; Caption = "Programul Contafin Imobilizari ruleaza independent de programul de contabilitate?", ; Height = 33, ; Left = 26, ; Name = "Label4", ; Top = 60, ; Width = 357, ; WordWrap = .T. *< END OBJECT: BaseClass="label" /> ADD OBJECT 'OpIndependent' AS optiongroup WITH ; BackStyle = 0, ; BorderStyle = 0, ; ButtonCount = 2, ; ControlSource = "", ; Height = 48, ; Left = 390, ; Name = "OpIndependent", ; Top = 51, ; Value = 2, ; Width = 46, ; Option1.AutoSize = .T., ; Option1.BackStyle = 0, ; Option1.Caption = "DA", ; Option1.Height = 17, ; Option1.Left = 2, ; Option1.Name = "Option1", ; Option1.Top = 6, ; Option1.Value = 0, ; Option1.Width = 34, ; Option2.BackStyle = 0, ; Option2.Caption = "NU", ; Option2.Height = 17, ; Option2.Left = 2, ; Option2.Name = "Option2", ; Option2.Top = 29, ; Option2.Value = 1, ; Option2.Width = 61 *< END OBJECT: BaseClass="optiongroup" /> ADD OBJECT 'Seip4' AS seip WITH ; BorderColor = 128,128,128, ; Height = 49, ; Left = 9, ; Name = "Seip4", ; Top = 52, ; Width = 433 *< END OBJECT: ClassLib="..\..\concont\clase\ferestrebaza.vcx" BaseClass="shape" /> PROCEDURE inainte_de_do_termin glImobIndependent = thisform.independent IF glImobIndependent lcImobIndep = [T] ELSE lcImobIndep = [F] ENDIF **** OPTIUNI FIRMA DATEAN SELECT optiuni_firma LOCATE FOR LOWER(ALLTRIM(varname))='imobindependent' If Found() Repl varvalue With lcImobIndep ENDIF IF glImobIndependent lcLunaRon = thisform.clunaRON lcAnRON = ALLTRIM(STR(thisform.nAnRON)) gcDataRON = lcLunaRon + [-] + lcAnRON SELECT optiuni_firma LOCATE FOR LOWER(ALLTRIM(varname))='dataron' If Found() Repl varvalue With gcDataRON ENDIF IF 12*VAL(SUBSTR(gcDataRon,4,4))+VAL(LEFT(gcDataRon,2)) <= 12*VAL(m.an)+VAL(m.nl) IF 12*VAL(SUBSTR(gcDataRon,4,4))+VAL(LEFT(gcDataRon,2)) = 12*VAL(m.an)+VAL(m.nl) AND !verific_rolronsnr(gcCalefirma) lnValue = 0 gnPcurs = 0 ELSE lnValue = 2 gnPcurs = 4 ENDIF ELSE lnValue = 0 gnPcurs = 0 ENDIF gnPpret = 3 gnZ=lnValue ENDIF RETURN .t. ENDPROC PROCEDURE Init thisform.independent = glImobIndependent IF thisform.independent this.opIndependent.Value = 1 ELSE this.opIndependent.Value = 2 ENDIF IF !glImobIndependent thisform.container1.Visible = .f. ENDIF thisform.nzecimale = gnZ lcLunaRon = SUBSTR(gcDataRON,1,2) lnAnRON = VAL(SUBSTR(gcDataRON,4,4)) thisform.clunaRON = lcLunaRon thisform.nAnRON = lnAnRON ENDPROC PROCEDURE Container1.Combo1.Init THIS.Enabled = verific_rolronsnr(gcCalefirma) ENDPROC PROCEDURE Container1.Spinner1.Init THIS.Enabled = verific_rolronsnr(gcCalefirma) ENDPROC PROCEDURE OpIndependent.Valid IF this.Value = 1 thisform.independent = .t. thisform.container1.Visible = .T. ELSE thisform.independent = .f. thisform.container1.Visible = .F. ENDIF ENDPROC PROCEDURE TERMINAT1.Command1.Click thisform.do_termin ENDPROC ENDDEFINE DEFINE CLASS frm_preluare AS formtermin OF "..\..\comun\clase\baza.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" 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="Shape3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label24" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text19" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text18" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label23" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text15" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="List1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Lim_inf_sup1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text13" UniqueID="" Timestamp="" /> * *p: cidsectie *p: fel_imob *p: nnorma_max *p: nnorma_min * * BorderStyle = 1 cidsectie = DoCreate = .T. fel_imob = '' Height = 462 Name = "frm_preluare" nnorma_max = nnorma_min = Width = 708 Shape1.Height = 35 Shape1.Left = 0 Shape1.Name = "Shape1" Shape1.Top = 0 Shape1.Width = 609 Terminat1.Command1.Name = "Command1" Terminat1.Imbuton1.Height = 29 Terminat1.Imbuton1.Name = "Imbuton1" Terminat1.Imbuton1.Width = 27 Terminat1.Left = 674 Terminat1.Name = "Terminat1" Terminat1.TabIndex = 18 Terminat1.Top = 4 Titlufrumos1.Caption = "Lista imobilizarilor" Titlufrumos1.FontSize = 11 Titlufrumos1.Height = 30 Titlufrumos1.Left = 7 Titlufrumos1.Name = "Titlufrumos1" Titlufrumos1.TabIndex = 21 Titlufrumos1.Top = 5 Titlufrumos1.Width = 405 * ADD OBJECT 'Grid1' AS grid WITH ; BackColor = 255,255,255, ; ColumnCount = 7, ; DeleteMark = .F., ; FontName = "Arial Narrow", ; GridLines = 0, ; Height = 336, ; Left = 13, ; Name = "Grid1", ; Panel = 1, ; ReadOnly = .T., ; RecordSource = "actcs", ; TabIndex = 1, ; Top = 70, ; View = 0, ; Width = 300, ; ZOrderSet = 4, ; Column1.BackColor = 255,255,255, ; Column1.ControlSource = "nract", ; Column1.FontName = "Arial Narrow", ; Column1.Name = "Column1", ; Column1.ReadOnly = .T., ; Column1.Width = 59, ; Column2.BackColor = 255,255,255, ; Column2.ControlSource = "dataact", ; Column2.FontName = "Arial Narrow", ; Column2.Name = "Column2", ; Column2.ReadOnly = .T., ; Column2.Width = 61, ; Column3.BackColor = 255,255,255, ; Column3.ColumnOrder = 4, ; Column3.ControlSource = "nume", ; Column3.FontName = "Arial Narrow", ; Column3.Name = "Column3", ; Column3.ReadOnly = .T., ; Column3.Width = 123, ; Column4.BackColor = 255,255,255, ; Column4.ColumnOrder = 3, ; Column4.ControlSource = "explicatia", ; Column4.FontName = "Arial Narrow", ; Column4.Name = "Column4", ; Column4.ReadOnly = .T., ; Column4.Width = 148, ; Column5.BackColor = 255,255,255, ; Column5.ControlSource = "SCD", ; Column5.FontName = "Arial Narrow", ; Column5.Name = "Column5", ; Column5.ReadOnly = .T., ; Column6.BackColor = 255,255,255, ; Column6.ControlSource = "SUMA", ; Column6.FontName = "Arial Narrow", ; Column6.Format = "r", ; Column6.InputMask = (get_mask(14,gnZ)), ; Column6.Name = "Column6", ; Column6.ReadOnly = .T., ; Column7.BackColor = 255,255,255, ; Column7.ControlSource = "cod", ; Column7.FontName = "Arial Narrow", ; Column7.Name = "Column7", ; Column7.ReadOnly = .T. *< END OBJECT: BaseClass="grid" /> ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ; Caption = "Nr.Act", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ; Caption = "Data", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column2.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.Column3.Header1' AS header WITH ; Caption = "Furnizor", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.Column4.Header1' AS header WITH ; Caption = "Explicatia", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column4.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.Column5.Header1' AS header WITH ; Caption = "SCD", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column5.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.Column6.Header1' AS header WITH ; Caption = "Suma", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column6.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.Column7.Header1' AS header WITH ; Caption = " ", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Label1' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; BackStyle = 1, ; Caption = "Lista documentelor de achizitie", ; FontBold = .F., ; FontName = "Comic Sans MS", ; FontShadow = .F., ; FontSize = 11, ; ForeColor = 0,78,155, ; Height = 22, ; Left = 16, ; Name = "Label1", ; TabIndex = 22, ; Top = 36, ; Width = 218, ; ZOrderSet = 3 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label11' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Durata normala de funct.", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label11", ; TabIndex = 23, ; Top = 249, ; Width = 144, ; ZOrderSet = 22 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label12' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Uzura", ; Enabled = .T., ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label12", ; TabIndex = 26, ; Top = 272, ; Width = 36, ; ZOrderSet = 24 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label13' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Tip de amortizare", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label13", ; TabIndex = 28, ; Top = 296, ; Width = 102, ; ZOrderSet = 26 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label14' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Gestiunea", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label14", ; TabIndex = 30, ; Top = 318, ; Width = 61, ; ZOrderSet = 28 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label15' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Responsabil", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label15", ; TabIndex = 33, ; Top = 342, ; Width = 73, ; ZOrderSet = 30 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label16' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Cont Deb.", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label16", ; TabIndex = 35, ; Top = 388, ; Width = 60, ; ZOrderSet = 32 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label17' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Nr. inventar", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label17", ; TabIndex = 39, ; Top = 177, ; Width = 67, ; ZOrderSet = 20 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label19' AS label WITH ; Alignment = 2, ; AutoSize = .F., ; BackStyle = 0, ; Caption = "Nu exista achizitii de imobilizari in aceasta luna!", ; FontBold = .T., ; FontSize = 12, ; ForeColor = 255,0,0, ; Height = 60, ; Left = 56, ; Name = "Label19", ; TabIndex = 41, ; Top = 160, ; Visible = .F., ; Width = 204, ; WordWrap = .T. *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Fisa ", ; FontBold = .F., ; FontName = "Comic Sans MS", ; FontShadow = .F., ; FontSize = 11, ; ForeColor = 0,78,155, ; Height = 22, ; Left = 356, ; Name = "Label2", ; TabIndex = 25, ; Top = 34, ; Width = 34, ; ZOrderSet = 6 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label21' AS label WITH ; AutoSize = .T., ; BackColor = 255,255,255, ; BackStyle = 1, ; Caption = "Acest element nu este introdus !", ; ForeColor = 255,0,0, ; Height = 17, ; Left = 69, ; Name = "Label21", ; TabIndex = 42, ; Top = 438, ; Width = 178 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label22' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Sectie", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label22", ; TabIndex = 32, ; Top = 366, ; Width = 39, ; ZOrderSet = 30 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label23' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Cont Analitic", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label23", ; TabIndex = 36, ; Top = 411, ; Width = 76, ; ZOrderSet = 32 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label24' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "ani", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 560, ; Name = "Label24", ; TabIndex = 24, ; Top = 249, ; Width = 19, ; ZOrderSet = 22 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Nr. document achizitie", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label3", ; TabIndex = 27, ; Top = 57, ; Width = 132, ; ZOrderSet = 8 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Data document achizitie", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label4", ; TabIndex = 29, ; Top = 81, ; Width = 142, ; ZOrderSet = 10 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label5' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Denumire ", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label5", ; TabIndex = 31, ; Top = 105, ; Width = 61, ; ZOrderSet = 12 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label6' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Valoare de achizitie", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label6", ; TabIndex = 34, ; Top = 129, ; Width = 116, ; ZOrderSet = 14 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label7' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Data punerii in functiune", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label7", ; TabIndex = 37, ; Top = 153, ; Width = 141, ; ZOrderSet = 16 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label8' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Nr. p.i.f.", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label8", ; TabIndex = 38, ; Top = 201, ; Width = 48, ; ZOrderSet = 18 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label9' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Cod", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 349, ; Name = "Label9", ; TabIndex = 40, ; Top = 225, ; Width = 25, ; ZOrderSet = 20 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Lim_inf_sup1' AS lim_inf_sup WITH ; Left = 578, ; Name = "Lim_inf_sup1", ; TabIndex = 45, ; Top = 243, ; Text29.ControlSource = "this.parent.parent.nnorma_min", ; Text29.Name = "Text29", ; Text30.ControlSource = "this.parent.parent.nnorma_max", ; Text30.Name = "Text30", ; Label25.Name = "Label25", ; Label35.Name = "Label35" *< END OBJECT: ClassLib="mfix2000.vcx" BaseClass="container" /> ADD OBJECT 'List1' AS list WITH ; Left = 611, ; Name = "List1", ; TabIndex = 20, ; Top = 4, ; Imbuton1.Height = 27, ; Imbuton1.Name = "Imbuton1", ; Imbuton1.Width = 30, ; Command1.Name = "Command1" *< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" /> ADD OBJECT 'Renunt1' AS renunt WITH ; Left = 643, ; Name = "Renunt1", ; TabIndex = 19, ; Top = 4, ; Imbuton1.Height = 27, ; Imbuton1.Name = "Imbuton1", ; Imbuton1.Width = 30, ; Command1.Name = "Command1" *< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" /> ADD OBJECT 'Shape2' AS shape WITH ; BackStyle = 0, ; Height = 394, ; Left = 4, ; Name = "Shape2", ; SpecialEffect = 0, ; Top = 42, ; Width = 324, ; ZOrderSet = 0 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape3' AS shape WITH ; BackStyle = 0, ; Height = 394, ; Left = 340, ; Name = "Shape3", ; SpecialEffect = 0, ; Top = 42, ; Width = 360, ; ZOrderSet = 5 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape4' AS shape WITH ; BackStyle = 0, ; Height = 24, ; Left = 4, ; Name = "Shape4", ; SpecialEffect = 0, ; Top = 434, ; Width = 696, ; ZOrderSet = 33 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Text1' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; BorderStyle = 1, ; ControlSource = "m.nract", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text1", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 2, ; Top = 55, ; Width = 180, ; ZOrderSet = 7 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text10' AS combobox WITH ; Alignment = 3, ; BackColor = 255,255,255, ; BoundTo = .F., ; ControlSource = "m.tipamort", ; DisplayValue = Text10, ; Enabled = .F., ; FirstElement = 1, ; Height = 20, ; Left = 505, ; Name = "Text10", ; ReadOnly = .F., ; RowSource = "Liniara,Accelerata,Degresiva", ; RowSourceType = 1, ; SpecialEffect = 2, ; Style = 0, ; TabIndex = 12, ; Top = 294, ; Value = 0, ; Width = 180, ; ZOrderSet = 18 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Text11' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.NUMEgest", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text11", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 13, ; Top = 316, ; Width = 180, ; ZOrderSet = 27 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text12' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.respons", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text12", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 14, ; Top = 340, ; Width = 180, ; ZOrderSet = 29 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text13' AS textbox WITH ; Height = 23, ; Left = 564, ; Name = "Text13", ; TabIndex = 46, ; Top = 456, ; Visible = .F., ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text14' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.nrinv", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text14", ; SpecialEffect = 2, ; TabIndex = 7, ; Top = 175, ; Width = 180, ; ZOrderSet = 19 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text15' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.scd", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text15", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 16, ; Top = 388, ; Width = 180, ; ZOrderSet = 29 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text16' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; BorderStyle = 0, ; ControlSource = "m.nl", ; FontName = "Comic Sans MS", ; FontSize = 10, ; ForeColor = 255,255,255, ; Height = 23, ; Left = 416, ; Name = "Text16", ; TabIndex = 43, ; TabStop = .F., ; Top = 6, ; Width = 27 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text17' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; BorderStyle = 0, ; ControlSource = "m.an", ; FontName = "Comic Sans MS", ; FontSize = 10, ; ForeColor = 255,255,255, ; Height = 23, ; Left = 445, ; Name = "Text17", ; TabIndex = 44, ; TabStop = .F., ; Top = 6, ; Width = 64 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text18' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.sectie", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text18", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 15, ; Top = 364, ; Width = 180, ; ZOrderSet = 29 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text19' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.ascd", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text19", ; SpecialEffect = 2, ; TabIndex = 17, ; Top = 411, ; Width = 180, ; ZOrderSet = 29 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text2' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; BorderStyle = 1, ; ControlSource = "m.dataact", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text2", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 3, ; Top = 79, ; Width = 180, ; ZOrderSet = 9 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text3' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.denumire", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K!", ; Height = 22, ; Left = 505, ; Name = "Text3", ; SpecialEffect = 2, ; TabIndex = 4, ; Top = 103, ; Width = 180, ; ZOrderSet = 11 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text4' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.valoare", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "KR", ; Height = 22, ; InputMask = (get_mask(14,gnZ)), ; Left = 505, ; Name = "Text4", ; SpecialEffect = 2, ; TabIndex = 5, ; Top = 127, ; Width = 180, ; ZOrderSet = 13 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text5' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.datapif", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text5", ; SpecialEffect = 2, ; TabIndex = 6, ; Top = 151, ; Width = 180, ; ZOrderSet = 15 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text6' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.nrpif", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text6", ; SpecialEffect = 2, ; TabIndex = 8, ; Top = 199, ; Width = 180, ; ZOrderSet = 17 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text7' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.codmf", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text7", ; SpecialEffect = 2, ; TabIndex = 9, ; Top = 223, ; Width = 180, ; ZOrderSet = 19 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text8' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.normaan", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text8", ; SpecialEffect = 2, ; TabIndex = 10, ; Top = 247, ; Width = 53, ; ZOrderSet = 21 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text9' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.uzura", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 505, ; Name = "Text9", ; ReadOnly = .F., ; SpecialEffect = 2, ; TabIndex = 11, ; Top = 270, ; Width = 180, ; ZOrderSet = 23 *< END OBJECT: BaseClass="textbox" /> PROCEDURE Init SELECT actcs this.grid1.SetAll("DynamicForeColor","IIF(INTR = 0, RGB(255,0,0),IIF(intr = 1,RGB(0,0,0),RGB(0,0,255)))","Column") ENDPROC PROCEDURE Show LPARAMETERS nStyle IF ALLTRIM(UPPER(this.fel_imob)) = 'N' this.text7.TabStop = .f. this.text7.Enabled = .f. this.Lim_inf_sup1.Visible = .f. ENDIF this.grid1.SetFocus ENDPROC PROCEDURE Grid1.AfterRowColChange LPARAMETERS nColIndex local i,s,t,TVAL s=.t. sele actcs scatter memvar m.datapif=m.dataact m.tipamort='Liniara' m.valoare=m.suma _nract=m.nract _dataact=m.dataact _cod=m.cod IF m.intr = 1 OR m.intr = 2 SELECT mf LOCATE FOR cod = m.cod IF FOUND() SCATTER MEMVAR ENDIF ENDIF FOR i=1 to 19 if m.intr = 1 t='thisform.text'+alltrim(str(i))+'.enabled= .f.' else t='thisform.text'+alltrim(str(i))+'.enabled= .t.' endif &t ENDFOR FOR i=1 to 15 t='thisform.text'+alltrim(str(i))+'.REFRESH' &t ENDFOR DO CASE CASE m.intr = 0 thisform.label21.ForeColor = 255 thisform.label21.Caption = 'Acest element nu este introdus!' INTRODUSTOT = .f. CASE m.intr = 1 thisform.label21.ForeColor = 0 thisform.label21.Caption = 'Acest element este introdus!' INTRODUSTOT = .t. CASE m.intr = 2 thisform.label21.ForeColor = 16711680 thisform.label21.Caption = 'Introdus partial!' INTRODUSTOT = .f. ENDCASE IF ALLTRIM(UPPER(thisform.fel_imob)) = 'N' thisform.text7.Enabled = .f. thisform.Lim_inf_sup1.Visible = .f. ENDIF ENDPROC PROCEDURE Grid1.When *set filter to !deleted() ENDPROC PROCEDURE Terminat1.Command1.Click m.nract=_nract m.dataact=_dataact m.cod=_cod If Empty(m.codmf) And Thisform.FEL_IMOB='C' Do mesaj With 'Introduceti codul!!','' Return Endif If Empty(m.Normat2lun) Do mesaj With 'Introduceti Durata normala de funct.!!','' Return ENDIF Sele ACTCS If !INTRODUSTOT m.CASAT=.F. m.dataeval = m.datapif m.valin = m.valoare m.valramasa = m.valoare m.cota = calcul_cota(m.Normat2lun) m.codop = 3 m.id_sectie = thisform.cidsectie Sele mf Appe Blank If Flock() Gather Memvar Endif If thisform.fel_imob = 'N' Replace fel With 'N' ENDIF Unlock Endif Select mflun Append Blank If Flock() Gather Memvar Replace explicatia With 'Preluare din contabilitate',dataora With Datetime() Replace codop With 3 Endif Unlock Select mfanual Append Blank If Flock() Gather Memvar Replace explicatia With 'Preluare din contabilitate',dataora With Datetime() Replace codop With 3 Endif Unlock *!* od=Create('danu') *!* od.Show(1) *!* If buton==2 *!* Thisform.Release *!* ELSE *!* SELECT mf *!* SCATTER MEMVAR BLANK *!* thisform.Refresh *!* Endif buton=1 THISFORM.RELEASE ENDPROC PROCEDURE Text11.GotFocus DO CAUT_ALFa WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST' SELE NUMEGEST LOCATE FOR ALLTRIM(NUMEGEST)=ALLTRIM(M.NUMEGEST) SCATTER MEMVAR ENDPROC PROCEDURE Text12.GotFocus DO CAUT_ALFa WITH "respons","nume_2",'NUMELE RESPONSABILULUI','M.NUME_2' M.RESPONS=M.NUME_2 ENDPROC PROCEDURE Text14.Valid SELECT mf LOCATE FOR UPPER(ALLTRIM(nrinv))=UPPER(ALLTRIM(m.nrinv)) IF FOUND() DO mesaj WITH 'Exista deja un mijloc fix cu ','acest numar de inventar!' ENDIF ENDPROC PROCEDURE Text18.GotFocus DO CAUT_ALFa_cursor WITH "sectie","sectie",'NUMELE SECTIEI','M.sectie' SELECT sectie LOCATE FOR UPPER(ALLTRIM(sectie)) = UPPER(ALLTRIM(m.sectie)) IF FOUND() m.id_sectie=id_sectie thisform.cIdSectie = m.id_sectie ENDIF ENDPROC PROCEDURE Text7.GotFocus local den den=m.denumire lcCont = m.scd IF VAL(m.an)>=2005 SELE norma_2005 SCATTER NAME onorma BLANK OCA=CREATEOBJECT("NORMATREE_2005") OCA.SHOW(1) IF buton = 1 thisform.nnorma_min = onorma.norma_min && in ani thisform.nnorma_max = onorma.norma_max && in ani ENDIF ELSE SELE norma SCATTER NAME onorma BLANK OCA=CREATEOBJECT("NORMATREE") OCA.SHOW(1) IF buton = 1 thisform.nnorma_min = VAL(onorma.normaan) && in ani thisform.nnorma_max = VAL(onorma.normaan) && in ani ENDIF ENDIF m.denumire=den IF buton = 1 m.normat = thisform.nnorma_min*12 m.normaan = thisform.nnorma_min this.Parent.lim_inf_sup1.Refresh DO CASE CASE LEFT(ALLTRIM(onorma.codmf),2) = [1.] m.scd = '212 ' CASE LEFT(ALLTRIM(onorma.codmf),2) = [2.] IF LEFT(ALLTRIM(onorma.codmf),3) # [2.5] m.scd = '213' + SUBSTR(ALLTRIM(onorma.codmf),3,1) ELSE m.scd = '213' thisform.text15.ReadOnly = .f. ENDIF CASE LEFT(ALLTRIM(onorma.codmf),2) = [3.] m.scd = '214' OTHERWISE * ENDCASE IF !EMPTY(lcCont) AND ALLTRIM(lcCont)#ALLTRIM(m.scd) AND LEFT(ALLTRIM(onorma.codmf),3) # [2.5] && la acest cod nu pot determina contul do mesaj with 'Atentie! Contul nu corespunde cu codul ales!',' ' m.scd = lcCont ENDIF m.codmf = onorma.codmf ENDIF m.normat2lun = m.normat m.notmat2 = m.normaan RELEASE onorma THISFORM.TEXT8.REFRESH THISFORM.TEXT15.REFRESH ENDPROC PROCEDURE Text7.Init *!* IF ALLTRIM(UPPER(thisform.fel_imob)) = 'N' *!* this.Enabled = .f. *!* ENDIF ENDPROC PROCEDURE Text8.Valid IF UPPER(ALLTRIM(thisform.fel_imob)) = 'C' If !((thisform.nnorma_min <= m.normaan) And (m.normaan <= thisform.nnorma_max)) Do mesaj With "Durata introdusa nu este din intervalul",Alltrim(Str(thisform.nnorma_min))+" - "+Alltrim(Str(thisform.nnorma_max))+" ani!" Do Case Case thisform.nnorma_min > m.normaan m.normaan = thisform.nnorma_min CASE m.normaan > thisform.nnorma_max m.normaan = thisform.nnorma_max Endcase ENDIF ENDIF m.normat = ROUND(m.normaan*12,0) m.normat2lun = m.normat m.notmat2 = m.normaan ENDPROC ENDDEFINE DEFINE CLASS frm_preluare_in_curs AS formtermin OF "..\..\comun\clase\baza.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" 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="Shape3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label23" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label30" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> * BorderStyle = 1 DoCreate = .T. Height = 360 Name = "frm_preluare_in_curs" Width = 707 Shape1.Height = 36 Shape1.Left = 0 Shape1.Name = "Shape1" Shape1.Top = 0 Shape1.Width = 635 Shape1.ZOrderSet = 2 Terminat1.Command1.Name = "Command1" Terminat1.Imbuton1.Height = 29 Terminat1.Imbuton1.Name = "Imbuton1" Terminat1.Imbuton1.Width = 27 Terminat1.Left = 670 Terminat1.Name = "Terminat1" Terminat1.TabIndex = 13 Terminat1.Top = 4 Terminat1.ZOrderSet = 3 Titlufrumos1.Height = 31 Titlufrumos1.Left = 6 Titlufrumos1.Name = "Titlufrumos1" Titlufrumos1.TabIndex = 15 Titlufrumos1.Top = 5 Titlufrumos1.Width = 364 Titlufrumos1.ZOrderSet = 16 * ADD OBJECT 'Grid1' AS grid WITH ; BackColor = 255,255,255, ; ColumnCount = 7, ; DeleteMark = .F., ; FontName = "Arial Narrow", ; GridLines = 0, ; Height = 251, ; Left = 14, ; Name = "Grid1", ; Panel = 1, ; ReadOnly = .T., ; RecordSource = "actcs", ; TabIndex = 1, ; Top = 64, ; View = 0, ; Width = 300, ; ZOrderSet = 5, ; Column1.BackColor = 255,255,255, ; Column1.ControlSource = "nract", ; Column1.FontName = "Arial Narrow", ; Column1.Name = "Column1", ; Column1.ReadOnly = .T., ; Column1.Width = 59, ; Column2.BackColor = 255,255,255, ; Column2.ControlSource = "dataact", ; Column2.FontName = "Arial Narrow", ; Column2.Name = "Column2", ; Column2.ReadOnly = .T., ; Column2.Width = 61, ; Column3.BackColor = 255,255,255, ; Column3.ColumnOrder = 4, ; Column3.ControlSource = "nume", ; Column3.FontName = "Arial Narrow", ; Column3.Name = "Column3", ; Column3.ReadOnly = .T., ; Column3.Width = 123, ; Column4.BackColor = 255,255,255, ; Column4.ColumnOrder = 3, ; Column4.ControlSource = "explicatia", ; Column4.FontName = "Arial Narrow", ; Column4.Name = "Column4", ; Column4.ReadOnly = .T., ; Column4.Width = 148, ; Column5.BackColor = 255,255,255, ; Column5.ControlSource = "SCD", ; Column5.FontName = "Arial Narrow", ; Column5.Name = "Column5", ; Column5.ReadOnly = .T., ; Column6.BackColor = 255,255,255, ; Column6.ControlSource = "SUMA", ; Column6.FontName = "Arial Narrow", ; Column6.Format = "r", ; Column6.InputMask = (get_mask(14,gnZ)), ; Column6.Name = "Column6", ; Column6.ReadOnly = .T., ; Column7.BackColor = 255,255,255, ; Column7.ControlSource = "cod", ; Column7.FontName = "Arial Narrow", ; Column7.Name = "Column7", ; Column7.ReadOnly = .T. *< END OBJECT: BaseClass="grid" /> ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ; Caption = "Nr.Act", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ; Caption = "Data", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column2.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.Column3.Header1' AS header WITH ; Caption = "Furnizor", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.Column4.Header1' AS header WITH ; Caption = "Explicatia", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column4.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.Column5.Header1' AS header WITH ; Caption = "SCD", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column5.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.Column6.Header1' AS header WITH ; Caption = "Suma", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column6.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.Column7.Header1' AS header WITH ; Caption = " ", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Label1' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; BackStyle = 1, ; Caption = "Lista documentelor de achizitie", ; FontBold = .F., ; FontName = "Comic Sans MS", ; FontShadow = .F., ; FontSize = 11, ; ForeColor = 0,78,155, ; Height = 22, ; Left = 17, ; Name = "Label1", ; TabIndex = 17, ; Top = 38, ; Width = 218, ; ZOrderSet = 4 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label14' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Gestiunea", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 350, ; Name = "Label14", ; TabIndex = 21, ; Top = 203, ; Width = 61, ; ZOrderSet = 23 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label15' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Responsabil", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 350, ; Name = "Label15", ; TabIndex = 24, ; Top = 227, ; Width = 73, ; ZOrderSet = 28 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label16' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Cont Deb.", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 350, ; Name = "Label16", ; TabIndex = 26, ; Top = 273, ; Width = 60, ; ZOrderSet = 31 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label17' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Nr. inventar", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 350, ; Name = "Label17", ; TabIndex = 28, ; Top = 179, ; Width = 67, ; ZOrderSet = 18 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Fisa ", ; FontBold = .F., ; FontName = "Comic Sans MS", ; FontShadow = .F., ; FontSize = 11, ; ForeColor = 0,78,155, ; Height = 22, ; Left = 357, ; Name = "Label2", ; TabIndex = 18, ; Top = 36, ; Width = 34, ; ZOrderSet = 7 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label21' AS label WITH ; AutoSize = .T., ; BackColor = 255,255,255, ; BackStyle = 1, ; Caption = "Acest element nu este introdus !", ; ForeColor = 255,0,0, ; Height = 17, ; Left = 70, ; Name = "Label21", ; TabIndex = 29, ; Top = 332, ; Width = 178, ; ZOrderSet = 22 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label22' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Sectie", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 350, ; Name = "Label22", ; TabIndex = 23, ; Top = 251, ; Width = 39, ; ZOrderSet = 24 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label23' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Cont Analitic", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 350, ; Name = "Label23", ; TabIndex = 27, ; Top = 296, ; Width = 76, ; ZOrderSet = 30 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Nr. document achizitie", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 350, ; Name = "Label3", ; TabIndex = 19, ; Top = 59, ; Width = 132, ; ZOrderSet = 9 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label30' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Lucrarea", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 350, ; Name = "Label30", ; TabIndex = 16, ; Top = 156, ; Width = 52, ; ZOrderSet = 35 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Data document achizitie", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 350, ; Name = "Label4", ; TabIndex = 20, ; Top = 83, ; Width = 142, ; ZOrderSet = 11 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label5' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Denumire ", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 350, ; Name = "Label5", ; TabIndex = 22, ; Top = 107, ; Width = 61, ; ZOrderSet = 13 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label6' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackColor = 255,255,255, ; Caption = "Valoare de achizitie", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 350, ; Name = "Label6", ; TabIndex = 25, ; Top = 131, ; Width = 116, ; ZOrderSet = 15 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Renunt1' AS renunt WITH ; Left = 638, ; Name = "Renunt1", ; TabIndex = 14, ; Top = 4, ; ZOrderSet = 33, ; Imbuton1.Height = 27, ; Imbuton1.Name = "Imbuton1", ; Imbuton1.Width = 30, ; Command1.Name = "Command1" *< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" /> ADD OBJECT 'Shape2' AS shape WITH ; BackStyle = 0, ; Height = 282, ; Left = 5, ; Name = "Shape2", ; SpecialEffect = 0, ; Top = 44, ; Width = 324, ; ZOrderSet = 1 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape3' AS shape WITH ; BackStyle = 0, ; Height = 282, ; Left = 341, ; Name = "Shape3", ; SpecialEffect = 0, ; Top = 44, ; Width = 360, ; ZOrderSet = 6 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape4' AS shape WITH ; BackStyle = 0, ; Height = 24, ; Left = 5, ; Name = "Shape4", ; SpecialEffect = 0, ; Top = 328, ; Width = 696, ; ZOrderSet = 0 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Text1' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; BorderStyle = 1, ; ControlSource = "m.nract", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 506, ; Name = "Text1", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 2, ; Top = 57, ; Width = 180, ; ZOrderSet = 8 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text10' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.scd", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 506, ; Name = "Text10", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 11, ; Top = 273, ; Width = 180, ; ZOrderSet = 25 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text11' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.ascd", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 506, ; Name = "Text11", ; SpecialEffect = 2, ; TabIndex = 12, ; Top = 296, ; Width = 180, ; ZOrderSet = 19 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text16' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; BorderStyle = 0, ; ControlSource = "m.nl", ; FontName = "Comic Sans MS", ; FontSize = 10, ; ForeColor = 255,255,255, ; Height = 23, ; Left = 369, ; Name = "Text16", ; TabIndex = 30, ; TabStop = .F., ; Top = 5, ; Width = 27, ; ZOrderSet = 27 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text17' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; BorderStyle = 0, ; ControlSource = "m.an", ; FontName = "Comic Sans MS", ; FontSize = 10, ; ForeColor = 255,255,255, ; Height = 23, ; Left = 400, ; Name = "Text17", ; TabIndex = 31, ; TabStop = .F., ; Top = 5, ; Width = 64, ; ZOrderSet = 29 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text2' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; BorderStyle = 1, ; ControlSource = "m.dataact", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 506, ; Name = "Text2", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 3, ; Top = 81, ; Width = 180, ; ZOrderSet = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text3' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.denumire", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K!", ; Height = 22, ; Left = 506, ; Name = "Text3", ; SpecialEffect = 2, ; TabIndex = 4, ; Top = 105, ; Width = 180, ; ZOrderSet = 12 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text4' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.valoare", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; InputMask = (get_mask(14,gnZ)), ; Left = 506, ; Name = "Text4", ; SpecialEffect = 2, ; TabIndex = 5, ; Top = 129, ; Width = 180, ; ZOrderSet = 14 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text5' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; BorderStyle = 1, ; ControlSource = "m.nrord", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 506, ; Name = "Text5", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 6, ; Top = 153, ; Width = 180, ; ZOrderSet = 34 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text6' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.nrinv", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 506, ; Name = "Text6", ; SpecialEffect = 2, ; TabIndex = 7, ; Top = 177, ; Width = 180, ; ZOrderSet = 17 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text7' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.NUMEgest", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 506, ; Name = "Text7", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 8, ; Top = 201, ; Width = 180, ; ZOrderSet = 21 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text8' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.respons", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 506, ; Name = "Text8", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 9, ; Top = 225, ; Width = 180, ; ZOrderSet = 26 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text9' AS textbox WITH ; Alignment = 3, ; BackStyle = 0, ; ControlSource = "m.sectie", ; Enabled = .F., ; FontName = "Arial Narrow", ; Format = "K", ; Height = 22, ; Left = 506, ; Name = "Text9", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 10, ; Top = 249, ; Width = 180, ; ZOrderSet = 20 *< END OBJECT: BaseClass="textbox" /> PROCEDURE Init SELECT actcs this.grid1.SetAll("DynamicForeColor","IIF(INTR = 0, RGB(255,0,0),IIF(intr = 1,RGB(0,0,0),RGB(0,0,255)))","Column") ENDPROC PROCEDURE Grid1.AfterRowColChange LPARAMETERS nColIndex local i,s,t,TVAL s=.t. sele actcs scatter memvar m.datapif=m.dataact m.tipamort='Liniara' m.valoare=m.suma _nract=m.nract _dataact=m.dataact _cod=m.cod IF m.intr = 1 OR m.intr = 2 SELECT mf LOCATE FOR cod = m.cod IF FOUND() SCATTER MEMVAR ENDIF ENDIF FOR i=1 to 11 if m.intr = 1 t='thisform.text'+alltrim(str(i))+'.enabled= .f.' else t='thisform.text'+alltrim(str(i))+'.enabled= .t.' endif &t ENDFOR FOR i=1 to 11 t='thisform.text'+alltrim(str(i))+'.REFRESH' &t ENDFOR DO CASE CASE m.intr = 0 thisform.label21.ForeColor = 255 thisform.label21.Caption = 'Acest element nu este introdus!' INTRODUSTOT = .f. CASE m.intr = 1 thisform.label21.ForeColor = 0 thisform.label21.Caption = 'Acest element este introdus!' INTRODUSTOT = .t. CASE m.intr = 2 thisform.label21.ForeColor = 16711680 thisform.label21.Caption = 'Introdus partial!' INTRODUSTOT = .f. ENDCASE ENDPROC PROCEDURE Grid1.When *set filter to !deleted() ENDPROC PROCEDURE Terminat1.Command1.Click m.nract=_nract m.dataact=_dataact m.cod=_cod Sele ACTCS If !INTRODUSTOT m.CASAT=.F. * m.tipcalcul=1 m.dataeval = m.datapif m.valin = m.valoare m.codop = 3 m.fel = 'C' Sele mf Appe Blank If Flock() Gather Memvar Endif Unlock Endif Select mflun Append Blank If Flock() Gather Memvar Replace explicatia With 'Preluare din contabilitate',dataora With Datetime() Replace codop With 3 Endif Unlock Select mfanual Append Blank If Flock() Gather Memvar Replace explicatia With 'Preluare din contabilitate',dataora With Datetime() Replace codop With 3 Endif Unlock buton=1 THISFORM.RELEASE *!* od=Create('danu') *!* od.Show(1) *!* If buton==2 *!* Thisform.Release *!* ELSE *!* SELECT mf *!* SCATTER MEMVAR BLANK *!* thisform.Refresh *!* Endif ENDPROC PROCEDURE Text5.Click DO CAUT_ALFa WITH "lucrari","nrord",'NUMELE LUCRARII','M.NRORD' ENDPROC PROCEDURE Text5.GotFocus this.Click ENDPROC PROCEDURE Text6.Valid SELECT mf LOCATE FOR UPPER(ALLTRIM(nrinv))=UPPER(ALLTRIM(m.nrinv)) IF FOUND() DO mesaj WITH 'Exista deja un mijloc fix cu ','acest numar de inventar!' ENDIF ENDPROC PROCEDURE Text7.GotFocus DO CAUT_ALFa WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST' SELE NUMEGEST LOCATE FOR ALLTRIM(NUMEGEST)=ALLTRIM(M.NUMEGEST) SCATTER MEMVAR ENDPROC PROCEDURE Text8.GotFocus DO CAUT_ALFa WITH "respons","nume_2",'NUMELE RESPONSABILULUI','M.NUME_2' M.RESPONS=M.NUME_2 ENDPROC PROCEDURE Text9.GotFocus DO CAUT_ALFa_cursor WITH "sectie","sectie",'NUMELE SECTIEI','M.sectie' SELECT sectie LOCATE FOR UPPER(ALLTRIM(sectie)) = UPPER(ALLTRIM(m.sectie)) IF FOUND() m.id_sectie=id_sectie ENDIF ENDPROC ENDDEFINE DEFINE CLASS frm_schimb_dns AS formtermin OF "..\..\comun\clase\baza.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="t21" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtNorma_min" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtNorma_max" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDataEval" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDR" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtUzuraPrec" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDRani" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> * *m: calcul_dr *p: nlim_max *p: nlim_min * * BorderStyle = 1 DoCreate = .T. Height = 261 Name = "frm_schimb_dns" nlim_max = 0 nlim_min = 0 Width = 418 Shape1.Height = 36 Shape1.Left = 0 Shape1.Name = "Shape1" Shape1.Top = 0 Shape1.Width = 431 Shape1.ZOrderSet = 1 Terminat1.Command1.Name = "Command1" Terminat1.Imbuton1.Height = 29 Terminat1.Imbuton1.Name = "Imbuton1" Terminat1.Imbuton1.Width = 27 Terminat1.Left = 386 Terminat1.Name = "Terminat1" Terminat1.TabIndex = 7 Terminat1.Top = 3 Terminat1.ZOrderSet = 3 Titlufrumos1.Caption = "Schimbare DNS de calcul" Titlufrumos1.Height = 18 Titlufrumos1.Left = 7 Titlufrumos1.Name = "Titlufrumos1" Titlufrumos1.TabIndex = 9 Titlufrumos1.Top = 9 Titlufrumos1.Width = 364 Titlufrumos1.ZOrderSet = 2 * ADD OBJECT 'Label1' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Durata normala de serviciu (DNS de calcul)", ; FontBold = .F., ; FontItalic = .F., ; FontName = "Arial Narrow", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 9, ; Name = "Label1", ; TabIndex = 17, ; Top = 77, ; Width = 207, ; ZOrderSet = 11 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label10' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Limitele DNS:", ; FontBold = .F., ; FontItalic = .F., ; FontName = "Arial Narrow", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 152, ; Name = "Label10", ; TabIndex = 19, ; Top = 136, ; Width = 65, ; ZOrderSet = 17 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label11' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Durata normala de serviciu schimbata (DNS)", ; FontBold = .F., ; FontItalic = .F., ; FontName = "Arial Narrow", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 9, ; Name = "Label11", ; TabIndex = 18, ; Top = 161, ; Width = 212, ; ZOrderSet = 7 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label12' AS label WITH ; AutoSize = .F., ; BackStyle = 0, ; Caption = "ani = luni", ; FontBold = .T., ; ForeColor = 0,0,187, ; Height = 17, ; Left = 265, ; Name = "Label12", ; TabIndex = 29, ; Top = 216, ; Width = 106, ; ZOrderSet = 19 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label14' AS label WITH ; BackStyle = 0, ; Caption = "ani", ; Height = 17, ; Left = 301, ; Name = "Label14", ; TabIndex = 27, ; Top = 137, ; Width = 19, ; ZOrderSet = 18 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; AutoSize = .F., ; BackStyle = 0, ; Caption = "ani = luni", ; Height = 17, ; Left = 265, ; Name = "Label2", ; TabIndex = 22, ; Top = 78, ; Width = 106, ; ZOrderSet = 12 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label25' AS label WITH ; AutoSize = .F., ; BackStyle = 0, ; Caption = "ani = luni", ; Height = 17, ; Left = 265, ; Name = "Label25", ; TabIndex = 28, ; Top = 162, ; Width = 106, ; ZOrderSet = 8 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Cod vechi", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 9, ; Name = "Label3", ; TabIndex = 20, ; Top = 51, ; Width = 58, ; ZOrderSet = 15 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Durata ramasa la data evaluarii", ; FontBold = .T., ; ForeColor = 0,0,187, ; Height = 17, ; Left = 9, ; Name = "Label4", ; TabIndex = 25, ; Top = 216, ; Width = 179, ; ZOrderSet = 22 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label5' AS label WITH ; AutoSize = .T., ; BackColor = 0,0,187, ; BackStyle = 0, ; Caption = "Data schimbarii duratei ramase", ; Height = 17, ; Left = 9, ; Name = "Label5", ; TabIndex = 23, ; Top = 191, ; Width = 176, ; ZOrderSet = 20 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label6' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Uzura precedenta", ; Height = 17, ; Left = 9, ; Name = "Label6", ; TabIndex = 24, ; Top = 241, ; Visible = .F., ; Width = 99, ; ZOrderSet = 24 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label7' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Amortizarea precedenta", ; Height = 17, ; Left = 9, ; Name = "Label7", ; TabIndex = 26, ; Top = 266, ; Visible = .F., ; Width = 132, ; ZOrderSet = 26 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label8' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "-", ; Height = 17, ; Left = 258, ; Name = "Label8", ; TabIndex = 30, ; Top = 137, ; Width = 6, ; ZOrderSet = 28 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label9' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Cod nou", ; FontBold = .F., ; FontName = "Arial", ; FontShadow = .F., ; FontSize = 10, ; ForeColor = 0,0,0, ; Height = 18, ; Left = 9, ; Name = "Label9", ; TabIndex = 21, ; Top = 112, ; Width = 50, ; ZOrderSet = 15 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'RENUNT1' AS renunt WITH ; Left = 355, ; Name = "RENUNT1", ; TabIndex = 8, ; Top = 3, ; ZOrderSet = 30, ; Imbuton1.Height = 27, ; Imbuton1.Name = "Imbuton1", ; Imbuton1.Width = 30, ; Command1.Name = "Command1" *< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" /> ADD OBJECT 'Shape2' AS shape WITH ; BackStyle = 0, ; BorderColor = 128,128,128, ; Height = 61, ; Left = 6, ; Name = "Shape2", ; Top = 43, ; Width = 405, ; ZOrderSet = 0 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape3' AS shape WITH ; BackStyle = 0, ; BorderColor = 128,128,128, ; Height = 76, ; Left = 6, ; Name = "Shape3", ; Top = 107, ; Width = 405, ; ZOrderSet = 4 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 't21' AS textbox WITH ; Alignment = 3, ; ControlSource = "pnDNS", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "rk", ; Height = 22, ; InputMask = "9999", ; Left = 301, ; Name = "t21", ; ReadOnly = .T., ; SpecialEffect = 1, ; TabIndex = 12, ; Top = 157, ; Width = 39, ; ZOrderSet = 9 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text1' AS textbox WITH ; Alignment = 3, ; ControlSource = "omf.normaan", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; InputMask = "999.999", ; Left = 223, ; Name = "Text1", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 10, ; TabStop = .F., ; Top = 75, ; Width = 37, ; ZOrderSet = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text2' AS textbox WITH ; Alignment = 3, ; ControlSource = "omf.normat", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 301, ; Name = "Text2", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 11, ; TabStop = .F., ; Top = 75, ; Width = 36, ; ZOrderSet = 13 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text3' AS textbox WITH ; ControlSource = "omf.codmf", ; FontName = "Arial Narrow", ; Height = 22, ; Left = 223, ; Name = "Text3", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 1, ; Top = 49, ; Width = 180, ; ZOrderSet = 14 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text7' AS textbox WITH ; Alignment = 3, ; ControlSource = "pcCodmf", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; Left = 223, ; Name = "Text7", ; ReadOnly = .T., ; SpecialEffect = 2, ; TabIndex = 2, ; Top = 110, ; Width = 180, ; ZOrderSet = 5 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text8' AS textbox WITH ; Alignment = 3, ; ControlSource = "pnDNSani", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 22, ; InputMask = "99.99", ; Left = 223, ; Name = "Text8", ; ReadOnly = .F., ; SpecialEffect = 1, ; TabIndex = 3, ; Top = 157, ; Width = 40, ; ZOrderSet = 6 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text9' AS textbox WITH ; ControlSource = "omf.amortprec", ; FontName = "Arial Narrow", ; Format = "", ; Height = 23, ; InputMask = "99 999 999 999 999", ; Left = 223, ; Name = "Text9", ; ReadOnly = .F., ; SpecialEffect = 1, ; TabIndex = 6, ; Top = 263, ; Visible = .F., ; Width = 102, ; ZOrderSet = 27 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtDataEval' AS textbox WITH ; ControlSource = "pdDataEval", ; FontName = "Arial Narrow", ; Format = "", ; Height = 23, ; Left = 223, ; Name = "txtDataEval", ; ReadOnly = .F., ; SpecialEffect = 1, ; TabIndex = 4, ; Top = 188, ; Width = 66, ; ZOrderSet = 21 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtDR' AS textbox WITH ; ControlSource = "pnDR", ; FontName = "Arial Narrow", ; Format = "", ; Height = 23, ; InputMask = "999 999", ; Left = 301, ; Name = "txtDR", ; ReadOnly = .T., ; SpecialEffect = 1, ; TabIndex = 13, ; Top = 213, ; Width = 38, ; ZOrderSet = 23 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtDRani' AS textbox WITH ; ControlSource = "pnDRani", ; FontName = "Arial Narrow", ; Format = "", ; Height = 23, ; InputMask = "99.99", ; Left = 223, ; Name = "txtDRani", ; ReadOnly = .T., ; SpecialEffect = 1, ; TabIndex = 14, ; Top = 213, ; Width = 38, ; ZOrderSet = 29 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtNorma_max' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.norma_max", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 20, ; InputMask = "999", ; Left = 266, ; Name = "txtNorma_max", ; ReadOnly = .T., ; SpecialEffect = 1, ; TabIndex = 16, ; TabStop = .F., ; Top = 135, ; Width = 32, ; ZOrderSet = 16 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtNorma_min' AS textbox WITH ; Alignment = 3, ; ControlSource = "m.norma_min", ; Enabled = .T., ; FontName = "Arial Narrow", ; Format = "k", ; Height = 20, ; InputMask = "999", ; Left = 223, ; Name = "txtNorma_min", ; ReadOnly = .T., ; SpecialEffect = 1, ; TabIndex = 15, ; TabStop = .F., ; Top = 135, ; Width = 32, ; ZOrderSet = 15 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtUzuraPrec' AS textbox WITH ; ControlSource = "pnUzuraPrec", ; FontName = "Arial Narrow", ; Format = "", ; Height = 23, ; InputMask = "999 999", ; Left = 223, ; Name = "txtUzuraPrec", ; SpecialEffect = 1, ; TabIndex = 5, ; Top = 238, ; Visible = .F., ; Width = 66, ; ZOrderSet = 25 *< END OBJECT: BaseClass="textbox" /> PROCEDURE calcul_dr PARAMETERS tnValue IF PCOUNT() = 0 tnValue = pnDNSani ENDIF LOCAL lnUzura lnUzura = 0 pnDNS = tnValue*12 *omf.dataeval = omf.datapif lnUzura = omf.uzura - (VAL(m.an)*12+VAL(m.nl) - YEAR(pdDataEval)*12 - MONTH(pdDataEval)) && uzura in luna trecuta pnDR = ROUND((1-lnUzura/omf.normat) * pnDNS,0) pnDRani = ROUND(pnDR/12,3) pnUzuraPrec = pnDNS - lnUzura - pnDR && = noul DNS - uzura pana in momentul de fata (inclusiv luna crt)- noua durata ramasa thisform.Refresh ENDPROC PROCEDURE Text7.GotFocus *!* LOCAL den *!* den=m.denumire *!* LOCAL SALV1,SALV2,salv3 *!* SALV1=M.NORMAT *!* SALV2=M.NORMAAN *!* salv3=m.codmf *!* OCA=CREATEOBJECT("NORMATREE_2005") *!* OCA.SHOW(1) *!* IF buton=2 *!* IF TYPE('M.NORMAT')='C' *!* m.NORMAT=STR(SALV1) *!* m.NORMAAN=STR(SALV2) *!* m.codmf=salv3 *!* ENDIF *!* RETURN *!* ENDIF *!* SELE norma_2005 *!* SCAT MEMV *!* pcCodMf = norma_2005.codmf *!* THISFORM.txtNorma_min.REFRESH *!* THISFORM.txtNorma_max.REFRESH LOCAL den *STORE 0 TO m.norma_min, m.norma_max den=m.denumire IF VAL(m.an)>=2005 SELE norma_2005 SCATTER NAME onorma BLANK OCA=CREATEOBJECT("NORMATREE_2005") OCA.SHOW(1) *SELE norma_2005 ELSE SELE NORMA SCATTER NAME onorma BLANK OCA=CREATEOBJECT("NORMATREE") OCA.SHOW(1) *SELE NORMA ENDIF m.denumire=den IF buton = 1 IF VAL(m.an)>=2005 m.normaan = onorma.norma_min m.normat = onorma.norma_min*12 m.norma_min = onorma.norma_min m.norma_max = onorma.norma_max ELSE IF TYPE('onorma.NORMAT')='C' m.normat=VAL(onorma.normat) ENDIF IF TYPE('onorma.NORMAAN')='C' m.normaan=VAL(onorma.normaan) ENDIF ENDIF pcCodMf = onorma.codmf ENDIF THISFORM.txtNorma_min.REFRESH THISFORM.txtNorma_max.REFRESH RELEASE onorma ENDPROC PROCEDURE Text8.LostFocus *thisform.calcul_dr(this.value) *!* LOCAL lnUzura *!* lnUzura = 0 pnDNS = this.Value*12 *!* *!* DO CASE && aici calculez DR !!! *!* CASE omf.dataeval = omf.datapif *!* lnUzura = omf.uzura - (VAL(m.an)*12+VAL(m.nl) - 2005*12+1) - 1 *!* OTHERWISE && uzura = datacrt - dataeval *!* lnUzura = (VAL(m.an)*12+VAL(m.nl)) - (YEAR(omf.dataeval)*12+MONTH(omf.dataeval)) *!* ENDCASE *!* pnDR = (1-lnUzura/omf.normat2lun) * this.Value * 12 *!* pnDRani = pnDR/12 *!* pnUzuraPrec = (VAL(m.an)*12+VAL(m.nl) - (2005*12+1)) thisform.Refresh ENDPROC PROCEDURE Text8.Valid IF (m.norma_min <= this.Value AND this.Value <= m.norma_max) ELSE DO mesaj WITH "Durata introdusa nu este din interval","" RETURN 0 ENDIF ENDPROC PROCEDURE Text9.Valid *!* IF !EMPTY(omf.dataeval) *!* LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval)) *!* m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec *!* ENDIF *!* m.normat2=ROUND(m.normat2lun/12,2) ENDPROC PROCEDURE txtDataEval.Init LOCAL lcData, ldUltimaZi *!* lcData = "01/"+m.nl+"/"+m.an *!* ldUltimaZi = GOMONTH(CTOD(lcData),1)-1 *!* pdDataeval = ldUltimaZi *!* this.Refresh ENDPROC PROCEDURE txtDataEval.LostFocus lnDN = pnDNSani thisform.calcul_dr(lnDN) *pnUzuraPrec = (YEAR(pdDataEval)*12+MONTH(pdDataEval)-(2005*12+1)) *thisform.txtUzuraPrec.Refresh ENDPROC PROCEDURE txtDataEval.Valid *!* IF !EMPTY(omf.dataeval) *!* LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval)) *!* m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec *!* ENDIF *!* m.normat2=ROUND(m.normat2lun/12,2) ENDPROC PROCEDURE txtDR.Valid *!* IF !EMPTY(omf.dataeval) *!* LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval)) *!* m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec *!* ENDIF *!* m.normat2=ROUND(m.normat2lun/12,2) ENDPROC PROCEDURE txtDRani.Valid *!* IF !EMPTY(omf.dataeval) *!* LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval)) *!* m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec *!* ENDIF *!* m.normat2=ROUND(m.normat2lun/12,2) ENDPROC ENDDEFINE DEFINE CLASS nom_sectii AS formtermin OF "..\..\comun\clase\baza.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< 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="NOU1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="STERGE1" UniqueID="" Timestamp="" /> * DoCreate = .T. Height = 390 Name = "nom_sectii" Width = 314 Shape1.Height = 34 Shape1.Left = 0 Shape1.Name = "Shape1" Shape1.Top = 0 Shape1.Width = 215 Terminat1.Command1.Name = "Command1" Terminat1.Imbuton1.Height = 29 Terminat1.Imbuton1.Name = "Imbuton1" Terminat1.Imbuton1.Width = 27 Terminat1.Left = 281 Terminat1.Name = "Terminat1" Terminat1.Top = 2 Titlufrumos1.AutoSize = .T. Titlufrumos1.Caption = "Nomenclator sectii" Titlufrumos1.Height = 20 Titlufrumos1.Left = 7 Titlufrumos1.Name = "Titlufrumos1" Titlufrumos1.Top = 5 Titlufrumos1.Width = 113 * ADD OBJECT 'Grid1' AS grid WITH ; ColumnCount = 2, ; DeleteMark = .F., ; Height = 336, ; Left = 10, ; Name = "Grid1", ; Panel = 1, ; RecordSource = "sectie", ; Top = 46, ; Width = 297, ; Column1.ControlSource = "sectie", ; Column1.Format = "!", ; Column1.Name = "Column1", ; Column1.Width = 203, ; Column2.ControlSource = "id_sectie", ; Column2.Name = "Column2", ; Column2.Width = 63 *< END OBJECT: BaseClass="grid" /> ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Sectie", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Indicativ", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'NOU1' AS nou WITH ; Left = 249, ; Name = "NOU1", ; Top = 2, ; Imbuton1.Height = 27, ; Imbuton1.Name = "Imbuton1", ; Imbuton1.Width = 30, ; Command1.Name = "Command1" *< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" /> ADD OBJECT 'STERGE1' AS sterge WITH ; Left = 218, ; Name = "STERGE1", ; Top = 2, ; Imbuton1.Height = 27, ; Imbuton1.Name = "Imbuton1", ; Imbuton1.Width = 30, ; Command1.Name = "Command1" *< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" /> PROCEDURE NOU1.Command1.Click SELECT SECTIE APPEND BLANK REPLACE SECTIE WITH " Sectie Noua" thisform.grid1.SetFocus ENDPROC PROCEDURE STERGE1.Command1.Click sele sectie scatter NAME osec buton=2 do DaSauNu with 'Se elimina sectia '+allt(osec.sectie)+'?' if buton=1 SELECT mf LOCATE FOR UPPER(ALLTRIM(id_sectie)) = UPPER(ALLTRIM(osec.id_sectie)) IF FOUND() do mesajrosu with 'In sectia '+alltrim(osec.id_sectie),'exista inregistrari! Nu se poate elimina!' buton = 2 ENDIF ENDIF if buton=1 sele sectie DELETE FOR UPPER(ALLTRIM(sectie)) = UPPER(ALLTRIM(osec.sectie)) AND UPPER(ALLTRIM(id_sectie)) = UPPER(ALLTRIM(osec.id_sectie)) ENDIF RELEASE osec go top thisform.grid1.refresh ENDPROC ENDDEFINE