17477 lines
455 KiB
Plaintext
17477 lines
455 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="mfix2000.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" && Application class.
|
|
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
clastcaption = Microsoft Visual FoxPro
|
|
clasticon =
|
|
Name = "capplication"
|
|
nformcount = 0
|
|
*</PropValue>
|
|
|
|
PROCEDURE onshutdown
|
|
IF glQuit
|
|
QUIT
|
|
ENDIF
|
|
os=CREATEOBJECT('sigur')
|
|
os.show(1)
|
|
IF buton=1
|
|
*!* do inchidprog
|
|
*!* thisform.release
|
|
QUIT
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS casdanu AS danu OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 155
|
|
Name = "casdanu"
|
|
Width = 306
|
|
SEIP1.Height = 144
|
|
SEIP1.Left = 4
|
|
SEIP1.Name = "SEIP1"
|
|
SEIP1.Top = 6
|
|
SEIP1.Width = 296
|
|
SEIP1.ZOrderSet = 0
|
|
Image1.Height = 32
|
|
Image1.Name = "Image1"
|
|
Image1.Width = 32
|
|
Image1.ZOrderSet = 1
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 2
|
|
Label1.AutoSize = .F.
|
|
Label1.Caption = "Se caseaza mijlocul fix:"
|
|
Label1.FontSize = 10
|
|
Label1.Height = 37
|
|
Label1.Left = 57
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 23
|
|
Label1.Width = 216
|
|
Label1.WordWrap = .T.
|
|
Label1.ZOrderSet = 3
|
|
Label2.Name = "Label2"
|
|
Label2.ZOrderSet = 4
|
|
CMDTERMIN1.Command1.Name = "Command1"
|
|
CMDTERMIN1.Imbuton1.Height = 29
|
|
CMDTERMIN1.Imbuton1.Name = "Imbuton1"
|
|
CMDTERMIN1.Imbuton1.Width = 27
|
|
CMDTERMIN1.Left = 61
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.Top = 120
|
|
CMDTERMIN1.ZOrderSet = 5
|
|
Label3.Name = "Label3"
|
|
Label3.ZOrderSet = 6
|
|
Nu1.Command1.Name = "Command1"
|
|
Nu1.Imbuton1.Height = 27
|
|
Nu1.Imbuton1.Name = "Imbuton1"
|
|
Nu1.Imbuton1.Width = 51
|
|
Nu1.Left = 154
|
|
Nu1.Name = "Nu1"
|
|
Nu1.Top = 114
|
|
Nu1.ZOrderSet = 7
|
|
Da1.Command1.Name = "Command1"
|
|
Da1.Imbuton1.Height = 27
|
|
Da1.Imbuton1.Name = "Imbuton1"
|
|
Da1.Imbuton1.Width = 51
|
|
Da1.Left = 102
|
|
Da1.Name = "Da1"
|
|
Da1.Top = 114
|
|
Da1.ZOrderSet = 8
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Cu Numarul de Inventar:", ;
|
|
Height = 17, ;
|
|
Left = 16, ;
|
|
Name = "Label4", ;
|
|
Top = 58, ;
|
|
Width = 133, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label5' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Denumirea:", ;
|
|
Height = 17, ;
|
|
Left = 16, ;
|
|
Name = "Label5", ;
|
|
Top = 83, ;
|
|
Width = 65, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "m.nrinv", ;
|
|
Height = 23, ;
|
|
Left = 152, ;
|
|
Name = "Text1", ;
|
|
Top = 56, ;
|
|
Width = 137, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "m.denumire", ;
|
|
Height = 23, ;
|
|
Left = 87, ;
|
|
Name = "Text2", ;
|
|
Top = 81, ;
|
|
Width = 200, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS eroareverif AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 194
|
|
Name = "eroareverif"
|
|
Width = 436
|
|
Line1.Left = 8
|
|
Line1.Name = "Line1"
|
|
Line1.Top = 486
|
|
Line1.ZOrderSet = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "DOCUMENTUL:", ;
|
|
Height = 17, ;
|
|
Left = 18, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 3, ;
|
|
Top = 46, ;
|
|
Width = 90, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "/", ;
|
|
Height = 17, ;
|
|
Left = 310, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 6, ;
|
|
Top = 46, ;
|
|
Width = 5, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "TOTAL ACHIZITIE:", ;
|
|
Height = 17, ;
|
|
Left = 17, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 8, ;
|
|
Top = 88, ;
|
|
Width = 101, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "VALOARE MIJLOACE FIXE INSCRISE:", ;
|
|
Height = 17, ;
|
|
Left = 17, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 9, ;
|
|
Top = 112, ;
|
|
Width = 208, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label5' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Introdus gresit!", ;
|
|
FontBold = .T., ;
|
|
FontItalic = .T., ;
|
|
FontSize = 11, ;
|
|
ForeColor = 255,0,0, ;
|
|
Height = 19, ;
|
|
Left = 17, ;
|
|
Name = "Label5", ;
|
|
TabIndex = 12, ;
|
|
Top = 155, ;
|
|
Width = 109, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label6' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Nr.", ;
|
|
Height = 17, ;
|
|
Left = 214, ;
|
|
Name = "Label6", ;
|
|
TabIndex = 6, ;
|
|
Top = 45, ;
|
|
Width = 18, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
Height = 2, ;
|
|
Left = 17, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 65, ;
|
|
Width = 400, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
Height = 2, ;
|
|
Left = 17, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 135, ;
|
|
Width = 400, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape3' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 142, ;
|
|
Left = 6, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 42, ;
|
|
Width = 420, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape4' AS shape WITH ;
|
|
BackColor = 0,64,128, ;
|
|
BorderStyle = 0, ;
|
|
BorderWidth = 0, ;
|
|
Height = 36, ;
|
|
Left = -5, ;
|
|
Name = "Shape4", ;
|
|
Top = 0, ;
|
|
Width = 552, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Terminat1' AS terminat WITH ;
|
|
Left = 391, ;
|
|
Name = "Terminat1", ;
|
|
Picture = ..\..\comun\grafice\orb.bmp, ;
|
|
Top = 2, ;
|
|
ZOrderSet = 1, ;
|
|
Imbuton1.Height = 29, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 27, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "M.FDOC", ;
|
|
Height = 20, ;
|
|
Left = 110, ;
|
|
Name = "Text1", ;
|
|
TabIndex = 4, ;
|
|
TabStop = .F., ;
|
|
Top = 43, ;
|
|
Width = 100, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "M.NRACT", ;
|
|
Height = 20, ;
|
|
Left = 227, ;
|
|
Name = "Text2", ;
|
|
TabIndex = 5, ;
|
|
TabStop = .F., ;
|
|
Top = 43, ;
|
|
Width = 80, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text3' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "M.DATAACT", ;
|
|
Height = 20, ;
|
|
Left = 319, ;
|
|
Name = "Text3", ;
|
|
TabIndex = 7, ;
|
|
TabStop = .F., ;
|
|
Top = 43, ;
|
|
Width = 80, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text4' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "M.SUMA", ;
|
|
Format = "R", ;
|
|
Height = 20, ;
|
|
InputMask = "999 999 999 999 999", ;
|
|
Left = 233, ;
|
|
Name = "Text4", ;
|
|
TabIndex = 10, ;
|
|
TabStop = .F., ;
|
|
Top = 86, ;
|
|
Width = 132, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text5' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "TOTVAL", ;
|
|
Format = "R", ;
|
|
Height = 20, ;
|
|
InputMask = "999 999 999 999 999", ;
|
|
Left = 233, ;
|
|
Name = "Text5", ;
|
|
TabIndex = 11, ;
|
|
TabStop = .F., ;
|
|
Top = 112, ;
|
|
Width = 132, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
|
|
Caption = "Imobilizari - Eroare de introducere", ;
|
|
FontSize = 11, ;
|
|
Height = 37, ;
|
|
Left = 8, ;
|
|
Name = "Titlufrumos1", ;
|
|
Top = 4, ;
|
|
Width = 320, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS fisa AS ffergen OF "ferestrebaza.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="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDRENUNT1" 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="Shape3" 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="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="CMDTERMIN1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text24" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label29" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label30" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text21" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text22" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="LIST1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="T23" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label27" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label31" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text19" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text29" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="T21" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: fel_imob
|
|
*p: valrez
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BackColor = 255,255,255
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
fel_imob = ''
|
|
Height = 477
|
|
Name = "fisa"
|
|
valrez = 0
|
|
Width = 565
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Banda21' AS banda2 WITH ;
|
|
Height = 30, ;
|
|
Left = 0, ;
|
|
Name = "Banda21", ;
|
|
Top = 0, ;
|
|
Width = 456, ;
|
|
ZOrderSet = 69
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
|
|
Enabled = .T., ;
|
|
Height = 27, ;
|
|
Left = 331, ;
|
|
Name = "Cmdlist1", ;
|
|
TabIndex = 39, ;
|
|
Top = 528, ;
|
|
Visible = .F., ;
|
|
Width = 38, ;
|
|
ZOrderSet = 70, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
|
|
Height = 27, ;
|
|
Left = 369, ;
|
|
Name = "CMDRENUNT1", ;
|
|
TabIndex = 38, ;
|
|
Top = 528, ;
|
|
Visible = .F., ;
|
|
Width = 38, ;
|
|
ZOrderSet = 7, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
|
Height = 27, ;
|
|
Left = 408, ;
|
|
Name = "CMDTERMIN1", ;
|
|
TabIndex = 37, ;
|
|
Top = 528, ;
|
|
Visible = .F., ;
|
|
Width = 38, ;
|
|
ZOrderSet = 61, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
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 = 414, ;
|
|
Name = "Combo1", ;
|
|
ReadOnly = .F., ;
|
|
RowSource = "1.5,2,2.5", ;
|
|
RowSourceType = 1, ;
|
|
SpecialEffect = 2, ;
|
|
Style = 0, ;
|
|
TabIndex = 19, ;
|
|
Top = 89, ;
|
|
Value = , ;
|
|
Width = 130, ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
|
Caption = "Calculul amortizarii", ;
|
|
Height = 60, ;
|
|
Left = 288, ;
|
|
Name = "Command1", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 75, ;
|
|
Top = 408, ;
|
|
Width = 264, ;
|
|
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 = 298, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 41, ;
|
|
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 = 298, ;
|
|
Name = "Label10", ;
|
|
TabIndex = 54, ;
|
|
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 = 298, ;
|
|
Name = "Label11", ;
|
|
TabIndex = 44, ;
|
|
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 = 327, ;
|
|
Name = "Label12", ;
|
|
TabIndex = 52, ;
|
|
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 = 298, ;
|
|
Name = "Label13", ;
|
|
TabIndex = 57, ;
|
|
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 = 30, ;
|
|
Name = "Label14", ;
|
|
TabIndex = 60, ;
|
|
Top = 313, ;
|
|
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 = 30, ;
|
|
Name = "Label15", ;
|
|
TabIndex = 62, ;
|
|
Top = 337, ;
|
|
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 = 31, ;
|
|
Name = "Label16", ;
|
|
TabIndex = 66, ;
|
|
Top = 411, ;
|
|
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 = 30, ;
|
|
Name = "Label17", ;
|
|
TabIndex = 69, ;
|
|
Top = 261, ;
|
|
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 = 339, ;
|
|
Name = "Label18", ;
|
|
TabIndex = 48, ;
|
|
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 = 357, ;
|
|
Name = "Label19", ;
|
|
TabIndex = 49, ;
|
|
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 = 439, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 73, ;
|
|
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 = 324, ;
|
|
Name = "Label20", ;
|
|
TabIndex = 50, ;
|
|
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 = 351, ;
|
|
Name = "Label21", ;
|
|
TabIndex = 46, ;
|
|
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 = 354, ;
|
|
Name = "Label22", ;
|
|
TabIndex = 43, ;
|
|
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 = 358, ;
|
|
Name = "Label23", ;
|
|
TabIndex = 58, ;
|
|
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 = 345, ;
|
|
Name = "Label24", ;
|
|
TabIndex = 56, ;
|
|
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 = 439, ;
|
|
Name = "Label25", ;
|
|
TabIndex = 72, ;
|
|
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 = 297, ;
|
|
Name = "Label26", ;
|
|
TabIndex = 51, ;
|
|
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 = 325, ;
|
|
Name = "Label27", ;
|
|
TabIndex = 47, ;
|
|
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 = 30, ;
|
|
Name = "Label28", ;
|
|
TabIndex = 45, ;
|
|
Top = 173, ;
|
|
Width = 109, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 34
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label29' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Valoare reziduala:", ;
|
|
FontBold = .F., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 29, ;
|
|
Name = "Label29", ;
|
|
TabIndex = 42, ;
|
|
Top = 469, ;
|
|
Visible = .F., ;
|
|
Width = 106, ;
|
|
ZOrderSet = 65
|
|
*< 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 = 30, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 55, ;
|
|
Top = 49, ;
|
|
Width = 83, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label30' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Calculul amortizarii:", ;
|
|
FontBold = .F., ;
|
|
FontItalic = .T., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 312, ;
|
|
Name = "Label30", ;
|
|
TabIndex = 40, ;
|
|
Top = 468, ;
|
|
Visible = .F., ;
|
|
Width = 116, ;
|
|
ZOrderSet = 66
|
|
*< 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 = 325, ;
|
|
Name = "Label31", ;
|
|
TabIndex = 53, ;
|
|
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 = 30, ;
|
|
Name = "Label32", ;
|
|
TabIndex = 64, ;
|
|
Top = 362, ;
|
|
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 = 30, ;
|
|
Name = "Label33", ;
|
|
TabIndex = 70, ;
|
|
Top = 436, ;
|
|
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 = 30, ;
|
|
Name = "Label34", ;
|
|
TabIndex = 63, ;
|
|
Top = 387, ;
|
|
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 = 30, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 59, ;
|
|
Top = 72, ;
|
|
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 = 30, ;
|
|
Name = "Label5", ;
|
|
TabIndex = 61, ;
|
|
Top = 109, ;
|
|
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 = 30, ;
|
|
Name = "Label6", ;
|
|
TabIndex = 65, ;
|
|
Top = 147, ;
|
|
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 = 30, ;
|
|
Name = "Label7", ;
|
|
TabIndex = 67, ;
|
|
Top = 208, ;
|
|
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 = 30, ;
|
|
Name = "Label8", ;
|
|
TabIndex = 68, ;
|
|
Top = 234, ;
|
|
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 = 31, ;
|
|
Name = "Label9", ;
|
|
TabIndex = 71, ;
|
|
Top = 288, ;
|
|
Width = 25, ;
|
|
ZOrderSet = 26
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'LIST1' AS list WITH ;
|
|
Left = 460, ;
|
|
Name = "LIST1", ;
|
|
TabIndex = 34, ;
|
|
Top = 3, ;
|
|
ZOrderSet = 74, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
|
|
BackStyle = 0, ;
|
|
ButtonCount = 2, ;
|
|
Height = 47, ;
|
|
Left = 305, ;
|
|
Name = "Optiongroup1", ;
|
|
TabIndex = 31, ;
|
|
Top = 483, ;
|
|
Value = 1, ;
|
|
Visible = .F., ;
|
|
Width = 264, ;
|
|
ZOrderSet = 78, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.BackStyle = 0, ;
|
|
Option1.Caption = "Folosind cota", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 5, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 5, ;
|
|
Option1.Value = 1, ;
|
|
Option1.Width = 92, ;
|
|
Option2.AutoSize = .F., ;
|
|
Option2.BackStyle = 0, ;
|
|
Option2.Caption = "Valoare ramasa de amortizat / Luni ramase", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 5, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 24, ;
|
|
Option2.Value = 0, ;
|
|
Option2.Width = 255
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'Renunt1' AS renunt WITH ;
|
|
Left = 493, ;
|
|
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 'Shape1' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 366, ;
|
|
Left = 289, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 39, ;
|
|
Width = 266, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 430, ;
|
|
Left = 12, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 38, ;
|
|
Width = 266, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape3' AS shape WITH ;
|
|
Height = 2, ;
|
|
Left = 289, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 242, ;
|
|
Width = 266, ;
|
|
ZOrderSet = 28
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape4' AS shape WITH ;
|
|
Height = 2, ;
|
|
Left = 289, ;
|
|
Name = "Shape4", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 117, ;
|
|
Width = 266, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape5' AS shape WITH ;
|
|
Height = 2, ;
|
|
Left = 289, ;
|
|
Name = "Shape5", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 154, ;
|
|
Width = 266, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape6' AS shape WITH ;
|
|
Height = 2, ;
|
|
Left = 289, ;
|
|
Name = "Shape6", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 313, ;
|
|
Width = 266, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape7' AS shape WITH ;
|
|
Height = 2, ;
|
|
Left = 12, ;
|
|
Name = "Shape7", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 199, ;
|
|
Width = 266, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape8' AS shape WITH ;
|
|
Height = 2, ;
|
|
Left = 12, ;
|
|
Name = "Shape8", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 137, ;
|
|
Width = 266, ;
|
|
ZOrderSet = 81
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape9' AS shape WITH ;
|
|
Height = 2, ;
|
|
Left = 12, ;
|
|
Name = "Shape9", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 96, ;
|
|
Width = 266, ;
|
|
ZOrderSet = 82
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'T21' AS textbox WITH ;
|
|
ControlSource = "m.normat", ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "k", ;
|
|
Height = 22, ;
|
|
InputMask = "999.999", ;
|
|
Left = 482, ;
|
|
Name = "T21", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 25, ;
|
|
Top = 264, ;
|
|
Width = 37, ;
|
|
ZOrderSet = 84
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'T23' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.valin", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "kr", ;
|
|
Height = 22, ;
|
|
InputMask = (get_mask(14,gnZ)), ;
|
|
Left = 150, ;
|
|
Name = "T23", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 5, ;
|
|
TabStop = .F., ;
|
|
Top = 171, ;
|
|
Width = 115, ;
|
|
ZOrderSet = 76
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Terminat1' AS terminat WITH ;
|
|
Left = 525, ;
|
|
Name = "Terminat1", ;
|
|
TabIndex = 32, ;
|
|
Top = 3, ;
|
|
ZOrderSet = 73, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "m.nract", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "k", ;
|
|
Height = 22, ;
|
|
Left = 150, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 1, ;
|
|
Top = 47, ;
|
|
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 = 414, ;
|
|
Name = "Text10", ;
|
|
ReadOnly = .F., ;
|
|
RowSource = "Liniara,Accelerata,Degresiva", ;
|
|
RowSourceType = 1, ;
|
|
SpecialEffect = 0, ;
|
|
Style = 2, ;
|
|
TabIndex = 16, ;
|
|
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 = 150, ;
|
|
Name = "Text11", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 10, ;
|
|
Top = 311, ;
|
|
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 = 150, ;
|
|
Name = "Text12", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 11, ;
|
|
Top = 336, ;
|
|
Width = 115, ;
|
|
ZOrderSet = 58
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text13' AS combobox WITH ;
|
|
Alignment = 3, ;
|
|
BackColor = 255,255,255, ;
|
|
BoundTo = .F., ;
|
|
ControlSource = "m.scd", ;
|
|
DisplayValue = , ;
|
|
FirstElement = 1, ;
|
|
Height = 20, ;
|
|
Left = 456, ;
|
|
Name = "Text13", ;
|
|
ReadOnly = .F., ;
|
|
RowSource = "2121,2122,2123,2124,2125,2126", ;
|
|
RowSourceType = 1, ;
|
|
Style = 0, ;
|
|
TabIndex = 36, ;
|
|
Top = 528, ;
|
|
Value = , ;
|
|
Visible = .F., ;
|
|
Width = 180, ;
|
|
ZOrderSet = 22
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Text14' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.nrinv", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "k", ;
|
|
Height = 22, ;
|
|
Left = 150, ;
|
|
Name = "Text14", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 8, ;
|
|
Top = 259, ;
|
|
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 = 413, ;
|
|
Name = "Text15", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 28, ;
|
|
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 = 414, ;
|
|
Name = "Text16", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 22, ;
|
|
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 = 414, ;
|
|
Name = "Text17", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 23, ;
|
|
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 = 413, ;
|
|
Name = "Text18", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 29, ;
|
|
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 = 413, ;
|
|
Name = "Text19", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 30, ;
|
|
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 = 150, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 2, ;
|
|
Top = 70, ;
|
|
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 = 414, ;
|
|
Name = "Text20", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 18, ;
|
|
ToolTipText = "", ;
|
|
Top = 68, ;
|
|
Width = 130, ;
|
|
ZOrderSet = 33
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text21' AS textbox WITH ;
|
|
ControlSource = "m.scd", ;
|
|
Height = 22, ;
|
|
Left = 150, ;
|
|
Name = "Text21", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 14, ;
|
|
Top = 411, ;
|
|
Width = 115, ;
|
|
ZOrderSet = 67
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text22' AS textbox WITH ;
|
|
ControlSource = "m.valrez", ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "kr", ;
|
|
Height = 22, ;
|
|
InputMask = "99 999 999 999 999", ;
|
|
Left = 149, ;
|
|
Name = "Text22", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 17, ;
|
|
Top = 468, ;
|
|
Visible = .F., ;
|
|
Width = 115, ;
|
|
ZOrderSet = 68
|
|
*< 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 = 398, ;
|
|
Name = "Text23", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 26, ;
|
|
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 = 482, ;
|
|
Name = "Text24", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 27, ;
|
|
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 = 413, ;
|
|
Name = "Text25", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 20, ;
|
|
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 = 150, ;
|
|
Name = "Text26", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 12, ;
|
|
Top = 361, ;
|
|
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 = 150, ;
|
|
Name = "Text27", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 15, ;
|
|
Top = 434, ;
|
|
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 = 150, ;
|
|
Name = "Text28", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 13, ;
|
|
Top = 386, ;
|
|
Width = 115, ;
|
|
ZOrderSet = 52
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text29' AS textbox WITH ;
|
|
ControlSource = "m.denumire", ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "k!", ;
|
|
Height = 22, ;
|
|
Left = 92, ;
|
|
Name = "Text29", ;
|
|
TabIndex = 3, ;
|
|
Top = 108, ;
|
|
Width = 173
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text3' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.denumire", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "k!", ;
|
|
Height = 22, ;
|
|
Left = 672, ;
|
|
Name = "Text3", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 35, ;
|
|
Top = 108, ;
|
|
Visible = .F., ;
|
|
Width = 115, ;
|
|
ZOrderSet = 12
|
|
*< 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 = 150, ;
|
|
Name = "Text4", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 4, ;
|
|
Top = 145, ;
|
|
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 = 150, ;
|
|
Name = "Text5", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 6, ;
|
|
Top = 206, ;
|
|
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 = 150, ;
|
|
Name = "Text6", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 7, ;
|
|
Top = 232, ;
|
|
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 = 150, ;
|
|
Name = "Text7", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 9, ;
|
|
Top = 286, ;
|
|
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 = 398, ;
|
|
Name = "Text8", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 24, ;
|
|
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 = "kr", ;
|
|
Height = 22, ;
|
|
Left = 414, ;
|
|
Name = "Text9", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 21, ;
|
|
ToolTipText = "Uzura la momentul achizitiei", ;
|
|
Top = 172, ;
|
|
Width = 132, ;
|
|
ZOrderSet = 46
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
|
|
Caption = "Fisa Mijlocului Fix", ;
|
|
Height = 37, ;
|
|
Left = 11, ;
|
|
Name = "Titlufrumos1", ;
|
|
TabIndex = 74, ;
|
|
Top = 6, ;
|
|
Width = 355, ;
|
|
ZOrderSet = 71
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
|
|
|
|
PROCEDURE Init
|
|
If Upper(Left(m.tipamort,1))='L'
|
|
m.tipamort='Liniara'
|
|
Endif
|
|
uz=m.uzura-m.uzuraprec
|
|
thisform.valrez=m.valrez
|
|
|
|
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
|
|
|
|
*thisform.text10.value=m.tipamort
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS nStyle
|
|
IF UPPER(ALLTRIM(thisform.fel_imob)) = 'N'
|
|
this.text8.Enabled = .t.
|
|
this.text8.ReadOnly = .f.
|
|
this.t21.Enabled = .t.
|
|
this.t21.ReadOnly = .f.
|
|
this.text23.Enabled = .t.
|
|
this.text23.ReadOnly = .f.
|
|
this.text24.Enabled = .t.
|
|
this.text24.ReadOnly = .f.
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdlist1.Click
|
|
sele act
|
|
locate for cod=m.cod
|
|
m.nume=nume
|
|
do datapif.prg
|
|
|
|
sele mf
|
|
set filter to denumire=m.denumire and cod=m.cod AND nrpif=m.nrpif AND nrinv=m.nrinv
|
|
|
|
thisform.alwaysontop=.f.
|
|
report form fisa_mf2 to printer prompt preview
|
|
thisform.alwaysontop=.t.
|
|
ENDPROC
|
|
|
|
PROCEDURE CMDTERMIN1.Click
|
|
THISFORM.REFRESH
|
|
IF EMPTY(m.normat)
|
|
DO mesaj WITH "Introduceti durata normala de serviciu!",''
|
|
*IF buton=1
|
|
RETURN
|
|
*endif
|
|
ENDIF
|
|
|
|
IF EMPTY(m.valoare)
|
|
DO mesaj WITH "Introduceti valoarea de achizitie!",''
|
|
*IF buton=1
|
|
RETURN
|
|
*endif
|
|
ENDIF
|
|
|
|
IF EMPTY(m.datapif)
|
|
DO mesaj WITH 'Trebuie introdusa data punerii in functiune!',' '
|
|
*IF buton=1
|
|
RETURN
|
|
*endif
|
|
ENDIF
|
|
|
|
THISFORM.RELEASE
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Command1.Click
|
|
do calcamortm.prg
|
|
DO FORM frm_calcul
|
|
thisform.text18.refresh
|
|
thisform.text19.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE LIST1.Command1.Click
|
|
thisform.cmdLIST1.Click
|
|
ENDPROC
|
|
|
|
PROCEDURE Optiongroup1.Init
|
|
*this.Value=m.tipcalcul+1
|
|
ENDPROC
|
|
|
|
PROCEDURE Optiongroup1.Valid
|
|
*m.tipcalcul=this.Value-1
|
|
ENDPROC
|
|
|
|
PROCEDURE Terminat1.Command1.Click
|
|
thisform.cmdtermin1.Click
|
|
*!* thisform.refresh
|
|
*!* if EMPTY(m.normat)
|
|
*!* do mesaj WITH "Introduceti durata normala de serviciu!",''
|
|
*!* *IF buton=1
|
|
*!* RETURN
|
|
*!* *endif
|
|
*!* ENDIF
|
|
|
|
*!* if EMPTY(m.valoare)
|
|
*!* do mesaj WITH "Introduceti valoarea de achizitie!",''
|
|
*!* *IF buton=1
|
|
*!* RETURN
|
|
*!* *endif
|
|
*!* ENDIF
|
|
|
|
*!* if EMPTY(m.datapif)
|
|
*!* do mesaj with 'Trebuie introdusa data punerii in functiune!',' '
|
|
*!* *IF buton=1
|
|
*!* RETURN
|
|
*!* *endif
|
|
*!* ENDIF
|
|
|
|
*!* thisform.Release
|
|
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
|
|
*!* thisform.cmdtermin1.enabled=.f.
|
|
*!* thisform.cmdrenunt1.enabled=.f.
|
|
*!* thisform.cmdlist1.enabled=.f.
|
|
DO CAUT_ALFA WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST'
|
|
*!* thisform.cmdtermin1.enabled=.t.
|
|
*!* thisform.cmdrenunt1.enabled=.t.
|
|
*!* thisform.cmdlist1.enabled=.t.
|
|
SELE NUMEGEST
|
|
LOCATE FOR NUMEGEST=M.NUMEGEST
|
|
SCATTER MEMVAR
|
|
ENDPROC
|
|
|
|
PROCEDURE Text12.GotFocus
|
|
*!* thisform.cmdtermin1.enabled=.f.
|
|
*!* thisform.cmdrenunt1.enabled=.f.
|
|
*!* thisform.cmdlist1.enabled=.f.
|
|
DO CAUT_ALFA WITH "respons","nume_2",'NUMELE RESPONSABILULUI','M.NUME_2'
|
|
*!* thisform.cmdtermin1.enabled=.t.
|
|
*!* thisform.cmdrenunt1.enabled=.t.
|
|
*!* thisform.cmdlist1.enabled=.t.
|
|
M.RESPONS=M.NUME_2
|
|
ENDPROC
|
|
|
|
PROCEDURE Text15.Valid
|
|
thisform.text18.refresh
|
|
thisform.text19.refresh
|
|
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 Text22.GotFocus
|
|
thisform.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text22.Valid
|
|
IF this.Value>thisform.text4.Value
|
|
DO mesaj WITH 'Valoarea reziduala nu poate fi mai mare ','decat valoarea de achizitie !'
|
|
RETURN 0
|
|
ENDIF
|
|
|
|
*!* M.VALRAMASA = M.VALRAMASA +thisform.valrez - M.VALREZ
|
|
*!* thisform.valrez=m.valrez
|
|
*!* thisform.text25.Refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text23.Valid
|
|
*IF thisform.fel_imob='N'
|
|
* m.normat=ROUND(12*m.normaan,0)
|
|
* thisform.t21.Refresh
|
|
*ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Text24.Valid
|
|
*IF thisform.fel_imob='N'
|
|
* m.normaan=ROUND(m.normat/12,3)
|
|
* thisform.text8.Refresh
|
|
*ENDIF
|
|
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
|
|
*!* thisform.cmdtermin1.enabled=.f.
|
|
*!* thisform.cmdrenunt1.enabled=.f.
|
|
*!* thisform.cmdlist1.enabled=.f.
|
|
DO CAUT_ALFA WITH "lucrari","nrord",'NUMELE LUCRARII','M.NRORD'
|
|
|
|
*!* thisform.cmdtermin1.enabled=.t.
|
|
*!* thisform.cmdrenunt1.enabled=.t.
|
|
*!* thisform.cmdlist1.enabled=.t.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text7.GotFocus
|
|
*!* IF thisform.fel_imob='C'
|
|
*!* 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
|
|
*!* pcCodMf = norma_2005.codmf
|
|
*!* m.NORMAT=STR(SALV1)
|
|
*!* m.NORMAAN=STR(SALV2)
|
|
*!* m.codmf=pcCodMf
|
|
*!* THISFORM.TEXT8.REFRESH
|
|
*!* THISFORM.T21.REFRESH
|
|
|
|
*!* THISFORM.TEXT13.REFRESH
|
|
*!* ELSE
|
|
*!* ENDIF
|
|
|
|
|
|
IF thisform.fel_imob#'C'
|
|
RETURN
|
|
ENDIF
|
|
|
|
LOCAL den
|
|
|
|
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 Text7.LostFocus
|
|
*!* IF thisform.fel_imob='C'
|
|
*!* IF TYPE('M.NORMAT')='C'
|
|
*!* m.normat=VAL(m.normat)
|
|
*!* m.normaan=VAL(m.normaan)
|
|
*!* ENDIF
|
|
*!* ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Text8.Valid
|
|
*IF thisform.fel_imob='N'
|
|
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<A,0,12*(NRA-A)+NRL-L)
|
|
if uz=0 and m.uzuraprec#0
|
|
uz=1
|
|
ENDIF
|
|
|
|
m.UZURA = UZ + m.uzuraprec
|
|
|
|
thisform.text16.refresh
|
|
thisform.text17.refresh
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS incurs 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="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="Text14" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text21" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdrenunt2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdlist2" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 286
|
|
Name = "incurs"
|
|
Width = 350
|
|
Shape1.Height = 36
|
|
Shape1.Left = 0
|
|
Shape1.Name = "Shape1"
|
|
Shape1.Top = 0
|
|
Shape1.Width = 253
|
|
Terminat1.Command1.Name = "Command1"
|
|
Terminat1.Imbuton1.Height = 29
|
|
Terminat1.Imbuton1.Name = "Imbuton1"
|
|
Terminat1.Imbuton1.Width = 27
|
|
Terminat1.Left = 317
|
|
Terminat1.Name = "Terminat1"
|
|
Terminat1.TabIndex = 10
|
|
Terminat1.Top = 3
|
|
Terminat1.Visible = .T.
|
|
Titlufrumos1.AutoSize = .F.
|
|
Titlufrumos1.Caption = "Fisa Imobilizarilor in Curs"
|
|
Titlufrumos1.Height = 20
|
|
Titlufrumos1.Left = 7
|
|
Titlufrumos1.Name = "Titlufrumos1"
|
|
Titlufrumos1.TabIndex = 11
|
|
Titlufrumos1.Top = 2
|
|
Titlufrumos1.Width = 245
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
|
|
Enabled = .T., ;
|
|
Left = 36, ;
|
|
Name = "Cmdlist1", ;
|
|
TabIndex = 14, ;
|
|
Top = 324, ;
|
|
Visible = .F., ;
|
|
Width = 84, ;
|
|
ZOrderSet = 20, ;
|
|
IMBUTON1.Height = 27, ;
|
|
IMBUTON1.Name = "IMBUTON1", ;
|
|
IMBUTON1.Width = 30, ;
|
|
COMMAND1.Name = "COMMAND1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Cmdlist2' AS cmdlist WITH ;
|
|
Left = 255, ;
|
|
Name = "Cmdlist2", ;
|
|
TabIndex = 25, ;
|
|
Top = 3, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
|
|
Left = 180, ;
|
|
Name = "CMDRENUNT1", ;
|
|
TabIndex = 13, ;
|
|
Top = 336, ;
|
|
Visible = .F., ;
|
|
Width = 84, ;
|
|
ZOrderSet = 18, ;
|
|
IMBUTON1.Height = 27, ;
|
|
IMBUTON1.Name = "IMBUTON1", ;
|
|
IMBUTON1.Width = 30, ;
|
|
COMMAND1.Name = "COMMAND1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Cmdrenunt2' AS cmdrenunt WITH ;
|
|
Left = 286, ;
|
|
Name = "Cmdrenunt2", ;
|
|
TabIndex = 24, ;
|
|
Top = 3, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
|
Left = 336, ;
|
|
Name = "CMDTERMIN1", ;
|
|
TabIndex = 12, ;
|
|
Top = 288, ;
|
|
Visible = .F., ;
|
|
Width = 84, ;
|
|
ZOrderSet = 19, ;
|
|
IMBUTON1.Height = 27, ;
|
|
IMBUTON1.Name = "IMBUTON1", ;
|
|
IMBUTON1.Width = 30, ;
|
|
COMMAND1.Name = "COMMAND1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Label1' 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 = 12, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 15, ;
|
|
Top = 78, ;
|
|
Width = 52, ;
|
|
ZOrderSet = 3
|
|
*< 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 = 12, ;
|
|
Name = "Label14", ;
|
|
TabIndex = 18, ;
|
|
Top = 203, ;
|
|
Width = 61, ;
|
|
ZOrderSet = 13
|
|
*< 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 = 12, ;
|
|
Name = "Label15", ;
|
|
TabIndex = 20, ;
|
|
Top = 228, ;
|
|
Width = 73, ;
|
|
ZOrderSet = 15
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label16' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Cont Deb.", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 12, ;
|
|
Name = "Label16", ;
|
|
TabIndex = 22, ;
|
|
Top = 252, ;
|
|
Width = 60, ;
|
|
ZOrderSet = 16
|
|
*< 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 = 12, ;
|
|
Name = "Label17", ;
|
|
TabIndex = 23, ;
|
|
Top = 178, ;
|
|
Width = 67, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Nr. document achizitie", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 12, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 16, ;
|
|
Top = 52, ;
|
|
Width = 132, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data document achizitie", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 12, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 17, ;
|
|
Top = 103, ;
|
|
Width = 142, ;
|
|
ZOrderSet = 5
|
|
*< 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 = 12, ;
|
|
Name = "Label5", ;
|
|
TabIndex = 19, ;
|
|
Top = 128, ;
|
|
Width = 61, ;
|
|
ZOrderSet = 7
|
|
*< 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 = 12, ;
|
|
Name = "Label6", ;
|
|
TabIndex = 21, ;
|
|
Top = 153, ;
|
|
Width = 116, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "m.nract", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "k", ;
|
|
Height = 22, ;
|
|
Left = 157, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 1, ;
|
|
Top = 50, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text11' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.NUMEgest", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "k", ;
|
|
Height = 22, ;
|
|
Left = 157, ;
|
|
Name = "Text11", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 7, ;
|
|
Top = 201, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 12
|
|
*< 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 = 157, ;
|
|
Name = "Text12", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 8, ;
|
|
Top = 226, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 14
|
|
*< 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 = 157, ;
|
|
Name = "Text14", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 6, ;
|
|
Top = 176, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 10
|
|
*< 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 = 157, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 3, ;
|
|
Top = 101, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text21' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.scd", ;
|
|
DisabledForeColor = 0,0,0, ;
|
|
Format = "k", ;
|
|
Height = 21, ;
|
|
Left = 157, ;
|
|
Name = "Text21", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 9, ;
|
|
Top = 251, ;
|
|
Value = 231, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 17
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text3' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.denumire", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "k!", ;
|
|
Height = 22, ;
|
|
Left = 157, ;
|
|
Name = "Text3", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 4, ;
|
|
Top = 126, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 6
|
|
*< 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 = 157, ;
|
|
Name = "Text4", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 5, ;
|
|
Top = 151, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text5' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "m.nrord", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "k", ;
|
|
Height = 22, ;
|
|
Left = 157, ;
|
|
Name = "Text5", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 2, ;
|
|
Top = 76, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Cmdlist1.Click
|
|
sele act
|
|
locate for cod=m.cod
|
|
m.nume=nume
|
|
*do datapif.prg
|
|
|
|
sele mf
|
|
set filter to denumire=m.denumire and cod=m.cod AND !inactiv
|
|
|
|
thisform.alwaysontop=.f.
|
|
report form fisa_ic to printer prompt preview
|
|
thisform.alwaysontop=.t.
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdlist2.Command1.Click
|
|
thisform.cmdlist1.click
|
|
ENDPROC
|
|
|
|
PROCEDURE CMDTERMIN1.Click
|
|
LOCAL I,T
|
|
I=1
|
|
T=''
|
|
|
|
SELE mf
|
|
m.cod=-1
|
|
APPE BLANK
|
|
GATHER MEMVAR
|
|
REPLACE fel WITH 'C'
|
|
*replace scd WITH "231 "
|
|
|
|
BUTON=1
|
|
odanu=CREATEOBJ('danu')
|
|
odanu.SHOW(1)
|
|
IF BUTON==2
|
|
THISFORM.RELEASE
|
|
ELSE
|
|
STORE 0 TO m.nract,m.valoare
|
|
STORE '' TO m.denumire, m.nrinv, m.respons
|
|
STORE '' TO M.NUMEGEST
|
|
STORE DATE() TO m.dataact
|
|
|
|
SELE mf
|
|
|
|
CALCULATE MAX(nrinv) FOR ALLTRIM(UPPER(fel)) == "C" TO lcmax
|
|
lnmax = VAL(lcmax)+1
|
|
m.nrinv = ALLTRIM(STR(lnmax))
|
|
|
|
FOR I=1 TO 4
|
|
T='THISFORM.TEXT'+IIF(I<10,ALLT(STR(I,1)),ALLT(STR(I,2)))+'.REFRESH'
|
|
&T
|
|
NEXT
|
|
THISFORM.text11.REFRESH
|
|
THISFORM.text12.REFRESH
|
|
THISFORM.text14.REFRESH
|
|
THISFORM.text21.LOSTFOCUS
|
|
ENDIF
|
|
|
|
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 Text5.Click
|
|
*DO CAUT_ALF WITH "lucrari","nrord",THISFORM.LABEL1.CAPTION,THIS.CONTROLSOURCE
|
|
ENDPROC
|
|
|
|
PROCEDURE Text5.GotFocus
|
|
DO CAUT_ALFa WITH "lucrari","nrord",THISFORM.LABEL1.CAPTION,'m.nrord'
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS ingest AS form
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="NU1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="DA1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: calcul_dr
|
|
*p: ncod_op
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
AutoCenter = .T.
|
|
BackColor = 255,255,255
|
|
BorderStyle = 1
|
|
Caption = "Form1"
|
|
DoCreate = .T.
|
|
Height = 137
|
|
Name = "ingest"
|
|
ncod_op = 0
|
|
TitleBar = 0
|
|
Width = 311
|
|
WindowType = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'DA1' AS da WITH ;
|
|
Left = 104, ;
|
|
Name = "DA1", ;
|
|
TabIndex = 3, ;
|
|
Top = 102, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 51, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
Alignment = 2, ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Label1", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 45, ;
|
|
Left = 16, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 5, ;
|
|
Top = 7, ;
|
|
Width = 271, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Cauza iesirii din gestiune", ;
|
|
FontBold = .F., ;
|
|
FontItalic = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 11, ;
|
|
Height = 23, ;
|
|
Left = 10, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 6, ;
|
|
Top = 55, ;
|
|
Width = 162, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data", ;
|
|
FontBold = .F., ;
|
|
FontItalic = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 11, ;
|
|
Height = 23, ;
|
|
Left = 10, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 7, ;
|
|
Top = 80, ;
|
|
Width = 162, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'NU1' AS nu WITH ;
|
|
Left = 156, ;
|
|
Name = "NU1", ;
|
|
TabIndex = 4, ;
|
|
Top = 102, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 51, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 49, ;
|
|
Left = 4, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 3, ;
|
|
Width = 303
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 131, ;
|
|
Left = 4, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 4, ;
|
|
Width = 303
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
ControlSource = "m.cauza", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Format = "!", ;
|
|
Height = 23, ;
|
|
Left = 174, ;
|
|
Name = "Text1", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 1, ;
|
|
Top = 53, ;
|
|
Width = 127
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
ControlSource = "m.dataout", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Format = "!", ;
|
|
Height = 23, ;
|
|
Left = 174, ;
|
|
Name = "Text2", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 2, ;
|
|
Top = 78, ;
|
|
Width = 127
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE calcul_dr
|
|
|
|
lnUzura = (YEAR(pnDataEval)*12 + MONTH(pnDataEval)) - (YEAR(omf.DataEval)*12 + MONTH(omf.Dataeval))
|
|
pnNormat2Lun = omf.normat2lun - lnUzura && Durata ramasa (in luni)
|
|
pnNormat2=ROUND(pnNormat2lun/12,3)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text2.Valid
|
|
IF thisform.ncod_op = 12 && conservare
|
|
thisform.calcul_dr
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS ingest_transfer AS form
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="NU1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="DA1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Combo3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Combo2" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
AutoCenter = .T.
|
|
BackColor = 255,255,255
|
|
Caption = "Form1"
|
|
DoCreate = .T.
|
|
Height = 220
|
|
Name = "ingest_transfer"
|
|
TitleBar = 0
|
|
Width = 311
|
|
WindowType = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Combo1' AS combobox WITH ;
|
|
BoundColumn = 2, ;
|
|
BoundTo = .T., ;
|
|
ColumnCount = 2, ;
|
|
ColumnLines = .F., ;
|
|
ColumnWidths = "150,0", ;
|
|
ControlSource = "", ;
|
|
Height = 24, ;
|
|
Left = 136, ;
|
|
Name = "Combo1", ;
|
|
RowSource = "sectie.sectie,id_sectie", ;
|
|
RowSourceType = 2, ;
|
|
TabIndex = 2, ;
|
|
Top = 82, ;
|
|
Width = 165
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Combo2' AS combobox WITH ;
|
|
BoundColumn = 2, ;
|
|
BoundTo = .T., ;
|
|
ColumnCount = 2, ;
|
|
ColumnLines = .F., ;
|
|
ColumnWidths = "200,0", ;
|
|
ControlSource = "", ;
|
|
Height = 24, ;
|
|
Left = 136, ;
|
|
Name = "Combo2", ;
|
|
RowSource = "numegest.numegest,gest", ;
|
|
RowSourceType = 2, ;
|
|
TabIndex = 1, ;
|
|
Top = 57, ;
|
|
Width = 165
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Combo3' AS combobox WITH ;
|
|
BoundColumn = 1, ;
|
|
BoundTo = .T., ;
|
|
ColumnCount = 1, ;
|
|
ControlSource = "", ;
|
|
Height = 24, ;
|
|
Left = 136, ;
|
|
Name = "Combo3", ;
|
|
RowSource = "cRespons.nume_2", ;
|
|
RowSourceType = 2, ;
|
|
TabIndex = 3, ;
|
|
Top = 107, ;
|
|
Width = 165
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'DA1' AS da WITH ;
|
|
Left = 104, ;
|
|
Name = "DA1", ;
|
|
TabIndex = 6, ;
|
|
Top = 183, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 51, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
Alignment = 2, ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Label1", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 45, ;
|
|
Left = 16, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 8, ;
|
|
Top = 7, ;
|
|
Width = 271, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Cauza iesirii din gestiune", ;
|
|
FontBold = .F., ;
|
|
FontItalic = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 11, ;
|
|
Height = 23, ;
|
|
Left = 10, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 9, ;
|
|
Top = 136, ;
|
|
Width = 162, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data iesirii din gestiune", ;
|
|
FontBold = .F., ;
|
|
FontItalic = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 11, ;
|
|
Height = 23, ;
|
|
Left = 10, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 12, ;
|
|
Top = 161, ;
|
|
Width = 162, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Gestiune", ;
|
|
FontBold = .F., ;
|
|
FontItalic = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 11, ;
|
|
Height = 22, ;
|
|
Left = 10, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 10, ;
|
|
Top = 58, ;
|
|
Width = 50, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label5' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Sectie", ;
|
|
FontBold = .F., ;
|
|
FontItalic = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 11, ;
|
|
Height = 22, ;
|
|
Left = 10, ;
|
|
Name = "Label5", ;
|
|
TabIndex = 13, ;
|
|
Top = 83, ;
|
|
Width = 34, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label6' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Responsabil", ;
|
|
FontBold = .F., ;
|
|
FontItalic = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 11, ;
|
|
Height = 22, ;
|
|
Left = 10, ;
|
|
Name = "Label6", ;
|
|
TabIndex = 11, ;
|
|
Top = 108, ;
|
|
Width = 69, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'NU1' AS nu WITH ;
|
|
Left = 156, ;
|
|
Name = "NU1", ;
|
|
TabIndex = 7, ;
|
|
Top = 183, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 51, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 49, ;
|
|
Left = 4, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 3, ;
|
|
Width = 303
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 213, ;
|
|
Left = 4, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 4, ;
|
|
Width = 303
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
ControlSource = "m.cauza", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Format = "!", ;
|
|
Height = 23, ;
|
|
Left = 174, ;
|
|
Name = "Text1", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 4, ;
|
|
Top = 134, ;
|
|
Width = 127
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
ControlSource = "m.dataout", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Format = "!", ;
|
|
Height = 23, ;
|
|
Left = 174, ;
|
|
Name = "Text2", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 5, ;
|
|
Top = 159, ;
|
|
Width = 127
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Combo1.LostFocus
|
|
m.id_sectie = sectie.id_sectie
|
|
ENDPROC
|
|
|
|
PROCEDURE Combo2.LostFocus
|
|
m.gest = numegest.gest
|
|
ENDPROC
|
|
|
|
PROCEDURE Combo3.LostFocus
|
|
m.respons = cRespons.nume_2
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS introd AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label18" 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="Shape2" 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="Label8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text13" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text14" 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="Label17" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text15" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text18" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text19" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label23" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label24" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="List1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Lim_inf_sup1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: introdus
|
|
*m: sterge
|
|
*p: fel_imob
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
fel_imob = ''
|
|
Height = 456
|
|
Name = "introd"
|
|
Width = 712
|
|
WindowState = 0
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Banda21' AS banda2 WITH ;
|
|
Height = 32, ;
|
|
Left = 0, ;
|
|
Name = "Banda21", ;
|
|
Top = 0, ;
|
|
Width = 604
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Grid1' AS grid WITH ;
|
|
BackColor = 255,255,255, ;
|
|
ColumnCount = 7, ;
|
|
DeleteMark = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
GridLines = 0, ;
|
|
Height = 336, ;
|
|
Left = 16, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordSource = "actcs", ;
|
|
TabIndex = 1, ;
|
|
Top = 68, ;
|
|
View = 0, ;
|
|
Width = 300, ;
|
|
ZOrderSet = 4, ;
|
|
Column1.BackColor = 255,255,255, ;
|
|
Column1.ControlSource = "nract", ;
|
|
Column1.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
|
|
Column1.FontName = "Arial Narrow", ;
|
|
Column1.Name = "Column1", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 59, ;
|
|
Column2.BackColor = 255,255,255, ;
|
|
Column2.ControlSource = "dataact", ;
|
|
Column2.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
|
|
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.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
|
|
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.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Name = "Column4", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.Width = 148, ;
|
|
Column5.BackColor = 255,255,255, ;
|
|
Column5.ControlSource = "SCD", ;
|
|
Column5.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.Name = "Column5", ;
|
|
Column5.ReadOnly = .T., ;
|
|
Column6.BackColor = 255,255,255, ;
|
|
Column6.ControlSource = "SUMA", ;
|
|
Column6.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.Format = "r", ;
|
|
Column6.InputMask = "99 999 999 999", ;
|
|
Column6.Name = "Column6", ;
|
|
Column6.ReadOnly = .T., ;
|
|
Column7.BackColor = 255,255,255, ;
|
|
Column7.ControlSource = "cod", ;
|
|
Column7.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
|
|
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 = 19, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 22, ;
|
|
Top = 33, ;
|
|
Width = 218, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label10' AS titlufrumos WITH ;
|
|
Caption = "INTRODUCERE IMOBILIZARI NECORPORALE in luna", ;
|
|
Height = 28, ;
|
|
Left = 9, ;
|
|
Name = "Label10", ;
|
|
TabIndex = 44, ;
|
|
Top = 5, ;
|
|
Width = 338
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" 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 = 352, ;
|
|
Name = "Label11", ;
|
|
TabIndex = 23, ;
|
|
Top = 247, ;
|
|
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 = 352, ;
|
|
Name = "Label12", ;
|
|
TabIndex = 25, ;
|
|
Top = 270, ;
|
|
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 = 352, ;
|
|
Name = "Label13", ;
|
|
TabIndex = 27, ;
|
|
Top = 294, ;
|
|
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 = 352, ;
|
|
Name = "Label14", ;
|
|
TabIndex = 29, ;
|
|
Top = 316, ;
|
|
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 = 352, ;
|
|
Name = "Label15", ;
|
|
TabIndex = 32, ;
|
|
Top = 340, ;
|
|
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 = 352, ;
|
|
Name = "Label16", ;
|
|
TabIndex = 34, ;
|
|
Top = 386, ;
|
|
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 = 352, ;
|
|
Name = "Label17", ;
|
|
TabIndex = 38, ;
|
|
Top = 175, ;
|
|
Width = 67, ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label18' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 22, ;
|
|
Left = 732, ;
|
|
Name = "Label18", ;
|
|
TabIndex = 21, ;
|
|
Top = 48, ;
|
|
Visible = .F., ;
|
|
Width = 2, ;
|
|
ZOrderSet = 2
|
|
*< 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 = 59, ;
|
|
Name = "Label19", ;
|
|
TabIndex = 41, ;
|
|
Top = 158, ;
|
|
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 = 359, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 24, ;
|
|
Top = 32, ;
|
|
Width = 34, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label20' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
Caption = "Acest element este introdus !", ;
|
|
ForeColor = 0,0,255, ;
|
|
Height = 17, ;
|
|
Left = 51, ;
|
|
Name = "Label20", ;
|
|
TabIndex = 42, ;
|
|
Top = 436, ;
|
|
Visible = .F., ;
|
|
Width = 161
|
|
*< 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 = 49, ;
|
|
Name = "Label21", ;
|
|
TabIndex = 43, ;
|
|
Top = 436, ;
|
|
Visible = .F., ;
|
|
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 = 352, ;
|
|
Name = "Label22", ;
|
|
TabIndex = 31, ;
|
|
Top = 364, ;
|
|
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 = 352, ;
|
|
Name = "Label23", ;
|
|
TabIndex = 35, ;
|
|
Top = 409, ;
|
|
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 = 565, ;
|
|
Name = "Label24", ;
|
|
TabIndex = 23, ;
|
|
Top = 247, ;
|
|
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 = 352, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 26, ;
|
|
Top = 55, ;
|
|
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 = 352, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 28, ;
|
|
Top = 79, ;
|
|
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 = 352, ;
|
|
Name = "Label5", ;
|
|
TabIndex = 30, ;
|
|
Top = 103, ;
|
|
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 = 352, ;
|
|
Name = "Label6", ;
|
|
TabIndex = 33, ;
|
|
Top = 127, ;
|
|
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 = 352, ;
|
|
Name = "Label7", ;
|
|
TabIndex = 36, ;
|
|
Top = 151, ;
|
|
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 = 352, ;
|
|
Name = "Label8", ;
|
|
TabIndex = 37, ;
|
|
Top = 199, ;
|
|
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 = 352, ;
|
|
Name = "Label9", ;
|
|
TabIndex = 39, ;
|
|
Top = 223, ;
|
|
Width = 25, ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Lim_inf_sup1' AS lim_inf_sup WITH ;
|
|
Left = 581, ;
|
|
Name = "Lim_inf_sup1", ;
|
|
Top = 241, ;
|
|
Text29.Name = "Text29", ;
|
|
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 = 2, ;
|
|
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 = 644, ;
|
|
Name = "Renunt1", ;
|
|
TabIndex = 19, ;
|
|
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 'Shape1' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 394, ;
|
|
Left = 7, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 40, ;
|
|
Width = 324, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 394, ;
|
|
Left = 343, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 40, ;
|
|
Width = 360, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape3' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 21, ;
|
|
Left = 7, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 432, ;
|
|
Width = 696, ;
|
|
ZOrderSet = 33
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Terminat1' AS terminat WITH ;
|
|
Left = 677, ;
|
|
Name = "Terminat1", ;
|
|
TabIndex = 18, ;
|
|
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 'Text1' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "m.nract", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "K", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 2, ;
|
|
Top = 53, ;
|
|
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 = 508, ;
|
|
Name = "Text10", ;
|
|
ReadOnly = .F., ;
|
|
RowSource = "Liniara,Accelerata,Degresiva", ;
|
|
RowSourceType = 1, ;
|
|
SpecialEffect = 2, ;
|
|
Style = 0, ;
|
|
TabIndex = 12, ;
|
|
Top = 292, ;
|
|
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 = 508, ;
|
|
Name = "Text11", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 13, ;
|
|
Top = 314, ;
|
|
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 = 508, ;
|
|
Name = "Text12", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 14, ;
|
|
Top = 338, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 29
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text13' AS combobox WITH ;
|
|
Alignment = 3, ;
|
|
BackColor = 255,255,255, ;
|
|
BoundTo = .F., ;
|
|
ControlSource = "m.scd", ;
|
|
DisplayValue = Text13, ;
|
|
Enabled = .F., ;
|
|
FirstElement = 1, ;
|
|
Height = 20, ;
|
|
Left = 540, ;
|
|
Name = "Text13", ;
|
|
ReadOnly = .F., ;
|
|
RowSource = "2121,2122,2123,2124,2125,2126", ;
|
|
RowSourceType = 1, ;
|
|
Style = 0, ;
|
|
TabIndex = 40, ;
|
|
Top = 456, ;
|
|
Value = , ;
|
|
Visible = .F., ;
|
|
Width = 180, ;
|
|
ZOrderSet = 18
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Text14' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
BackStyle = 0, ;
|
|
ControlSource = "m.nrinv", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "K", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text14", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 7, ;
|
|
Top = 173, ;
|
|
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 = 508, ;
|
|
Name = "Text15", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 16, ;
|
|
Top = 386, ;
|
|
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 = 346, ;
|
|
Name = "Text16", ;
|
|
TabIndex = 45, ;
|
|
TabStop = .F., ;
|
|
Top = 4, ;
|
|
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 = 375, ;
|
|
Name = "Text17", ;
|
|
TabIndex = 46, ;
|
|
TabStop = .F., ;
|
|
Top = 4, ;
|
|
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 = 508, ;
|
|
Name = "Text18", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 15, ;
|
|
Top = 362, ;
|
|
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 = 508, ;
|
|
Name = "Text19", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 17, ;
|
|
Top = 409, ;
|
|
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 = 508, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 3, ;
|
|
Top = 77, ;
|
|
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 = 508, ;
|
|
Name = "Text3", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 4, ;
|
|
Top = 101, ;
|
|
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 = 508, ;
|
|
Name = "Text4", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 5, ;
|
|
Top = 125, ;
|
|
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 = 508, ;
|
|
Name = "Text5", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 6, ;
|
|
Top = 149, ;
|
|
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 = 508, ;
|
|
Name = "Text6", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 8, ;
|
|
Top = 197, ;
|
|
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 = 508, ;
|
|
Name = "Text7", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 9, ;
|
|
Top = 221, ;
|
|
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 = 508, ;
|
|
Name = "Text8", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 10, ;
|
|
Top = 245, ;
|
|
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 = 508, ;
|
|
Name = "Text9", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 11, ;
|
|
Top = 268, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 23
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Init
|
|
*PUBLIC INTRODUSTOT
|
|
INTRODUSTOT=.F.
|
|
m.tipamort='Liniara'
|
|
THISFORM.STERGE
|
|
sele actcs
|
|
go top
|
|
if eof()
|
|
*thisform.cmdtermin1.enabled=.f.
|
|
thisform.terminat1.Enabled= .F.
|
|
thisform.label19.visible=.t.
|
|
endif
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE introdus
|
|
local totval
|
|
totval=0
|
|
|
|
scatter memvar
|
|
sele act
|
|
locate for cod=m.cod and !deleted()
|
|
m.suma=suma
|
|
|
|
sele mf
|
|
set filter to !deleted()
|
|
locate for cod=m.cod and !deleted()
|
|
*sum valoare to totval
|
|
if found()
|
|
* and totval==m.suma
|
|
return .t.
|
|
else
|
|
return .f.
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS nStyle
|
|
IF VAL(m.an)<2005
|
|
this.lim_inf_sup1.Visible = .F.
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE sterge
|
|
*!* store 0 to m.normat,m.gest,m.uzura,M.AMORTPREC
|
|
*!* store '' to m.nrpif,m.codmf,m.nrinv,m.tipamort,m.respons,m.scd,m.caract,m.fdoc
|
|
SELECT mf
|
|
SCATTER MEMVAR BLANK
|
|
|
|
store '' to M.NUME_2,M.NUMEGEST,m.sectie
|
|
store date() to m.dataact,m.datapif
|
|
|
|
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
|
|
|
|
|
|
|
|
*!* LPARAMETERS nColIndex
|
|
|
|
*!* local i,s,t,TVAL,intr
|
|
*!* s=.t.
|
|
|
|
*!* thisform.label20.CAPTION='Acest element este introdus!'
|
|
*!* sele actcs
|
|
*!* scatter memvar
|
|
*!* m.datapif=m.dataact
|
|
*!* m.tipamort='Liniara'
|
|
|
|
*!* intr=thisform.introdus()
|
|
*!* M.DENUMIRE=EXPLICATIA
|
|
*!* m.valoare=m.suma
|
|
*!* thisform.text1.refresh
|
|
*!* thisform.text2.refresh
|
|
*!* thisform.text3.refresh
|
|
*!* thisform.text4.refresh
|
|
*!* thisform.text10.refresh
|
|
*!* thisform.text15.refresh
|
|
*!* thisform.text19.refresh
|
|
*!* THIS.COLUMN6.Refresh
|
|
*!* _nract=m.nract
|
|
*!* _dataact=m.dataact
|
|
*!* _cod=m.cod
|
|
|
|
|
|
|
|
*!* IF intr
|
|
*!* &&
|
|
*!* sele actcs
|
|
*!* locate for cod=m.cod and !deleted()
|
|
*!* m.suma=suma
|
|
|
|
*!* sele mf
|
|
*!* SET FILTER TO cod=m.cod and !deleted()
|
|
*!* SCATTER MEMVAR
|
|
*!*
|
|
*!* sum valoare to tval
|
|
*!* if tval#m.suma
|
|
*!* s=.f.
|
|
*!* thisform.label20.CAPTION='Introdus partial!'
|
|
*!* ENDIF
|
|
*!* &&
|
|
*!* ELSE
|
|
*!* THISFORM.STERGE
|
|
*!* sele actcs
|
|
*!* scatter memvar
|
|
*!* m.datapif=m.dataact
|
|
*!* m.tipamort='Liniara'
|
|
*!* M.DENUMIRE=EXPLICATIA
|
|
*!* m.valoare=m.suma
|
|
*!* ENDIF
|
|
|
|
|
|
*!* for i=3 to 19
|
|
*!* t='thisform.text'+alltrim(str(i))+'.REFRESH'
|
|
*!* &t
|
|
*!* next
|
|
|
|
*!*
|
|
*!* for i=1 to 14
|
|
*!* if s
|
|
*!* t='thisform.text'+alltrim(str(i))+'.enabled=!intr'
|
|
*!* else
|
|
*!* t='thisform.text'+alltrim(str(i))+'.enabled=.t.'
|
|
*!* endif
|
|
*!* &t
|
|
*!* next
|
|
|
|
*!* INTRODUSTOT=INTR AND S
|
|
*!* IF THISFORM.FEL_IMOB='N'
|
|
*!* THISFORM.TEXT7.Enabled=.F.
|
|
*!* ENDIF
|
|
*!* thisform.label20.visible= intr
|
|
*!* thisform.label21.visible=!intr
|
|
|
|
|
|
|
|
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
|
|
|
|
Sele ACTCS
|
|
If !INTRODUSTOT
|
|
m.CASAT=.F.
|
|
* m.tipcalcul=1
|
|
m.dataeval = m.datapif
|
|
m.valin = m.valoare
|
|
m.valramasa = m.valoare
|
|
m.cota = calcul_cota(m.Normat2lun)
|
|
m.codop = 3
|
|
|
|
Sele mf
|
|
Appe Blank
|
|
If Flock()
|
|
Gather Memvar
|
|
Endif
|
|
Unlock
|
|
If Thisform.LABEL10.Caption='INTRODUCERE IMOBILIZARI NECORPORALE in luna'
|
|
Replace fel With 'N'
|
|
Endif
|
|
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
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text11.GotFocus
|
|
*!* thisform.cmdtermin1.enabled=.f.
|
|
*!* thisform.cmdrenunt1.enabled=.f.
|
|
*!* thisform.cmdlist1.enabled=.f.
|
|
DO CAUT_ALFa WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST'
|
|
*!* thisform.cmdtermin1.enabled=.t.
|
|
*!* thisform.cmdrenunt1.enabled=.t.
|
|
*!* thisform.cmdlist1.enabled=.t.
|
|
SELE NUMEGEST
|
|
LOCATE FOR NUMEGEST=M.NUMEGEST
|
|
SCATTER MEMVAR
|
|
ENDPROC
|
|
|
|
PROCEDURE Text12.GotFocus
|
|
*!* thisform.cmdtermin1.enabled=.f.
|
|
*!* thisform.cmdrenunt1.enabled=.f.
|
|
*!* thisform.cmdlist1.enabled=.f.
|
|
DO CAUT_ALFa WITH "respons","nume_2",'NUMELE RESPONSABILULUI','M.NUME_2'
|
|
*!* thisform.cmdtermin1.enabled=.t.
|
|
*!* thisform.cmdrenunt1.enabled=.t.
|
|
*!* thisform.cmdlist1.enabled=.t.
|
|
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
|
|
*!* thisform.cmdtermin1.enabled=.f.
|
|
*!* thisform.cmdrenunt1.enabled=.f.
|
|
*!* thisform.cmdlist1.enabled=.f.
|
|
DO CAUT_ALFa WITH "sectie","sectie",'NUMELE SECTIEI','M.sectie'
|
|
*!* thisform.cmdtermin1.enabled=.t.
|
|
*!* thisform.cmdrenunt1.enabled=.t.
|
|
*!* thisform.cmdlist1.enabled=.t.
|
|
SELECT sectie
|
|
m.id_sectie=id_sectie
|
|
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text7.GotFocus
|
|
local den
|
|
den=m.denumire
|
|
*!* thisform.cmdtermin1.enabled=.f.
|
|
*!* thisform.cmdrenunt1.enabled=.f.
|
|
*!* thisform.cmdlist1.enabled=.f.
|
|
*
|
|
IF VAL(m.an)>=2005
|
|
OCA=CREATEOBJECT("NORMATREE_2005")
|
|
OCA.SHOW(1)
|
|
SELE norma_2005
|
|
ELSE
|
|
OCA=CREATEOBJECT("NORMATREE")
|
|
OCA.SHOW(1)
|
|
SELE norma
|
|
ENDIF
|
|
*!* thisform.cmdtermin1.enabled=.t.
|
|
*!* thisform.cmdrenunt1.enabled=.t.
|
|
*!* thisform.cmdlist1.enabled=.t.
|
|
|
|
*LOCATE FOR codmf=m.codmf
|
|
IF VAL(m.an)>=2005
|
|
m.normat = m.norma_min*12
|
|
this.Parent.lim_inf_sup1.Refresh
|
|
ENDIF
|
|
scat memv
|
|
m.denumire=den
|
|
DO CASE
|
|
CASE LEFT(ALLTRIM(m.codmf),2) = [1.]
|
|
m.scd = '212 '
|
|
CASE LEFT(ALLTRIM(m.codmf),2) = [2.]
|
|
IF LEFT(ALLTRIM(m.codmf),3) # [2.5]
|
|
m.scd = '213' + SUBSTR(ALLTRIM(m.codmf),3,1)
|
|
ELSE
|
|
m.scd = '213'
|
|
thisform.text15.ReadOnly = .f.
|
|
ENDIF
|
|
CASE LEFT(ALLTRIM(m.codmf),2) = [3.]
|
|
m.scd = '214'
|
|
OTHERWISE
|
|
*
|
|
ENDCASE
|
|
*!* m.scd='212'+allt(left(m.codmf,2))
|
|
*THISFORM.TEXT15.value=m.scd
|
|
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 introdc AS introd OF "mfix2000.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Text26" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label30" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 3
|
|
DoCreate = .T.
|
|
Height = 372
|
|
Name = "introdc"
|
|
Width = 717
|
|
Shape1.Height = 296
|
|
Shape1.Left = 12
|
|
Shape1.Name = "Shape1"
|
|
Shape1.Top = 46
|
|
Shape1.Width = 324
|
|
Shape1.ZOrderSet = 2
|
|
Label18.Name = "Label18"
|
|
Label18.TabIndex = 24
|
|
Label18.ZOrderSet = 7
|
|
Label1.Left = 24
|
|
Label1.Name = "Label1"
|
|
Label1.TabIndex = 25
|
|
Label1.Top = 38
|
|
Label1.ZOrderSet = 8
|
|
Grid1.Column1.Header1.Name = "Header1"
|
|
Grid1.Column1.Name = "Column1"
|
|
Grid1.Column1.Text1.Name = "Text1"
|
|
Grid1.Column2.Header1.Name = "Header1"
|
|
Grid1.Column2.Name = "Column2"
|
|
Grid1.Column2.Text1.Name = "Text1"
|
|
Grid1.Column3.Header1.Name = "Header1"
|
|
Grid1.Column3.Name = "Column3"
|
|
Grid1.Column3.Text1.Name = "Text1"
|
|
Grid1.Column4.Header1.Name = "Header1"
|
|
Grid1.Column4.Name = "Column4"
|
|
Grid1.Column4.Text1.Name = "Text1"
|
|
Grid1.Column5.Header1.Name = "Header1"
|
|
Grid1.Column5.Name = "Column5"
|
|
Grid1.Column5.Text1.Name = "Text1"
|
|
Grid1.Column6.DynamicForeColor = ""
|
|
Grid1.Column6.Header1.Name = "Header1"
|
|
Grid1.Column6.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column6.Name = "Column6"
|
|
Grid1.Column6.Text1.Name = "Text1"
|
|
Grid1.Column7.Header1.Name = "Header1"
|
|
Grid1.Column7.Name = "Column7"
|
|
Grid1.Column7.Text1.Name = "Text1"
|
|
Grid1.Height = 264
|
|
Grid1.Left = 22
|
|
Grid1.Name = "Grid1"
|
|
Grid1.TabIndex = 11
|
|
Grid1.Top = 66
|
|
Grid1.Width = 307
|
|
Grid1.ZOrderSet = 9
|
|
Shape2.Height = 296
|
|
Shape2.Left = 348
|
|
Shape2.Name = "Shape2"
|
|
Shape2.Top = 46
|
|
Shape2.Width = 360
|
|
Shape2.ZOrderSet = 1
|
|
Label2.Name = "Label2"
|
|
Label2.TabIndex = 27
|
|
Label2.ZOrderSet = 10
|
|
Text1.Left = 508
|
|
Text1.Name = "Text1"
|
|
Text1.TabIndex = 1
|
|
Text1.Top = 70
|
|
Text1.ZOrderSet = 11
|
|
Label3.Left = 360
|
|
Label3.Name = "Label3"
|
|
Label3.TabIndex = 29
|
|
Label3.Top = 70
|
|
Label3.ZOrderSet = 12
|
|
Text2.Left = 508
|
|
Text2.Name = "Text2"
|
|
Text2.TabIndex = 2
|
|
Text2.Top = 97
|
|
Text2.ZOrderSet = 13
|
|
Label4.Left = 360
|
|
Label4.Name = "Label4"
|
|
Label4.TabIndex = 31
|
|
Label4.Top = 99
|
|
Label4.ZOrderSet = 14
|
|
Text3.Left = 508
|
|
Text3.Name = "Text3"
|
|
Text3.TabIndex = 3
|
|
Text3.Top = 124
|
|
Text3.ZOrderSet = 15
|
|
Label5.Left = 360
|
|
Label5.Name = "Label5"
|
|
Label5.TabIndex = 33
|
|
Label5.Top = 126
|
|
Label5.ZOrderSet = 16
|
|
Text4.Left = 508
|
|
Text4.Name = "Text4"
|
|
Text4.TabIndex = 4
|
|
Text4.Top = 151
|
|
Text4.ZOrderSet = 18
|
|
Label6.Left = 360
|
|
Label6.Name = "Label6"
|
|
Label6.TabIndex = 36
|
|
Label6.Top = 153
|
|
Label6.ZOrderSet = 20
|
|
Text5.Enabled = .F.
|
|
Text5.Left = 252
|
|
Text5.Name = "Text5"
|
|
Text5.TabIndex = 12
|
|
Text5.Top = 408
|
|
Text5.Visible = .F.
|
|
Text5.ZOrderSet = 22
|
|
Label7.Enabled = .F.
|
|
Label7.Left = 109
|
|
Label7.Name = "Label7"
|
|
Label7.TabIndex = 39
|
|
Label7.Top = 410
|
|
Label7.Visible = .F.
|
|
Label7.ZOrderSet = 24
|
|
Text6.Enabled = .F.
|
|
Text6.Left = 252
|
|
Text6.Name = "Text6"
|
|
Text6.TabIndex = 13
|
|
Text6.Top = 433
|
|
Text6.Visible = .F.
|
|
Text6.ZOrderSet = 29
|
|
Label8.Enabled = .F.
|
|
Label8.Left = 109
|
|
Label8.Name = "Label8"
|
|
Label8.TabIndex = 40
|
|
Label8.Top = 435
|
|
Label8.Visible = .F.
|
|
Label8.ZOrderSet = 31
|
|
Text13.Left = 480
|
|
Text13.Name = "Text13"
|
|
Text13.TabIndex = 43
|
|
Text13.Top = 408
|
|
Text13.ZOrderSet = 6
|
|
Text14.Left = 508
|
|
Text14.Name = "Text14"
|
|
Text14.TabIndex = 6
|
|
Text14.Top = 205
|
|
Text14.ZOrderSet = 33
|
|
Label9.Enabled = .F.
|
|
Label9.Left = 672
|
|
Label9.Name = "Label9"
|
|
Label9.TabIndex = 42
|
|
Label9.Top = 228
|
|
Label9.Visible = .F.
|
|
Label9.ZOrderSet = 39
|
|
Text8.Enabled = .F.
|
|
Text8.Left = 815
|
|
Text8.Name = "Text8"
|
|
Text8.TabIndex = 15
|
|
Text8.Top = 250
|
|
Text8.Visible = .F.
|
|
Text8.ZOrderSet = 41
|
|
Label11.Enabled = .F.
|
|
Label11.Left = 672
|
|
Label11.Name = "Label11"
|
|
Label11.TabIndex = 26
|
|
Label11.Top = 252
|
|
Label11.Visible = .F.
|
|
Label11.ZOrderSet = 42
|
|
Text9.Enabled = .F.
|
|
Text9.Left = 815
|
|
Text9.Name = "Text9"
|
|
Text9.TabIndex = 16
|
|
Text9.Top = 273
|
|
Text9.Visible = .F.
|
|
Text9.ZOrderSet = 43
|
|
Label12.Enabled = .F.
|
|
Label12.Left = 672
|
|
Label12.Name = "Label12"
|
|
Label12.TabIndex = 28
|
|
Label12.Top = 275
|
|
Label12.Visible = .F.
|
|
Label12.ZOrderSet = 45
|
|
Label17.Left = 360
|
|
Label17.Name = "Label17"
|
|
Label17.TabIndex = 41
|
|
Label17.Top = 207
|
|
Label17.ZOrderSet = 35
|
|
Label13.Enabled = .F.
|
|
Label13.Left = 672
|
|
Label13.Name = "Label13"
|
|
Label13.TabIndex = 30
|
|
Label13.Top = 300
|
|
Label13.Visible = .F.
|
|
Label13.ZOrderSet = 47
|
|
Text11.Left = 508
|
|
Text11.Name = "Text11"
|
|
Text11.TabIndex = 7
|
|
Text11.Top = 233
|
|
Text11.ZOrderSet = 48
|
|
Label14.Left = 360
|
|
Label14.Name = "Label14"
|
|
Label14.TabIndex = 32
|
|
Label14.Top = 235
|
|
Label14.ZOrderSet = 17
|
|
Text12.Left = 508
|
|
Text12.Name = "Text12"
|
|
Text12.TabIndex = 8
|
|
Text12.Top = 262
|
|
Text12.ZOrderSet = 19
|
|
Label15.Left = 360
|
|
Label15.Name = "Label15"
|
|
Label15.TabIndex = 35
|
|
Label15.Top = 264
|
|
Label15.ZOrderSet = 21
|
|
Text15.Left = 508
|
|
Text15.Name = "Text15"
|
|
Text15.TabIndex = 9
|
|
Text15.Top = 290
|
|
Text15.ZOrderSet = 30
|
|
Label16.Left = 360
|
|
Label16.Name = "Label16"
|
|
Label16.TabIndex = 37
|
|
Label16.Top = 290
|
|
Label16.ZOrderSet = 23
|
|
Shape3.Left = 12
|
|
Shape3.Name = "Shape3"
|
|
Shape3.Top = 344
|
|
Shape3.ZOrderSet = 26
|
|
Text7.Enabled = .F.
|
|
Text7.Left = 815
|
|
Text7.Name = "Text7"
|
|
Text7.TabIndex = 14
|
|
Text7.Top = 226
|
|
Text7.Visible = .F.
|
|
Text7.ZOrderSet = 37
|
|
Text10.Enabled = .F.
|
|
Text10.Left = 815
|
|
Text10.Name = "Text10"
|
|
Text10.TabIndex = 17
|
|
Text10.Top = 298
|
|
Text10.Visible = .F.
|
|
Text10.ZOrderSet = 28
|
|
TEXT18.Name = "TEXT18"
|
|
TEXT18.TabIndex = 19
|
|
TEXT18.Visible = .F.
|
|
LABEL22.Name = "LABEL22"
|
|
LABEL22.TabIndex = 34
|
|
LABEL22.Visible = .F.
|
|
TEXT19.Left = 508
|
|
TEXT19.Name = "TEXT19"
|
|
TEXT19.TabIndex = 10
|
|
TEXT19.Top = 316
|
|
LABEL23.Left = 360
|
|
LABEL23.Name = "LABEL23"
|
|
LABEL23.TabIndex = 38
|
|
LABEL23.Top = 316
|
|
Label24.Left = 696
|
|
Label24.Name = "Label24"
|
|
Label24.TabIndex = 23
|
|
Label24.Top = 336
|
|
Label24.Visible = .F.
|
|
Label19.Name = "Label19"
|
|
Label19.TabIndex = 44
|
|
Label19.ZOrderSet = 36
|
|
Label20.Left = 36
|
|
Label20.Name = "Label20"
|
|
Label20.TabIndex = 45
|
|
Label20.Top = 346
|
|
Label20.ZOrderSet = 38
|
|
Label21.Left = 34
|
|
Label21.Name = "Label21"
|
|
Label21.TabIndex = 46
|
|
Label21.Top = 346
|
|
Label21.Visible = .T.
|
|
Label21.ZOrderSet = 40
|
|
Banda21.Name = "Banda21"
|
|
Banda21.ZOrderSet = 0
|
|
Label10.Caption = "INTRODUCERE IMOBILIZARI IN CURS in luna"
|
|
Label10.Height = 22
|
|
Label10.Left = 11
|
|
Label10.Name = "Label10"
|
|
Label10.TabIndex = 47
|
|
Label10.Top = 8
|
|
Label10.Width = 300
|
|
Label10.ZOrderSet = 25
|
|
Text16.Height = 23
|
|
Text16.Left = 312
|
|
Text16.Name = "Text16"
|
|
Text16.TabIndex = 48
|
|
Text16.Top = 7
|
|
Text16.Width = 25
|
|
Text16.ZOrderSet = 44
|
|
Text17.Left = 338
|
|
Text17.Name = "Text17"
|
|
Text17.TabIndex = 50
|
|
Text17.Top = 7
|
|
Text17.ZOrderSet = 46
|
|
LIST1.Command1.Name = "Command1"
|
|
LIST1.Imbuton1.Height = 27
|
|
LIST1.Imbuton1.Name = "Imbuton1"
|
|
LIST1.Imbuton1.Width = 30
|
|
LIST1.Name = "LIST1"
|
|
LIST1.TabIndex = 22
|
|
Renunt1.Command1.Name = "Command1"
|
|
Renunt1.Imbuton1.Height = 27
|
|
Renunt1.Imbuton1.Name = "Imbuton1"
|
|
Renunt1.Imbuton1.Width = 30
|
|
Renunt1.Name = "Renunt1"
|
|
Renunt1.TabIndex = 21
|
|
Terminat1.Command1.Name = "Command1"
|
|
Terminat1.Imbuton1.Height = 27
|
|
Terminat1.Imbuton1.Name = "Imbuton1"
|
|
Terminat1.Imbuton1.Width = 30
|
|
Terminat1.Name = "Terminat1"
|
|
Terminat1.TabIndex = 20
|
|
Lim_inf_sup1.Label25.Name = "Label25"
|
|
Lim_inf_sup1.Label35.Name = "Label35"
|
|
Lim_inf_sup1.Left = 672
|
|
Lim_inf_sup1.Name = "Lim_inf_sup1"
|
|
Lim_inf_sup1.TabIndex = 49
|
|
Lim_inf_sup1.Text29.Name = "Text29"
|
|
Lim_inf_sup1.Text30.Name = "Text30"
|
|
Lim_inf_sup1.Top = 216
|
|
Lim_inf_sup1.Visible = .F.
|
|
*</PropValue>
|
|
|
|
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 = 360, ;
|
|
Name = "Label30", ;
|
|
TabIndex = 18, ;
|
|
Top = 181, ;
|
|
Width = 52, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Text26' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "m.nrord", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "k", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text26", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 5, ;
|
|
Top = 178, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE sterge
|
|
DODEFAULT()
|
|
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
|
|
|
|
Sele ACTCS
|
|
If !INTRODUSTOT
|
|
m.CASAT=.F.
|
|
* m.tipcalcul=1
|
|
m.dataeval = m.datapif
|
|
m.valin = m.valoare
|
|
* m.valramasa = m.valoare
|
|
* m.cota = calcul_cota(m.Normat2lun)
|
|
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
|
|
|
|
od=Create('danu')
|
|
od.Show(1)
|
|
If buton==2
|
|
Thisform.Release
|
|
ELSE
|
|
SELECT mf
|
|
SCATTER MEMVAR BLANK
|
|
thisform.Refresh
|
|
Endif
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text26.Click
|
|
DO CAUT_ALFa WITH "lucrari","nrord",'NUMELE LUCRARII','M.NRORD'
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text26.KeyPress
|
|
LPARAMETERS nKeyCode, nShiftAltCtrl
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS jurnal AS vizp OF "..\..\imob2003fara_mod_liana\clase\mfix2000.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Check13" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check14" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column25.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column25.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column26.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column26.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column27.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column27.Text1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 3
|
|
DoCreate = .T.
|
|
Height = 557
|
|
Name = "jurnal"
|
|
Width = 797
|
|
Shape1.Height = 68
|
|
Shape1.Left = 798
|
|
Shape1.Name = "Shape1"
|
|
Shape1.Top = 42
|
|
Shape1.Visible = .F.
|
|
Shape1.ZOrderSet = 8
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 9
|
|
SHAPE4.Height = 36
|
|
SHAPE4.Left = -2
|
|
SHAPE4.Name = "SHAPE4"
|
|
SHAPE4.Top = 0
|
|
SHAPE4.Width = 705
|
|
SHAPE4.ZOrderSet = 10
|
|
Shape2.Name = "Shape2"
|
|
Shape2.ZOrderSet = 11
|
|
Shape5.Left = 949
|
|
Shape5.Name = "Shape5"
|
|
Shape5.Top = 59
|
|
Shape5.Visible = .F.
|
|
Shape5.ZOrderSet = 12
|
|
Shape3.Name = "Shape3"
|
|
Shape3.ZOrderSet = 13
|
|
Grid1.Column1.ColumnOrder = 27
|
|
Grid1.Column1.Header1.Name = "Header1"
|
|
Grid1.Column1.Name = "Column1"
|
|
Grid1.Column1.Text1.Name = "Text1"
|
|
Grid1.Column10.ColumnOrder = 6
|
|
Grid1.Column10.Header1.Name = "Header1"
|
|
Grid1.Column10.Name = "Column10"
|
|
Grid1.Column10.Text1.Name = "Text1"
|
|
Grid1.Column11.ColumnOrder = 7
|
|
Grid1.Column11.Header1.Name = "Header1"
|
|
Grid1.Column11.Name = "Column11"
|
|
Grid1.Column11.Text1.Name = "Text1"
|
|
Grid1.Column12.ColumnOrder = 16
|
|
Grid1.Column12.Header1.Name = "Header1"
|
|
Grid1.Column12.Name = "Column12"
|
|
Grid1.Column12.Text1.Name = "Text1"
|
|
Grid1.Column13.ColumnOrder = 12
|
|
Grid1.Column13.Header1.Name = "Header1"
|
|
Grid1.Column13.Name = "Column13"
|
|
Grid1.Column13.Text1.Name = "Text1"
|
|
Grid1.Column14.ColumnOrder = 17
|
|
Grid1.Column14.Header1.Name = "Header1"
|
|
Grid1.Column14.Name = "Column14"
|
|
Grid1.Column14.Text1.Name = "Text1"
|
|
Grid1.Column15.ColumnOrder = 21
|
|
Grid1.Column15.Header1.Name = "Header1"
|
|
Grid1.Column15.Name = "Column15"
|
|
Grid1.Column15.Text1.Name = "Text1"
|
|
Grid1.Column16.ColumnOrder = 14
|
|
Grid1.Column16.Header1.Name = "Header1"
|
|
Grid1.Column16.Name = "Column16"
|
|
Grid1.Column16.Text1.Name = "Text1"
|
|
Grid1.Column17.ColumnOrder = 22
|
|
Grid1.Column17.Header1.Name = "Header1"
|
|
Grid1.Column17.Name = "Column17"
|
|
Grid1.Column17.Text1.Name = "Text1"
|
|
Grid1.Column18.ColumnOrder = 13
|
|
Grid1.Column18.Header1.Name = "Header1"
|
|
Grid1.Column18.Name = "Column18"
|
|
Grid1.Column18.Text1.Name = "Text1"
|
|
Grid1.Column19.ColumnOrder = 15
|
|
Grid1.Column19.Header1.Name = "Header1"
|
|
Grid1.Column19.Name = "Column19"
|
|
Grid1.Column19.Text1.Name = "Text1"
|
|
Grid1.Column2.ColumnOrder = 1
|
|
Grid1.Column2.Header2.Name = "Header2"
|
|
Grid1.Column2.Name = "Column2"
|
|
Grid1.Column2.Text1.Name = "Text1"
|
|
Grid1.Column20.ColumnOrder = 23
|
|
Grid1.Column20.Header1.Name = "Header1"
|
|
Grid1.Column20.Name = "Column20"
|
|
Grid1.Column20.Text1.Name = "Text1"
|
|
Grid1.Column21.ColumnOrder = 18
|
|
Grid1.Column21.Header1.Name = "Header1"
|
|
Grid1.Column21.Name = "Column21"
|
|
Grid1.Column21.Text1.Name = "Text1"
|
|
Grid1.Column22.ColumnOrder = 19
|
|
Grid1.Column22.Header1.Name = "Header1"
|
|
Grid1.Column22.Name = "Column22"
|
|
Grid1.Column22.Text1.Name = "Text1"
|
|
Grid1.Column23.ColumnOrder = 24
|
|
Grid1.Column23.FontName = "Arial Narrow"
|
|
Grid1.Column23.Header1.Name = "Header1"
|
|
Grid1.Column23.Name = "Column23"
|
|
Grid1.Column23.Text1.FontName = "Arial Narrow"
|
|
Grid1.Column23.Text1.Name = "Text1"
|
|
Grid1.Column24.ColumnOrder = 20
|
|
Grid1.Column24.Header1.Name = "Header1"
|
|
Grid1.Column24.Name = "Column24"
|
|
Grid1.Column24.Text1.Name = "Text1"
|
|
Grid1.Column25.ColumnOrder = 25
|
|
Grid1.Column25.ControlSource = "util"
|
|
Grid1.Column25.FontName = "Arial Narrow"
|
|
Grid1.Column25.Name = "Column25"
|
|
Grid1.Column26.ColumnOrder = 26
|
|
Grid1.Column26.ControlSource = "dataora"
|
|
Grid1.Column26.FontName = "Arial Narrow"
|
|
Grid1.Column26.Name = "Column26"
|
|
Grid1.Column27.ColumnOrder = 4
|
|
Grid1.Column27.ControlSource = "explicatia"
|
|
Grid1.Column27.Name = "Column27"
|
|
Grid1.Column27.Width = 113
|
|
Grid1.Column3.ColumnOrder = 11
|
|
Grid1.Column3.Header3.Name = "Header3"
|
|
Grid1.Column3.Name = "Column3"
|
|
Grid1.Column3.Text1.Name = "Text1"
|
|
Grid1.Column4.ColumnOrder = 2
|
|
Grid1.Column4.Header4.Name = "Header4"
|
|
Grid1.Column4.Name = "Column4"
|
|
Grid1.Column4.Text1.Name = "Text1"
|
|
Grid1.Column5.ColumnOrder = 3
|
|
Grid1.Column5.Header5.Name = "Header5"
|
|
Grid1.Column5.Name = "Column5"
|
|
Grid1.Column5.Sparse = .F.
|
|
Grid1.Column5.Text1.BackStyle = 0
|
|
Grid1.Column5.Text1.BorderColor = 255,255,255
|
|
Grid1.Column5.Text1.BorderStyle = 1
|
|
Grid1.Column5.Text1.ColorScheme = 1
|
|
Grid1.Column5.Text1.ColorSource = 0
|
|
Grid1.Column5.Text1.Name = "Text1"
|
|
Grid1.Column5.Text1.SpecialEffect = 2
|
|
Grid1.Column6.ColumnOrder = 5
|
|
Grid1.Column6.Header6.Name = "Header6"
|
|
Grid1.Column6.Name = "Column6"
|
|
Grid1.Column6.Text1.Name = "Text1"
|
|
Grid1.Column7.ColumnOrder = 8
|
|
Grid1.Column7.Header7.Name = "Header7"
|
|
Grid1.Column7.Name = "Column7"
|
|
Grid1.Column7.Text1.Name = "Text1"
|
|
Grid1.Column8.ColumnOrder = 9
|
|
Grid1.Column8.Header8.Name = "Header8"
|
|
Grid1.Column8.Name = "Column8"
|
|
Grid1.Column8.Text1.Name = "Text1"
|
|
Grid1.Column9.ColumnOrder = 10
|
|
Grid1.Column9.Header9.Name = "Header9"
|
|
Grid1.Column9.Name = "Column9"
|
|
Grid1.Column9.Text1.Name = "Text1"
|
|
Grid1.ColumnCount = 27
|
|
Grid1.Height = 469
|
|
Grid1.Left = 1
|
|
Grid1.Name = "Grid1"
|
|
Grid1.Panel = 1
|
|
Grid1.Top = 86
|
|
Grid1.Width = 791
|
|
Grid1.ZOrderSet = 14
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Cmdtermin1.ZOrderSet = 15
|
|
Text1.Left = 956
|
|
Text1.Name = "Text1"
|
|
Text1.Top = 72
|
|
Text1.Visible = .F.
|
|
Text1.ZOrderSet = 16
|
|
Label3.Left = 1069
|
|
Label3.Name = "Label3"
|
|
Label3.Top = 43
|
|
Label3.Visible = .F.
|
|
Label3.ZOrderSet = 17
|
|
Shape6.Height = 44
|
|
Shape6.Left = 5
|
|
Shape6.Name = "Shape6"
|
|
Shape6.Top = 39
|
|
Shape6.Width = 785
|
|
Shape6.ZOrderSet = 2
|
|
Label7.Name = "Label7"
|
|
Label7.ZOrderSet = 18
|
|
Cmdlist1.Name = "Cmdlist1"
|
|
Cmdlist1.ZOrderSet = 19
|
|
Command1.Left = 994
|
|
Command1.Name = "Command1"
|
|
Command1.Top = 108
|
|
Command1.ZOrderSet = 20
|
|
Label10.Caption = "Jurnal"
|
|
Label10.Height = 22
|
|
Label10.Left = 11
|
|
Label10.Name = "Label10"
|
|
Label10.Top = 8
|
|
Label10.Width = 47
|
|
Label10.ZOrderSet = 21
|
|
Text16.Name = "Text16"
|
|
Text16.ZOrderSet = 22
|
|
Text17.Name = "Text17"
|
|
Text17.ZOrderSet = 23
|
|
oMenuShortcut.Name = "oMenuShortcut"
|
|
oMenuShortcut.ZOrderSet = 24
|
|
Label19.Caption = "Nu sunt inregistrate miscari de imobilizari in aceasta luna!"
|
|
Label19.Height = 60
|
|
Label19.Left = 292
|
|
Label19.Name = "Label19"
|
|
Label19.Top = 254
|
|
Label19.Width = 272
|
|
Label19.ZOrderSet = 25
|
|
Label1.Left = 959
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 50
|
|
Label1.Visible = .F.
|
|
Label1.ZOrderSet = 26
|
|
Text2.Left = 1097
|
|
Text2.Name = "Text2"
|
|
Text2.Top = 72
|
|
Text2.Visible = .F.
|
|
Text2.ZOrderSet = 27
|
|
Label2.Left = 1125
|
|
Label2.Name = "Label2"
|
|
Label2.Top = 50
|
|
Label2.Visible = .F.
|
|
Label2.ZOrderSet = 28
|
|
Command2.Left = 918
|
|
Command2.Name = "Command2"
|
|
Command2.Top = 108
|
|
Command2.ZOrderSet = 29
|
|
t3.Left = 804
|
|
t3.Name = "t3"
|
|
t3.Top = 72
|
|
t3.Visible = .F.
|
|
t3.ZOrderSet = 30
|
|
Label5.Left = 532
|
|
Label5.Name = "Label5"
|
|
Label5.Top = 458
|
|
Label5.Visible = .F.
|
|
Label5.ZOrderSet = 3
|
|
Label6.Left = 629
|
|
Label6.Name = "Label6"
|
|
Label6.Top = 459
|
|
Label6.Visible = .F.
|
|
Label6.ZOrderSet = 4
|
|
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
|
TERMINAT1.IMBUTON1.Height = 29
|
|
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
|
TERMINAT1.IMBUTON1.Width = 27
|
|
TERMINAT1.Left = 766
|
|
TERMINAT1.Name = "TERMINAT1"
|
|
TERMINAT1.Top = 4
|
|
TERMINAT1.ZOrderSet = 31
|
|
Label4.Left = 806
|
|
Label4.Name = "Label4"
|
|
Label4.Top = 49
|
|
Label4.Visible = .F.
|
|
Label4.ZOrderSet = 32
|
|
EXCEL1.COMMAND1.Name = "COMMAND1"
|
|
EXCEL1.IMBUTON1.Height = 27
|
|
EXCEL1.IMBUTON1.Name = "IMBUTON1"
|
|
EXCEL1.IMBUTON1.Width = 30
|
|
EXCEL1.Left = 704
|
|
EXCEL1.Name = "EXCEL1"
|
|
EXCEL1.Top = 4
|
|
EXCEL1.ZOrderSet = 33
|
|
Cmdlist2.COMMAND1.Name = "COMMAND1"
|
|
Cmdlist2.IMBUTON1.Height = 27
|
|
Cmdlist2.IMBUTON1.Name = "IMBUTON1"
|
|
Cmdlist2.IMBUTON1.Width = 30
|
|
Cmdlist2.Left = 735
|
|
Cmdlist2.Name = "Cmdlist2"
|
|
Cmdlist2.Top = 4
|
|
Cmdlist2.ZOrderSet = 34
|
|
Sterge1.COMMAND1.Name = "COMMAND1"
|
|
Sterge1.IMBUTON1.Height = 27
|
|
Sterge1.IMBUTON1.Name = "IMBUTON1"
|
|
Sterge1.IMBUTON1.Width = 30
|
|
Sterge1.Name = "Sterge1"
|
|
Sterge1.Visible = .F.
|
|
Sterge1.ZOrderSet = 0
|
|
Modifica1.COMMAND1.Name = "COMMAND1"
|
|
Modifica1.IMBUTON1.Height = 27
|
|
Modifica1.IMBUTON1.Name = "IMBUTON1"
|
|
Modifica1.IMBUTON1.Width = 30
|
|
Modifica1.Name = "Modifica1"
|
|
Modifica1.Visible = .F.
|
|
Modifica1.ZOrderSet = 1
|
|
Command3.Left = 816
|
|
Command3.Name = "Command3"
|
|
Command3.Top = 108
|
|
Command3.Visible = .F.
|
|
Command3.ZOrderSet = 35
|
|
Cgest.Left = 947
|
|
Cgest.Name = "Cgest"
|
|
Cgest.Top = 116
|
|
Cgest.Visible = .F.
|
|
Cgest.ZOrderSet = 36
|
|
Check7.Left = 516
|
|
Check7.Name = "Check7"
|
|
Check7.Top = 444
|
|
Check7.Visible = .F.
|
|
Check7.ZOrderSet = 5
|
|
Check12.Left = 612
|
|
Check12.Name = "Check12"
|
|
Check12.Top = 444
|
|
Check12.Visible = .F.
|
|
Check12.ZOrderSet = 6
|
|
Check11.Left = 96
|
|
Check11.Name = "Check11"
|
|
Check11.Top = 62
|
|
Check11.ZOrderSet = 37
|
|
Check10.Left = 96
|
|
Check10.Name = "Check10"
|
|
Check10.Top = 44
|
|
Check10.ZOrderSet = 38
|
|
Check8.Left = 612
|
|
Check8.Name = "Check8"
|
|
Check8.Top = 409
|
|
Check8.Visible = .F.
|
|
Check8.ZOrderSet = 7
|
|
Check6.Caption = "Responsabil"
|
|
Check6.Left = 448
|
|
Check6.Name = "Check6"
|
|
Check6.Top = 44
|
|
Check6.ZOrderSet = 39
|
|
Check5.Left = 271
|
|
Check5.Name = "Check5"
|
|
Check5.Top = 62
|
|
Check5.ZOrderSet = 40
|
|
Check3.Left = 10
|
|
Check3.Name = "Check3"
|
|
Check3.Top = 44
|
|
Check3.ZOrderSet = 41
|
|
Check2.Left = 181
|
|
Check2.Name = "Check2"
|
|
Check2.Top = 62
|
|
Check2.ZOrderSet = 42
|
|
Check9.Left = 271
|
|
Check9.Name = "Check9"
|
|
Check9.Top = 44
|
|
Check9.ZOrderSet = 43
|
|
Check4.Left = 181
|
|
Check4.Name = "Check4"
|
|
Check4.Top = 44
|
|
Check4.ZOrderSet = 44
|
|
Check1.Left = 10
|
|
Check1.Name = "Check1"
|
|
Check1.Top = 62
|
|
Check1.ZOrderSet = 45
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Check13' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "Explicatia", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 366, ;
|
|
Name = "Check13", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 44, ;
|
|
Width = 67, ;
|
|
ZOrderSet = 46
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check14' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "Utilizator", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 366, ;
|
|
Name = "Check14", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 62, ;
|
|
Width = 67, ;
|
|
ZOrderSet = 47
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column25.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Utilizator", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column25.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.Column26.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data/ora miscarii", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column26.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.Column27.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Explicatia", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column27.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE afisactual
|
|
|
|
STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract,tnrinv,tresp,tamort,tdata,tdatpif,t1,t2,t3
|
|
*WAIT WINDOW "afisactual"
|
|
|
|
SET EXACT ON
|
|
sele xmf
|
|
IF this.check14.Value=1
|
|
t3="UPPER(LEFT(ALLTRIM(util),LEN(pc_nume)))==UPPER(pc_nume)"
|
|
ENDIF
|
|
IF this.check13.Value=1
|
|
t2="UPPER(LEFT(ALLTRIM(explicatia),LEN(M.explicatia)))==UPPER(m.explicatia)"
|
|
ENDIF
|
|
IF this.check12.Value=1
|
|
t1='UZURA>=NORMAT'
|
|
ENDIF
|
|
if Bden==.t. then
|
|
Tden="UPPER(LEFT(denumire,LEN(M.denumire)))==UPPER(m.denumire)"
|
|
endif
|
|
|
|
if Bscd==.t. then
|
|
Tscd="UPPER(LEFT(ALLTRIM(scd),LEN(M.scd)))==UPPER(m.scd)"
|
|
endif
|
|
|
|
if bgest==.t. and m.gest#-1 then
|
|
Tgest="gest==m.gest"
|
|
endif
|
|
|
|
|
|
if bsuma==.t. then
|
|
Tsuma="(valoare>=m.suma1) and (valoare<=m.suma2)"
|
|
endif
|
|
|
|
if bnract==.t. then
|
|
Tnract="(nract>=m.nr1) and (nract<=m.nr2)"
|
|
endif
|
|
|
|
if Bresp==.t. then
|
|
Tresp="UPPER(LEFT(respons,LEN(M.respons)))==UPPER(m.respons)"
|
|
ENDIF
|
|
|
|
if bnrinv==.t. then
|
|
Tnrinv="(VAL(nrinv)>=pnrinv1) and (VAL(nrinv)<=pnrinv2)"
|
|
endif
|
|
|
|
if bamort==.t. then
|
|
Tamort="(amortlun>=pamort1) and (amortlun<=pamort2)"
|
|
ENDIF
|
|
|
|
if bdata==.t. then
|
|
Tdata="(dataact>=m.data1) and (dataact<=m.data2)"
|
|
ENDIF
|
|
|
|
if bdatpif==.t. then
|
|
Tdatpif="(datapif>=pdata1) and (datapif<=pdata2)"
|
|
ENDIF
|
|
|
|
*felul=IIF(thisform.label10.Caption ="Lista imobilizarilor corporale"," ","N")
|
|
*WAIT WINDOW 'felul>>'+felul
|
|
|
|
IF bcasat==.t.
|
|
sele xmf
|
|
SET FILTER TO &t1 and &t2 and &t3 AND &Tden AND &Tsuma AND &Tgest and &tscd and &tnract AND &tnrinv AND &tresp AND &Tamort AND &Tdata AND &Tdatpif and casat
|
|
ELSE
|
|
SET FILTER TO &t1 and &t2 and &t3 AND &Tden AND &Tsuma AND &Tgest and &tscd and &tnract AND &tnrinv AND &tresp AND &Tamort AND &Tdata AND &Tdatpif
|
|
ENDIF
|
|
|
|
SELECT xmf
|
|
*set order to 5 && NRINV
|
|
*THISFORM.CALCUZURA
|
|
*thisform.calcamort
|
|
sele xmf
|
|
go top
|
|
THISFORM.GRID1.REFRESH
|
|
|
|
sele xmf
|
|
*!* sum amortlun to m.suma
|
|
*!* sum amorttot to m.sumat
|
|
*!* SUM VALOARE TO TVALOARE
|
|
|
|
thisform.text1.refresh
|
|
thisform.text2.refresh
|
|
thisform.t3.refresh
|
|
*thisform.Refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE calcamort
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE calcuzura
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
*WAIT WINDOW "init"
|
|
*ON ERROR do a
|
|
*!* if existacamp('xmf','fel')
|
|
*!* DO mesaj WITH "Dati reindexare!",""
|
|
*!* *this.cmdTERMIN1.click
|
|
*!* ENDIF
|
|
|
|
STORE .f. to bnrinv,bresp,bcasat,bamort,bdata,bdatpif
|
|
STORE ".T." TO Tnrinv,Tresp,Tamort,Tdata,Tdatpif
|
|
store 0 to m.suma1,m.suma2,m.suma,m.sumat,m.nr1,m.nr2,TVALOARE
|
|
store .f. to bden,bsuma,bgest,bscd,bnract
|
|
STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract
|
|
|
|
sele xmf
|
|
*!* IF this.label10.Caption="Lista imobilizarilor corporale"
|
|
*!* SET FILTER TO fel=" "
|
|
*!* ELSE
|
|
*!* SET FILTER TO UPPER(fel)='N'
|
|
*!* ENDIF
|
|
go top
|
|
if eof()
|
|
thisform.grid1.gridlines=0
|
|
thisform.check1.enabled=.f.
|
|
thisform.check2.enabled=.f.
|
|
thisform.check3.enabled=.f.
|
|
thisform.check4.enabled=.f.
|
|
thisform.check5.enabled=.f.
|
|
thisform.check6.enabled=.f.
|
|
*thisform.check7.enabled=.f.
|
|
thisform.check9.enabled=.f.
|
|
thisform.check10.enabled=.f.
|
|
thisform.check11.enabled=.f.
|
|
thisform.check13.enabled=.f.
|
|
thisform.check14.enabled=.f.
|
|
thisform.command1.enabled=.f.
|
|
thisform.label19.visible=.t.
|
|
endif
|
|
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE modificare
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS nStyle
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE Check13.Click
|
|
m.explicatia=''
|
|
IF this.Value=1
|
|
oj=CREATEOBJECT('cautlitere')
|
|
WITH oj
|
|
.caption='Explicatia'
|
|
.text1.controlsource='m.explicatia'
|
|
ENDWITH
|
|
oj.show(1)
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Check13.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check14.Click
|
|
IF this.Value=1
|
|
oj=CREATEOBJECT('cautlitere')
|
|
oj.caption='Utilizatorul'
|
|
oj.text1.controlsource='pc_nume'
|
|
oj.show(1)
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check14.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdlist2.COMMAND1.Click
|
|
|
|
THISFORM.AFISACTUAL
|
|
thisform.alwaysontop=.f.
|
|
*report form listmfjurnal to printer prompt preview
|
|
report form jurnal to printer prompt preview
|
|
|
|
thisform.alwaysontop=.t.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Init
|
|
*
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS jurnal_nou 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="SEIP1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="List1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column5.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column5.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column6.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column6.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column11.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column11.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column12.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column12.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column13.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column13.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column14.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column14.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column15.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column15.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column16.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column16.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column17.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column17.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column18.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column18.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column19.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column19.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column20.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column20.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column21.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column21.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column22.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column22.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column23.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column23.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column24.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column24.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column25.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column25.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column26.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column26.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column27.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column27.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column28.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column28.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column29.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column29.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column30.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column30.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column31.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column31.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check11" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check14" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check13" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: afisactual
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 3
|
|
DoCreate = .T.
|
|
Height = 557
|
|
Name = "jurnal_nou"
|
|
ScrollBars = 0
|
|
Width = 797
|
|
SHAPE1.Height = 36
|
|
SHAPE1.Left = 0
|
|
SHAPE1.Name = "SHAPE1"
|
|
SHAPE1.Top = 0
|
|
SHAPE1.Width = 728
|
|
SHAPE1.ZOrderSet = 1
|
|
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
|
TERMINAT1.IMBUTON1.Height = 29
|
|
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
|
TERMINAT1.IMBUTON1.Width = 27
|
|
TERMINAT1.Left = 762
|
|
TERMINAT1.Name = "TERMINAT1"
|
|
TERMINAT1.Top = 2
|
|
TERMINAT1.ZOrderSet = 2
|
|
TITLUFRUMOS1.Caption = "JURNAL"
|
|
TITLUFRUMOS1.Height = 21
|
|
TITLUFRUMOS1.Left = 13
|
|
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
|
TITLUFRUMOS1.Top = 7
|
|
TITLUFRUMOS1.Width = 364
|
|
TITLUFRUMOS1.ZOrderSet = 16
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Check1' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Denumire", ;
|
|
ControlSource = "bden", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 16, ;
|
|
Name = "Check1", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 12, ;
|
|
Top = 68, ;
|
|
Width = 64, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check10' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data act", ;
|
|
ControlSource = "bdata", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 283, ;
|
|
Name = "Check10", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 45, ;
|
|
Width = 56, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check11' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data pif", ;
|
|
ControlSource = "bdatpif", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 283, ;
|
|
Name = "Check11", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 68, ;
|
|
Width = 53, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check13' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "Explicatia", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 355, ;
|
|
Name = "Check13", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 45, ;
|
|
Width = 67, ;
|
|
ZOrderSet = 15
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check14' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "Utilizator", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 355, ;
|
|
Name = "Check14", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 69, ;
|
|
Width = 67, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check2' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Cont Deb.", ;
|
|
ControlSource = "bscd", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 199, ;
|
|
Name = "Check2", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 12, ;
|
|
Top = 45, ;
|
|
Width = 66, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check3' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Nr. Doc.", ;
|
|
ControlSource = "bnract", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 16, ;
|
|
Name = "Check3", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 20, ;
|
|
Top = 45, ;
|
|
Width = 58, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check4' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Gestiune", ;
|
|
ControlSource = "bgest", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 432, ;
|
|
Name = "Check4", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 15, ;
|
|
Top = 68, ;
|
|
Width = 59, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check5' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 0, ;
|
|
Caption = "Nr.inventar", ;
|
|
ControlSource = "bnrinv", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 199, ;
|
|
Name = "Check5", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 68, ;
|
|
Width = 71, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check6' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Responsabili", ;
|
|
ControlSource = "bresp", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 432, ;
|
|
Name = "Check6", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 45, ;
|
|
Width = 78, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check7' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Valoare de inventar", ;
|
|
ControlSource = "", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 84, ;
|
|
Name = "Check7", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 20, ;
|
|
Top = 68, ;
|
|
Width = 111, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check9' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Valoare de achizitie", ;
|
|
ControlSource = "bsuma", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 84, ;
|
|
Name = "Check9", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 20, ;
|
|
Top = 45, ;
|
|
Width = 109, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Gridb1' AS gridb WITH ;
|
|
ColumnCount = 31, ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 451, ;
|
|
Left = 6, ;
|
|
Name = "Gridb1", ;
|
|
Panel = 1, ;
|
|
RecordSource = "XMF", ;
|
|
Top = 96, ;
|
|
Width = 784, ;
|
|
ZOrderSet = 4, ;
|
|
COLUMN1.ControlSource = "nract", ;
|
|
COLUMN1.FontName = "Arial Narrow", ;
|
|
COLUMN1.HEADER1.Alignment = 2, ;
|
|
COLUMN1.HEADER1.Caption = "Nr. Act", ;
|
|
COLUMN1.HEADER1.FontName = "Arial Narrow", ;
|
|
COLUMN1.HEADER1.Name = "HEADER1", ;
|
|
COLUMN1.Name = "COLUMN1", ;
|
|
COLUMN1.TEXT1.FontName = "Arial Narrow", ;
|
|
COLUMN1.TEXT1.Name = "TEXT1", ;
|
|
COLUMN1.Width = 53, ;
|
|
Column2.ColumnOrder = 2, ;
|
|
Column2.ControlSource = "dataact", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Name = "Column2", ;
|
|
Column2.Width = 64, ;
|
|
Column3.ColumnOrder = 6, ;
|
|
Column3.ControlSource = "denumire", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.Name = "Column3", ;
|
|
Column3.Width = 169, ;
|
|
Column4.ColumnOrder = 7, ;
|
|
Column4.ControlSource = "upper(explicatia)", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Name = "Column4", ;
|
|
Column4.Width = 124, ;
|
|
Column5.ColumnOrder = 8, ;
|
|
Column5.ControlSource = "valoare", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.Format = "kr", ;
|
|
Column5.InputMask = (get_mask(14,gnZ)), ;
|
|
Column5.Name = "Column5", ;
|
|
Column5.Width = 85, ;
|
|
Column6.ColumnOrder = 3, ;
|
|
Column6.ControlSource = "datapif", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.Name = "Column6", ;
|
|
Column6.Width = 53, ;
|
|
Column7.ColumnOrder = 4, ;
|
|
Column7.ControlSource = "allt(nrpif)", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.Name = "Column7", ;
|
|
Column7.Width = 41, ;
|
|
Column8.ColumnOrder = 5, ;
|
|
Column8.ControlSource = "allt(nrinv)", ;
|
|
Column8.FontName = "Arial Narrow", ;
|
|
Column8.Name = "Column8", ;
|
|
Column8.Width = 54, ;
|
|
Column9.ColumnOrder = 13, ;
|
|
Column9.ControlSource = "codmf", ;
|
|
Column9.FontName = "Arial Narrow", ;
|
|
Column9.Name = "Column9", ;
|
|
Column9.Width = 46, ;
|
|
Column10.ColumnOrder = 14, ;
|
|
Column10.ControlSource = "normat/12", ;
|
|
Column10.FontName = "Arial Narrow", ;
|
|
Column10.InputMask = "9999.99", ;
|
|
Column10.Name = "Column10", ;
|
|
Column10.Width = 42, ;
|
|
Column11.ColumnOrder = 16, ;
|
|
Column11.ControlSource = "uzura", ;
|
|
Column11.FontName = "Arial Narrow", ;
|
|
Column11.Name = "Column11", ;
|
|
Column11.Width = 53, ;
|
|
Column12.ColumnOrder = 18, ;
|
|
Column12.ControlSource = "tipamort", ;
|
|
Column12.FontName = "Arial Narrow", ;
|
|
Column12.Name = "Column12", ;
|
|
Column12.Width = 44, ;
|
|
Column13.ColumnOrder = 19, ;
|
|
Column13.ControlSource = "amortlun", ;
|
|
Column13.FontName = "Arial Narrow", ;
|
|
Column13.Format = "kr", ;
|
|
Column13.InputMask = (get_mask(14,gnZ)), ;
|
|
Column13.Name = "Column13", ;
|
|
Column14.ColumnOrder = 17, ;
|
|
Column14.ControlSource = "cota", ;
|
|
Column14.FontName = "Arial Narrow", ;
|
|
Column14.Name = "Column14", ;
|
|
Column14.Width = 38, ;
|
|
Column15.ColumnOrder = 20, ;
|
|
Column15.ControlSource = "amorttot", ;
|
|
Column15.FontName = "Arial Narrow", ;
|
|
Column15.Format = "kr", ;
|
|
Column15.InputMask = (get_mask(14,gnZ)), ;
|
|
Column15.Name = "Column15", ;
|
|
Column16.ColumnOrder = 21, ;
|
|
Column16.ControlSource = "amortan", ;
|
|
Column16.FontName = "Arial Narrow", ;
|
|
Column16.Format = "kr", ;
|
|
Column16.InputMask = (get_mask(14,gnZ)), ;
|
|
Column16.Name = "Column16", ;
|
|
Column17.ColumnOrder = 24, ;
|
|
Column17.ControlSource = "gest", ;
|
|
Column17.FontName = "Arial Narrow", ;
|
|
Column17.Name = "Column17", ;
|
|
Column17.Width = 43, ;
|
|
Column18.ColumnOrder = 31, ;
|
|
Column18.ControlSource = "cod", ;
|
|
Column18.FontName = "Arial Narrow", ;
|
|
Column18.Name = "Column18", ;
|
|
Column18.Width = 41, ;
|
|
Column19.ColumnOrder = 10, ;
|
|
Column19.ControlSource = "valramasa", ;
|
|
Column19.FontName = "Arial Narrow", ;
|
|
Column19.Format = "kr", ;
|
|
Column19.InputMask = (get_mask(14,gnZ)), ;
|
|
Column19.Name = "Column19", ;
|
|
Column20.ColumnOrder = 11, ;
|
|
Column20.ControlSource = "VALREZ", ;
|
|
Column20.FontName = "Arial Narrow", ;
|
|
Column20.Format = "kr", ;
|
|
Column20.InputMask = (get_mask(14,gnZ)), ;
|
|
Column20.Name = "Column20", ;
|
|
Column21.ColumnOrder = 25, ;
|
|
Column21.ControlSource = "respons", ;
|
|
Column21.FontName = "Arial Narrow", ;
|
|
Column21.Name = "Column21", ;
|
|
Column21.Width = 108, ;
|
|
Column22.ColumnOrder = 26, ;
|
|
Column22.ControlSource = "scd", ;
|
|
Column22.FontName = "Arial Narrow", ;
|
|
Column22.Name = "Column22", ;
|
|
Column22.Width = 45, ;
|
|
Column23.ColumnOrder = 27, ;
|
|
Column23.ControlSource = "iif(casat=.f.,'NU','DA')", ;
|
|
Column23.FontName = "Arial Narrow", ;
|
|
Column23.Name = "Column23", ;
|
|
Column23.Width = 55, ;
|
|
Column24.ColumnOrder = 28, ;
|
|
Column24.ControlSource = "cauza", ;
|
|
Column24.FontName = "Arial Narrow", ;
|
|
Column24.Name = "Column24", ;
|
|
Column25.ColumnOrder = 29, ;
|
|
Column25.ControlSource = "util", ;
|
|
Column25.FontName = "Arial Narrow", ;
|
|
Column25.Name = "Column25", ;
|
|
Column25.Width = 104, ;
|
|
Column26.ColumnOrder = 30, ;
|
|
Column26.ControlSource = "dataora", ;
|
|
Column26.FontName = "Arial Narrow", ;
|
|
Column26.Name = "Column26", ;
|
|
Column26.Width = 130, ;
|
|
Column27.ColumnOrder = 15, ;
|
|
Column27.ControlSource = "normat2", ;
|
|
Column27.FontName = "Arial Narrow", ;
|
|
Column27.Name = "Column27", ;
|
|
Column27.Width = 51, ;
|
|
Column28.ColumnOrder = 9, ;
|
|
Column28.ControlSource = "valin", ;
|
|
Column28.FontName = "Arial Narrow", ;
|
|
Column28.Format = "kr", ;
|
|
Column28.InputMask = (get_mask(14,gnZ)), ;
|
|
Column28.Name = "Column28", ;
|
|
Column29.ColumnOrder = 12, ;
|
|
Column29.ControlSource = "valin-valoare", ;
|
|
Column29.FontName = "Arial Narrow", ;
|
|
Column29.Format = "kr", ;
|
|
Column29.InputMask = (get_mask(14,gnZ)), ;
|
|
Column29.Name = "Column29", ;
|
|
Column30.ColumnOrder = 22, ;
|
|
Column30.ControlSource = "valin-amorttot", ;
|
|
Column30.FontName = "Arial Narrow", ;
|
|
Column30.Format = "kr", ;
|
|
Column30.InputMask = (get_mask(14,gnZ)), ;
|
|
Column30.Name = "Column30", ;
|
|
Column30.Width = 103, ;
|
|
Column31.ColumnOrder = 23, ;
|
|
Column31.ControlSource = "dataeval", ;
|
|
Column31.FontName = "Arial Narrow", ;
|
|
Column31.Name = "Column31", ;
|
|
Column31.Width = 73
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Gridb1.Column10.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "DNS(ani)", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column10.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 'Gridb1.Column11.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Uzura (luni)", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column11.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 'Gridb1.Column12.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Tip Amort.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column12.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 'Gridb1.Column13.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Amortizment", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column13.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 'Gridb1.Column14.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cota", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column14.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column15.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Total Amort.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column15.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column16.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Amortizare anuala", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column16.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column17.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. Gest.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column17.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column18.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cod", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column18.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 'Gridb1.Column19.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Val. de calcul", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column19.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column2.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data Act", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column2.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 'Gridb1.Column20.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare reziduala", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column20.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column21.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Responsabil", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column21.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 'Gridb1.Column22.Header1' AS header WITH ;
|
|
Caption = "Cont Deb.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column22.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column23.Header1' AS header WITH ;
|
|
Caption = "Iesit din gest.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column23.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 'Gridb1.Column24.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cauza iesirii", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column24.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 'Gridb1.Column25.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Utilizator", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column25.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 'Gridb1.Column26.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data/ora miscarii", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column26.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 'Gridb1.Column27.Header1' AS header WITH ;
|
|
Caption = "DNS calcul", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column27.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 'Gridb1.Column28.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Val.de intrare", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column28.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column29.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Val.majorare", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column29.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 'Gridb1.Column3.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Denumire", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column3.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 'Gridb1.Column30.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Val.ramasa de amortizat", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column30.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 'Gridb1.Column31.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data ultimei eval.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column31.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column4.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Explicatia", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.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 'Gridb1.Column5.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare de achizitie", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.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 'Gridb1.Column6.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data PIF", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.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 'Gridb1.Column7.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. PIF", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column7.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column8.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. Inventar", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column8.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 'Gridb1.Column9.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cod MF", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column9.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 'Label19' AS label WITH ;
|
|
Alignment = 2, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
Caption = "Nu sunt inregistrate miscari de imobilizari in aceasta luna!", ;
|
|
FontBold = .T., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,0,0, ;
|
|
Height = 60, ;
|
|
Left = 336, ;
|
|
Name = "Label19", ;
|
|
Top = 312, ;
|
|
Visible = .F., ;
|
|
Width = 242, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 17
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'List1' AS list WITH ;
|
|
Left = 730, ;
|
|
Name = "List1", ;
|
|
Top = 2, ;
|
|
ZOrderSet = 3, ;
|
|
IMBUTON1.Height = 27, ;
|
|
IMBUTON1.Name = "IMBUTON1", ;
|
|
IMBUTON1.Width = 30, ;
|
|
COMMAND1.Name = "COMMAND1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'SEIP1' AS seip WITH ;
|
|
BorderColor = 128,128,128, ;
|
|
Height = 49, ;
|
|
Left = 5, ;
|
|
Name = "SEIP1", ;
|
|
Top = 41, ;
|
|
Width = 786, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
PROCEDURE Activate
|
|
*WAIT WINDOW "activate"
|
|
tw1=thisform.Width
|
|
tl1=thisform.Height
|
|
|
|
thisform.WindowState=2
|
|
tw2=thisform.Width
|
|
tl2=thisform.Height
|
|
|
|
gw1=thisform.gridb1.width
|
|
gl1=thisform.gridb1.height
|
|
|
|
thisform.gridb1.width=ROUND(gw1*tw2/tw1,0)
|
|
thisform.gridb1.height=ROUND(gl1*tl2/tl1,0)
|
|
*
|
|
thisform.paint
|
|
thisform.refresh
|
|
|
|
*thisform.afisactual
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE afisactual
|
|
|
|
STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract,tnrinv,tresp,tamort,tdata,tdatpif,t1,t2,t3,t7
|
|
*WAIT WINDOW "afisactual"
|
|
|
|
SET EXACT ON
|
|
sele xmf
|
|
IF this.check14.Value=1
|
|
t3="UPPER(LEFT(ALLTRIM(util),LEN(pc_nume)))==UPPER(pc_nume)"
|
|
ENDIF
|
|
IF this.check13.Value=1
|
|
t2="UPPER(LEFT(ALLTRIM(explicatia),LEN(M.explicatia)))==UPPER(m.explicatia)"
|
|
ENDIF
|
|
|
|
if Bden==.t. then
|
|
Tden="UPPER(LEFT(denumire,LEN(M.denumire)))==UPPER(m.denumire)"
|
|
endif
|
|
|
|
if Bscd==.t. then
|
|
Tscd="UPPER(LEFT(ALLTRIM(scd),LEN(M.scd)))==UPPER(m.scd)"
|
|
endif
|
|
|
|
if bgest==.t. and m.gest#-1 then
|
|
Tgest="gest==m.gest"
|
|
endif
|
|
|
|
|
|
if bsuma==.t. then
|
|
Tsuma="(valoare>=m.suma1) and (valoare<=m.suma2)"
|
|
endif
|
|
|
|
if bnract==.t. then
|
|
Tnract="(nract>=m.nr1) and (nract<=m.nr2)"
|
|
endif
|
|
|
|
if Bresp==.t. then
|
|
Tresp="UPPER(LEFT(respons,LEN(M.respons)))==UPPER(m.respons)"
|
|
ENDIF
|
|
|
|
if bnrinv==.t. then
|
|
Tnrinv="(VAL(nrinv)>=pnrinv1) and (VAL(nrinv)<=pnrinv2)"
|
|
endif
|
|
|
|
if bdata==.t. then
|
|
Tdata="(dataact>=m.data1) and (dataact<=m.data2)"
|
|
ENDIF
|
|
|
|
if bdatpif==.t. then
|
|
Tdatpif="(datapif>=pdata1) and (datapif<=pdata2)"
|
|
ENDIF
|
|
|
|
IF this.check7.Value=1
|
|
T7="(valramasa>=pnsuma1) and (valramasa<=pnsuma2)"
|
|
ENDIF
|
|
|
|
*felul=IIF(thisform.label10.Caption ="Lista imobilizarilor corporale"," ","N")
|
|
*WAIT WINDOW 'felul>>'+felul
|
|
|
|
|
|
seT FILTER TO &t1 and &t2 and &t3 AND &Tden AND &Tsuma AND &Tgest and &tscd and &tnract AND &tnrinv AND &tresp AND &Tamort AND &Tdata AND &Tdatpif AND &t7
|
|
|
|
|
|
SELECT xmf
|
|
*set order to 5 && NRINV
|
|
*THISFORM.CALCUZURA
|
|
*thisform.calcamort
|
|
sele xmf
|
|
go top
|
|
THISFORM.gridb1.REFRESH
|
|
|
|
sele xmf
|
|
*!* sum amortlun to m.suma
|
|
*!* sum amorttot to m.sumat
|
|
*!* SUM VALOARE TO TVALOARE
|
|
|
|
*!* thisform.text1.refresh
|
|
*!* thisform.text2.refresh
|
|
*!* thisform.t3.refresh
|
|
*thisform.Refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
*WAIT WINDOW "init"
|
|
*ON ERROR do a
|
|
*!* if existacamp('xmf','fel')
|
|
*!* DO mesaj WITH "Dati reindexare!",""
|
|
*!* *this.cmdTERMIN1.click
|
|
*!* ENDIF
|
|
|
|
STORE .f. to bnrinv,bresp,bcasat,bamort,bdata,bdatpif
|
|
STORE ".T." TO Tnrinv,Tresp,Tamort,Tdata,Tdatpif
|
|
store 0 to m.suma1,m.suma2,m.suma,m.sumat,m.nr1,m.nr2,TVALOARE
|
|
store .f. to bden,bsuma,bgest,bscd,bnract
|
|
STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract
|
|
|
|
sele xmf
|
|
SET ORDER TO dataora
|
|
*!* IF this.label10.Caption="Lista imobilizarilor corporale"
|
|
*!* SET FILTER TO fel=" "
|
|
*!* ELSE
|
|
*!* SET FILTER TO UPPER(fel)='N'
|
|
*!* ENDIF
|
|
go top
|
|
if eof()
|
|
thisform.gridb1.gridlines=0
|
|
thisform.check1.enabled=.f.
|
|
thisform.check2.enabled=.f.
|
|
thisform.check3.enabled=.f.
|
|
thisform.check4.enabled=.f.
|
|
thisform.check5.enabled=.f.
|
|
thisform.check6.enabled=.f.
|
|
*thisform.check7.enabled=.f.
|
|
thisform.check9.enabled=.f.
|
|
thisform.check10.enabled=.f.
|
|
thisform.check11.enabled=.f.
|
|
thisform.check13.enabled=.f.
|
|
thisform.check14.enabled=.f.
|
|
*thisform.command1.enabled=.f.
|
|
thisform.label19.visible=.t.
|
|
endif
|
|
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Release
|
|
SELECT xmf
|
|
SET FILTER TO
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Click
|
|
if Bden==.t. then
|
|
OLIT=CREATEOBJECT("CAUTLITERE")
|
|
WITH OLIT
|
|
.CAPTION="Denumire"
|
|
.text1.controlsource="m.denumire"
|
|
endwith
|
|
olit.show(1)
|
|
endif
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check10.Click
|
|
STORE DATE() TO m.data1, m.data2
|
|
if bdata==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Data act"
|
|
.label1.caption="Data minima:"
|
|
.label2.caption="Data maxima:"
|
|
.text1.controlsource="m.data1"
|
|
.text2.controlsource="m.data2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check10.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check11.Click
|
|
STORE DATE() TO pdata1, pdata2
|
|
if bdatpif==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Data pif"
|
|
.label1.caption="Data minima:"
|
|
.label2.caption="Data maxima:"
|
|
.text1.controlsource="pdata1"
|
|
.text2.controlsource="pdata2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check11.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check13.Click
|
|
m.explicatia=''
|
|
IF this.Value=1
|
|
oj=CREATEOBJECT('cautlitere')
|
|
WITH oj
|
|
.caption='Explicatia'
|
|
.text1.controlsource='m.explicatia'
|
|
ENDWITH
|
|
oj.show(1)
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Check13.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check14.Click
|
|
IF this.Value=1
|
|
oj=CREATEOBJECT('cautlitere')
|
|
oj.caption='Utilizatorul'
|
|
oj.text1.controlsource='pc_nume'
|
|
oj.show(1)
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check14.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check2.Click
|
|
if Bscd==.t. then
|
|
OLIT=CREATEOBJECT("CAUTLITERE")
|
|
WITH OLIT
|
|
.CAPTION="Simbol Cont Debitor"
|
|
.text1.controlsource="m.scd"
|
|
endwith
|
|
olit.show(1)
|
|
endif
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check2.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check3.Click
|
|
if bnract==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Numarul documentului"
|
|
.label1.caption="Nr. minim:"
|
|
.label2.caption="Nr. maxim:"
|
|
.text1.controlsource="m.nr1"
|
|
.text2.controlsource="m.nr2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check3.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check4.Click
|
|
if bgest==.t. then
|
|
*OLIT=CREATEOBJECT("CAUTLITERE")
|
|
*WITH OLIT
|
|
* .CAPTION="Gestiunea"
|
|
* .text1.controlsource="m.numegest"
|
|
*endwith
|
|
*olit.show(1)
|
|
do caut_alf with 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
|
|
endif
|
|
IF buton=2
|
|
RETURN
|
|
ENDIF
|
|
sele numegest
|
|
locate for numegest=m.numegest
|
|
scatter memvar
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check4.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check5.Click
|
|
STORE 0 TO pnrinv1,pnrinv2
|
|
if bnrinv==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Numarul de inventar"
|
|
.label1.caption="Nr. minim:"
|
|
.label2.caption="Nr. maxim:"
|
|
.text1.controlsource="pnrinv1"
|
|
.text2.controlsource="pnrinv2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check5.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check6.Click
|
|
if Bresp==.t. then
|
|
OLIT=CREATEOBJECT("CAUTLITERE")
|
|
WITH OLIT
|
|
.CAPTION="Responsabil"
|
|
.text1.controlsource="m.respons"
|
|
endwith
|
|
olit.show(1)
|
|
endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check6.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check7.Click
|
|
if this.Value= 1
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Valoare de inventar"
|
|
.label1.caption="Valoare minima:"
|
|
.label2.caption="Valoare maxima:"
|
|
.text1.controlsource="pnsuma1"
|
|
.text2.controlsource="pnsuma2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check7.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check9.Click
|
|
if bsuma==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Valoare de achizitie"
|
|
.label1.caption="Valoare minima:"
|
|
.label2.caption="Valoare maxima:"
|
|
.text1.controlsource="m.suma1"
|
|
.text2.controlsource="m.suma2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check9.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE List1.COMMAND1.Click
|
|
THISFORM.AFISACTUAL
|
|
thisform.alwaysontop=.f.
|
|
*report form listmfjurnal to printer prompt preview
|
|
report form jurnal to printer prompt preview
|
|
|
|
thisform.alwaysontop=.t.
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS lim_inf_sup AS container
|
|
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Text29" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text30" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label35" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BackColor = 255,255,255
|
|
BackStyle = 0
|
|
BorderWidth = 0
|
|
Height = 29
|
|
Name = "lim_inf_sup"
|
|
Width = 107
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Label25' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "ani", ;
|
|
FontItalic = .T., ;
|
|
Height = 17, ;
|
|
Left = 85, ;
|
|
Name = "Label25", ;
|
|
Top = 7, ;
|
|
Width = 19
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label35' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "-", ;
|
|
Height = 17, ;
|
|
Left = 42, ;
|
|
Name = "Label35", ;
|
|
Top = 7, ;
|
|
Width = 6
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Text29' AS textbox WITH ;
|
|
ControlSource = "m.norma_min", ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 23, ;
|
|
Left = 6, ;
|
|
Name = "Text29", ;
|
|
ReadOnly = .T., ;
|
|
Top = 4, ;
|
|
Width = 34
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text30' AS textbox WITH ;
|
|
ControlSource = "m.norma_max", ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 23, ;
|
|
Left = 49, ;
|
|
Name = "Text30", ;
|
|
ReadOnly = .T., ;
|
|
Top = 4, ;
|
|
Width = 34
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS modif AS introd OF "mfix2000.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Name = "modif"
|
|
SHAPE1.Name = "SHAPE1"
|
|
Label18.Name = "Label18"
|
|
LABEL1.Name = "LABEL1"
|
|
Grid1.COLUMN1.ControlSource = "nrinv"
|
|
Grid1.COLUMN1.Header1.Caption = "Nr.Inventar"
|
|
Grid1.COLUMN1.Header1.Name = "Header1"
|
|
Grid1.COLUMN1.Name = "COLUMN1"
|
|
Grid1.COLUMN1.Text1.Name = "Text1"
|
|
Grid1.COLUMN2.ControlSource = "Denumire"
|
|
Grid1.COLUMN2.Header1.Caption = "Denumire"
|
|
Grid1.COLUMN2.Header1.Name = "Header1"
|
|
Grid1.COLUMN2.Name = "COLUMN2"
|
|
Grid1.COLUMN2.Text1.Name = "Text1"
|
|
Grid1.COLUMN2.Width = 210
|
|
Grid1.COLUMN3.ColumnOrder = 6
|
|
Grid1.COLUMN3.ControlSource = ""
|
|
Grid1.COLUMN3.Header1.Name = "Header1"
|
|
Grid1.COLUMN3.Name = "COLUMN3"
|
|
Grid1.COLUMN3.Text1.Name = "Text1"
|
|
Grid1.COLUMN3.Text1.Visible = .F.
|
|
Grid1.COLUMN3.Visible = .F.
|
|
Grid1.COLUMN4.ColumnOrder = 5
|
|
Grid1.COLUMN4.ControlSource = ""
|
|
Grid1.COLUMN4.Header1.Name = "Header1"
|
|
Grid1.COLUMN4.Name = "COLUMN4"
|
|
Grid1.COLUMN4.Text1.Name = "Text1"
|
|
Grid1.COLUMN4.Text1.Visible = .F.
|
|
Grid1.COLUMN4.Visible = .F.
|
|
Grid1.Column5.ColumnOrder = 3
|
|
Grid1.Column5.Header1.Name = "Header1"
|
|
Grid1.Column5.Name = "Column5"
|
|
Grid1.Column5.Text1.Name = "Text1"
|
|
Grid1.Column6.ColumnOrder = 4
|
|
Grid1.Column6.DynamicForeColor = ""
|
|
Grid1.Column6.Header1.Name = "Header1"
|
|
Grid1.Column6.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column6.Name = "Column6"
|
|
Grid1.Column6.Text1.Name = "Text1"
|
|
Grid1.Column7.Header1.Name = "Header1"
|
|
Grid1.Column7.Name = "Column7"
|
|
Grid1.Column7.Text1.Name = "Text1"
|
|
Grid1.Name = "Grid1"
|
|
Grid1.Panel = 1
|
|
Grid1.RecordSource = "mf"
|
|
Shape2.Name = "Shape2"
|
|
LABEL2.Name = "LABEL2"
|
|
Text1.Name = "Text1"
|
|
LABEL3.Name = "LABEL3"
|
|
Text2.Name = "Text2"
|
|
Label4.Name = "Label4"
|
|
Text3.Name = "Text3"
|
|
Label5.Name = "Label5"
|
|
Text4.Name = "Text4"
|
|
Label6.Name = "Label6"
|
|
Text5.Name = "Text5"
|
|
Label7.Name = "Label7"
|
|
Text6.Name = "Text6"
|
|
Label8.Name = "Label8"
|
|
Text13.Name = "Text13"
|
|
Text14.Name = "Text14"
|
|
Label9.Name = "Label9"
|
|
Text8.Name = "Text8"
|
|
Label11.Name = "Label11"
|
|
Text9.Name = "Text9"
|
|
Text9.ReadOnly = .F.
|
|
Label12.Name = "Label12"
|
|
Label17.Name = "Label17"
|
|
Label13.Name = "Label13"
|
|
Text11.Name = "Text11"
|
|
Label14.Name = "Label14"
|
|
Text12.Name = "Text12"
|
|
Label15.Name = "Label15"
|
|
Text15.Name = "Text15"
|
|
Label16.Name = "Label16"
|
|
Shape3.Name = "Shape3"
|
|
Text7.Name = "Text7"
|
|
Text10.Name = "Text10"
|
|
Text18.Name = "Text18"
|
|
Label22.Name = "Label22"
|
|
Text19.Name = "Text19"
|
|
Label23.Name = "Label23"
|
|
Label24.Name = "Label24"
|
|
Label19.Caption = "Nu sunt inregistrate mijloace fixe!"
|
|
Label19.Name = "Label19"
|
|
Label20.Name = "Label20"
|
|
Label21.Name = "Label21"
|
|
Banda21.Name = "Banda21"
|
|
Label10.Caption = "MODIFICARE MIJLOACE FIXE in luna"
|
|
Label10.Name = "Label10"
|
|
Text16.Left = 389
|
|
Text16.Name = "Text16"
|
|
Text16.Top = 6
|
|
Text17.Left = 431
|
|
Text17.Name = "Text17"
|
|
Text17.Top = 6
|
|
LIST1.Command1.Name = "Command1"
|
|
LIST1.Imbuton1.Height = 27
|
|
LIST1.Imbuton1.Name = "Imbuton1"
|
|
LIST1.Imbuton1.Width = 30
|
|
LIST1.Name = "LIST1"
|
|
Renunt1.Command1.Name = "Command1"
|
|
Renunt1.Imbuton1.Height = 27
|
|
Renunt1.Imbuton1.Name = "Imbuton1"
|
|
Renunt1.Imbuton1.Width = 30
|
|
Renunt1.Name = "Renunt1"
|
|
TERMINAT1.Command1.Name = "Command1"
|
|
TERMINAT1.Imbuton1.Height = 27
|
|
TERMINAT1.Imbuton1.Name = "Imbuton1"
|
|
TERMINAT1.Imbuton1.Width = 30
|
|
TERMINAT1.Name = "TERMINAT1"
|
|
Lim_inf_sup1.Label25.Name = "Label25"
|
|
Lim_inf_sup1.Label35.Name = "Label35"
|
|
Lim_inf_sup1.Name = "Lim_inf_sup1"
|
|
Lim_inf_sup1.Text29.Name = "Text29"
|
|
Lim_inf_sup1.Text30.Name = "Text30"
|
|
*</PropValue>
|
|
|
|
PROCEDURE Init
|
|
sele mf
|
|
go top
|
|
if eof()
|
|
thisform.cmdtermin1.enabled=.f.
|
|
thisform.label19.visible=.t.
|
|
endif
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.AfterRowColChange
|
|
LPARAMETERS nColIndex
|
|
local i,t
|
|
|
|
sele mf
|
|
scatter memvar
|
|
for i=1 to 14
|
|
t='thisform.text'+alltrim(str(i))+'.enabled=.t.'
|
|
&t
|
|
t='thisform.text'+alltrim(str(i))+'.refresh'
|
|
&t
|
|
next
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text3.Valid
|
|
*
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS p_imob_e AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Pagefrn1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p2.Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p2.Cw6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p2.Cw4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p2.Cw1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p2.Cw2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p2.Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p2.Shape4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p2.Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p3.Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p3.Cw6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p3.Cw4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p3.Cw1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p3.Cw2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p3.Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p3.Shape4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p3.Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p4.Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p4.Cw6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p4.Cw4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p4.Cw1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p4.Cw2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p4.Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p4.Shape4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p4.Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p1.Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p1.Cw4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p1.Cw3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p1.Cw2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p1.Cw1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p1.Cw5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p1.Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p1.Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrn1.p1.Shape4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Text2" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
AlwaysOnTop = .F.
|
|
AutoCenter = .F.
|
|
BackColor = 192,192,192
|
|
BorderStyle = 2
|
|
DoCreate = .T.
|
|
Height = 500
|
|
Name = "p_imob_e"
|
|
Width = 800
|
|
WindowType = 0
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Container1' AS container WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 0, ;
|
|
BorderWidth = 0, ;
|
|
Height = 48, ;
|
|
Left = 138, ;
|
|
Name = "Container1", ;
|
|
SpecialEffect = 1, ;
|
|
TabStop = .F., ;
|
|
Top = 381, ;
|
|
Width = 302
|
|
*< END OBJECT: BaseClass="container" />
|
|
|
|
ADD OBJECT 'Container1.Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Operator:", ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 8, ;
|
|
Name = "Label1", ;
|
|
Top = 5, ;
|
|
Width = 53
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Nivel de acces:", ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 7, ;
|
|
Name = "Label2", ;
|
|
Top = 24, ;
|
|
Width = 85
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Text1' AS textbox WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "utilizator", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
FontBold = .T., ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 23, ;
|
|
Left = 63, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
TabStop = .F., ;
|
|
Top = 4, ;
|
|
Width = 147
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Container1.Text2' AS textbox WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "m.nivel", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
FontBold = .T., ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 23, ;
|
|
Left = 93, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
TabStop = .F., ;
|
|
Top = 23, ;
|
|
Width = 28
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Image1' AS image WITH ;
|
|
Height = 240, ;
|
|
Left = 228, ;
|
|
Name = "Image1", ;
|
|
Picture = ..\grafice\conimob.bmp, ;
|
|
Stretch = 1, ;
|
|
Top = 112, ;
|
|
Width = 516
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Pagefrn1' AS pagefrn WITH ;
|
|
ErasePage = .T., ;
|
|
Height = 442, ;
|
|
Left = 0, ;
|
|
Name = "Pagefrn1", ;
|
|
Top = 2, ;
|
|
Width = 790, ;
|
|
p2.Name = "p2", ;
|
|
p2.PageOrder = 2, ;
|
|
p2.ToolTipText = "", ;
|
|
p3.Name = "p3", ;
|
|
p3.PageOrder = 3, ;
|
|
p3.ToolTipText = "", ;
|
|
p4.Name = "p4", ;
|
|
p4.PageOrder = 4, ;
|
|
p4.ToolTipText = "", ;
|
|
p1.Caption = "Situatii analitice", ;
|
|
p1.Name = "p1", ;
|
|
p1.PageOrder = 1
|
|
*< END OBJECT: ClassLib="mfix2000.vcx" BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p1.Cw1' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw1", ;
|
|
TabIndex = 1, ;
|
|
Top = 26, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 3, ;
|
|
Label_item1.Caption = "Jurnal Miscari", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p1.Cw2' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw2", ;
|
|
TabIndex = 3, ;
|
|
Top = 133, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 2, ;
|
|
Label_item1.Caption = "Total amortizmente", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p1.Cw3' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw3", ;
|
|
TabIndex = 3, ;
|
|
Top = 180, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 2, ;
|
|
Label_item1.Caption = "Rapoarte", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p1.Cw4' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw4", ;
|
|
TabIndex = 2, ;
|
|
Top = 101, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 1, ;
|
|
Label_item1.Caption = "Rulaj amortizmente", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p1.Cw5' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw5", ;
|
|
TabIndex = 1, ;
|
|
Top = 55, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 3, ;
|
|
Label_item1.Caption = "Jurnal Total Miscari", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p1.Shape1' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 373, ;
|
|
Left = 1, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 1, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p1.Shape2' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 87, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p1.Shape3' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 164, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p1.Shape4' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape4", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 211, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p2.Cw1' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw1", ;
|
|
TabIndex = 1, ;
|
|
Top = 26, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 3, ;
|
|
Label_item1.Caption = "Introducere", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p2.Cw2' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw2", ;
|
|
TabIndex = 3, ;
|
|
Top = 100, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 2, ;
|
|
Label_item1.Caption = "Vizualizare", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p2.Cw4' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw4", ;
|
|
TabIndex = 2, ;
|
|
Top = 56, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 1, ;
|
|
Label_item1.Caption = "Preluare din contabilitate", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p2.Cw6' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw6", ;
|
|
TabIndex = 4, ;
|
|
Top = 149, ;
|
|
Visible = .T., ;
|
|
Width = 126, ;
|
|
ZOrderSet = 1, ;
|
|
Label_item1.Caption = "Rapoarte", ;
|
|
Label_item1.Name = "Label_item1", ;
|
|
Label_item1.TabIndex = 1
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p2.Shape1' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 373, ;
|
|
Left = 1, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 1, ;
|
|
Width = 139, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p2.Shape2' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 85, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p2.Shape3' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 133, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p2.Shape4' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape4", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 180, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p3.Cw1' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw1", ;
|
|
TabIndex = 1, ;
|
|
Top = 26, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 3, ;
|
|
Label_item1.Caption = "Introducere", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p3.Cw2' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw2", ;
|
|
TabIndex = 3, ;
|
|
Top = 100, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 2, ;
|
|
Label_item1.Caption = "Vizualizare", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p3.Cw4' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw4", ;
|
|
TabIndex = 2, ;
|
|
Top = 56, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 1, ;
|
|
Label_item1.Caption = "Preluare din contabilitate", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p3.Cw6' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw6", ;
|
|
TabIndex = 4, ;
|
|
Top = 149, ;
|
|
Visible = .T., ;
|
|
Width = 126, ;
|
|
ZOrderSet = 1, ;
|
|
Label_item1.Caption = "Rapoarte", ;
|
|
Label_item1.Name = "Label_item1", ;
|
|
Label_item1.TabIndex = 1
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p3.Shape1' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 373, ;
|
|
Left = 1, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 1, ;
|
|
Width = 139, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p3.Shape2' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 85, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p3.Shape3' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 133, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p3.Shape4' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape4", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 180, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p4.Cw1' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw1", ;
|
|
TabIndex = 1, ;
|
|
Top = 26, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 3, ;
|
|
Label_item1.Caption = "Introducere", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p4.Cw2' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw2", ;
|
|
TabIndex = 3, ;
|
|
Top = 100, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 2, ;
|
|
Label_item1.Caption = "Vizualizare", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p4.Cw4' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw4", ;
|
|
TabIndex = 2, ;
|
|
Top = 56, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 1, ;
|
|
Label_item1.Caption = "Preluare din contabilitate", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p4.Cw6' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw6", ;
|
|
TabIndex = 4, ;
|
|
Top = 149, ;
|
|
Visible = .T., ;
|
|
Width = 126, ;
|
|
ZOrderSet = 1, ;
|
|
Label_item1.Caption = "Rapoarte", ;
|
|
Label_item1.Name = "Label_item1", ;
|
|
Label_item1.TabIndex = 1
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p4.Shape1' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 373, ;
|
|
Left = 1, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 1, ;
|
|
Width = 139, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p4.Shape2' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 85, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p4.Shape3' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 133, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrn1.p4.Shape4' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape4", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 180, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS nStyle
|
|
LOCAL w,h
|
|
w=_screen.Width
|
|
h=_screen.Height
|
|
|
|
this.Width=w
|
|
this.Height=h
|
|
|
|
*!* lnTopVer = this.lb_version.Top - this.image1.Top
|
|
*!* lnLeftVer = this.lb_version.Left - this.image1.Left
|
|
|
|
this.image1.Left=w-this.image1.Width
|
|
this.image1.Top=h-this.image1.height
|
|
this.container1.top=h-this.container1.height
|
|
|
|
*!* this.Lb_version.Left=this.image1.Left + lnLeftVer
|
|
*!* this.Lb_version.Top=this.image1.Top + lnTopVer
|
|
|
|
WITH this.pagefrn1
|
|
.width=w
|
|
.height=h
|
|
.p1.shape1.height=h
|
|
.p2.shape1.height=h
|
|
.p3.shape1.height=h
|
|
.p4.shape1.height=h
|
|
*.p5.shape1.height=h
|
|
*.p6.shape1.height=h
|
|
endwith
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Image1.RightClick
|
|
set safety off
|
|
|
|
ostart.show(1)
|
|
*DO FORM start00
|
|
do totv
|
|
DO init_optiuni.prg
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p1.Cw1.Click
|
|
DO jurnal
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p1.Cw2.Click
|
|
|
|
DO total_amortizment
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p1.Cw3.Click
|
|
felul="' ','N'"
|
|
|
|
DO sitana.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p1.Cw4.Click
|
|
DO rulaj_amortizment
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p1.Cw5.Click
|
|
DO jurnal_total
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p1.RightClick
|
|
this.parent.RightClick
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p2.Cw1.Click
|
|
IF !luna_inchisa
|
|
buton = 1
|
|
DO WHILE buton = 1
|
|
DO introducere_corporale
|
|
IF buton = 1
|
|
od=CREATE('danu')
|
|
od.SHOW(1)
|
|
ENDIF
|
|
ENDDO
|
|
ELSE
|
|
DO mesaj WITH "Luna inchisa","Nu se pot face preluari!"
|
|
RETURN
|
|
ENDIF
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p2.Cw2.Click
|
|
DO viz_corporale
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p2.Cw4.Click
|
|
IF !luna_inchisa
|
|
buton = 1
|
|
DO WHILE buton = 1
|
|
DO preluare_corporale
|
|
IF buton = 1
|
|
od=CREATE('danu')
|
|
od.SHOW(1)
|
|
ENDIF
|
|
ENDDO
|
|
ELSE
|
|
DO mesaj WITH "Luna inchisa","Nu se pot face preluari!"
|
|
RETURN
|
|
*THIS.Enabled= .F.
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p2.Cw6.Click
|
|
DO listcorp.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p2.RightClick
|
|
this.parent.RightClick
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p3.Cw1.Click
|
|
IF !luna_inchisa
|
|
buton = 1
|
|
DO WHILE buton = 1
|
|
DO introducere_necorporale
|
|
IF buton = 1
|
|
od=CREATE('danu')
|
|
od.SHOW(1)
|
|
ENDIF
|
|
ENDDO
|
|
ELSE
|
|
DO mesaj WITH "Luna inchisa","Nu se pot face preluari!"
|
|
RETURN
|
|
ENDIF
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p3.Cw2.Click
|
|
DO viz_necorporale
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p3.Cw4.Click
|
|
IF !luna_inchisa
|
|
buton = 1
|
|
DO WHILE buton = 1
|
|
DO preluare_necorporale
|
|
IF buton = 1
|
|
od=CREATE('danu')
|
|
od.SHOW(1)
|
|
ENDIF
|
|
ENDDO
|
|
ELSE
|
|
DO mesaj WITH "Luna inchisa","Nu se pot face preluari!"
|
|
RETURN
|
|
*THIS.Enabled= .F.
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p3.Cw6.Click
|
|
DO listnecorp.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p3.RightClick
|
|
this.parent.RightClick
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p4.Cw1.Click
|
|
IF !luna_inchisa
|
|
buton = 1
|
|
DO WHILE buton = 1
|
|
DO introducere_in_curs
|
|
IF buton = 1
|
|
od=CREATE('danu')
|
|
od.SHOW(1)
|
|
ENDIF
|
|
ENDDO
|
|
ELSE
|
|
DO mesaj WITH "Luna inchisa","Nu se pot face preluari!"
|
|
RETURN
|
|
ENDIF
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p4.Cw2.Click
|
|
DO viz_in_curs
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p4.Cw4.Click
|
|
IF !luna_inchisa
|
|
buton = 1
|
|
DO WHILE buton = 1
|
|
DO preluare_incurs
|
|
IF buton = 1
|
|
od=CREATE('danu')
|
|
od.SHOW(1)
|
|
ENDIF
|
|
ENDDO
|
|
|
|
ELSE
|
|
DO mesaj WITH "Luna inchisa","Nu se pot face preluari!"
|
|
RETURN
|
|
*THIS.Enabled= .F.
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p4.Cw6.Click
|
|
*DO list1.mpr
|
|
DO list_incurs
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.p4.RightClick
|
|
this.parent.RightClick
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.Refresh
|
|
IF E_INDEPENDENT
|
|
|
|
this.p2.cw4.Enabled=.f.
|
|
this.p2.cw4.label_ITEM1.Enabled=.f.
|
|
this.p3.cw4.Enabled=.f.
|
|
this.p3.cw4.label_ITEM1.Enabled=.f.
|
|
this.p4.cw4.Enabled=.f.
|
|
this.p4.cw4.label_ITEM1.Enabled=.f.
|
|
ELSE
|
|
this.p2.cw4.Enabled=.t.
|
|
this.p2.cw4.label_ITEM1.Enabled=.t.
|
|
this.p3.cw4.Enabled=.t.
|
|
this.p3.cw4.label_ITEM1.Enabled=.t.
|
|
this.p4.cw4.Enabled=.t.
|
|
this.p4.cw4.label_ITEM1.Enabled=.t.
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrn1.RightClick
|
|
thisform.imaGE1.RightClick
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS p_imob_i AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Pagefrb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Cw4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Cw2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Cw1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Cw3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Shape4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Cw4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Cw2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Cw6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Cw1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Shape4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Text2" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
AlwaysOnTop = .F.
|
|
AutoCenter = .F.
|
|
BackColor = 192,192,192
|
|
DoCreate = .T.
|
|
Name = "p_imob_i"
|
|
WindowType = 0
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Container1' AS container WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 0, ;
|
|
BorderWidth = 0, ;
|
|
Height = 48, ;
|
|
Left = 138, ;
|
|
Name = "Container1", ;
|
|
SpecialEffect = 1, ;
|
|
TabStop = .F., ;
|
|
Top = 381, ;
|
|
Width = 302
|
|
*< END OBJECT: BaseClass="container" />
|
|
|
|
ADD OBJECT 'Container1.Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Operator:", ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 8, ;
|
|
Name = "Label1", ;
|
|
Top = 5, ;
|
|
Width = 53
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Nivel de acces:", ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 7, ;
|
|
Name = "Label2", ;
|
|
Top = 24, ;
|
|
Width = 85
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Text1' AS textbox WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "utilizator", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
FontBold = .T., ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 23, ;
|
|
Left = 63, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
TabStop = .F., ;
|
|
Top = 4, ;
|
|
Width = 147
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Container1.Text2' AS textbox WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "m.nivel", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
FontBold = .T., ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 23, ;
|
|
Left = 93, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
TabStop = .F., ;
|
|
Top = 23, ;
|
|
Width = 28
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Image1' AS image WITH ;
|
|
Height = 240, ;
|
|
Left = 228, ;
|
|
Name = "Image1", ;
|
|
Picture = ..\grafice\conimob.bmp, ;
|
|
Stretch = 1, ;
|
|
Top = 120, ;
|
|
Width = 492
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Pagefrb1' AS pagefrb WITH ;
|
|
ErasePage = .T., ;
|
|
Height = 442, ;
|
|
Left = 0, ;
|
|
Name = "Pagefrb1", ;
|
|
PageCount = 2, ;
|
|
Top = 2, ;
|
|
Width = 790, ;
|
|
Page1.Caption = " Situatii analitice ", ;
|
|
Page1.FontName = "Times New Roman", ;
|
|
Page1.Name = "Page1", ;
|
|
Page2.Caption = " Imobilizari corporale ", ;
|
|
Page2.FontName = "Times New Roman", ;
|
|
Page2.Name = "Page2"
|
|
*< END OBJECT: ClassLib="mfix2000.vcx" BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page1.Cw1' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw1", ;
|
|
TabIndex = 1, ;
|
|
Top = 21, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 3, ;
|
|
Label_item1.Caption = "Jurnal miscari", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page1.Cw2' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw2", ;
|
|
TabIndex = 3, ;
|
|
Top = 93, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 2, ;
|
|
Label_item1.Caption = "Total amortizmente", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page1.Cw3' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw3", ;
|
|
TabIndex = 3, ;
|
|
Top = 137, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 2, ;
|
|
Label_item1.Caption = "Rapoarte", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page1.Cw4' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw4", ;
|
|
TabIndex = 2, ;
|
|
Top = 65, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 1, ;
|
|
Label_item1.Caption = "Rulaj amortizmente", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page1.Shape1' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 373, ;
|
|
Left = 1, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 1, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page1.Shape2' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 52, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page1.Shape3' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 124, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page1.Shape4' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape4", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 168, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page2.Cw1' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw1", ;
|
|
TabIndex = 1, ;
|
|
Top = 21, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 3, ;
|
|
Label_item1.Caption = "Introducere", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page2.Cw2' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw2", ;
|
|
TabIndex = 3, ;
|
|
Top = 93, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 2, ;
|
|
Label_item1.Caption = "Vizualizare", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page2.Cw4' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw4", ;
|
|
TabIndex = 2, ;
|
|
Top = 50, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 1, ;
|
|
Label_item1.Caption = "Preluare din contabilitate", ;
|
|
Label_item1.Name = "Label_item1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page2.Cw6' AS cw WITH ;
|
|
Height = 20, ;
|
|
Left = 6, ;
|
|
Name = "Cw6", ;
|
|
TabIndex = 4, ;
|
|
Top = 137, ;
|
|
Visible = .T., ;
|
|
Width = 126, ;
|
|
ZOrderSet = 1, ;
|
|
Label_item1.Caption = "Rapoarte", ;
|
|
Label_item1.Name = "Label_item1", ;
|
|
Label_item1.TabIndex = 1
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page2.Shape1' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 373, ;
|
|
Left = 1, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 1, ;
|
|
Width = 139, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page2.Shape2' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 80, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page2.Shape3' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 124, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Pagefrb1.Page2.Shape4' AS shape WITH ;
|
|
Curvature = 0, ;
|
|
Height = 2, ;
|
|
Left = 1, ;
|
|
Name = "Shape4", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 168, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS nStyle
|
|
LOCAL w,h
|
|
w=_screen.Width
|
|
h=_screen.Height
|
|
|
|
this.Width=w
|
|
this.Height=h
|
|
|
|
*!* lnTopVer = this.lb_version.Top - this.image1.Top
|
|
*!* lnLeftVer = this.lb_version.Left - this.image1.Left
|
|
|
|
this.image1.Left=w-this.image1.Width
|
|
this.image1.Top=h-this.image1.height
|
|
this.container1.top=h-this.container1.height
|
|
|
|
*!* this.Lb_version.Left=this.image1.Left + lnLeftVer
|
|
*!* this.Lb_version.Top=this.image1.Top + lnTopVer
|
|
|
|
WITH this.pagefrb1
|
|
.width=w
|
|
.height=h
|
|
.page1.shape1.height=h
|
|
.page2.shape1.height=h
|
|
*.p3.shape1.height=h
|
|
*.p4.shape1.height=h
|
|
*.p5.shape1.height=h
|
|
*.p6.shape1.height=h
|
|
endwith
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Image1.RightClick
|
|
set safety off
|
|
|
|
ostart.show(1)
|
|
do totv
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrb1.Page1.Cw1.Click
|
|
DO jurnal
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrb1.Page1.Cw2.Click
|
|
felul="' '"
|
|
DO total_amortizment
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrb1.Page1.Cw3.Click
|
|
DO sitana.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrb1.Page1.Cw4.Click
|
|
felul="' '"
|
|
DO rulaj_amortizment
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrb1.Page2.Activate
|
|
i=this.pageorder
|
|
this.parent.activate_pag(i)
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrb1.Page2.Cw1.Click
|
|
DO introducere_corporale
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrb1.Page2.Cw2.Click
|
|
DO viz_corporale
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrb1.Page2.Cw4.Click
|
|
DO preluare_corporale
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrb1.Page2.Cw6.Click
|
|
DO listcorp.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Pagefrb1.Page2.RightClick
|
|
this.parent.RightClick
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS pagefrb AS pageframe
|
|
*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: activate_pag
|
|
*m: selectie
|
|
*p: c_deschis
|
|
*p: c_gri
|
|
*p: c_inchis
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
c_deschis = 16777215
|
|
c_gri = 0
|
|
c_inchis = 8404992
|
|
ErasePage = .T.
|
|
Height = 92
|
|
Name = "pagefrb"
|
|
PageCount = 1
|
|
TabStretch = 0
|
|
TabStyle = 1
|
|
Width = 789
|
|
Page1.Caption = "Page1"
|
|
Page1.Name = "Page1"
|
|
*</PropValue>
|
|
|
|
PROCEDURE activate_pag
|
|
PARAMETERS np
|
|
|
|
*!* IF np=1
|
|
*!* osetgest.tbrprim.hide
|
|
*!* osetgest.tbrprim.dock(-1,0,0)
|
|
*!* osetviz.tbrprim.dock(0,0,0)
|
|
*!* osetviz.tbrprim.visible=.t.
|
|
*!* else
|
|
*!* osetviz.tbrprim.hide
|
|
*!* osetviz.tbrprim.dock(-1,0,0)
|
|
*!* osetgest.tbrprim.dock(0,135,0)
|
|
*!* osetgest.tbrprim.visible=.t.
|
|
*!* ENDIF
|
|
|
|
FOR i=1 TO this.PageCount
|
|
zi='this.page'+ALLTRIM(STR(i))+'.'
|
|
IF i<>np
|
|
&zi.BackColor=this.c_gri
|
|
&zi.ForeColor=this.c_deschis
|
|
else
|
|
&zi.BackColor=this.c_deschis
|
|
&zi.ForeColor=this.c_inchis
|
|
ENDIF
|
|
NEXT
|
|
|
|
nr_gest=np
|
|
*osetgest.tbrprim.refresh
|
|
|
|
this.selectie(nr_gest)
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
|
|
this.c_gri=11630087
|
|
this.c_deschis=16777215
|
|
this.c_inchis=8404992
|
|
|
|
this.SetAll('backcolor',this.c_gri,'page')
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE RightClick
|
|
this.parent.imaGE1.RightClick
|
|
ENDPROC
|
|
|
|
PROCEDURE selectie
|
|
PARAMETERS nr_g
|
|
ENDPROC
|
|
|
|
PROCEDURE Page1.Activate
|
|
i=this.pageorder
|
|
this.parent.activate_pag(i)
|
|
ENDPROC
|
|
|
|
PROCEDURE Page1.RightClick
|
|
this.parent.RightClick
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS pagefrn AS pageframe
|
|
*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: activate_pag
|
|
*m: selectie
|
|
*p: c_deschis
|
|
*p: c_gri
|
|
*p: c_inchis
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
ActivePage = 1
|
|
c_deschis = 16777215
|
|
c_gri = 0
|
|
c_inchis = 8404992
|
|
ErasePage = .T.
|
|
Height = 92
|
|
Name = "pagefrn"
|
|
PageCount = 4
|
|
Tabs = .T.
|
|
TabStretch = 0
|
|
TabStyle = 1
|
|
Width = 789
|
|
Page1.Caption = "Imobilizari corporale"
|
|
Page1.FontName = "Times New Roman"
|
|
Page1.Name = "p2"
|
|
Page1.PageOrder = 2
|
|
Page1.ToolTipText = "Cont: 301,302"
|
|
Page2.Caption = "Imobilizari necorporale"
|
|
Page2.FontName = "Times New Roman"
|
|
Page2.Name = "p3"
|
|
Page2.PageOrder = 3
|
|
Page2.ToolTipText = "Cont: 303"
|
|
Page3.Caption = "Imobilizari in curs"
|
|
Page3.FontName = "Times New Roman"
|
|
Page3.Name = "p4"
|
|
Page3.PageOrder = 4
|
|
Page3.ToolTipText = "Cont: 341,345"
|
|
Page4.Caption = "Gestiuni"
|
|
Page4.FontName = "Times New Roman"
|
|
Page4.Name = "p1"
|
|
Page4.PageOrder = 1
|
|
*</PropValue>
|
|
|
|
PROCEDURE activate_pag
|
|
PARAMETERS np
|
|
|
|
*!* IF np=1
|
|
*!* osetgest.tbrprim.hide
|
|
*!* osetgest.tbrprim.dock(-1,0,0)
|
|
*!* osetviz.tbrprim.dock(0,0,0)
|
|
*!* osetviz.tbrprim.visible=.t.
|
|
*!* else
|
|
*!* osetviz.tbrprim.hide
|
|
*!* osetviz.tbrprim.dock(-1,0,0)
|
|
*!* osetgest.tbrprim.dock(0,135,0)
|
|
*!* osetgest.tbrprim.visible=.t.
|
|
*!* ENDIF
|
|
|
|
FOR i=1 TO this.PageCount
|
|
zi='this.p'+ALLTRIM(STR(i))+'.'
|
|
IF i<>np
|
|
&zi.BackColor=this.c_gri
|
|
&zi.ForeColor=this.c_deschis
|
|
else
|
|
&zi.BackColor=this.c_deschis
|
|
&zi.ForeColor=this.c_inchis
|
|
ENDIF
|
|
NEXT
|
|
|
|
nr_gest=np
|
|
*osetgest.tbrprim.refresh
|
|
|
|
this.selectie(nr_gest)
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
|
|
this.c_gri=11630087
|
|
this.c_deschis=16777215
|
|
this.c_inchis=8404992
|
|
|
|
this.SetAll('backcolor',this.c_gri,'page')
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE selectie
|
|
PARAMETERS nr_g
|
|
ENDPROC
|
|
|
|
PROCEDURE p1.Activate
|
|
*!* TIP_GEST=THIS.CAPTION
|
|
*!* cont_gest='-1'
|
|
*!* this.parent.activate_pag(1)
|
|
i=this.pageorder
|
|
this.parent.activate_pag(i)
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE p2.Activate
|
|
*!* TIP_GEST=THIS.CAPTION
|
|
*!* cont_gest='301,302'
|
|
|
|
*!* this.parent.activate_pag(2)
|
|
|
|
|
|
i=this.pageorder
|
|
this.parent.activate_pag(i)
|
|
ENDPROC
|
|
|
|
PROCEDURE p2.Init
|
|
*this.BackColor=11630087
|
|
ENDPROC
|
|
|
|
PROCEDURE p3.Activate
|
|
*!* TIP_GEST=THIS.CAPTION
|
|
*!* cont_gest='303'
|
|
|
|
*!* this.parent.activate_pag(3)
|
|
i=this.pageorder
|
|
this.parent.activate_pag(i)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE p4.Activate
|
|
*TIP_GEST=THIS.CAPTION
|
|
*cont_gest='345,347'
|
|
i=this.pageorder
|
|
this.parent.activate_pag(i)
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS preluare AS fisa OF "mfix2000.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Txt15" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Lim_inf_sup1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: cidsectie
|
|
*p: nnorma_max
|
|
*p: nnorma_min
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
cidsectie =
|
|
DoCreate = .T.
|
|
fel_imob = 'C'
|
|
Height = 440
|
|
Name = "preluare"
|
|
nnorma_max = 0
|
|
nnorma_min = 0
|
|
Width = 650
|
|
LABEL25.Name = "LABEL25"
|
|
LABEL25.Visible = .F.
|
|
Shape1.Left = 655
|
|
Shape1.Name = "Shape1"
|
|
Shape1.Top = 12
|
|
Shape1.Visible = .F.
|
|
Shape1.ZOrderSet = 8
|
|
Shape2.Height = 390
|
|
Shape2.Left = 12
|
|
Shape2.Name = "Shape2"
|
|
Shape2.Top = 43
|
|
Shape2.Width = 360
|
|
Shape2.ZOrderSet = 0
|
|
Shape4.Left = 655
|
|
Shape4.Name = "Shape4"
|
|
Shape4.Top = 247
|
|
Shape4.Visible = .F.
|
|
Shape4.ZOrderSet = 9
|
|
Shape7.Left = 596
|
|
Shape7.Name = "Shape7"
|
|
Shape7.Top = 261
|
|
Shape7.Visible = .F.
|
|
Shape7.ZOrderSet = 7
|
|
Shape5.Left = 370
|
|
Shape5.Name = "Shape5"
|
|
Shape5.Top = 239
|
|
Shape5.Visible = .F.
|
|
Shape5.ZOrderSet = 10
|
|
Shape6.Left = 370
|
|
Shape6.Name = "Shape6"
|
|
Shape6.Top = 184
|
|
Shape6.ZOrderSet = 11
|
|
CMDRENUNT1.Command1.Name = "Command1"
|
|
CMDRENUNT1.Imbuton1.Height = 27
|
|
CMDRENUNT1.Imbuton1.Name = "Imbuton1"
|
|
CMDRENUNT1.Imbuton1.Width = 30
|
|
CMDRENUNT1.Left = 528
|
|
CMDRENUNT1.Name = "CMDRENUNT1"
|
|
CMDRENUNT1.TabIndex = 27
|
|
CMDRENUNT1.Top = 372
|
|
CMDRENUNT1.ZOrderSet = 13
|
|
Text1.Left = 172
|
|
Text1.Name = "Text1"
|
|
Text1.TabIndex = 1
|
|
Text1.Top = 48
|
|
Text1.Width = 180
|
|
Text1.ZOrderSet = 14
|
|
Label3.Left = 30
|
|
Label3.Name = "Label3"
|
|
Label3.TabIndex = 35
|
|
Label3.Top = 50
|
|
Label3.ZOrderSet = 15
|
|
Text2.Left = 172
|
|
Text2.Name = "Text2"
|
|
Text2.TabIndex = 2
|
|
Text2.Top = 73
|
|
Text2.Width = 180
|
|
Text2.ZOrderSet = 16
|
|
Label4.Left = 30
|
|
Label4.Name = "Label4"
|
|
Label4.TabIndex = 37
|
|
Label4.Top = 75
|
|
Label4.ZOrderSet = 17
|
|
Text3.Left = 656
|
|
Text3.Name = "Text3"
|
|
Text3.TabIndex = 23
|
|
Text3.Top = 309
|
|
Text3.Visible = .F.
|
|
Text3.ZOrderSet = 18
|
|
Label5.Left = 30
|
|
Label5.Name = "Label5"
|
|
Label5.TabIndex = 39
|
|
Label5.Top = 101
|
|
Label5.ZOrderSet = 19
|
|
Text4.Format = "kr"
|
|
Text4.InputMask = (get_mask(14,gnZ))
|
|
Text4.Left = 172
|
|
Text4.Name = "Text4"
|
|
Text4.TabIndex = 4
|
|
Text4.Top = 137
|
|
Text4.Width = 180
|
|
Text4.ZOrderSet = 20
|
|
Label6.Caption = "Valoare de achizitie"
|
|
Label6.Height = 18
|
|
Label6.Left = 30
|
|
Label6.Name = "Label6"
|
|
Label6.TabIndex = 43
|
|
Label6.Top = 135
|
|
Label6.Width = 114
|
|
Label6.WordWrap = .T.
|
|
Label6.ZOrderSet = 21
|
|
Text5.Left = 172
|
|
Text5.Name = "Text5"
|
|
Text5.TabIndex = 5
|
|
Text5.Top = 165
|
|
Text5.Width = 180
|
|
Text5.ZOrderSet = 22
|
|
Label7.Left = 30
|
|
Label7.Name = "Label7"
|
|
Label7.TabIndex = 47
|
|
Label7.Top = 167
|
|
Label7.ZOrderSet = 23
|
|
Text6.Left = 172
|
|
Text6.Name = "Text6"
|
|
Text6.TabIndex = 6
|
|
Text6.Top = 188
|
|
Text6.Width = 180
|
|
Text6.ZOrderSet = 24
|
|
Label8.Left = 30
|
|
Label8.Name = "Label8"
|
|
Label8.TabIndex = 50
|
|
Label8.Top = 190
|
|
Label8.ZOrderSet = 25
|
|
COMBO1.Left = 494
|
|
COMBO1.Name = "COMBO1"
|
|
COMBO1.TabIndex = 40
|
|
COMBO1.Top = 100
|
|
COMBO1.ZOrderSet = 28
|
|
Text10.Height = 20
|
|
Text10.Left = 493
|
|
Text10.Name = "Text10"
|
|
Text10.TabIndex = 17
|
|
Text10.Top = 52
|
|
Text10.Width = 132
|
|
Text10.ZOrderSet = 29
|
|
Text13.Height = 20
|
|
Text13.Left = 168
|
|
Text13.Name = "Text13"
|
|
Text13.TabIndex = 28
|
|
Text13.Top = 432
|
|
Text13.Visible = .F.
|
|
Text13.Width = 180
|
|
Text13.ZOrderSet = 30
|
|
Text7.Left = 172
|
|
Text7.Name = "Text7"
|
|
Text7.TabIndex = 8
|
|
Text7.Top = 235
|
|
Text7.Width = 180
|
|
Text7.ZOrderSet = 31
|
|
Text27.Left = 497
|
|
Text27.Name = "Text27"
|
|
Text27.TabIndex = 20
|
|
Text27.Top = 214
|
|
Text27.Visible = .T.
|
|
Text27.Width = 115
|
|
Text14.Left = 172
|
|
Text14.Name = "Text14"
|
|
Text14.TabIndex = 7
|
|
Text14.Top = 211
|
|
Text14.Width = 180
|
|
Text14.ZOrderSet = 32
|
|
Label9.Left = 30
|
|
Label9.Name = "Label9"
|
|
Label9.TabIndex = 53
|
|
Label9.Top = 237
|
|
Label9.ZOrderSet = 33
|
|
Label33.Left = 384
|
|
Label33.Name = "Label33"
|
|
Label33.TabIndex = 72
|
|
Label33.Top = 215
|
|
Label33.Visible = .T.
|
|
Shape3.Left = 655
|
|
Shape3.Name = "Shape3"
|
|
Shape3.Top = 131
|
|
Shape3.Visible = .F.
|
|
Shape3.ZOrderSet = 12
|
|
Label17.Left = 30
|
|
Label17.Name = "Label17"
|
|
Label17.TabIndex = 52
|
|
Label17.Top = 213
|
|
Label17.ZOrderSet = 35
|
|
Text23.Left = 587
|
|
Text23.Name = "Text23"
|
|
Text23.TabIndex = 29
|
|
Text23.Top = 285
|
|
Text23.Visible = .F.
|
|
Text23.ZOrderSet = 34
|
|
Text8.Height = 22
|
|
Text8.InputMask = "999.999"
|
|
Text8.Left = 196
|
|
Text8.Name = "Text8"
|
|
Text8.ReadOnly = .F.
|
|
Text8.SpecialEffect = 0
|
|
Text8.TabIndex = 9
|
|
Text8.Top = 259
|
|
Text8.Width = 33
|
|
Text8.ZOrderSet = 36
|
|
Text18.Left = 710
|
|
Text18.Name = "Text18"
|
|
Text18.TabIndex = 56
|
|
Text18.Top = 187
|
|
Text18.Visible = .F.
|
|
Text18.ZOrderSet = 40
|
|
Text20.Left = 494
|
|
Text20.Name = "Text20"
|
|
Text20.TabIndex = 49
|
|
Text20.Top = 75
|
|
Text20.ZOrderSet = 41
|
|
Label28.Caption = "Valoarea de calcul"
|
|
Label28.Left = 574
|
|
Label28.Name = "Label28"
|
|
Label28.TabIndex = 46
|
|
Label28.Top = 239
|
|
Label28.Visible = .F.
|
|
Label28.ZOrderSet = 39
|
|
TEXT15.Left = 710
|
|
TEXT15.Name = "TEXT15"
|
|
TEXT15.TabIndex = 48
|
|
TEXT15.Top = 163
|
|
TEXT15.Visible = .F.
|
|
TEXT15.ZOrderSet = 42
|
|
Text25.Left = 692
|
|
Text25.Name = "Text25"
|
|
Text25.TabIndex = 25
|
|
Text25.Top = 213
|
|
Text25.Visible = .F.
|
|
Text25.ZOrderSet = 38
|
|
Label1.Left = 663
|
|
Label1.Name = "Label1"
|
|
Label1.TabIndex = 60
|
|
Label1.Top = 139
|
|
Label1.Visible = .F.
|
|
Label1.ZOrderSet = 43
|
|
Label11.FontName = "Arial Narrow"
|
|
Label11.Left = 30
|
|
Label11.Name = "Label11"
|
|
Label11.TabIndex = 33
|
|
Label11.Top = 261
|
|
Label11.ZOrderSet = 44
|
|
TEXT17.Left = 711
|
|
TEXT17.Name = "TEXT17"
|
|
TEXT17.TabIndex = 55
|
|
TEXT17.Top = 98
|
|
TEXT17.Visible = .F.
|
|
TEXT17.ZOrderSet = 45
|
|
Label22.Left = 665
|
|
Label22.Name = "Label22"
|
|
Label22.TabIndex = 61
|
|
Label22.Top = 211
|
|
Label22.Visible = .F.
|
|
Label22.ZOrderSet = 47
|
|
Label21.Left = 662
|
|
Label21.Name = "Label21"
|
|
Label21.TabIndex = 62
|
|
Label21.Top = 188
|
|
Label21.Visible = .F.
|
|
Label21.ZOrderSet = 48
|
|
Label20.Left = 690
|
|
Label20.Name = "Label20"
|
|
Label20.TabIndex = 67
|
|
Label20.Top = 164
|
|
Label20.Visible = .F.
|
|
Label20.ZOrderSet = 49
|
|
Label19.Left = 668
|
|
Label19.Name = "Label19"
|
|
Label19.TabIndex = 65
|
|
Label19.Top = 102
|
|
Label19.Visible = .F.
|
|
Label19.ZOrderSet = 51
|
|
TEXT16.Left = 711
|
|
TEXT16.Name = "TEXT16"
|
|
TEXT16.TabIndex = 54
|
|
TEXT16.Top = 75
|
|
TEXT16.Visible = .F.
|
|
TEXT16.ZOrderSet = 52
|
|
Label18.Left = 705
|
|
Label18.Name = "Label18"
|
|
Label18.TabIndex = 63
|
|
Label18.Top = 79
|
|
Label18.Visible = .F.
|
|
Label18.ZOrderSet = 54
|
|
Text9.ControlSource = "m.uzuraprec"
|
|
Text9.Enabled = .T.
|
|
Text9.Height = 22
|
|
Text9.InputMask = "9999"
|
|
Text9.Left = 172
|
|
Text9.Name = "Text9"
|
|
Text9.TabIndex = 11
|
|
Text9.ToolTipText = "Uzura la momentul achizitiei "
|
|
Text9.Top = 283
|
|
Text9.Width = 180
|
|
Text9.ZOrderSet = 55
|
|
Label12.Caption = "Uzura precedenta (luni)"
|
|
Label12.Enabled = .T.
|
|
Label12.Left = 30
|
|
Label12.Name = "Label12"
|
|
Label12.TabIndex = 21
|
|
Label12.Top = 284
|
|
Label12.ZOrderSet = 56
|
|
Label24.Left = 431
|
|
Label24.Name = "Label24"
|
|
Label24.TabIndex = 70
|
|
Label24.Top = 101
|
|
Label24.ZOrderSet = 57
|
|
Label10.Left = 663
|
|
Label10.Name = "Label10"
|
|
Label10.TabIndex = 68
|
|
Label10.Top = 30
|
|
Label10.Visible = .F.
|
|
Label10.ZOrderSet = 58
|
|
Label23.Left = 444
|
|
Label23.Name = "Label23"
|
|
Label23.TabIndex = 69
|
|
Label23.Top = 78
|
|
Label23.ZOrderSet = 59
|
|
Label13.Left = 382
|
|
Label13.Name = "Label13"
|
|
Label13.TabIndex = 36
|
|
Label13.Top = 51
|
|
Label13.ZOrderSet = 60
|
|
Text28.Left = 172
|
|
Text28.Name = "Text28"
|
|
Text28.TabIndex = 16
|
|
Text28.Top = 407
|
|
Text28.Width = 180
|
|
Label34.Left = 30
|
|
Label34.Name = "Label34"
|
|
Label34.TabIndex = 64
|
|
Label34.Top = 408
|
|
Text11.Left = 172
|
|
Text11.Name = "Text11"
|
|
Text11.TabIndex = 13
|
|
Text11.Top = 333
|
|
Text11.Width = 180
|
|
Text11.ZOrderSet = 61
|
|
Label14.Left = 30
|
|
Label14.Name = "Label14"
|
|
Label14.TabIndex = 38
|
|
Label14.Top = 335
|
|
Label14.ZOrderSet = 62
|
|
Text26.Left = 172
|
|
Text26.Name = "Text26"
|
|
Text26.TabIndex = 15
|
|
Text26.Top = 383
|
|
Text26.Width = 180
|
|
Label32.Left = 30
|
|
Label32.Name = "Label32"
|
|
Label32.TabIndex = 66
|
|
Label32.Top = 384
|
|
Text12.Left = 172
|
|
Text12.Name = "Text12"
|
|
Text12.TabIndex = 14
|
|
Text12.Top = 358
|
|
Text12.Width = 180
|
|
Text12.ZOrderSet = 63
|
|
Label15.Left = 30
|
|
Label15.Name = "Label15"
|
|
Label15.TabIndex = 41
|
|
Label15.Top = 360
|
|
Label15.ZOrderSet = 64
|
|
Label26.Caption = "(unitara)"
|
|
Label26.FontItalic = .F.
|
|
Label26.FontName = "Arial Narrow"
|
|
Label26.FontSize = 9
|
|
Label26.Left = 110
|
|
Label26.Name = "Label26"
|
|
Label26.TabIndex = 57
|
|
Label26.Top = 149
|
|
Label26.Visible = .F.
|
|
Label26.ZOrderSet = 46
|
|
CMDTERMIN1.Command1.Name = "Command1"
|
|
CMDTERMIN1.Imbuton1.Height = 27
|
|
CMDTERMIN1.Imbuton1.Name = "Imbuton1"
|
|
CMDTERMIN1.Imbuton1.Width = 30
|
|
CMDTERMIN1.Left = 564
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.TabIndex = 31
|
|
CMDTERMIN1.Top = 372
|
|
CMDTERMIN1.ZOrderSet = 65
|
|
Label16.Left = 384
|
|
Label16.Name = "Label16"
|
|
Label16.TabIndex = 45
|
|
Label16.Top = 194
|
|
Label16.ZOrderSet = 66
|
|
Label2.Left = 627
|
|
Label2.Name = "Label2"
|
|
Label2.TabIndex = 77
|
|
Label2.Top = 290
|
|
Label2.Visible = .F.
|
|
Label2.ZOrderSet = 70
|
|
Text24.Left = 671
|
|
Text24.Name = "Text24"
|
|
Text24.TabIndex = 32
|
|
Text24.Top = 285
|
|
Text24.Visible = .F.
|
|
Text24.ZOrderSet = 73
|
|
Label29.Left = 382
|
|
Label29.Name = "Label29"
|
|
Label29.TabIndex = 44
|
|
Label29.Top = 151
|
|
Label29.ZOrderSet = 74
|
|
Label30.Left = 25
|
|
Label30.Name = "Label30"
|
|
Label30.TabIndex = 42
|
|
Label30.Top = 433
|
|
Label30.ZOrderSet = 77
|
|
Text21.FontName = "Arial Narrow"
|
|
Text21.Height = 22
|
|
Text21.Left = 497
|
|
Text21.Name = "Text21"
|
|
Text21.TabIndex = 19
|
|
Text21.Top = 190
|
|
Text21.Width = 115
|
|
Text21.ZOrderSet = 80
|
|
Text22.InputMask = (get_mask(14,gnZ))
|
|
Text22.Left = 498
|
|
Text22.Name = "Text22"
|
|
Text22.TabIndex = 18
|
|
Text22.Top = 150
|
|
Text22.ZOrderSet = 81
|
|
Banda21.Height = 30
|
|
Banda21.Left = 0
|
|
Banda21.Name = "Banda21"
|
|
Banda21.Top = 0
|
|
Banda21.Width = 540
|
|
Banda21.ZOrderSet = 1
|
|
Cmdlist1.Command1.Name = "Command1"
|
|
Cmdlist1.Imbuton1.Height = 27
|
|
Cmdlist1.Imbuton1.Name = "Imbuton1"
|
|
Cmdlist1.Imbuton1.Width = 30
|
|
Cmdlist1.Left = 490
|
|
Cmdlist1.Name = "Cmdlist1"
|
|
Cmdlist1.TabIndex = 26
|
|
Cmdlist1.Top = 372
|
|
Cmdlist1.Visible = .F.
|
|
Cmdlist1.ZOrderSet = 68
|
|
Titlufrumos1.Name = "Titlufrumos1"
|
|
Titlufrumos1.TabIndex = 74
|
|
Titlufrumos1.ZOrderSet = 2
|
|
Command1.Left = 216
|
|
Command1.Name = "Command1"
|
|
Command1.TabIndex = 73
|
|
Command1.Top = 444
|
|
Command1.ZOrderSet = 75
|
|
Terminat1.Command1.Name = "Command1"
|
|
Terminat1.Imbuton1.Height = 27
|
|
Terminat1.Imbuton1.Name = "Imbuton1"
|
|
Terminat1.Imbuton1.Width = 30
|
|
Terminat1.Left = 615
|
|
Terminat1.Name = "Terminat1"
|
|
Terminat1.TabIndex = 22
|
|
Terminat1.Top = 1
|
|
Terminat1.ZOrderSet = 76
|
|
LIST1.Command1.Name = "Command1"
|
|
LIST1.Imbuton1.Height = 27
|
|
LIST1.Imbuton1.Name = "Imbuton1"
|
|
LIST1.Imbuton1.Width = 30
|
|
LIST1.Left = 552
|
|
LIST1.Name = "LIST1"
|
|
LIST1.TabIndex = 75
|
|
LIST1.Top = 1
|
|
LIST1.ZOrderSet = 78
|
|
Renunt1.Command1.Name = "Command1"
|
|
Renunt1.Imbuton1.Height = 27
|
|
Renunt1.Imbuton1.Name = "Imbuton1"
|
|
Renunt1.Imbuton1.Width = 30
|
|
Renunt1.Left = 583
|
|
Renunt1.Name = "Renunt1"
|
|
Renunt1.TabIndex = 30
|
|
Renunt1.Top = 1
|
|
Renunt1.ZOrderSet = 79
|
|
t23.Left = 716
|
|
t23.Name = "t23"
|
|
t23.ReadOnly = .F.
|
|
t23.TabIndex = 24
|
|
t23.TabStop = .T.
|
|
t23.Top = 237
|
|
t23.Visible = .F.
|
|
t23.ZOrderSet = 72
|
|
Label27.Left = 572
|
|
Label27.Name = "Label27"
|
|
Label27.TabIndex = 51
|
|
Label27.Top = 309
|
|
Label27.Visible = .F.
|
|
Label27.ZOrderSet = 50
|
|
Optiongroup1.Name = "Optiongroup1"
|
|
Optiongroup1.Option1.Left = 5
|
|
Optiongroup1.Option1.Name = "Option1"
|
|
Optiongroup1.Option1.Top = 5
|
|
Optiongroup1.Option2.Left = 5
|
|
Optiongroup1.Option2.Name = "Option2"
|
|
Optiongroup1.Option2.Top = 24
|
|
Optiongroup1.TabIndex = 76
|
|
Optiongroup1.ZOrderSet = 82
|
|
Label31.Left = 584
|
|
Label31.Name = "Label31"
|
|
Label31.TabIndex = 59
|
|
Label31.Top = 333
|
|
Label31.Visible = .F.
|
|
Label31.ZOrderSet = 53
|
|
Text19.Left = 710
|
|
Text19.Name = "Text19"
|
|
Text19.TabIndex = 58
|
|
Text19.Top = 211
|
|
Text19.Visible = .F.
|
|
Text19.ZOrderSet = 37
|
|
Shape8.Left = 584
|
|
Shape8.Name = "Shape8"
|
|
Shape8.Top = 273
|
|
Shape8.Visible = .F.
|
|
Shape8.ZOrderSet = 6
|
|
Shape9.Left = 572
|
|
Shape9.Name = "Shape9"
|
|
Shape9.Top = 285
|
|
Shape9.Visible = .F.
|
|
Shape9.ZOrderSet = 5
|
|
Text29.Left = 172
|
|
Text29.Name = "Text29"
|
|
Text29.Top = 102
|
|
Text29.Width = 180
|
|
t21.Name = "t21"
|
|
t21.Visible = .F.
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Amortizare precedenta", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 30, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 34, ;
|
|
Top = 310, ;
|
|
Width = 133, ;
|
|
ZOrderSet = 27
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label25' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "ani", ;
|
|
FontItalic = .T., ;
|
|
Height = 17, ;
|
|
Left = 230, ;
|
|
Name = "Label25", ;
|
|
Top = 262, ;
|
|
Width = 19
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Lim_inf_sup1' AS lim_inf_sup WITH ;
|
|
Left = 245, ;
|
|
Name = "Lim_inf_sup1", ;
|
|
Top = 255, ;
|
|
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 'Shape5' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 390, ;
|
|
Left = 372, ;
|
|
Name = "Shape5", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 43, ;
|
|
Width = 266, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape6' AS shape WITH ;
|
|
Height = 2, ;
|
|
Left = 371, ;
|
|
Name = "Shape6", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 131, ;
|
|
Width = 265, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Txt15' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.amortprec", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "kr", ;
|
|
Height = 22, ;
|
|
InputMask = (GET_MASK(14,gnZ)), ;
|
|
Left = 172, ;
|
|
Name = "Txt15", ;
|
|
ReadOnly = .F., ;
|
|
TabIndex = 12, ;
|
|
Top = 307, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 26
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Init
|
|
*!* store 0 to m.nract,m.valoare,m.normat,m.gest,m.cod,m.uzura,m.suma,m.valramasa
|
|
*!* store 0 to m.uzuraprec,m.amorttot,m.amortlun,m.amortprec,uz,M.P,M.K,m.amortan
|
|
*!* store '' to m.denumire,m.nrpif,m.codmf,m.nrinv,m.tipamort,m.respons,m.scd,m.caract,m.fdoc
|
|
|
|
|
|
store '' to M.NUME_2,M.NUMEGEST,M.EXPLICATIA,m.text
|
|
store date() to m.dataact,m.datapif
|
|
|
|
THISFORM.LABEL15.VISIBLE=!E_INDEPENDENT
|
|
THISFORM.TEXT12.VISIBLE=!E_INDEPENDENT
|
|
|
|
*!* thisform.text7.Enabled=IIF(thisform.FEL_IMOB='C',.t.,.f.)
|
|
*!* thisform.text8.ReadOnly=IIF(thisform.FEL_IMOB='C',.t.,.f.)
|
|
*!* thisform.t21.ReadOnly=IIF(thisform.FEL_IMOB='C',.t.,.f.)
|
|
ENDPROC
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS nStyle
|
|
IF !this.fel_imob='C'
|
|
this.text7.Enabled=.f.
|
|
this.text8.ReadOnly=.f.
|
|
this.t21.ReadOnly=.f.
|
|
this.text8.TabStop= .T.
|
|
this.text7.TabStop= .T.
|
|
ENDIF
|
|
|
|
IF VAL(m.an) < 2005
|
|
this.lim_inf_sup1.Visible = .F.
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdlist1.Click
|
|
m.nume=''
|
|
m.dat={}
|
|
sele mf
|
|
set filter to denumire=m.denumire and cod=m.cod
|
|
|
|
thisform.windowstate=1
|
|
|
|
report form fisa_mf to printer prompt preview
|
|
|
|
thisform.windowstate=0
|
|
ENDPROC
|
|
|
|
PROCEDURE CMDTERMIN1.Click
|
|
Local I,T
|
|
I=1
|
|
T=''
|
|
m.fel=""
|
|
|
|
|
|
m.cod=-1
|
|
*m.tipcalcul=1
|
|
m.dataeval = m.datapif
|
|
m.valin = m.valoare
|
|
m.valramasa = m.valoare-m.valrez
|
|
m.cota = calcul_cota(m.Normat2lun)
|
|
m.codop = 2
|
|
|
|
Sele mf
|
|
Appe Blank
|
|
Gather Memvar
|
|
If Thisform.titlufrumos1.Caption='Introducere imobilizari necorporale'
|
|
Replace fel With 'N'
|
|
Endif
|
|
|
|
Select mflun
|
|
Append Blank
|
|
If Flock()
|
|
Gather Memvar
|
|
Replace explicatia With 'Introducere',dataora With Datetime()
|
|
Replace codop With 2
|
|
Endif
|
|
Unlock
|
|
|
|
Select mfanual
|
|
Append Blank
|
|
If Flock()
|
|
Gather Memvar
|
|
Replace explicatia With 'Introducere',dataora With Datetime()
|
|
Replace codop With 2
|
|
Endif
|
|
Unlock
|
|
|
|
buton=1
|
|
THISFORM.RELEASE
|
|
|
|
*!* BUTON=1
|
|
*!* odanu=Createobj('danu')
|
|
*!* odanu.Show(1)
|
|
*!* If BUTON==2
|
|
*!* Thisform.Release
|
|
*!* Else
|
|
*!* *!* store 0 to m.nract,m.valoare,m.normat,m.gest,m.cod,m.uzura,m.suma,m.valramasa
|
|
*!* *!* store 0 to m.uzuraprec,m.amorttot,m.amortlun,m.amortprec,uz,M.P,M.K,m.amortan
|
|
*!* *!* store '' to m.denumire,m.nrpif,m.codmf,m.nrinv,m.tipamort,m.respons,m.scd,m.caract,m.fdoc
|
|
*!* Select mf
|
|
*!* Scatter Memvar Blank
|
|
*!*
|
|
*!* IF ALLTRIM(UPPER(thisform.fel_imob)) == "C"
|
|
*!* CALCULATE MAX(nrinv) FOR EMPTY(fel) TO lcmax
|
|
*!* ELSE
|
|
*!* CALCULATE MAX(nrinv) FOR ALLTRIM(UPPER(fel)) == "N" TO lcmax
|
|
*!* ENDIF
|
|
*!*
|
|
*!* lnmax = VAL(lcmax)+1
|
|
*!* m.nrinv = ALLTRIM(STR(lnmax))
|
|
*!*
|
|
*!* Store '' To M.NUME_2,M.NUMEGEST,M.explicatia,m.text
|
|
*!* Store Date() To m.dataact,m.datapif
|
|
*!* * STORE 1 TO m.bucati
|
|
*!*
|
|
*!* For I=1 To 15
|
|
*!* T='THISFORM.TEXT'+Iif(I<10,Allt(Str(I,1)),Allt(Str(I,2)))+'.REFRESH'
|
|
*!* &T
|
|
*!* Next
|
|
*!* Thisform.TEXT20.Refresh
|
|
*!* Thisform.COMBO1.Refresh
|
|
*!* thisform.text27.Refresh
|
|
*!* Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Terminat1.Command1.Click
|
|
Local I,T
|
|
I=1
|
|
T=''
|
|
m.fel=""
|
|
|
|
|
|
m.cod=-1
|
|
*m.tipcalcul=1
|
|
m.dataeval = m.datapif
|
|
m.valin = m.valoare
|
|
m.valramasa = m.valoare-m.valrez
|
|
m.cota = calcul_cota(m.Normat2lun)
|
|
m.codop = 2
|
|
m.id_sectie = thisform.cIdSectie
|
|
|
|
Sele mf
|
|
Appe Blank
|
|
Gather Memvar
|
|
If Thisform.titlufrumos1.Caption='Introducere imobilizari necorporale'
|
|
Replace fel With 'N'
|
|
Endif
|
|
|
|
Select mflun
|
|
Append Blank
|
|
If Flock()
|
|
Gather Memvar
|
|
Replace explicatia With 'Introducere',dataora With Datetime()
|
|
Replace codop With 2
|
|
Endif
|
|
Unlock
|
|
|
|
Select mfanual
|
|
Append Blank
|
|
If Flock()
|
|
Gather Memvar
|
|
Replace explicatia With 'Introducere',dataora With Datetime()
|
|
Replace codop With 2
|
|
Endif
|
|
Unlock
|
|
|
|
buton=1
|
|
THISFORM.RELEASE
|
|
ENDPROC
|
|
|
|
PROCEDURE Text10.Valid
|
|
*
|
|
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 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
|
|
thisform.cIdSectie = m.id_sectie
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Text4.Valid
|
|
*m.valin = m.valoare
|
|
ENDPROC
|
|
|
|
PROCEDURE Text7.GotFocus
|
|
If Thisform.fel_imob='C'
|
|
Local den
|
|
den=m.denumire
|
|
|
|
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.normaan = thisform.nnorma_min
|
|
m.normat = thisform.nnorma_min*12
|
|
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.text21.ReadOnly = .f.
|
|
ENDIF
|
|
CASE LEFT(ALLTRIM(onorma.codmf),2) = [3.]
|
|
m.scd = '214'
|
|
OTHERWISE
|
|
*
|
|
ENDCASE
|
|
m.codmf = onorma.codmf
|
|
ENDIF
|
|
m.normat2lun = m.normat
|
|
m.notmat2 = m.normaan
|
|
Thisform.TEXT8.Refresh
|
|
Thisform.Lim_inf_sup1.Refresh
|
|
ELSE
|
|
Thisform.TEXT8.SetFocus
|
|
Endif
|
|
Thisform.Refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text7.LostFocus
|
|
*!* IF TYPE('M.NORMAT')='C'
|
|
*!* m.normat=VAL(m.normat)
|
|
*!* m.normaan=VAL(m.normaan)
|
|
*!* 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
|
|
|
|
PROCEDURE Text9.Valid
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE Txt15.Click
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE Txt15.Valid
|
|
*
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS preluareinc AS incurs OF "mfix2000.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Name = "preluareinc"
|
|
Shape1.Name = "Shape1"
|
|
Terminat1.Command1.Name = "Command1"
|
|
Terminat1.Imbuton1.Height = 29
|
|
Terminat1.Imbuton1.Name = "Imbuton1"
|
|
Terminat1.Imbuton1.Width = 27
|
|
Terminat1.Name = "Terminat1"
|
|
Text1.Left = 157
|
|
Text1.Name = "Text1"
|
|
Text1.TabIndex = 1
|
|
Text1.Top = 46
|
|
Label3.Left = 15
|
|
Label3.Name = "Label3"
|
|
Label3.TabIndex = 16
|
|
Label3.Top = 50
|
|
Text2.Name = "Text2"
|
|
Text2.TabIndex = 3
|
|
Label4.Name = "Label4"
|
|
Label4.TabIndex = 17
|
|
TEXT3.Name = "TEXT3"
|
|
TEXT3.TabIndex = 4
|
|
LABEL5.Name = "LABEL5"
|
|
LABEL5.TabIndex = 19
|
|
TEXT4.Name = "TEXT4"
|
|
TEXT4.TabIndex = 5
|
|
LABEL6.Name = "LABEL6"
|
|
LABEL6.TabIndex = 21
|
|
TEXT14.Name = "TEXT14"
|
|
TEXT14.TabIndex = 6
|
|
LABEL17.Name = "LABEL17"
|
|
LABEL17.TabIndex = 23
|
|
TEXT11.Name = "TEXT11"
|
|
TEXT11.TabIndex = 7
|
|
LABEL14.Name = "LABEL14"
|
|
LABEL14.TabIndex = 18
|
|
TEXT12.Name = "TEXT12"
|
|
TEXT12.TabIndex = 8
|
|
LABEL15.Name = "LABEL15"
|
|
LABEL15.TabIndex = 20
|
|
LABEL16.Name = "LABEL16"
|
|
LABEL16.TabIndex = 22
|
|
Text21.Name = "Text21"
|
|
Text21.TabIndex = 9
|
|
Text5.Left = 157
|
|
Text5.Name = "Text5"
|
|
Text5.TabIndex = 2
|
|
Text5.Top = 73
|
|
Label1.Left = 15
|
|
Label1.Name = "Label1"
|
|
Label1.TabIndex = 15
|
|
Label1.Top = 76
|
|
Cmdrenunt1.Name = "Cmdrenunt1"
|
|
Cmdrenunt1.TabIndex = 11
|
|
Cmdlist1.Name = "Cmdlist1"
|
|
Cmdlist1.TabIndex = 12
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.TabIndex = 13
|
|
Titlufrumos1.AutoSize = .F.
|
|
Titlufrumos1.Caption = "Fisa Imobilizarilor in Curs"
|
|
Titlufrumos1.Height = 23
|
|
Titlufrumos1.Left = 3
|
|
Titlufrumos1.Name = "Titlufrumos1"
|
|
Titlufrumos1.Top = 1
|
|
Titlufrumos1.Width = 249
|
|
Titlufrumos1.WordWrap = .F.
|
|
Cmdrenunt2.Command1.Name = "Command1"
|
|
Cmdrenunt2.Imbuton1.Height = 27
|
|
Cmdrenunt2.Imbuton1.Name = "Imbuton1"
|
|
Cmdrenunt2.Imbuton1.Width = 30
|
|
Cmdrenunt2.Name = "Cmdrenunt2"
|
|
Cmdlist2.Command1.Name = "Command1"
|
|
Cmdlist2.Imbuton1.Height = 27
|
|
Cmdlist2.Imbuton1.Name = "Imbuton1"
|
|
Cmdlist2.Imbuton1.Width = 30
|
|
Cmdlist2.Name = "Cmdlist2"
|
|
*</PropValue>
|
|
|
|
PROCEDURE CMDTERMIN1.Click
|
|
LOCAL I,T
|
|
I=1
|
|
T=''
|
|
|
|
sele mf
|
|
m.cod=-1
|
|
appe blank
|
|
gather memvar
|
|
REPLACE fel WITH 'C'
|
|
|
|
|
|
BUTON=1
|
|
odanu=createobj('danu')
|
|
odanu.show(1)
|
|
if buton==2
|
|
thisform.release
|
|
ELSE
|
|
store 0 to m.nract,m.valoare,m.normat,m.gest,m.cod,m.uzura,m.suma
|
|
store 0 to m.uzuraprec,m.amorttot,m.amortlun,m.amortprec,uz,M.P,M.K,m.amortan
|
|
store '' to m.denumire,m.nrpif,m.codmf,m.nrinv,m.tipamort,m.respons,m.scd,m.caract,m.fdoc
|
|
store '' to M.NUME_2,M.NUMEGEST,M.EXPLICATIA,m.text
|
|
store date() to m.dataact,m.datapif
|
|
FOR I=1 TO 15
|
|
T='THISFORM.TEXT'+IIF(I<10,ALLT(STR(I,1)),ALLT(STR(I,2)))+'.REFRESH'
|
|
&T
|
|
NEXT
|
|
THISFORM.TEXT20.REFRESH
|
|
THISFORM.COMBO1.REFRESH
|
|
endif
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS redirect AS ffergen OF "ferestrebaza.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="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cmdGetDir" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="oleImagesList" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="oleTreeview" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: dir
|
|
*m: filltree
|
|
*p: da
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 358
|
|
Name = "redirect"
|
|
Width = 479
|
|
Line1.Name = "Line1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Banda21' AS banda2 WITH ;
|
|
Height = 30, ;
|
|
Left = 0, ;
|
|
Name = "Banda21", ;
|
|
Top = 0, ;
|
|
Width = 410
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'cmdGetDir' AS commandbutton WITH ;
|
|
Caption = "\<DRIVE...", ;
|
|
FontBold = .T., ;
|
|
FontName = "MS Sans Serif", ;
|
|
FontSize = 8, ;
|
|
Height = 27, ;
|
|
Left = 365, ;
|
|
Name = "cmdGetDir", ;
|
|
TabIndex = 4, ;
|
|
Top = 315, ;
|
|
Width = 84
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
|
|
Left = 492, ;
|
|
Name = "CMDRENUNT1", ;
|
|
Top = 264, ;
|
|
Visible = .F., ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
|
Left = 492, ;
|
|
Name = "Cmdtermin1", ;
|
|
Top = 296, ;
|
|
Visible = .F., ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
Alignment = 0, ;
|
|
BackStyle = 0, ;
|
|
Caption = "Introduceti calea directorului unde se afla datele firmei:", ;
|
|
FontSize = 11, ;
|
|
Height = 48, ;
|
|
Left = 22, ;
|
|
Name = "Label1", ;
|
|
Top = 48, ;
|
|
Width = 192, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'oleImagesList' AS olecontrol WITH ;
|
|
Height = 45, ;
|
|
Left = 406, ;
|
|
Name = "oleImagesList", ;
|
|
Top = 55, ;
|
|
Width = 65
|
|
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAABQAAAAYAAAAHAAAACAAAAP7//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAABtAG0AYQByAHkASQBuAGYAbwByAG0AYQB0AGkAbwBuAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAtRzjLasMBAwAAAMALAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAxAoAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALgAAAD0AAAAAAAAAAQAAAP7///8DAAAABAAAAAUAAAAGAAAABwAAAAgAAAAJAAAACgAAAAsAAAAMAAAADQAAAA4AAAAPAAAAEAAAABEAAAASAAAAEwAAABQAAAAVAAAAFgAAABcAAAAYAAAAGQAAABoAAAAbAAAAHAAAAB0AAAAeAAAAHwAAACAAAAAhAAAAIgAAACMAAAAkAAAAJQAAACYAAAAnAAAAKAAAACkAAAAqAAAAKwAAACwAAAAtAAAA/v////7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9PAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAFwAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBxaGogWnR1UWhhO2pkZm5baWFldHIgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI+N2lhqnRsQr8BCEBAqjachQzQSCAAAAO0DAADtAwAAgH7h5gIABQBMAAAAEQAPAMDAwAD/////Ae/NqwAABQAwDc+CcgT///////8FAACAAAAAAAQAAAABBQAAAHcAbwByAGwAZAAAAQQAAABmAGwAZAByAAEFAAAAZgBsAGQAcgAyAAQAAAABAAAAbHQAABIBAABCTRIBAAAAAAAAdgAAACgAAAARAAAADQAAAAEABAAAAAAAnAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A//9wAAAH///wAAAA//B+4CfnD//wAAAA/w7uAnJ+4P/wAAAA937uJycm53/wAAAA8O7ucnJ27g/wAAAA8O4nJycn7g/wAAAA8O4CcnJy4g/wAAAA8O4nJycnJw/wAAAA8O5yDvficg/wAAAA934g7v7nJ3/wAAAA/w7icnJy4P/wAAAA//B+JycnD//wAAAA//9wAAAH///wAAAAAgAAAGx0AAD+AgAAAAABAAEAICAQAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAL+wAAAAAAAAAAAAAAAAAAD7+/AAAAAAAAAAAAAAAACwv7+/sAAAAAAAAAAAAAAA8Pv7+/vwAAAAAAAAAAAAD7C/v7+/v7AAAAAAAAAAAAsA+/v7+/v78AAAAAAAAAC/AL+/v7+/v7+wAAAAAAAA8PD7+/v7+/v7+/AAAAAAD7Dwv7+/v7+/v7+wAAAAAAsP8Pv7+/v7+/v78AAAAAC/D/C/v7+/v7+/v7AAAAAA8P//APv7+/v7+/vwAAAAD7D///8Av7+/v7+/sAAAAAv7AP///wD7+/v7+/AAAAAAv78A///wv7+/v7+wAAAAAPv7+wD/8Pv7+/v78AAAAAC/v7C/AP8Av7+/v7AAAAAAAPsAAPsA/wD7+/vwAAAAAAAAAAAAvwD/AL+/sAAAAAAAAAAAAAD7APsA+/AAAAAAAAAAAAAAAL+/AACwAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//////////////////////8/////D////gP///4A///8AD///AAP//gAA//4AAD/8AAAP/AAAB/gAAAf4AAAH8AAAB/AAAAfgAAAH4AAAB/AAAAfwAAAH8AAAB/ggAAf+eAAH//4AB///gIf//+Hn///5/////////////////wMAAABsdAAA/gIAAAAAAQABACAgEAAAAAAA6AIAABYAAAAoAAAAIAAAAEAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAAAPC/8AAAAAAAAAAAAAAAAACw/7/wAAAAAAAAAAAAAAAA8L//t/AAAAAAAAAAAAAAALD/v/e/8AAAAAAAAAAAAADwv/+3/7fwAAAAAAAAAAAAsP+//7/3t/AAAAAAAAAAAPC//7//t/e38AAAAAAAAACw/7//v/e3978AAAAAAAAA8L//v/+397f/AAAAAAAAALD/v/+/97f3vwAAAAAAAADwv/+//7f3t/8AAAAAAAAAsP+//7/3t/e/AAAAAAAAAPC//7//v/e3/wAAAAAAAACw/7//v/+3978AAAAAAAAA8L//v/+/97f/AAAAAAAAALD/v/+//7f3vwAAAAAAAADwv/+//7/3t/8AAAAAAAAAsA+//7//v/e/AAAAAAAAAA+wD7APv/+3/wAAAAAAAAAAD7APsA+/978AAAAAAAAAAAAL+/vwD7f/AAAAAAAAAAAAAL+/v7D3vwAAAAAAAAAAAAD7+/vwt/8AAAAAAAAAAAAAD7+/vwC/AAAAAAAAAAAAAAAL8AD7AAAAAAAAAAAAAAAAAAAAALAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////////P////g////wD///8AP///AA///wAD//8AAP//AAA//wAAD/8AAA//AAAP/wAAD/8AAA//AAAP/wAAD/8AAA//AAAP/wAAD/8AAA//AAAP/wAAD//AAA//8AAP//wAD//8AA///AAP//8AD///zh////+f/////8EAAAAbHQAAP4CAAAAAAEAAQAgIBAAAAAAAOgCAAAWAAAAKAAAACAAAABAAAAAAQAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADs7Ozs7Ozs7Ozs7OzsAAACzs7Ozs7Ozs7Ozs7OzAAAAOzs7Ozs7Ozs7Ozs7OwAAA7Ozs7Ozs7Ozs7Ozs7AAAAs7Ozs7Ozs7Ozs7OzswAAADs7Ozs7Ozs7Ozs7OzsAAACzs7Ozs7Ozs7Ozs7OzAAALOzs7Ozs7Ozs7Ozs7MPAAA7Ozs7Ozs7Ozs7Ozs7DwAAs7Ozs7Ozs7Ozs7Ozsw8AADs7Ozs7Ozs7Ozs7OzsPAAOzs7Ozs7Ozs7Ozs7OwvwALOzs7Ozs7Ozs7Ozs7MP8AA7Ozs7Ozs7Ozs7Ozs7C/AAAAAAAAAAAAAAAAAAAA/wAAAL//v/+//7//v/+//78AAAD/v/+//7//v/+//7//AAAAv/+//7//v/+//7//vwAAAP+//7//v/+//7//v/8AAAAP/7//AAAAAAAAAAAAAAAAAL//sAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////////////////////4AAAAeAAAAHgAAAB4AAAAcAAAAHAAAABwAAAAcAAAAGAAAABgAAAAYAAAAGAAAABAAAAAQAAAAEAAAABAAAAAeAAAAHgAAAB4AAAAeAAAAHgAAAB+A////wf////////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAgAwAAABJbWFnZUhlaWdodAAJAAAASQoAAAAPAAAACwAAAEltYWdlV2lkdGgACQAAAEkKAAAAEQAAAAAAADs7Ozs7Ozs7Ozs7DwADs7Ozs7Ozs7Ozs7OzsL8ACzs7Ozs7Ozs7Ozs7OzD/AAOzs7Ozs7Ozs7Ozs7OwvwAAAAA=" />
|
|
|
|
ADD OBJECT 'oleTreeview' AS olecontrol WITH ;
|
|
Height = 165, ;
|
|
Left = 22, ;
|
|
Name = "oleTreeview", ;
|
|
Top = 146, ;
|
|
Width = 426
|
|
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBVUDjLasMBAwAAAIABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACIAAAAAAAAAAwAAAAIAAAD+////BQAAAP7////+//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+i6BMHCoUbEK/AQhAQKo2nIUM0EggAAAAHLAAADhEAAI5+4eYCAAUAQAAAANz+biDoAwAAAwAAAAHvzasAAAUATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAuoMABgCCAAAAAAAFAACAFrQrIA0AAABvAGwAZQBJAG0AYQBnAGUAcwBMAGkAcwB0AAEAAABcAB/e7L0BAAUAAQAAgA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANxQz4IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
|
|
|
|
ADD OBJECT 'Renunt1' AS renunt WITH ;
|
|
Left = 414, ;
|
|
Name = "Renunt1", ;
|
|
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 'Shape1' AS shape WITH ;
|
|
Height = 2, ;
|
|
Left = 14, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 96, ;
|
|
Width = 445, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 303, ;
|
|
Left = 10, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 44, ;
|
|
Width = 457, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Terminat1' AS terminat WITH ;
|
|
Left = 446, ;
|
|
Name = "Terminat1", ;
|
|
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 'Text1' AS textbox WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "m.flung", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial Black", ;
|
|
FontSize = 10, ;
|
|
Height = 23, ;
|
|
Left = 226, ;
|
|
Name = "Text1", ;
|
|
Top = 57, ;
|
|
Width = 228, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
BackStyle = 1, ;
|
|
ControlSource = "m.calefirm", ;
|
|
DisabledBackColor = 223,223,223, ;
|
|
Height = 23, ;
|
|
Left = 23, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
Top = 108, ;
|
|
Width = 426, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
|
|
Caption = "REDIRECTIONARE", ;
|
|
FontSize = 11, ;
|
|
Left = 11, ;
|
|
Name = "Titlufrumos1", ;
|
|
Top = 6
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
|
|
|
|
PROCEDURE Activate
|
|
THISFORM.DIR
|
|
ENDPROC
|
|
|
|
PROCEDURE dir
|
|
LOCAL cDir,T
|
|
t='\'
|
|
|
|
*cDir = GETDIR()
|
|
CALEFIRMA=ALLTRIM(M.CALEFIRM)
|
|
cdir=iif(right(calefirma,1)=t,CALEFIRMA,CALEFIRMA+t)
|
|
|
|
IF EMPTY(m.cDir)
|
|
RETURN
|
|
ENDIF
|
|
|
|
THISFORM.DA=.T.
|
|
THISFORM.Text2.Value = m.cDir
|
|
THISFORM.OleTreeview.Nodes.Clear
|
|
THISFORM.FillTree(m.cDir)
|
|
ENDPROC
|
|
|
|
PROCEDURE filltree
|
|
PARAMETERS m.path, m.nlevel, m.nCount
|
|
|
|
LOCAL DirArr,i,nTotDir,lvl,pkey
|
|
m.path = ALLTRIM(m.path)
|
|
|
|
IF PARAMETERS()<2 OR TYPE("m.nlevel") #"N"
|
|
lvl = 0
|
|
ELSE
|
|
lvl = m.nlevel
|
|
ENDIF
|
|
|
|
IF PARAMETERS()<2 OR TYPE("m.nCount") #"N"
|
|
cnt = 0
|
|
ELSE
|
|
cnt = m.nCount
|
|
ENDIF
|
|
|
|
lvl = lvl + 1
|
|
cnt = cnt + 1
|
|
|
|
pkey = LOWER(SUBSTR(m.path,1,RAT("\",m.path,2)))+"_"
|
|
|
|
* Add items to treeview control
|
|
o = THIS.oleTreeview
|
|
IF cnt = 1
|
|
oNode = o.nodes.add(,1,LOWER(m.path)+"_",LOWER(m.path),,)
|
|
oNode.Image = "world"
|
|
ELSE
|
|
oNode = o.nodes.add(m.pkey,4,LOWER(m.path)+"_",LOWER(m.path),,)
|
|
* oNode.Image = "fldr2"
|
|
ENDIF
|
|
|
|
*o.Nodes.sorted = .T.
|
|
|
|
DIMENSION DirArr[1,1]
|
|
nTotDir=ADIR(DirArr,m.path+"*.","D")
|
|
ASORT(DirArr)
|
|
|
|
FOR i = 1 TO m.nTotDir
|
|
IF DirArr[m.i,1] != '.' AND ATC('D',DirArr[m.i,5])#0
|
|
THIS.FillTree(m.path+DirArr[m.i,1]+'\', m.lvl, m.cnt)
|
|
ENDIF
|
|
ENDFOR
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
IF TYPE("THIS.oleTreeview") # "O" OR ISNULL(THIS.oleTreeview)
|
|
RETURN .F.
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE cmdGetDir.Click
|
|
LOCAL cDir
|
|
|
|
cDir = GETDIR()
|
|
*m.cdir
|
|
IF EMPTY(m.cDir)
|
|
RETURN
|
|
ENDIF
|
|
|
|
THISFORM.DA=.T.
|
|
THISFORM.Text2.Value = m.cDir
|
|
THISFORM.OleTreeview.Nodes.Clear
|
|
THISFORM.FillTree(m.cDir)
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdtermin1.Click
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdtermin1.Valid
|
|
local c,c1,l,cf
|
|
cf=calefirma
|
|
CALEFIRMA=ALLTRIM(THISFORM.text2.value)
|
|
|
|
l=len(nfscurt)
|
|
if right(calefirma,1)#'\'
|
|
calefirma=calefirma+'\'
|
|
endif
|
|
c=upper(right(calefirma,l+1))
|
|
c1=upper(nfscurt+'\')
|
|
|
|
|
|
IF !FILE('&CALEFIRMA\DATEAN\CALENdar.DBF') or c#c1
|
|
DO MESAJATENT WITH 'Cale incorecta!','Alegeti directorul in care se afla datele firmei!'
|
|
calefirma=cf
|
|
RETURN 0
|
|
ENDIF
|
|
|
|
m.calefirm=calefirma
|
|
sele firma
|
|
loca for firma=m.flung
|
|
repl calefirm with calefirma
|
|
thisform.release
|
|
|
|
ostart.show(1)
|
|
ENDPROC
|
|
|
|
PROCEDURE oleTreeview.Click
|
|
*** OLE Control Event ***
|
|
*IF !THISFORM.DA
|
|
* THISFORM.DIR
|
|
*ELSE
|
|
THISFORM.TEXT2.Value = THIS.SelectedItem.TEXT
|
|
THISFORM.TEXT2.REFRESH
|
|
*ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Terminat1.Command1.Valid
|
|
THISFORM.CMDTermin1.Valid
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS seleluna AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdtermin2" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 133
|
|
Name = "seleluna"
|
|
Width = 240
|
|
Line1.Name = "Line1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Cmdtermin2' AS cmdtermin WITH ;
|
|
Left = 192, ;
|
|
Name = "Cmdtermin2", ;
|
|
Top = 84, ;
|
|
ZOrderSet = 6, ;
|
|
Imbuton1.Height = 29, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 27, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Combo1' AS combobox WITH ;
|
|
BoundColumn = 2, ;
|
|
BoundTo = .T., ;
|
|
ColumnCount = 2, ;
|
|
ControlSource = "", ;
|
|
Height = 24, ;
|
|
Left = 24, ;
|
|
Name = "Combo1", ;
|
|
RowSource = "nl,an", ;
|
|
RowSourceType = 6, ;
|
|
SpecialEffect = 2, ;
|
|
Style = 2, ;
|
|
Top = 48, ;
|
|
Width = 72, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "Selectati anul si luna de inceput:", ;
|
|
Height = 13, ;
|
|
Left = 24, ;
|
|
Name = "Label1", ;
|
|
Top = 24, ;
|
|
Width = 192, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = " ", ;
|
|
FontItalic = .T., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 136, ;
|
|
Name = "Label2", ;
|
|
Top = 52, ;
|
|
Width = 27, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = " ", ;
|
|
FontItalic = .T., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 171, ;
|
|
Name = "Label3", ;
|
|
Top = 52, ;
|
|
Width = 40, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 109, ;
|
|
Left = 12, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 12, ;
|
|
Width = 217, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
PROCEDURE Combo1.Valid
|
|
sele calendar
|
|
anul=an
|
|
luna=nl
|
|
thisform.label2.caption=luna
|
|
thisform.label3.caption=anul
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS sit AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlu1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Excel1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="List2" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 2
|
|
DoCreate = .T.
|
|
Height = 449
|
|
Name = "sit"
|
|
Width = 729
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Banda21' AS banda2 WITH ;
|
|
Height = 30, ;
|
|
Left = 0, ;
|
|
Name = "Banda21", ;
|
|
Top = 0, ;
|
|
Width = 656, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Excel1' AS excel WITH ;
|
|
Height = 28, ;
|
|
Left = 660, ;
|
|
Name = "Excel1", ;
|
|
Top = 3, ;
|
|
Width = 30, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Grid1' AS grid WITH ;
|
|
BackColor = 255,255,255, ;
|
|
DeleteMark = .F., ;
|
|
GridLineColor = 192,192,192, ;
|
|
Height = 409, ;
|
|
Left = 8, ;
|
|
Name = "Grid1", ;
|
|
ReadOnly = .T., ;
|
|
RecordSource = "rulaje", ;
|
|
Top = 36, ;
|
|
Width = 711, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'List2' AS list WITH ;
|
|
Left = 800, ;
|
|
Name = "List2", ;
|
|
Top = 0, ;
|
|
Visible = .F., ;
|
|
IMBUTON1.Height = 27, ;
|
|
IMBUTON1.Name = "IMBUTON1", ;
|
|
IMBUTON1.Width = 30, ;
|
|
COMMAND1.Name = "COMMAND1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Terminat1' AS terminat WITH ;
|
|
Left = 692, ;
|
|
Name = "Terminat1", ;
|
|
Top = 3, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Titlu1' AS titlu WITH ;
|
|
Caption = "SITUATIE ANALITICA - RULAJ AMORTIZMENTE", ;
|
|
Height = 37, ;
|
|
Left = 11, ;
|
|
Name = "Titlu1", ;
|
|
Top = 8, ;
|
|
Width = 624, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />
|
|
|
|
PROCEDURE Activate
|
|
tw1=thisform.Width
|
|
tl1=thisform.Height
|
|
|
|
thisform.WindowState=2
|
|
tw2=thisform.Width
|
|
tl2=thisform.Height
|
|
|
|
gw1=thisform.grid1.width
|
|
gl1=thisform.grid1.height
|
|
|
|
thisform.grid1.width=ROUND(gw1*tw2/tw1,0)
|
|
thisform.grid1.height=ROUND(gl1*tl2/tl1,0)
|
|
*
|
|
thisform.paint
|
|
thisform.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS nStyle
|
|
THISFORM.GRID1.SetAll("DynamicBackColor", "IIF(!EMPTY(NL), RGB(255,255,255), RGB(215,215,255))", "Column")
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Excel1.Command1.Click
|
|
LOCAL i,xlsheet,XLApp,tmpsheet
|
|
exista_excel=.t.
|
|
|
|
p2='AN'
|
|
SELECT RULAJE
|
|
FOR J=2 TO FCOUNT()
|
|
T=FIELD(J)
|
|
p2=p2+','+T
|
|
ENDFOR
|
|
*WAIT WINDOW p2
|
|
p1=p2
|
|
ON ERROR do exportare with 'rulaje',p1,p2
|
|
|
|
tmpsheet = GetObject('','excel.sheet')
|
|
ON ERROR
|
|
|
|
IF exista_excel
|
|
WAIT WINDOW "Se deschide Excel..." NOWAIT
|
|
|
|
XLApp = tmpsheet.application
|
|
|
|
XLApp.Visible = .t.
|
|
XLApp.WorkBooks.Add()
|
|
XLSheet = XLApp.ActiveSheet
|
|
|
|
SELECT RULAJE
|
|
FOR J=1 TO FCOUNT()
|
|
T=FIELD(J)
|
|
XLSheet.Cells(1,J).Value = T
|
|
*XLSheet.Cells(1,2).Value = "Data Act"
|
|
NEXT
|
|
|
|
i=1
|
|
sele RULAJE
|
|
scan
|
|
i=i+1
|
|
FOR J=1 TO FCOUNT()
|
|
T=FIELD(J)
|
|
XLSheet.Cells(i,J).Value =&T
|
|
NEXT
|
|
* XLSheet.Cells(i,2).Value =dataact
|
|
|
|
endscan
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Init
|
|
FOR i = 3 TO this.ColumnCount
|
|
this.Columns[i].inputMask = get_mask(14,gnZ)
|
|
ENDFOR
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS start00 AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="img_start" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="img_ter_al" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cboLuna" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cboFirma" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblFirma" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblLuna" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblAnul" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="img_start_al" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cboAnul" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: cindmaus
|
|
*m: go
|
|
*m: lasfirsit
|
|
*m: validfirma
|
|
*m: validluna
|
|
*p: tt1
|
|
*p: tt2
|
|
*p: tt3
|
|
*p: ttanul
|
|
*p: ttdata
|
|
*p: ttfirma
|
|
*p: ttluna
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
AutoCenter = .T.
|
|
BackColor = 255,255,255
|
|
BorderStyle = 0
|
|
DoCreate = .T.
|
|
Height = 153
|
|
Name = "start00"
|
|
Picture = ..\grafice\backgrnd.bmp
|
|
TabStop = .F.
|
|
tt1 = ""
|
|
tt2 = ""
|
|
tt3 = ""
|
|
ttanul = ""
|
|
ttdata = ""
|
|
ttfirma = ""
|
|
ttluna = "
|
|
Width = 529
|
|
WindowState = 0
|
|
WindowType = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'cboAnul' AS combobox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "thisform.ttAnul", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Format = "", ;
|
|
Height = 20, ;
|
|
Left = 267, ;
|
|
Name = "cboAnul", ;
|
|
RowSource = "1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020", ;
|
|
RowSourceType = 1, ;
|
|
SpecialEffect = 2, ;
|
|
Style = 2, ;
|
|
TabIndex = 2, ;
|
|
TabStop = .T., ;
|
|
Top = 47, ;
|
|
Value = 2000, ;
|
|
Visible = .T., ;
|
|
Width = 247, ;
|
|
ZOrderSet = 35
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'cboFirma' AS combobox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "thisform.ttFirma", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Format = "", ;
|
|
Height = 20, ;
|
|
InputMask = "", ;
|
|
Left = 267, ;
|
|
Name = "cboFirma", ;
|
|
RowSource = "firma.firma", ;
|
|
RowSourceType = 2, ;
|
|
SpecialEffect = 2, ;
|
|
Style = 2, ;
|
|
TabIndex = 1, ;
|
|
TabStop = .T., ;
|
|
Top = 10, ;
|
|
Visible = .T., ;
|
|
Width = 247, ;
|
|
ZOrderSet = 17
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'cboLuna' AS combobox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "thisform.ttluna", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Format = "", ;
|
|
Height = 20, ;
|
|
Left = 267, ;
|
|
Name = "cboLuna", ;
|
|
RowSource = "lunilean.numeluna", ;
|
|
RowSourceType = 6, ;
|
|
SpecialEffect = 2, ;
|
|
Style = 2, ;
|
|
TabIndex = 3, ;
|
|
TabStop = .T., ;
|
|
Top = 85, ;
|
|
Visible = .T., ;
|
|
Width = 247, ;
|
|
ZOrderSet = 27
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'img_start' AS image WITH ;
|
|
Height = 156, ;
|
|
Left = 0, ;
|
|
Name = "img_start", ;
|
|
Picture = ..\grafice\start.bmp, ;
|
|
Stretch = 2, ;
|
|
Top = 0, ;
|
|
Width = 529, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'img_start_al' AS image WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 28, ;
|
|
Left = 80, ;
|
|
Name = "img_start_al", ;
|
|
Picture = ..\grafice\start_albastru.bmp, ;
|
|
Stretch = 2, ;
|
|
Top = 120, ;
|
|
Width = 108, ;
|
|
ZOrderSet = 21
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'img_ter_al' AS image WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 34, ;
|
|
Left = 336, ;
|
|
Name = "img_ter_al", ;
|
|
Picture = ..\grafice\terminat_a.bmp, ;
|
|
Stretch = 2, ;
|
|
Top = 116, ;
|
|
Width = 128, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'lblAnul' AS label WITH ;
|
|
Alignment = 1, ;
|
|
AutoSize = .T., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 0, ;
|
|
Caption = "Anul:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Courier New", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 209, ;
|
|
Name = "lblAnul", ;
|
|
TabIndex = 6, ;
|
|
Top = 49, ;
|
|
Width = 42, ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'lblFirma' AS label WITH ;
|
|
Alignment = 1, ;
|
|
AutoSize = .T., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 0, ;
|
|
Caption = "Firma:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Courier New", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 201, ;
|
|
Name = "lblFirma", ;
|
|
TabIndex = 5, ;
|
|
Top = 13, ;
|
|
Width = 50, ;
|
|
ZOrderSet = 18
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'lblLuna' AS label WITH ;
|
|
Alignment = 1, ;
|
|
AutoSize = .T., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 0, ;
|
|
Caption = "Luna contabila:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Courier New", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 129, ;
|
|
Name = "lblLuna", ;
|
|
TabIndex = 4, ;
|
|
Top = 87, ;
|
|
Width = 122, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
PROCEDURE Activate
|
|
thisform.ttfirma=pofirma.firma
|
|
thisform.ttanul=m.an
|
|
thisform.ttluna=m.luna
|
|
|
|
SELE FIRMA
|
|
go top
|
|
if !eof()
|
|
LOCAL II,ESTE
|
|
II=1
|
|
ESTE=.F.
|
|
FOR II = 1 TO FCOUNT( )
|
|
IF ALLT(FIELD(II))='PERMIS'
|
|
ESTE=.T.
|
|
ENDIF
|
|
NEXT
|
|
IF ESTE
|
|
SELE FIRMA
|
|
REPL ALL PERMIS WITH '*' FOR EMPTY(PERMIS)
|
|
UTILIZATOR=ALLT(UTILIZATOR)
|
|
SET FILTER TO ALLT(PERMIS)='*' OR LIKE('*'+UTILIZATOR+'*',PERMIS) AND !EMPTY(ALLT(PERMIS))
|
|
ENDIF
|
|
SELE FIRMA
|
|
GO TOP
|
|
ENDIF
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE cindmaus
|
|
ENDPROC
|
|
|
|
PROCEDURE go
|
|
IF THISFORM.VALIDLUNA()
|
|
* THISFORM.VISIBLE=.F.
|
|
|
|
THISFORM.LASFIRSIT
|
|
|
|
* do totv
|
|
* DO INIT_OPTIUNI
|
|
|
|
THISFORM.hide
|
|
ENDIF
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
*!* CLOSE DATABASES
|
|
*!* calefirma=dirgen
|
|
*!* Do des With 'FIRMA' IN totv.prg
|
|
|
|
*!* Sele FIRMA
|
|
*!* Go Top
|
|
*!* If !Eof()
|
|
*!* Local II,ESTE
|
|
*!* II=1
|
|
*!* ESTE=.F.
|
|
*!* For II = 1 To Fcount( )
|
|
*!* If Allt(Field(II))='PERMIS'
|
|
*!* ESTE=.T.
|
|
*!* Endif
|
|
*!* Next
|
|
*!* If ESTE
|
|
*!* Sele FIRMA
|
|
*!* Repl All PERMIS With '*' For Empty(PERMIS)
|
|
*!* UTILIZATOR=Allt(UTILIZATOR)
|
|
*!* Set Filter To Allt(PERMIS)='*' Or Like('*'+UTILIZATOR+'*',PERMIS) And !Empty(Allt(PERMIS))
|
|
*!* Endif
|
|
*!* Sele FIRMA
|
|
*!* Go Top
|
|
*!* m.flung=FIRMA
|
|
*!* thisform.ttfirma=ALLTRIM(firma)
|
|
*!* m.antet=Alltrim(M.flung)
|
|
*!* nfscurt=Alltrim(fscurt)
|
|
*!* m.CALEFIRM=ADDBS(Alltrim(CALEFIRM))
|
|
*!* calefirma=M.CALEFIRM
|
|
*!* LOC=Allt(LOCTEMPO)
|
|
|
|
|
|
*!* If ESERVER And !Empty(CALES)
|
|
*!* calefirma=ADDBS(STRTRAN(CALES+'\'+nfscurt,"\\","\"))
|
|
|
|
*!* Endif
|
|
|
|
*!* Else
|
|
*!* Do Form STARTFIRMA
|
|
*!* Do mesaj With 'Pentru initializare programul trebuie restartat',''
|
|
*!* QUIT
|
|
*!* Endif
|
|
|
|
*!* *daca firma a fost creata in sal2000__________
|
|
*!* If !File('&CALEFIRMA\datean\calendar.DBF') And File('&CALEFIRMA\datean\calensal.DBF')
|
|
*!* Do firmadinsal
|
|
*!* Do des With 'FIRMA' IN totv.prg
|
|
*!* Endif
|
|
|
|
*!* *** aleg ultima luna deschisa
|
|
*!* Do des With 'CALENDAR' IN totv.prg
|
|
*!* SELECT calendar
|
|
*!* Go Bottom
|
|
*!* Scatter Memvar
|
|
*!* thisform.ttanul=an
|
|
*!* lc_luna=nl
|
|
*!* lc_anul=an
|
|
|
|
*!* Do des With 'LUNILEAN' IN totv.prg
|
|
*!* Seek(lc_luna)
|
|
*!* Scatter Memvar
|
|
*!* m.luna=numeluna
|
|
*!* thisform.ttluna=numeluna
|
|
|
|
*!* THIS.CBOFirma.SetFocus
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE KeyPress
|
|
LPARAMETERS nKeyCode, nShiftAltCtrl
|
|
if nkeycode=13
|
|
this.go()
|
|
ELSE
|
|
DODEFAULT ()
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE lasfirsit
|
|
|
|
*capapl="CONT2000 Firma "+numefirma+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN+" "
|
|
SELECT lunilean
|
|
LOCATE FOR nl=m.nl
|
|
m.luna=numeluna
|
|
|
|
&&ESTE CUMVA LUNA BLOCATA?
|
|
SELE calendar
|
|
LOCA for nl=m.nl and AN=m.AN
|
|
SCAT memv
|
|
luna_inchisa=smf
|
|
|
|
&&ESTE CUMVA LUNA NEPLATITA?
|
|
*sele calendar
|
|
*loca for nl=m.nl and an=m.an
|
|
*SKIP
|
|
*IF EOF()
|
|
IF e_ultima_luna()
|
|
IF USED('cul')
|
|
USE IN cul
|
|
ENDIF
|
|
* SELE 0
|
|
* USE &DIRGEN\_ALFA\DATEAN\CUL ALIAS CUL
|
|
DO DES WITH 'CUL' IN totv.prg
|
|
IF SERIA_LUNARA_E_CORECTA()
|
|
LUNA_NEPLATITA=.F.
|
|
ELSE
|
|
LUNA_NEPLATITA=.T.
|
|
ENDIF
|
|
SELE cul
|
|
USE
|
|
ELSE
|
|
LUNA_NEPLATITA=.F.
|
|
ENDIF
|
|
|
|
|
|
Select FIRMA
|
|
LOCATE FOR firma=thisform.ttfirma
|
|
Scatter Name poFirma && OBIECT GLOBAL
|
|
|
|
Select calendar
|
|
Scatter Name poCalendar && OBIECT GLOBAL
|
|
|
|
NUMEFIRMA=UPPER(rTRIM(poFirma.firma))
|
|
*NUMEPROGRAM=UPPER(ALLTRIM(PCNUMEAPP))
|
|
|
|
capapl=NUMEPROGRAM+" Firma "+NUMEFIRMA+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN+" "
|
|
goApp.SetCaption(capapl)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE validfirma
|
|
*WAIT WINDOW this.ttFirma
|
|
Sele FIRMA
|
|
Loca For FIRMA=this.ttFirma
|
|
Scatter Memvar
|
|
|
|
antet=ALLTRIM(M.FLUNG)
|
|
NFSCURT=Alltrim(m.FSCURT)
|
|
CALEFIRMA=Alltrim(M.CALEFIRM)
|
|
IF !Start_Nou()
|
|
LOC=ALLT(LOCTEMPO)
|
|
ELSE
|
|
LOC = ADDBS(gcTempPath)
|
|
ENDIF
|
|
DIRFIRM=addbs(loc)+nfscurt+"\"
|
|
|
|
If ESERVER And !Empty(CALES)
|
|
CALEFIRMA=CALES+'\'+NFSCURT
|
|
Endif
|
|
|
|
*daca firma a fost creata in sal2000__________
|
|
*!* If !File('&CALEFIRMA\datean\calendar.DBF') And File('&CALEFIRMA\datean\calensal.DBF')
|
|
*!* Do firmadinsal
|
|
*!* Do DES With 'LUNILEAN'
|
|
*!* Do DES With 'CALENDAR'
|
|
*!* Endif
|
|
|
|
IF USED('CALENDAR')
|
|
Sele calendar
|
|
USE
|
|
ENDIF
|
|
*** compar calendarmf.dbf cu calendar.dbf
|
|
DO compar_calendare WITH 'calendarmf','calendar'
|
|
|
|
*** aleg ultima luna deschisa
|
|
Do DES With 'CALENDAR'
|
|
Sele calendar
|
|
Go Bottom
|
|
Scatter Memvar
|
|
THIS.TTAnul=AN
|
|
|
|
Sele lunilean
|
|
Seek(m.nl)
|
|
Scatter Memvar
|
|
m.luna=m.numeluna
|
|
|
|
THIS.TTLUNA=LUNA
|
|
|
|
THIS.CBOAnul.Refresh
|
|
THIS.CBOLuna.Refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE validluna
|
|
local amin,amax,lmin,lmax,_an,_luna
|
|
*!* WAIT WINDOW this.ttanul
|
|
*!* WAIT WINDOW this.ttluna
|
|
*!* WAIT WINDOW this.ttFirma
|
|
*m.an=thisform.ttanul
|
|
_AN=THIS.TTANUL
|
|
_LUNA=THIS.TTLUNA
|
|
m.an = THIS.TTANUL
|
|
SELECT lunilean
|
|
LOCATE FOR numeluna=this.ttluna
|
|
SCATTER MEMVAR
|
|
_NL=m.NL
|
|
_an=m.an
|
|
*!* m.luna=numeluna
|
|
|
|
sele calendar
|
|
LOCATE FOR !EMPTY(an) AND !EMPTY(nl)
|
|
IF FOUND()
|
|
amin=an
|
|
lmin=nl
|
|
endif
|
|
|
|
go bottom
|
|
amax=an
|
|
lmax=nl
|
|
|
|
&& verific daca luna aleasa este mai mica decat luna maxima deschisa inscrisa in tabelul start_meniuri
|
|
|
|
lnLunaC = VAL(m.an)*12+VAL(m.nl)
|
|
lcCaleFirma = ADDBS(calefirma)
|
|
lcFscurt = ALLTRIM(nfscurt)
|
|
lcLunaS = Citeste_Firma_Luna(lcCaleFirma,lcFscurt) && proceduri_verificare_luna.prg
|
|
lcLuna = m.nl
|
|
lcAn = m.an
|
|
lnPos = AT("\",lcLunaS)
|
|
IF lnPos = 0
|
|
lnLunaS = 0
|
|
ELSE
|
|
lcAn = LEFT(lcLunaS,lnPos - 1)
|
|
lcLuna = SUBSTR(lcLunaS,lnPos+1)
|
|
lnLunaS = VAL(lcAn)*12 + VAL(lcLuna)
|
|
ENDIF
|
|
IF lnLunaC>lnLunaS
|
|
DO mesaj WITH "Ultima luna deschisa este: "+lcLuna+" "+lcAn,""
|
|
sele calendar
|
|
LOCATE FOR VAL(an) = VAL(lcAn) AND VAL(nl) = VAL(lCLuna)
|
|
IF FOUND()
|
|
scatter memvar
|
|
THIS.TTANUL = m.an
|
|
sele lunilean
|
|
seek(m.nl)
|
|
m.luna=numeluna
|
|
ENDIF
|
|
THIS.CBOAnul.Refresh
|
|
THIS.CBOLuna.Refresh
|
|
RETURN .F.
|
|
ENDIF
|
|
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
|
|
|
|
|
*daca luna nu e dechisa___________
|
|
if VAL(_an)*12+VAL(_NL)>VAL(amax)*12+VAL(lmax)
|
|
do mesaj with "Luna "+rtrim(_NL)+" "+_an+" nu a fost deschisa!","Ultima luna deschisa este: "+lmax+" "+amax
|
|
*WAIT WINDOW "Ultima luna deschisa este: "+lmax+" "+amax
|
|
sele calendar
|
|
go bottom
|
|
scatter memvar
|
|
thisform.ttanul=an
|
|
|
|
sele lunilean
|
|
seek(M.nl)
|
|
IF FOUND()
|
|
m.luna=numeluna
|
|
THISFORM.TTLUNA=NUMELUNA
|
|
ENDIF
|
|
THIS.CBOAnul.Refresh
|
|
THIS.CBOLuna.Refresh
|
|
RETURN .F.
|
|
endif
|
|
|
|
*daca luna nu exista_________________
|
|
if VAL(_an)*12+VAL(_NL)<VAL(amin)*12+VAL(lmin)
|
|
do mesaj with "Nu sunt inregistrate date in luna "+rtrim(_NL)+" "+_an+" !",;
|
|
"Prima luna deschisa a fost: "+lmin+" "+amin
|
|
sele calendar
|
|
go bottom
|
|
scatter memvar
|
|
thisform.ttanul=an
|
|
|
|
sele lunilean
|
|
seek(M.nl)
|
|
IF FOUND()
|
|
m.luna=numeluna
|
|
THISFORM.TTLUNA=NUMELUNA
|
|
ENDIF
|
|
THIS.CBOAnul.Refresh
|
|
THIS.CBOLuna.Refresh
|
|
RETURN .F.
|
|
endif
|
|
m.nl=_NL
|
|
m.an=_an
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE cboAnul.Valid
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE cboFirma.Valid
|
|
thisform.validfirma()
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE cboLuna.Valid
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE img_start_al.Click
|
|
thisform.go()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE img_start_al.MouseEnter
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
this.Picture=addbs(gcAppPath)+'GRAFICE\START_GALBEN.BMP'
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE img_start_al.MouseLeave
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
this.Picture=addbs(gcAppPath)+'GRAFICE\start_albastru.bmp'
|
|
ENDPROC
|
|
|
|
PROCEDURE img_ter_al.Click
|
|
quit
|
|
ENDPROC
|
|
|
|
PROCEDURE img_ter_al.MouseEnter
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
this.Picture=addbs(gcAppPath)+'GRAFICE\terminat_g.BMP'
|
|
ENDPROC
|
|
|
|
PROCEDURE img_ter_al.MouseLeave
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
this.Picture=addbs(gcAppPath)+'GRAFICE\terminat_a.BMP'
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS viz AS ffergen OF "..\..\gestiuni\clase\ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column4.Header4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column5.Header5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column6.Header6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column7.Header7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column8.Header8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column9.Header9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column13.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column13.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column16.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column16.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column17.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column17.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column18.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column18.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column19.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column19.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column20.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column20.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column12.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column12.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column21.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column21.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column22.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column22.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="t3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Excel1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="LIST1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="TERMINAT1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: afisactual
|
|
*m: butdrept
|
|
*m: calcamort
|
|
*m: calcuzura
|
|
*m: modificare
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BackColor = 255,255,255
|
|
DoCreate = .T.
|
|
Height = 523
|
|
Name = "viz"
|
|
Width = 793
|
|
Line1.Left = -6
|
|
Line1.Name = "Line1"
|
|
Line1.Top = 496
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Check1' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Denumire", ;
|
|
ControlSource = "bden", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 690, ;
|
|
Name = "Check1", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 12, ;
|
|
Top = 228, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check2' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Cont Deb.", ;
|
|
ControlSource = "bscd", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 690, ;
|
|
Name = "Check2", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 12, ;
|
|
Top = 288, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check3' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Nr. Doc.", ;
|
|
ControlSource = "bnract", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 690, ;
|
|
Name = "Check3", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 20, ;
|
|
Top = 209, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check4' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Gestiune", ;
|
|
ControlSource = "bgest", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 690, ;
|
|
Name = "Check4", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 15, ;
|
|
Top = 268, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check9' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Valoare", ;
|
|
ControlSource = "bsuma", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 690, ;
|
|
Name = "Check9", ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 20, ;
|
|
Top = 247, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
|
Caption = "", ;
|
|
Enabled = .T., ;
|
|
Height = 27, ;
|
|
Left = 690, ;
|
|
Name = "Command1", ;
|
|
Picture = ..\..\contab\grafice\edit1.bmp, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 4, ;
|
|
ToolTipText = "Modificare", ;
|
|
Top = 356, ;
|
|
Width = 98
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
|
Caption = "", ;
|
|
Enabled = .T., ;
|
|
Height = 27, ;
|
|
Left = 690, ;
|
|
Name = "Command2", ;
|
|
Picture = ..\..\contab\grafice\delete.bmp, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 4, ;
|
|
ToolTipText = "Eliminarea din lista", ;
|
|
Top = 326, ;
|
|
Width = 98
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Command3' AS commandbutton WITH ;
|
|
Caption = "Calcul amortizare", ;
|
|
Height = 51, ;
|
|
Left = 696, ;
|
|
Name = "Command3", ;
|
|
Top = 120, ;
|
|
Width = 84, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Excel1' AS excel WITH ;
|
|
Left = 696, ;
|
|
Name = "Excel1", ;
|
|
Top = 384, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Grid1' AS grid WITH ;
|
|
BackColor = 254,255,240, ;
|
|
ColumnCount = 22, ;
|
|
DeleteMark = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
GridLineColor = 128,128,128, ;
|
|
Height = 405, ;
|
|
Left = 6, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordSource = "xMF", ;
|
|
TabIndex = 1, ;
|
|
Top = 27, ;
|
|
Width = 672, ;
|
|
Column1.Alignment = 1, ;
|
|
Column1.BackColor = 254,255,240, ;
|
|
Column1.ColumnOrder = 1, ;
|
|
Column1.ControlSource = "nract", ;
|
|
Column1.FontName = "Arial Narrow", ;
|
|
Column1.Name = "Column2", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 48, ;
|
|
Column2.Alignment = 1, ;
|
|
Column2.BackColor = 254,255,240, ;
|
|
Column2.ColumnOrder = 10, ;
|
|
Column2.ControlSource = "uzura", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Name = "Column3", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 44, ;
|
|
Column3.Alignment = 1, ;
|
|
Column3.BackColor = 254,255,240, ;
|
|
Column3.ColumnOrder = 2, ;
|
|
Column3.ControlSource = "datact", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.Name = "Column4", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Width = 53, ;
|
|
Column4.Alignment = 0, ;
|
|
Column4.BackColor = 254,255,240, ;
|
|
Column4.ColumnOrder = 3, ;
|
|
Column4.ControlSource = "denumire", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Name = "Column5", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.Width = 151, ;
|
|
Column5.Alignment = 1, ;
|
|
Column5.BackColor = 254,255,240, ;
|
|
Column5.ColumnOrder = 4, ;
|
|
Column5.ControlSource = "valoare", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.Format = "r", ;
|
|
Column5.InputMask = "99 999 999 999 999", ;
|
|
Column5.Name = "Column6", ;
|
|
Column5.ReadOnly = .T., ;
|
|
Column5.Width = 101, ;
|
|
Column6.Alignment = 1, ;
|
|
Column6.BackColor = 254,255,240, ;
|
|
Column6.ColumnOrder = 7, ;
|
|
Column6.ControlSource = "nrinv", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.Name = "Column7", ;
|
|
Column6.ReadOnly = .T., ;
|
|
Column6.Width = 51, ;
|
|
Column7.Alignment = 1, ;
|
|
Column7.BackColor = 254,255,240, ;
|
|
Column7.ColumnOrder = 8, ;
|
|
Column7.ControlSource = "codmf", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.Name = "Column8", ;
|
|
Column7.ReadOnly = .T., ;
|
|
Column7.Width = 44, ;
|
|
Column8.Alignment = 1, ;
|
|
Column8.BackColor = 254,255,240, ;
|
|
Column8.ColumnOrder = 9, ;
|
|
Column8.ControlSource = "normat/12", ;
|
|
Column8.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column8.FontName = "Arial Narrow", ;
|
|
Column8.FontSize = 9, ;
|
|
Column8.Format = "r", ;
|
|
Column8.InputMask = "9999", ;
|
|
Column8.Name = "Column9", ;
|
|
Column8.ReadOnly = .T., ;
|
|
Column8.Width = 42, ;
|
|
Column9.Alignment = 0, ;
|
|
Column9.BackColor = 254,255,240, ;
|
|
Column9.ColumnOrder = 5, ;
|
|
Column9.ControlSource = "datapif", ;
|
|
Column9.FontName = "Arial Narrow", ;
|
|
Column9.Name = "Column10", ;
|
|
Column9.ReadOnly = .T., ;
|
|
Column9.Width = 53, ;
|
|
Column10.Alignment = 0, ;
|
|
Column10.BackColor = 254,255,240, ;
|
|
Column10.ColumnOrder = 6, ;
|
|
Column10.ControlSource = "nrpif", ;
|
|
Column10.FontName = "Arial Narrow", ;
|
|
Column10.Name = "Column11", ;
|
|
Column10.ReadOnly = .T., ;
|
|
Column10.Width = 38, ;
|
|
Column11.BackColor = 254,255,240, ;
|
|
Column11.ColumnOrder = 11, ;
|
|
Column11.ControlSource = "tipamort", ;
|
|
Column11.FontName = "Arial Narrow", ;
|
|
Column11.Name = "Column13", ;
|
|
Column11.ReadOnly = .T., ;
|
|
Column11.Width = 46, ;
|
|
Column12.BackColor = 254,255,240, ;
|
|
Column12.ColumnOrder = 16, ;
|
|
Column12.ControlSource = "gest", ;
|
|
Column12.FontName = "Arial Narrow", ;
|
|
Column12.Name = "Column14", ;
|
|
Column12.ReadOnly = .T., ;
|
|
Column12.Width = 44, ;
|
|
Column13.BackColor = 254,255,240, ;
|
|
Column13.ColumnOrder = 19, ;
|
|
Column13.ControlSource = "respons", ;
|
|
Column13.FontName = "Arial Narrow", ;
|
|
Column13.Name = "Column15", ;
|
|
Column13.ReadOnly = .T., ;
|
|
Column13.Width = 122, ;
|
|
Column14.BackColor = 254,255,240, ;
|
|
Column14.ColumnOrder = 13, ;
|
|
Column14.ControlSource = "cota", ;
|
|
Column14.FontName = "Arial Narrow", ;
|
|
Column14.Format = "r", ;
|
|
Column14.InputMask = "999.99%", ;
|
|
Column14.Name = "Column16", ;
|
|
Column14.ReadOnly = .T., ;
|
|
Column14.Visible = .T., ;
|
|
Column14.Width = 40, ;
|
|
Column15.BackColor = 254,255,240, ;
|
|
Column15.ColumnOrder = 20, ;
|
|
Column15.ControlSource = "scd", ;
|
|
Column15.FontName = "Arial Narrow", ;
|
|
Column15.Name = "Column17", ;
|
|
Column15.ReadOnly = .T., ;
|
|
Column15.Width = 43, ;
|
|
Column16.BackColor = 254,255,240, ;
|
|
Column16.ColumnOrder = 12, ;
|
|
Column16.ControlSource = "amortlun", ;
|
|
Column16.FontName = "Arial Narrow", ;
|
|
Column16.Format = "r", ;
|
|
Column16.InputMask = "999 999 999 999", ;
|
|
Column16.Name = "Column18", ;
|
|
Column16.ReadOnly = .T., ;
|
|
Column17.BackColor = 254,255,240, ;
|
|
Column17.ColumnOrder = 14, ;
|
|
Column17.ControlSource = "amorttot", ;
|
|
Column17.FontName = "Arial Narrow", ;
|
|
Column17.Format = "r", ;
|
|
Column17.InputMask = "999 999 999 999", ;
|
|
Column17.Name = "Column19", ;
|
|
Column17.ReadOnly = .T., ;
|
|
Column18.BackColor = 254,255,240, ;
|
|
Column18.ColumnOrder = 21, ;
|
|
Column18.ControlSource = "casat", ;
|
|
Column18.FontName = "Arial Narrow", ;
|
|
Column18.Name = "Column20", ;
|
|
Column18.ReadOnly = .T., ;
|
|
Column18.Width = 37, ;
|
|
Column19.BackColor = 254,255,240, ;
|
|
Column19.ColumnOrder = 22, ;
|
|
Column19.ControlSource = "cod", ;
|
|
Column19.FontName = "Arial Narrow", ;
|
|
Column19.Name = "Column1", ;
|
|
Column19.ReadOnly = .T., ;
|
|
Column19.Width = 48, ;
|
|
Column20.BackColor = 254,255,240, ;
|
|
Column20.ColumnOrder = 15, ;
|
|
Column20.ControlSource = "amortan", ;
|
|
Column20.FontName = "Arial Narrow", ;
|
|
Column20.Format = "r", ;
|
|
Column20.InputMask = "999 999 999 999", ;
|
|
Column20.Name = "Column12", ;
|
|
Column20.ReadOnly = .T., ;
|
|
Column21.BackColor = 254,255,240, ;
|
|
Column21.ColumnOrder = 17, ;
|
|
Column21.ControlSource = "normat2", ;
|
|
Column21.FontName = "Arial Narrow", ;
|
|
Column21.Name = "Column21", ;
|
|
Column21.ReadOnly = .T., ;
|
|
Column21.Width = 32, ;
|
|
Column22.BackColor = 254,255,240, ;
|
|
Column22.ColumnOrder = 18, ;
|
|
Column22.ControlSource = "valramasa", ;
|
|
Column22.FontName = "Arial Narrow", ;
|
|
Column22.Format = "r", ;
|
|
Column22.InputMask = "999 999 999 999", ;
|
|
Column22.Name = "Column22", ;
|
|
Column22.ReadOnly = .T., ;
|
|
Column22.Width = 56
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
|
Caption = "", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data PIF", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. PIF", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column12.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Amortizare anuala", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column12.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
|
|
Caption = "Tip Amort.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
|
|
Caption = "Nr. Gest.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Responsabil", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column15.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column16.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cota", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column16.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column17.Header1' AS header WITH ;
|
|
Caption = "Cont Deb.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column17.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column18.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Amortizment", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column18.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column19.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Total Amort.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column19.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. Act", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header2"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
ToolTipText = "IIF(UZURA>=NORMAT,'Amortizat','Neamortizat')"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column20.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Casat", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column20.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column21.Header1' AS header WITH ;
|
|
Caption = "DNS 2", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column21.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column22.Header1' AS header WITH ;
|
|
Caption = "Val.ramasa dupa schimbarea DNS", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column22.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Uzura (luni)", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header3"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
ToolTipText = ""
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data Act", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header4"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Denumire", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header5"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header6"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderColor = 0,0,0, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. Inventar", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header7"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cod MF", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header8"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column9.Header9' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "DNS(ani)", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header9"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "Amortizmente:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Times New Roman", ;
|
|
FontSize = 12, ;
|
|
Height = 22, ;
|
|
Left = 264, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 8, ;
|
|
Top = 436, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label10' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "VIZUALIZARE MIJLOACE FIXE IN LUNA", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 22, ;
|
|
Left = 7, ;
|
|
Name = "Label10", ;
|
|
TabIndex = 10, ;
|
|
Top = 6, ;
|
|
Width = 335, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label19' AS label WITH ;
|
|
Alignment = 2, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 254,255,240, ;
|
|
Caption = "Nu sunt inregistrate mijloace fixe in aceasta luna!", ;
|
|
FontBold = .T., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,0,0, ;
|
|
Height = 60, ;
|
|
Left = 246, ;
|
|
Name = "Label19", ;
|
|
Top = 199, ;
|
|
Visible = .F., ;
|
|
Width = 204, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "Total Amortizmente:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Times New Roman", ;
|
|
FontSize = 12, ;
|
|
Height = 22, ;
|
|
Left = 514, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 8, ;
|
|
Top = 452, ;
|
|
Width = 139
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "Rulaje:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Times New Roman", ;
|
|
FontSize = 12, ;
|
|
Height = 22, ;
|
|
Left = 426, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 8, ;
|
|
Top = 450, ;
|
|
Width = 51
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "Total Valoare:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Times New Roman", ;
|
|
FontSize = 12, ;
|
|
Height = 22, ;
|
|
Left = 26, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 8, ;
|
|
Top = 436, ;
|
|
Width = 99
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label7' AS label WITH ;
|
|
Caption = "Selectie", ;
|
|
Height = 17, ;
|
|
Left = 690, ;
|
|
Name = "Label7", ;
|
|
TabIndex = 9, ;
|
|
Top = 188, ;
|
|
Width = 46
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'LIST1' AS list WITH ;
|
|
Left = 725, ;
|
|
Name = "LIST1", ;
|
|
Top = 441, ;
|
|
Visible = .F., ;
|
|
IMBUTON1.Height = 27, ;
|
|
IMBUTON1.Name = "IMBUTON1", ;
|
|
IMBUTON1.Width = 30, ;
|
|
COMMAND1.Name = "COMMAND1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
|
|
Left = 702, ;
|
|
Name = "oMenuShortcut", ;
|
|
TabIndex = 0, ;
|
|
Top = 48
|
|
*< END OBJECT: ClassLib="..\..\sal2003\clase\utility.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
Height = 56, ;
|
|
Left = 4, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 448, ;
|
|
Width = 676
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
Height = 477, ;
|
|
Left = 685, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 27, ;
|
|
Width = 108
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape3' AS shape WITH ;
|
|
Height = 148, ;
|
|
Left = 685, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 292, ;
|
|
Width = 108
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape5' AS shape WITH ;
|
|
Height = 45, ;
|
|
Left = 264, ;
|
|
Name = "Shape5", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 459, ;
|
|
Width = 397
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape6' AS shape WITH ;
|
|
Height = 131, ;
|
|
Left = 685, ;
|
|
Name = "Shape6", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 192, ;
|
|
Width = 108
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 't3' AS textbox WITH ;
|
|
ControlSource = "tvaloare", ;
|
|
Enabled = .T., ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 76, ;
|
|
Name = "t3", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 11, ;
|
|
Top = 473, ;
|
|
Width = 162
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'TERMINAT1' AS terminat WITH ;
|
|
Left = 725, ;
|
|
Name = "TERMINAT1", ;
|
|
Top = 471, ;
|
|
Visible = .F., ;
|
|
IMBUTON1.Height = 27, ;
|
|
IMBUTON1.Name = "IMBUTON1", ;
|
|
IMBUTON1.Width = 30, ;
|
|
COMMAND1.Name = "COMMAND1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
ControlSource = "m.suma", ;
|
|
Enabled = .T., ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 314, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 11, ;
|
|
Top = 473, ;
|
|
Width = 162
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text16' AS textbox WITH ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "m.nl", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 23, ;
|
|
Left = 394, ;
|
|
Name = "Text16", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 37, ;
|
|
Top = 4, ;
|
|
Width = 36
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text17' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "m.an", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 23, ;
|
|
Left = 436, ;
|
|
Name = "Text17", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 38, ;
|
|
Top = 4, ;
|
|
Width = 80
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
ControlSource = "m.sumat", ;
|
|
Enabled = .T., ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 492, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 11, ;
|
|
Top = 473, ;
|
|
Width = 156
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE afisactual
|
|
STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract
|
|
|
|
sele xmf
|
|
|
|
if Bden==.t. then
|
|
Tden="UPPER(LEFT(denumire,LEN(M.denumire)))==UPPER(m.denumire)"
|
|
endif
|
|
|
|
if Bscd==.t. then
|
|
Tscd="UPPER(LEFT(scd,LEN(M.scd)))==UPPER(m.scd)"
|
|
endif
|
|
|
|
if bgest==.t. and m.gest#-1 then
|
|
Tgest="gest==m.gest"
|
|
endif
|
|
|
|
|
|
if bsuma==.t. then
|
|
Tsuma="(valoare>=m.suma1) and (valoare<=m.suma2)"
|
|
endif
|
|
|
|
if bnract==.t. then
|
|
Tnract="(nract>=m.nr1) and (nract<=m.nr2)"
|
|
endif
|
|
|
|
sele xmf
|
|
SET FILTER TO &Tden AND &Tsuma AND &Tgest and &tscd and &tnract and !casat
|
|
*set order to tag dataact
|
|
*THISFORM.CALCUZURA
|
|
*thisform.calcamort
|
|
sele xmf
|
|
go top
|
|
THISFORM.GRID1.REFRESH
|
|
|
|
sele xmf
|
|
sum amortlun to m.suma
|
|
sum amorttot to m.sumat
|
|
SUM VALOARE TO TVALOARE
|
|
|
|
thisform.text1.refresh
|
|
thisform.text2.refresh
|
|
thisform.t3.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE calcamort
|
|
Sele xmf
|
|
SCAN FOR !inactiv
|
|
Scat Memv
|
|
Do calcAMORTm.PRG
|
|
Gath Memv
|
|
Endscan
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE calcuzura
|
|
do calcuzura.prg
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
store 0 to m.suma1,m.suma2,m.suma,m.sumat,m.nr1,m.nr2,TVALOARE
|
|
store .f. to bden,bsuma,bgest,bscd,bnract
|
|
STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract
|
|
|
|
sele xmf
|
|
SET ORDER TO 5 && STR(VAL(NRINV))
|
|
go top
|
|
if eof()
|
|
thisform.grid1.gridlines=0
|
|
thisform.check1.enabled=.f.
|
|
thisform.check2.enabled=.f.
|
|
thisform.check3.enabled=.f.
|
|
thisform.check4.enabled=.f.
|
|
thisform.check9.enabled=.f.
|
|
thisform.command1.enabled=.f.
|
|
thisform.label19.visible=.t.
|
|
endif
|
|
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE modificare
|
|
SELE xmf
|
|
SCATTER MEMVAR
|
|
|
|
SELECT numegest
|
|
LOCATE FOR gest=m.gest
|
|
SCATTER FIELDS numegest MEMVAR
|
|
|
|
SELECT sectie
|
|
LOCATE FOR id_sectie=m.id_sectie
|
|
SCATTER FIELDS sectie MEMVAR
|
|
|
|
buton=1
|
|
ofi=CREATE('fisa')
|
|
IF felul='N'
|
|
ofi.fel_imob='N'
|
|
ELSE
|
|
ofi.fel_imob='C'
|
|
ENDIF
|
|
ofi.SHOW(1)
|
|
|
|
IF buton=2
|
|
RETURN
|
|
ENDIF
|
|
|
|
SELECT xmf
|
|
IF FLOCK()
|
|
GATHER MEMVAR
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT mflun
|
|
APPEND BLANK
|
|
IF FLOCK()
|
|
GATHER MEMVAR
|
|
REPLACE explicatia WITH 'Modificare',dataora WITH DATETIME()
|
|
REPLACE codop WITH 1
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT mfanual
|
|
APPEND BLANK
|
|
IF FLOCK()
|
|
GATHER MEMVAR
|
|
REPLACE explicatia WITH 'Modificare',dataora WITH DATETIME()
|
|
REPLACE codop WITH 1
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
THISFORM.afisactual
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS nStyle
|
|
if primadata1
|
|
thisform.command3.click
|
|
primadata1=.f.
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Click
|
|
if Bden==.t. then
|
|
OLIT=CREATEOBJECT("CAUTLITERE")
|
|
WITH OLIT
|
|
.CAPTION="Denumire"
|
|
.text1.controlsource="m.denumire"
|
|
endwith
|
|
olit.show(1)
|
|
endif
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check2.Click
|
|
if Bscd==.t. then
|
|
OLIT=CREATEOBJECT("CAUTLITERE")
|
|
WITH OLIT
|
|
.CAPTION="Simbol Cont Debitor"
|
|
.text1.controlsource="m.scd"
|
|
endwith
|
|
olit.show(1)
|
|
endif
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check2.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check3.Click
|
|
if bnract==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Numarul documentului"
|
|
.label1.caption="Nr. minim:"
|
|
.label2.caption="Nr. maxim:"
|
|
.text1.controlsource="m.nr1"
|
|
.text2.controlsource="m.nr2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check3.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check4.Click
|
|
if bgest==.t. then
|
|
*OLIT=CREATEOBJECT("CAUTLITERE")
|
|
*WITH OLIT
|
|
* .CAPTION="Gestiunea"
|
|
* .text1.controlsource="m.numegest"
|
|
*endwith
|
|
*olit.show(1)
|
|
do caut_alf with 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
|
|
endif
|
|
IF buton=2
|
|
RETURN
|
|
ENDIF
|
|
sele numegest
|
|
locate for numegest=m.numegest
|
|
scatter memvar
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check4.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check9.Click
|
|
if bsuma==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Valoare"
|
|
.label1.caption="Valoare minima:"
|
|
.label2.caption="Valoare maxima:"
|
|
.text1.controlsource="m.suma1"
|
|
.text2.controlsource="m.suma2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check9.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Command1.Click
|
|
thisform.alwaysontop=.f.
|
|
thisform.modificare
|
|
thisform.alwaysontop=.t.
|
|
ENDPROC
|
|
|
|
PROCEDURE Command2.Click
|
|
sele xmf
|
|
scatter memvar
|
|
|
|
oe=createobj('casdanu')
|
|
oe.label1.caption='Se elimina mijlocul fix:'
|
|
oe.show(1)
|
|
|
|
if buton==1
|
|
SELE xmf
|
|
SCATTER MEMVAR
|
|
DELETE
|
|
|
|
SELECT mflun
|
|
APPEND BLANK
|
|
IF FLOCK()
|
|
GATHER MEMVAR
|
|
REPLACE explicatia WITH 'Stergere',dataora WITH DATETIME()
|
|
REPLACE codop WITH 7
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT mfanual
|
|
APPEND BLANK
|
|
IF FLOCK()
|
|
GATHER MEMVAR
|
|
REPLACE explicatia WITH 'Stergere',dataora WITH DATETIME()
|
|
REPLACE codop WITH 7
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
|
|
thisform.afisactual
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Command3.Click
|
|
Select xmf
|
|
Scan For fel != "C" AND !casat
|
|
Do Case
|
|
Case Empty(normat)
|
|
Do mesaj With 'Trebuie introdusa durata normala de serviciu','la '+Allt(denumire)
|
|
Return
|
|
|
|
Case Empty(valoare)
|
|
Do mesaj With "Trebuie introdusa valoarea de achizitie",'la '+Allt(denumire)
|
|
Return
|
|
|
|
Case Empty(datapif)
|
|
Do mesaj With 'Trebuie introdusa data punerii in functiune','la '+Allt(denumire)
|
|
Return
|
|
Endcase
|
|
Endscan
|
|
Thisform.CALCUZURA
|
|
Thisform.calcamort
|
|
Thisform.afisactual
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Excel1.Command1.Click
|
|
LOCAL i,xlsheet,XLApp,tmpsheet
|
|
exista_excel=.t.
|
|
p1='nract,dataact,denumire,valoare,datapif,nrpif,nrinv,codmf,normat,uzura,tipamort,amortlun,cota,amorttot,;
|
|
amortan,gest,normat2,valramasa,respons,scd'
|
|
p2='Nr_Act,Data_Act,Denumire,Valoare,Data_PIF,Nr_PIF,Nr_Inventar,Cod_MF,DNS_ani,Uzura_luni,Tip_amort,Amortizment,;
|
|
Cota,Total_amort,Amort_anuala,Nr_gest,DNS2,Val_ramasa,Responsabil,Cont_Deb'
|
|
|
|
ON ERROR do exportare with 'xmf',p1,p2
|
|
|
|
tmpsheet = GetObject('','excel.sheet')
|
|
ON ERROR
|
|
|
|
IF exista_excel
|
|
WAIT WINDOW "Se deschide Excel..." NOWAIT
|
|
|
|
XLApp = tmpsheet.application
|
|
|
|
XLApp.Visible = .t.
|
|
XLApp.WorkBooks.Add()
|
|
XLSheet = XLApp.ActiveSheet
|
|
|
|
XLSheet.Cells(1,1).Value = "Nr. Act"
|
|
XLSheet.Cells(1,2).Value = "Data Act"
|
|
XLSheet.Cells(1,3).Value = "Denumire"
|
|
XLSheet.Cells(1,4).Value = "Valoare achizitie"
|
|
XLSheet.Cells(1,5).Value = "Valoare inventar"
|
|
XLSheet.Cells(1,6).Value = "Valoare calcul"
|
|
XLSheet.Cells(1,7).Value = "Valoare majorare"
|
|
XLSheet.Cells(1,8).Value = "Data PIF"
|
|
XLSheet.Cells(1,9).Value = "Nr. PIF"
|
|
XLSheet.Cells(1,10).Value = "Nr. Inventar"
|
|
XLSheet.Cells(1,11).Value = "Cod MF"
|
|
XLSheet.Cells(1,12).Value = "DNS(luni)"
|
|
XLSheet.Cells(1,13).Value = "DNS calcul"
|
|
XLSheet.Cells(1,14).Value = "Uzura(luni)"
|
|
XLSheet.Cells(1,15).Value = "Tip amort."
|
|
XLSheet.Cells(1,16).Value = "Amortizment"
|
|
XLSheet.Cells(1,17).Value = "Cota"
|
|
XLSheet.Cells(1,18).Value = "Total amort."
|
|
XLSheet.Cells(1,19).Value = "Amort. anuala"
|
|
XLSheet.Cells(1,20).Value = "Amort. precedenta"
|
|
XLSheet.Cells(1,21).Value = "Nr. gest"
|
|
XLSheet.Cells(1,22).Value = "Responsabil"
|
|
XLSheet.Cells(1,23).Value = "Cont Deb."
|
|
XLSheet.Cells(1,24).Value = "Data reevaluare"
|
|
|
|
|
|
i=1
|
|
sele xmf
|
|
SCAN
|
|
|
|
i=i+1
|
|
XLSheet.Cells(i,1).Value =nract
|
|
XLSheet.Cells(i,2).Value =dataact
|
|
XLSheet.Cells(i,3).Value =denumire
|
|
XLSheet.Cells(i,4).Value =valoare
|
|
XLSheet.Cells(i,5).Value =valin
|
|
XLSheet.Cells(i,6).Value =valramasa
|
|
XLSheet.Cells(i,7).Value = -valoare + valin
|
|
XLSheet.Cells(i,8).Value =datapif
|
|
XLSheet.Cells(i,9).Value =nrpif
|
|
XLSheet.Cells(i,10).Value =nrinv
|
|
XLSheet.Cells(i,11).Value =codmf
|
|
XLSheet.Cells(i,12).Value =normat
|
|
XLSheet.Cells(i,13).Value =normat2lun
|
|
XLSheet.Cells(i,14).Value =uzura
|
|
XLSheet.Cells(i,15).Value =tipamort
|
|
XLSheet.Cells(i,16).Value =amortlun
|
|
XLSheet.Cells(i,17).Value =cota
|
|
XLSheet.Cells(i,18).Value =amorttot
|
|
XLSheet.Cells(i,19).Value =amortan
|
|
XLSheet.Cells(i,20).Value =amortprec
|
|
XLSheet.Cells(i,21).Value =gest
|
|
XLSheet.Cells(i,22).Value =respons
|
|
XLSheet.Cells(i,23).Value =scd
|
|
XLSheet.Cells(i,24).Value =dataeval
|
|
endscan
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column10.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column10.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column11.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column11.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column2.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column2.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column3.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column3.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column4.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column4.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column5.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column5.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column6.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column6.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column7.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column7.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column8.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column8.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column9.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column9.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Init
|
|
sele xmf
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE LIST1.COMMAND1.Click
|
|
|
|
THISFORM.AFISACTUAL
|
|
thisform.alwaysontop=.f.
|
|
report form listmfcota to printer prompt preview
|
|
thisform.alwaysontop=.t.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Shape2.RightClick
|
|
LOCAL lbMenu[3]
|
|
|
|
|
|
lbMenu=""
|
|
lbMenu[1]="\<Deblocare"
|
|
lbMenu[2]="\-"
|
|
lbMenu[3]="\<Revenire"
|
|
|
|
thisform.oMenuShortcut.ShowMenu(@lbMenu)
|
|
|
|
do case
|
|
case bar()=1
|
|
thisform.grid1.readonly=.f.
|
|
thisform.grid1.deletemark=.t.
|
|
thisform.grid1.backcolor=rgb(225,255,255)
|
|
thisform.afisactual
|
|
case bar()=3
|
|
thisform.grid1.readonly=.t.
|
|
thisform.grid1.deletemark=.f.
|
|
thisform.grid1.backcolor=rgb(254,255,240)
|
|
SELE xmf
|
|
SET FILTER TO !DELETED()
|
|
thisform.afisactual
|
|
endcase
|
|
ENDPROC
|
|
|
|
PROCEDURE TERMINAT1.COMMAND1.Click
|
|
primadata1=.t.
|
|
*DO TOTV
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS vizc AS ffergen OF "ferestrebaza.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="Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column4.Header4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column5.Header5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column6.Header6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column7.Header7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column17.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column17.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column1.Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Menulib1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="t3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Barabut1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: afisactual
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 3
|
|
DoCreate = .T.
|
|
Height = 542
|
|
Name = "vizc"
|
|
Width = 794
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Barabut1' AS barabut WITH ;
|
|
Height = 35, ;
|
|
Left = 620, ;
|
|
Name = "Barabut1", ;
|
|
Top = 1, ;
|
|
Width = 164, ;
|
|
ZOrderSet = 18, ;
|
|
TERMINAT1.COMMAND1.Name = "COMMAND1", ;
|
|
TERMINAT1.IMBUTON1.Height = 27, ;
|
|
TERMINAT1.IMBUTON1.Name = "IMBUTON1", ;
|
|
TERMINAT1.IMBUTON1.Width = 30, ;
|
|
TERMINAT1.Left = 131, ;
|
|
TERMINAT1.Name = "TERMINAT1", ;
|
|
TERMINAT1.Top = 3, ;
|
|
List1.COMMAND1.Name = "COMMAND1", ;
|
|
List1.IMBUTON1.Height = 27, ;
|
|
List1.IMBUTON1.Name = "IMBUTON1", ;
|
|
List1.IMBUTON1.Width = 30, ;
|
|
List1.Left = 99, ;
|
|
List1.Name = "List1", ;
|
|
List1.Top = 3, ;
|
|
EXCEL1.COMMAND1.Name = "COMMAND1", ;
|
|
EXCEL1.IMBUTON1.Height = 27, ;
|
|
EXCEL1.IMBUTON1.Name = "IMBUTON1", ;
|
|
EXCEL1.IMBUTON1.Width = 30, ;
|
|
EXCEL1.Left = 67, ;
|
|
EXCEL1.Name = "EXCEL1", ;
|
|
EXCEL1.Top = 3, ;
|
|
Modifica1.COMMAND1.Name = "COMMAND1", ;
|
|
Modifica1.IMBUTON1.Height = 27, ;
|
|
Modifica1.IMBUTON1.Name = "IMBUTON1", ;
|
|
Modifica1.IMBUTON1.Width = 30, ;
|
|
Modifica1.Left = 3, ;
|
|
Modifica1.Name = "Modifica1", ;
|
|
Modifica1.Top = 3, ;
|
|
Sterge1.COMMAND1.Name = "COMMAND1", ;
|
|
Sterge1.IMBUTON1.Height = 27, ;
|
|
Sterge1.IMBUTON1.Name = "IMBUTON1", ;
|
|
Sterge1.IMBUTON1.Width = 30, ;
|
|
Sterge1.Left = 35, ;
|
|
Sterge1.Name = "Sterge1", ;
|
|
Sterge1.Top = 3, ;
|
|
Nou1.COMMAND1.Name = "COMMAND1", ;
|
|
Nou1.IMBUTON1.Height = 27, ;
|
|
Nou1.IMBUTON1.Name = "IMBUTON1", ;
|
|
Nou1.IMBUTON1.Width = 30, ;
|
|
Nou1.Left = -29, ;
|
|
Nou1.Name = "Nou1", ;
|
|
Nou1.Top = 3
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Check1' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Denumire", ;
|
|
ControlSource = "bden", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 223, ;
|
|
Name = "Check1", ;
|
|
SpecialEffect = 2, ;
|
|
Style = 0, ;
|
|
TabIndex = 12, ;
|
|
Top = 58, ;
|
|
Width = 74, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check10' AS checkbox WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data act", ;
|
|
ControlSource = "bdata", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 9, ;
|
|
Height = 17, ;
|
|
Left = 384, ;
|
|
Name = "Check10", ;
|
|
SpecialEffect = 2, ;
|
|
Style = 0, ;
|
|
Top = 58, ;
|
|
Width = 63, ;
|
|
ZOrderSet = 19
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check3' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Nr. Doc.", ;
|
|
ControlSource = "bnract", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 13, ;
|
|
Name = "Check3", ;
|
|
SpecialEffect = 2, ;
|
|
Style = 0, ;
|
|
TabIndex = 20, ;
|
|
Top = 58, ;
|
|
Width = 66, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check4' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Gestiune", ;
|
|
ControlSource = "bgest", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 150, ;
|
|
Name = "Check4", ;
|
|
SpecialEffect = 2, ;
|
|
Style = 0, ;
|
|
TabIndex = 15, ;
|
|
Top = 58, ;
|
|
Width = 71, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check5' AS checkbox WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Nr.inventar", ;
|
|
ControlSource = "bnrinv", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 9, ;
|
|
Height = 17, ;
|
|
Left = 300, ;
|
|
Name = "Check5", ;
|
|
SpecialEffect = 2, ;
|
|
Style = 0, ;
|
|
Top = 58, ;
|
|
Width = 77, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check9' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Valoare", ;
|
|
ControlSource = "bsuma", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 82, ;
|
|
Name = "Check9", ;
|
|
SpecialEffect = 2, ;
|
|
Style = 0, ;
|
|
TabIndex = 20, ;
|
|
Top = 58, ;
|
|
Width = 65, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
|
|
Enabled = .T., ;
|
|
Height = 27, ;
|
|
Left = 888, ;
|
|
Name = "Cmdlist1", ;
|
|
Top = 180, ;
|
|
Visible = .F., ;
|
|
Width = 82, ;
|
|
ZOrderSet = 21, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
|
Caption = "", ;
|
|
Enabled = .T., ;
|
|
Height = 27, ;
|
|
Left = 888, ;
|
|
Name = "Command1", ;
|
|
Picture = ..\..\contab\grafice\edit1.bmp, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 4, ;
|
|
ToolTipText = "Modificare", ;
|
|
Top = 132, ;
|
|
Visible = .F., ;
|
|
Width = 82, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
|
Caption = "", ;
|
|
Enabled = .T., ;
|
|
Height = 27, ;
|
|
Left = 888, ;
|
|
Name = "Command2", ;
|
|
Picture = ..\..\contab\grafice\delete.bmp, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 4, ;
|
|
ToolTipText = "Eliminarea din lista", ;
|
|
Top = 108, ;
|
|
Visible = .F., ;
|
|
Width = 82, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Command3' AS commandbutton WITH ;
|
|
Caption = "Transformare in mijoc fix", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 27, ;
|
|
Left = 498, ;
|
|
Name = "Command3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 5, ;
|
|
Width = 121, ;
|
|
ZOrderSet = 15
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Grid1' AS grid WITH ;
|
|
BackColor = 255,255,255, ;
|
|
ColumnCount = 10, ;
|
|
DeleteMark = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
GridLineColor = 128,128,128, ;
|
|
Height = 441, ;
|
|
Left = 5, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .F., ;
|
|
RecordSource = "MF", ;
|
|
TabIndex = 1, ;
|
|
Top = 87, ;
|
|
Width = 780, ;
|
|
ZOrderSet = 4, ;
|
|
Column1.Alignment = 1, ;
|
|
Column1.BackColor = 255,255,255, ;
|
|
Column1.ColumnOrder = 2, ;
|
|
Column1.ControlSource = "nract", ;
|
|
Column1.FontName = "Arial Narrow", ;
|
|
Column1.Name = "Column2", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 60, ;
|
|
Column2.Alignment = 1, ;
|
|
Column2.BackColor = 255,255,255, ;
|
|
Column2.ColumnOrder = 3, ;
|
|
Column2.ControlSource = "dataact", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Name = "Column4", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 60, ;
|
|
Column3.Alignment = 0, ;
|
|
Column3.BackColor = 255,255,255, ;
|
|
Column3.ColumnOrder = 4, ;
|
|
Column3.ControlSource = "denumire", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.Name = "Column5", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Width = 179, ;
|
|
Column4.Alignment = 1, ;
|
|
Column4.BackColor = 255,255,255, ;
|
|
Column4.ColumnOrder = 5, ;
|
|
Column4.ControlSource = "valoare", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Format = "kr", ;
|
|
Column4.InputMask = (get_mask(14,gnZ)), ;
|
|
Column4.Name = "Column6", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.Width = 97, ;
|
|
Column5.Alignment = 1, ;
|
|
Column5.BackColor = 255,255,255, ;
|
|
Column5.ColumnOrder = 6, ;
|
|
Column5.ControlSource = "nrinv", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.Name = "Column7", ;
|
|
Column5.ReadOnly = .T., ;
|
|
Column5.Width = 51, ;
|
|
Column6.BackColor = 255,255,255, ;
|
|
Column6.ColumnOrder = 7, ;
|
|
Column6.ControlSource = "gest", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.Name = "Column14", ;
|
|
Column6.ReadOnly = .T., ;
|
|
Column6.Width = 44, ;
|
|
Column7.BackColor = 255,255,255, ;
|
|
Column7.ColumnOrder = 8, ;
|
|
Column7.ControlSource = "respons", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.Name = "Column15", ;
|
|
Column7.ReadOnly = .T., ;
|
|
Column7.Width = 106, ;
|
|
Column8.BackColor = 255,255,255, ;
|
|
Column8.ColumnOrder = 9, ;
|
|
Column8.ControlSource = "scd", ;
|
|
Column8.FontName = "Arial Narrow", ;
|
|
Column8.Name = "Column17", ;
|
|
Column8.ReadOnly = .T., ;
|
|
Column8.Width = 43, ;
|
|
Column9.BackColor = 255,255,255, ;
|
|
Column9.ColumnOrder = 1, ;
|
|
Column9.ControlSource = "nrord", ;
|
|
Column9.FontName = "Arial Narrow", ;
|
|
Column9.Name = "Column3", ;
|
|
Column9.ReadOnly = .T., ;
|
|
Column9.Width = 118, ;
|
|
Column10.BackColor = 255,255,255, ;
|
|
Column10.ControlSource = "ales", ;
|
|
Column10.CurrentControl = "Check1", ;
|
|
Column10.FontName = "Arial Narrow", ;
|
|
Column10.Name = "Column1", ;
|
|
Column10.ReadOnly = .F., ;
|
|
Column10.Sparse = .F., ;
|
|
Column10.Width = 26
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Check1' AS checkbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 0, ;
|
|
Caption = "", ;
|
|
ControlSource = "", ;
|
|
Height = 17, ;
|
|
Left = 17, ;
|
|
Name = "Check1", ;
|
|
ReadOnly = .F., ;
|
|
Top = 29, ;
|
|
Value = 0, ;
|
|
Width = 60
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Ales", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
|
|
Caption = "Nr. Gest.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Responsabil", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column15.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column17.Header1' AS header WITH ;
|
|
Caption = "Cont Deb.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column17.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. Act", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header2"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
ToolTipText = "IIF(UZURA>=NORMAT,'Amortizat','Neamortizat')"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Lucrarea", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data Act", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header4"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
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.Column5.Header5' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Denumire", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header5"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
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.Column6.Header6' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header6"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 255,255,255, ;
|
|
BorderColor = 0,0,0, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. Inventar", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header7"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
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 'Label10' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Lista imobilizarilor in curs", ;
|
|
FontBold = .F., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 11, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 22, ;
|
|
Left = 9, ;
|
|
Name = "Label10", ;
|
|
TabIndex = 10, ;
|
|
Top = 4, ;
|
|
Width = 180, ;
|
|
WordWrap = .F., ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label19' AS label WITH ;
|
|
Alignment = 2, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
Caption = "Nu sunt inregistrate imobilizari in aceasta luna!", ;
|
|
FontBold = .T., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,0,0, ;
|
|
Height = 60, ;
|
|
Left = 301, ;
|
|
Name = "Label19", ;
|
|
Top = 268, ;
|
|
Visible = .F., ;
|
|
Width = 217, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackColor = 255,255,255, ;
|
|
Caption = "Total Valoare:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 11, ;
|
|
Height = 22, ;
|
|
Left = 532, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 8, ;
|
|
Top = 53, ;
|
|
Width = 85, ;
|
|
ZOrderSet = 17
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label7' AS label WITH ;
|
|
BackColor = 255,255,255, ;
|
|
Caption = "Selectie", ;
|
|
Height = 17, ;
|
|
Left = 13, ;
|
|
Name = "Label7", ;
|
|
TabIndex = 9, ;
|
|
Top = 39, ;
|
|
Width = 46, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Menulib1' AS menulib WITH ;
|
|
Left = 696, ;
|
|
Name = "Menulib1", ;
|
|
Top = 508, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: ClassLib="utility.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
FillStyle = 1, ;
|
|
Height = 33, ;
|
|
Left = 519, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 47, ;
|
|
Width = 266, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape3' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
FillStyle = 1, ;
|
|
Height = 33, ;
|
|
Left = 5, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 47, ;
|
|
Width = 513, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape4' AS shape WITH ;
|
|
BackColor = 0,64,128, ;
|
|
BorderStyle = 0, ;
|
|
BorderWidth = 0, ;
|
|
Height = 36, ;
|
|
Left = 0, ;
|
|
Name = "Shape4", ;
|
|
Top = 1, ;
|
|
Width = 622, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 't3' AS textbox WITH ;
|
|
BackStyle = 0, ;
|
|
ControlSource = "tvaloare", ;
|
|
Enabled = .T., ;
|
|
Format = "kr", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(14,gnZ)), ;
|
|
Left = 620, ;
|
|
Name = "t3", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 11, ;
|
|
Top = 52, ;
|
|
Width = 155, ;
|
|
ZOrderSet = 16
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Activate
|
|
ON ERROR do a
|
|
*!* if existacamp('mf','fel')=.f.
|
|
*!* DO mesaj WITH "Dati reindexare!",""
|
|
*!* this.cmdTERMIN1.click
|
|
*!* ENDIF
|
|
SELECT mf
|
|
IF COMPARTABELE('MF')=.f.
|
|
DO MESAJ WITH 'Reindexati fisierele','<MENU / UTILE / REINDEXARE>'
|
|
this.cmdTERMIN1.click
|
|
ENDIF
|
|
|
|
tw1=thisform.Width
|
|
tl1=thisform.Height
|
|
|
|
thisform.WindowState=2
|
|
tw2=thisform.Width
|
|
tl2=thisform.Height
|
|
|
|
gw1=thisform.grid1.width
|
|
gl1=thisform.grid1.height
|
|
|
|
thisform.grid1.width=ROUND(gw1*tw2/tw1,0)
|
|
thisform.grid1.height=ROUND(gl1*tl2/tl1,0)
|
|
|
|
thisform.paint
|
|
thisform.refresh
|
|
thisform.afisactual
|
|
ON ERROR
|
|
ENDPROC
|
|
|
|
PROCEDURE afisactual
|
|
STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract,tnrinv,tdata
|
|
*WAIT WINDOW 'afis'
|
|
sele mf
|
|
|
|
if Bden==.t. then
|
|
Tden="UPPER(LEFT(denumire,LEN(M.denumire)))==UPPER(m.denumire)"
|
|
endif
|
|
|
|
*!* if Bscd==.t. then
|
|
*!* Tscd="UPPER(LEFT(scd,LEN(M.scd)))==UPPER(m.scd)"
|
|
*!* endif
|
|
|
|
if bgest==.t. and m.gest#-1 then
|
|
Tgest="gest==m.gest"
|
|
endif
|
|
|
|
|
|
if bsuma==.t. then
|
|
Tsuma="(valoare>=m.suma1) and (valoare<=m.suma2)"
|
|
endif
|
|
|
|
if bnract==.t. then
|
|
Tnract="(nract>=m.nr1) and (nract<=m.nr2)"
|
|
endif
|
|
|
|
if bnrinv==.t. then
|
|
Tnrinv="(VAL(nrinv)>=pnrinv1) and (VAL(nrinv)<=pnrinv2)"
|
|
ENDIF
|
|
|
|
if bdata==.t. then
|
|
Tdata="(dataact>=m.data1) and (dataact<=m.data2)"
|
|
ENDIF
|
|
|
|
sele mf
|
|
SET FILTER TO &Tden AND &Tsuma AND &Tgest and &tnract AND &tnrinv AND &Tdata AND UPPER(fel)='C'
|
|
*set order to tag dataact
|
|
*THISFORM.CALCUZURA
|
|
*thisform.calcamort
|
|
sele mf
|
|
go top
|
|
THISFORM.GRID1.REFRESH
|
|
|
|
sele mf
|
|
SUM VALOARE TO TVALOARE
|
|
|
|
thisform.t3.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
ON ERROR do a
|
|
store 0 to m.suma1,m.suma2,m.suma,m.sumat,m.nr1,m.nr2,TVALOARE
|
|
store .f. to bden,bsuma,bgest,bscd,bnract,bnrinv,bdata
|
|
STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract,tnrinv,tdata
|
|
STORE DATE() TO m.data1, m.data2
|
|
sele mf
|
|
REPLACE ALL ALES WITH .f.
|
|
SET FILTER TO UPPER(FEL)='C'
|
|
*REPLACE ALL ales WITH .f.
|
|
*SET ORDER TO 5 && NRINV
|
|
go top
|
|
if eof()
|
|
thisform.grid1.gridlines=0
|
|
thisform.grid1.recordsource=""
|
|
thisform.check1.enabled=.f.
|
|
thisform.check5.enabled=.f.
|
|
thisform.check3.enabled=.f.
|
|
thisform.check4.enabled=.f.
|
|
thisform.check9.enabled=.f.
|
|
thisform.check10.enabled=.f.
|
|
thisform.command1.enabled=.f.
|
|
thisform.label19.visible=.t.
|
|
endif
|
|
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Release
|
|
SELECT mf
|
|
SET FILTER TO
|
|
ENDPROC
|
|
|
|
PROCEDURE Barabut1.EXCEL1.COMMAND1.Click
|
|
thisform.cmdlist4.Click
|
|
ENDPROC
|
|
|
|
PROCEDURE Barabut1.List1.COMMAND1.Click
|
|
thisform.cmdlist1.click
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Barabut1.Modifica1.COMMAND1.Click
|
|
thisform.commAND1.Click
|
|
ENDPROC
|
|
|
|
PROCEDURE Barabut1.Sterge1.COMMAND1.Click
|
|
thisform.commAND2.Click
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Click
|
|
if Bden==.t. then
|
|
OLIT=CREATEOBJECT("CAUTLITERE")
|
|
WITH OLIT
|
|
.CAPTION="Denumire"
|
|
.text1.controlsource="m.denumire"
|
|
endwith
|
|
olit.show(1)
|
|
endif
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check10.Click
|
|
STORE DATE() TO m.data1,m.data2
|
|
if bdata==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Data act"
|
|
.label1.caption="Data minima:"
|
|
.label2.caption="Data maxima:"
|
|
.text1.controlsource="m.data1"
|
|
.text2.controlsource="m.data2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check10.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check3.Click
|
|
if bnract==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Numarul documentului"
|
|
.label1.caption="Nr. minim:"
|
|
.label2.caption="Nr. maxim:"
|
|
.text1.controlsource="m.nr1"
|
|
.text2.controlsource="m.nr2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check3.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check4.Click
|
|
if bgest==.t. then
|
|
*OLIT=CREATEOBJECT("CAUTLITERE")
|
|
*WITH OLIT
|
|
* .CAPTION="Gestiunea"
|
|
* .text1.controlsource="m.numegest"
|
|
*endwith
|
|
*olit.show(1)
|
|
do caut_alf with 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
|
|
endif
|
|
|
|
sele numegest
|
|
locate for numegest=m.numegest
|
|
scatter memvar
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check4.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check5.Click
|
|
STORE 0 TO pnrinv1,pnrinv2
|
|
if bnrinv==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Numarul de inventar"
|
|
.label1.caption="Nr. minim:"
|
|
.label2.caption="Nr. maxim:"
|
|
.text1.controlsource="pnrinv1"
|
|
.text2.controlsource="pnrinv2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check5.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check9.Click
|
|
if bsuma==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Valoare"
|
|
.label1.caption="Valoare minima:"
|
|
.label2.caption="Valoare maxima:"
|
|
.text1.controlsource="m.suma1"
|
|
.text2.controlsource="m.suma2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check9.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdlist1.Click
|
|
|
|
THISFORM.AFISACTUAL
|
|
thisform.alwaysontop=.f.
|
|
report form listimobcurs to printer prompt preview
|
|
thisform.alwaysontop=.t.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Command1.Click
|
|
thisform.alwaysontop=.f.
|
|
sele mf
|
|
scatter memvar
|
|
|
|
SELECT numegest
|
|
LOCATE FOR gest=m.gest
|
|
SCATTER FIELDS numegest MEMVAR
|
|
|
|
ofi=create('incurs')
|
|
ofi.show(1)
|
|
|
|
if buton==1
|
|
sele mf
|
|
gather memvar
|
|
endif
|
|
thisform.afisactual
|
|
thisform.alwaysontop=.t.
|
|
ENDPROC
|
|
|
|
PROCEDURE Command2.Click
|
|
sele mf
|
|
scatter memvar
|
|
|
|
oe=createobj('casdanu')
|
|
oe.label1.caption='Se elimina imobilizarea in curs:'
|
|
oe.show(1)
|
|
|
|
if buton==1
|
|
SELE mf
|
|
DELETE
|
|
|
|
thisform.afisactual
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Command3.Click
|
|
Public valtrans
|
|
Local INIVAL,N
|
|
Store {} To m.datapif
|
|
Store 0 To m.nract,m.normaan,m.normat,m.valrez,valtrans
|
|
Store '' To m.nrinv,m.codmf,m.respons
|
|
Select mf
|
|
Locate For ales=.T.
|
|
If !Found()
|
|
Do mesaj With 'Bifati ceea ce vreti sa transformati','in mijloc fix!'
|
|
Return
|
|
Endif
|
|
|
|
If Used('tmf')
|
|
Use In tmf
|
|
Endif
|
|
|
|
Select denumire,valoare As valini From mf Where ales=.T. And Upper(FEL)='C' Into Table &loc\&nfscurt\tempo\tmf
|
|
Alter Table tmf Add Column valtrans N(14)
|
|
|
|
*USE &loc\&nfscurt\tempo\tmf exclusiv IN 0
|
|
|
|
Select tmf
|
|
Scan
|
|
Replace valtrans With valini
|
|
Endscan
|
|
Go Top
|
|
|
|
Do Form valoare
|
|
|
|
If buton=2
|
|
Use In tmf
|
|
Select mf
|
|
*SET FILTER TO
|
|
Return
|
|
Endif
|
|
|
|
Select tmf
|
|
Scan
|
|
Scatter Memv
|
|
Select mf
|
|
Locate For ales=.T. And Upper(FEL)='C' And denumire=m.denumire
|
|
Scatter Memvar
|
|
If m.valtrans<m.valoare
|
|
Replace valoare With m.valoare-m.valtrans
|
|
Append Blank
|
|
Gather Memv
|
|
Replace valoare With m.valtrans
|
|
Replace FEL With "T"
|
|
Else
|
|
Replace FEL With "T"
|
|
Endif
|
|
Select tmf
|
|
Endscan
|
|
|
|
Use In tmf
|
|
|
|
m.valoare=Total
|
|
m.denumire=m.nrord
|
|
m.dataact=Date()
|
|
ofi=Create('frm_fisa')
|
|
ofi.text4.ReadOnly=.T.
|
|
*!* ofi.t21.readonly=.f.
|
|
ofi.fel_imob = 'C'
|
|
ofi.Command1.Visible=.F.
|
|
ofi.RENUNT1.Visible=.F.
|
|
ofi.list1.Visible=.F.
|
|
ofi.Show(1)
|
|
|
|
Select mf
|
|
Set Filter To
|
|
Append Blank
|
|
If Flock()
|
|
Gather Memv
|
|
Replace FEL With " "
|
|
REPLACE codop WITH 4
|
|
Endif
|
|
Unlock
|
|
|
|
Select mflun
|
|
Append Blank
|
|
If Flock()
|
|
Gather Memvar
|
|
Replace explicatia With 'Transformare in mijloc fix',dataora With Datetime()
|
|
Replace codop With 4
|
|
Endif
|
|
Unlock
|
|
|
|
Select mfanual
|
|
Append Blank
|
|
If Flock()
|
|
Gather Memvar
|
|
Replace explicatia With 'Transformare in mijloc fix',dataora With Datetime()
|
|
Replace codop With 4
|
|
Endif
|
|
Unlock
|
|
|
|
Select mf
|
|
Set Filter To ales And Upper(FEL)='T'
|
|
If Flock()
|
|
Replace All cauza With Alltrim(m.denumire)
|
|
Endif
|
|
Unlock
|
|
|
|
Select mf
|
|
Set Filter To
|
|
If Flock()
|
|
Replace All ales With .F.
|
|
Endif
|
|
Unlock
|
|
|
|
Set Filter To FEL='C'
|
|
Thisform.grid1.Refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column1.Check1.Click
|
|
thisform.grid1.Refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column2.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column2.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column4.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column4.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column5.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column5.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column6.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column6.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column7.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column7.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Init
|
|
sele mf
|
|
GO top
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS vizp AS viz OF "mfix2000.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="Check16" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Verif1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Sterge1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Modifica1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="ckIstoric" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check12" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check11" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check13" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check15" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="LIST1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_majorare" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_valin" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_valoare" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_valramasa" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_amortlun" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_respons" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_acont" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_cont" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="List3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="List2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="excel2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_denumire" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_lucrare" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column23.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column23.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column24.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column24.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column25.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column25.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column26.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column26.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column27.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column27.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column28.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column28.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column29.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column29.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column30.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column30.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column31.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column31.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column32.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column32.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column33.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column33.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column34.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column34.Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column35.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column35.Text1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: calcul_reevaluare && Calculeaza valramasa(de calcul), normat2 si normat2lun
|
|
*m: do_conservare
|
|
*m: do_modificare_istoric
|
|
*m: iesire_din_gestiune
|
|
*m: meniu_as
|
|
*m: meniu_calcul
|
|
*m: schimb_dns
|
|
*m: schimb_val_inventar
|
|
*m: transfer
|
|
*p: pcfel
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 3
|
|
DoCreate = .T.
|
|
Height = 525
|
|
Name = "vizp"
|
|
pcfel =
|
|
Width = 797
|
|
LABEL10.AutoSize = .T.
|
|
LABEL10.BackStyle = 0
|
|
LABEL10.Caption = "Lista imobilizarilor necorporale"
|
|
LABEL10.FontBold = .F.
|
|
LABEL10.FontName = "Comic Sans MS"
|
|
LABEL10.FontSize = 11
|
|
LABEL10.ForeColor = 255,255,255
|
|
LABEL10.Height = 22
|
|
LABEL10.Left = 7
|
|
LABEL10.Name = "LABEL10"
|
|
LABEL10.Top = 6
|
|
LABEL10.Width = 216
|
|
LABEL10.WordWrap = .F.
|
|
LABEL10.ZOrderSet = 12
|
|
SHAPE1.BackStyle = 0
|
|
SHAPE1.BorderColor = 128,128,128
|
|
SHAPE1.BorderWidth = 1
|
|
SHAPE1.Height = 100
|
|
SHAPE1.Left = 348
|
|
SHAPE1.Name = "SHAPE1"
|
|
SHAPE1.SpecialEffect = 1
|
|
SHAPE1.Top = 39
|
|
SHAPE1.Width = 444
|
|
SHAPE1.ZOrderSet = 1
|
|
SHAPE5.BackStyle = 0
|
|
SHAPE5.BorderColor = 128,128,128
|
|
SHAPE5.BorderWidth = 1
|
|
SHAPE5.Height = 51
|
|
SHAPE5.Left = 498
|
|
SHAPE5.Name = "SHAPE5"
|
|
SHAPE5.SpecialEffect = 1
|
|
SHAPE5.Top = 61
|
|
SHAPE5.Width = 289
|
|
SHAPE5.ZOrderSet = 4
|
|
SHAPE2.Height = 52
|
|
SHAPE2.Left = 876
|
|
SHAPE2.Name = "SHAPE2"
|
|
SHAPE2.Top = 72
|
|
SHAPE2.Visible = .F.
|
|
SHAPE2.Width = 12
|
|
SHAPE2.ZOrderSet = 2
|
|
SHAPE3.Left = 840
|
|
SHAPE3.Name = "SHAPE3"
|
|
SHAPE3.Top = 360
|
|
SHAPE3.Visible = .F.
|
|
SHAPE3.ZOrderSet = 5
|
|
GRID1.BackColor = 255,255,255
|
|
GRID1.COLUMN1.BackColor = 255,255,255
|
|
GRID1.COLUMN1.ColumnOrder = 31
|
|
GRID1.COLUMN1.ControlSource = "dataout"
|
|
GRID1.COLUMN1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN1.HEADER1.Alignment = 2
|
|
GRID1.COLUMN1.HEADER1.Caption = "Data iesirii"
|
|
GRID1.COLUMN1.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN1.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN1.Name = "COLUMN1"
|
|
GRID1.COLUMN1.ReadOnly = .T.
|
|
GRID1.COLUMN1.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN1.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN1.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN1.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN1.TEXT1.Visible = .F.
|
|
GRID1.COLUMN1.Visible = .F.
|
|
GRID1.COLUMN1.Width = 52
|
|
GRID1.COLUMN10.BackColor = 255,255,255
|
|
GRID1.COLUMN10.ColumnOrder = 3
|
|
GRID1.COLUMN10.FontName = "Arial Narrow"
|
|
GRID1.COLUMN10.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN10.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN10.Name = "COLUMN10"
|
|
GRID1.COLUMN10.ReadOnly = .T.
|
|
GRID1.COLUMN10.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN10.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN10.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN10.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN11.BackColor = 255,255,255
|
|
GRID1.COLUMN11.ColumnOrder = 4
|
|
GRID1.COLUMN11.ControlSource = "allt(nrpif)"
|
|
GRID1.COLUMN11.FontName = "Arial Narrow"
|
|
GRID1.COLUMN11.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN11.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN11.Name = "COLUMN11"
|
|
GRID1.COLUMN11.ReadOnly = .T.
|
|
GRID1.COLUMN11.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN11.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN11.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN11.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN12.BackColor = 255,255,255
|
|
GRID1.COLUMN12.ColumnOrder = 21
|
|
GRID1.COLUMN12.FontName = "Arial Narrow"
|
|
GRID1.COLUMN12.Format = "kr"
|
|
GRID1.COLUMN12.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN12.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN12.HEADER1.WordWrap = .T.
|
|
GRID1.COLUMN12.InputMask = (get_mask(14,gnZ))
|
|
GRID1.COLUMN12.Name = "COLUMN12"
|
|
GRID1.COLUMN12.ReadOnly = .T.
|
|
GRID1.COLUMN12.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN12.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN12.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN12.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN13.BackColor = 255,255,255
|
|
GRID1.COLUMN13.ColumnOrder = 15
|
|
GRID1.COLUMN13.FontName = "Arial Narrow"
|
|
GRID1.COLUMN13.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN13.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN13.Name = "COLUMN13"
|
|
GRID1.COLUMN13.ReadOnly = .T.
|
|
GRID1.COLUMN13.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN13.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN13.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN13.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN14.BackColor = 255,255,255
|
|
GRID1.COLUMN14.ColumnOrder = 25
|
|
GRID1.COLUMN14.FontName = "Arial Narrow"
|
|
GRID1.COLUMN14.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN14.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN14.Name = "COLUMN14"
|
|
GRID1.COLUMN14.ReadOnly = .T.
|
|
GRID1.COLUMN14.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN14.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN14.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN14.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN15.BackColor = 255,255,255
|
|
GRID1.COLUMN15.ColumnOrder = 26
|
|
GRID1.COLUMN15.FontName = "Arial Narrow"
|
|
GRID1.COLUMN15.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN15.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN15.Name = "COLUMN15"
|
|
GRID1.COLUMN15.ReadOnly = .T.
|
|
GRID1.COLUMN15.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN15.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN15.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN15.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN15.Width = 96
|
|
GRID1.COLUMN16.BackColor = 255,255,255
|
|
GRID1.COLUMN16.ColumnOrder = 14
|
|
GRID1.COLUMN16.FontName = "Arial Narrow"
|
|
GRID1.COLUMN16.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN16.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN16.InputMask = "9999.99%"
|
|
GRID1.COLUMN16.Name = "COLUMN16"
|
|
GRID1.COLUMN16.ReadOnly = .T.
|
|
GRID1.COLUMN16.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN16.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN16.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN16.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN17.BackColor = 255,255,255
|
|
GRID1.COLUMN17.ColumnOrder = 23
|
|
GRID1.COLUMN17.ControlSource = "scd"
|
|
GRID1.COLUMN17.FontName = "Arial Narrow"
|
|
GRID1.COLUMN17.HEADER1.Alignment = 2
|
|
GRID1.COLUMN17.HEADER1.Caption = "Cont "
|
|
GRID1.COLUMN17.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN17.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN17.Name = "COLUMN17"
|
|
GRID1.COLUMN17.ReadOnly = .T.
|
|
GRID1.COLUMN17.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN17.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN17.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN17.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN17.Width = 35
|
|
GRID1.COLUMN18.BackColor = 255,255,255
|
|
GRID1.COLUMN18.ColumnOrder = 17
|
|
GRID1.COLUMN18.FontName = "Arial Narrow"
|
|
GRID1.COLUMN18.Format = "kr"
|
|
GRID1.COLUMN18.HEADER1.Caption = "Amortizment lunar"
|
|
GRID1.COLUMN18.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN18.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN18.HEADER1.WordWrap = .T.
|
|
GRID1.COLUMN18.InputMask = (get_mask(14,gnZ))
|
|
GRID1.COLUMN18.Name = "COLUMN18"
|
|
GRID1.COLUMN18.ReadOnly = .T.
|
|
GRID1.COLUMN18.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN18.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN18.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN18.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN18.Width = 67
|
|
GRID1.COLUMN19.BackColor = 255,255,255
|
|
GRID1.COLUMN19.ColumnOrder = 18
|
|
GRID1.COLUMN19.FontName = "Arial Narrow"
|
|
GRID1.COLUMN19.Format = "kr"
|
|
GRID1.COLUMN19.HEADER1.Caption = "Total Amortizat"
|
|
GRID1.COLUMN19.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN19.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN19.InputMask = (get_mask(14,gnZ))
|
|
GRID1.COLUMN19.Name = "COLUMN19"
|
|
GRID1.COLUMN19.ReadOnly = .T.
|
|
GRID1.COLUMN19.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN19.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN19.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN19.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN2.BackColor = 255,255,255
|
|
GRID1.COLUMN2.FontName = "Arial Narrow"
|
|
GRID1.COLUMN2.HEADER2.Caption = "Nr.Doc.Achiz."
|
|
GRID1.COLUMN2.HEADER2.FontName = "Arial Narrow"
|
|
GRID1.COLUMN2.HEADER2.Name = "HEADER2"
|
|
GRID1.COLUMN2.Name = "COLUMN2"
|
|
GRID1.COLUMN2.ReadOnly = .T.
|
|
GRID1.COLUMN2.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN2.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN2.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN2.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN2.Width = 61
|
|
GRID1.COLUMN20.Alignment = 2
|
|
GRID1.COLUMN20.BackColor = 255,255,255
|
|
GRID1.COLUMN20.ColumnOrder = 29
|
|
GRID1.COLUMN20.ControlSource = "iif(casat=.f.,'NU','DA')"
|
|
GRID1.COLUMN20.CurrentControl = "TEXT1"
|
|
GRID1.COLUMN20.FontName = "Arial Narrow"
|
|
GRID1.COLUMN20.HEADER1.Caption = "Iesit din gest."
|
|
GRID1.COLUMN20.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN20.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN20.HEADER1.WordWrap = .F.
|
|
GRID1.COLUMN20.Name = "COLUMN20"
|
|
GRID1.COLUMN20.ReadOnly = .T.
|
|
GRID1.COLUMN20.Sparse = .F.
|
|
GRID1.COLUMN20.TEXT1.Alignment = 2
|
|
GRID1.COLUMN20.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN20.TEXT1.ControlSource = "casat"
|
|
GRID1.COLUMN20.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN20.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN20.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN20.TEXT1.Value = iif(casat=.f.,'NU','DA')
|
|
GRID1.COLUMN20.Width = 56
|
|
GRID1.COLUMN21.BackColor = 255,255,255
|
|
GRID1.COLUMN21.ColumnOrder = 13
|
|
GRID1.COLUMN21.FontName = "Arial Narrow"
|
|
GRID1.COLUMN21.HEADER1.Caption = "DNS Calcul"
|
|
GRID1.COLUMN21.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN21.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN21.InputMask = "999.99"
|
|
GRID1.COLUMN21.Name = "COLUMN21"
|
|
GRID1.COLUMN21.ReadOnly = .T.
|
|
GRID1.COLUMN21.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN21.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN21.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN21.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN21.Width = 55
|
|
GRID1.COLUMN22.BackColor = 255,255,255
|
|
GRID1.COLUMN22.ColumnOrder = 9
|
|
GRID1.COLUMN22.FontName = "Arial Narrow"
|
|
GRID1.COLUMN22.Format = "kr"
|
|
GRID1.COLUMN22.HEADER1.Alignment = 2
|
|
GRID1.COLUMN22.HEADER1.Caption = "Valoare de calcul"
|
|
GRID1.COLUMN22.HEADER1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN22.HEADER1.Name = "HEADER1"
|
|
GRID1.COLUMN22.InputMask = (get_mask(14,gnZ))
|
|
GRID1.COLUMN22.Name = "COLUMN22"
|
|
GRID1.COLUMN22.ReadOnly = .T.
|
|
GRID1.COLUMN22.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN22.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN22.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN22.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN22.Width = 85
|
|
GRID1.Column23.BackColor = 255,255,255
|
|
GRID1.Column23.ColumnOrder = 30
|
|
GRID1.Column23.ControlSource = "cauza"
|
|
GRID1.Column23.FontName = "Arial Narrow"
|
|
GRID1.Column23.Name = "Column23"
|
|
GRID1.Column23.ReadOnly = .T.
|
|
GRID1.Column23.Visible = .T.
|
|
GRID1.Column23.Width = 83
|
|
GRID1.Column24.BackColor = 255,255,255
|
|
GRID1.Column24.ColumnOrder = 11
|
|
GRID1.Column24.ControlSource = "VALREZ"
|
|
GRID1.Column24.FontName = "Arial Narrow"
|
|
GRID1.Column24.Format = "kr"
|
|
GRID1.Column24.InputMask = (get_mask(14,gnZ))
|
|
GRID1.Column24.Name = "Column24"
|
|
GRID1.Column24.ReadOnly = .T.
|
|
GRID1.Column24.Width = 56
|
|
GRID1.Column25.Alignment = 2
|
|
GRID1.Column25.BackColor = 255,255,255
|
|
GRID1.Column25.ColumnOrder = 20
|
|
GRID1.Column25.ControlSource = "gomonth(dataeval,iif(!empty(normat2lun),normat2lun,normat))"
|
|
GRID1.Column25.FontName = "Arial Narrow"
|
|
GRID1.Column25.Name = "Column25"
|
|
GRID1.Column25.ReadOnly = .T.
|
|
GRID1.Column26.BackColor = 255,255,255
|
|
GRID1.Column26.ColumnOrder = 8
|
|
GRID1.Column26.ControlSource = "valin"
|
|
GRID1.Column26.FontName = "Arial Narrow"
|
|
GRID1.Column26.Format = "kr"
|
|
GRID1.Column26.InputMask = (get_mask(14,gnZ))
|
|
GRID1.Column26.Name = "Column26"
|
|
GRID1.Column26.ReadOnly = .T.
|
|
GRID1.Column26.Width = 80
|
|
GRID1.Column27.BackColor = 255,255,255
|
|
GRID1.Column27.ColumnOrder = 10
|
|
GRID1.Column27.ControlSource = "valin-valoare"
|
|
GRID1.Column27.FontName = "Arial Narrow"
|
|
GRID1.Column27.Format = "kr"
|
|
GRID1.Column27.InputMask = (get_mask(14,gnZ))
|
|
GRID1.Column27.Name = "Column27"
|
|
GRID1.Column27.ReadOnly = .T.
|
|
GRID1.Column27.Width = 62
|
|
GRID1.Column28.BackColor = 255,255,255
|
|
GRID1.Column28.ColumnOrder = 32
|
|
GRID1.Column28.ControlSource = "dataeval"
|
|
GRID1.Column28.FontName = "Arial Narrow"
|
|
GRID1.Column28.Name = "Column28"
|
|
GRID1.Column28.ReadOnly = .T.
|
|
GRID1.Column28.Width = 59
|
|
GRID1.Column29.BackColor = 255,255,255
|
|
GRID1.Column29.ColumnOrder = 19
|
|
GRID1.Column29.ControlSource = "valin-amorttot"
|
|
GRID1.Column29.FontName = "Arial Narrow"
|
|
GRID1.Column29.Format = "kr"
|
|
GRID1.Column29.InputMask = (get_mask(14,gnZ))
|
|
GRID1.Column29.Name = "Column29"
|
|
GRID1.Column29.ReadOnly = .T.
|
|
GRID1.Column29.Width = 83
|
|
GRID1.COLUMN3.BackColor = 255,255,255
|
|
GRID1.COLUMN3.ColumnOrder = 16
|
|
GRID1.COLUMN3.FontName = "Arial Narrow"
|
|
GRID1.COLUMN3.HEADER3.FontName = "Arial Narrow"
|
|
GRID1.COLUMN3.HEADER3.Name = "HEADER3"
|
|
GRID1.COLUMN3.HEADER3.WordWrap = .T.
|
|
GRID1.COLUMN3.Name = "COLUMN3"
|
|
GRID1.COLUMN3.ReadOnly = .T.
|
|
GRID1.COLUMN3.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN3.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN3.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN3.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN3.Width = 31
|
|
GRID1.Column30.BackColor = 255,255,255
|
|
GRID1.Column30.ColumnOrder = 34
|
|
GRID1.Column30.ControlSource = "cod"
|
|
GRID1.Column30.FontName = "Arial Narrow"
|
|
GRID1.Column30.Name = "Column30"
|
|
GRID1.Column30.ReadOnly = .T.
|
|
GRID1.Column30.Width = 22
|
|
GRID1.Column31.BackColor = 255,255,255
|
|
GRID1.Column31.ColumnOrder = 27
|
|
GRID1.Column31.ControlSource = "id_sectie"
|
|
GRID1.Column31.FontName = "Arial Narrow"
|
|
GRID1.Column31.Name = "Column31"
|
|
GRID1.Column31.ReadOnly = .T.
|
|
GRID1.Column31.Width = 36
|
|
GRID1.Column32.BackColor = 255,255,255
|
|
GRID1.Column32.ColumnOrder = 24
|
|
GRID1.Column32.ControlSource = "ascd"
|
|
GRID1.Column32.FontName = "Arial Narrow"
|
|
GRID1.Column32.Name = "Column32"
|
|
GRID1.Column32.ReadOnly = .T.
|
|
GRID1.Column32.Width = 33
|
|
GRID1.Column33.BackColor = 255,255,255
|
|
GRID1.Column33.ColumnOrder = 28
|
|
GRID1.Column33.ControlSource = "nrord"
|
|
GRID1.Column33.FontName = "Arial Narrow"
|
|
GRID1.Column33.Name = "Column33"
|
|
GRID1.Column33.ReadOnly = .T.
|
|
GRID1.Column34.BackColor = 255,255,255
|
|
GRID1.Column34.ColumnOrder = 35
|
|
GRID1.Column34.ControlSource = "inactiv"
|
|
GRID1.Column34.FontName = "Arial Narrow"
|
|
GRID1.Column34.Name = "Column34"
|
|
GRID1.Column34.ReadOnly = .T.
|
|
GRID1.Column34.Sparse = .F.
|
|
GRID1.Column34.Width = 30
|
|
GRID1.Column35.BackColor = 255,255,255
|
|
GRID1.Column35.ColumnOrder = 33
|
|
GRID1.Column35.ControlSource = "get_explicatie(codop)"
|
|
GRID1.Column35.FontName = "Arial Narrow"
|
|
GRID1.Column35.Name = "Column35"
|
|
GRID1.Column35.ReadOnly = .T.
|
|
GRID1.Column35.Width = 78
|
|
GRID1.COLUMN4.BackColor = 255,255,255
|
|
GRID1.COLUMN4.ControlSource = "dataact"
|
|
GRID1.COLUMN4.FontName = "Arial Narrow"
|
|
GRID1.COLUMN4.HEADER4.Caption = "Data Achiz."
|
|
GRID1.COLUMN4.HEADER4.FontName = "Arial Narrow"
|
|
GRID1.COLUMN4.HEADER4.Name = "HEADER4"
|
|
GRID1.COLUMN4.Name = "COLUMN4"
|
|
GRID1.COLUMN4.ReadOnly = .T.
|
|
GRID1.COLUMN4.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN4.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN4.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN4.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN5.BackColor = 255,255,255
|
|
GRID1.COLUMN5.ColumnOrder = 6
|
|
GRID1.COLUMN5.FontName = "Arial Narrow"
|
|
GRID1.COLUMN5.HEADER5.FontName = "Arial Narrow"
|
|
GRID1.COLUMN5.HEADER5.Name = "HEADER5"
|
|
GRID1.COLUMN5.Name = "COLUMN5"
|
|
GRID1.COLUMN5.ReadOnly = .T.
|
|
GRID1.COLUMN5.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN5.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN5.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN5.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN6.BackColor = 255,255,255
|
|
GRID1.COLUMN6.ColumnOrder = 7
|
|
GRID1.COLUMN6.ControlSource = "valoare"
|
|
GRID1.COLUMN6.FontName = "Arial Narrow"
|
|
GRID1.COLUMN6.Format = "kr"
|
|
GRID1.COLUMN6.HEADER6.Caption = "Valoare de achizitie"
|
|
GRID1.COLUMN6.HEADER6.FontName = "Arial Narrow"
|
|
GRID1.COLUMN6.HEADER6.Name = "HEADER6"
|
|
GRID1.COLUMN6.InputMask = (get_mask(14,gnZ))
|
|
GRID1.COLUMN6.Name = "COLUMN6"
|
|
GRID1.COLUMN6.ReadOnly = .T.
|
|
GRID1.COLUMN6.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN6.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN6.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN6.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN6.Width = 90
|
|
GRID1.COLUMN7.BackColor = 255,255,255
|
|
GRID1.COLUMN7.ColumnOrder = 5
|
|
GRID1.COLUMN7.ControlSource = "allt(nrinv)"
|
|
GRID1.COLUMN7.FontName = "Arial Narrow"
|
|
GRID1.COLUMN7.HEADER7.FontName = "Arial Narrow"
|
|
GRID1.COLUMN7.HEADER7.Name = "HEADER7"
|
|
GRID1.COLUMN7.Name = "COLUMN7"
|
|
GRID1.COLUMN7.ReadOnly = .T.
|
|
GRID1.COLUMN7.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN7.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN7.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN7.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN8.BackColor = 255,255,255
|
|
GRID1.COLUMN8.ColumnOrder = 22
|
|
GRID1.COLUMN8.FontName = "Arial Narrow"
|
|
GRID1.COLUMN8.HEADER8.FontName = "Arial Narrow"
|
|
GRID1.COLUMN8.HEADER8.Name = "HEADER8"
|
|
GRID1.COLUMN8.Name = "COLUMN8"
|
|
GRID1.COLUMN8.ReadOnly = .T.
|
|
GRID1.COLUMN8.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN8.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN8.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN8.TEXT1.ReadOnly = .T.
|
|
GRID1.COLUMN9.BackColor = 255,255,255
|
|
GRID1.COLUMN9.ColumnOrder = 12
|
|
GRID1.COLUMN9.FontName = "Arial Narrow"
|
|
GRID1.COLUMN9.HEADER9.FontName = "Arial Narrow"
|
|
GRID1.COLUMN9.HEADER9.Name = "HEADER9"
|
|
GRID1.COLUMN9.InputMask = "9999.99"
|
|
GRID1.COLUMN9.Name = "COLUMN9"
|
|
GRID1.COLUMN9.ReadOnly = .T.
|
|
GRID1.COLUMN9.TEXT1.BackColor = 255,255,255
|
|
GRID1.COLUMN9.TEXT1.FontName = "Arial Narrow"
|
|
GRID1.COLUMN9.TEXT1.Name = "TEXT1"
|
|
GRID1.COLUMN9.TEXT1.ReadOnly = .T.
|
|
GRID1.ColumnCount = 35
|
|
GRID1.FontName = "Arial Narrow"
|
|
GRID1.HeaderHeight = 33
|
|
GRID1.Height = 376
|
|
GRID1.Left = 1
|
|
GRID1.Name = "GRID1"
|
|
GRID1.Panel = 1
|
|
GRID1.ReadOnly = .T.
|
|
GRID1.Top = 142
|
|
GRID1.Width = 791
|
|
GRID1.ZOrderSet = 6
|
|
TEXT1.BackStyle = 0
|
|
TEXT1.DisabledBackColor = 255,255,255
|
|
TEXT1.FontBold = .F.
|
|
TEXT1.FontName = "Arial Narrow"
|
|
TEXT1.FontSize = 10
|
|
TEXT1.Format = "rk"
|
|
TEXT1.Height = 23
|
|
TEXT1.InputMask = (get_mask(14,gnZ))
|
|
TEXT1.Left = 505
|
|
TEXT1.Name = "TEXT1"
|
|
TEXT1.SpecialEffect = 1
|
|
TEXT1.Top = 74
|
|
TEXT1.Width = 136
|
|
TEXT1.ZOrderSet = 7
|
|
LABEL3.BackStyle = 0
|
|
LABEL3.FontName = "Arial Narrow"
|
|
LABEL3.FontSize = 10
|
|
LABEL3.Left = 618
|
|
LABEL3.Name = "LABEL3"
|
|
LABEL3.Top = 45
|
|
LABEL3.ZOrderSet = 10
|
|
SHAPE6.BackStyle = 0
|
|
SHAPE6.BorderColor = 128,128,128
|
|
SHAPE6.BorderWidth = 1
|
|
SHAPE6.Height = 100
|
|
SHAPE6.Left = 4
|
|
SHAPE6.Name = "SHAPE6"
|
|
SHAPE6.SpecialEffect = 1
|
|
SHAPE6.Top = 39
|
|
SHAPE6.Width = 342
|
|
SHAPE6.ZOrderSet = 0
|
|
LABEL7.Left = 805
|
|
LABEL7.Name = "LABEL7"
|
|
LABEL7.Top = 184
|
|
LABEL7.Visible = .F.
|
|
LABEL7.ZOrderSet = 11
|
|
CHECK1.AutoSize = .T.
|
|
CHECK1.BackStyle = 0
|
|
CHECK1.FontName = "Arial Narrow"
|
|
CHECK1.FontSize = 10
|
|
CHECK1.Left = 96
|
|
CHECK1.Name = "CHECK1"
|
|
CHECK1.SpecialEffect = 2
|
|
CHECK1.Top = 240
|
|
CHECK1.Visible = .F.
|
|
CHECK1.ZOrderSet = 56
|
|
CHECK4.AutoSize = .T.
|
|
CHECK4.BackStyle = 0
|
|
CHECK4.FontName = "Arial Narrow"
|
|
CHECK4.FontSize = 10
|
|
CHECK4.Left = 74
|
|
CHECK4.Name = "CHECK4"
|
|
CHECK4.SpecialEffect = 2
|
|
CHECK4.Top = 39
|
|
CHECK4.ZOrderSet = 49
|
|
CHECK9.AutoSize = .T.
|
|
CHECK9.BackStyle = 0
|
|
CHECK9.Caption = "\<Val. de achizitie"
|
|
CHECK9.FontName = "Arial Narrow"
|
|
CHECK9.FontSize = 10
|
|
CHECK9.Left = 96
|
|
CHECK9.Name = "CHECK9"
|
|
CHECK9.SpecialEffect = 2
|
|
CHECK9.Top = 192
|
|
CHECK9.Visible = .F.
|
|
CHECK9.ZOrderSet = 45
|
|
COMMAND1.Height = 27
|
|
COMMAND1.Left = 816
|
|
COMMAND1.Name = "COMMAND1"
|
|
COMMAND1.Top = 192
|
|
COMMAND1.Visible = .F.
|
|
COMMAND1.Width = 76
|
|
COMMAND1.ZOrderSet = 14
|
|
TEXT16.Left = 805
|
|
TEXT16.Name = "TEXT16"
|
|
TEXT16.Top = 0
|
|
TEXT16.Visible = .F.
|
|
TEXT16.ZOrderSet = 15
|
|
TEXT17.Left = 847
|
|
TEXT17.Name = "TEXT17"
|
|
TEXT17.Top = 0
|
|
TEXT17.Visible = .F.
|
|
TEXT17.ZOrderSet = 16
|
|
OMENUSHORTCUT.Left = 783
|
|
OMENUSHORTCUT.Name = "OMENUSHORTCUT"
|
|
OMENUSHORTCUT.Top = 0
|
|
OMENUSHORTCUT.ZOrderSet = 17
|
|
LABEL19.BackColor = 255,255,255
|
|
LABEL19.Caption = "Nu sunt inregistrate imobilizari in aceasta luna !"
|
|
LABEL19.Height = 41
|
|
LABEL19.Left = 292
|
|
LABEL19.Name = "LABEL19"
|
|
LABEL19.Top = 283
|
|
LABEL19.Width = 248
|
|
LABEL19.ZOrderSet = 18
|
|
CHECK2.AutoSize = .T.
|
|
CHECK2.BackStyle = 0
|
|
CHECK2.FontName = "Arial Narrow"
|
|
CHECK2.FontSize = 10
|
|
CHECK2.Left = 96
|
|
CHECK2.Name = "CHECK2"
|
|
CHECK2.SpecialEffect = 2
|
|
CHECK2.Top = 216
|
|
CHECK2.Visible = .F.
|
|
CHECK2.ZOrderSet = 59
|
|
CHECK3.AutoSize = .T.
|
|
CHECK3.BackStyle = 0
|
|
CHECK3.FontName = "Arial Narrow"
|
|
CHECK3.FontSize = 10
|
|
CHECK3.Left = 8
|
|
CHECK3.Name = "CHECK3"
|
|
CHECK3.SpecialEffect = 2
|
|
CHECK3.Top = 39
|
|
CHECK3.ZOrderSet = 44
|
|
LABEL1.BackColor = 255,255,255
|
|
LABEL1.FontName = "Arial Narrow"
|
|
LABEL1.FontSize = 10
|
|
LABEL1.Left = 508
|
|
LABEL1.Name = "LABEL1"
|
|
LABEL1.Top = 52
|
|
LABEL1.ZOrderSet = 19
|
|
TEXT2.BackStyle = 0
|
|
TEXT2.DisabledBackColor = 255,255,255
|
|
TEXT2.FontBold = .F.
|
|
TEXT2.FontName = "Arial Narrow"
|
|
TEXT2.FontSize = 10
|
|
TEXT2.Format = "rk"
|
|
TEXT2.Height = 23
|
|
TEXT2.InputMask = (get_mask(14,gnZ))
|
|
TEXT2.Left = 646
|
|
TEXT2.Name = "TEXT2"
|
|
TEXT2.SpecialEffect = 1
|
|
TEXT2.Top = 74
|
|
TEXT2.Width = 136
|
|
TEXT2.ZOrderSet = 20
|
|
LABEL2.BackColor = 255,255,255
|
|
LABEL2.FontName = "Arial Narrow"
|
|
LABEL2.FontSize = 10
|
|
LABEL2.Left = 674
|
|
LABEL2.Name = "LABEL2"
|
|
LABEL2.Top = 52
|
|
LABEL2.ZOrderSet = 21
|
|
COMMAND2.Height = 27
|
|
COMMAND2.Left = 816
|
|
COMMAND2.Name = "COMMAND2"
|
|
COMMAND2.Top = 216
|
|
COMMAND2.Visible = .F.
|
|
COMMAND2.Width = 76
|
|
COMMAND2.ZOrderSet = 22
|
|
COMMAND3.Caption = "Calcul Amortizare"
|
|
COMMAND3.FontName = "Arial Narrow"
|
|
COMMAND3.FontSize = 10
|
|
COMMAND3.Height = 36
|
|
COMMAND3.Left = 460
|
|
COMMAND3.Name = "COMMAND3"
|
|
COMMAND3.SpecialEffect = 0
|
|
COMMAND3.Top = 0
|
|
COMMAND3.Width = 84
|
|
COMMAND3.ZOrderSet = 43
|
|
T3.BackStyle = 0
|
|
T3.DisabledBackColor = 255,255,255
|
|
T3.FontBold = .F.
|
|
T3.FontName = "Arial Narrow"
|
|
T3.FontSize = 10
|
|
T3.Format = "rk"
|
|
T3.Height = 23
|
|
T3.InputMask = (get_mask(14,gnZ))
|
|
T3.Left = 353
|
|
T3.Name = "T3"
|
|
T3.SpecialEffect = 1
|
|
T3.Top = 74
|
|
T3.Width = 139
|
|
T3.ZOrderSet = 23
|
|
LABEL4.BackColor = 255,255,255
|
|
LABEL4.Caption = "Total Valoare de intrare:"
|
|
LABEL4.FontName = "Arial Narrow"
|
|
LABEL4.FontSize = 10
|
|
LABEL4.Left = 355
|
|
LABEL4.Name = "LABEL4"
|
|
LABEL4.Top = 51
|
|
LABEL4.ZOrderSet = 25
|
|
Excel1.Command1.Name = "Command1"
|
|
Excel1.Imbuton1.Height = 27
|
|
Excel1.Imbuton1.Name = "Imbuton1"
|
|
Excel1.Imbuton1.Width = 30
|
|
Excel1.Left = 725
|
|
Excel1.Name = "Excel1"
|
|
Excel1.Top = 402
|
|
Excel1.Visible = .F.
|
|
Excel1.ZOrderSet = 31
|
|
LIST1.Command1.Name = "Command1"
|
|
LIST1.Imbuton1.Height = 27
|
|
LIST1.Imbuton1.Name = "Imbuton1"
|
|
LIST1.Imbuton1.Width = 30
|
|
LIST1.Left = 725
|
|
LIST1.Name = "LIST1"
|
|
LIST1.Top = 432
|
|
LIST1.ZOrderSet = 24
|
|
TERMINAT1.Command1.Name = "Command1"
|
|
TERMINAT1.Imbuton1.Height = 27
|
|
TERMINAT1.Imbuton1.Name = "Imbuton1"
|
|
TERMINAT1.Imbuton1.Width = 30
|
|
TERMINAT1.Left = 725
|
|
TERMINAT1.Name = "TERMINAT1"
|
|
TERMINAT1.Top = 462
|
|
TERMINAT1.ZOrderSet = 28
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Check10' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data act", ;
|
|
ControlSource = "bdata", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 8, ;
|
|
Name = "Check10", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 71, ;
|
|
Width = 56, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check11' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data pif", ;
|
|
ControlSource = "bdatpif", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 74, ;
|
|
Name = "Check11", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 87, ;
|
|
Width = 53, ;
|
|
ZOrderSet = 35
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check12' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Expirat", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,255, ;
|
|
Height = 18, ;
|
|
Left = 249, ;
|
|
Name = "Check12", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 87, ;
|
|
Width = 51, ;
|
|
ZOrderSet = 34
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check13' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data expirarii", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 151, ;
|
|
Name = "Check13", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 87, ;
|
|
Width = 81, ;
|
|
ZOrderSet = 36
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check15' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data iesirii gest", ;
|
|
ControlSource = "", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 151, ;
|
|
Name = "Check15", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 103, ;
|
|
Width = 88, ;
|
|
ZOrderSet = 42
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check16' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Sectie", ;
|
|
ControlSource = "", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 8, ;
|
|
Name = "Check16", ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 14, ;
|
|
Top = 103, ;
|
|
Width = 46, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check5' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 0, ;
|
|
Caption = "Nr.inv", ;
|
|
ControlSource = "bnrinv", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 8, ;
|
|
Name = "Check5", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 87, ;
|
|
Width = 47, ;
|
|
ZOrderSet = 40
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check6' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data ultimei reevaluari", ;
|
|
ControlSource = "", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 8, ;
|
|
Name = "Check6", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 120, ;
|
|
Width = 122, ;
|
|
ZOrderSet = 41
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check7' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Iesit din gestiune", ;
|
|
ControlSource = "bcasat", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 255,0,0, ;
|
|
Height = 18, ;
|
|
Left = 249, ;
|
|
Name = "Check7", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 103, ;
|
|
Width = 95, ;
|
|
ZOrderSet = 32
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_acont' AS ck_filtru_text WITH ;
|
|
camp_nume = ascd, ;
|
|
Caption = "Cont Analitic", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Left = 74, ;
|
|
Name = "Ck_acont", ;
|
|
Top = 71, ;
|
|
ZOrderSet = 51
|
|
*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_amortlun' AS ck_filtru_numar WITH ;
|
|
camp_nume = amortlun, ;
|
|
Caption = "Amortizment", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Left = 249, ;
|
|
Name = "Ck_amortlun", ;
|
|
Top = 39, ;
|
|
ZOrderSet = 50
|
|
*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_cont' AS ck_filtru_text WITH ;
|
|
camp_nume = scd, ;
|
|
Caption = "Cont", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Left = 74, ;
|
|
Name = "Ck_cont", ;
|
|
Top = 55, ;
|
|
ZOrderSet = 51
|
|
*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_denumire' AS ck_filtru_text WITH ;
|
|
camp_nume = denumire, ;
|
|
Caption = "Denumire", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Left = 8, ;
|
|
Name = "Ck_denumire", ;
|
|
Top = 55, ;
|
|
ZOrderSet = 58
|
|
*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_lucrare' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Lucrare/Contract", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 249, ;
|
|
Name = "Ck_lucrare", ;
|
|
SpecialEffect = 1, ;
|
|
Top = 71, ;
|
|
Width = 97, ;
|
|
ZOrderSet = 52
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_majorare' AS ck_filtru_numar WITH ;
|
|
camp_nume = valin - valoare, ;
|
|
Caption = "Val majorare", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Left = 74, ;
|
|
Name = "Ck_majorare", ;
|
|
Top = 102, ;
|
|
ZOrderSet = 50
|
|
*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_respons' AS ck_filtru_text WITH ;
|
|
camp_nume = respons, ;
|
|
Caption = "Responsabil", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Left = 249, ;
|
|
Name = "Ck_respons", ;
|
|
Top = 55, ;
|
|
ZOrderSet = 51
|
|
*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_valin' AS ck_filtru_numar WITH ;
|
|
camp_nume = valin, ;
|
|
Caption = "\<Val. de intrare", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Left = 151, ;
|
|
Name = "Ck_valin", ;
|
|
Top = 71, ;
|
|
ZOrderSet = 50
|
|
*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_valoare' AS ck_filtru_numar WITH ;
|
|
camp_nume = valoare, ;
|
|
Caption = "Val de achizitie", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Left = 151, ;
|
|
Name = "Ck_valoare", ;
|
|
Top = 39, ;
|
|
ZOrderSet = 50
|
|
*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_valramasa' AS ck_filtru_numar WITH ;
|
|
camp_nume = valramasa, ;
|
|
Caption = "\<Val. de calcul", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Left = 151, ;
|
|
Name = "Ck_valramasa", ;
|
|
Top = 55, ;
|
|
ZOrderSet = 50
|
|
*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'ckIstoric' AS checkbox WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Istoric", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,128,0, ;
|
|
Height = 18, ;
|
|
Left = 249, ;
|
|
Name = "ckIstoric", ;
|
|
SpecialEffect = 2, ;
|
|
Top = 120, ;
|
|
Width = 45, ;
|
|
ZOrderSet = 33
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Command4' AS commandbutton WITH ;
|
|
Caption = "Operatiuni cu istoric", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,128,0, ;
|
|
Height = 36, ;
|
|
Left = 307, ;
|
|
Name = "Command4", ;
|
|
Top = 0, ;
|
|
Width = 84, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 47
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Command5' AS commandbutton WITH ;
|
|
Caption = "Completare baza de date -preced.ian. = totaluri dec-", ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 36, ;
|
|
Left = 190, ;
|
|
Name = "Command5", ;
|
|
Top = 0, ;
|
|
Visible = .F., ;
|
|
Width = 116, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 55
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Command6' AS commandbutton WITH ;
|
|
Caption = "Calcul Reevaluare", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,64,128, ;
|
|
Height = 36, ;
|
|
Left = 391, ;
|
|
Name = "Command6", ;
|
|
Top = 0, ;
|
|
Width = 69, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 48
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'excel2' AS excel WITH ;
|
|
Left = 640, ;
|
|
Name = "excel2", ;
|
|
Top = 2, ;
|
|
ZOrderSet = 57, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'GRID1.Column23.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cauza iesire/intrare", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column23.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'GRID1.Column24.Header1' AS header WITH ;
|
|
Alignment = 0, ;
|
|
Caption = "Val.reziduala", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column24.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'GRID1.Column25.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data amortizarii complete", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column25.Text1' AS textbox WITH ;
|
|
Alignment = 2, ;
|
|
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.Column26.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare de intrare", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column26.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.Column27.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Val. majorare", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column27.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'GRID1.Column28.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data ultimei evaluari", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column28.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.Column29.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare ramasa de amortizat", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column29.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.Column30.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cod", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column30.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.Column31.Header1' AS header WITH ;
|
|
Caption = "Id sectie", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column31.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.Column32.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Analitic", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column32.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'GRID1.Column33.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Lucrare/Contract", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column33.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.Column34.Check1' AS checkbox WITH ;
|
|
Caption = "", ;
|
|
Height = 17, ;
|
|
Left = 30, ;
|
|
Name = "Check1", ;
|
|
Top = 37, ;
|
|
Width = 60
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'GRID1.Column34.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Istoric", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column35.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Explicatie data evaluare", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column35.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 'LIST1' AS list WITH ;
|
|
Left = 671, ;
|
|
Name = "LIST1", ;
|
|
Top = 2, ;
|
|
ZOrderSet = 46, ;
|
|
IMBUTON1.Height = 27, ;
|
|
IMBUTON1.Name = "IMBUTON1", ;
|
|
IMBUTON1.Width = 30, ;
|
|
COMMAND1.Name = "COMMAND1", ;
|
|
COMMAND1.ToolTipText = "Lista amortizarilor lunare"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'List2' AS list WITH ;
|
|
Left = 733, ;
|
|
Name = "List2", ;
|
|
Top = 2, ;
|
|
ZOrderSet = 53, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1", ;
|
|
Command1.ToolTipText = "Listare istoric amortizare"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'List3' AS list WITH ;
|
|
Left = 702, ;
|
|
Name = "List3", ;
|
|
Top = 2, ;
|
|
ZOrderSet = 54, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Modifica1' AS modifica WITH ;
|
|
Left = 578, ;
|
|
Name = "Modifica1", ;
|
|
Top = 2, ;
|
|
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 'Shape4' AS shape WITH ;
|
|
BackColor = 0,64,128, ;
|
|
BorderStyle = 0, ;
|
|
BorderWidth = 0, ;
|
|
Height = 37, ;
|
|
Left = -19, ;
|
|
Name = "Shape4", ;
|
|
Top = 0, ;
|
|
Width = 565, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Sterge1' AS sterge WITH ;
|
|
Left = 609, ;
|
|
Name = "Sterge1", ;
|
|
Top = 2, ;
|
|
ZOrderSet = 29, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Terminat1' AS terminat WITH ;
|
|
Height = 30, ;
|
|
Left = 764, ;
|
|
Name = "Terminat1", ;
|
|
Picture = ..\..\comun\grafice\orb.bmp, ;
|
|
Top = 2, ;
|
|
Width = 32, ;
|
|
ZOrderSet = 26, ;
|
|
Imbuton1.Height = 29, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 27, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Verif1' AS verif WITH ;
|
|
Left = 547, ;
|
|
Name = "Verif1", ;
|
|
Top = 2, ;
|
|
ZOrderSet = 27, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
PROCEDURE Activate
|
|
*WAIT WINDOW "activate"
|
|
tw1=thisform.Width
|
|
tl1=thisform.Height
|
|
|
|
thisform.WindowState=2
|
|
tw2=thisform.Width
|
|
tl2=thisform.Height
|
|
|
|
gw1=thisform.grid1.width
|
|
gl1=thisform.grid1.height
|
|
|
|
thisform.grid1.width=ROUND(gw1*tw2/tw1,0)
|
|
thisform.grid1.height=ROUND(gl1*tl2/tl1,0)
|
|
*
|
|
thisform.paint
|
|
thisform.refresh
|
|
|
|
*thisform.afisactual
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE afisactual
|
|
Store ".T." To Tden,Tsuma,Tgest,tscd,tnract,tnrinv,tresp,tamort,tdata,tdatpif,t1,tdataexp,t14,tdataout
|
|
|
|
LOCAL lcFiltre
|
|
lcFiltre = "Upper(fel)=felul"
|
|
|
|
IF this.ck_majorare.Value = 1
|
|
lcFiltre = lcFiltre + + " AND " + this.Ck_majorare.filtru + " "
|
|
ENDIF
|
|
|
|
IF this.ck_valoare.Value = 1
|
|
lcFiltre = lcFiltre + + " AND " + this.Ck_valoare.filtru + " "
|
|
ENDIF
|
|
IF this.ck_valin.Value = 1
|
|
lcFiltre = lcFiltre + + " AND " + this.Ck_valin.filtru + " "
|
|
ENDIF
|
|
IF this.ck_valramasa.Value = 1
|
|
lcFiltre = lcFiltre + + " AND " + this.Ck_valramasa.filtru + " "
|
|
ENDIF
|
|
|
|
IF this.ck_amortlun.Value = 1
|
|
lcFiltre = lcFiltre + + " AND " + this.Ck_amortlun.filtru + " "
|
|
ENDIF
|
|
|
|
IF this.ck_denumire.Value = 1
|
|
lcFiltre = lcFiltre + + " AND " + this.Ck_denumire.filtru + " "
|
|
ENDIF
|
|
|
|
IF this.ck_respons.Value = 1
|
|
lcFiltre = lcFiltre + + " AND " + this.Ck_respons.filtru + " "
|
|
ENDIF
|
|
|
|
IF this.ck_acont.Value = 1
|
|
lcFiltre = lcFiltre + + " AND " + this.Ck_acont.filtru + " "
|
|
ENDIF
|
|
|
|
IF this.ck_cont.Value = 1
|
|
lcFiltre = lcFiltre + + " AND " + this.Ck_cont.filtru + " "
|
|
ENDIF
|
|
|
|
IF this.check6.Value = 1
|
|
lcFiltre = lcFiltre + " AND (dataeval>=pdata7) and (dataeval<=pdata8)"
|
|
ENDIF
|
|
If This.check12.Value=1
|
|
lcFiltre = lcFiltre + " AND ROUND(12*VAL(m.an)+VAL(m.nl),0)>12*YEAR(dataeval)+MONTH(dataeval)+normat2lun"
|
|
ENDIF
|
|
|
|
If This.check16.Value=1
|
|
lcFiltre = lcFiltre + " AND id_sectie = pnSectie"
|
|
ENDIF
|
|
|
|
If bgest==.T. And m.gest#-1 then
|
|
lcFiltre = lcFiltre + " AND gest==m.gest"
|
|
ENDIF
|
|
|
|
If this.ck_lucrare.value = 1
|
|
lcFiltre = lcFiltre + " AND ALLTRIM(nrord) = ALLTRIM(PcNrord)"
|
|
ENDIF
|
|
|
|
|
|
If bnract==.T. then
|
|
lcFiltre = lcFiltre + " AND (nract>=m.nr1) and (nract<=m.nr2)"
|
|
ENDIF
|
|
|
|
If bnrinv==.T. then
|
|
lcFiltre = lcFiltre + " AND (VAL(nrinv)>=pnrinv1) and (VAL(nrinv)<=pnrinv2)"
|
|
Endif
|
|
|
|
If bdata==.T. then
|
|
lcFiltre = lcFiltre + " AND (dataact>=m.data1) and (dataact<=m.data2)"
|
|
Endif
|
|
If bdatpif==.T. then
|
|
lcFiltre = lcFiltre + " AND (datapif>=pdata1) and (datapif<=pdata2)"
|
|
Endif
|
|
IF this.check13.value = 1
|
|
lcFiltre = lcFiltre + " AND (gomonth(dataeval,normat2lun)>=pdata3) and (gomonth(dataeval,normat2lun)<=pdata4)"
|
|
ENDIF
|
|
|
|
IF this.check15.value = 1
|
|
lcFiltre = lcFiltre + " AND (dataout>=pdata5) and (dataout<=pdata6)"
|
|
ENDIF
|
|
IF bcasat==.T.
|
|
lcFiltre = lcFiltre + " AND casat"
|
|
ELSE
|
|
lcFiltre = lcFiltre + " AND !casat"
|
|
ENDIF
|
|
|
|
If This.ckIstoric.Value = 0
|
|
lcFiltre = lcFiltre + " and !inactiv"
|
|
ENDIF
|
|
|
|
Sele xmf
|
|
SET FILTER TO &lcFiltre
|
|
|
|
Sum amortlun To m.suma
|
|
Sum amorttot To m.sumat
|
|
Sum VALin To TVALOARE
|
|
|
|
Sele xmf
|
|
Go Top
|
|
Thisform.GRID1.Refresh
|
|
Thisform.text1.Refresh
|
|
Thisform.text2.Refresh
|
|
Thisform.t3.Refresh
|
|
thisform.grid1.SetFocus
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE calcul_reevaluare && Calculeaza valramasa(de calcul), normat2 si normat2lun
|
|
PARAMETERS lFaraForm
|
|
|
|
IF !lFaraForm
|
|
SELECT xmf
|
|
SCATTER NAME omf
|
|
|
|
IF dataeval = datapif && dc la schimbare val inventar nu s-a trecut si dataeval
|
|
pnDataeval = CTOD('01/'+m.nl+'/'+m.an)-1
|
|
ELSE
|
|
pnDataeval = omf.dataeval
|
|
ENDIF
|
|
pnNormat2lun = omf.normat2lun
|
|
pnNormat2 = omf.normat2
|
|
pnValramasa = omf.valramasa
|
|
pnAmortprec = omf.amortprec
|
|
*pnUzuraPrec = omf.uzuraprec
|
|
DO FORM frm_calcul_reevaluare
|
|
IF buton=1
|
|
IF omf.codop = 12 && conservare
|
|
pnCota = 0
|
|
ELSE
|
|
pnCota = calcul_cota(omf.Normat2lun)
|
|
ENDIF
|
|
|
|
SELECT xmf
|
|
REPLACE valramasa WITH pnValramasa, cota WITH pnCota
|
|
|
|
&& astea ar tb sa fie neschimbate
|
|
REPLACE normat2lun WITH pnNormat2lun, normat2 WITH pnNormat2
|
|
REPLACE dataeval WITH pnDataeval
|
|
REPLACE amortprec WITH pnAmortprec &&, uzuraprec WITH pnUzuraPrec
|
|
|
|
SCATTER memv
|
|
DO calcamortm
|
|
SELECT xmf
|
|
GATHER MEMVAR
|
|
SCATTER NAME omf
|
|
|
|
SELECT mflun
|
|
IF FLOCK()
|
|
APPEND BLANK
|
|
GATHER NAME omf
|
|
REPLACE explicatia WITH 'Recalculare Cota,Valoare ramasa',codop WITH 11
|
|
REPLACE dataora WITH DATETIME(),util WITH m.utilizator
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT MFANUAL
|
|
IF FLOCK()
|
|
APPEND BLANK
|
|
GATHER NAME omf
|
|
REPLACE explicatia WITH 'Recalculare Cota,Valoare ramasa',codop WITH 11
|
|
REPLACE dataora WITH DATETIME(),util WITH m.utilizator
|
|
ENDIF
|
|
UNLOCK
|
|
ENDIF
|
|
|
|
RELEASE omf
|
|
ELSE
|
|
pnDataeval = CTOD('01/'+m.nl+'/'+m.an)-1
|
|
pnLunaEval = MONTH(pnDataEval)
|
|
pnAnEval = YEAR(pnDataEval)
|
|
SELECT xmf
|
|
SCAN FOR !inactiv AND !casat AND MONTH(dataeval) = pnLunaEval AND YEAR(dataeval) = pnAnEval AND INLIST(codop,8,9,10,12,13) && majorari,reevaluari,schimbare DNS,conservare si scoatere din conservare
|
|
SCATTER NAME omf
|
|
IF VAL(m.an)>= 2004
|
|
lnValRez = 0
|
|
ELSE
|
|
lnValRez = omf.valrez
|
|
ENDIF
|
|
pnValramasa = omf.valin - omf.Amortprec - lnValRez
|
|
IF omf.codop = 12 && conservare
|
|
pnCota = 0
|
|
ELSE
|
|
pnCota = calcul_cota(omf.Normat2lun)
|
|
ENDIF
|
|
SELECT xmf
|
|
REPLACE valramasa WITH pnValramasa, cota WITH pnCota
|
|
SCATTER memv
|
|
DO calcamortm
|
|
SELECT xmf
|
|
GATHER MEMVAR
|
|
SCATTER NAME omf
|
|
|
|
SELECT mflun
|
|
IF FLOCK()
|
|
APPEND BLANK
|
|
GATHER NAME omf
|
|
REPLACE explicatia WITH 'Recalculare Cota,Valoare ramasa',codop WITH 11
|
|
REPLACE dataora WITH DATETIME(),util WITH m.utilizator
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT MFANUAL
|
|
IF FLOCK()
|
|
APPEND BLANK
|
|
GATHER NAME omf
|
|
REPLACE explicatia WITH 'Recalculare Cota,Valoare ramasa',codop WITH 11
|
|
REPLACE dataora WITH DATETIME(),util WITH m.utilizator
|
|
ENDIF
|
|
UNLOCK
|
|
RELEASE omf
|
|
SELECT xmf
|
|
ENDSCAN
|
|
ENDIF
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_conservare
|
|
|
|
SELECT xmf
|
|
SCATTER NAME omf
|
|
IF omf.codop = 12 && e conservat
|
|
lcLb1 = "Se scoate din conservare mijlocul fix "+Alltrim(omf.denumire)+" ?"
|
|
lcLb2 = 'Cauza repuneri in functiune'
|
|
lcLb3 = 'Data repuneri in functiune'
|
|
pnCod = 13
|
|
ELSE
|
|
lcLb1 = "Se conserva mijlocul fix "+Alltrim(omf.denumire)+" ?"
|
|
lcLb2 = 'Cauza conservarii'
|
|
lcLb3 = 'Data conservarii'
|
|
pnCod = 12
|
|
ENDIF
|
|
pnDataEval = ultima_zi_din_luna(m.an,m.nl)
|
|
pcCauza = ''
|
|
pnNormat2lun = omf.normat2lun
|
|
pnNormat2 = omf.normat2
|
|
|
|
oi=CREATEOBJECT('ingest')
|
|
oi.label1.CAPTION=lcLb1
|
|
oi.label2.CAPTION=lcLb2
|
|
oi.label3.CAPTION=lcLb3
|
|
oi.text1.controlsource = 'pcCauza'
|
|
oi.text2.controlsource = 'pnDataEval'
|
|
oi.ncod_op = pnCod
|
|
oi.SHOW(1)
|
|
|
|
IF buton=1
|
|
SELECT xmf
|
|
REPLACE inactiv WITH .T.
|
|
APPEND BLANK
|
|
omf.codop = pnCod
|
|
omf.dataeval = pnDataEval
|
|
omf.normat2lun = pnNormat2lun
|
|
omf.normat2 = pnNormat2
|
|
omf.cauza = pcCauza
|
|
omf.cod = -1
|
|
|
|
GATHER NAME omf
|
|
lcExplic = get_explicatie(pnCod)
|
|
SELECT mflun
|
|
IF FLOCK()
|
|
APPEND BLANK
|
|
GATHER NAME omf
|
|
REPLACE explicatia WITH lcExplic
|
|
REPLACE dataora WITH DATETIME(), util WITH m.utilizator
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT MFANUAL
|
|
IF FLOCK()
|
|
APPEND BLANK
|
|
GATHER NAME omf
|
|
REPLACE explicatia WITH lcExplic
|
|
REPLACE dataora WITH DATETIME(), util WITH m.utilizator
|
|
ENDIF
|
|
UNLOCK
|
|
ENDIF
|
|
|
|
RELEASE omf
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_modificare_istoric
|
|
SELE xmf
|
|
SCATTER MEMVAR
|
|
|
|
SELECT numegest
|
|
LOCATE FOR gest=m.gest
|
|
SCATTER FIELDS numegest MEMVAR
|
|
|
|
SELECT sectie
|
|
LOCATE FOR id_sectie=m.id_sectie
|
|
SCATTER FIELDS sectie MEMVAR
|
|
|
|
buton=1
|
|
lcFrm = 'frm_fisa'
|
|
ofi=CREATEOBJECT(lcFrm)
|
|
ofi.text4.inputmask = get_mask(14,gnZ)
|
|
ofi.text22.inputmask = get_mask(14,gnZ)
|
|
ofi.text25.inputmask = get_mask(14,gnZ)
|
|
ofi.text15.inputmask = get_mask(14,gnZ)
|
|
ofi.text18.inputmask = get_mask(14,gnZ)
|
|
ofi.text19.inputmask = get_mask(14,gnZ)
|
|
ofi.t23.inputmask = get_mask(14,gnZ)
|
|
IF felul='N'
|
|
ofi.fel_imob='N'
|
|
ELSE
|
|
ofi.fel_imob='C'
|
|
ENDIF
|
|
ofi.SHOW(1)
|
|
|
|
IF buton=2
|
|
RETURN
|
|
ENDIF
|
|
|
|
SELECT xmf
|
|
IF FLOCK()
|
|
SELECT xmf
|
|
REPLACE inactiv WITH .T.
|
|
|
|
APPEND BLANK
|
|
GATHER MEMVAR
|
|
REPLACE cod WITH -1, codop WITH 1
|
|
IF EMPTY(dataeval)
|
|
REPLACE dataeval WITH datapif
|
|
ENDIF
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT mflun
|
|
APPEND BLANK
|
|
IF FLOCK()
|
|
GATHER MEMVAR
|
|
REPLACE explicatia WITH 'Modificare',dataora WITH DATETIME()
|
|
REPLACE codop WITH 1
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT mfanual
|
|
APPEND BLANK
|
|
IF FLOCK()
|
|
GATHER MEMVAR
|
|
REPLACE explicatia WITH 'Modificare',dataora WITH DATETIME()
|
|
REPLACE codop WITH 1
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT xmf
|
|
SCATTER MEMVAR BLANK
|
|
THISFORM.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE iesire_din_gestiune
|
|
Select xmf
|
|
If inactiv
|
|
Return
|
|
Endif
|
|
Scatter Memvar
|
|
|
|
If !casat
|
|
m="Iese din gestiune mijlocul fix "+Alltrim(m.denumire)+" ?"
|
|
Do danu_ingest With casat,m,'iesire'
|
|
If buton=1
|
|
Select xmf
|
|
Scatter Name omf
|
|
Replace inactiv With .T.
|
|
|
|
If Flock()
|
|
Append Blank
|
|
Gather Name omf
|
|
Replace casat With .T.,cauza With m.cauza,cod With -1,codop With 5
|
|
Replace dataout With m.dataout && e inutil dc am pe dataeval datai esirii
|
|
Endif
|
|
Unlock
|
|
|
|
Release omf
|
|
Endif
|
|
|
|
Select mflun
|
|
If Flock()
|
|
Append Blank
|
|
Gather Memv
|
|
Replace casat With .T.,cauza With m.cauza,explicatia With 'Iesire din gestiune',dataora With Datetime(),dataout With m.dataout,cod WITH -1
|
|
Replace codop With 5
|
|
Endif
|
|
Unlock
|
|
Select MFANUAL
|
|
If Flock()
|
|
Append Blank
|
|
Gather Memv
|
|
Replace casat With .T.,cauza With m.cauza,explicatia With 'Iesire din gestiune',dataora With Datetime(),dataout With m.dataout,cod WITH -1
|
|
Replace codop With 5
|
|
Endif
|
|
Unlock
|
|
Else
|
|
m="Intra in gestiune mijlocul fix "+Alltrim(m.denumire)+" ?"
|
|
Do danu_ingest With casat,m,'intrare'
|
|
If buton=2
|
|
Return
|
|
Endif
|
|
|
|
Select xmf
|
|
Scatter Name omf
|
|
Replace inactiv With .T.
|
|
|
|
If Flock()
|
|
Append Blank
|
|
Gather Name omf
|
|
Replace casat With .F.,cauza With " ",cod With -1,codop With 6
|
|
Endif
|
|
UNLOCK
|
|
|
|
Select mflun
|
|
If Flock()
|
|
Append Blank
|
|
Gather Memv
|
|
Replace casat With .F.,cauza With '',explicatia With 'Intrare in gestiune',dataora With Datetime(),cod WITH -1
|
|
Replace codop With 6
|
|
Endif
|
|
Unlock
|
|
Select MFANUAL
|
|
If Flock()
|
|
Append Blank
|
|
Gather Memv
|
|
Replace casat With .F.,cauza With '',explicatia With 'Intrare in gestiune',dataora With Datetime(),cod WITH -1
|
|
Replace codop With 6
|
|
Endif
|
|
Unlock
|
|
*this.Caption="Iesire din gestiune"
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
*WAIT WINDOW "init"
|
|
|
|
STORE .f. to bnrinv,bresp,bcasat,bamort,bdata,bdatpif
|
|
STORE ".T." TO Tnrinv,Tresp,Tamort,Tdata,Tdatpif
|
|
store 0 to m.suma1,m.suma2,m.suma,m.sumat,m.nr1,m.nr2,TVALOARE
|
|
store .f. to bden,bsuma,bgest,bscd,bnract
|
|
STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract
|
|
|
|
sele xmf
|
|
*REPLACE ALL normat2lun WITH normat2*12 FOR normat2lun=0 AND normat2#0
|
|
go top
|
|
if eof()
|
|
thisform.grid1.gridlines=0
|
|
*!* thisform.check1.enabled=.f.
|
|
*!* thisform.check2.enabled=.f.
|
|
*!* thisform.check3.enabled=.f.
|
|
*!* thisform.check4.enabled=.f.
|
|
*!* thisform.check5.enabled=.f.
|
|
*!* thisform.check7.enabled=.f.
|
|
*!* thisform.check9.enabled=.f.
|
|
*!* thisform.check8.enabled=.f.
|
|
*!* thisform.check10.enabled=.f.
|
|
*!* thisform.check11.enabled=.f.
|
|
*!* thisform.check11.enabled=.f.
|
|
*!* thisform.check12.enabled=.f.
|
|
*!* thisform.command1.enabled=.f.
|
|
thisform.label19.visible=.t.
|
|
endif
|
|
|
|
thisform.afisactual
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE meniu_as
|
|
SELECT xmf
|
|
|
|
IF xmf.inactiv && sa nu faca operatii cu mf-uri din istoric
|
|
lcText=[\Majorarea valorii de intrare;]
|
|
lcText=lcText+[\Reevaluarea valorii de intrare;]
|
|
IF codop <> 12
|
|
lcText=lcText+[\Conservare;]
|
|
ELSE
|
|
lcText=lcText+[\Scoatere din conservare;]
|
|
ENDIF
|
|
lcText=lcText+[\Schimbare DNS;]
|
|
lcText=lcText+[\-;]
|
|
IF !casat
|
|
lcText=lcText+[\Iesire din gestiune;]
|
|
ELSE
|
|
lcText=lcText+[\Intrare in gestiune;]
|
|
ENDIF
|
|
|
|
lcText=lcText+[\-;]
|
|
lcText=lcText+[\Modificare cu istoric]
|
|
|
|
ELSE
|
|
lcText=[\<Majorarea valorii de intrare;]
|
|
lcText=lcText+[\<Reevaluarea valorii de intrare;]
|
|
IF codop <> 12
|
|
lcText=lcText+[\<Conservare;]
|
|
ELSE
|
|
lcText=lcText+[\<Scoatere din conservare;]
|
|
ENDIF
|
|
lcText=lcText+[\<Schimbare DNS;]
|
|
lcText=lcText+[\-;]
|
|
IF !casat
|
|
lcText=lcText+[\<Iesire din gestiune;]
|
|
ELSE
|
|
lcText=lcText+[\<Intrare in gestiune;]
|
|
ENDIF
|
|
lcText=lcText+[\-;]
|
|
lcText=lcText+[\<Modificare cu istoric]
|
|
|
|
ENDIF
|
|
lnOpt=xmenu(lcText)
|
|
|
|
DO CASE
|
|
CASE lnOpt=1
|
|
THISFORM.schimb_val_inventar
|
|
CASE lnOpt=2
|
|
THISFORM.schimb_val_inventar
|
|
CASE lnOpt=3
|
|
THISFORM.do_conservare
|
|
CASE lnOpt=4
|
|
THISFORM.schimb_DNS
|
|
CASE lnOpt=6
|
|
this.iesire_din_gestiune
|
|
CASE lnOpt=8
|
|
thisform.do_modificare_istoric
|
|
ENDCASE
|
|
|
|
THISFORM.afisactual
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE meniu_calcul
|
|
SELECT xmf
|
|
llInactiv = inactiv
|
|
IF !llInactiv
|
|
lcText=[\<Pentru MF selectat;]
|
|
ELSE
|
|
lcText=[\Pentru MF selectat;]
|
|
ENDIF
|
|
|
|
lcText=lcText+[\<Pentru toate MF reevaluate]
|
|
lnOpt=xmenu(lcText)
|
|
|
|
DO CASE
|
|
CASE lnOpt=1
|
|
THISFORM.calcul_reevaluare(.F.)
|
|
CASE lnOpt=2
|
|
THISFORM.calcul_reevaluare(.T.)
|
|
ENDCASE
|
|
|
|
THISFORM.afisactual
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE modificare
|
|
SELE xmf
|
|
SCATTER MEMVAR
|
|
|
|
SELECT numegest
|
|
LOCATE FOR gest=m.gest
|
|
SCATTER FIELDS numegest MEMVAR
|
|
|
|
SELECT sectie
|
|
LOCATE FOR id_sectie=m.id_sectie
|
|
SCATTER FIELDS sectie MEMVAR
|
|
|
|
buton=1
|
|
ofi=CREATE('fisa')
|
|
ofi.text4.inputmask = get_mask(14,gnZ)
|
|
ofi.text25.inputmask = get_mask(14,gnZ)
|
|
ofi.text15.inputmask = get_mask(14,gnZ)
|
|
ofi.text18.inputmask = get_mask(14,gnZ)
|
|
ofi.text19.inputmask = get_mask(14,gnZ)
|
|
ofi.t23.inputmask = get_mask(14,gnZ)
|
|
IF felul='N'
|
|
ofi.fel_imob='N'
|
|
ELSE
|
|
ofi.fel_imob='C'
|
|
ENDIF
|
|
ofi.SHOW(1)
|
|
|
|
IF buton=2
|
|
RETURN
|
|
ENDIF
|
|
|
|
SELECT xmf
|
|
IF FLOCK()
|
|
GATHER MEMVAR
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT mflun
|
|
APPEND BLANK
|
|
IF FLOCK()
|
|
GATHER MEMVAR
|
|
REPLACE explicatia WITH 'Modificare',dataora WITH DATETIME()
|
|
REPLACE codop WITH 1
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT mfanual
|
|
APPEND BLANK
|
|
IF FLOCK()
|
|
GATHER MEMVAR
|
|
REPLACE explicatia WITH 'Modificare',dataora WITH DATETIME()
|
|
REPLACE codop WITH 1
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
THISFORM.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Release
|
|
SELECT xmf
|
|
SET FILTER TO
|
|
ENDPROC
|
|
|
|
PROCEDURE schimb_dns
|
|
SELECT xmf
|
|
SCATTER NAME omf
|
|
|
|
PRIVATE pcCodmf, pnDR, pnDRani, pnUzuraPrec, pdDataEval, pnDNS, pnDNSani,m.norma_min,m.norma_max
|
|
STORE 0 TO pnDR, pnDNS, pnUzuraPrec,m.norma_min,m.norma_max
|
|
STORE 0.00 to pnDRani, pnDNSani
|
|
STORE {^2005-01-01} to pdDataEval
|
|
pdDataEval = GOMONTH(pdDataEval,-1)
|
|
pcCodmf = omf.codmf
|
|
|
|
poDNS = CREATEOBJECT("frm_schimb_dns")
|
|
poDNS.SHOW(1)
|
|
|
|
IF buton=1
|
|
|
|
SELECT xmf
|
|
REPLACE inactiv WITH .T.
|
|
APPEND BLANK
|
|
|
|
omf.normat2 = pnDRani
|
|
omf.normat2lun = pnDR
|
|
omf.dataEval = pdDataEval
|
|
omf.codmf = pcCodmf
|
|
omf.normaan = pnDNSani
|
|
omf.normat = pnDNS
|
|
omf.inactiv = .F.
|
|
* omf.uzuraprec = pnUzuraPrec
|
|
omf.inactiv = .F.
|
|
omf.cod = -1
|
|
omf.codop = 10
|
|
|
|
GATHER NAME omf
|
|
RELEASE omf
|
|
thisform.calcul_reevaluare(.f.)
|
|
|
|
SELECT xmf
|
|
SCATTER MEMV
|
|
|
|
DO calcamortm
|
|
|
|
SELECT xmf
|
|
GATHER MEMVAR
|
|
SCATTER NAME omf
|
|
|
|
SELECT mflun
|
|
IF FLOCK()
|
|
APPEND BLANK
|
|
GATHER NAME omf
|
|
REPLACE explicatia WITH 'Schimbare DNS', ;
|
|
dataora WITH DATETIME(),util WITH m.utilizator
|
|
REPLACE codop WITH 10
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT MFANUAL
|
|
IF FLOCK()
|
|
APPEND BLANK
|
|
GATHER NAME omf
|
|
REPLACE explicatia WITH 'Schimbare DNS',dataora WITH DATETIME(),util WITH m.utilizator
|
|
REPLACE codop WITH 10
|
|
ENDIF
|
|
UNLOCK
|
|
ENDIF
|
|
|
|
RELEASE omf
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE schimb_val_inventar
|
|
SELECT xmf
|
|
SCATTER NAME omf
|
|
|
|
pnValin=omf.valin
|
|
pnAmortTot = omf.AmortPrec + omf.AmortLun
|
|
pnDataEval = ultima_zi_din_luna(m.an,m.nl)
|
|
pnNormat2lun = omf.normat2lun
|
|
pnNormat2 = omf.normat2
|
|
|
|
DO CASE
|
|
CASE lnOpt = 1
|
|
DO FORM frm_schimb_valoare2
|
|
CASE lnOpt = 2
|
|
DO FORM frm_schimb_valoare
|
|
omf.amortprec = pnAmortTot - omf.amortlun
|
|
ENDCASE
|
|
|
|
IF buton=1
|
|
|
|
SELECT xmf
|
|
IF lnOpt = 1
|
|
REPLACE inactiv WITH .T.
|
|
ELSE
|
|
REPLACE inactiv WITH .T.
|
|
ENDIF
|
|
APPEND BLANK
|
|
omf.valin = pnValin
|
|
omf.dataeval = pnDataEval
|
|
omf.normat2lun = pnNormat2lun
|
|
omf.normat2 = pnNormat2
|
|
omf.inactiv = .F.
|
|
omf.cod = -1
|
|
IF lnOpt = 1
|
|
omf.codop = 8
|
|
ELSE
|
|
omf.codop = 9
|
|
ENDIF
|
|
|
|
GATHER NAME omf
|
|
SCATTER NAME omf
|
|
|
|
SELECT mflun
|
|
IF FLOCK()
|
|
APPEND BLANK
|
|
GATHER NAME omf
|
|
IF lnOpt = 1
|
|
REPLACE explicatia WITH 'Majorarea val. de inventar', codop WITH 8
|
|
ELSE
|
|
REPLACE explicatia WITH 'Reevaluarea val. de inventar', codop WITH 9
|
|
ENDIF
|
|
REPLACE dataora WITH DATETIME(), util WITH m.utilizator
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT MFANUAL
|
|
IF FLOCK()
|
|
APPEND BLANK
|
|
GATHER NAME omf
|
|
IF lnOpt = 1
|
|
REPLACE explicatia WITH 'Majorarea val. de inventar', codop WITH 8
|
|
ELSE
|
|
REPLACE explicatia WITH 'Reevaluarea val. de inventar', codop WITH 9
|
|
ENDIF
|
|
|
|
REPLACE dataora WITH DATETIME(), util WITH m.utilizator
|
|
ENDIF
|
|
UNLOCK
|
|
ENDIF
|
|
|
|
RELEASE omf
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS nStyle
|
|
*!* IF !FILE(ADDBS(gcAppPath)+'prg_pt_acn.prg')
|
|
*!* this.command5.Visible = .f.
|
|
*!* ENDIF
|
|
|
|
IF luna_inchisa
|
|
this.modifica1.Visible = .F.
|
|
this.sterge1.Visible = .F.
|
|
this.command3.Visible = .F.
|
|
this.command4.Visible = .F.
|
|
this.command6.Visible = .f.
|
|
ENDIF
|
|
|
|
|
|
*!* ON ERROR DO a
|
|
*!* IF COMPARTABELE('xmf')=.F.
|
|
*!* DO MESAJ WITH 'Reindexati fisierele','<MENU / UTILE / REINDEXARE>'
|
|
*!* THIS.cmdTERMIN1.CLICK
|
|
*!* ENDIF
|
|
*!* ON ERROR
|
|
|
|
*THISFORM.command3.CLICK
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE transfer
|
|
SELECT xmf
|
|
SCATTER MEMVAR
|
|
IF !inactiv AND !casat
|
|
lm="Se transfera mijlocul fix "+ALLTRIM(m.denumire)+" ?"
|
|
DO danu_transfer WITH casat,lm,'Cauza transferului:'
|
|
IF buton=1
|
|
SELECT xmf
|
|
IF FLOCK()
|
|
REPLACE inactiv WITH .T., casat WITH .t., cauza WITH m.cauza, dataout WITH m.dataout, codop WITH 5
|
|
*!* gest WITH m.gest, ;
|
|
*!* id_sectie WITH m.id_sectie, ;
|
|
*!* respons WITH m.respons
|
|
*m.cauza = ""
|
|
m.dataout = {//}
|
|
omf.inactiv = .F.
|
|
omf.cod = -1
|
|
omf.codop = 6
|
|
|
|
APPEND BLANK
|
|
GATHER MEMVAR
|
|
|
|
ENDIF
|
|
UNLOCK
|
|
ENDIF
|
|
SELECT mflun
|
|
IF FLOCK()
|
|
APPEND BLANK
|
|
GATHER MEMV
|
|
REPLACE casat WITH .T., cauza WITH m.cauza, explicatia WITH 'Iesire din gestiune', ;
|
|
dataora WITH DATETIME(), dataout WITH m.dataout
|
|
|
|
REPLACE codop WITH 5
|
|
*m.cauza = ""
|
|
m.dataout = {//}
|
|
APPEND BLANK
|
|
GATHER MEMVAR
|
|
ENDIF
|
|
UNLOCK
|
|
SELECT MFANUAL
|
|
IF FLOCK()
|
|
APPEND BLANK
|
|
GATHER MEMV
|
|
REPLACE casat WITH .T., cauza WITH m.cauza, explicatia WITH 'Iesire din gestiune', ;
|
|
dataora WITH DATETIME(),dataout WITH m.dataout
|
|
|
|
REPLACE codop WITH 5
|
|
*m.cauza = ""
|
|
m.dataout = {//}
|
|
APPEND BLANK
|
|
GATHER MEMVAR
|
|
ENDIF
|
|
UNLOCK
|
|
ELSE
|
|
DO mesaj WITH "Aceasta operatie nu este valabila","pentru mijloacele fixe casate"
|
|
RETURN
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check10.Click
|
|
STORE DATE() TO m.data1, m.data2
|
|
if bdata==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Data act"
|
|
.label1.caption="Data minima:"
|
|
.label2.caption="Data maxima:"
|
|
.text1.controlsource="m.data1"
|
|
.text2.controlsource="m.data2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check10.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check11.Click
|
|
STORE DATE() TO pdata1, pdata2
|
|
if bdatpif==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Data pif"
|
|
.label1.caption="Data minima:"
|
|
.label2.caption="Data maxima:"
|
|
.text1.controlsource="pdata1"
|
|
.text2.controlsource="pdata2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check11.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check12.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check13.Click
|
|
STORE DATE() TO pdata3, pdata4
|
|
if this.Value = 1
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Data amortizarii complete"
|
|
.label1.caption="Data minima:"
|
|
.label2.caption="Data maxima:"
|
|
.text1.controlsource="pdata3"
|
|
.text2.controlsource="pdata4"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check13.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check15.Click
|
|
STORE DATE() TO pdata5, pdata6
|
|
if this.Value = 1
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Data iesirii din gestiune"
|
|
.label1.caption="Data minima:"
|
|
.label2.caption="Data maxima:"
|
|
.text1.controlsource="pdata5"
|
|
.text2.controlsource="pdata6"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check15.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check16.Click
|
|
pnSectie = 0
|
|
IF this.Value = 1
|
|
m.sectie = ''
|
|
DO caut_alfa_cursor WITH 'sectie','sectie','NUMELE SECTIEI','m.sectie'
|
|
SELECT sectie
|
|
LOCATE FOR UPPER(ALLTRIM(sectie)) = UPPER(ALLTRIM(m.sectie))
|
|
IF FOUND()
|
|
pnSectie = id_sectie
|
|
ENDIF
|
|
ENDIF
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check16.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check5.Click
|
|
STORE 0 TO pnrinv1,pnrinv2
|
|
if bnrinv==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Numarul de inventar"
|
|
.label1.caption="Nr. minim:"
|
|
.label2.caption="Nr. maxim:"
|
|
.text1.controlsource="pnrinv1"
|
|
.text2.controlsource="pnrinv2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check5.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check6.Click
|
|
STORE DATE() TO pdata7, pdata8
|
|
if this.Value = 1
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Data ultimei reevaluari"
|
|
.label1.caption="Data minima:"
|
|
.label2.caption="Data maxima:"
|
|
.text1.controlsource="pdata7"
|
|
.text2.controlsource="pdata8"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check6.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check7.Click
|
|
if Bcasat==.t. then
|
|
SELECT xmf
|
|
SET FILTER TO casat
|
|
*thisform.cgest.Caption="Intrare in gestiune"
|
|
thisform.grid1.ForeColor=RGB(255,0,0)
|
|
thisform.grid1.column1.Visible=.t.
|
|
*thisform.grid1.column23.Visible=.t.
|
|
ELSE
|
|
SELECT xmf
|
|
SET FILTER TO !casat
|
|
*thisform.cgest.Caption="Iesire din gestiune"
|
|
thisform.grid1.ForeColor=RGB(0,0,0)
|
|
thisform.grid1.column1.Visible=.f.
|
|
*thisform.grid1.column23.Visible=.f.
|
|
endif
|
|
thisform.grid1.Refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Check7.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE ckIstoric.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_acont.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_amortlun.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_cont.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_denumire.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_lucrare.Click
|
|
PcNrord = ''
|
|
if this.Value = 1
|
|
do caut_alfa_cursor with 'lucrari','nrord','LUCRARE/CONTRACT','M.NRORD'
|
|
pcNrord = m.nrord
|
|
endif
|
|
IF buton=2
|
|
RETURN
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_lucrare.Valid
|
|
THISFORM.AFIsactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_majorare.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_respons.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_valin.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_valoare.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_valramasa.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE COMMAND3.Click
|
|
thisform.LockScreen = .t.
|
|
lcFiltru = FILTER('xmf')
|
|
|
|
Select xmf
|
|
SET FILTER TO
|
|
Scan For UPPER(ALLTRIM(fel)) = UPPER(ALLTRIM(thisform.pcfel)) AND !casat
|
|
Do Case
|
|
Case Empty(normat)
|
|
Do mesaj With 'Trebuie introdusa durata normala de serviciu','la '+Allt(denumire)
|
|
LOOP
|
|
|
|
Case Empty(valoare)
|
|
Do mesaj With "Trebuie introdusa valoarea de achizitie",'la '+Allt(denumire)
|
|
LOOP
|
|
|
|
Case Empty(datapif)
|
|
Do mesaj With 'Trebuie introdusa data punerii in functiune','la '+Allt(denumire)
|
|
LOOP
|
|
ENDCASE
|
|
|
|
SELECT xmf
|
|
SCATTER NAME omf
|
|
lnUz = calcuzura(omf)
|
|
RELEASE omf
|
|
|
|
SELECT xmf
|
|
SCATTER MEMVAR
|
|
IF TYPE('lnUz') = 'N'
|
|
m.uzura = lnUz
|
|
ENDIF
|
|
DO calcamortm.prg
|
|
GATHER MEMVAR
|
|
ENDSCAN
|
|
thisform.afisactual
|
|
thisform.LockScreen = .f.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Command4.Click
|
|
thisform.meniu_as
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Command5.Click
|
|
*!* lcCaleProgram = ADDBS(gcAppPath) + 'prg_pt_acn'
|
|
*!* lcSetDefa = 'SET PROCEDURE TO ' + lcCaleProgram + ' additive '
|
|
*!* &lcSetDefa
|
|
|
|
*!* lcProc = 'prg_pt_acn'
|
|
*!* DO &lcProc
|
|
ENDPROC
|
|
|
|
PROCEDURE Command6.Click
|
|
thisform.meniu_calcul
|
|
ENDPROC
|
|
|
|
PROCEDURE excel2.Command1.Click
|
|
lcTabel = Thisform.grid1.RecordSource
|
|
Select (lcTabel)
|
|
lcFiltru = Filter()
|
|
|
|
Select nract As Nr_doc_achiz, ;
|
|
dataact As Data_achiz, ;
|
|
datapif As Data_PIF, ;
|
|
ALLTRIM(nrpif) As Nr_PIF, ;
|
|
ALLTRIM(nrinv) As Nr_inventar, ;
|
|
denumire As Denumire , ;
|
|
valoare As Valoare_de_achizitie, ;
|
|
valin As Valoare_de_intrare, ;
|
|
valramasa As Valoare_de_calcul, ;
|
|
valin-valoare As Val_majorare, ;
|
|
valrez As Val_reziduala, ;
|
|
normat/12 As DNS_ani, ;
|
|
normat2 As DNS_calcul, ;
|
|
cota As Cota, ;
|
|
tipamort As Tip_amort, ;
|
|
amortlun As Amortizment_lunar, ;
|
|
uzura As Uzura_luni, ;
|
|
GOMONTH(dataeval,Iif(!Empty(normat2lun),normat2lun,normat)) As Data_amort_complete, ;
|
|
amortan As Amortizare_anuala, ;
|
|
amorttot As Total_amortizat, ;
|
|
valin-amorttot As Valoare_ramasa_de_amortizat, ;
|
|
codmf As Cod_MF, ;
|
|
gest As Nr_gest, ;
|
|
respons As Responsabil, ;
|
|
scd As Cont, ;
|
|
ascd As Analitic, ;
|
|
id_sectie As Id_sectie, ;
|
|
dataeval As Data_ultimei_reevaluari, ;
|
|
nrord As Lucrare_contract, ;
|
|
IIF(casat=.F.,"NU","DA") As Iesit_din_gest, ;
|
|
cauza As Cauza_iesirii, ;
|
|
dataout As Data_iesirii, ;
|
|
cod As Cod ;
|
|
from (lcTabel) ;
|
|
WHERE &lcFiltru ;
|
|
INTO Cursor cSelect
|
|
|
|
loc = STRTRAN(ALLTRIM(loc),'\\','\')
|
|
nfscurt = STRTRAN(ALLTRIM(nfscurt),'\\','\')
|
|
|
|
*lcExcel=Strtran(Allt(loc)+'\'+Allt(nfscurt)+'\tempo\lista_'+Sys(2)+".xls","\\","\")
|
|
lcExcel=ADDBS(loc) + ADDBS(nfscurt)+ 'tempo\lista_'+Sys(2)+".xls"
|
|
|
|
Select cSelect
|
|
Copy To &lcExcel Type Xls
|
|
oExcel = Createobject("Excel.Application")
|
|
oExcel.Workbooks.Open(lcExcel)
|
|
oExcel.Visible=1
|
|
oExcel=''
|
|
|
|
IF USED("cSelect")
|
|
USE IN cSelect
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE GRID1.AfterRowColChange
|
|
LPARAMETERS nColIndex
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE GRID1.Init
|
|
LOCAL lnLuniExp,lnLuniCrt
|
|
|
|
sele xmf
|
|
this.setall("dynamicForeColor",'IIF(inactiv,RGB(0,128,0),IIF(casat,RGB(255,0,0),IIF(ROUND(12*VAL(m.an)+VAL(m.nl),0)>12*YEAR(dataeval)+MONTH(dataeval)+normat2lun,RGB(0,0,255),RGB(0,0,0))))','Column')
|
|
GO top
|
|
ENDPROC
|
|
|
|
PROCEDURE LIST1.COMMAND1.Click
|
|
lcSel = thisform.grid1.RecordSource
|
|
thisform.AlwaysOnTop=.f.
|
|
DO list_amort_tot_nou WITH lcSel
|
|
thisform.AlwaysOnTop=.t.
|
|
ENDPROC
|
|
|
|
PROCEDURE List2.Command1.Click
|
|
PRIVATE plGestiune, plCategorie
|
|
STORE .f. to plGestiune, plCategorie
|
|
|
|
pcTitluA = 'EVIDENTA MIJLOACE FIXE - RAPORT LA DATA ' + ALLTRIM(M.NL) + '.' + ALLTRIM(M.AN)
|
|
DO FORM frm_introd_titlu
|
|
|
|
thisform.AlwaysOnTop = .F.
|
|
|
|
lcsel = thisform.grid1.RecordSource
|
|
lcFiltru = FILTER(lcSel)
|
|
|
|
SELECT (lcsel)
|
|
SELECT *, 00000000000000 as ist_amortlp, 00000000000000 as ist_amorttp from (lcsel) WHERE &lcFiltru INTO CURSOR camortizare readwrite
|
|
|
|
&& ist_amortlp, ist_amorttp - p vine de la provizoriu
|
|
|
|
SELECT camortizare
|
|
SCAN FOR datapif!=dataeval AND !EMPTY(dataeval)
|
|
lnamortlun = 0
|
|
lnamorttot = 0
|
|
lcdenumire = UPPER(ALLTRIM(denumire))
|
|
lddatapif = datapif
|
|
lcnrpif = ALLTRIM(nrpif)
|
|
lnValoare = valoare
|
|
|
|
lnlunaeval = MONTH(dataeval)
|
|
lnanuleval = YEAR(dataeval)
|
|
|
|
lccalemf = ADDBS(calefirma) + 'an' + STR(lnanuleval,4,0) + '\date' + PADL(lnlunaeval,2,'0')
|
|
lcfismf = ADDBS(lccalemf) + 'mf.dbf'
|
|
IF FILE(lcfismf)
|
|
USE (lcfismf) IN 0 ALIAS rmf
|
|
SELECT rmf
|
|
LOCATE FOR UPPER(ALLTRIM(denumire)) = lcdenumire AND datapif = lddatapif AND ALLTRIM(nrpif) = lcnrpif AND !inactiv
|
|
IF FOUND()
|
|
lnamortlun = amortlun
|
|
lnamorttot = amorttot
|
|
lnnrluni = ABS((lnanuleval * 12 + lnlunaeval) - (VAL(m.an) * 12 + VAL(m.nl)))
|
|
SELECT camortizare
|
|
lnAmortTot = lnAmorttot + lnNrluni * lnAmortlun
|
|
IF lnAmortTot > lnValoare
|
|
lnAmortTot = lnValoare
|
|
ENDIF
|
|
REPLACE ist_amortlp WITH lnAmortlun, ist_amorttp WITH lnAmortTot
|
|
ENDIF
|
|
USE IN rmf
|
|
ENDIF
|
|
SELECT camortizare
|
|
ENDSCAN
|
|
|
|
IF bgest
|
|
plGestiune = .t.
|
|
ENDIF
|
|
|
|
IF bscd
|
|
plCategorie = .t.
|
|
ENDIF
|
|
|
|
buton=1
|
|
od=Create('danu')
|
|
od.label1.Caption=[Alegeti destinatia raportului: ('DA' pentru imprimanta, 'NU' pentru Excel)]
|
|
od.Show(1)
|
|
If buton = 2
|
|
tlexcel = .T.
|
|
Else
|
|
tlexcel = .F.
|
|
Endif
|
|
|
|
If tlexcel
|
|
*** excel
|
|
lcFile=Addbs(Allt(loc))+Addbs(Allt(nfscurt))+'tempo\EvidentaMf_'+Sys(2)+'.XLS'
|
|
|
|
Select nrinv as nr_inventar, denumire, codmf as cod_mf, datapif as data_pif,valoare as val_istorica, ;
|
|
valin as val_inventar, ist_amortlp as amort_lunara_ist, amortlun as amort_lunara, ;
|
|
ist_amorttp as amort_totala_ist, amorttot as amort_totala, ;
|
|
valoare-ist_amorttp as val_ramasa_ist, valin-amorttot as val_ramasa, ;
|
|
gomonth(dataeval,iif(!empty(normat2lun),normat2lun,normat)) as data_expirarii ;
|
|
FROM camortizare INTO CURSOR crs_raport
|
|
SELECT crs_raport
|
|
Copy To (lcFile) Type Xls
|
|
USE IN crs_raport
|
|
|
|
oExcel = Createobject("Excel.Application")
|
|
oExcel.Workbooks.Open(lcFile)
|
|
oExcel.Visible=1
|
|
oExcel=''
|
|
ELSE
|
|
SELECT camortizare
|
|
REPORT FORM amortizare TO PRINTER PROMPT PREVIEW
|
|
ENDIF
|
|
|
|
IF USED('camortizare')
|
|
USE IN camortizare
|
|
ENDIF
|
|
|
|
thisform.AlwaysOnTop = .T.
|
|
ENDPROC
|
|
|
|
PROCEDURE List3.Command1.Click
|
|
*THISFORM.CMDlist1.Click
|
|
Titlu = 'Lista imobilizarilor corporale in luna'
|
|
|
|
thisform.alwaysontop=.f.
|
|
report form listmfcota to printer prompt preview
|
|
thisform.alwaysontop=.t.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Modifica1.Command1.Click
|
|
thisform.alwaysontop=.f.
|
|
thisform.modificare
|
|
thisform.alwaysontop=.t.
|
|
ENDPROC
|
|
|
|
PROCEDURE Sterge1.Command1.Click
|
|
THISFORM.COMMAND2.CLICK
|
|
ENDPROC
|
|
|
|
PROCEDURE Verif1.Command1.Click
|
|
DO verific_cu_balanta WITH thisform.pcfel
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS vizsit AS viz OF "mfix2000.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Name = "vizsit"
|
|
Label10.Caption = "Situatie analitica"
|
|
Label10.Left = 7
|
|
Label10.Name = "Label10"
|
|
Label10.Top = 2
|
|
Label10.ZOrderSet = 5
|
|
Shape1.Name = "Shape1"
|
|
Shape1.ZOrderSet = 7
|
|
Shape5.Height = 45
|
|
Shape5.Left = 12
|
|
Shape5.Name = "Shape5"
|
|
Shape5.Top = 459
|
|
Shape5.Width = 672
|
|
Shape5.ZOrderSet = 8
|
|
Shape2.Name = "Shape2"
|
|
Shape2.ZOrderSet = 9
|
|
Shape3.Height = 137
|
|
Shape3.Left = 685
|
|
Shape3.Name = "Shape3"
|
|
Shape3.Top = 312
|
|
Shape3.Width = 108
|
|
Shape3.ZOrderSet = 10
|
|
Grid1.BackColor = 255,255,255
|
|
Grid1.Column1.BackColor = 255,255,255
|
|
Grid1.Column1.ControlSource = ""
|
|
Grid1.Column1.Header1.Name = "Header1"
|
|
Grid1.Column1.Name = "Column1"
|
|
Grid1.Column1.Text1.BackColor = 255,255,255
|
|
Grid1.Column1.Text1.Name = "Text1"
|
|
Grid1.Column1.Text1.Visible = .F.
|
|
Grid1.Column1.Visible = .F.
|
|
Grid1.Column1.Width = 31
|
|
Grid1.Column10.Alignment = 1
|
|
Grid1.Column10.BackColor = 255,255,255
|
|
Grid1.Column10.ControlSource = "t_2123"
|
|
Grid1.Column10.Format = "r"
|
|
Grid1.Column10.Header1.Caption = "Cont 2813"
|
|
Grid1.Column10.Header1.Name = "Header1"
|
|
Grid1.Column10.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column10.Name = "Column10"
|
|
Grid1.Column10.Text1.Alignment = 1
|
|
Grid1.Column10.Text1.BackColor = 255,255,255
|
|
Grid1.Column10.Text1.Name = "Text1"
|
|
Grid1.Column10.Width = 84
|
|
Grid1.Column11.Alignment = 1
|
|
Grid1.Column11.BackColor = 255,255,255
|
|
Grid1.Column11.ControlSource = "t_2124"
|
|
Grid1.Column11.Format = "r"
|
|
Grid1.Column11.Header1.Caption = "Cont 2814"
|
|
Grid1.Column11.Header1.Name = "Header1"
|
|
Grid1.Column11.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column11.Name = "Column11"
|
|
Grid1.Column11.Text1.Alignment = 1
|
|
Grid1.Column11.Text1.BackColor = 255,255,255
|
|
Grid1.Column11.Text1.Name = "Text1"
|
|
Grid1.Column11.Width = 84
|
|
Grid1.Column12.BackColor = 255,255,255
|
|
Grid1.Column12.Header1.Name = "Header1"
|
|
Grid1.Column12.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column12.Name = "Column12"
|
|
Grid1.Column12.Text1.BackColor = 255,255,255
|
|
Grid1.Column12.Text1.Name = "Text1"
|
|
Grid1.Column12.Text1.Visible = .F.
|
|
Grid1.Column12.Visible = .F.
|
|
Grid1.Column13.BackColor = 255,255,255
|
|
Grid1.Column13.ControlSource = ""
|
|
Grid1.Column13.Header1.Name = "Header1"
|
|
Grid1.Column13.Name = "Column13"
|
|
Grid1.Column13.Text1.BackColor = 255,255,255
|
|
Grid1.Column13.Text1.Name = "Text1"
|
|
Grid1.Column13.Text1.Visible = .F.
|
|
Grid1.Column13.Visible = .F.
|
|
Grid1.Column13.Width = 37
|
|
Grid1.Column14.BackColor = 255,255,255
|
|
Grid1.Column14.ControlSource = ""
|
|
Grid1.Column14.Header1.Name = "Header1"
|
|
Grid1.Column14.Name = "Column14"
|
|
Grid1.Column14.Text1.BackColor = 255,255,255
|
|
Grid1.Column14.Text1.Name = "Text1"
|
|
Grid1.Column14.Text1.Visible = .F.
|
|
Grid1.Column14.Visible = .F.
|
|
Grid1.Column14.Width = 39
|
|
Grid1.Column15.BackColor = 255,255,255
|
|
Grid1.Column15.ControlSource = ""
|
|
Grid1.Column15.Header1.Name = "Header1"
|
|
Grid1.Column15.Name = "Column15"
|
|
Grid1.Column15.Text1.BackColor = 255,255,255
|
|
Grid1.Column15.Text1.Name = "Text1"
|
|
Grid1.Column15.Text1.Visible = .F.
|
|
Grid1.Column15.Visible = .F.
|
|
Grid1.Column15.Width = 37
|
|
Grid1.Column16.BackColor = 255,255,255
|
|
Grid1.Column16.ControlSource = ""
|
|
Grid1.Column16.Header1.Name = "Header1"
|
|
Grid1.Column16.Name = "Column16"
|
|
Grid1.Column16.Text1.BackColor = 255,255,255
|
|
Grid1.Column16.Text1.Name = "Text1"
|
|
Grid1.Column16.Text1.Visible = .F.
|
|
Grid1.Column16.Visible = .F.
|
|
Grid1.Column16.Width = 33
|
|
Grid1.Column17.BackColor = 255,255,255
|
|
Grid1.Column17.ControlSource = ""
|
|
Grid1.Column17.Header1.Name = "Header1"
|
|
Grid1.Column17.Name = "Column17"
|
|
Grid1.Column17.Text1.BackColor = 255,255,255
|
|
Grid1.Column17.Text1.Name = "Text1"
|
|
Grid1.Column17.Text1.Visible = .F.
|
|
Grid1.Column17.Visible = .F.
|
|
Grid1.Column18.BackColor = 255,255,255
|
|
Grid1.Column18.ControlSource = ""
|
|
Grid1.Column18.Header1.Name = "Header1"
|
|
Grid1.Column18.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column18.Name = "Column18"
|
|
Grid1.Column18.Text1.BackColor = 255,255,255
|
|
Grid1.Column18.Text1.Name = "Text1"
|
|
Grid1.Column18.Text1.Visible = .F.
|
|
Grid1.Column18.Visible = .F.
|
|
Grid1.Column18.Width = 35
|
|
Grid1.Column19.BackColor = 255,255,255
|
|
Grid1.Column19.ControlSource = ""
|
|
Grid1.Column19.Header1.Name = "Header1"
|
|
Grid1.Column19.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column19.Name = "Column19"
|
|
Grid1.Column19.Text1.BackColor = 255,255,255
|
|
Grid1.Column19.Text1.Name = "Text1"
|
|
Grid1.Column19.Text1.Visible = .F.
|
|
Grid1.Column19.Visible = .F.
|
|
Grid1.Column19.Width = 41
|
|
Grid1.Column2.Alignment = 0
|
|
Grid1.Column2.BackColor = 255,255,255
|
|
Grid1.Column2.ColumnOrder = 2
|
|
Grid1.Column2.ControlSource = "nl"
|
|
Grid1.Column2.Header2.Caption = "Luna"
|
|
Grid1.Column2.Header2.Name = "Header2"
|
|
Grid1.Column2.Name = "Column2"
|
|
Grid1.Column2.Text1.Alignment = 0
|
|
Grid1.Column2.Text1.BackColor = 255,255,255
|
|
Grid1.Column2.Text1.Name = "Text1"
|
|
Grid1.Column2.Width = 27
|
|
Grid1.Column20.BackColor = 255,255,255
|
|
Grid1.Column20.ControlSource = ""
|
|
Grid1.Column20.Header1.Name = "Header1"
|
|
Grid1.Column20.Name = "Column20"
|
|
Grid1.Column20.Text1.BackColor = 255,255,255
|
|
Grid1.Column20.Text1.Name = "Text1"
|
|
Grid1.Column20.Text1.Visible = .F.
|
|
Grid1.Column20.Visible = .F.
|
|
Grid1.Column21.BackColor = 255,255,255
|
|
Grid1.Column21.Header1.Name = "Header1"
|
|
Grid1.Column21.Name = "Column21"
|
|
Grid1.Column21.Text1.BackColor = 255,255,255
|
|
Grid1.Column21.Text1.Name = "Text1"
|
|
Grid1.Column21.Text1.Visible = .F.
|
|
Grid1.Column21.Visible = .F.
|
|
Grid1.Column22.BackColor = 255,255,255
|
|
Grid1.Column22.Header1.Name = "Header1"
|
|
Grid1.Column22.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column22.Name = "Column22"
|
|
Grid1.Column22.Text1.BackColor = 255,255,255
|
|
Grid1.Column22.Text1.Name = "Text1"
|
|
Grid1.Column22.Text1.Visible = .F.
|
|
Grid1.Column22.Visible = .F.
|
|
Grid1.Column3.BackColor = 255,255,255
|
|
Grid1.Column3.ControlSource = ""
|
|
Grid1.Column3.Header3.Name = "Header3"
|
|
Grid1.Column3.Name = "Column3"
|
|
Grid1.Column3.Text1.BackColor = 255,255,255
|
|
Grid1.Column3.Text1.Name = "Text1"
|
|
Grid1.Column3.Text1.Visible = .F.
|
|
Grid1.Column3.Visible = .F.
|
|
Grid1.Column3.Width = 38
|
|
Grid1.Column4.Alignment = 0
|
|
Grid1.Column4.BackColor = 255,255,255
|
|
Grid1.Column4.ColumnOrder = 1
|
|
Grid1.Column4.ControlSource = "an"
|
|
Grid1.Column4.Header4.Caption = "Anul"
|
|
Grid1.Column4.Header4.Name = "Header4"
|
|
Grid1.Column4.Name = "Column4"
|
|
Grid1.Column4.Text1.Alignment = 0
|
|
Grid1.Column4.Text1.BackColor = 255,255,255
|
|
Grid1.Column4.Text1.Name = "Text1"
|
|
Grid1.Column4.Width = 36
|
|
Grid1.Column5.Alignment = 1
|
|
Grid1.Column5.BackColor = 255,255,255
|
|
Grid1.Column5.ControlSource = "t_2121"
|
|
Grid1.Column5.Format = "r"
|
|
Grid1.Column5.Header5.Caption = "Cont 2811"
|
|
Grid1.Column5.Header5.Name = "Header5"
|
|
Grid1.Column5.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column5.Name = "Column5"
|
|
Grid1.Column5.Text1.Alignment = 1
|
|
Grid1.Column5.Text1.BackColor = 255,255,255
|
|
Grid1.Column5.Text1.Name = "Text1"
|
|
Grid1.Column5.Width = 81
|
|
Grid1.Column6.BackColor = 255,255,255
|
|
Grid1.Column6.ControlSource = "t_2122"
|
|
Grid1.Column6.Header6.Caption = "Cont 2812"
|
|
Grid1.Column6.Header6.Name = "Header6"
|
|
Grid1.Column6.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column6.Name = "Column6"
|
|
Grid1.Column6.Text1.BackColor = 255,255,255
|
|
Grid1.Column6.Text1.Name = "Text1"
|
|
Grid1.Column6.Width = 84
|
|
Grid1.Column7.BackColor = 255,255,255
|
|
Grid1.Column7.ControlSource = "t_2125"
|
|
Grid1.Column7.Format = "r"
|
|
Grid1.Column7.Header7.Caption = "Cont 2815"
|
|
Grid1.Column7.Header7.Name = "Header7"
|
|
Grid1.Column7.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column7.Name = "Column7"
|
|
Grid1.Column7.Text1.BackColor = 255,255,255
|
|
Grid1.Column7.Text1.Name = "Text1"
|
|
Grid1.Column7.Width = 76
|
|
Grid1.Column8.BackColor = 255,255,255
|
|
Grid1.Column8.ControlSource = "t_2126"
|
|
Grid1.Column8.Format = "r"
|
|
Grid1.Column8.Header8.Caption = "Cont 2816"
|
|
Grid1.Column8.Header8.Name = "Header8"
|
|
Grid1.Column8.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column8.Name = "Column8"
|
|
Grid1.Column8.Text1.BackColor = 255,255,255
|
|
Grid1.Column8.Text1.Name = "Text1"
|
|
Grid1.Column8.Width = 88
|
|
Grid1.Column9.BackColor = 255,255,255
|
|
Grid1.Column9.ControlSource = "t_2121+t_2122+t_2123+t_2124+t_2125+t_2126"
|
|
Grid1.Column9.DynamicForeColor = ""
|
|
Grid1.Column9.Header9.Caption = "Total Lunar"
|
|
Grid1.Column9.Header9.Name = "Header9"
|
|
Grid1.Column9.InputMask = (get_mask(14,gnZ))
|
|
Grid1.Column9.Name = "Column9"
|
|
Grid1.Column9.Text1.BackColor = 255,255,255
|
|
Grid1.Column9.Text1.Name = "Text1"
|
|
Grid1.Column9.Text1.Visible = .F.
|
|
Grid1.Column9.Visible = .F.
|
|
Grid1.Column9.Width = 74
|
|
Grid1.Name = "Grid1"
|
|
Grid1.Panel = 1
|
|
Grid1.RecordSource = "sitmf"
|
|
Grid1.ZOrderSet = 11
|
|
Text1.ControlSource = "s1"
|
|
Text1.Height = 23
|
|
Text1.InputMask = (get_mask(14,gnZ))
|
|
Text1.Left = 20
|
|
Text1.Name = "Text1"
|
|
Text1.Top = 472
|
|
Text1.Width = 93
|
|
Text1.ZOrderSet = 13
|
|
Label3.Caption = "Amortizmente"
|
|
Label3.Left = 204
|
|
Label3.Name = "Label3"
|
|
Label3.Top = 372
|
|
Label3.Visible = .F.
|
|
Label3.ZOrderSet = 0
|
|
Shape6.Name = "Shape6"
|
|
Shape6.Visible = .F.
|
|
Shape6.ZOrderSet = 14
|
|
Label7.Name = "Label7"
|
|
Label7.Visible = .F.
|
|
Label7.ZOrderSet = 15
|
|
Check1.Name = "Check1"
|
|
Check1.Visible = .F.
|
|
Check1.ZOrderSet = 16
|
|
Check4.Name = "Check4"
|
|
Check4.Visible = .F.
|
|
Check4.ZOrderSet = 17
|
|
Check9.Name = "Check9"
|
|
Check9.Visible = .F.
|
|
Check9.ZOrderSet = 18
|
|
Command1.Name = "Command1"
|
|
Command1.Visible = .F.
|
|
Command1.ZOrderSet = 20
|
|
Text16.Left = 670
|
|
Text16.Name = "Text16"
|
|
Text16.Top = 4
|
|
Text16.Visible = .F.
|
|
Text16.ZOrderSet = 21
|
|
Text17.Left = 712
|
|
Text17.Name = "Text17"
|
|
Text17.Top = 4
|
|
Text17.Visible = .F.
|
|
Text17.ZOrderSet = 22
|
|
oMenuShortcut.Name = "oMenuShortcut"
|
|
oMenuShortcut.ZOrderSet = 23
|
|
Label19.Name = "Label19"
|
|
Label19.ZOrderSet = 4
|
|
Check2.Name = "Check2"
|
|
Check2.Visible = .F.
|
|
Check2.ZOrderSet = 24
|
|
Check3.Name = "Check3"
|
|
Check3.Visible = .F.
|
|
Check3.ZOrderSet = 25
|
|
Label1.Left = 23
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 437
|
|
Label1.ZOrderSet = 26
|
|
Text2.Left = 228
|
|
Text2.Name = "Text2"
|
|
Text2.Top = 336
|
|
Text2.Visible = .F.
|
|
Text2.ZOrderSet = 1
|
|
Label2.Left = 312
|
|
Label2.Name = "Label2"
|
|
Label2.Top = 372
|
|
Label2.Visible = .F.
|
|
Label2.ZOrderSet = 2
|
|
COMMAND2.Name = "COMMAND2"
|
|
COMMAND2.Visible = .F.
|
|
Command3.Name = "Command3"
|
|
Command3.Visible = .F.
|
|
t3.Left = 84
|
|
t3.Name = "t3"
|
|
t3.Top = 564
|
|
t3.Visible = .F.
|
|
Label4.Left = 34
|
|
Label4.Name = "Label4"
|
|
Label4.Top = 527
|
|
Label4.Visible = .F.
|
|
Excel1.Command1.Name = "Command1"
|
|
Excel1.Imbuton1.Height = 27
|
|
Excel1.Imbuton1.Name = "Imbuton1"
|
|
Excel1.Imbuton1.Width = 30
|
|
Excel1.Name = "Excel1"
|
|
LIST1.Command1.Name = "Command1"
|
|
LIST1.Imbuton1.Height = 27
|
|
LIST1.Imbuton1.Name = "Imbuton1"
|
|
LIST1.Imbuton1.Width = 30
|
|
LIST1.Name = "LIST1"
|
|
TERMINAT1.Command1.Name = "Command1"
|
|
TERMINAT1.Imbuton1.Height = 27
|
|
TERMINAT1.Imbuton1.Name = "Imbuton1"
|
|
TERMINAT1.Imbuton1.Width = 30
|
|
TERMINAT1.Name = "TERMINAT1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "2811", ;
|
|
Height = 17, ;
|
|
Left = 22, ;
|
|
Name = "Label1", ;
|
|
Top = 456, ;
|
|
Width = 30, ;
|
|
ZOrderSet = 33
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label11' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = " - Amortizmente ", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 22, ;
|
|
Left = 156, ;
|
|
Name = "Label11", ;
|
|
TabIndex = 10, ;
|
|
Top = 4, ;
|
|
Width = 125, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "2812", ;
|
|
Height = 17, ;
|
|
Left = 115, ;
|
|
Name = "Label2", ;
|
|
Top = 456, ;
|
|
Width = 30, ;
|
|
ZOrderSet = 34
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "2813", ;
|
|
Height = 17, ;
|
|
Left = 210, ;
|
|
Name = "Label4", ;
|
|
Top = 456, ;
|
|
Width = 30, ;
|
|
ZOrderSet = 35
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label5' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "2814", ;
|
|
Height = 17, ;
|
|
Left = 302, ;
|
|
Name = "Label5", ;
|
|
Top = 456, ;
|
|
Width = 30, ;
|
|
ZOrderSet = 36
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label6' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "2815", ;
|
|
Height = 17, ;
|
|
Left = 396, ;
|
|
Name = "Label6", ;
|
|
Top = 456, ;
|
|
Width = 30, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label8' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "2816", ;
|
|
Height = 17, ;
|
|
Left = 491, ;
|
|
Name = "Label8", ;
|
|
Top = 456, ;
|
|
Width = 30, ;
|
|
ZOrderSet = 38
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label9' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "Total", ;
|
|
Height = 17, ;
|
|
Left = 583, ;
|
|
Name = "Label9", ;
|
|
Top = 456, ;
|
|
Width = 29, ;
|
|
ZOrderSet = 39
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
ControlSource = "s2", ;
|
|
Enabled = .T., ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(14,gnZ)), ;
|
|
Left = 114, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 11, ;
|
|
Top = 472, ;
|
|
Width = 93, ;
|
|
ZOrderSet = 27
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text3' AS textbox WITH ;
|
|
ControlSource = "s3", ;
|
|
Enabled = .T., ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(14,gnZ)), ;
|
|
Left = 208, ;
|
|
Name = "Text3", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 11, ;
|
|
Top = 472, ;
|
|
Width = 93, ;
|
|
ZOrderSet = 28
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text4' AS textbox WITH ;
|
|
ControlSource = "s4", ;
|
|
Enabled = .T., ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(14,gnZ)), ;
|
|
Left = 302, ;
|
|
Name = "Text4", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 11, ;
|
|
Top = 472, ;
|
|
Width = 93, ;
|
|
ZOrderSet = 29
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text5' AS textbox WITH ;
|
|
ControlSource = "s5", ;
|
|
Enabled = .T., ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(14,gnZ)), ;
|
|
Left = 396, ;
|
|
Name = "Text5", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 11, ;
|
|
Top = 472, ;
|
|
Width = 93, ;
|
|
ZOrderSet = 30
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text6' AS textbox WITH ;
|
|
ControlSource = "s6", ;
|
|
Enabled = .T., ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(14,gnZ)), ;
|
|
Left = 490, ;
|
|
Name = "Text6", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 11, ;
|
|
Top = 472, ;
|
|
Width = 93, ;
|
|
ZOrderSet = 31
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text7' AS textbox WITH ;
|
|
ControlSource = "s", ;
|
|
Enabled = .T., ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(14,gnZ)), ;
|
|
Left = 583, ;
|
|
Name = "Text7", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 11, ;
|
|
Top = 472, ;
|
|
Width = 93, ;
|
|
ZOrderSet = 32
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE afisactual
|
|
sele sitmf
|
|
set filter to val(an)<val(m.an) or (val(an)=val(m.an) and val(nl)<=val(m.nl))
|
|
|
|
sum t_2121 to s1
|
|
sum t_2122 to s2
|
|
sum t_2123 to s3
|
|
sum t_2124 to s4
|
|
sum t_2125 to s5
|
|
sum t_2126 to s6
|
|
sum t_2121+t_2122+t_2123+t_2124+t_2125+t_2126 to s
|
|
|
|
thisform.text1.refresh
|
|
thisform.text2.refresh
|
|
thisform.text3.refresh
|
|
thisform.text4.refresh
|
|
thisform.text5.refresh
|
|
thisform.text6.refresh
|
|
thisform.text7.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
|
|
*do sitan
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Shape2.RightClick
|
|
*
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text1.Refresh
|
|
THIS.FORECOLOR=IIF(s1>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text2.Init
|
|
*sele act
|
|
*set filter to
|
|
*sum suma to m.suma
|
|
*this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text2.Refresh
|
|
THIS.FORECOLOR=IIF(s2>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text3.Init
|
|
*sele act
|
|
*set filter to
|
|
*sum suma to m.suma
|
|
*this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text3.Refresh
|
|
THIS.FORECOLOR=IIF(s3>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text4.Init
|
|
*sele act
|
|
*set filter to
|
|
*sum suma to m.suma
|
|
*this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text4.Refresh
|
|
THIS.FORECOLOR=IIF(s4>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text5.Init
|
|
*sele act
|
|
*set filter to
|
|
*sum suma to m.suma
|
|
*this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text5.Refresh
|
|
THIS.FORECOLOR=IIF(s5>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text6.Init
|
|
*sele act
|
|
*set filter to
|
|
*sum suma to m.suma
|
|
*this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text6.Refresh
|
|
THIS.FORECOLOR=IIF(s6>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text7.Init
|
|
*sele act
|
|
*set filter to
|
|
*sum suma to m.suma
|
|
*this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text7.Refresh
|
|
THIS.FORECOLOR=IIF(s>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS vizsitrul AS vizsit OF "mfix2000.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Name = "vizsitrul"
|
|
Label3.Caption = "Rulaje:"
|
|
Label3.Left = 48
|
|
Label3.Name = "Label3"
|
|
Label3.Top = 276
|
|
Label3.Visible = .F.
|
|
Label3.ZOrderSet = 0
|
|
TEXT2.Name = "TEXT2"
|
|
Text2.Name = "Text2"
|
|
Text2.ZOrderSet = 27
|
|
Label2.Caption = "2812"
|
|
Label2.Left = 117
|
|
LABEL2.Name = "LABEL2"
|
|
Label2.Name = "Label2"
|
|
Label2.Top = 456
|
|
Label2.Visible = .T.
|
|
Label2.ZOrderSet = 35
|
|
Label11.Caption = " - Rulaje in luna curenta"
|
|
Label11.Left = 159
|
|
Label11.Name = "Label11"
|
|
Label11.Top = 2
|
|
Label11.ZOrderSet = 3
|
|
Label10.Left = 12
|
|
Label10.Name = "Label10"
|
|
Label10.Top = 0
|
|
Label10.ZOrderSet = 5
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 6
|
|
Shape1.Name = "Shape1"
|
|
Shape1.ZOrderSet = 25
|
|
Label19.Name = "Label19"
|
|
Label19.ZOrderSet = 4
|
|
Shape5.Name = "Shape5"
|
|
Shape5.ZOrderSet = 7
|
|
Shape2.Name = "Shape2"
|
|
Shape2.ZOrderSet = 8
|
|
Shape3.Name = "Shape3"
|
|
Shape3.ZOrderSet = 9
|
|
Grid1.Column1.Header1.Name = "Header1"
|
|
Grid1.Column1.Name = "Column1"
|
|
Grid1.Column1.Text1.Name = "Text1"
|
|
Grid1.Column10.ControlSource = "r_2123"
|
|
Grid1.Column10.Header1.Caption = "Cont 2813"
|
|
Grid1.Column10.Header1.Name = "Header1"
|
|
Grid1.Column10.Name = "Column10"
|
|
Grid1.Column10.Text1.Name = "Text1"
|
|
Grid1.Column11.ControlSource = "r_2124"
|
|
Grid1.Column11.Header1.Caption = "Cont 2814"
|
|
Grid1.Column11.Header1.Name = "Header1"
|
|
Grid1.Column11.Name = "Column11"
|
|
Grid1.Column11.Text1.Name = "Text1"
|
|
Grid1.Column12.HEADER1.Name = "HEADER1"
|
|
Grid1.Column12.Name = "Column12"
|
|
Grid1.Column12.TEXT1.Name = "TEXT1"
|
|
Grid1.Column13.Header1.Name = "Header1"
|
|
Grid1.Column13.Name = "Column13"
|
|
Grid1.Column13.Text1.Name = "Text1"
|
|
Grid1.Column14.Header1.Name = "Header1"
|
|
Grid1.Column14.Name = "Column14"
|
|
Grid1.Column14.Text1.Name = "Text1"
|
|
Grid1.Column15.Header1.Name = "Header1"
|
|
Grid1.Column15.Name = "Column15"
|
|
Grid1.Column15.Text1.Name = "Text1"
|
|
Grid1.Column16.Header1.Name = "Header1"
|
|
Grid1.Column16.Name = "Column16"
|
|
Grid1.Column16.Text1.Name = "Text1"
|
|
Grid1.Column17.Header1.Name = "Header1"
|
|
Grid1.Column17.Name = "Column17"
|
|
Grid1.Column17.Text1.Name = "Text1"
|
|
Grid1.Column18.Header1.Name = "Header1"
|
|
Grid1.Column18.Name = "Column18"
|
|
Grid1.Column18.Text1.Name = "Text1"
|
|
Grid1.Column19.Header1.Name = "Header1"
|
|
Grid1.Column19.Name = "Column19"
|
|
Grid1.Column19.Text1.Name = "Text1"
|
|
Grid1.Column2.Header2.Name = "Header2"
|
|
Grid1.Column2.Name = "Column2"
|
|
Grid1.Column2.Text1.Name = "Text1"
|
|
Grid1.Column20.Header1.Name = "Header1"
|
|
Grid1.Column20.Name = "Column20"
|
|
Grid1.Column20.Text1.Name = "Text1"
|
|
Grid1.COLUMN21.HEADER1.Name = "HEADER1"
|
|
Grid1.COLUMN21.Name = "COLUMN21"
|
|
Grid1.COLUMN21.TEXT1.Name = "TEXT1"
|
|
Grid1.COLUMN22.HEADER1.Name = "HEADER1"
|
|
Grid1.COLUMN22.Name = "COLUMN22"
|
|
Grid1.COLUMN22.TEXT1.Name = "TEXT1"
|
|
Grid1.Column3.Header3.Name = "Header3"
|
|
Grid1.Column3.Name = "Column3"
|
|
Grid1.Column3.Text1.Name = "Text1"
|
|
Grid1.Column4.Header4.Name = "Header4"
|
|
Grid1.Column4.Name = "Column4"
|
|
Grid1.Column4.Text1.Name = "Text1"
|
|
Grid1.Column5.ControlSource = "r_2121"
|
|
Grid1.Column5.Header5.Caption = "Cont 2811"
|
|
Grid1.Column5.Header5.Name = "Header5"
|
|
Grid1.Column5.Name = "Column5"
|
|
Grid1.Column5.Text1.Name = "Text1"
|
|
Grid1.Column6.ControlSource = "r_2122"
|
|
Grid1.Column6.Header6.Caption = "Cont 2812"
|
|
Grid1.Column6.Header6.Name = "Header6"
|
|
Grid1.Column6.Name = "Column6"
|
|
Grid1.Column6.Text1.Name = "Text1"
|
|
Grid1.Column7.ControlSource = "r_2125"
|
|
Grid1.Column7.Header7.Caption = "Cont 2815"
|
|
Grid1.Column7.Header7.Name = "Header7"
|
|
Grid1.Column7.Name = "Column7"
|
|
Grid1.Column7.Text1.Name = "Text1"
|
|
Grid1.Column8.ControlSource = "r_2126"
|
|
Grid1.Column8.Header8.Caption = "Cont 2816"
|
|
Grid1.Column8.Header8.Name = "Header8"
|
|
Grid1.Column8.Name = "Column8"
|
|
Grid1.Column8.Text1.Name = "Text1"
|
|
Grid1.Column9.ControlSource = "r_2121+r_2122+r_2123+r_2124+r_2125+r_2126"
|
|
Grid1.Column9.Header9.Name = "Header9"
|
|
Grid1.Column9.Name = "Column9"
|
|
Grid1.Column9.Text1.Name = "Text1"
|
|
Grid1.Height = 405
|
|
Grid1.Left = 12
|
|
Grid1.Name = "Grid1"
|
|
Grid1.Top = 27
|
|
Grid1.Width = 672
|
|
Grid1.ZOrderSet = 10
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Cmdtermin1.ZOrderSet = 11
|
|
Text1.Name = "Text1"
|
|
Text1.ZOrderSet = 12
|
|
Shape6.Name = "Shape6"
|
|
Shape6.ZOrderSet = 13
|
|
Label7.Name = "Label7"
|
|
Label7.ZOrderSet = 14
|
|
Check1.Name = "Check1"
|
|
Check1.ZOrderSet = 15
|
|
Check4.Name = "Check4"
|
|
Check4.ZOrderSet = 16
|
|
Check9.Name = "Check9"
|
|
Check9.ZOrderSet = 17
|
|
Cmdlist1.Name = "Cmdlist1"
|
|
Cmdlist1.ZOrderSet = 18
|
|
Command1.Name = "Command1"
|
|
Command1.ZOrderSet = 19
|
|
Text16.Left = 666
|
|
Text16.Name = "Text16"
|
|
Text16.Top = 4
|
|
Text16.ZOrderSet = 20
|
|
Text17.Left = 708
|
|
Text17.Name = "Text17"
|
|
Text17.Top = 4
|
|
Text17.ZOrderSet = 21
|
|
oMenuShortcut.Name = "oMenuShortcut"
|
|
oMenuShortcut.ZOrderSet = 22
|
|
Check2.Name = "Check2"
|
|
Check2.ZOrderSet = 23
|
|
Check3.Name = "Check3"
|
|
Check3.ZOrderSet = 24
|
|
COMMAND2.Name = "COMMAND2"
|
|
COMMAND2.Visible = .F.
|
|
Text3.Name = "Text3"
|
|
Text3.ZOrderSet = 28
|
|
Text4.Name = "Text4"
|
|
Text4.ZOrderSet = 29
|
|
Text5.Name = "Text5"
|
|
Text5.ZOrderSet = 30
|
|
Text6.Name = "Text6"
|
|
Text6.ZOrderSet = 31
|
|
Text7.Name = "Text7"
|
|
Text7.ZOrderSet = 33
|
|
Label1.Caption = "2811"
|
|
Label1.Left = 24
|
|
LABEL1.Name = "LABEL1"
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 434
|
|
Label1.Visible = .F.
|
|
Label1.ZOrderSet = 34
|
|
Label4.Caption = "2813"
|
|
LABEL4.Name = "LABEL4"
|
|
Label4.Name = "Label4"
|
|
Label4.ZOrderSet = 36
|
|
Label5.Caption = "2814"
|
|
Label5.Name = "Label5"
|
|
Label5.ZOrderSet = 37
|
|
Label6.Caption = "2815"
|
|
Label6.Name = "Label6"
|
|
Label6.ZOrderSet = 38
|
|
Label8.Caption = "2816"
|
|
Label8.Name = "Label8"
|
|
Label8.ZOrderSet = 39
|
|
Label9.Name = "Label9"
|
|
Label9.ZOrderSet = 40
|
|
COMMAND3.Name = "COMMAND3"
|
|
T3.Name = "T3"
|
|
Cmdlist4.Name = "Cmdlist4"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Text8' AS textbox WITH ;
|
|
ControlSource = "s1", ;
|
|
Enabled = .T., ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 21, ;
|
|
Name = "Text8", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 11, ;
|
|
Top = 472, ;
|
|
Width = 93, ;
|
|
ZOrderSet = 32
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE afisactual
|
|
sele sitmf
|
|
set filter to val(an)<val(m.an) or (val(an)=val(m.an) and val(nl)<=val(m.nl))
|
|
|
|
sum r_2121 to s1
|
|
sum r_2122 to s2
|
|
sum r_2123 to s3
|
|
sum r_2124 to s4
|
|
sum r_2125 to s5
|
|
sum r_2126 to s6
|
|
sum r_2121+r_2122+r_2123+r_2124+r_2125+r_2126 to s
|
|
|
|
thisform.text8.refresh
|
|
thisform.text2.refresh
|
|
thisform.text3.refresh
|
|
thisform.text4.refresh
|
|
thisform.text5.refresh
|
|
thisform.text6.refresh
|
|
thisform.text7.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdlist1.Click
|
|
thisform.windowstate=1
|
|
report form sitmf1 to printer prompt preview
|
|
thisform.windowstate=0
|
|
ENDPROC
|
|
|
|
PROCEDURE Text8.Init
|
|
*sele act
|
|
*set filter to
|
|
*sum suma to m.suma
|
|
*this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text8.Refresh
|
|
THIS.FORECOLOR=IIF(s>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|