Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
596
Ferestre/Vechi/FISA.sc2
Normal file
596
Ferestre/Vechi/FISA.sc2
Normal file
@@ -0,0 +1,596 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="fisa.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen1 AS ffergen OF "..\..\contab\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< 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="Text7" 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="Text10" 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="Text13" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
DoCreate = .T.
|
||||
Height = 440
|
||||
Name = "Ffergen1"
|
||||
Width = 387
|
||||
Line1.Name = "Line1"
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
|
||||
Left = 49, ;
|
||||
Name = "Cmdlist1", ;
|
||||
Top = 403
|
||||
*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
|
||||
Left = 157, ;
|
||||
Name = "CMDRENUNT1", ;
|
||||
Top = 403
|
||||
*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
||||
Left = 253, ;
|
||||
Name = "CMDTERMIN1", ;
|
||||
Top = 403
|
||||
*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Label11' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Durata de amortizare", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label11", ;
|
||||
TabIndex = 4, ;
|
||||
Top = 236, ;
|
||||
Width = 123, ;
|
||||
ZOrderSet = 22
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label12' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Uzura", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label12", ;
|
||||
TabIndex = 6, ;
|
||||
Top = 259, ;
|
||||
Width = 36, ;
|
||||
ZOrderSet = 24
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label13' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Tip de amortizare", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label13", ;
|
||||
TabIndex = 8, ;
|
||||
Top = 284, ;
|
||||
Width = 102, ;
|
||||
ZOrderSet = 26
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label14' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Gestiunea", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label14", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 308, ;
|
||||
Width = 61, ;
|
||||
ZOrderSet = 28
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label15' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Responsabil", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label15", ;
|
||||
TabIndex = 12, ;
|
||||
Top = 333, ;
|
||||
Width = 73, ;
|
||||
ZOrderSet = 30
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label16' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Caracteristici", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 31, ;
|
||||
Name = "Label16", ;
|
||||
TabIndex = 14, ;
|
||||
Top = 357, ;
|
||||
Width = 78, ;
|
||||
ZOrderSet = 32
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label17' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Nr. inventar", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label17", ;
|
||||
TabIndex = 17, ;
|
||||
Top = 212, ;
|
||||
Width = 67, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Fisa mijlocului fix", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 19, ;
|
||||
Left = 28, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 5, ;
|
||||
Top = 11, ;
|
||||
Width = 167, ;
|
||||
ZOrderSet = 6
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Nr. document achizitie", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 7, ;
|
||||
Top = 42, ;
|
||||
Width = 132, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Data document achizitie", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 9, ;
|
||||
Top = 67, ;
|
||||
Width = 142, ;
|
||||
ZOrderSet = 10
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Denumire ", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 11, ;
|
||||
Top = 91, ;
|
||||
Width = 61, ;
|
||||
ZOrderSet = 12
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label6' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Valoare de achizitie", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label6", ;
|
||||
TabIndex = 13, ;
|
||||
Top = 116, ;
|
||||
Width = 116, ;
|
||||
ZOrderSet = 14
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label7' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Data punerii in functiune", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label7", ;
|
||||
TabIndex = 15, ;
|
||||
Top = 140, ;
|
||||
Width = 141, ;
|
||||
ZOrderSet = 16
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label8' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Nr. p.i.f.", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label8", ;
|
||||
TabIndex = 16, ;
|
||||
Top = 165, ;
|
||||
Width = 48, ;
|
||||
ZOrderSet = 18
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label9' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Cod", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 30, ;
|
||||
Name = "Label9", ;
|
||||
TabIndex = 18, ;
|
||||
Top = 189, ;
|
||||
Width = 25, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Shape2' AS shape WITH ;
|
||||
Height = 372, ;
|
||||
Left = 12, ;
|
||||
Name = "Shape2", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 17, ;
|
||||
Width = 360, ;
|
||||
ZOrderSet = 5
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.nract", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 20, ;
|
||||
Top = 40, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 7
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text10' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.tipamort", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text10", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 30, ;
|
||||
Top = 282, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 25
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text11' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.NUMEgest", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text11", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 31, ;
|
||||
Top = 306, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 27
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text12' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.respons", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text12", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 32, ;
|
||||
Top = 331, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 29
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text13' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.caract", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text13", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 33, ;
|
||||
Top = 355, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 31
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text14' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.nrinv", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text14", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 27, ;
|
||||
Top = 210, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 19
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.dataact", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 21, ;
|
||||
Top = 65, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 9
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.denumire", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text3", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 22, ;
|
||||
Top = 89, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 11
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text4' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.valoare", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text4", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 23, ;
|
||||
Top = 114, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 13
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text5' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.datapif", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text5", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 24, ;
|
||||
Top = 138, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 15
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text6' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.nrpif", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text6", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 25, ;
|
||||
Top = 163, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 17
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text7' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.codmf", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text7", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 26, ;
|
||||
Top = 187, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 19
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text8' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.normat", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text8", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 28, ;
|
||||
Top = 234, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 21
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text9' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.uzura", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 172, ;
|
||||
Name = "Text9", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 29, ;
|
||||
Top = 257, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 23
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Text11.GotFocus
|
||||
thisform.cmdtermin1.enabled=.f.
|
||||
thisform.cmdrenunt1.enabled=.f.
|
||||
thisform.cmdlist1.enabled=.f.
|
||||
DO CAUT_ALF 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_ALF 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
|
||||
|
||||
ENDDEFINE
|
||||
44
Ferestre/Vechi/FUNDALMF.sc2
Normal file
44
Ferestre/Vechi/FUNDALMF.sc2
Normal file
@@ -0,0 +1,44 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="fundalmf.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen1 AS ffergen OF "..\..\contab\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
AutoCenter = .T.
|
||||
DoCreate = .T.
|
||||
Height = 593
|
||||
Name = "Ffergen1"
|
||||
Picture = ..\..\contab\grafice\pozafundal.bmp
|
||||
Visible = .F.
|
||||
Width = 793
|
||||
WindowState = 2
|
||||
WindowType = 0
|
||||
Line1.Name = "Line1"
|
||||
*</PropValue>
|
||||
|
||||
PROCEDURE Activate
|
||||
DO MFIX2000.MPR
|
||||
do totvMF
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
public v
|
||||
v=''
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
858
Ferestre/Vechi/INTROD.sc2
Normal file
858
Ferestre/Vechi/INTROD.sc2
Normal file
@@ -0,0 +1,858 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="introd.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" 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="Label10" 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="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="Text14" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text7" 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="Text10" 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="Text13" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
DoCreate = .T.
|
||||
Height = 480
|
||||
Name = "Ffergen1"
|
||||
Width = 721
|
||||
WindowState = 0
|
||||
Line1.Left = 0
|
||||
Line1.Name = "Line1"
|
||||
Line1.Top = 472
|
||||
Line1.ZOrderSet = 1
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
|
||||
Enabled = .F., ;
|
||||
Left = 408, ;
|
||||
Name = "Cmdlist1", ;
|
||||
TabIndex = 36, ;
|
||||
Top = 435, ;
|
||||
Width = 90
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
|
||||
Left = 505, ;
|
||||
Name = "CMDRENUNT1", ;
|
||||
TabIndex = 35, ;
|
||||
Top = 435, ;
|
||||
Width = 90
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
||||
Left = 600, ;
|
||||
Name = "CMDTERMIN1", ;
|
||||
TabIndex = 34, ;
|
||||
Top = 435, ;
|
||||
Width = 90, ;
|
||||
ZOrderSet = 34
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Grid1' AS grid WITH ;
|
||||
BackColor = 192,192,192, ;
|
||||
ColumnCount = 4, ;
|
||||
DeleteMark = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
GridLines = 0, ;
|
||||
Height = 336, ;
|
||||
Left = 24, ;
|
||||
Name = "Grid1", ;
|
||||
Panel = 1, ;
|
||||
ReadOnly = .T., ;
|
||||
RecordSource = "actcs", ;
|
||||
TabIndex = 19, ;
|
||||
Top = 69, ;
|
||||
View = 0, ;
|
||||
Width = 300, ;
|
||||
ZOrderSet = 4, ;
|
||||
Column1.BackColor = 192,192,192, ;
|
||||
Column1.ControlSource = "nract", ;
|
||||
Column1.FontName = "Arial Narrow", ;
|
||||
Column1.Name = "Column1", ;
|
||||
Column1.ReadOnly = .T., ;
|
||||
Column1.Width = 59, ;
|
||||
Column2.BackColor = 192,192,192, ;
|
||||
Column2.ControlSource = "dataact", ;
|
||||
Column2.FontName = "Arial Narrow", ;
|
||||
Column2.Name = "Column2", ;
|
||||
Column2.ReadOnly = .T., ;
|
||||
Column2.Width = 61, ;
|
||||
Column3.BackColor = 192,192,192, ;
|
||||
Column3.ColumnOrder = 4, ;
|
||||
Column3.ControlSource = "nume", ;
|
||||
Column3.FontName = "Arial Narrow", ;
|
||||
Column3.Name = "Column3", ;
|
||||
Column3.ReadOnly = .T., ;
|
||||
Column3.Width = 123, ;
|
||||
Column4.BackColor = 192,192,192, ;
|
||||
Column4.ColumnOrder = 3, ;
|
||||
Column4.ControlSource = "explicatia", ;
|
||||
Column4.FontName = "Arial Narrow", ;
|
||||
Column4.Name = "Column4", ;
|
||||
Column4.ReadOnly = .T., ;
|
||||
Column4.Width = 148
|
||||
*< 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 = 192,192,192, ;
|
||||
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 = 192,192,192, ;
|
||||
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 = 192,192,192, ;
|
||||
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 = 192,192,192, ;
|
||||
BorderStyle = 0, ;
|
||||
FontName = "Arial Narrow", ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Lista documentelor de achizitie", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 19, ;
|
||||
Left = 24, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 3, ;
|
||||
Top = 39, ;
|
||||
Width = 287, ;
|
||||
ZOrderSet = 3
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label10' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "INTRODUCERE MIJLOACE FIXE in luna", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 255,255,255, ;
|
||||
Height = 19, ;
|
||||
Left = 11, ;
|
||||
Name = "Label10", ;
|
||||
TabIndex = 2, ;
|
||||
Top = 8, ;
|
||||
Width = 386, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label11' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Durata de amortizare", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label11", ;
|
||||
TabIndex = 4, ;
|
||||
Top = 264, ;
|
||||
Width = 123, ;
|
||||
ZOrderSet = 22
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label12' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Uzura", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label12", ;
|
||||
TabIndex = 6, ;
|
||||
Top = 287, ;
|
||||
Width = 36, ;
|
||||
ZOrderSet = 24
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label13' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Tip de amortizare", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label13", ;
|
||||
TabIndex = 8, ;
|
||||
Top = 312, ;
|
||||
Width = 102, ;
|
||||
ZOrderSet = 26
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label14' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Gestiunea", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label14", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 336, ;
|
||||
Width = 61, ;
|
||||
ZOrderSet = 28
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label15' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Responsabil", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label15", ;
|
||||
TabIndex = 12, ;
|
||||
Top = 361, ;
|
||||
Width = 73, ;
|
||||
ZOrderSet = 30
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label16' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Caracteristici", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 367, ;
|
||||
Name = "Label16", ;
|
||||
TabIndex = 14, ;
|
||||
Top = 385, ;
|
||||
Width = 78, ;
|
||||
ZOrderSet = 32
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label17' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Nr. inventar", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label17", ;
|
||||
TabIndex = 17, ;
|
||||
Top = 240, ;
|
||||
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 = 19, ;
|
||||
Left = 19, ;
|
||||
Name = "Label18", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 15, ;
|
||||
Width = 2, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Fisa mijlocului fix", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 19, ;
|
||||
Left = 364, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 5, ;
|
||||
Top = 39, ;
|
||||
Width = 167, ;
|
||||
ZOrderSet = 6
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Nr. document achizitie", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 7, ;
|
||||
Top = 70, ;
|
||||
Width = 132, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Data document achizitie", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 9, ;
|
||||
Top = 95, ;
|
||||
Width = 142, ;
|
||||
ZOrderSet = 10
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Denumire ", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 11, ;
|
||||
Top = 119, ;
|
||||
Width = 61, ;
|
||||
ZOrderSet = 12
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label6' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Valoare de achizitie", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label6", ;
|
||||
TabIndex = 13, ;
|
||||
Top = 144, ;
|
||||
Width = 116, ;
|
||||
ZOrderSet = 14
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label7' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Data punerii in functiune", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label7", ;
|
||||
TabIndex = 15, ;
|
||||
Top = 168, ;
|
||||
Width = 141, ;
|
||||
ZOrderSet = 16
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label8' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Nr. p.i.f.", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label8", ;
|
||||
TabIndex = 16, ;
|
||||
Top = 193, ;
|
||||
Width = 48, ;
|
||||
ZOrderSet = 18
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label9' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Cod", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 366, ;
|
||||
Name = "Label9", ;
|
||||
TabIndex = 18, ;
|
||||
Top = 217, ;
|
||||
Width = 25, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||
Height = 372, ;
|
||||
Left = 12, ;
|
||||
Name = "Shape1", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 45, ;
|
||||
Width = 324, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Shape2' AS shape WITH ;
|
||||
Height = 372, ;
|
||||
Left = 348, ;
|
||||
Name = "Shape2", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 45, ;
|
||||
Width = 360, ;
|
||||
ZOrderSet = 5
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Shape3' AS shape WITH ;
|
||||
Height = 48, ;
|
||||
Left = 12, ;
|
||||
Name = "Shape3", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 424, ;
|
||||
Width = 696, ;
|
||||
ZOrderSet = 33
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.nract", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 20, ;
|
||||
Top = 68, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 7
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text10' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.tipamort", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text10", ;
|
||||
TabIndex = 30, ;
|
||||
Top = 310, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 25
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text11' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.NUMEgest", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text11", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 31, ;
|
||||
Top = 334, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 27
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text12' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.respons", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text12", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 32, ;
|
||||
Top = 359, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 29
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text13' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.caract", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text13", ;
|
||||
TabIndex = 33, ;
|
||||
Top = 383, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 31
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text14' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.nrinv", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text14", ;
|
||||
TabIndex = 27, ;
|
||||
Top = 238, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 19
|
||||
*< 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 = 404, ;
|
||||
Name = "Text16", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 37, ;
|
||||
Top = 6, ;
|
||||
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 = 446, ;
|
||||
Name = "Text17", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 38, ;
|
||||
Top = 6, ;
|
||||
Width = 80
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.dataact", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 21, ;
|
||||
Top = 93, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 9
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.denumire", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text3", ;
|
||||
TabIndex = 22, ;
|
||||
Top = 117, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 11
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text4' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.valoare", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text4", ;
|
||||
TabIndex = 23, ;
|
||||
Top = 142, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 13
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text5' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.datapif", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text5", ;
|
||||
TabIndex = 24, ;
|
||||
Top = 166, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 15
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text6' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.nrpif", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text6", ;
|
||||
TabIndex = 25, ;
|
||||
Top = 191, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 17
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text7' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.codmf", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text7", ;
|
||||
TabIndex = 26, ;
|
||||
Top = 215, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 19
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text8' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.normat", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text8", ;
|
||||
TabIndex = 28, ;
|
||||
Top = 262, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 21
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text9' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.uzura", ;
|
||||
Enabled = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 508, ;
|
||||
Name = "Text9", ;
|
||||
TabIndex = 29, ;
|
||||
Top = 285, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 23
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Init
|
||||
sele act
|
||||
set filter to left(scc,3)='404'
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE CMDTERMIN1.Valid
|
||||
sele mf
|
||||
appe blank
|
||||
gather memvar
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Grid1.AfterRowColChange
|
||||
LPARAMETERS nColIndex
|
||||
local i,t
|
||||
|
||||
sele actcs
|
||||
scatter memvar
|
||||
for i=1 to 14
|
||||
t='thisform.text'+alltrim(str(i))+'.enabled=.t.'
|
||||
&t
|
||||
next
|
||||
|
||||
M.DENUMIRE=M.EXPLICATIA
|
||||
thisform.text1.refresh
|
||||
thisform.text2.refresh
|
||||
thisform.text3.refresh
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text11.GotFocus
|
||||
thisform.cmdtermin1.enabled=.f.
|
||||
thisform.cmdrenunt1.enabled=.f.
|
||||
thisform.cmdlist1.enabled=.f.
|
||||
DO CAUT_ALF 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_ALF 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
|
||||
|
||||
ENDDEFINE
|
||||
92
Ferestre/Vechi/QCKSTART.sc2
Normal file
92
Ferestre/Vechi/QCKSTART.sc2
Normal file
@@ -0,0 +1,92 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="qckstart.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS wzquickstartform AS wzquickstartform OF "..\..\vfp\wizards\appwiz.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
DoCreate = .T.
|
||||
Name = "wzquickstartform"
|
||||
WindowType = 1
|
||||
Image2.Height = 58
|
||||
Image2.Name = "Image2"
|
||||
Image2.Width = 52
|
||||
Image4.Height = 58
|
||||
Image4.Name = "Image4"
|
||||
Image4.Width = 52
|
||||
Image6.Height = 58
|
||||
Image6.Name = "Image6"
|
||||
Image6.Width = 52
|
||||
Image7.Height = 58
|
||||
Image7.Name = "Image7"
|
||||
Image7.Width = 52
|
||||
Image1.Height = 58
|
||||
Image1.Name = "Image1"
|
||||
Image1.Width = 52
|
||||
Image3.Height = 58
|
||||
Image3.Name = "Image3"
|
||||
Image3.Width = 52
|
||||
Image5.Height = 58
|
||||
Image5.Name = "Image5"
|
||||
Image5.Width = 52
|
||||
Image8.Height = 58
|
||||
Image8.Name = "Image8"
|
||||
Image8.Width = 52
|
||||
Image9.Height = 58
|
||||
Image9.Name = "Image9"
|
||||
Image9.Width = 52
|
||||
Image12.Height = 58
|
||||
Image12.Name = "Image12"
|
||||
Image12.Width = 52
|
||||
Image13.Height = 58
|
||||
Image13.Name = "Image13"
|
||||
Image13.Width = 52
|
||||
Image16.Height = 58
|
||||
Image16.Name = "Image16"
|
||||
Image16.Width = 52
|
||||
Image17.Height = 58
|
||||
Image17.Name = "Image17"
|
||||
Image17.Width = 52
|
||||
Image20.Height = 58
|
||||
Image20.Name = "Image20"
|
||||
Image20.Width = 52
|
||||
Image21.Height = 58
|
||||
Image21.Name = "Image21"
|
||||
Image21.Width = 52
|
||||
Image24.Height = 58
|
||||
Image24.Name = "Image24"
|
||||
Image24.Width = 52
|
||||
Image25.Height = 58
|
||||
Image25.Name = "Image25"
|
||||
Image25.Width = 52
|
||||
Image26.Height = 58
|
||||
Image26.Name = "Image26"
|
||||
Image26.Width = 52
|
||||
Image27.Height = 58
|
||||
Image27.Name = "Image27"
|
||||
Image27.Width = 52
|
||||
Image28.Height = 58
|
||||
Image28.Name = "Image28"
|
||||
Image28.Width = 52
|
||||
Image29.Height = 58
|
||||
Image29.Name = "Image29"
|
||||
Image29.Width = 52
|
||||
lblForms.Name = "lblForms"
|
||||
lstForms.Name = "lstForms"
|
||||
cmdRun.Name = "cmdRun"
|
||||
cmdClose.Name = "cmdClose"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
1112
Ferestre/Vechi/VIZ.sc2
Normal file
1112
Ferestre/Vechi/VIZ.sc2
Normal file
File diff suppressed because it is too large
Load Diff
155
Ferestre/Vechi/about.sc2
Normal file
155
Ferestre/Vechi/about.sc2
Normal file
@@ -0,0 +1,155 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="about.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS wzaboutdialog AS wzaboutdialog OF "..\clase\appwiz.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lb_version" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Image3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*p: dat
|
||||
*p: timp
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BackColor = 255,255,255
|
||||
BorderStyle = 1
|
||||
Closable = .T.
|
||||
ControlBox = .T.
|
||||
DoCreate = .T.
|
||||
HalfHeightCaption = .T.
|
||||
Height = 156
|
||||
Icon = ..\grafice\mfix.ico
|
||||
Name = "wzaboutdialog"
|
||||
Width = 370
|
||||
Shape1.BackStyle = 0
|
||||
Shape1.Height = 135
|
||||
Shape1.Left = 8
|
||||
Shape1.Name = "Shape1"
|
||||
Shape1.Top = 9
|
||||
Shape1.Width = 352
|
||||
Shape2.Name = "Shape2"
|
||||
CMDTERMIN1.Command1.Name = "Command1"
|
||||
CMDTERMIN1.Imbuton1.Height = 27
|
||||
CMDTERMIN1.Imbuton1.Name = "Imbuton1"
|
||||
CMDTERMIN1.Imbuton1.Width = 30
|
||||
CMDTERMIN1.Left = 300
|
||||
CMDTERMIN1.Name = "CMDTERMIN1"
|
||||
CMDTERMIN1.Top = 195
|
||||
Image1.Name = "Image1"
|
||||
Image1.Picture = ..\..\comun\grafice\iconite\imob2003.ico
|
||||
Label2.BackStyle = 0
|
||||
Label2.Name = "Label2"
|
||||
Label1.BackStyle = 0
|
||||
Label1.Caption = "Imob2003"
|
||||
Label1.FontBold = .T.
|
||||
Label1.FontItalic = .T.
|
||||
Label1.FontSize = 12
|
||||
Label1.Left = 168
|
||||
Label1.Name = "Label1"
|
||||
Label1.Top = 27
|
||||
Label3.BackStyle = 0
|
||||
Label3.Name = "Label3"
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Image2' AS image WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 20, ;
|
||||
Left = 25, ;
|
||||
Name = "Image2", ;
|
||||
Picture = ..\..\contab\grafice\siglaromfast.bmp, ;
|
||||
Stretch = 2, ;
|
||||
Top = 108, ;
|
||||
Width = 108
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'Image3' AS image WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 22, ;
|
||||
Left = 265, ;
|
||||
Name = "Image3", ;
|
||||
Picture = ..\grafice\c.ico, ;
|
||||
Stretch = 1, ;
|
||||
Top = 25, ;
|
||||
Width = 13
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Programul ", ;
|
||||
Height = 17, ;
|
||||
Left = 101, ;
|
||||
Name = "Label5", ;
|
||||
Top = 33, ;
|
||||
Width = 67
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lb_version' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Ver.", ;
|
||||
Height = 17, ;
|
||||
Left = 149, ;
|
||||
Name = "lb_version", ;
|
||||
Top = 115, ;
|
||||
Width = 23
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ControlSource = "thisform.dat", ;
|
||||
Height = 20, ;
|
||||
Left = 209, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
TabStop = .F., ;
|
||||
Top = 112, ;
|
||||
Width = 68
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ControlSource = "thisform.timp", ;
|
||||
Height = 20, ;
|
||||
Left = 280, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .T., ;
|
||||
TabStop = .F., ;
|
||||
Top = 112, ;
|
||||
Width = 104
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Init
|
||||
thisform.dat=fdate('&dirgen\IMOB2003\IMOB2003.exe')
|
||||
thisform.timp=ftime('&dirgen\IMOB2003\IMOB2003.exe')
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE lb_version.Init
|
||||
this.Caption = "ver. " + get_version()
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
204
Ferestre/Vechi/contamort.sc2
Normal file
204
Ferestre/Vechi/contamort.sc2
Normal file
@@ -0,0 +1,204 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="contamort.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" 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="Cmdtermin1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Command1" 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.Column3.Combo1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Verif1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
DoCreate = .T.
|
||||
Height = 305
|
||||
Name = "Ffergen1"
|
||||
Width = 284
|
||||
Line1.Name = "Line1"
|
||||
Line1.ZOrderSet = 1
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'BANDA21' AS banda2 WITH ;
|
||||
Height = 30, ;
|
||||
Left = 0, ;
|
||||
Name = "BANDA21", ;
|
||||
Top = 0, ;
|
||||
Width = 217, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
||||
Left = 251, ;
|
||||
Name = "Cmdtermin1", ;
|
||||
Top = 0, ;
|
||||
ZOrderSet = 3, ;
|
||||
IMBUTON1.Height = 27, ;
|
||||
IMBUTON1.Name = "IMBUTON1", ;
|
||||
IMBUTON1.Width = 30, ;
|
||||
COMMAND1.Name = "COMMAND1"
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
||||
Caption = "LINIE NOUA", ;
|
||||
FontBold = .F., ;
|
||||
Height = 27, ;
|
||||
Left = 372, ;
|
||||
Name = "Command1", ;
|
||||
Top = 264, ;
|
||||
Width = 84, ;
|
||||
ZOrderSet = 5
|
||||
*< END OBJECT: BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Gridb1' AS gridb WITH ;
|
||||
ColumnCount = 3, ;
|
||||
Height = 253, ;
|
||||
Left = 11, ;
|
||||
listaord = 1,2,3, ;
|
||||
Name = "Gridb1", ;
|
||||
ordine = 1, ;
|
||||
Panel = 1, ;
|
||||
ReadOnly = .F., ;
|
||||
RecordSource = "contamort", ;
|
||||
Top = 43, ;
|
||||
Width = 262, ;
|
||||
Column1.ControlSource = "cont_imob", ;
|
||||
Column1.Header1.Alignment = 2, ;
|
||||
Column1.Header1.Caption = "Cont imob.", ;
|
||||
Column1.Header1.FontName = "Arial Narrow", ;
|
||||
Column1.Header1.FontSize = 10, ;
|
||||
Column1.Header1.Name = "Header1", ;
|
||||
Column1.Name = "Column1", ;
|
||||
Column1.ReadOnly = .T., ;
|
||||
Column1.Text1.Name = "Text1", ;
|
||||
Column1.Text1.ReadOnly = .T., ;
|
||||
Column1.Width = 66, ;
|
||||
Column2.ControlSource = "cont_amort", ;
|
||||
Column2.Name = "Column2", ;
|
||||
Column2.ReadOnly = .T., ;
|
||||
Column2.Width = 73, ;
|
||||
Column3.ControlSource = "fel_imob", ;
|
||||
Column3.CurrentControl = "Combo1", ;
|
||||
Column3.FontName = "Arial Narrow", ;
|
||||
Column3.FontSize = 9, ;
|
||||
Column3.Name = "Column3", ;
|
||||
Column3.ReadOnly = .T., ;
|
||||
Column3.Sparse = .F., ;
|
||||
Column3.Width = 90
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'Gridb1.Column2.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Cont amort.", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'Gridb1.Column2.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 'Gridb1.Column3.Combo1' AS combobox WITH ;
|
||||
BorderStyle = 0, ;
|
||||
ColumnCount = 2, ;
|
||||
ColumnLines = .F., ;
|
||||
ColumnWidths = "90,0", ;
|
||||
ControlSource = "fel_imob", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 9, ;
|
||||
Height = 24, ;
|
||||
Left = 47, ;
|
||||
Name = "Combo1", ;
|
||||
ReadOnly = .F., ;
|
||||
RowSource = "Corporala,1,Necorporala,2,In curs,3", ;
|
||||
RowSourceType = 1, ;
|
||||
SpecialEffect = 1, ;
|
||||
Style = 2, ;
|
||||
Top = 40, ;
|
||||
Width = 100
|
||||
*< END OBJECT: BaseClass="combobox" />
|
||||
|
||||
ADD OBJECT 'Gridb1.Column3.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Tip imobilizare", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'Gridb1.Column3.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Titlu1' AS titlu WITH ;
|
||||
Caption = "CONTURI DE AMORTIZARE", ;
|
||||
ForeColor = 255,255,255, ;
|
||||
Height = 27, ;
|
||||
Left = 4, ;
|
||||
Name = "Titlu1", ;
|
||||
Top = 7, ;
|
||||
Width = 181, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Verif1' AS verif WITH ;
|
||||
Left = 220, ;
|
||||
Name = "Verif1", ;
|
||||
Top = 0, ;
|
||||
IMBUTON1.Height = 27, ;
|
||||
IMBUTON1.Name = "IMBUTON1", ;
|
||||
IMBUTON1.Width = 30, ;
|
||||
COMMAND1.Name = "COMMAND1", ;
|
||||
COMMAND1.ToolTipText = "Actualizare fisier"
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
||||
|
||||
PROCEDURE Command1.Click
|
||||
SELECT CONTAMORT
|
||||
APPEND BLANK
|
||||
THISFORM.GRIDb1.REFRESH
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Gridb1.Column2.Header1.Click
|
||||
this.Parent.Parent.headerclick(this.Parent.ColumnOrder)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Gridb1.Column3.Header1.Click
|
||||
this.Parent.Parent.headerclick(this.Parent.ColumnOrder)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Verif1.COMMAND1.Click
|
||||
DO ACTUALIZARE_FISIER WITH 'CONTAMORT'
|
||||
THISFORM.Refresh
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
268
Ferestre/Vechi/conversie.sc2
Normal file
268
Ferestre/Vechi/conversie.sc2
Normal file
@@ -0,0 +1,268 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="conversie.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" 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="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="Command1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="NOU1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
DoCreate = .T.
|
||||
Height = 334
|
||||
Name = "Ffergen1"
|
||||
Width = 785
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'BANDA21' AS banda2 WITH ;
|
||||
Height = 30, ;
|
||||
Left = -3, ;
|
||||
Name = "BANDA21", ;
|
||||
Top = 0, ;
|
||||
Width = 816, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
||||
Left = 756, ;
|
||||
Name = "Cmdtermin1", ;
|
||||
Top = 0, ;
|
||||
ZOrderSet = 5, ;
|
||||
IMBUTON1.Height = 27, ;
|
||||
IMBUTON1.Name = "IMBUTON1", ;
|
||||
IMBUTON1.Width = 30, ;
|
||||
COMMAND1.Name = "COMMAND1"
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
||||
Caption = "LINIE NOUA", ;
|
||||
FontBold = .F., ;
|
||||
Height = 27, ;
|
||||
Left = 624, ;
|
||||
Name = "Command1", ;
|
||||
Top = 276, ;
|
||||
Visible = .F., ;
|
||||
Width = 84, ;
|
||||
WordWrap = .F., ;
|
||||
ZOrderSet = 4
|
||||
*< END OBJECT: BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
||||
Caption = "CONVERSIE !", ;
|
||||
FontBold = .T., ;
|
||||
ForeColor = 128,128,255, ;
|
||||
Height = 27, ;
|
||||
Left = 556, ;
|
||||
Name = "Command2", ;
|
||||
Top = 2, ;
|
||||
Width = 84, ;
|
||||
ZOrderSet = 6
|
||||
*< END OBJECT: BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Command3' AS commandbutton WITH ;
|
||||
Caption = "REVENIRE!", ;
|
||||
FontBold = .T., ;
|
||||
ForeColor = 255,128,64, ;
|
||||
Height = 27, ;
|
||||
Left = 641, ;
|
||||
Name = "Command3", ;
|
||||
Top = 2, ;
|
||||
Width = 84, ;
|
||||
ZOrderSet = 7
|
||||
*< END OBJECT: BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Grid1' AS grid WITH ;
|
||||
ColumnCount = 4, ;
|
||||
Height = 276, ;
|
||||
Left = 11, ;
|
||||
Name = "Grid1", ;
|
||||
Panel = 1, ;
|
||||
RecordSource = "CONVERSIE", ;
|
||||
Top = 48, ;
|
||||
Width = 769, ;
|
||||
ZOrderSet = 3, ;
|
||||
Column1.ControlSource = "cont2001", ;
|
||||
Column1.Name = "Column1", ;
|
||||
Column1.Width = 45, ;
|
||||
Column2.ControlSource = "denum2001", ;
|
||||
Column2.Name = "Column2", ;
|
||||
Column2.Width = 317, ;
|
||||
Column3.ControlSource = "cont2002", ;
|
||||
Column3.Name = "Column3", ;
|
||||
Column3.Width = 51, ;
|
||||
Column4.ControlSource = "denum2002", ;
|
||||
Column4.Name = "Column4", ;
|
||||
Column4.Width = 312
|
||||
*< END OBJECT: BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
||||
Caption = "Cont 1", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
|
||||
Caption = "Denumire 1", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
|
||||
Caption = "Cont 2", ;
|
||||
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"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column4.Header1' AS header WITH ;
|
||||
Caption = "Denumire 2", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'NOU1' AS nou WITH ;
|
||||
Left = 725, ;
|
||||
Name = "NOU1", ;
|
||||
Top = 0, ;
|
||||
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 = "OPTIUNI DE CONVERSIE", ;
|
||||
FontSize = 10, ;
|
||||
Left = 10, ;
|
||||
Name = "Titlu1", ;
|
||||
Top = 4, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="label" />
|
||||
|
||||
PROCEDURE Load
|
||||
If !File('&CALEFIRMA\DATEAN\CONVERSIE.DBF')
|
||||
Copy File &gcAppPath\Date\Datean\CONVERSIE.* To &CALEFIRMA\DATEAN\CONVERSIE.Dbf
|
||||
Endif
|
||||
|
||||
Use &CALEFIRMA\DATEAN\CONVERSIE.Dbf In 0 Alias CONVERSIE
|
||||
Select CONVERSIE
|
||||
Set Filter To Inlist(Val(Left(CONT2002,2)),20,21)
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Release
|
||||
USE IN CONVERSIE
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Command1.Click
|
||||
SELECT CONVERSIE
|
||||
APPEND BLANK
|
||||
REPLACE CONT2001 WITH '2'
|
||||
THISFORM.GRID1.REFRESH
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Command2.Click
|
||||
Select Distinct CONT2001 As CONT_VECHI,CONT2002 As CONT_NOU From CONVERSIE Into Cursor FFF
|
||||
Local M.CONT_NOU,M.CONT_VECHI
|
||||
Store '' To M.CONT_NOU,M.CONT_VECHI
|
||||
|
||||
Select FFF
|
||||
Scan
|
||||
Scatter Memv
|
||||
|
||||
Select MF
|
||||
If Flock()
|
||||
Replace All SCD With M.CONT_NOU For SCD=M.CONT_VECHI
|
||||
Endif
|
||||
Unlock
|
||||
|
||||
Select FFF
|
||||
Endscan
|
||||
|
||||
Do MESAJ With 'CONVERSIA S-A INCHEIAT',''
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Command3.Click
|
||||
SELECT DISTINCT CONT2001 AS CONT_VECHI,CONT2002 AS CONT_NOU FROM CONVERSIE INTO CURSOR FFF
|
||||
LOCAL M.CONT_NOU,M.CONT_VECHI
|
||||
STORE '' TO M.CONT_NOU,M.CONT_VECHI
|
||||
|
||||
SELECT FFF
|
||||
SCAN
|
||||
SCATTER MEMV
|
||||
|
||||
SELECT MF
|
||||
IF FLOCK()
|
||||
REPLACE ALL SCD WITH M.CONT_VECHI FOR SCD=M.CONT_NOU
|
||||
ENDIF
|
||||
UNLOCK
|
||||
|
||||
SELECT FFF
|
||||
ENDSCAN
|
||||
|
||||
DO MESAJ WITH 'CONVERSIA S-A INCHEIAT',''
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE NOU1.COMMAND1.Click
|
||||
thisform.comMAND1.Click
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
266
Ferestre/Vechi/conversie_2005.sc2
Normal file
266
Ferestre/Vechi/conversie_2005.sc2
Normal file
@@ -0,0 +1,266 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="conversie_2005.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" 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="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="Command2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
DoCreate = .T.
|
||||
Height = 334
|
||||
Name = "Ffergen1"
|
||||
Width = 785
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'BANDA21' AS banda2 WITH ;
|
||||
Height = 30, ;
|
||||
Left = -3, ;
|
||||
Name = "BANDA21", ;
|
||||
Top = 0, ;
|
||||
Width = 816, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
||||
Left = 756, ;
|
||||
Name = "Cmdtermin1", ;
|
||||
Top = 0, ;
|
||||
ZOrderSet = 5, ;
|
||||
IMBUTON1.Height = 27, ;
|
||||
IMBUTON1.Name = "IMBUTON1", ;
|
||||
IMBUTON1.Width = 30, ;
|
||||
COMMAND1.Name = "COMMAND1"
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
||||
Caption = "CONVERSIE !", ;
|
||||
FontBold = .T., ;
|
||||
ForeColor = 128,128,255, ;
|
||||
Height = 27, ;
|
||||
Left = 556, ;
|
||||
Name = "Command2", ;
|
||||
Top = 2, ;
|
||||
Width = 84, ;
|
||||
ZOrderSet = 6
|
||||
*< END OBJECT: BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Command3' AS commandbutton WITH ;
|
||||
Caption = "REVENIRE!", ;
|
||||
FontBold = .T., ;
|
||||
ForeColor = 255,128,64, ;
|
||||
Height = 27, ;
|
||||
Left = 641, ;
|
||||
Name = "Command3", ;
|
||||
Top = 2, ;
|
||||
Width = 84, ;
|
||||
ZOrderSet = 7
|
||||
*< END OBJECT: BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Grid1' AS grid WITH ;
|
||||
ColumnCount = 4, ;
|
||||
DeleteMark = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 276, ;
|
||||
Left = 11, ;
|
||||
Name = "Grid1", ;
|
||||
Panel = 1, ;
|
||||
RecordMark = .F., ;
|
||||
RecordSource = "CONVERSIE_2005", ;
|
||||
Top = 48, ;
|
||||
Width = 769, ;
|
||||
ZOrderSet = 3, ;
|
||||
Column1.ControlSource = "cod_vechi", ;
|
||||
Column1.FontName = "Arial Narrow", ;
|
||||
Column1.Name = "Column1", ;
|
||||
Column1.Width = 58, ;
|
||||
Column2.ControlSource = "text_vechi", ;
|
||||
Column2.FontName = "Arial Narrow", ;
|
||||
Column2.Name = "Column2", ;
|
||||
Column2.Width = 317, ;
|
||||
Column3.ControlSource = "cod_nou", ;
|
||||
Column3.FontName = "Arial Narrow", ;
|
||||
Column3.Name = "Column3", ;
|
||||
Column3.Width = 51, ;
|
||||
Column4.ControlSource = "text_nou", ;
|
||||
Column4.FontName = "Arial Narrow", ;
|
||||
Column4.Name = "Column4", ;
|
||||
Column4.Width = 312
|
||||
*< END OBJECT: BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Cod vechi", ;
|
||||
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"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Denumire cod vechi", ;
|
||||
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"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Cod nou", ;
|
||||
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"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column4.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Denumire cod nou", ;
|
||||
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 'Titlu1' AS titlu WITH ;
|
||||
Caption = "CONVERSIE CODURI", ;
|
||||
FontSize = 10, ;
|
||||
Left = 10, ;
|
||||
Name = "Titlu1", ;
|
||||
Top = 4, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="label" />
|
||||
|
||||
PROCEDURE Load
|
||||
*!* IF !FILE('&CALEFIRMA\DATEAN\CONVERSIE_2005.DBF')
|
||||
*!* COPY FILE &DIRGEN\imob2005\DATE\CONVERSIE_2005.dbf TO &CALEFIRMA\DATEAN\CONVERSIE_2005.DBF
|
||||
*!* ENDIF
|
||||
|
||||
*!* USE &CALEFIRMA\DATEAN\CONVERSIE_2005.DBF IN 0 ALIAS CONVERSIE_2005
|
||||
*!* SELECT CONVERSIE_2005
|
||||
*!* GO TOP
|
||||
|
||||
USE &gcAppPath\DATE\datean\CONVERSIE_2005.DBF IN 0 ALIAS CONVERSIE_2005 SHARED
|
||||
SELECT CONVERSIE_2005
|
||||
GO TOP
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Release
|
||||
USE IN CONVERSIE_2005
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Command2.Click
|
||||
LOCAL lcCod_vechi, lcCod_nou
|
||||
STORE "" TO lcCod_vechi, lcCod_nou
|
||||
|
||||
Select Distinct cod_vechi, cod_nou From conversie_2005 Into Cursor cConversie
|
||||
|
||||
Select cConversie
|
||||
Scan
|
||||
lcCod_vechi = cod_vechi
|
||||
lcCod_nou = cod_nou
|
||||
|
||||
Select mf
|
||||
If Flock()
|
||||
Replace All codmf With lcCod_nou For codmf = lcCod_vechi AND !inactiv
|
||||
Endif
|
||||
Unlock
|
||||
|
||||
Select cConversie
|
||||
Endscan
|
||||
|
||||
IF USED("cConversie")
|
||||
USE IN cConversie
|
||||
ENDIF
|
||||
|
||||
Do mesaj With 'CONVERSIA S-A INCHEIAT',''
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Command3.Click
|
||||
LOCAL lcCod_vechi, lcCod_nou
|
||||
STORE "" TO lcCod_vechi, lcCod_nou
|
||||
|
||||
Select Distinct cod_vechi, cod_nou From conversie_2005 Into Cursor cConversie
|
||||
|
||||
Select cConversie
|
||||
Scan
|
||||
Scatter Memv
|
||||
lcCod_vechi = cod_vechi
|
||||
lcCod_nou = cod_nou
|
||||
|
||||
Select mf
|
||||
If Flock()
|
||||
Replace All codmf With lcCod_vechi For codmf = lcCod_nou
|
||||
Endif
|
||||
Unlock
|
||||
|
||||
Select cConversie
|
||||
Endscan
|
||||
|
||||
IF USED("cConversie")
|
||||
USE IN cConversie
|
||||
ENDIF
|
||||
|
||||
Do mesaj With 'CONVERSIA S-A INCHEIAT',''
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
328
Ferestre/Vechi/frm_calcul.sc2
Normal file
328
Ferestre/Vechi/frm_calcul.sc2
Normal file
@@ -0,0 +1,328 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_calcul.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*p: valoare
|
||||
*p: valram
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BackColor = 192,192,192
|
||||
BorderStyle = 1
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Height = 279
|
||||
Name = "FORMTERMIN12"
|
||||
valoare = 0
|
||||
valram = 0
|
||||
Width = 411
|
||||
SHAPE1.Height = 35
|
||||
SHAPE1.Left = 0
|
||||
SHAPE1.Name = "SHAPE1"
|
||||
SHAPE1.Top = 0
|
||||
SHAPE1.Width = 360
|
||||
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
||||
TERMINAT1.IMBUTON1.Height = 27
|
||||
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
||||
TERMINAT1.IMBUTON1.Width = 30
|
||||
TERMINAT1.Left = 368
|
||||
TERMINAT1.Name = "TERMINAT1"
|
||||
TERMINAT1.TabIndex = 5
|
||||
TERMINAT1.Top = 3
|
||||
TITLUFRUMOS1.Caption = "Calculul amortizarii"
|
||||
TITLUFRUMOS1.Height = 32
|
||||
TITLUFRUMOS1.Left = 7
|
||||
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
||||
TITLUFRUMOS1.TabIndex = 8
|
||||
TITLUFRUMOS1.Top = 5
|
||||
TITLUFRUMOS1.Width = 184
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de calcul Vc =", ;
|
||||
Height = 17, ;
|
||||
Left = 146, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 98, ;
|
||||
Width = 129
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label10' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea reziduala Vrez =", ;
|
||||
Height = 17, ;
|
||||
Left = 135, ;
|
||||
Name = "Label10", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 73, ;
|
||||
Width = 140
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Cota c = 100 / DNSc =", ;
|
||||
Height = 17, ;
|
||||
Left = 153, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 175, ;
|
||||
Width = 122
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Amortizment lunar A = c x Vc =", ;
|
||||
Height = 17, ;
|
||||
Left = 111, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 201, ;
|
||||
Width = 164
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Durata de calcul DNSc =", ;
|
||||
Height = 17, ;
|
||||
Left = 139, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 148, ;
|
||||
Width = 136
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "%", ;
|
||||
Height = 17, ;
|
||||
Left = 397, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 173, ;
|
||||
Width = 13
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label6' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de intrare Vi =", ;
|
||||
Height = 17, ;
|
||||
Left = 146, ;
|
||||
Name = "Label6", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 48, ;
|
||||
Width = 129
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label7' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Total amortizare precedenta Ap =", ;
|
||||
Height = 17, ;
|
||||
Left = 93, ;
|
||||
Name = "Label7", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 123, ;
|
||||
Width = 182
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label8' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea ramasa de amortizat Vr = Vi - Vrez - At =", ;
|
||||
Height = 17, ;
|
||||
Left = 7, ;
|
||||
Name = "Label8", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 248, ;
|
||||
Width = 267
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label9' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Total amortizare At = Ap + A =", ;
|
||||
Height = 17, ;
|
||||
Left = 114, ;
|
||||
Name = "Label9", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 226, ;
|
||||
Width = 160
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
ControlSource = "m.valramasa", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 95, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
ControlSource = "m.normat2", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 280, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 145, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
ControlSource = "m.cota", ;
|
||||
Format = "r", ;
|
||||
Height = 23, ;
|
||||
InputMask = "9999.99", ;
|
||||
Left = 280, ;
|
||||
Name = "Text3", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 170, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text4' AS textbox WITH ;
|
||||
ControlSource = "m.amortlun", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text4", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 195, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text5' AS textbox WITH ;
|
||||
ControlSource = "thisform.valram", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text5", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 245, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text6' AS textbox WITH ;
|
||||
ControlSource = "m.valin", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text6", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 45, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text7' AS textbox WITH ;
|
||||
ControlSource = "m.amortprec", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text7", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 120, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text8' AS textbox WITH ;
|
||||
ControlSource = "m.amorttot", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text8", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 220, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text9' AS textbox WITH ;
|
||||
ControlSource = "m.valrez", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text9", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 70, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Load
|
||||
thisform.valram=m.valin-m.amorttot-m.valrez
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
589
Ferestre/Vechi/frm_calcul_reevaluare.sc2
Normal file
589
Ferestre/Vechi/frm_calcul_reevaluare.sc2
Normal file
@@ -0,0 +1,589 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_calcul_reevaluare.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: avertizare
|
||||
*m: calcul_dr
|
||||
*p: normat2lun
|
||||
*p: uzura
|
||||
*p: valoare
|
||||
*p: valram
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Height = 339
|
||||
Name = "FORMTERMIN12"
|
||||
normat2lun = 0
|
||||
uzura = 0
|
||||
valoare = 0
|
||||
valram = 0
|
||||
Width = 355
|
||||
SHAPE1.Height = 35
|
||||
SHAPE1.Left = 0
|
||||
SHAPE1.Name = "SHAPE1"
|
||||
SHAPE1.Top = 0
|
||||
SHAPE1.Width = 291
|
||||
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
||||
TERMINAT1.IMBUTON1.Height = 27
|
||||
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
||||
TERMINAT1.IMBUTON1.Width = 30
|
||||
TERMINAT1.Left = 323
|
||||
TERMINAT1.Name = "TERMINAT1"
|
||||
TERMINAT1.TabIndex = 9
|
||||
TERMINAT1.Top = 3
|
||||
TITLUFRUMOS1.Caption = "Calcul reevaluare"
|
||||
TITLUFRUMOS1.Height = 32
|
||||
TITLUFRUMOS1.Left = 7
|
||||
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
||||
TITLUFRUMOS1.TabIndex = 15
|
||||
TITLUFRUMOS1.Top = 5
|
||||
TITLUFRUMOS1.Width = 184
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Uzura precedenta MF", ;
|
||||
Height = 17, ;
|
||||
Left = 20, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 27, ;
|
||||
Top = 129, ;
|
||||
Visible = .F., ;
|
||||
Width = 118
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label10' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "luni", ;
|
||||
Height = 17, ;
|
||||
Left = 323, ;
|
||||
Name = "Label10", ;
|
||||
TabIndex = 22, ;
|
||||
Top = 276, ;
|
||||
Visible = .T., ;
|
||||
Width = 22
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label11' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "DNS de calcul actual", ;
|
||||
Height = 17, ;
|
||||
Left = 19, ;
|
||||
Name = "Label11", ;
|
||||
TabIndex = 23, ;
|
||||
Top = 185, ;
|
||||
Visible = .T., ;
|
||||
Width = 116
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label12' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "ani=", ;
|
||||
Height = 17, ;
|
||||
Left = 251, ;
|
||||
Name = "Label12", ;
|
||||
TabIndex = 19, ;
|
||||
Top = 183, ;
|
||||
Visible = .T., ;
|
||||
Width = 26
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label13' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "luni", ;
|
||||
Height = 17, ;
|
||||
Left = 323, ;
|
||||
Name = "Label13", ;
|
||||
TabIndex = 16, ;
|
||||
Top = 184, ;
|
||||
Visible = .T., ;
|
||||
Width = 22
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label14' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Uzura la data reevaluarii", ;
|
||||
Height = 17, ;
|
||||
Left = 19, ;
|
||||
Name = "Label14", ;
|
||||
TabIndex = 24, ;
|
||||
Top = 211, ;
|
||||
Visible = .T., ;
|
||||
Width = 134
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label15' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "luni", ;
|
||||
Height = 17, ;
|
||||
Left = 323, ;
|
||||
Name = "Label15", ;
|
||||
TabIndex = 20, ;
|
||||
Top = 210, ;
|
||||
Visible = .T., ;
|
||||
Width = 22
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea adaugata (majorare)", ;
|
||||
Height = 17, ;
|
||||
Left = 19, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 29, ;
|
||||
Top = 237, ;
|
||||
Visible = .F., ;
|
||||
Width = 167
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Noua valuare de calcul", ;
|
||||
Height = 17, ;
|
||||
Left = 19, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 30, ;
|
||||
Top = 302, ;
|
||||
Visible = .T., ;
|
||||
Width = 127
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Amortizare reevaluata", ;
|
||||
FontShadow = .F., ;
|
||||
Height = 17, ;
|
||||
Left = 19, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 18, ;
|
||||
Top = 74, ;
|
||||
Visible = .T., ;
|
||||
Width = 120
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Data reevaluare", ;
|
||||
Height = 17, ;
|
||||
Left = 20, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 28, ;
|
||||
Top = 156, ;
|
||||
Width = 89
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label6' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de intrare", ;
|
||||
Height = 17, ;
|
||||
Left = 19, ;
|
||||
Name = "Label6", ;
|
||||
TabIndex = 26, ;
|
||||
Top = 48, ;
|
||||
Width = 106
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label7' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea ramasa reevaluata", ;
|
||||
Height = 17, ;
|
||||
Left = 19, ;
|
||||
Name = "Label7", ;
|
||||
TabIndex = 25, ;
|
||||
Top = 101, ;
|
||||
Width = 155, ;
|
||||
WordWrap = .T.
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label8' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Noul DNS de calcul", ;
|
||||
Height = 17, ;
|
||||
Left = 19, ;
|
||||
Name = "Label8", ;
|
||||
TabIndex = 17, ;
|
||||
Top = 277, ;
|
||||
Visible = .T., ;
|
||||
Width = 109
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label9' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "ani=", ;
|
||||
Height = 17, ;
|
||||
Left = 251, ;
|
||||
Name = "Label9", ;
|
||||
TabIndex = 21, ;
|
||||
Top = 275, ;
|
||||
Visible = .T., ;
|
||||
Width = 26
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Line1' AS line WITH ;
|
||||
Height = 0, ;
|
||||
Left = 15, ;
|
||||
Name = "Line1", ;
|
||||
Top = 264, ;
|
||||
Width = 328
|
||||
*< END OBJECT: BaseClass="line" />
|
||||
|
||||
ADD OBJECT 'RENUNT1' AS renunt WITH ;
|
||||
Left = 292, ;
|
||||
Name = "RENUNT1", ;
|
||||
TabIndex = 10, ;
|
||||
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 'Text1' AS textbox WITH ;
|
||||
ControlSource = "pnUzuraprec", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 210, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 3, ;
|
||||
Top = 126, ;
|
||||
Visible = .F., ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text10' AS textbox WITH ;
|
||||
ControlSource = "omf.normat2", ;
|
||||
Height = 23, ;
|
||||
InputMask = "999.999", ;
|
||||
Left = 210, ;
|
||||
Name = "Text10", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 13, ;
|
||||
Top = 180, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text11' AS textbox WITH ;
|
||||
ControlSource = "omf.normat2lun", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99999", ;
|
||||
Left = 280, ;
|
||||
Name = "Text11", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 11, ;
|
||||
Top = 180, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text12' AS textbox WITH ;
|
||||
ControlSource = "thisform.uzura", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99999", ;
|
||||
Left = 280, ;
|
||||
Name = "Text12", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 12, ;
|
||||
Top = 206, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
ControlSource = "pnAmortprec", ;
|
||||
FontShadow = .F., ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 210, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 1, ;
|
||||
Top = 72, ;
|
||||
Visible = .T., ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
ControlSource = "thisform.valoare", ;
|
||||
Format = "k", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 210, ;
|
||||
Name = "Text3", ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 234, ;
|
||||
Visible = .F., ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text4' AS textbox WITH ;
|
||||
ControlSource = "pnValramasa", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 210, ;
|
||||
Name = "Text4", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 8, ;
|
||||
Top = 302, ;
|
||||
Visible = .T., ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text5' AS textbox WITH ;
|
||||
ControlSource = "pnDataeval", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 210, ;
|
||||
Name = "Text5", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 4, ;
|
||||
Top = 153, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text6' AS textbox WITH ;
|
||||
ControlSource = "omf.valin", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 210, ;
|
||||
Name = "Text6", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 14, ;
|
||||
Top = 45, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text7' AS textbox WITH ;
|
||||
ControlSource = "pnValramasa", ;
|
||||
FontShadow = .F., ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 210, ;
|
||||
Name = "Text7", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 2, ;
|
||||
Top = 99, ;
|
||||
Visible = .T., ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text8' AS textbox WITH ;
|
||||
ControlSource = "pnNormat2", ;
|
||||
Height = 23, ;
|
||||
InputMask = "999.999", ;
|
||||
Left = 210, ;
|
||||
Name = "Text8", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 5, ;
|
||||
Top = 272, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text9' AS textbox WITH ;
|
||||
ControlSource = "pnNormat2lun", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99999", ;
|
||||
Left = 280, ;
|
||||
Name = "Text9", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 6, ;
|
||||
Top = 272, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE avertizare
|
||||
otext=CREATEOBJECT('textr')
|
||||
otext.label2.caption='Noua valoare de calcul este '+ALLTRIM(TRANSFORM(pnValramasa,get_mask(12,gnZ)))+' !'
|
||||
otext.label3.caption='Noul DNS calculat este de '+ALLTRIM(STR(pnNormat2lun))+' luni !'
|
||||
otext.show(1)
|
||||
|
||||
IF buton=2
|
||||
RETURN
|
||||
ELSE
|
||||
thisform.Release
|
||||
ENDIF
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE calcul_dr
|
||||
*!* nrLuniDif = VAL(m.an)*12 + VAL(m.nl) - (YEAR(pnDataEval)*12 + MONTH(pnDataeval)) && dif dintre luna curenta si data reevaluarii
|
||||
*!* lnUzura = omf.uzura - nrLuniDif && uzura la data reevaluarii
|
||||
*!* thisform.uzura = lnUzura
|
||||
*!* pnNormat2Lun = omf.normat - lnUzura && Durata ramasa (in luni)
|
||||
*!* pnNormat2=ROUND(pnNormat2lun/12,3)
|
||||
|
||||
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)
|
||||
|
||||
thisform.text4.refresh
|
||||
thisform.text8.refresh
|
||||
thisform.text9.refresh
|
||||
thisform.text12.refresh
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Load
|
||||
IF VAL(m.an)>= 2004
|
||||
lnValRez = 0
|
||||
ELSE
|
||||
lnValRez = omf.valrez
|
||||
ENDIF
|
||||
|
||||
*thisform.valram = omf.valin - omf.amortprec - lnValRez
|
||||
pnValramasa = omf.valin - pnAmortprec - lnValRez
|
||||
thisform.normat2lun = pnNormat2lun
|
||||
|
||||
*thisform.Height=thisform.line1.Top
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE TERMINAT1.COMMAND1.Click
|
||||
thisform.avertizare
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text1.Valid
|
||||
thisform.calcul_dr
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text2.LostFocus
|
||||
IF VAL(m.an)>= 2004
|
||||
lnValRez = 0
|
||||
ELSE
|
||||
lnValRez = omf.valrez
|
||||
ENDIF
|
||||
|
||||
pnValramasa = omf.valin - pnAmortprec - lnValRez
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text3.Valid
|
||||
*m.valramasa=THISFORM.VALRAM + thisform.valoare
|
||||
*m.valin=omf.valin+thisform.valoare
|
||||
*m.valramasa= m.valin - omf.amortprec - omf.valrez
|
||||
|
||||
|
||||
*!* thisform.label3.Visible=.t.
|
||||
*!* thisform.label4.Visible=.t.
|
||||
*!* thisform.text2.Visible=.t.
|
||||
*!* thisform.text4.Visible=.t.
|
||||
|
||||
m.valramasa=THISFORM.VALRAM
|
||||
|
||||
thisform.Height=thisform.text4.Top+30
|
||||
thisform.text2.refresh
|
||||
thisform.text4.refresh
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text5.Valid
|
||||
*!* IF !EMPTY(omf.dataeval)
|
||||
*!* thisform.uzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
|
||||
*!* m.normat2lun= thisform.normat2lun-thisform.Uzura
|
||||
*!* m.normat2=ROUND(m.normat2lun/12,3)
|
||||
*!* ENDIF
|
||||
*!* m.valramasa=THISFORM.VALRAM
|
||||
|
||||
thisform.calcul_dr
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text7.Valid
|
||||
*!* m.valramasa=THISFORM.VALRAM
|
||||
|
||||
*!* thisform.Height=thisform.text4.Top+30
|
||||
*!* thisform.text4.refresh
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text9.LostFocus
|
||||
pnNormat2=ROUND(pnNormat2lun/12,3)
|
||||
thisform.text8.Refresh
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
215
Ferestre/Vechi/frm_filtru_numar.sc2
Normal file
215
Ferestre/Vechi/frm_filtru_numar.sc2
Normal file
@@ -0,0 +1,215 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_filtru_numar.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Criteriu2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Criteriu1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*p: camp_nume
|
||||
*p: filtru
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
filtru =
|
||||
Height = 122
|
||||
Name = "Formtermin12"
|
||||
Width = 313
|
||||
Shape1.Height = 34
|
||||
Shape1.Left = -1
|
||||
Shape1.Name = "Shape1"
|
||||
Shape1.Top = 0
|
||||
Shape1.Width = 278
|
||||
Terminat1.Command1.Name = "Command1"
|
||||
Terminat1.Imbuton1.Height = 27
|
||||
Terminat1.Imbuton1.Name = "Imbuton1"
|
||||
Terminat1.Imbuton1.Width = 30
|
||||
Terminat1.Left = 280
|
||||
Terminat1.Name = "Terminat1"
|
||||
Terminat1.TabIndex = 3
|
||||
Terminat1.Top = 2
|
||||
Titlufrumos1.Height = 32
|
||||
Titlufrumos1.Left = 7
|
||||
Titlufrumos1.Name = "Titlufrumos1"
|
||||
Titlufrumos1.TabIndex = 4
|
||||
Titlufrumos1.Top = 4
|
||||
Titlufrumos1.Width = 221
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Criteriu1' AS combobox WITH ;
|
||||
BorderStyle = 0, ;
|
||||
BoundColumn = 2, ;
|
||||
BoundTo = .T., ;
|
||||
ColumnCount = 2, ;
|
||||
ColumnLines = .F., ;
|
||||
ColumnWidths = "72,0", ;
|
||||
FontSize = 10, ;
|
||||
Height = 24, ;
|
||||
Left = 28, ;
|
||||
Name = "Criteriu1", ;
|
||||
ReadOnly = .F., ;
|
||||
RowSource = "> = ,1,< = ,2, = ,3, # ,4, > ,5, < ,6", ;
|
||||
RowSourceType = 1, ;
|
||||
SpecialEffect = 2, ;
|
||||
Style = 2, ;
|
||||
TabIndex = 5, ;
|
||||
ToolTipText = "Selectati criteriul de comparare", ;
|
||||
Top = 47, ;
|
||||
Width = 55
|
||||
*< END OBJECT: BaseClass="combobox" />
|
||||
|
||||
ADD OBJECT 'Criteriu2' AS combobox WITH ;
|
||||
BorderStyle = 0, ;
|
||||
BoundColumn = 2, ;
|
||||
BoundTo = .T., ;
|
||||
ColumnCount = 2, ;
|
||||
ColumnLines = .F., ;
|
||||
ColumnWidths = "72,0", ;
|
||||
FontSize = 10, ;
|
||||
Height = 24, ;
|
||||
Left = 28, ;
|
||||
Name = "Criteriu2", ;
|
||||
ReadOnly = .F., ;
|
||||
RowSource = "> = ,1,< = ,2, = ,3, # ,4, > ,5, < ,6", ;
|
||||
RowSourceType = 1, ;
|
||||
SpecialEffect = 2, ;
|
||||
Style = 2, ;
|
||||
TabIndex = 6, ;
|
||||
ToolTipText = "Selectati criteriul de comparare", ;
|
||||
Top = 80, ;
|
||||
Width = 55
|
||||
*< END OBJECT: BaseClass="combobox" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
Alignment = 1, ;
|
||||
Format = "k", ;
|
||||
Height = 25, ;
|
||||
InputMask = "999 999 999 999", ;
|
||||
Left = 83, ;
|
||||
Name = "Text1", ;
|
||||
TabIndex = 1, ;
|
||||
ToolTipText = "", ;
|
||||
Top = 47, ;
|
||||
Value = 0, ;
|
||||
Width = 191
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
Alignment = 1, ;
|
||||
Format = "k", ;
|
||||
Height = 25, ;
|
||||
InputMask = "999 999 999 999", ;
|
||||
Left = 83, ;
|
||||
Name = "Text2", ;
|
||||
TabIndex = 2, ;
|
||||
ToolTipText = "", ;
|
||||
Top = 80, ;
|
||||
Value = 0, ;
|
||||
Width = 191
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Destroy
|
||||
WITH this
|
||||
LOCAL lnCriteriu1, lnCriteriu2, lcNumar1, lcNumar2, lcSemn1, lcSemn2
|
||||
lnCriteriu1 = .criteriu1.Value
|
||||
lnCriteriu2 = .criteriu2.Value
|
||||
lcNumar1 = ALLTRIM(STR(.text1.value))
|
||||
lcNumar2 = ALLTRIM(STR(.text2.value))
|
||||
IF EMPTY(lnCriteriu1) AND EMPTY(lnCriteriu2)
|
||||
.filtru = ""
|
||||
RETURN
|
||||
ENDIF
|
||||
DO CASE
|
||||
CASE lnCriteriu1 = 1
|
||||
lcsemn1 = [>=]
|
||||
CASE lnCriteriu1 = 2
|
||||
lcsemn1 = [<=]
|
||||
CASE lnCriteriu1 = 3
|
||||
lcsemn1 = [=]
|
||||
CASE lnCriteriu1 = 4
|
||||
lcsemn1 = [#]
|
||||
CASE lnCriteriu1 = 5
|
||||
lcsemn1 = [>]
|
||||
CASE lnCriteriu1 = 6
|
||||
lcsemn1 = [<]
|
||||
ENDCASE
|
||||
DO CASE
|
||||
CASE lnCriteriu2 = 1
|
||||
lcsemn2 = [>=]
|
||||
CASE lnCriteriu2 = 2
|
||||
lcsemn2 = [<=]
|
||||
CASE lnCriteriu2 = 3
|
||||
lcsemn2 = [=]
|
||||
CASE lnCriteriu2 = 4
|
||||
lcsemn2 = [#]
|
||||
CASE lnCriteriu2 = 5
|
||||
lcsemn2 = [>]
|
||||
CASE lnCriteriu2 = 6
|
||||
lcsemn2 = [<]
|
||||
ENDCASE
|
||||
.filtru = .camp_nume + lcsemn1 + lcNumar1 + [ and ] + .camp_nume + lcsemn2 + lcNumar2
|
||||
ENDWITH
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
LPARAMETERS lcCampNume,lcTitlu,lnCriteriu1,lnCriteriu2
|
||||
|
||||
DODEFAULT()
|
||||
lctitlu=STRTRAN(lcTitlu,'\<','')
|
||||
WITH this
|
||||
.criteriu1.value = lnCriteriu1
|
||||
.criteriu2.value = lnCriteriu2
|
||||
.camp_nume = lcCampNume
|
||||
.titlufrumos1.Caption=UPPER(lcTitlu)
|
||||
* .text1.ToolTipText='Introduceti expresia cu care se compara ' + lower(lcTitlu)
|
||||
IF EMPTY(lccampnume)
|
||||
.text1.Enabled = .F.
|
||||
.text2.Enabled = .F.
|
||||
.criteriu1.Enabled = .F.
|
||||
.criteriu2.Enabled = .F.
|
||||
ENDIF
|
||||
ENDWITH
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Unload
|
||||
RETURN this.filtru
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Criteriu1.InteractiveChange
|
||||
thisform.text1.SetFocus
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Criteriu2.InteractiveChange
|
||||
thisform.text2.SetFocus
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text1.LostFocus
|
||||
thisform.text2.Value=this.Value
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text2.LostFocus
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
34
Ferestre/Vechi/frm_filtru_text.sc2
Normal file
34
Ferestre/Vechi/frm_filtru_text.sc2
Normal file
@@ -0,0 +1,34 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_filtru_text.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_filtru_text12 AS frm_filtru_text OF "cont2003\clase\caut.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Name = "Frm_filtru_text12"
|
||||
Shape1.Name = "Shape1"
|
||||
Terminat1.Command1.Name = "Command1"
|
||||
Terminat1.Imbuton1.Height = 27
|
||||
Terminat1.Imbuton1.Name = "Imbuton1"
|
||||
Terminat1.Imbuton1.Width = 30
|
||||
Terminat1.Name = "Terminat1"
|
||||
Titlufrumos1.Name = "Titlufrumos1"
|
||||
Criteriu.Name = "Criteriu"
|
||||
Text.Name = "Text"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
81
Ferestre/Vechi/frm_introd_titlu.sc2
Normal file
81
Ferestre/Vechi/frm_introd_titlu.sc2
Normal file
@@ -0,0 +1,81 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_introd_titlu.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS formtermin1 AS formtermin OF "..\..\comun\clase\baza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
BackColor = 255,255,255
|
||||
BorderStyle = 1
|
||||
DoCreate = .T.
|
||||
Height = 76
|
||||
Name = "Formtermin1"
|
||||
Width = 524
|
||||
Shape1.Height = 36
|
||||
Shape1.Left = -3
|
||||
Shape1.Name = "Shape1"
|
||||
Shape1.Top = 0
|
||||
Shape1.Width = 494
|
||||
Shape1.ZOrderSet = 0
|
||||
Terminat1.Command1.Name = "Command1"
|
||||
Terminat1.Imbuton1.Height = 27
|
||||
Terminat1.Imbuton1.Name = "Imbuton1"
|
||||
Terminat1.Imbuton1.Width = 30
|
||||
Terminat1.Left = 493
|
||||
Terminat1.Name = "Terminat1"
|
||||
Terminat1.TabIndex = 2
|
||||
Terminat1.Top = 3
|
||||
Terminat1.ZOrderSet = 1
|
||||
TITLUFRUMOS1.AutoSize = .T.
|
||||
TITLUFRUMOS1.Caption = "Titlu raport"
|
||||
TITLUFRUMOS1.FontName = "Arial"
|
||||
TITLUFRUMOS1.Height = 18
|
||||
TITLUFRUMOS1.Left = 7
|
||||
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
||||
TITLUFRUMOS1.TabIndex = 3
|
||||
TITLUFRUMOS1.Top = 9
|
||||
TITLUFRUMOS1.Width = 61
|
||||
TITLUFRUMOS1.ZOrderSet = 4
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Introduceti titlu raport", ;
|
||||
Height = 17, ;
|
||||
Left = 10, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 4, ;
|
||||
Top = 50, ;
|
||||
Width = 116, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
ControlSource = "pcTitluA", ;
|
||||
Height = 23, ;
|
||||
Left = 137, ;
|
||||
Name = "Text1", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 44, ;
|
||||
Width = 355, ;
|
||||
ZOrderSet = 3
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ENDDEFINE
|
||||
527
Ferestre/Vechi/frm_major_valoare.sc2
Normal file
527
Ferestre/Vechi/frm_major_valoare.sc2
Normal file
@@ -0,0 +1,527 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_major_valoare.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: avertizare
|
||||
*p: normat2lun
|
||||
*p: uzura
|
||||
*p: valoare
|
||||
*p: valram
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Height = 340
|
||||
Name = "FORMTERMIN12"
|
||||
normat2lun = 0
|
||||
ScrollBars = 0
|
||||
uzura = 0
|
||||
valoare = 0
|
||||
valram = 0
|
||||
Width = 364
|
||||
SHAPE1.Height = 35
|
||||
SHAPE1.Left = 0
|
||||
SHAPE1.Name = "SHAPE1"
|
||||
SHAPE1.Top = 0
|
||||
SHAPE1.Width = 291
|
||||
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
||||
TERMINAT1.IMBUTON1.Height = 27
|
||||
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
||||
TERMINAT1.IMBUTON1.Width = 30
|
||||
TERMINAT1.Left = 323
|
||||
TERMINAT1.Name = "TERMINAT1"
|
||||
TERMINAT1.TabIndex = 8
|
||||
TERMINAT1.Top = 3
|
||||
TITLUFRUMOS1.Caption = "Majorarea valorii de inventar"
|
||||
TITLUFRUMOS1.Height = 32
|
||||
TITLUFRUMOS1.Left = 7
|
||||
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
||||
TITLUFRUMOS1.TabIndex = 15
|
||||
TITLUFRUMOS1.Top = 5
|
||||
TITLUFRUMOS1.Width = 184
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de calcul", ;
|
||||
Height = 17, ;
|
||||
Left = 27, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 27, ;
|
||||
Top = 76, ;
|
||||
Width = 103
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label10' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "luni", ;
|
||||
Height = 17, ;
|
||||
Left = 326, ;
|
||||
Name = "Label10", ;
|
||||
TabIndex = 22, ;
|
||||
Top = 258, ;
|
||||
Visible = .T., ;
|
||||
Width = 22
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label11' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "DNS de calcul actual", ;
|
||||
Height = 17, ;
|
||||
Left = 26, ;
|
||||
Name = "Label11", ;
|
||||
TabIndex = 23, ;
|
||||
Top = 193, ;
|
||||
Visible = .T., ;
|
||||
Width = 116
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label12' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "ani=", ;
|
||||
Height = 17, ;
|
||||
Left = 255, ;
|
||||
Name = "Label12", ;
|
||||
TabIndex = 19, ;
|
||||
Top = 191, ;
|
||||
Visible = .T., ;
|
||||
Width = 26
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label13' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "luni", ;
|
||||
Height = 17, ;
|
||||
Left = 325, ;
|
||||
Name = "Label13", ;
|
||||
TabIndex = 16, ;
|
||||
Top = 191, ;
|
||||
Visible = .T., ;
|
||||
Width = 22
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label14' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Uzura pana la data majorarii", ;
|
||||
Height = 17, ;
|
||||
Left = 26, ;
|
||||
Name = "Label14", ;
|
||||
TabIndex = 24, ;
|
||||
Top = 218, ;
|
||||
Visible = .T., ;
|
||||
Width = 157
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label15' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "luni", ;
|
||||
Height = 17, ;
|
||||
Left = 325, ;
|
||||
Name = "Label15", ;
|
||||
TabIndex = 20, ;
|
||||
Top = 216, ;
|
||||
Visible = .T., ;
|
||||
Width = 22
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea adaugata (majorare)", ;
|
||||
Height = 17, ;
|
||||
Left = 27, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 29, ;
|
||||
Top = 164, ;
|
||||
Width = 167
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Noua valuare de calcul", ;
|
||||
Height = 17, ;
|
||||
Left = 27, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 30, ;
|
||||
Top = 308, ;
|
||||
Visible = .T., ;
|
||||
Width = 127
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Noua valoare de intrare", ;
|
||||
Height = 17, ;
|
||||
Left = 27, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 18, ;
|
||||
Top = 284, ;
|
||||
Visible = .T., ;
|
||||
Width = 130
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Data majorarii", ;
|
||||
Height = 17, ;
|
||||
Left = 27, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 28, ;
|
||||
Top = 102, ;
|
||||
Width = 80
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label6' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de intrare veche", ;
|
||||
Height = 17, ;
|
||||
Left = 27, ;
|
||||
Name = "Label6", ;
|
||||
TabIndex = 26, ;
|
||||
Top = 48, ;
|
||||
Width = 141
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label7' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea ramasa de amortizat la data majorarii", ;
|
||||
Height = 32, ;
|
||||
Left = 27, ;
|
||||
Name = "Label7", ;
|
||||
TabIndex = 25, ;
|
||||
Top = 122, ;
|
||||
Width = 167, ;
|
||||
WordWrap = .T.
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label8' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Noul DNS de calcul", ;
|
||||
Height = 17, ;
|
||||
Left = 27, ;
|
||||
Name = "Label8", ;
|
||||
TabIndex = 17, ;
|
||||
Top = 258, ;
|
||||
Visible = .T., ;
|
||||
Width = 109
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label9' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "ani=", ;
|
||||
Height = 17, ;
|
||||
Left = 256, ;
|
||||
Name = "Label9", ;
|
||||
TabIndex = 21, ;
|
||||
Top = 258, ;
|
||||
Visible = .T., ;
|
||||
Width = 26
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Line1' AS line WITH ;
|
||||
Height = 0, ;
|
||||
Left = 22, ;
|
||||
Name = "Line1", ;
|
||||
Top = 246, ;
|
||||
Width = 327
|
||||
*< END OBJECT: BaseClass="line" />
|
||||
|
||||
ADD OBJECT 'RENUNT1' AS renunt WITH ;
|
||||
Left = 292, ;
|
||||
Name = "RENUNT1", ;
|
||||
TabIndex = 12, ;
|
||||
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 'Text1' AS textbox WITH ;
|
||||
ControlSource = "omf.valramasa", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 215, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 13, ;
|
||||
Top = 73, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text10' AS textbox WITH ;
|
||||
ControlSource = "omf.normat2", ;
|
||||
Height = 23, ;
|
||||
InputMask = "999.99", ;
|
||||
Left = 214, ;
|
||||
Name = "Text10", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 9, ;
|
||||
Top = 188, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text11' AS textbox WITH ;
|
||||
ControlSource = "omf.normat2lun", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99999", ;
|
||||
Left = 283, ;
|
||||
Name = "Text11", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 11, ;
|
||||
Top = 188, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text12' AS textbox WITH ;
|
||||
ControlSource = "thisform.uzura", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99999", ;
|
||||
Left = 283, ;
|
||||
Name = "Text12", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 10, ;
|
||||
Top = 213, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
ControlSource = "m.valin", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 215, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 6, ;
|
||||
Top = 281, ;
|
||||
Visible = .T., ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
ControlSource = "thisform.valoare", ;
|
||||
Format = "k", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 214, ;
|
||||
Name = "Text3", ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 3, ;
|
||||
Top = 161, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text4' AS textbox WITH ;
|
||||
ControlSource = "m.valramasa", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 215, ;
|
||||
Name = "Text4", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 308, ;
|
||||
Visible = .T., ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text5' AS textbox WITH ;
|
||||
ControlSource = "m.dataeval", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 215, ;
|
||||
Name = "Text5", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 1, ;
|
||||
Top = 99, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text6' AS textbox WITH ;
|
||||
ControlSource = "omf.valin", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 215, ;
|
||||
Name = "Text6", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 14, ;
|
||||
Top = 45, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text7' AS textbox WITH ;
|
||||
ControlSource = "thisform.valram", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 214, ;
|
||||
Name = "Text7", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 2, ;
|
||||
Top = 127, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text8' AS textbox WITH ;
|
||||
ControlSource = "m.normat2", ;
|
||||
Height = 23, ;
|
||||
InputMask = "999.99", ;
|
||||
Left = 215, ;
|
||||
Name = "Text8", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 4, ;
|
||||
Top = 255, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text9' AS textbox WITH ;
|
||||
ControlSource = "m.normat2lun", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99999", ;
|
||||
Left = 284, ;
|
||||
Name = "Text9", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 5, ;
|
||||
Top = 255, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE avertizare
|
||||
otext=CREATEOBJECT('textr')
|
||||
otext.label2.caption='Noua valoare de calcul este '+ALLTRIM(STR(m.valramasa))+' !'
|
||||
otext.label3.caption='Noul DNS calculat este de '+ALLTRIM(STR(ROUND(m.normat2,0)))+' ani !'
|
||||
otext.show(1)
|
||||
|
||||
IF buton=2
|
||||
RETURN
|
||||
ELSE
|
||||
thisform.Release
|
||||
ENDIF
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
thisform.valram = omf.valin - omf.amortprec - omf.valrez
|
||||
thisform.normat2lun=omf.normat2lun
|
||||
*thisform.Height=thisform.line1.Top
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE TERMINAT1.COMMAND1.Click
|
||||
thisform.avertizare
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text3.Valid
|
||||
*m.valramasa=omf.valramasa+thisform.valoare
|
||||
m.valin=omf.valin+thisform.valoare
|
||||
*m.valramasa= m.valin - omf.amortprec - omf.valrez
|
||||
m.valramasa = thisform.valoare + thisform.valram
|
||||
|
||||
*!* thisform.label3.Visible=.t.
|
||||
*!* thisform.label4.Visible=.t.
|
||||
*!* thisform.text2.Visible=.t.
|
||||
*!* thisform.text4.Visible=.t.
|
||||
thisform.Height=thisform.text4.Top+30
|
||||
thisform.text2.refresh
|
||||
thisform.text4.refresh
|
||||
|
||||
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text5.Valid
|
||||
IF !EMPTY(omf.dataeval)
|
||||
thisform.Uzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
|
||||
m.normat2lun= thisform.normat2lun-thisform.Uzura
|
||||
m.normat2=ROUND(m.normat2lun/12,2)
|
||||
ENDIF
|
||||
thisform.text8.refresh
|
||||
thisform.text9.refresh
|
||||
thisform.text12.refresh
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
525
Ferestre/Vechi/frm_sch_valoare.sc2
Normal file
525
Ferestre/Vechi/frm_sch_valoare.sc2
Normal file
@@ -0,0 +1,525 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_sch_valoare.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: avertizare
|
||||
*p: normat2lun
|
||||
*p: uzura
|
||||
*p: valoare
|
||||
*p: valram
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Height = 352
|
||||
Name = "FORMTERMIN12"
|
||||
normat2lun = 0
|
||||
uzura = 0
|
||||
valoare = 0
|
||||
valram = 0
|
||||
Width = 359
|
||||
SHAPE1.Height = 35
|
||||
SHAPE1.Left = 0
|
||||
SHAPE1.Name = "SHAPE1"
|
||||
SHAPE1.Top = 0
|
||||
SHAPE1.Width = 288
|
||||
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
||||
TERMINAT1.IMBUTON1.Height = 27
|
||||
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
||||
TERMINAT1.IMBUTON1.Width = 30
|
||||
TERMINAT1.Left = 323
|
||||
TERMINAT1.Name = "TERMINAT1"
|
||||
TERMINAT1.TabIndex = 8
|
||||
TERMINAT1.Top = 3
|
||||
TITLUFRUMOS1.Caption = "Reevaluare"
|
||||
TITLUFRUMOS1.Height = 32
|
||||
TITLUFRUMOS1.Left = 7
|
||||
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
||||
TITLUFRUMOS1.TabIndex = 15
|
||||
TITLUFRUMOS1.Top = 5
|
||||
TITLUFRUMOS1.Width = 184
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de calcul", ;
|
||||
Height = 17, ;
|
||||
Left = 24, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 27, ;
|
||||
Top = 76, ;
|
||||
Width = 103
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label10' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "luni", ;
|
||||
Height = 17, ;
|
||||
Left = 328, ;
|
||||
Name = "Label10", ;
|
||||
TabIndex = 22, ;
|
||||
Top = 265, ;
|
||||
Visible = .T., ;
|
||||
Width = 22
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label11' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "DNS de calcul actual", ;
|
||||
Height = 17, ;
|
||||
Left = 24, ;
|
||||
Name = "Label11", ;
|
||||
TabIndex = 23, ;
|
||||
Top = 195, ;
|
||||
Visible = .T., ;
|
||||
Width = 116
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label12' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "ani=", ;
|
||||
Height = 17, ;
|
||||
Left = 256, ;
|
||||
Name = "Label12", ;
|
||||
TabIndex = 19, ;
|
||||
Top = 193, ;
|
||||
Visible = .T., ;
|
||||
Width = 26
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label13' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "luni", ;
|
||||
Height = 17, ;
|
||||
Left = 328, ;
|
||||
Name = "Label13", ;
|
||||
TabIndex = 16, ;
|
||||
Top = 193, ;
|
||||
Visible = .T., ;
|
||||
Width = 22
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label14' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Uzura pana la data reevaluarii", ;
|
||||
Height = 17, ;
|
||||
Left = 24, ;
|
||||
Name = "Label14", ;
|
||||
TabIndex = 24, ;
|
||||
Top = 220, ;
|
||||
Visible = .T., ;
|
||||
Width = 165
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label15' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "luni", ;
|
||||
Height = 17, ;
|
||||
Left = 328, ;
|
||||
Name = "Label15", ;
|
||||
TabIndex = 20, ;
|
||||
Top = 218, ;
|
||||
Visible = .T., ;
|
||||
Width = 22
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea adaugata (majorare)", ;
|
||||
Height = 17, ;
|
||||
Left = 24, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 29, ;
|
||||
Top = 166, ;
|
||||
Width = 167
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Noua valuare de calcul", ;
|
||||
Height = 17, ;
|
||||
Left = 24, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 30, ;
|
||||
Top = 316, ;
|
||||
Visible = .T., ;
|
||||
Width = 127
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Noua valoare de intrare", ;
|
||||
Height = 17, ;
|
||||
Left = 24, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 18, ;
|
||||
Top = 293, ;
|
||||
Visible = .T., ;
|
||||
Width = 130
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Data reevaluare", ;
|
||||
Height = 17, ;
|
||||
Left = 24, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 28, ;
|
||||
Top = 103, ;
|
||||
Width = 89
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label6' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de intrare veche", ;
|
||||
Height = 17, ;
|
||||
Left = 24, ;
|
||||
Name = "Label6", ;
|
||||
TabIndex = 26, ;
|
||||
Top = 48, ;
|
||||
Width = 141
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label7' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea ramasa de amortizat la data reevaluarii", ;
|
||||
Height = 32, ;
|
||||
Left = 24, ;
|
||||
Name = "Label7", ;
|
||||
TabIndex = 25, ;
|
||||
Top = 126, ;
|
||||
Width = 180, ;
|
||||
WordWrap = .T.
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label8' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Noul DNS de calcul", ;
|
||||
Height = 17, ;
|
||||
Left = 24, ;
|
||||
Name = "Label8", ;
|
||||
TabIndex = 17, ;
|
||||
Top = 267, ;
|
||||
Visible = .T., ;
|
||||
Width = 109
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label9' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "ani=", ;
|
||||
Height = 17, ;
|
||||
Left = 256, ;
|
||||
Name = "Label9", ;
|
||||
TabIndex = 21, ;
|
||||
Top = 265, ;
|
||||
Visible = .T., ;
|
||||
Width = 26
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Line1' AS line WITH ;
|
||||
Height = 0, ;
|
||||
Left = 20, ;
|
||||
Name = "Line1", ;
|
||||
Top = 248, ;
|
||||
Width = 328
|
||||
*< END OBJECT: BaseClass="line" />
|
||||
|
||||
ADD OBJECT 'RENUNT1' AS renunt WITH ;
|
||||
Left = 292, ;
|
||||
Name = "RENUNT1", ;
|
||||
TabIndex = 9, ;
|
||||
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 'Text1' AS textbox WITH ;
|
||||
ControlSource = "omf.valramasa", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 215, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 13, ;
|
||||
Top = 73, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text10' AS textbox WITH ;
|
||||
ControlSource = "omf.normat2", ;
|
||||
Height = 23, ;
|
||||
InputMask = "999.99", ;
|
||||
Left = 215, ;
|
||||
Name = "Text10", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 12, ;
|
||||
Top = 190, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text11' AS textbox WITH ;
|
||||
ControlSource = "omf.normat2lun", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99999", ;
|
||||
Left = 285, ;
|
||||
Name = "Text11", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 10, ;
|
||||
Top = 190, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text12' AS textbox WITH ;
|
||||
ControlSource = "thisform.uzura", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99999", ;
|
||||
Left = 285, ;
|
||||
Name = "Text12", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 11, ;
|
||||
Top = 215, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
ControlSource = "m.valin", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 215, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 6, ;
|
||||
Top = 288, ;
|
||||
Visible = .T., ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
ControlSource = "thisform.valoare", ;
|
||||
Format = "k", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 215, ;
|
||||
Name = "Text3", ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 3, ;
|
||||
Top = 163, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text4' AS textbox WITH ;
|
||||
ControlSource = "m.valramasa", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 215, ;
|
||||
Name = "Text4", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 316, ;
|
||||
Visible = .T., ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text5' AS textbox WITH ;
|
||||
ControlSource = "m.dataeval", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 215, ;
|
||||
Name = "Text5", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 1, ;
|
||||
Top = 100, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text6' AS textbox WITH ;
|
||||
ControlSource = "omf.valin", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 215, ;
|
||||
Name = "Text6", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 14, ;
|
||||
Top = 45, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text7' AS textbox WITH ;
|
||||
ControlSource = "thisform.valram", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 215, ;
|
||||
Name = "Text7", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 2, ;
|
||||
Top = 131, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text8' AS textbox WITH ;
|
||||
ControlSource = "m.normat2", ;
|
||||
Height = 23, ;
|
||||
InputMask = "999.99", ;
|
||||
Left = 215, ;
|
||||
Name = "Text8", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 4, ;
|
||||
Top = 262, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text9' AS textbox WITH ;
|
||||
ControlSource = "m.normat2lun", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99999", ;
|
||||
Left = 285, ;
|
||||
Name = "Text9", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 5, ;
|
||||
Top = 262, ;
|
||||
Visible = .T., ;
|
||||
Width = 40
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE avertizare
|
||||
otext=CREATEOBJECT('textr')
|
||||
otext.label2.caption='Noua valoare de calcul este '+ALLTRIM(STR(m.valramasa))+' !'
|
||||
otext.label3.caption='Noul DNS calculat este de '+ALLTRIM(STR(ROUND(m.normat2,0)))+' ani !'
|
||||
otext.show(1)
|
||||
|
||||
IF buton=2
|
||||
RETURN
|
||||
ELSE
|
||||
thisform.Release
|
||||
ENDIF
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Load
|
||||
thisform.valram=omf.valin-omf.amortprec-omf.valrez
|
||||
thisform.normat2lun=m.normat2lun
|
||||
*thisform.Height=thisform.line1.Top
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE TERMINAT1.COMMAND1.Click
|
||||
thisform.avertizare
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text3.Valid
|
||||
m.valramasa=THISFORM.VALRAM + thisform.valoare
|
||||
m.valin=omf.valin+thisform.valoare
|
||||
*m.valramasa= m.valin - omf.amortprec - omf.valrez
|
||||
|
||||
|
||||
*!* thisform.label3.Visible=.t.
|
||||
*!* thisform.label4.Visible=.t.
|
||||
*!* thisform.text2.Visible=.t.
|
||||
*!* thisform.text4.Visible=.t.
|
||||
|
||||
thisform.Height=thisform.text4.Top+30
|
||||
thisform.text2.refresh
|
||||
thisform.text4.refresh
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text5.Valid
|
||||
IF !EMPTY(omf.dataeval)
|
||||
LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
|
||||
m.normat2lun= thisform.normat2lun-LnUzura
|
||||
m.normat2=ROUND(m.normat2lun/12,2)
|
||||
ENDIF
|
||||
thisform.text8.refresh
|
||||
thisform.text9.refresh
|
||||
thisform.text12.refresh
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
65
Ferestre/Vechi/frm_schimb_dns.sc2
Normal file
65
Ferestre/Vechi/frm_schimb_dns.sc2
Normal file
@@ -0,0 +1,65 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_schimb_dns.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_schimb_dns1 AS frm_schimb_dns OF "..\clase\imob_2005.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
DoCreate = .T.
|
||||
Name = "Frm_schimb_dns1"
|
||||
Shape2.Name = "Shape2"
|
||||
Shape1.Name = "Shape1"
|
||||
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
||||
TERMINAT1.Command1.Name = "Command1"
|
||||
TERMINAT1.Imbuton1.Height = 27
|
||||
TERMINAT1.Imbuton1.Name = "Imbuton1"
|
||||
TERMINAT1.Imbuton1.Width = 30
|
||||
TERMINAT1.Name = "TERMINAT1"
|
||||
Shape3.Name = "Shape3"
|
||||
TEXT7.Name = "TEXT7"
|
||||
TEXT8.Name = "TEXT8"
|
||||
LABEL11.Name = "LABEL11"
|
||||
Label25.Name = "Label25"
|
||||
t21.Name = "t21"
|
||||
Text1.Name = "Text1"
|
||||
Label1.Name = "Label1"
|
||||
Label2.Name = "Label2"
|
||||
Text2.Name = "Text2"
|
||||
TEXT3.Name = "TEXT3"
|
||||
LABEL9.Name = "LABEL9"
|
||||
Label3.Name = "Label3"
|
||||
txtNorma_min.Name = "txtNorma_min"
|
||||
txtNorma_max.Name = "txtNorma_max"
|
||||
Label10.Name = "Label10"
|
||||
LABEL14.Name = "LABEL14"
|
||||
LABEL12.Name = "LABEL12"
|
||||
LABEL5.Name = "LABEL5"
|
||||
txtDataEval.Name = "txtDataEval"
|
||||
Label4.Name = "Label4"
|
||||
txtDR.Name = "txtDR"
|
||||
LABEL6.Name = "LABEL6"
|
||||
txtUzuraPrec.Name = "txtUzuraPrec"
|
||||
Label7.Name = "Label7"
|
||||
TEXT9.Name = "TEXT9"
|
||||
LABEL8.Name = "LABEL8"
|
||||
txtDRani.Name = "txtDRani"
|
||||
RENUNT1.Command1.Name = "Command1"
|
||||
RENUNT1.Imbuton1.Height = 27
|
||||
RENUNT1.Imbuton1.Name = "Imbuton1"
|
||||
RENUNT1.Imbuton1.Width = 30
|
||||
RENUNT1.Name = "RENUNT1"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
683
Ferestre/Vechi/frm_schimb_dns_o.sc2
Normal file
683
Ferestre/Vechi/frm_schimb_dns_o.sc2
Normal file
@@ -0,0 +1,683 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_schimb_dns_o.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="t21" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtNorma_min" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtNorma_max" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtDataEval" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtDR" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtUzuraPrec" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtDRani" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*p: ddataeval
|
||||
*p: ndns
|
||||
*p: ndnsani
|
||||
*p: ndr
|
||||
*p: ndrani
|
||||
*p: nlim_max
|
||||
*p: nlim_min
|
||||
*p: nuzuraprec
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 3
|
||||
ddataeval = 01/01/2005
|
||||
DoCreate = .T.
|
||||
Height = 292
|
||||
Name = "FORMTERMIN12"
|
||||
ndns = 0
|
||||
ndnsani = 0.00
|
||||
ndr = 0
|
||||
ndrani = 0.00
|
||||
nlim_max = 0
|
||||
nlim_min = 0
|
||||
nuzuraprec = 0
|
||||
Width = 414
|
||||
SHAPE1.Height = 35
|
||||
SHAPE1.Left = 0
|
||||
SHAPE1.Name = "SHAPE1"
|
||||
SHAPE1.Top = 0
|
||||
SHAPE1.Width = 351
|
||||
SHAPE1.ZOrderSet = 2
|
||||
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
||||
TERMINAT1.IMBUTON1.Height = 27
|
||||
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
||||
TERMINAT1.IMBUTON1.Width = 30
|
||||
TERMINAT1.Left = 382
|
||||
TERMINAT1.Name = "TERMINAT1"
|
||||
TERMINAT1.TabIndex = 11
|
||||
TERMINAT1.Top = 3
|
||||
TERMINAT1.ZOrderSet = 3
|
||||
TITLUFRUMOS1.Caption = "Schimbare DNS de calcul"
|
||||
TITLUFRUMOS1.Height = 30
|
||||
TITLUFRUMOS1.Left = 7
|
||||
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
||||
TITLUFRUMOS1.TabIndex = 15
|
||||
TITLUFRUMOS1.Top = 6
|
||||
TITLUFRUMOS1.Width = 332
|
||||
TITLUFRUMOS1.ZOrderSet = 4
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Durata normala de serviciu (DNS de calcul)", ;
|
||||
FontBold = .F., ;
|
||||
FontItalic = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 8, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 16, ;
|
||||
Top = 75, ;
|
||||
Width = 207, ;
|
||||
ZOrderSet = 12
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label10' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Limitele DNS:", ;
|
||||
FontBold = .F., ;
|
||||
FontItalic = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 151, ;
|
||||
Name = "Label10", ;
|
||||
TabIndex = 17, ;
|
||||
Top = 134, ;
|
||||
Width = 65, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label11' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Durata normala de serviciu schimbata (DNS)", ;
|
||||
FontBold = .F., ;
|
||||
FontItalic = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 8, ;
|
||||
Name = "Label11", ;
|
||||
TabIndex = 17, ;
|
||||
Top = 159, ;
|
||||
Width = 212, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label12' AS label WITH ;
|
||||
AutoSize = .F., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "ani = luni", ;
|
||||
FontBold = .T., ;
|
||||
ForeColor = 0,0,187, ;
|
||||
Height = 17, ;
|
||||
Left = 264, ;
|
||||
Name = "Label12", ;
|
||||
TabIndex = 25, ;
|
||||
Top = 214, ;
|
||||
Width = 106, ;
|
||||
ZOrderSet = 9
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label14' AS label WITH ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "ani", ;
|
||||
Height = 17, ;
|
||||
Left = 300, ;
|
||||
Name = "Label14", ;
|
||||
TabIndex = 25, ;
|
||||
Top = 135, ;
|
||||
Width = 19, ;
|
||||
ZOrderSet = 9
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .F., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "ani = luni", ;
|
||||
Height = 17, ;
|
||||
Left = 264, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 20, ;
|
||||
Top = 76, ;
|
||||
Width = 106, ;
|
||||
ZOrderSet = 13
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label25' AS label WITH ;
|
||||
AutoSize = .F., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "ani = luni", ;
|
||||
Height = 17, ;
|
||||
Left = 264, ;
|
||||
Name = "Label25", ;
|
||||
TabIndex = 25, ;
|
||||
Top = 160, ;
|
||||
Width = 106, ;
|
||||
ZOrderSet = 9
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Cod vechi", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 8, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 19, ;
|
||||
Top = 50, ;
|
||||
Width = 58, ;
|
||||
ZOrderSet = 15
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Durata ramasa la ianuarie 2005", ;
|
||||
FontBold = .T., ;
|
||||
ForeColor = 0,0,187, ;
|
||||
Height = 17, ;
|
||||
Left = 8, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 23, ;
|
||||
Top = 214, ;
|
||||
Width = 180
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,187, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Data schimbarii duratei ramase", ;
|
||||
Height = 17, ;
|
||||
Left = 8, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 21, ;
|
||||
Top = 189, ;
|
||||
Width = 176
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label6' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Uzura precedenta", ;
|
||||
Height = 17, ;
|
||||
Left = 8, ;
|
||||
Name = "Label6", ;
|
||||
TabIndex = 22, ;
|
||||
Top = 239, ;
|
||||
Width = 99
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label7' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Amortizarea precedenta", ;
|
||||
Height = 17, ;
|
||||
Left = 8, ;
|
||||
Name = "Label7", ;
|
||||
TabIndex = 24, ;
|
||||
Top = 264, ;
|
||||
Width = 132
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label8' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "-", ;
|
||||
Height = 17, ;
|
||||
Left = 257, ;
|
||||
Name = "Label8", ;
|
||||
Top = 135, ;
|
||||
Width = 6
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label9' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Cod nou", ;
|
||||
FontBold = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 18, ;
|
||||
Left = 8, ;
|
||||
Name = "Label9", ;
|
||||
TabIndex = 18, ;
|
||||
Top = 111, ;
|
||||
Width = 50, ;
|
||||
ZOrderSet = 6
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'RENUNT1' AS renunt WITH ;
|
||||
Left = 352, ;
|
||||
Name = "RENUNT1", ;
|
||||
TabIndex = 12, ;
|
||||
Top = 3, ;
|
||||
ZOrderSet = 16, ;
|
||||
IMBUTON1.Height = 27, ;
|
||||
IMBUTON1.Name = "IMBUTON1", ;
|
||||
IMBUTON1.Width = 30, ;
|
||||
COMMAND1.Name = "COMMAND1"
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Shape2' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
BorderColor = 128,128,128, ;
|
||||
Height = 61, ;
|
||||
Left = 5, ;
|
||||
Name = "Shape2", ;
|
||||
Top = 41, ;
|
||||
Width = 405, ;
|
||||
ZOrderSet = 1
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Shape3' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
BorderColor = 128,128,128, ;
|
||||
Height = 76, ;
|
||||
Left = 5, ;
|
||||
Name = "Shape3", ;
|
||||
Top = 105, ;
|
||||
Width = 405, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 't21' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "thisform.nDNS", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Format = "rk", ;
|
||||
Height = 22, ;
|
||||
InputMask = "9999", ;
|
||||
Left = 300, ;
|
||||
Name = "t21", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 6, ;
|
||||
Top = 155, ;
|
||||
Width = 39, ;
|
||||
ZOrderSet = 10
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "omf.normat2", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Format = "k", ;
|
||||
Height = 22, ;
|
||||
InputMask = "999.999", ;
|
||||
Left = 222, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 2, ;
|
||||
TabIndex = 2, ;
|
||||
TabStop = .F., ;
|
||||
Top = 73, ;
|
||||
Width = 37, ;
|
||||
ZOrderSet = 11
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "omf.normat2lun", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Format = "k", ;
|
||||
Height = 22, ;
|
||||
Left = 300, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 2, ;
|
||||
TabIndex = 3, ;
|
||||
TabStop = .F., ;
|
||||
Top = 73, ;
|
||||
Width = 36, ;
|
||||
ZOrderSet = 14
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
ControlSource = "omf.codmf", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 22, ;
|
||||
Left = 222, ;
|
||||
Name = "Text3", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 2, ;
|
||||
TabIndex = 1, ;
|
||||
Top = 48, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 17
|
||||
*< 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 = 222, ;
|
||||
Name = "Text7", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 2, ;
|
||||
TabIndex = 4, ;
|
||||
Top = 109, ;
|
||||
Width = 180, ;
|
||||
ZOrderSet = 5
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text8' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "thisform.nDNSani", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Format = "k", ;
|
||||
Height = 22, ;
|
||||
InputMask = "99.99", ;
|
||||
Left = 222, ;
|
||||
Name = "Text8", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 5, ;
|
||||
Top = 155, ;
|
||||
Width = 40, ;
|
||||
ZOrderSet = 7
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text9' AS textbox WITH ;
|
||||
ControlSource = "omf.amortprec", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 222, ;
|
||||
Name = "Text9", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 10, ;
|
||||
Top = 261, ;
|
||||
Width = 102
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtDataEval' AS textbox WITH ;
|
||||
ControlSource = "thisform.dDataEval", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
Left = 222, ;
|
||||
Name = "txtDataEval", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 186, ;
|
||||
Width = 66
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtDR' AS textbox WITH ;
|
||||
ControlSource = "thisform.nDR", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "999 999", ;
|
||||
Left = 300, ;
|
||||
Name = "txtDR", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 8, ;
|
||||
Top = 211, ;
|
||||
Width = 38
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtDRani' AS textbox WITH ;
|
||||
ControlSource = "thisform.nDRani", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99.99", ;
|
||||
Left = 222, ;
|
||||
Name = "txtDRani", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 8, ;
|
||||
Top = 211, ;
|
||||
Width = 38
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtNorma_max' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.norma_max", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Format = "k", ;
|
||||
Height = 20, ;
|
||||
InputMask = "999", ;
|
||||
Left = 265, ;
|
||||
Name = "txtNorma_max", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 14, ;
|
||||
TabStop = .F., ;
|
||||
Top = 133, ;
|
||||
Width = 32, ;
|
||||
ZOrderSet = 7
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtNorma_min' AS textbox WITH ;
|
||||
Alignment = 3, ;
|
||||
ControlSource = "m.norma_min", ;
|
||||
Enabled = .T., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Format = "k", ;
|
||||
Height = 20, ;
|
||||
InputMask = "999", ;
|
||||
Left = 222, ;
|
||||
Name = "txtNorma_min", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 13, ;
|
||||
TabStop = .F., ;
|
||||
Top = 133, ;
|
||||
Width = 32, ;
|
||||
ZOrderSet = 7
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtUzuraPrec' AS textbox WITH ;
|
||||
ControlSource = "thisform.nUzuraPrec", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "999 999", ;
|
||||
Left = 222, ;
|
||||
Name = "txtUzuraPrec", ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 9, ;
|
||||
Top = 236, ;
|
||||
Width = 66
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE inainte_de_do_termin
|
||||
IF (m.norma_min <= thisform.nDNSani AND thisform.nDNSani <= m.norma_max)
|
||||
ELSE
|
||||
DO mesaj WITH "Durata normala de serviciu schimbata (DNS)","nu este din interval"
|
||||
RETURN .F.
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text7.GotFocus
|
||||
LOCAL den
|
||||
den=m.denumire
|
||||
|
||||
LOCAL SALV1,SALV2,salv3
|
||||
SALV1=M.NORMAT
|
||||
SALV2=M.NORMAAN
|
||||
salv3=m.codmf
|
||||
|
||||
OCA=CREATEOBJECT("NORMATREE_2005")
|
||||
OCA.SHOW(1)
|
||||
|
||||
IF buton=2
|
||||
IF TYPE('M.NORMAT')='C'
|
||||
m.NORMAT=STR(SALV1)
|
||||
m.NORMAAN=STR(SALV2)
|
||||
m.codmf=salv3
|
||||
ENDIF
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
SELE norma_2005
|
||||
SCAT MEMV
|
||||
|
||||
THISFORM.txtNorma_min.REFRESH
|
||||
THISFORM.txtNorma_max.REFRESH
|
||||
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text8.LostFocus
|
||||
LOCAL lnUzura
|
||||
lnUzura = 0
|
||||
thisform.nDNS = this.Value*12
|
||||
|
||||
DO CASE && aici calculez DR !!!
|
||||
CASE omf.dataeval = omf.datapif
|
||||
lnUzura = omf.uzura - (VAL(m.an)*12+VAL(m.nl) - 2005*12+1) - 1
|
||||
OTHERWISE && uzura = datacrt - dataeval
|
||||
lnUzura = (VAL(m.an)*12+VAL(m.nl)) - (YEAR(dataeval)*12+MONTH(dataeval))
|
||||
ENDCASE
|
||||
|
||||
thisform.nDR = (1-lnUzura/omf.normat2lun) * this.Value * 12
|
||||
thisform.nDRani = thisform.nDR/12
|
||||
|
||||
thisform.nUzuraPrec = (VAL(m.an)*12+VAL(m.nl) - (2005*12+1))
|
||||
thisform.Refresh
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text8.Valid
|
||||
IF (m.norma_min <= this.Value AND this.Value <= m.norma_max)
|
||||
ELSE
|
||||
DO mesaj WITH "Durata introdusa nu este din interval",""
|
||||
RETURN 0
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text9.Valid
|
||||
*!* IF !EMPTY(omf.dataeval)
|
||||
*!* LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
|
||||
*!* m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec
|
||||
*!* ENDIF
|
||||
*!* m.normat2=ROUND(m.normat2lun/12,2)
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE txtDataEval.Init
|
||||
LOCAL lcData, ldUltimaZi
|
||||
|
||||
lcData = "01/"+m.nl+"/"+m.an
|
||||
ldUltimaZi = GOMONTH(CTOD(lcData),1)-1
|
||||
|
||||
thisform.dDataeval = ldUltimaZi
|
||||
this.Refresh
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE txtDataEval.LostFocus
|
||||
thisform.nUzuraPrec = (YEAR(thisform.dDataEval)*12+MONTH(thisform.dDataEval)-(2005*12+1))
|
||||
thisform.txtUzuraPrec.Refresh
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE txtDataEval.Valid
|
||||
*!* IF !EMPTY(omf.dataeval)
|
||||
*!* LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
|
||||
*!* m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec
|
||||
*!* ENDIF
|
||||
*!* m.normat2=ROUND(m.normat2lun/12,2)
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE txtDR.Valid
|
||||
*!* IF !EMPTY(omf.dataeval)
|
||||
*!* LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
|
||||
*!* m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec
|
||||
*!* ENDIF
|
||||
*!* m.normat2=ROUND(m.normat2lun/12,2)
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE txtDRani.Valid
|
||||
*!* IF !EMPTY(omf.dataeval)
|
||||
*!* LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
|
||||
*!* m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec
|
||||
*!* ENDIF
|
||||
*!* m.normat2=ROUND(m.normat2lun/12,2)
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
215
Ferestre/Vechi/frm_schimb_valoare.sc2
Normal file
215
Ferestre/Vechi/frm_schimb_valoare.sc2
Normal file
@@ -0,0 +1,215 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_schimb_valoare.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: calcul_dr
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Height = 217
|
||||
Name = "FORMTERMIN12"
|
||||
Width = 346
|
||||
SHAPE1.Height = 35
|
||||
SHAPE1.Left = 0
|
||||
SHAPE1.Name = "SHAPE1"
|
||||
SHAPE1.Top = 0
|
||||
SHAPE1.Width = 276
|
||||
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
||||
TERMINAT1.IMBUTON1.Height = 27
|
||||
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
||||
TERMINAT1.IMBUTON1.Width = 30
|
||||
TERMINAT1.Left = 313
|
||||
TERMINAT1.Name = "TERMINAT1"
|
||||
TERMINAT1.TabIndex = 4
|
||||
TERMINAT1.Top = 3
|
||||
TITLUFRUMOS1.Caption = "Reevaluarea valorii de intrare"
|
||||
TITLUFRUMOS1.Height = 37
|
||||
TITLUFRUMOS1.Left = 6
|
||||
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
||||
TITLUFRUMOS1.TabIndex = 8
|
||||
TITLUFRUMOS1.Top = 4
|
||||
TITLUFRUMOS1.Width = 221
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de intrare veche", ;
|
||||
Height = 17, ;
|
||||
Left = 17, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 65, ;
|
||||
Width = 141
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Amortizare veche", ;
|
||||
Height = 17, ;
|
||||
Left = 17, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 9, ;
|
||||
Top = 128, ;
|
||||
Width = 95
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de intrare reevaluata", ;
|
||||
Height = 17, ;
|
||||
Left = 17, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 11, ;
|
||||
Top = 94, ;
|
||||
Width = 166
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Amortizare reevaluata", ;
|
||||
Height = 17, ;
|
||||
Left = 17, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 12, ;
|
||||
Top = 158, ;
|
||||
Width = 120
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Data reevaluare", ;
|
||||
Height = 17, ;
|
||||
Left = 17, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 13, ;
|
||||
Top = 185, ;
|
||||
Visible = .T., ;
|
||||
Width = 89
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'RENUNT1' AS renunt WITH ;
|
||||
Left = 281, ;
|
||||
Name = "RENUNT1", ;
|
||||
TabIndex = 5, ;
|
||||
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 'Text1' AS textbox WITH ;
|
||||
ControlSource = "omf.valIN", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 196, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 6, ;
|
||||
Top = 62, ;
|
||||
Width = 129
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
ControlSource = "omf.amorttot", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 196, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 126, ;
|
||||
Width = 129
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
ControlSource = "pnValIN", ;
|
||||
Format = "k", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 196, ;
|
||||
Name = "Text3", ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 1, ;
|
||||
Top = 91, ;
|
||||
Width = 129
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text4' AS textbox WITH ;
|
||||
ControlSource = "pnAmortTot", ;
|
||||
Format = "k", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 196, ;
|
||||
Name = "Text4", ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 2, ;
|
||||
Top = 155, ;
|
||||
Width = 129
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text5' AS textbox WITH ;
|
||||
ControlSource = "pnDataeval", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 196, ;
|
||||
Name = "Text5", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 3, ;
|
||||
Top = 184, ;
|
||||
Visible = .T., ;
|
||||
Width = 129
|
||||
*< 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 Text5.Valid
|
||||
thisform.calcul_dr
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
200
Ferestre/Vechi/frm_schimb_valoare2.sc2
Normal file
200
Ferestre/Vechi/frm_schimb_valoare2.sc2
Normal file
@@ -0,0 +1,200 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_schimb_valoare2.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: calcul_dr
|
||||
*p: valoare
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Height = 188
|
||||
Name = "FORMTERMIN12"
|
||||
valoare = 0
|
||||
Width = 329
|
||||
SHAPE1.Height = 35
|
||||
SHAPE1.Left = 0
|
||||
SHAPE1.Name = "SHAPE1"
|
||||
SHAPE1.Top = 0
|
||||
SHAPE1.Width = 261
|
||||
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
||||
TERMINAT1.IMBUTON1.Height = 27
|
||||
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
||||
TERMINAT1.IMBUTON1.Width = 30
|
||||
TERMINAT1.Left = 295
|
||||
TERMINAT1.Name = "TERMINAT1"
|
||||
TERMINAT1.TabIndex = 4
|
||||
TERMINAT1.Top = 3
|
||||
TITLUFRUMOS1.Caption = "Majorarea valorii de intrare"
|
||||
TITLUFRUMOS1.Height = 37
|
||||
TITLUFRUMOS1.Left = 6
|
||||
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
||||
TITLUFRUMOS1.TabIndex = 7
|
||||
TITLUFRUMOS1.Top = 4
|
||||
TITLUFRUMOS1.Width = 221
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de intrare veche", ;
|
||||
Height = 17, ;
|
||||
Left = 21, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 8, ;
|
||||
Top = 65, ;
|
||||
Width = 141
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Majorare", ;
|
||||
Height = 17, ;
|
||||
Left = 21, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 96, ;
|
||||
Width = 50
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de intrare noua", ;
|
||||
Height = 17, ;
|
||||
Left = 21, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 9, ;
|
||||
Top = 125, ;
|
||||
Width = 137
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Data reevaluare", ;
|
||||
Height = 17, ;
|
||||
Left = 21, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 11, ;
|
||||
Top = 153, ;
|
||||
Visible = .T., ;
|
||||
Width = 89
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'RENUNT1' AS renunt WITH ;
|
||||
Left = 263, ;
|
||||
Name = "RENUNT1", ;
|
||||
TabIndex = 5, ;
|
||||
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 'Text1' AS textbox WITH ;
|
||||
ControlSource = "omf.valIN", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 184, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 6, ;
|
||||
Top = 62, ;
|
||||
Width = 129
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
ControlSource = "thisform.valoare", ;
|
||||
Format = "k", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 184, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 1, ;
|
||||
Top = 93, ;
|
||||
Width = 129
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
ControlSource = "pnValIN", ;
|
||||
Format = "k", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 184, ;
|
||||
Name = "Text3", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 2, ;
|
||||
Top = 122, ;
|
||||
Width = 129
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text5' AS textbox WITH ;
|
||||
ControlSource = "pnDataeval", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 184, ;
|
||||
Name = "Text5", ;
|
||||
ReadOnly = .F., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 3, ;
|
||||
Top = 152, ;
|
||||
Visible = .T., ;
|
||||
Width = 129
|
||||
*< 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 Init
|
||||
pnValin = omf.valin+thisform.valoare
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text2.Valid
|
||||
pnValin=omf.valin+thisform.valoare
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text5.Valid
|
||||
thisform.calcul_dr
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
80
Ferestre/Vechi/fundal.sc2
Normal file
80
Ferestre/Vechi/fundal.sc2
Normal file
@@ -0,0 +1,80 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
AlwaysOnTop = .F.
|
||||
AutoCenter = .T.
|
||||
BackColor = 255,255,255
|
||||
BorderStyle = 0
|
||||
DoCreate = .T.
|
||||
Enabled = .T.
|
||||
Height = 337
|
||||
Name = "Ffergen1"
|
||||
Picture = ..\..\..\standarde\
|
||||
Width = 700
|
||||
WindowState = 0
|
||||
WindowType = 0
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Image1' AS image WITH ;
|
||||
Height = 189, ;
|
||||
Left = 68, ;
|
||||
Name = "Image1", ;
|
||||
Picture = ..\grafice\conimob.bmp, ;
|
||||
Stretch = 0, ;
|
||||
Top = 9, ;
|
||||
Width = 563
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
PROCEDURE Activate
|
||||
IF PRIMADATA
|
||||
Do ce_windows In pmenu.prg
|
||||
*!* PUBLIC op_imob
|
||||
*!* op_imob=Crea('p_imob')
|
||||
DO alegeprogram
|
||||
DO FORM START00
|
||||
OSTART=CREATEOBJ('START00')
|
||||
PRIMADATA=.F.
|
||||
op_imob.Show
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
*thisform.image1.height=thisform.height
|
||||
*thisform.image1.width=thisform.width
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Release
|
||||
OSTART.RELEASE
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE RightClick
|
||||
DO FORM START00
|
||||
*OSTART.SHOW(1)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Image1.RightClick
|
||||
thisform.rightclick
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
219
Ferestre/Vechi/inchidluni.sc2
Normal file
219
Ferestre/Vechi/inchidluni.sc2
Normal file
@@ -0,0 +1,219 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="inchidluni.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Height = 200
|
||||
Left = 1
|
||||
Name = "Dataenvironment"
|
||||
Top = 220
|
||||
Width = 520
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Shape1" 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.Column3.Check1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*p: c
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
AutoCenter = .T.
|
||||
BorderStyle = 3
|
||||
c = oo
|
||||
DoCreate = .T.
|
||||
Height = 478
|
||||
Name = "Ffergen1"
|
||||
Width = 359
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
||||
Left = 311, ;
|
||||
Name = "Cmdtermin1", ;
|
||||
TabIndex = 3, ;
|
||||
Top = 13, ;
|
||||
Imbuton1.Height = 27, ;
|
||||
Imbuton1.Name = "Imbuton1", ;
|
||||
Imbuton1.Width = 30, ;
|
||||
Command1.Name = "Command1"
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Grid1' AS grid WITH ;
|
||||
BackColor = 254,255,240, ;
|
||||
ColumnCount = 3, ;
|
||||
DeleteMark = .F., ;
|
||||
GridLineColor = 192,192,192, ;
|
||||
GridLines = 3, ;
|
||||
Height = 324, ;
|
||||
Left = 27, ;
|
||||
Name = "Grid1", ;
|
||||
Panel = 1, ;
|
||||
ReadOnly = .T., ;
|
||||
RecordSource = "calendar", ;
|
||||
TabIndex = 4, ;
|
||||
Top = 129, ;
|
||||
Width = 300, ;
|
||||
ZOrderSet = 1, ;
|
||||
Column1.Alignment = 0, ;
|
||||
Column1.BackColor = 254,255,240, ;
|
||||
Column1.ColumnOrder = 2, ;
|
||||
Column1.ControlSource = "nl", ;
|
||||
Column1.Name = "Column1", ;
|
||||
Column1.ReadOnly = .T., ;
|
||||
Column1.Width = 75, ;
|
||||
Column2.BackColor = 254,255,240, ;
|
||||
Column2.ColumnOrder = 1, ;
|
||||
Column2.ControlSource = "an", ;
|
||||
Column2.Name = "Column2", ;
|
||||
Column2.ReadOnly = .T., ;
|
||||
Column2.Width = 84, ;
|
||||
Column3.Alignment = 0, ;
|
||||
Column3.BackColor = 254,255,240, ;
|
||||
Column3.ControlSource = "smf", ;
|
||||
Column3.CurrentControl = "Check1", ;
|
||||
Column3.Name = "Column3", ;
|
||||
Column3.ReadOnly = .F., ;
|
||||
Column3.Sparse = .F., ;
|
||||
Column3.Width = 81
|
||||
*< END OBJECT: BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
||||
Alignment = 0, ;
|
||||
Caption = "Luna", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T.
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
|
||||
Alignment = 0, ;
|
||||
Caption = "Anul", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T.
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column3.Check1' AS checkbox WITH ;
|
||||
Alignment = 0, ;
|
||||
Caption = "", ;
|
||||
Height = 17, ;
|
||||
Left = 27, ;
|
||||
Name = "Check1", ;
|
||||
ReadOnly = .F., ;
|
||||
Top = 26, ;
|
||||
Width = 60
|
||||
*< END OBJECT: BaseClass="checkbox" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
|
||||
Alignment = 0, ;
|
||||
Caption = "Luna inchisa", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
|
||||
BackColor = 254,255,240, ;
|
||||
BorderStyle = 0, ;
|
||||
ControlSource = "", ;
|
||||
ForeColor = 255,255,240, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
Value =
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .F., ;
|
||||
Caption = "In continuare datele din aceste luni vor putea fi vizualizate, dar nu si modificate. De asemenea nu vor fi permise noi introduceri de date/documente in aceste luni contabile.", ;
|
||||
Height = 61, ;
|
||||
Left = 28, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 6, ;
|
||||
Top = 63, ;
|
||||
Width = 300, ;
|
||||
WordWrap = .T.
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label10' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "BLOCARE DE LUNA", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 255,255,255, ;
|
||||
Height = 22, ;
|
||||
Left = 25, ;
|
||||
Name = "Label10", ;
|
||||
TabIndex = 5, ;
|
||||
Top = 18, ;
|
||||
Width = 169, ;
|
||||
ZOrderSet = 9
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .F., ;
|
||||
Caption = "Bifati lunile pe care le doriti inchise.", ;
|
||||
Height = 22, ;
|
||||
Left = 28, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 6, ;
|
||||
Top = 45, ;
|
||||
Width = 300, ;
|
||||
WordWrap = .T.
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||
Height = 460, ;
|
||||
Left = 11, ;
|
||||
Name = "Shape1", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 6, ;
|
||||
Width = 337, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
PROCEDURE Cmdtermin1.Command1.Valid
|
||||
sele calendar
|
||||
loca for nl=m.nl and an=m.an
|
||||
luna_inchisa = smf
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
119
Ferestre/Vechi/ingest.sc2
Normal file
119
Ferestre/Vechi/ingest.sc2
Normal file
@@ -0,0 +1,119 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="ingest.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS form1 AS form
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmdrenunt1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
AutoCenter = .T.
|
||||
BackColor = 255,255,255
|
||||
BorderStyle = 1
|
||||
Caption = "Form1"
|
||||
DoCreate = .T.
|
||||
Height = 137
|
||||
Name = "Form1"
|
||||
TitleBar = 0
|
||||
Width = 353
|
||||
WindowType = 1
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Banda21' AS banda2 WITH ;
|
||||
Height = 34, ;
|
||||
Left = -28, ;
|
||||
Name = "Banda21", ;
|
||||
Top = 0, ;
|
||||
Width = 454
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Cmdrenunt1' AS cmdrenunt WITH ;
|
||||
Left = 284, ;
|
||||
Name = "Cmdrenunt1", ;
|
||||
Top = 2, ;
|
||||
Imbuton1.Height = 27, ;
|
||||
Imbuton1.Name = "Imbuton1", ;
|
||||
Imbuton1.Width = 30, ;
|
||||
Command1.Name = "Command1"
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
||||
Left = 320, ;
|
||||
Name = "CMDTERMIN1", ;
|
||||
Top = 2, ;
|
||||
Imbuton1.Height = 27, ;
|
||||
Imbuton1.Name = "Imbuton1", ;
|
||||
Imbuton1.Width = 30, ;
|
||||
Command1.Name = "Command1"
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .F., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Label1", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Height = 36, ;
|
||||
Left = 26, ;
|
||||
Name = "Label1", ;
|
||||
Top = 52, ;
|
||||
Width = 300, ;
|
||||
WordWrap = .T.
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .F., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Label2", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Height = 17, ;
|
||||
Left = 10, ;
|
||||
Name = "Label2", ;
|
||||
Top = 100, ;
|
||||
Width = 203, ;
|
||||
WordWrap = .T.
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 89, ;
|
||||
Left = 3, ;
|
||||
Name = "Shape1", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 40, ;
|
||||
Width = 346
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
ControlSource = "m.cauza", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Height = 23, ;
|
||||
Left = 216, ;
|
||||
Name = "Text1", ;
|
||||
SpecialEffect = 2, ;
|
||||
Top = 98, ;
|
||||
Width = 127
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ENDDEFINE
|
||||
96
Ferestre/Vechi/optiuni.sc2
Normal file
96
Ferestre/Vechi/optiuni.sc2
Normal file
@@ -0,0 +1,96 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="LABEL_ITEM1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*p: amo
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 3
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Height = 129
|
||||
Name = "Formtermin12"
|
||||
Width = 327
|
||||
SHAPE1.Name = "SHAPE1"
|
||||
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
||||
TERMINAT1.IMBUTON1.Height = 27
|
||||
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
||||
TERMINAT1.IMBUTON1.Width = 30
|
||||
TERMINAT1.Left = 295
|
||||
TERMINAT1.Name = "TERMINAT1"
|
||||
TERMINAT1.Top = 3
|
||||
TITLUFRUMOS1.Caption = "OPTIUNI"
|
||||
TITLUFRUMOS1.Height = 37
|
||||
TITLUFRUMOS1.Left = 7
|
||||
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
||||
TITLUFRUMOS1.Top = 6
|
||||
TITLUFRUMOS1.Width = 271
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Check1' AS checkbox WITH ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Da", ;
|
||||
Height = 17, ;
|
||||
Left = 252, ;
|
||||
Name = "Check1", ;
|
||||
Top = 60, ;
|
||||
Value = 0, ;
|
||||
Width = 60
|
||||
*< END OBJECT: BaseClass="checkbox" />
|
||||
|
||||
ADD OBJECT 'LABEL_ITEM1' AS label_item WITH ;
|
||||
AutoSize = .F., ;
|
||||
BackStyle = 0, ;
|
||||
Height = 60, ;
|
||||
Left = 12, ;
|
||||
Name = "LABEL_ITEM1", ;
|
||||
Top = 48, ;
|
||||
Width = 180
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
|
||||
|
||||
PROCEDURE Init
|
||||
sele optiuniS
|
||||
loca for optiune='AMORTISMENT'
|
||||
IF !FOUND()
|
||||
APPE BLAN
|
||||
REPL OPTIUNE WITH 'AMORTISMENT'
|
||||
REPL DA WITH .F.
|
||||
ENDIF
|
||||
THISFORM.CHECK1.Value=IIF(DA,1,0)
|
||||
thisform.amo=optiunis.da
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Check1.Valid
|
||||
thisform.amo=IIF(THIS.Value=1,.t.,.f.)
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE TERMINAT1.COMMAND1.Click
|
||||
sele optiuniS
|
||||
loca for optiune='AMORTISMENT'
|
||||
REPL DA WITH THISFORM.AMO
|
||||
thisform.Release
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
590
Ferestre/Vechi/start00.sc2
Normal file
590
Ferestre/Vechi/start00.sc2
Normal file
@@ -0,0 +1,590 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="start00.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" 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 = "Ffergen1"
|
||||
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", ;
|
||||
FontName = "Arial", ;
|
||||
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 = .F., ;
|
||||
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", ;
|
||||
FontName = "Arial", ;
|
||||
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 = .F., ;
|
||||
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", ;
|
||||
FontName = "Arial", ;
|
||||
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 = .F., ;
|
||||
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
|
||||
*
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE cindmaus
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE go
|
||||
IF THISFORM.VALIDLUNA()
|
||||
THISFORM.VISIBLE=.F.
|
||||
|
||||
THISFORM.LASFIRSIT
|
||||
|
||||
|
||||
do totv
|
||||
|
||||
DO INIT_OPTIUNI
|
||||
|
||||
THISFORM.RELEASE
|
||||
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
|
||||
IF !Start_Nou()
|
||||
LOC=ALLT(LOCTEMPO)
|
||||
ELSE
|
||||
LOC = ADDBS(gcTempPath)
|
||||
ENDIF
|
||||
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
|
||||
|
||||
*** compar calendarmf.dbf cu calendar.dbf
|
||||
DO compar_calendare WITH 'calendarmf','calendar'
|
||||
|
||||
*** 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()
|
||||
* 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
|
||||
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
|
||||
Sele FIRMA
|
||||
*Loca For FIRMA=M.FLUNG
|
||||
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')
|
||||
USE IN calendar
|
||||
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
|
||||
*m.an=thisform.ttanul
|
||||
_AN = THIS.TTANUL
|
||||
_LUNA = THIS.TTLUNA
|
||||
m.an = THIS.TTANUL
|
||||
SELECT lunilean
|
||||
SCATTER MEMVAR
|
||||
_NL=NL
|
||||
*!* 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
|
||||
sele lunilean
|
||||
seek(m.nl)
|
||||
m.luna=numeluna
|
||||
THIS.TTANUL = m.an
|
||||
ENDIF
|
||||
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
|
||||
726
Ferestre/Vechi/startfirma.sc2
Normal file
726
Ferestre/Vechi/startfirma.sc2
Normal file
@@ -0,0 +1,726 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="startfirma.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmdrenunt1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: seriadebaza
|
||||
*p: ttanul
|
||||
*p: ttfirma
|
||||
*p: ttluna
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
AutoCenter = .T.
|
||||
BackColor = 255,255,255
|
||||
BorderStyle = 1
|
||||
DoCreate = .T.
|
||||
Height = 422
|
||||
Name = "Ffergen1"
|
||||
Picture = ..\..\
|
||||
Width = 500
|
||||
WindowType = 1
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Banda21' AS banda2 WITH ;
|
||||
Height = 34, ;
|
||||
Left = 0, ;
|
||||
Name = "Banda21", ;
|
||||
Top = 0, ;
|
||||
Width = 428
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Cmdrenunt1' AS cmdrenunt WITH ;
|
||||
Left = 432, ;
|
||||
Name = "Cmdrenunt1", ;
|
||||
TabIndex = 12, ;
|
||||
Top = 2, ;
|
||||
Imbuton1.Height = 27, ;
|
||||
Imbuton1.Name = "Imbuton1", ;
|
||||
Imbuton1.Width = 30, ;
|
||||
Command1.Name = "Command1"
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
||||
Left = 468, ;
|
||||
Name = "Cmdtermin1", ;
|
||||
TabIndex = 11, ;
|
||||
Top = 2, ;
|
||||
Imbuton1.Height = 27, ;
|
||||
Imbuton1.Name = "Imbuton1", ;
|
||||
Imbuton1.Width = 30, ;
|
||||
Command1.Name = "Command1"
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 255,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Bun Venit! ", ;
|
||||
FontBold = .T., ;
|
||||
FontItalic = .T., ;
|
||||
FontName = "Comic Sans MS", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 18, ;
|
||||
ForeColor = 255,0,0, ;
|
||||
Height = 37, ;
|
||||
Left = 48, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 24, ;
|
||||
Top = 41, ;
|
||||
Width = 128, ;
|
||||
ZOrderSet = 1
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label11' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Anul:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 132, ;
|
||||
Name = "Label11", ;
|
||||
TabIndex = 16, ;
|
||||
Top = 384, ;
|
||||
Width = 44, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label12' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Strada:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 111, ;
|
||||
Name = "Label12", ;
|
||||
TabIndex = 19, ;
|
||||
Top = 276, ;
|
||||
Width = 62, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label13' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Numarul:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 94, ;
|
||||
Name = "Label13", ;
|
||||
TabIndex = 17, ;
|
||||
Top = 302, ;
|
||||
Width = 74, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Luna contabila:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 30, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 20, ;
|
||||
Top = 354, ;
|
||||
Width = 126, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Cod fiscal:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 71, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 22, ;
|
||||
Top = 131, ;
|
||||
Width = 87, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Nr. Inreg. R.C.:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 32, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 14, ;
|
||||
Top = 158, ;
|
||||
Width = 123, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label6' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Banca:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 118, ;
|
||||
Name = "Label6", ;
|
||||
TabIndex = 21, ;
|
||||
Top = 185, ;
|
||||
Width = 59, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label7' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Cont bancar:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 56, ;
|
||||
Name = "Label7", ;
|
||||
TabIndex = 15, ;
|
||||
Top = 211, ;
|
||||
Width = 106, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label8' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Localitatea:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 64, ;
|
||||
Name = "Label8", ;
|
||||
TabIndex = 18, ;
|
||||
Top = 250, ;
|
||||
Width = 97, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label9' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Numele firmei: ", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 42, ;
|
||||
Name = "Label9", ;
|
||||
TabIndex = 25, ;
|
||||
Top = 103, ;
|
||||
Width = 122, ;
|
||||
ZOrderSet = 1
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 373, ;
|
||||
Left = 11, ;
|
||||
Name = "Shape1", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 42, ;
|
||||
Width = 480, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Shape2' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 0, ;
|
||||
Left = 10, ;
|
||||
Name = "Shape2", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 337, ;
|
||||
Width = 480, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.cod_fiscal", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 12, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 2, ;
|
||||
Top = 129, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 25
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text10' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.numar", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 12, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text10", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 8, ;
|
||||
Top = 300, ;
|
||||
Value = , ;
|
||||
Width = 102, ;
|
||||
ZOrderSet = 26
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.luU", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 12, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 9, ;
|
||||
ToolTipText = "Introduceti (in cifre) numarul lunii contabile cu care doriti sa incepeti.", ;
|
||||
Top = 352, ;
|
||||
Value = , ;
|
||||
Width = 102, ;
|
||||
ZOrderSet = 25
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.an", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 12, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text3", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 10, ;
|
||||
ToolTipText = "Introduceti anul (inclusiv secolul).", ;
|
||||
Top = 382, ;
|
||||
Value = , ;
|
||||
Width = 102, ;
|
||||
ZOrderSet = 26
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text4' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.flung", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 12, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text4", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 1, ;
|
||||
ToolTipText = "Introduceti numele complet al noii firme", ;
|
||||
Top = 101, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text5' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.reg_com", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 12, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text5", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 3, ;
|
||||
Top = 156, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 26
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text6' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.banca", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 12, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text6", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 4, ;
|
||||
Top = 183, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 25
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text7' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.cont_banca", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 12, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text7", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 5, ;
|
||||
Top = 209, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 26
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text8' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.localitate", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 12, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text8", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 6, ;
|
||||
Top = 248, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 26
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text9' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.strada", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 12, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text9", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 7, ;
|
||||
Top = 274, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 25
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
|
||||
Caption = "CONTAFIN IMOBILIZARI", ;
|
||||
FontSize = 13, ;
|
||||
Left = 8, ;
|
||||
Name = "Titlufrumos1", ;
|
||||
Top = 5
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
|
||||
|
||||
PROCEDURE Activate
|
||||
*public M.AN
|
||||
|
||||
M.LUU=''
|
||||
m.luU=STR(MONTH(DATE()))
|
||||
M.AN=ALLTRIM(STR(YEAR(DATE())))
|
||||
m.LUU=RIGHT('0'+ALLTRIM(m.lUU),2)
|
||||
M.NL=M.LUU
|
||||
*M.AN=XXAN
|
||||
|
||||
*thisform.ttfirma="Acest program poate lucra cu mai multe firme. Introduceti numele complet al noii firme."
|
||||
*thisform.ttluna="Introduceti (in cifre) numarul lunii contabile cu care doriti sa incepeti."
|
||||
*thisform.ttanul="Introduceti anul (inclusiv secolul)."
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE seriadebaza
|
||||
DO seriadebaza IN proceduri.prg
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cmdtermin1.Click
|
||||
*DO NOT RELEASE
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cmdtermin1.Command1.Click
|
||||
*
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cmdtermin1.Command1.Valid
|
||||
PRIVATE LAN,LLUN
|
||||
LOCAL I,J,NI
|
||||
|
||||
LAN='AN'+M.AN
|
||||
LLUN='DATE'+M.NL
|
||||
I=.F.
|
||||
|
||||
*SCRIE NUMELE SCURT AL FIRMEI___________________
|
||||
SELECT firma
|
||||
m.firma=UPPER(ALLTRIM(m.flung))
|
||||
m.FSCURT=M.firma
|
||||
m.FSCURT=UPPER(ALLTRIM(m.FSCURT))+SPACE(7)
|
||||
m.FSCURT=ALLTRIM(LEFT(ALLTRIM(M.FSCURT),8))
|
||||
m.FSCURT=CHRTRAN(M.FSCURT,SPACE(8),'________')
|
||||
|
||||
tt='Numele noii firme nu trebuie sa coincida cu numele altor firme. '+;
|
||||
'O firma al carui nume incepe cu <'+LEFT(STRTRAN(m.FSCURT,'_',' ')+SPACE(8),8)+;
|
||||
'> exista deja! '+;
|
||||
'Este important ca primele 8 caractere sa fie diferite de <'
|
||||
IF LEFT(STRTRAN(m.FSCURT,'_',' ')+SPACE(8),8)!=LEFT(m.FSCURT+"________",8)
|
||||
ttt=LEFT(STRTRAN(m.FSCURT,'_',' ')+SPACE(8),8)+'> sau <'+LEFT(m.FSCURT+"________",8)+'>.'
|
||||
ELSE
|
||||
ttt=LEFT(m.FSCURT+"________",8)+'>.'
|
||||
ENDIF
|
||||
|
||||
SCAN
|
||||
IF UPPER(ALLTRIM(firma))==UPPER(ALLTRIM(M.firma)) OR UPPER(ALLTRIM(FSCURT))==UPPER(ALLTRIM(M.FSCURT)) THEN
|
||||
I=.T.
|
||||
omm=CREA('textmare')
|
||||
omm.label2.CAPTION=tt+ttt
|
||||
omm.SHOW(1)
|
||||
RETURN
|
||||
ENDIF
|
||||
ENDSCAN
|
||||
|
||||
|
||||
*DACA FIRMA NU EXISTA DEJA_______________
|
||||
IF !I
|
||||
APPE BLANK
|
||||
NFSCURT=M.FSCURT
|
||||
m.calefirm=dirgen+'\'+NFSCURT
|
||||
calefirma=m.calefirm
|
||||
GATHER MEMVAR
|
||||
REPL permis WITH '*'
|
||||
REPL locTEMPO WITH '&DIRGEN\'
|
||||
|
||||
*CONSTRUIESC ARBORE FISIERE FIRMA NOUA______________________________
|
||||
SET DEFA TO c:
|
||||
IF !DIRECTORY('contafin')
|
||||
MD contafin
|
||||
ENDIF
|
||||
SET DEFA TO c:\contafin
|
||||
IF !DIRECTORY('temp')
|
||||
MD temp
|
||||
ENDIF
|
||||
SET DEFA TO c:\contafin\temp
|
||||
MD &NFSCURT
|
||||
SET DEFA TO c:\contafin\temp\&NFSCURT
|
||||
MD tempo
|
||||
|
||||
SET DEFA TO &dirgen
|
||||
CD &dirgen
|
||||
MD &NFSCURT
|
||||
CD &NFSCURT
|
||||
MD DATEAN
|
||||
MD LUNA
|
||||
MD tempo
|
||||
MD &LAN
|
||||
CD &LAN
|
||||
MD &LLUN
|
||||
*COPIEZ FISIERELE STANDARD__________________
|
||||
CLOSE DATABASE
|
||||
SET DEFA TO &dirgen
|
||||
CD &dirgen
|
||||
COPY FILE _ALFA\DATEAN\*.* TO &NFSCURT\DATEAN\*.*
|
||||
COPY FILE _ALFA\LUNA\*.* TO &NFSCURT\LUNA\*.*
|
||||
COPY FILE _ALFA\tempo\*.* TO &NFSCURT\tempo\*.*
|
||||
COPY FILE _ALFA\AN0000\DATE00\*.* TO &NFSCURT\&LAN\&LLUN\*.*
|
||||
COPY FILE _ALFA\tempo\*.* TO c:\contafin\temp\&NFSCURT\tempo\*.*
|
||||
|
||||
CD &NFSCURT\&LAN\&LLUN
|
||||
RENAME ACT.DBF TO ACT_.DBF
|
||||
RENAME ACT.CDX TO ACT_.CDX
|
||||
DELETE FILE ACT.*
|
||||
|
||||
*SCRIU IN CALENDAR___________________
|
||||
DIRFIRM=dirgen+NFSCURT
|
||||
SELE 0
|
||||
USE &calefirma\DATEAN\CALENDAR IN 0 ALIAS cal
|
||||
APPE BLANK
|
||||
REPL NL WITH M.NL
|
||||
REPL AN WITH M.AN
|
||||
REPL SCONT WITH .T.
|
||||
m.antet=ALLTRIM(M.flung)
|
||||
|
||||
THISFORM.RELEASE
|
||||
*____________
|
||||
ENDIF
|
||||
|
||||
USE &calefirma\DATEAN\CUL IN 0 ALIAS CUL
|
||||
THISFORM.SERIADEBAZA
|
||||
USE IN CUL
|
||||
DO TOTV
|
||||
|
||||
|
||||
SELE LUNILEAN
|
||||
SEEK (M.NL)
|
||||
m.LUNA=NUMELUNA
|
||||
|
||||
*schimb titlul__________________
|
||||
capapl="CONTAFIN IMOBILIZARI Firma "+UPPER(RTRIM(m.flung))+"- Luna contabila: "+RTRIM(M.LUNA)+" "+M.AN
|
||||
goApp.SetCaption(capapl)
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text2.Valid
|
||||
m.nl=RIGHT('0'+ALLTRIM(m.lUU),2)
|
||||
|
||||
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text3.Valid
|
||||
M.AN=ALLTRIM(THIS.VALUE)
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text4.MouseMove
|
||||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text4.Valid
|
||||
if alltrim(m.flung)=="" then
|
||||
wait wind "Introduceti numele firmei!"
|
||||
return 0
|
||||
endif
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text4.When
|
||||
*thisform.label8.caption=thisform.ttFIRMA
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
319
Ferestre/Vechi/valoare.sc2
Normal file
319
Ferestre/Vechi/valoare.sc2
Normal file
@@ -0,0 +1,319 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="valoare.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen12 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" 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="Label3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Urmator1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Height = 273
|
||||
KeyPreview = .T.
|
||||
Name = "Ffergen12"
|
||||
Width = 452
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
|
||||
Height = 27, ;
|
||||
Left = 388, ;
|
||||
Name = "CMDRENUNT1", ;
|
||||
Top = 3, ;
|
||||
Width = 30, ;
|
||||
ZOrderSet = 9, ;
|
||||
Imbuton1.Height = 27, ;
|
||||
Imbuton1.Name = "Imbuton1", ;
|
||||
Imbuton1.Width = 30, ;
|
||||
Command1.Name = "Command1"
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
||||
Height = 24, ;
|
||||
Left = 12, ;
|
||||
Name = "Cmdtermin1", ;
|
||||
TabIndex = 2, ;
|
||||
Top = 240, ;
|
||||
Visible = .F., ;
|
||||
Width = 29, ;
|
||||
ZOrderSet = 8, ;
|
||||
Imbuton1.Height = 27, ;
|
||||
Imbuton1.Name = "Imbuton1", ;
|
||||
Imbuton1.Width = 30, ;
|
||||
Command1.Name = "Command1"
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Grid1' AS grid WITH ;
|
||||
ColumnCount = 3, ;
|
||||
DeleteMark = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Height = 189, ;
|
||||
Left = 11, ;
|
||||
Name = "Grid1", ;
|
||||
Panel = 1, ;
|
||||
RecordSource = "tmf", ;
|
||||
RowHeight = 19, ;
|
||||
TabIndex = 1, ;
|
||||
Top = 43, ;
|
||||
Width = 426, ;
|
||||
ZOrderSet = 4, ;
|
||||
Column1.BackColor = 255,255,255, ;
|
||||
Column1.ControlSource = "denumire", ;
|
||||
Column1.FontName = "Arial Narrow", ;
|
||||
Column1.FontSize = 10, ;
|
||||
Column1.Name = "Column1", ;
|
||||
Column1.ReadOnly = .T., ;
|
||||
Column1.Width = 173, ;
|
||||
Column2.BackColor = 255,255,255, ;
|
||||
Column2.ControlSource = "valini", ;
|
||||
Column2.FontName = "Arial Narrow", ;
|
||||
Column2.FontSize = 10, ;
|
||||
Column2.InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Column2.Name = "Column2", ;
|
||||
Column2.ReadOnly = .T., ;
|
||||
Column2.Width = 108, ;
|
||||
Column3.BackColor = 232,255,255, ;
|
||||
Column3.ControlSource = "valtrans", ;
|
||||
Column3.FontName = "Arial Narrow", ;
|
||||
Column3.FontSize = 10, ;
|
||||
Column3.Format = "rk", ;
|
||||
Column3.InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Column3.Name = "Column3", ;
|
||||
Column3.Width = 113
|
||||
*< END OBJECT: BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Denumire", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T.
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Valoarea initiala", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T.
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Valoarea retinuta", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
|
||||
BackColor = 232,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .F., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Introduceti valorile care se transforma in mijloc fix ", ;
|
||||
FontSize = 10, ;
|
||||
Height = 22, ;
|
||||
Left = 15, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 4, ;
|
||||
Top = 16, ;
|
||||
Width = 287, ;
|
||||
WordWrap = .T., ;
|
||||
ZOrderSet = 3
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Total valoare retinuta", ;
|
||||
Height = 17, ;
|
||||
Left = 184, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 5, ;
|
||||
Top = 240, ;
|
||||
Width = 116, ;
|
||||
ZOrderSet = 5
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 229, ;
|
||||
Left = 4, ;
|
||||
Name = "Shape1", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 38, ;
|
||||
Width = 443, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Shape2' AS shape WITH ;
|
||||
BackColor = 0,64,128, ;
|
||||
BorderStyle = 0, ;
|
||||
BorderWidth = 0, ;
|
||||
Height = 33, ;
|
||||
Left = -1, ;
|
||||
Name = "Shape2", ;
|
||||
Top = 0, ;
|
||||
Width = 385, ;
|
||||
ZOrderSet = 6
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
ControlSource = "total", ;
|
||||
DisabledBackColor = 255,255,255, ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Format = "rk", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 302, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 2, ;
|
||||
TabIndex = 3, ;
|
||||
Top = 237, ;
|
||||
Width = 119, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
|
||||
Caption = "Introduceti valoarea care se transforma in mijloc fix", ;
|
||||
Height = 37, ;
|
||||
Left = 4, ;
|
||||
Name = "Titlufrumos1", ;
|
||||
Top = 9, ;
|
||||
Width = 323, ;
|
||||
ZOrderSet = 7
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Urmator1' AS urmator WITH ;
|
||||
Height = 27, ;
|
||||
Left = 420, ;
|
||||
Name = "Urmator1", ;
|
||||
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" />
|
||||
|
||||
PROCEDURE Init
|
||||
PUBLIC total
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE KeyPress
|
||||
LPARAMETERS nKeyCode, nShiftAltCtrl
|
||||
*!* IF nkeycode=13
|
||||
*!* IF UPPER(this.ActiveControl.name)="GRID1"
|
||||
*!* NODEFAULT
|
||||
*!* SELECT TMF
|
||||
*!* SKIP
|
||||
*!* THIS.GRID1.SetFocus
|
||||
*!*
|
||||
*!* ENDIF
|
||||
*!* ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cmdtermin1.Command1.GotFocus
|
||||
thisform.text2.Refresh
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Grid1.AfterRowColChange
|
||||
LPARAMETERS nColIndex
|
||||
r=RECNO()
|
||||
SELECT tmf
|
||||
SUM valtrans TO total
|
||||
thisform.text2.Refresh
|
||||
GO r
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Grid1.BeforeRowColChange
|
||||
LPARAMETERS nColIndex
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Grid1.Column3.Text1.KeyPress
|
||||
LPARAMETERS nKeyCode, nShiftAltCtrl
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Grid1.Column3.Text1.Valid
|
||||
IF valtrans>valini
|
||||
DO mesaj WITH "Valoarea transformata este mai mare decat ",'valoarea initiala !'
|
||||
RETURN 0
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Urmator1.Command1.Click
|
||||
BUTON=1
|
||||
THISFORM.release
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Urmator1.Command1.GotFocus
|
||||
thisform.text2.Refresh
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
129
Ferestre/Vechi/valori.sc2
Normal file
129
Ferestre/Vechi/valori.sc2
Normal file
@@ -0,0 +1,129 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="valori.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen12 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Height = 145
|
||||
Name = "Ffergen12"
|
||||
Width = 315
|
||||
Line1.Name = "Line1"
|
||||
Line1.ZOrderSet = 1
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
||||
Caption = "\<CONTINUARE", ;
|
||||
Height = 25, ;
|
||||
Left = 206, ;
|
||||
Name = "Cmdtermin1", ;
|
||||
TabIndex = 2, ;
|
||||
Top = 113, ;
|
||||
Width = 89, ;
|
||||
ZOrderSet = 4
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .F., ;
|
||||
Caption = "Introduceti valoarea care se transforma in mijloc fix pentru imobilizarea:", ;
|
||||
Height = 41, ;
|
||||
Left = 12, ;
|
||||
Name = "Label1", ;
|
||||
Top = 7, ;
|
||||
Width = 287, ;
|
||||
WordWrap = .T., ;
|
||||
ZOrderSet = 5
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Valoarea initiala", ;
|
||||
Height = 17, ;
|
||||
Left = 15, ;
|
||||
Name = "Label2", ;
|
||||
Top = 58, ;
|
||||
Width = 90, ;
|
||||
ZOrderSet = 7
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||
Height = 139, ;
|
||||
Left = 2, ;
|
||||
Name = "Shape1", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 3, ;
|
||||
Width = 309, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
ControlSource = "m.valoare", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 15, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 3, ;
|
||||
Top = 78, ;
|
||||
Width = 136, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
ControlSource = "valtrans", ;
|
||||
Format = "rk", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 159, ;
|
||||
Name = "Text2", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 79, ;
|
||||
Width = 136, ;
|
||||
ZOrderSet = 3
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
BorderStyle = 0, ;
|
||||
ControlSource = "m.denumire", ;
|
||||
FontBold = .T., ;
|
||||
Height = 18, ;
|
||||
Left = 124, ;
|
||||
Name = "Text3", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
Top = 21, ;
|
||||
Width = 181, ;
|
||||
ZOrderSet = 6
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Text2.Valid
|
||||
IF valtrans>m.valoare
|
||||
DO mesaj WITH "Valoarea transformata este mai mare decat ",'valoarea initiala'
|
||||
RETURN
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user