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
|
||||
136
Ferestre/frm_modificare.sc2
Normal file
136
Ferestre/frm_modificare.sc2
Normal file
@@ -0,0 +1,136 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_modificare.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>
|
||||
DataSource = .NULL.
|
||||
Height = 0
|
||||
Left = 0
|
||||
Name = "Dataenvironment"
|
||||
Top = 0
|
||||
Width = 0
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_modificare12 AS frm_modificare OF "..\clase\oimobilizari.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Name = "Frm_modificare12"
|
||||
Shape3.Name = "Shape3"
|
||||
Shape1.Name = "Shape1"
|
||||
Shape2.Name = "Shape2"
|
||||
Shape4.Name = "Shape4"
|
||||
_shape1.Name = "_shape1"
|
||||
_shape2.Name = "_shape2"
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
Clb_nract.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_nract.Name = "Clb_nract"
|
||||
Clb_nract.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_dataact.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_dataact.Name = "Clb_dataact"
|
||||
Clb_dataact.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_nrpif.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_nrpif.Name = "Clb_nrpif"
|
||||
Clb_nrpif.Text_simplu1.Name = "Text_simplu1"
|
||||
Cb_tx_simplu1.Name = "Cb_tx_simplu1"
|
||||
Cb_tx_simplu1._cbbase1.Name = "_cbbase1"
|
||||
Cb_tx_simplu1._lbbase1.Name = "_lbbase1"
|
||||
Cb_tip_amortizare.Name = "Cb_tip_amortizare"
|
||||
Cb_tip_amortizare._cbbase1.Name = "_cbbase1"
|
||||
Cb_tip_amortizare._lbbase1.Name = "_lbbase1"
|
||||
Clb_procent.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_procent.Name = "Clb_procent"
|
||||
Clb_procent.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_datapif.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_datapif.Name = "Clb_datapif"
|
||||
Clb_datapif.Text_simplu1.Name = "Text_simplu1"
|
||||
Cb_coeficient.Name = "Cb_coeficient"
|
||||
Cb_coeficient._cbbase1.Name = "_cbbase1"
|
||||
Cb_coeficient._lbbase1.Name = "_lbbase1"
|
||||
Ed_denumire.Name = "Ed_denumire"
|
||||
Ed_denumire._edbase1.Name = "_edbase1"
|
||||
Ed_denumire._lbbase1.Name = "_lbbase1"
|
||||
Ed_tx_simplu1.Name = "Ed_tx_simplu1"
|
||||
Ed_tx_simplu1._edbase1.Name = "_edbase1"
|
||||
Ed_tx_simplu1._lbbase1.Name = "_lbbase1"
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
Label1.Name = "Label1"
|
||||
Label2.Name = "Label2"
|
||||
Clb_nr_inventar.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_nr_inventar.Name = "Clb_nr_inventar"
|
||||
Clb_nr_inventar.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_cod.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_cod.Name = "Clb_cod"
|
||||
Clb_cod.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_dns.lb_luni.Name = "lb_luni"
|
||||
Clb_dns.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_dns.Name = "Clb_dns"
|
||||
Clb_dns.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_sectie.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_sectie.Name = "Clb_sectie"
|
||||
Clb_sectie.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_lucrare.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_lucrare.Name = "Clb_lucrare"
|
||||
Clb_lucrare.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_gestiune.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_gestiune.Name = "Clb_gestiune"
|
||||
Clb_gestiune.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_responsabil.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_responsabil.Name = "Clb_responsabil"
|
||||
Clb_responsabil.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_cont.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_cont.Name = "Clb_cont"
|
||||
Clb_cont.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_acont.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_acont.Name = "Clb_acont"
|
||||
Clb_acont.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_valoare.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_valoare.Name = "Clb_valoare"
|
||||
Clb_valoare.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_uzura.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_uzura.Name = "Clb_uzura"
|
||||
Clb_uzura.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_val_ramasa.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_val_ramasa.Name = "Clb_val_ramasa"
|
||||
Clb_val_ramasa.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_dns_ramas.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_dns_ramas.Name = "Clb_dns_ramas"
|
||||
Clb_dns_ramas.Text_simplu1.Name = "Text_simplu1"
|
||||
Label3.Name = "Label3"
|
||||
Clb_dataop.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_dataop.Name = "Clb_dataop"
|
||||
Clb_dataop.Text_simplu1.Name = "Text_simplu1"
|
||||
Label4.Name = "Label4"
|
||||
Clb_rata.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_rata.Name = "Clb_rata"
|
||||
Clb_rata.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_cota_an.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_cota_an.Name = "Clb_cota_an"
|
||||
Clb_cota_an.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_ultima_rata.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_ultima_rata.Name = "Clb_ultima_rata"
|
||||
Clb_ultima_rata.Text_simplu1.Name = "Text_simplu1"
|
||||
Clb_data_ultima_rata.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_data_ultima_rata.Name = "Clb_data_ultima_rata"
|
||||
Clb_data_ultima_rata.Text_simplu1.Name = "Text_simplu1"
|
||||
But_renunt1.Name = "But_renunt1"
|
||||
Clb_lperioada_rata.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_lperioada_rata.Name = "Clb_lperioada_rata"
|
||||
Clb_lperioada_rata.tx_n1.Name = "tx_n1"
|
||||
Clb_lperioada_rata.tx_n2.Name = "tx_n2"
|
||||
Clb_luna_intre1.Lb_simplu1.Name = "Lb_simplu1"
|
||||
Clb_luna_intre1.Name = "Clb_luna_intre1"
|
||||
Clb_luna_intre1.tx_n1.Name = "tx_n1"
|
||||
Clb_luna_intre1.tx_n2.Name = "tx_n2"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
560
Ferestre/fundal.sc2
Normal file
560
Ferestre/fundal.sc2
Normal file
@@ -0,0 +1,560 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (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>
|
||||
DataSource = .NULL.
|
||||
Height = 200
|
||||
Left = 1
|
||||
Name = "Dataenvironment"
|
||||
Top = 220
|
||||
Width = 520
|
||||
*</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="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Imagine1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Imagine2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Imagine3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="chkExperimental" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: jurnal
|
||||
*m: nexperimental_assign
|
||||
*p: nexperimental && Mod experimental. se citeste optiunea din optiuni_utilizator
|
||||
*p: nlb_activ
|
||||
*p: npagina
|
||||
*p: _memberdata && XML Metadata for customizable properties
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
AlwaysOnBottom = .T.
|
||||
AutoCenter = .T.
|
||||
BackColor = 255,255,255
|
||||
BorderStyle = 0
|
||||
Caption = ""
|
||||
Closable = .F.
|
||||
ControlBox = .F.
|
||||
DoCreate = .T.
|
||||
Enabled = .T.
|
||||
FillColor = 0,0,0
|
||||
FontCharSet = 238
|
||||
HalfHeightCaption = .F.
|
||||
Height = 429
|
||||
MaxButton = .F.
|
||||
MinButton = .F.
|
||||
Movable = .F.
|
||||
Name = "FORM1"
|
||||
nexperimental = 0
|
||||
nlb_activ = 0
|
||||
npagina = 0
|
||||
Picture = ..\..\
|
||||
ShowTips = .T.
|
||||
Width = 797
|
||||
WindowState = 2
|
||||
_memberdata = <VFPData>
|
||||
<memberdata name="nexperimental" display="nExperimental"/>
|
||||
<memberdata name="nexperimental_assign" display="nExperimental_Assign"/>
|
||||
</VFPData>
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ;
|
||||
ErasePage = .T., ;
|
||||
Height = 457, ;
|
||||
Left = -2, ;
|
||||
Name = "_pgfrmbase1", ;
|
||||
Top = 60, ;
|
||||
Page1.Cw2.Label_item1.Name = "Label_item1", ;
|
||||
Page1.Cw2.Name = "Cw2", ;
|
||||
Page1.Cw3.Label_item1.Name = "Label_item1", ;
|
||||
Page1.Cw3.Name = "Cw3", ;
|
||||
Page1.Cw4.Label_item1.Name = "Label_item1", ;
|
||||
Page1.Cw4.Name = "Cw4", ;
|
||||
Page1.CW5.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
||||
Page1.CW5.Name = "CW5", ;
|
||||
Page1.Name = "Page1", ;
|
||||
Page1.Pict_liniuta1.Name = "Pict_liniuta1", ;
|
||||
Page1.Pict_liniuta1.Picture = ..\grafice\f3.jpg, ;
|
||||
Page1.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
||||
Page1.Pict_liniuta2.Picture = ..\grafice\f3.jpg, ;
|
||||
Page1.Pict_liniuta3.Name = "Pict_liniuta3", ;
|
||||
Page1.Pict_meniu1.Name = "Pict_meniu1", ;
|
||||
Page1.Pict_meniu1.Picture = ..\grafice\f2.jpg, ;
|
||||
Page2.Cw1.Label_item1.Name = "Label_item1", ;
|
||||
Page2.Cw1.Name = "Cw1", ;
|
||||
Page2.Cw2.Label_item1.Name = "Label_item1", ;
|
||||
Page2.Cw2.Name = "Cw2", ;
|
||||
Page2.CW3.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
||||
Page2.CW3.Name = "CW3", ;
|
||||
Page2.CW4.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
||||
Page2.CW4.Name = "CW4", ;
|
||||
Page2.Cw5.Label_item1.Name = "Label_item1", ;
|
||||
Page2.Cw5.Name = "Cw5", ;
|
||||
Page2.Cw6.Label_item1.Name = "Label_item1", ;
|
||||
Page2.Cw6.Name = "Cw6", ;
|
||||
Page2.Name = "Page2", ;
|
||||
Page2.Pict_liniuta1.Name = "Pict_liniuta1", ;
|
||||
Page2.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
||||
Page2.Pict_liniuta3.Name = "Pict_liniuta3", ;
|
||||
Page2.Pict_liniuta4.Name = "Pict_liniuta4", ;
|
||||
Page2.Pict_meniu1.Name = "Pict_meniu1", ;
|
||||
Page3.Cw1.Label_item1.Name = "Label_item1", ;
|
||||
Page3.Cw1.Name = "Cw1", ;
|
||||
Page3.Cw2.Label_item1.Name = "Label_item1", ;
|
||||
Page3.Cw2.Name = "Cw2", ;
|
||||
Page3.CW3.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
||||
Page3.CW3.Name = "CW3", ;
|
||||
Page3.CW4.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
||||
Page3.CW4.Name = "CW4", ;
|
||||
Page3.Cw5.Label_item1.Name = "Label_item1", ;
|
||||
Page3.Cw5.Name = "Cw5", ;
|
||||
Page3.Name = "Page3", ;
|
||||
Page3.Pict_liniuta1.Name = "Pict_liniuta1", ;
|
||||
Page3.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
||||
Page3.Pict_liniuta4.Name = "Pict_liniuta4", ;
|
||||
Page3.Pict_meniu1.Name = "Pict_meniu1", ;
|
||||
Page4.CW1.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
||||
Page4.CW1.Name = "CW1", ;
|
||||
Page4.CW2.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
||||
Page4.CW2.Name = "CW2", ;
|
||||
Page4.CW3.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
||||
Page4.CW3.Name = "CW3", ;
|
||||
Page4.CW4.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
||||
Page4.CW4.Name = "CW4", ;
|
||||
Page4.Name = "Page4", ;
|
||||
Page4.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
||||
Page4.Pict_liniuta3.Name = "Pict_liniuta3", ;
|
||||
Page4.Pict_meniu1.Name = "Pict_meniu1"
|
||||
*< END OBJECT: ClassLib="..\clase\ofundal_imob.vcx" BaseClass="pageframe" />
|
||||
|
||||
ADD OBJECT 'chkExperimental' AS _checkbox WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Experimental", ;
|
||||
ControlSource = "thisform.nExperimental", ;
|
||||
ForeColor = 255,255,255, ;
|
||||
Height = 18, ;
|
||||
Left = 204, ;
|
||||
Name = "chkExperimental", ;
|
||||
ReadOnly = .T., ;
|
||||
ToolTipText = "Un mod mai rapid de calcul amortizari (10.06.2020). Se foloseste la vizualizare amortizare si la rapoarte.", ;
|
||||
Top = 31, ;
|
||||
Value = 0, ;
|
||||
Visible = .F., ;
|
||||
Width = 95
|
||||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
||||
|
||||
ADD OBJECT 'Image1' AS image WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 220, ;
|
||||
Left = 228, ;
|
||||
Name = "Image1", ;
|
||||
Picture = ..\grafice\roaimob.bmp, ;
|
||||
Stretch = 0, ;
|
||||
Top = 180, ;
|
||||
Width = 556
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'Image2' AS image WITH ;
|
||||
Height = 63, ;
|
||||
Left = 0, ;
|
||||
Name = "Image2", ;
|
||||
Picture = ..\grafice\f1.jpg, ;
|
||||
Stretch = 2, ;
|
||||
Top = 0, ;
|
||||
Width = 851
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'Imagine1' AS imagine WITH ;
|
||||
ccod = B01;C01;D01, ;
|
||||
Height = 48, ;
|
||||
Left = 7, ;
|
||||
Name = "Imagine1", ;
|
||||
nid_img = 1, ;
|
||||
Picture = ..\grafice\gene1.bmp, ;
|
||||
picturedown = d:\contafin_oracle\roaimob\grafice\gene2.bmp, ;
|
||||
pictureup = d:\contafin_oracle\roaimob\grafice\gene1.bmp, ;
|
||||
ToolTipText = "Introducere", ;
|
||||
Top = 7, ;
|
||||
Width = 60
|
||||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'Imagine2' AS imagine WITH ;
|
||||
ccod = B02;C02;D02, ;
|
||||
Height = 48, ;
|
||||
Left = 76, ;
|
||||
Name = "Imagine2", ;
|
||||
Picture = ..\grafice\fact1.bmp, ;
|
||||
picturedown = d:\contafin_oracle\roaimob\grafice\fact2.bmp, ;
|
||||
pictureup = d:\contafin_oracle\roaimob\grafice\fact1.bmp, ;
|
||||
ToolTipText = "Preluare din contabilitate", ;
|
||||
Top = 7, ;
|
||||
Width = 60
|
||||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'Imagine3' AS imagine WITH ;
|
||||
ccod = B03;B04;C03;C04;D03, ;
|
||||
Height = 48, ;
|
||||
Left = 141, ;
|
||||
Name = "Imagine3", ;
|
||||
Picture = ..\grafice\viz1.bmp, ;
|
||||
picturedown = d:\contafin_oracle\roaimob\grafice\viz2.bmp, ;
|
||||
pictureup = d:\contafin_oracle\roaimob\grafice\viz1.bmp, ;
|
||||
ToolTipText = "Vizualizare", ;
|
||||
Top = 7, ;
|
||||
Width = 60
|
||||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Operator:", ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Height = 17, ;
|
||||
Left = 7, ;
|
||||
Name = "Label1", ;
|
||||
Top = 381, ;
|
||||
Width = 53
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Nivel de acces:", ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Height = 17, ;
|
||||
Left = 7, ;
|
||||
Name = "Label2", ;
|
||||
Top = 401, ;
|
||||
Width = 85
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
|
||||
Anchor = 9, ;
|
||||
Caption = "Operator:", ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 255,255,255, ;
|
||||
Left = 482, ;
|
||||
Name = "lb_utilizator", ;
|
||||
Top = 8
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
|
||||
Anchor = 9, ;
|
||||
Caption = "nume_utilizator", ;
|
||||
FontBold = .T., ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 255,255,255, ;
|
||||
Left = 536, ;
|
||||
Name = "lb_utilizator1", ;
|
||||
Top = 8, ;
|
||||
Visible = .F.
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ControlSource = "utilizator", ;
|
||||
FontBold = .T., ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Height = 23, ;
|
||||
Left = 62, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
TabStop = .F., ;
|
||||
Top = 380, ;
|
||||
Width = 147
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ControlSource = "m.nivel", ;
|
||||
FontBold = .T., ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Height = 23, ;
|
||||
Left = 93, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .T., ;
|
||||
TabStop = .F., ;
|
||||
Top = 400, ;
|
||||
Width = 28
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Activate
|
||||
*!* 10.06.2020
|
||||
*!* initializez variabila gnExperimental pentru calcul experimental
|
||||
|
||||
*!* THISFORM.AUTOCENTER=.T.
|
||||
|
||||
LOCAL lnScrH,lnScrW
|
||||
lnScrW = _screen.Width
|
||||
lnScrH = _screen.Height
|
||||
|
||||
thisform.image1.Top = lnScrH - thisform.image1.Height - 50
|
||||
thisform.image1.Left = lnScrW - thisform.image1.Width - 30
|
||||
thisform.image2.Width = lnScrW + 30
|
||||
thisform._pgfrmbase1.Width = lnScrW
|
||||
thisform._pgfrmbase1.Height = thisform.Height-thisform.image2.Height
|
||||
thisform._pgfrmbase1.page1.Pict_meniu1.Height = thisform._pgfrmbase1.Height
|
||||
thisform._pgfrmbase1.page2.Pict_meniu1.Height = thisform._pgfrmbase1.Height
|
||||
thisform._pgfrmbase1.page3.Pict_meniu1.Height = thisform._pgfrmbase1.Height
|
||||
thisform._pgfrmbase1.page4.Pict_meniu1.Height = thisform._pgfrmbase1.Height
|
||||
|
||||
|
||||
* Experimental
|
||||
lcValoare = citeste_optiune_utilizator('IMOB_EXPERIMENTAL')
|
||||
Thisform.nExperimental = INT(VAL(m.lcValoare))
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
*!* THISFORM.AUTOCENTER=.T.
|
||||
*!* Locale
|
||||
IF TYPE('goLocale') = 'O'AND TYPE('glTraducere') = 'L'
|
||||
IF glTraducere
|
||||
golocale.SetLocale( thisform )
|
||||
EndIf
|
||||
ENDIF
|
||||
*!* Locale ^
|
||||
|
||||
Local lcValoare
|
||||
Thisform.chkExperimental.ToolTipText = '* 10.06.2020 un mod rapid de calcul situatie lunara amortizari. Se foloseste la vizualizare amortizari si rapoarte.'
|
||||
|
||||
lcValoare = citeste_optiune_utilizator('IMOB_EXPERIMENTAL')
|
||||
Thisform.nExperimental = Int(Val(m.lcValoare))
|
||||
* 25.11.2021
|
||||
Thisform.nExperimental = 1
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE jurnal
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE KeyPress
|
||||
Lparameters nKeyCode, nShiftAltCtrl
|
||||
If nKeyCode==-1 &&F2
|
||||
Quit
|
||||
Endif
|
||||
*!* lnLbActiv=Thisform.nlb_activ
|
||||
*!* Thisform.npagina=Thisform._pgfrmbase1.ActivePage
|
||||
*!* lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
|
||||
*!* Do Case
|
||||
*!* Case nKeyCode==-1 && F2
|
||||
*!* Quit
|
||||
*!* Case nKeyCode=5 And lnLbActiv>0 && sageata sus
|
||||
*!* Thisform.nlb_activ=Thisform.nlb_activ-1
|
||||
*!* lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseEnter"
|
||||
*!* lcEventLeave=lcLabel+Alltrim(Str(lnLbActiv))+".MouseLeave"
|
||||
*!* &lcEventLeave
|
||||
*!* &lcEventEnter
|
||||
*!* Case nKeyCode=24 And lnLbActiv>0 && sageata jos
|
||||
*!* Thisform.nlb_activ=Thisform.nlb_activ+1
|
||||
*!* lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseEnter"
|
||||
*!* lcEventLeave=lcLabel+Alltrim(Str(lnLbActiv))+".MouseLeave"
|
||||
*!* &lcEventLeave
|
||||
*!* &lcEventEnter
|
||||
*!* Case nKeyCode=24 And lnLbActiv=0 && sageata jos
|
||||
*!* Thisform.nlb_activ=1
|
||||
*!* lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseEnter"
|
||||
*!* &lcEventEnter
|
||||
*!* Case nKeyCode=13 And lnLbActiv>0 && enter
|
||||
*!* lcEventClick=lcLabel+Alltrim(Str(lnLbActiv))+".Click"
|
||||
*!* &lcEventClick
|
||||
*!* lcEventLeave=lcLabel+Alltrim(Str(lnLbActiv))+".MouseLeave"
|
||||
*!* &lcEventLeave
|
||||
*!* Thisform.nlb_activ=0
|
||||
*!* Endcase
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE nexperimental_assign
|
||||
lparameters tnExperimental
|
||||
* 25.11.2021
|
||||
tnExperimental = 1
|
||||
|
||||
This.nExperimental = tnExperimental
|
||||
|
||||
IF tnExperimental = 1
|
||||
this.chkExperimental.Value = 1
|
||||
this.chkExperimental.BackStyle = 1 && OPAC
|
||||
this.chkExperimental.BackColor = RGB(255,0,0) && ROSU
|
||||
ELSE
|
||||
this.chkExperimental.Value = 0
|
||||
this.chkExperimental.BackStyle = 0 && TRANSPARENT
|
||||
this.chkExperimental.BackColor = RGB(240,240,240)
|
||||
ENDIF
|
||||
|
||||
|
||||
goApp.nExperimental = m.tnExperimental
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE RightClick
|
||||
Do start_firma In ostartfirma.prg
|
||||
verifica_drepturi('gofundal','_pgfrmbase1')
|
||||
*!* Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Show
|
||||
LPARAMETERS nStyle
|
||||
DODEFAULT(nStyle)
|
||||
*!* Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
|
||||
*!* Trebuie adaugata o proprietate OstatusBar la forma
|
||||
*!* si o metoda statusbarclik care sa contina comanda
|
||||
*!* Thisform.oStatusBar.newtooltip()
|
||||
*!*
|
||||
If Not Pemstatus(_Screen,"StatusBar", 5) Then
|
||||
*!* 31.01.2008 TEST FARA STATUSBAR
|
||||
*!* _Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar.vcx", null, 3)
|
||||
_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", null, 3)
|
||||
*!* 31.01.2008 TEST FARA STATUSBAR ^
|
||||
EndIf
|
||||
|
||||
DO start_firma IN ostartfirma.prg
|
||||
primadata = .F.
|
||||
verifica_drepturi('gofundal','_pgfrmbase1')
|
||||
Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
|
||||
Thisform.lb_utilizator1.Visible=.T.
|
||||
DO lansare_toolbar IN oproceduri_comune.prg
|
||||
DO lansare_help IN oproceduri_comune.prg
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE chkExperimental.Valid
|
||||
Local lcValoare
|
||||
lcValoare = Alltrim(Str(Thisform.nExperimental))
|
||||
lnSucces = scrie_optiune_utilizator('IMOB_EXPERIMENTAL', m.lcValoare, '1 = MOD EXPERIMENTAL IMOBILIZARI, 0 = STANDARD')
|
||||
IF m.lnSucces <= 0
|
||||
lcValoare = citeste_optiune_utilizator('IMOB_EXPERIMENTAL')
|
||||
Thisform.nExperimental = Int(Val(m.lcValoare))
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Image1.RightClick
|
||||
thisform.rightclick
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Imagine1.do_actiune
|
||||
lnActivePg = thisform._pgfrmbase1.ActivePage
|
||||
DO CASE
|
||||
CASE lnActivePg = 2 OR lnActivePg = 3
|
||||
DO introducere_imob WITH lnActivePg-1 IN oproceduri_imob.prg
|
||||
CASE lnActivePg = 4
|
||||
DO introducere_imob_in_curs
|
||||
OTHERWISE
|
||||
*
|
||||
ENDCASE
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Imagine2.do_actiune
|
||||
lnActivePg = thisform._pgfrmbase1.ActivePage
|
||||
DO CASE
|
||||
CASE lnActivePg = 2
|
||||
*DO preluare_corporale IN oproceduri_imob.prg
|
||||
CASE lnActivePg = 3
|
||||
*DO preluare_necorporale IN oproceduri_imob.prg
|
||||
CASE lnActivePg = 4
|
||||
*DO preluare_incurs
|
||||
OTHERWISE
|
||||
*
|
||||
ENDCASE
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Imagine3.do_actiune
|
||||
lnActivePg = thisform._pgfrmbase1.ActivePage
|
||||
DO CASE
|
||||
CASE lnActivePg = 2 OR lnActivePg = 3
|
||||
DO vizualizare_lista_imob WITH lnActivePg-1 IN oproceduri_imob.prg
|
||||
CASE lnActivePg = 4
|
||||
DO vizualizare_lista_imob_in_curs
|
||||
OTHERWISE
|
||||
*
|
||||
ENDCASE
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE lb_utilizator.RightClick
|
||||
Thisform.RightClick
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE lb_utilizator1.RightClick
|
||||
thisform.rightclick
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page1.Activate
|
||||
*!* If Thisform.npagina!=0 And Thisform.nlb_activ!=0
|
||||
*!* lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
|
||||
*!* lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseLeave"
|
||||
*!* &lcEventLeave
|
||||
*!* Endif
|
||||
*!* Thisform.nlb_activ=0
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page1.RightClick
|
||||
DO start_firma IN ostartfirma.prg
|
||||
verifica_drepturi('gofundal','_pgfrmbase1')
|
||||
*!* Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page2.RightClick
|
||||
DO start_firma IN ostartfirma.prg
|
||||
verifica_drepturi('gofundal','_pgfrmbase1')
|
||||
*!* Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page3.Activate
|
||||
*!* If Thisform.npagina!=0 And Thisform.nlb_activ!=0
|
||||
*!* lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
|
||||
*!* lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseLeave"
|
||||
*!* &lcEventLeave
|
||||
*!* Endif
|
||||
*!* Thisform.nlb_activ=0
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page3.RightClick
|
||||
DO start_firma IN ostartfirma.prg
|
||||
verifica_drepturi('gofundal','_pgfrmbase1')
|
||||
*!* Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page4.Activate
|
||||
*!* If Thisform.npagina!=0 And Thisform.nlb_activ!=0
|
||||
*!* lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
|
||||
*!* lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseLeave"
|
||||
*!* &lcEventLeave
|
||||
*!* Endif
|
||||
*!* Thisform.nlb_activ=0
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page4.RightClick
|
||||
DO start_firma IN ostartfirma.prg
|
||||
verifica_drepturi('gofundal','_pgfrmbase1')
|
||||
*!* Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
797
Ferestre/rap_lista_inventar.sc2
Normal file
797
Ferestre/rap_lista_inventar.sc2
Normal file
@@ -0,0 +1,797 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="rap_lista_inventar.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>
|
||||
DataSource = .NULL.
|
||||
Height = 0
|
||||
Left = 0
|
||||
Name = "Dataenvironment"
|
||||
Top = 0
|
||||
Width = 0
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_termin_renunt12 AS _frmbase OF "..\comun\clase\_frm_base.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="Shape4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtFiltru3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtFiltru2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtFiltru" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="edt_titlu" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtData" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="cboGrupare2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="cboGrupare" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="cboModel" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtFiltru4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_cautare1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_cautare2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_cautare3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="optOrdonare" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: do_cauta_gestiune
|
||||
*m: do_cauta_responsabil
|
||||
*m: do_cauta_sectie
|
||||
*p: ccont && Filtru dupa cont
|
||||
*p: ccursor && Numele cursorului cu lista de imobilizari. Daca este completat se face selectie din cursor in loc de baza de date
|
||||
*p: ctitlu
|
||||
*p: ddata_inv
|
||||
*p: nfiscala
|
||||
*p: ntip
|
||||
*p: ogestiune
|
||||
*p: oresponsabil
|
||||
*p: orezult
|
||||
*p: osectie
|
||||
*p: pcvalue_txt
|
||||
*p: pcvalue_txt2
|
||||
*p: pcvalue_txt3
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
ccont =
|
||||
ccursor =
|
||||
ctitlu =
|
||||
DataSession = 1
|
||||
ddata_inv =
|
||||
DoCreate = .T.
|
||||
Height = 430
|
||||
Name = "Frm_termin_renunt12"
|
||||
nfiscala = 0
|
||||
ntip = 0
|
||||
ogestiune = .NULL.
|
||||
oresponsabil = .NULL.
|
||||
orezult =
|
||||
osectie = .NULL.
|
||||
pcvalue_txt =
|
||||
pcvalue_txt2 =
|
||||
pcvalue_txt3 =
|
||||
Width = 371
|
||||
_memberdata = <VFPData>
|
||||
<memberdata name="ogestiune" display="oGestiune"/>
|
||||
<memberdata name="osectie" display="oSectie"/>
|
||||
<memberdata name="oresponsabil" display="oResponsabil"/>
|
||||
<memberdata name="ccursor" display="cCursor"/>
|
||||
<memberdata name="ccont" display="cCont"/>
|
||||
</VFPData>
|
||||
_SHAPE1.Height = 29
|
||||
_SHAPE1.Left = 0
|
||||
_SHAPE1.Name = "_SHAPE1"
|
||||
_SHAPE1.Top = 0
|
||||
_SHAPE1.Width = 516
|
||||
_SHAPE1.ZOrderSet = 1
|
||||
_SHAPE2.Height = 29
|
||||
_SHAPE2.Left = 306
|
||||
_SHAPE2.Name = "_SHAPE2"
|
||||
_SHAPE2.Top = 0
|
||||
_SHAPE2.Width = 66
|
||||
_SHAPE2.ZOrderSet = 3
|
||||
LB_TITLU_ALB_B121.Caption = "Alegeti parametri raportului"
|
||||
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
|
||||
LB_TITLU_ALB_B121.TabIndex = 15
|
||||
LB_TITLU_ALB_B121.ZOrderSet = 4
|
||||
BUT_TERMIN1.Anchor = 8
|
||||
BUT_TERMIN1.Left = 341
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.TabIndex = 14
|
||||
BUT_TERMIN1.Top = 1
|
||||
BUT_TERMIN1.ZOrderSet = 5
|
||||
GRIDSORT1.Left = 9
|
||||
GRIDSORT1.Name = "GRIDSORT1"
|
||||
GRIDSORT1.Top = 24
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'But_cautare1' AS but_cautare WITH ;
|
||||
caction = do_cauta_gestiune, ;
|
||||
Left = 331, ;
|
||||
Name = "But_cautare1", ;
|
||||
TabIndex = 7, ;
|
||||
TabStop = .F., ;
|
||||
Top = 243
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_cautare2' AS but_cautare WITH ;
|
||||
caction = do_cauta_sectie, ;
|
||||
Left = 331, ;
|
||||
Name = "But_cautare2", ;
|
||||
TabIndex = 9, ;
|
||||
TabStop = .F., ;
|
||||
Top = 275
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_cautare3' AS but_cautare WITH ;
|
||||
caction = do_cauta_responsabil, ;
|
||||
Left = 331, ;
|
||||
Name = "But_cautare3", ;
|
||||
TabIndex = 11, ;
|
||||
TabStop = .F., ;
|
||||
Top = 305
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_listare1' AS but_listare WITH ;
|
||||
Anchor = 8, ;
|
||||
Left = 308, ;
|
||||
Name = "But_listare1", ;
|
||||
TabIndex = 25, ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'cboGrupare' AS combobox WITH ;
|
||||
FontSize = 10, ;
|
||||
Height = 24, ;
|
||||
Left = 27, ;
|
||||
Name = "cboGrupare", ;
|
||||
RowSource = "crsGrupare1.criteriu", ;
|
||||
RowSourceType = 2, ;
|
||||
Style = 2, ;
|
||||
TabIndex = 4, ;
|
||||
Top = 162, ;
|
||||
Value = Gestiune, ;
|
||||
Width = 204, ;
|
||||
ZOrderSet = 13
|
||||
*< END OBJECT: BaseClass="combobox" />
|
||||
|
||||
ADD OBJECT 'cboGrupare2' AS combobox WITH ;
|
||||
FontSize = 10, ;
|
||||
Height = 24, ;
|
||||
Left = 27, ;
|
||||
Name = "cboGrupare2", ;
|
||||
RowSource = "crsGrupare2.criteriu", ;
|
||||
RowSourceType = 2, ;
|
||||
Style = 2, ;
|
||||
TabIndex = 5, ;
|
||||
Top = 192, ;
|
||||
Value = Cont, ;
|
||||
Width = 204, ;
|
||||
ZOrderSet = 13
|
||||
*< END OBJECT: BaseClass="combobox" />
|
||||
|
||||
ADD OBJECT 'cboModel' AS combobox WITH ;
|
||||
FontSize = 10, ;
|
||||
Height = 24, ;
|
||||
Left = 12, ;
|
||||
Name = "cboModel", ;
|
||||
RowSource = "Model 1,Model 2", ;
|
||||
RowSourceType = 1, ;
|
||||
Style = 2, ;
|
||||
TabIndex = 2, ;
|
||||
Top = 85, ;
|
||||
Value = Model 1, ;
|
||||
Width = 132, ;
|
||||
ZOrderSet = 14
|
||||
*< END OBJECT: BaseClass="combobox" />
|
||||
|
||||
ADD OBJECT 'edt_titlu' AS ed_tx_simplu WITH ;
|
||||
Height = 33, ;
|
||||
Left = 7, ;
|
||||
Name = "edt_titlu", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 46, ;
|
||||
Width = 360, ;
|
||||
ZOrderSet = 10, ;
|
||||
_edbase1.ControlSource = "thisform.ctitlu", ;
|
||||
_edbase1.FontSize = 10, ;
|
||||
_edbase1.Format = "k", ;
|
||||
_edbase1.Height = 27, ;
|
||||
_edbase1.Left = 89, ;
|
||||
_edbase1.Name = "_edbase1", ;
|
||||
_edbase1.TabIndex = 1, ;
|
||||
_edbase1.Top = 3, ;
|
||||
_edbase1.Width = 266, ;
|
||||
_lbbase1.Caption = "Titlu raport", ;
|
||||
_lbbase1.FontSize = 10, ;
|
||||
_lbbase1.Left = 11, ;
|
||||
_lbbase1.Name = "_lbbase1", ;
|
||||
_lbbase1.TabIndex = 2, ;
|
||||
_lbbase1.Top = 7
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
Alignment = 2, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 255,255,255, ;
|
||||
Caption = "Grupat dupa", ;
|
||||
Comment = "*:OnResize=LT", ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 15, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 18, ;
|
||||
Top = 146, ;
|
||||
Width = 73, ;
|
||||
ZOrderSet = 11
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
Alignment = 2, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 255,255,255, ;
|
||||
Caption = "Selectie", ;
|
||||
Comment = "*:OnResize=LT", ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 15, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 16, ;
|
||||
Top = 227, ;
|
||||
Width = 49, ;
|
||||
ZOrderSet = 11
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "I", ;
|
||||
FontBold = .T., ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 13, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 22, ;
|
||||
Top = 167, ;
|
||||
Width = 6
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "II", ;
|
||||
FontBold = .T., ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 13, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 24, ;
|
||||
Top = 197, ;
|
||||
Width = 10
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Gestiune", ;
|
||||
FontBold = .F., ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 24, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 19, ;
|
||||
Top = 252, ;
|
||||
Width = 54
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label6' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Sectie", ;
|
||||
FontBold = .F., ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 24, ;
|
||||
Name = "Label6", ;
|
||||
TabIndex = 23, ;
|
||||
Top = 281, ;
|
||||
Width = 39
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label7' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Responsabil", ;
|
||||
FontBold = .F., ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 24, ;
|
||||
Name = "Label7", ;
|
||||
TabIndex = 21, ;
|
||||
Top = 311, ;
|
||||
Width = 73
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label8' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Cont", ;
|
||||
FontBold = .F., ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 24, ;
|
||||
Name = "Label8", ;
|
||||
TabIndex = 20, ;
|
||||
Top = 338, ;
|
||||
Width = 29
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label9' AS label WITH ;
|
||||
Alignment = 2, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 255,255,255, ;
|
||||
Caption = "Ordonat dupa", ;
|
||||
Comment = "*:OnResize=LT", ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 15, ;
|
||||
Name = "Label9", ;
|
||||
TabIndex = 17, ;
|
||||
Top = 369, ;
|
||||
Width = 80, ;
|
||||
ZOrderSet = 11
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'optOrdonare' AS _optiongrup WITH ;
|
||||
AutoSize = .F., ;
|
||||
ButtonCount = 3, ;
|
||||
Height = 28, ;
|
||||
Left = 18, ;
|
||||
Name = "optOrdonare", ;
|
||||
TabIndex = 13, ;
|
||||
Top = 388, ;
|
||||
Width = 343, ;
|
||||
Option1.AutoSize = .T., ;
|
||||
Option1.Caption = "Nr. inventar", ;
|
||||
Option1.Left = 5, ;
|
||||
Option1.Name = "Option1", ;
|
||||
Option1.Top = 5, ;
|
||||
Option2.AutoSize = .T., ;
|
||||
Option2.Caption = "Denumire", ;
|
||||
Option2.Left = 92, ;
|
||||
Option2.Name = "Option2", ;
|
||||
Option2.Top = 5, ;
|
||||
Option3.AutoSize = .T., ;
|
||||
Option3.BackStyle = 0, ;
|
||||
Option3.Caption = "Data PIF", ;
|
||||
Option3.Height = 17, ;
|
||||
Option3.Left = 174, ;
|
||||
Option3.Name = "Option3", ;
|
||||
Option3.Top = 5, ;
|
||||
Option3.Width = 65
|
||||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />
|
||||
|
||||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 68, ;
|
||||
Left = 7, ;
|
||||
Name = "Shape1", ;
|
||||
Top = 156, ;
|
||||
Width = 360, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Shape2' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 38, ;
|
||||
Left = 7, ;
|
||||
Name = "Shape2", ;
|
||||
Top = 78, ;
|
||||
Width = 360, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Shape3' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 126, ;
|
||||
Left = 7, ;
|
||||
Name = "Shape3", ;
|
||||
Top = 237, ;
|
||||
Width = 360, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Shape4' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 41, ;
|
||||
Left = 7, ;
|
||||
Name = "Shape4", ;
|
||||
Top = 379, ;
|
||||
Width = 360, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'txtData' AS clb_tx_simplu WITH ;
|
||||
Height = 29, ;
|
||||
Left = 7, ;
|
||||
Name = "txtData", ;
|
||||
TabIndex = 3, ;
|
||||
Top = 115, ;
|
||||
Width = 360, ;
|
||||
ZOrderSet = 12, ;
|
||||
TEXT_SIMPLU1.ControlSource = "thisform.ddata_inv", ;
|
||||
TEXT_SIMPLU1.FontSize = 10, ;
|
||||
TEXT_SIMPLU1.Height = 23, ;
|
||||
TEXT_SIMPLU1.Left = 131, ;
|
||||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||||
TEXT_SIMPLU1.Top = 3, ;
|
||||
TEXT_SIMPLU1.Width = 224, ;
|
||||
LB_SIMPLU1.Caption = "Data inventariere", ;
|
||||
LB_SIMPLU1.FontSize = 10, ;
|
||||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'txtFiltru' AS _textbox WITH ;
|
||||
ControlSource = "thisform.pcvalue_txt", ;
|
||||
DisabledForeColor = 0,0,0, ;
|
||||
Enabled = .F., ;
|
||||
FontItalic = .T., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 109, ;
|
||||
Name = "txtFiltru", ;
|
||||
TabIndex = 6, ;
|
||||
TabStop = .F., ;
|
||||
Top = 246, ;
|
||||
Width = 215, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtFiltru2' AS _textbox WITH ;
|
||||
ControlSource = "thisform.pcvalue_txt2", ;
|
||||
DisabledForeColor = 0,0,0, ;
|
||||
Enabled = .F., ;
|
||||
FontItalic = .T., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 109, ;
|
||||
Name = "txtFiltru2", ;
|
||||
TabIndex = 8, ;
|
||||
TabStop = .F., ;
|
||||
Top = 278, ;
|
||||
Width = 215, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtFiltru3' AS _textbox WITH ;
|
||||
ControlSource = "thisform.pcvalue_txt3", ;
|
||||
DisabledForeColor = 0,0,0, ;
|
||||
Enabled = .F., ;
|
||||
FontItalic = .T., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 109, ;
|
||||
Name = "txtFiltru3", ;
|
||||
TabIndex = 10, ;
|
||||
TabStop = .F., ;
|
||||
Top = 308, ;
|
||||
Width = 215, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtFiltru4' AS _textbox WITH ;
|
||||
ControlSource = "thisform.cCont", ;
|
||||
DisabledForeColor = 0,0,0, ;
|
||||
Enabled = .T., ;
|
||||
FontItalic = .T., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Format = "K", ;
|
||||
Height = 22, ;
|
||||
Left = 109, ;
|
||||
Name = "txtFiltru4", ;
|
||||
TabIndex = 12, ;
|
||||
TabStop = .F., ;
|
||||
Top = 336, ;
|
||||
Width = 66, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Destroy
|
||||
USE IN (SELECT('crsGrupare1'))
|
||||
USE IN (SELECT('crsGrupare2'))
|
||||
USE IN (SELECT('crsFiltru'))
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_cauta
|
||||
LPARAMETERS tcOptiune
|
||||
|
||||
Private locauta
|
||||
Store [] To locauta
|
||||
lcOptiune = UPPER(tcOptiune)
|
||||
|
||||
Do Case
|
||||
Case lcOptiune = 'GESTIUNE'
|
||||
loCauta = caut_gestiune()
|
||||
This.pcvalue_txt = locauta.nume_gestiune
|
||||
This.oGestiune = locauta
|
||||
Case lcOptiune = 'SECTIE'
|
||||
loCauta = caut_sectie()
|
||||
This.pcvalue_txt2 = locauta.sectie
|
||||
This.oSectie = locauta
|
||||
Case lcOptiune = 'RESPONSABIL'
|
||||
locauta = caut_responsabil()
|
||||
This.pcvalue_txt3 = locauta.nume
|
||||
This.oResponsabil = locauta
|
||||
Endcase
|
||||
|
||||
THIS.txtFiltru.Refresh()
|
||||
THIS.txtFiltru2.Refresh()
|
||||
THIS.txtFiltru3.Refresh()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_cauta_gestiune
|
||||
This.do_cauta('GESTIUNE')
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_cauta_responsabil
|
||||
This.do_cauta('RESPONSABIL')
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_cauta_sectie
|
||||
This.do_cauta('SECTIE')
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_listare
|
||||
*!* 26.01.2011
|
||||
*!* marius.mutu
|
||||
*!* filtrare concomitenta dupa gestiune, sectie, responsabil
|
||||
|
||||
Private pcGrup1, pcHeaderGrup1, pcGrup2, pcHeaderGrup2, pcDataOra
|
||||
Local lcCursor, lcGrupare2, lcRaport, lcSel, llExperimental, llSucces
|
||||
Local llUsed
|
||||
Local lcOrdonare
|
||||
*:Global pcCond, pdData, pdDataF, pdDataI, pnFiscala
|
||||
pcGrup1 = "EOF()"
|
||||
pcHeaderGrup1 = ""
|
||||
pcGrup2 = "EOF()"
|
||||
pcHeaderGrup2 = ""
|
||||
|
||||
Private pcTitlu, pcSubtitlu
|
||||
pcTitlu = ""
|
||||
pcSubtitlu = ""
|
||||
|
||||
Private pnIdGestiune, pnIdSectie, pnIdResponsabil, pcCont, pnTip
|
||||
pnIdGestiune = 0
|
||||
pnIdSectie = 0
|
||||
pnIdResponsabil = 0
|
||||
pcCont = ""
|
||||
|
||||
Local lcSelect, lcFiltru, lcOrder, loGestiune, loSectie, loResponsabil, lcFiltruOriginal, lcGrupare
|
||||
Store "" To lcSelect, lcFiltru, lcOrder, lcFiltruOriginal, lcGrupare
|
||||
|
||||
lcOrdonare = IIF(this.optOrdonare.Value = 1, 'nrinv1', IIF(this.optOrdonare.Value = 2, 'denumire', 'datapif1'))
|
||||
|
||||
loGestiune = This.oGestiune
|
||||
loSectie = This.oSectie
|
||||
loResponsabil = This.oResponsabil
|
||||
|
||||
pnTip = This.nTip
|
||||
lcFiltruOriginal = [id_tip_imobilizare=?pnTip and iesit_din_gest=0]
|
||||
|
||||
lcGrupare = Upper(Alltrim(This.cboGrupare.Value))
|
||||
lcGrupare2 = Upper(Alltrim(This.cboGrupare2.Value))
|
||||
|
||||
Do Case
|
||||
Case lcGrupare = 'GESTIUNE'
|
||||
pcGrup1 = [gestiune]
|
||||
lcOrder = lcOrder + [,gestiune]
|
||||
pcHeaderGrup1 = [Gestiune : ]
|
||||
Case lcGrupare = 'RESPONSABIL'
|
||||
pcGrup1 = [responsabil]
|
||||
lcOrder = lcOrder + [,responsabil]
|
||||
pcHeaderGrup1 = [Responsabil : ]
|
||||
Case lcGrupare = 'SECTIE'
|
||||
pcGrup1 = [sectie]
|
||||
lcOrder = lcOrder + [,sectie]
|
||||
pcHeaderGrup1 = [Sectia : ]
|
||||
Case lcGrupare = 'CONT'
|
||||
pcGrup1 = [cont]
|
||||
lcOrder = lcOrder + [,cont,acont]
|
||||
pcHeaderGrup1 = [Cont : ]
|
||||
Endcase
|
||||
|
||||
Do Case
|
||||
Case lcGrupare2 = 'GESTIUNE'
|
||||
pcGrup2 = [gestiune]
|
||||
lcOrder = lcOrder + [,gestiune]
|
||||
pcHeaderGrup2 = [Gestiune : ]
|
||||
Case lcGrupare2 = 'RESPONSABIL'
|
||||
pcGrup2 = [responsabil]
|
||||
lcOrder = lcOrder + [,responsabil]
|
||||
pcHeaderGrup2 = [Responsabil : ]
|
||||
Case lcGrupare2 = 'SECTIE'
|
||||
pcGrup2 = [sectie]
|
||||
lcOrder = lcOrder + [,sectie]
|
||||
pcHeaderGrup2 = [Sectia : ]
|
||||
Case lcGrupare2 = 'CONT'
|
||||
pcGrup2 = [cont]
|
||||
lcOrder = lcOrder + [,cont,acont]
|
||||
pcHeaderGrup2 = [Cont : ]
|
||||
Endcase
|
||||
|
||||
*!* 26.01.2011
|
||||
If Type('loGestiune') = 'O' And Type('loGestiune.id_gestiune') = 'N' And !Empty(loGestiune.id_gestiune)
|
||||
pnIdGestiune = loGestiune.id_gestiune
|
||||
lcFiltruOriginal = lcFiltruOriginal + [ and id_gestiune = ?pnIdGestiune]
|
||||
pcSubtitlu = pcSubtitlu + ' Gestiune "' + Alltrim(This.pcvalue_txt) + '"'
|
||||
Endif
|
||||
|
||||
If Type('loSectie') = 'O' And Type('loSectie.id_sectie') = 'N' And !Empty(loSectie.id_sectie)
|
||||
pnIdSectie = loSectie.id_sectie
|
||||
lcFiltruOriginal = lcFiltruOriginal + [ and id_sectie = ?pnIdSectie]
|
||||
pcSubtitlu = pcSubtitlu + ' Sectie "' + Alltrim(This.pcvalue_txt2) + '"'
|
||||
Endif
|
||||
|
||||
If Type('loResponsabil') = 'O' And Type('loResponsabil.id_responsabil') = 'N' And !Empty(loResponsabil.id_responsabil)
|
||||
pnIdResponsabil = loResponsabil.id_responsabil
|
||||
lcFiltruOriginal = lcFiltruOriginal + [ and id_responsabil = ?pnIdResponsabil]
|
||||
pcSubtitlu = pcSubtitlu + ' Responsabil "' + Alltrim(This.pcvalue_txt3) + '"'
|
||||
Endif
|
||||
*!* 26.01.2011 ^
|
||||
pcCont = ALLTRIM(NVL(this.cCont, ''))
|
||||
If !EMPTY(m.pcCont)
|
||||
lcFiltruOriginal = lcFiltruOriginal + [ and cont = ?pcCont]
|
||||
pcSubtitlu = pcSubtitlu + ' Cont "' + m.pcCont + '"'
|
||||
ENDIF
|
||||
|
||||
IF LEFT(m.lcOrder,1) = ','
|
||||
lcOrder = Substr(lcOrder, 2)
|
||||
ENDIF
|
||||
|
||||
pdDataI = Date(gnAn, gnLuna, 1)
|
||||
pdDataF = pdDataI
|
||||
pcCond = [1=1]
|
||||
pnFiscala = Thisform.nFiscala
|
||||
lcCursor = 'crslista'
|
||||
|
||||
llExperimental = .T. && 25.11.2021 llExperimental = (goApp.nExperimental = 1)
|
||||
lcFiltru = [id_tip_imobilizare = ?pnTip and iesit_din_gest=0] + ;
|
||||
Iif(!Empty(m.pnIdGestiune), [ and id_gestiune = ] + Alltrim(Str(m.pnIdGestiune)), []) + ;
|
||||
Iif(!Empty(m.pnIdSectie), [ and id_sectie = ] + Alltrim(Str(m.pnIdSectie)), []) + ;
|
||||
Iif(!Empty(m.pnIdResponsabil), [ and id_responsabil = ] + Alltrim(Str(m.pnIdResponsabil )), []) + ;
|
||||
Iif(!Empty(m.pcCont), [ and cont = ?pcCont], []) + ;
|
||||
m.gcCondSucursala
|
||||
|
||||
llUsed = Used(m.lcCursor)
|
||||
Do Case
|
||||
Case !Empty(This.cCursor) And Used(This.cCursor)
|
||||
lcCursor = This.cCursor
|
||||
llSucces = .T.
|
||||
Case m.llExperimental
|
||||
* EXPERIMENTAL SELECTIE DIN IMOB_VSITUATIE_LUNARA IN LOC DE PACK_IMOB.CALCUL_SITUATIE_LUNARA()
|
||||
* Setez luna pentru view
|
||||
llSucces = goExecutor.oExecuta('begin pack_imob.setlunacurenta(?pdDataI); end;')
|
||||
If m.llSucces
|
||||
lcSel = [SELECT * FROM ] + Iif(m.pnFiscala = 0, [imob_vsituatie_lunara], [imobf_vsituatie_lunara]) + [ WHERE ] + m.lcFiltru
|
||||
llSucces = goExecutor.oExecuta(m.lcSel, m.lcCursor)
|
||||
Endif
|
||||
Otherwise
|
||||
lcSel = [{call pack_imob.CALCUL_SITUATIE_LUNARA(?pdDataI,?pdDataF,?pcCond,?pnFiscala,?gnIdSucursala)}]
|
||||
llSucces = goExecutor.oExecuta(lcSel, lcCursor)
|
||||
Endcase
|
||||
If !m.llSucces
|
||||
Return .F.
|
||||
Endif
|
||||
|
||||
pcTitlu = Thisform.ctitlu
|
||||
pdData = This.ddata_inv
|
||||
|
||||
*!* 19.01.2008
|
||||
*1* era indexat cursorul si se strica ordinea
|
||||
lcOrder = lcOrder + IIF(!EMPTY(m.lcOrder), ',', '') + m.lcOrdonare
|
||||
*!* 19.01.2008 ^
|
||||
Select *, Dtos(data_pif) As datapif1, Str(nr_inventar) As nrinv1 From (m.lcCursor) With (Buffering = .T.) Where &lcFiltruOriginal Into Cursor crs_rap Order By &lcOrder
|
||||
|
||||
If !m.llUsed
|
||||
Use In (Select(m.lcCursor))
|
||||
Endif
|
||||
|
||||
If Reccount('crs_rap') > 0
|
||||
pcDataOra = get_Ora(2)
|
||||
Select crs_rap
|
||||
Thisform.AlwaysOnTop = .F.
|
||||
lcRaport = Iif(Upper(This.cboModel.Value) = "MODEL 1", "NOTA_INV_M1.FRX", "NOTA_INV_M2.frx")
|
||||
* Report Format &lcRaport To Printer Prompt Noconsole Preview
|
||||
goExport.export2frx([crs_rap], m.lcRaport, , , , , , .T.)
|
||||
|
||||
Thisform.AlwaysOnTop = .T.
|
||||
Else
|
||||
aMessagebox("Nu exista inregistrari pentru listare!", 48, "Atentie")
|
||||
Endif
|
||||
Use In (SELECT('crs_rap'))
|
||||
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
Parameters tnTip, tnFiscala, tcCursor
|
||||
* tcCursor: (optional) numele cursorului cu lista de imobilizari. Daca este completat, fac selectie din cursor in loc de baza de date
|
||||
* tcCursor este completat daca este apelat din frm_lista.do_listare
|
||||
Thisform.ntip = m.tnTip
|
||||
This.nfiscala = m.tnFiscala
|
||||
this.cCursor = m.tcCursor
|
||||
DoDefault()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Load
|
||||
CREATE CURSOR crsGrupare1 (criteriu c(20))
|
||||
CREATE CURSOR crsGrupare2 (criteriu c(20))
|
||||
CREATE CURSOR crsFiltru (criteriu c(20))
|
||||
|
||||
INSERT INTO crsGrupare1 (criteriu) VALUES (SPACE(20))
|
||||
INSERT INTO crsGrupare1 (criteriu) VALUES ('Gestiune')
|
||||
INSERT INTO crsGrupare1 (criteriu) VALUES ('Sectie')
|
||||
INSERT INTO crsGrupare1 (criteriu) VALUES ('Responsabil')
|
||||
INSERT INTO crsGrupare1 (criteriu) VALUES ('Cont')
|
||||
|
||||
|
||||
INSERT INTO crsGrupare2 (criteriu) VALUES (SPACE(20))
|
||||
INSERT INTO crsGrupare2 (criteriu) VALUES ('Gestiune')
|
||||
INSERT INTO crsGrupare2 (criteriu) VALUES ('Sectie')
|
||||
INSERT INTO crsGrupare2 (criteriu) VALUES ('Responsabil')
|
||||
INSERT INTO crsGrupare2 (criteriu) VALUES ('Cont')
|
||||
|
||||
|
||||
INSERT INTO crsFiltru (criteriu) VALUES (SPACE(20))
|
||||
INSERT INTO crsFiltru (criteriu) VALUES ('Gestiune')
|
||||
INSERT INTO crsFiltru (criteriu) VALUES ('Sectie')
|
||||
INSERT INTO crsFiltru (criteriu) VALUES ('Responsabil')
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Show
|
||||
LPARAMETERS nStyle
|
||||
this.ctitlu="LISTA INVENTARIERE IMOBILIZARI "+IIF(this.nTip=1,"CORPORALE","NECORPORALE")
|
||||
this.ddata_inv = GOMONTH(DATE(gnAn, gnLuna, 1),1)-1
|
||||
THIS.edt_titlu.Refresh()
|
||||
this.txtData.Refresh()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE cboGrupare.Init
|
||||
THIS.Value = "Gestiune"
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE cboGrupare2.Init
|
||||
THIS.Value = "Cont"
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE cboModel.Init
|
||||
this.Value = "Model 1"
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
491
Ferestre/rap_situatie_lunara.sc2
Normal file
491
Ferestre/rap_situatie_lunara.sc2
Normal file
@@ -0,0 +1,491 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="rap_situatie_lunara.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>
|
||||
DataSource = .NULL.
|
||||
Height = 0
|
||||
Left = 0
|
||||
Name = "Dataenvironment"
|
||||
Top = 0
|
||||
Width = 0
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_termin_renunt12 AS frm_termin_renunt OF "..\comun\clase\_frm_child.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="Shape1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="_txtgestiuni" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_cautare1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Ed_tx_simplu1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="OptCont" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="optgestiuni" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="OptResponsabil" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="OptSectii" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*p: ctitlu
|
||||
*p: nfiscala
|
||||
*p: ntip
|
||||
*p: orezult
|
||||
*p: pcvalue_txt
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
ctitlu =
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Height = 236
|
||||
Name = "Frm_termin_renunt12"
|
||||
nfiscala = 0
|
||||
ntip = 1
|
||||
orezult =
|
||||
pcvalue_txt =
|
||||
Width = 388
|
||||
_SHAPE1.Height = 29
|
||||
_SHAPE1.Left = 0
|
||||
_SHAPE1.Name = "_SHAPE1"
|
||||
_SHAPE1.Top = 0
|
||||
_SHAPE1.Width = 388
|
||||
_SHAPE2.Height = 29
|
||||
_SHAPE2.Left = 324
|
||||
_SHAPE2.Name = "_SHAPE2"
|
||||
_SHAPE2.Top = 0
|
||||
_SHAPE2.Width = 64
|
||||
LB_TITLU_ALB_B121.Caption = "Alegeti parametrii raportului"
|
||||
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
|
||||
BUT_TERMIN1.Left = 356
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.Top = 1
|
||||
GRIDSORT1.Name = "GRIDSORT1"
|
||||
But_renunt1.Left = 327
|
||||
But_renunt1.Name = "But_renunt1"
|
||||
But_renunt1.Top = 1
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT '_txtgestiuni' AS _textbox WITH ;
|
||||
ControlSource = "thisform.pcvalue_txt", ;
|
||||
DisabledForeColor = 0,0,0, ;
|
||||
Enabled = .F., ;
|
||||
FontItalic = .T., ;
|
||||
FontSize = 10, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 119, ;
|
||||
Name = "_txtgestiuni", ;
|
||||
TabIndex = 9, ;
|
||||
Top = 118, ;
|
||||
Width = 215, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'But_cautare1' AS but_cautare WITH ;
|
||||
Left = 335, ;
|
||||
Name = "But_cautare1", ;
|
||||
TabIndex = 12, ;
|
||||
Top = 114
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Ed_tx_simplu1' AS ed_tx_simplu WITH ;
|
||||
Height = 33, ;
|
||||
Left = 15, ;
|
||||
Name = "Ed_tx_simplu1", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 42, ;
|
||||
Width = 360, ;
|
||||
_edbase1.ControlSource = "thisform.ctitlu", ;
|
||||
_edbase1.FontName = "Arial Narrow", ;
|
||||
_edbase1.FontSize = 10, ;
|
||||
_edbase1.Format = "k", ;
|
||||
_edbase1.Height = 27, ;
|
||||
_edbase1.Left = 76, ;
|
||||
_edbase1.Name = "_edbase1", ;
|
||||
_edbase1.TabIndex = 1, ;
|
||||
_edbase1.Top = 3, ;
|
||||
_edbase1.Width = 278, ;
|
||||
_lbbase1.Caption = "Titlu raport", ;
|
||||
_lbbase1.FontSize = 10, ;
|
||||
_lbbase1.Left = 11, ;
|
||||
_lbbase1.Name = "_lbbase1", ;
|
||||
_lbbase1.TabIndex = 2, ;
|
||||
_lbbase1.Top = 7
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
Alignment = 2, ;
|
||||
AutoSize = .F., ;
|
||||
BackColor = 255,255,255, ;
|
||||
Caption = "Grupat dupa", ;
|
||||
Comment = "*:OnResize=LT", ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 23, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 11, ;
|
||||
Top = 76, ;
|
||||
Width = 73, ;
|
||||
ZOrderSet = 16
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
Alignment = 2, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 255,255,255, ;
|
||||
Caption = "Subgrupat dupa", ;
|
||||
Comment = "*:OnResize=LT", ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 23, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 175, ;
|
||||
Width = 93, ;
|
||||
ZOrderSet = 19
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'OptCont' AS optiongroup WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ButtonCount = 1, ;
|
||||
Height = 28, ;
|
||||
Left = 20, ;
|
||||
Name = "OptCont", ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 3, ;
|
||||
Top = 193, ;
|
||||
Value = 0, ;
|
||||
Width = 56, ;
|
||||
ZOrderSet = 17, ;
|
||||
Option1.AutoSize = .T., ;
|
||||
Option1.BackStyle = 0, ;
|
||||
Option1.Caption = "Cont", ;
|
||||
Option1.FontSize = 10, ;
|
||||
Option1.Height = 18, ;
|
||||
Option1.Left = 5, ;
|
||||
Option1.Name = "Option1", ;
|
||||
Option1.Top = 5, ;
|
||||
Option1.Value = 0, ;
|
||||
Option1.Width = 46
|
||||
*< END OBJECT: BaseClass="optiongroup" />
|
||||
|
||||
ADD OBJECT 'optgestiuni' AS optiongroup WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ButtonCount = 1, ;
|
||||
Height = 28, ;
|
||||
Left = 19, ;
|
||||
Name = "optgestiuni", ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 2, ;
|
||||
Top = 94, ;
|
||||
Value = 0, ;
|
||||
Width = 81, ;
|
||||
ZOrderSet = 15, ;
|
||||
Option1.AutoSize = .T., ;
|
||||
Option1.BackStyle = 0, ;
|
||||
Option1.Caption = "Gestiune", ;
|
||||
Option1.FontSize = 10, ;
|
||||
Option1.Height = 18, ;
|
||||
Option1.Left = 5, ;
|
||||
Option1.Name = "Option1", ;
|
||||
Option1.Top = 5, ;
|
||||
Option1.Value = 0, ;
|
||||
Option1.Width = 71
|
||||
*< END OBJECT: BaseClass="optiongroup" />
|
||||
|
||||
ADD OBJECT 'OptResponsabil' AS optiongroup WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ButtonCount = 1, ;
|
||||
Height = 28, ;
|
||||
Left = 19, ;
|
||||
Name = "OptResponsabil", ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 2, ;
|
||||
Top = 117, ;
|
||||
Value = 0, ;
|
||||
Width = 100, ;
|
||||
ZOrderSet = 15, ;
|
||||
Option1.AutoSize = .T., ;
|
||||
Option1.BackStyle = 0, ;
|
||||
Option1.Caption = "Responsabil", ;
|
||||
Option1.FontSize = 10, ;
|
||||
Option1.Height = 18, ;
|
||||
Option1.Left = 5, ;
|
||||
Option1.Name = "Option1", ;
|
||||
Option1.Top = 5, ;
|
||||
Option1.Value = 0, ;
|
||||
Option1.Width = 90
|
||||
*< END OBJECT: BaseClass="optiongroup" />
|
||||
|
||||
ADD OBJECT 'OptSectii' AS optiongroup WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ButtonCount = 1, ;
|
||||
Height = 28, ;
|
||||
Left = 19, ;
|
||||
Name = "OptSectii", ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 2, ;
|
||||
Top = 140, ;
|
||||
Value = 0, ;
|
||||
Width = 66, ;
|
||||
ZOrderSet = 15, ;
|
||||
Option1.AutoSize = .T., ;
|
||||
Option1.BackStyle = 0, ;
|
||||
Option1.Caption = "Sectie", ;
|
||||
Option1.FontSize = 10, ;
|
||||
Option1.Height = 18, ;
|
||||
Option1.Left = 5, ;
|
||||
Option1.Name = "Option1", ;
|
||||
Option1.Top = 5, ;
|
||||
Option1.Value = 0, ;
|
||||
Option1.Width = 56
|
||||
*< END OBJECT: BaseClass="optiongroup" />
|
||||
|
||||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 85, ;
|
||||
Left = 15, ;
|
||||
Name = "Shape1", ;
|
||||
Top = 86, ;
|
||||
Width = 360, ;
|
||||
ZOrderSet = 1
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Shape2' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 38, ;
|
||||
Left = 15, ;
|
||||
Name = "Shape2", ;
|
||||
Top = 185, ;
|
||||
Width = 360, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
PROCEDURE do_cauta
|
||||
IF THIS.optgestiuni.VALUE = 1
|
||||
pcselect = [select * from ] + gcs + [.vnom_GESTIUNI]
|
||||
pcFiltruOrig = [inactiv = 0 ]
|
||||
pcfiltru = [2=2]
|
||||
pcschema = ['']
|
||||
pcorder = [nume_gestiune]
|
||||
pccoloane = [nume_gestiune,cgest]
|
||||
pcTitlu = [Alegeti gestiunea]
|
||||
pcTitluColoane = [Gestiune,Indicativ]
|
||||
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.T.,pcFiltruOrig)
|
||||
THIS.pcvalue_txt = locauta.nume_gestiune
|
||||
ENDIF
|
||||
|
||||
IF THIS.optResponsabil.VALUE = 1
|
||||
pcselect = [select * from ] + gcs + [.vNom_responsabili]
|
||||
pcFiltruOrig = [inactiv = 0]
|
||||
pcfiltru = [2=2]
|
||||
pcschema = ['']
|
||||
pcorder = [nume]
|
||||
pccoloane = [nume]
|
||||
pcTitlu = [Alegeti responsabilul]
|
||||
pcTitluColoane = [Responsabil]
|
||||
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.T.,pcFiltruOrig)
|
||||
THIS.pcvalue_txt = locauta.nume
|
||||
ENDIF
|
||||
|
||||
IF THIS.optSectii.VALUE = 1
|
||||
pcselect = [select * from ] + gcs + [.vnom_sectii]
|
||||
pcFiltruOrig = [inactiv = 0 ]
|
||||
pcfiltru = [2=2]
|
||||
pcschema = ['']
|
||||
pcorder = [sectie,csectie]
|
||||
pccoloane = [sectie,csectie]
|
||||
pcTitlu = [Alegeti sectia]
|
||||
pcTitluColoane = [Sectie,Indicativ]
|
||||
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.T.,pcFiltruOrig)
|
||||
THIS.pcvalue_txt = locauta.sectie
|
||||
ENDIF
|
||||
|
||||
THIS._txtgestiuni.REFRESH
|
||||
THIS.orezult = locauta
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE inainte_de_do_termin
|
||||
Private postocuri, pcschema, pcselect, pcfiltru, pcorder, osel, pcFiltruOriginal, pcGrupCont, pcGrupAcont
|
||||
Local lcCursor, lcFiltru, lcOrder, lcRaport, lcSchema, lcSel, llExperimental, llSucces
|
||||
PRIVATE nGest, nResp, nSectie, pcCond, pcDataora, pcGrup1, pcGrup2, pcHeaderGrup, pcHeaderGrup1
|
||||
PRIVATE pcHeaderGrup2, pcTitlu, pdDataF, pdDataI, pnFiscala, pnTip
|
||||
Store [] To postocuri, pcFiltruOriginal, pcHeaderGrup
|
||||
|
||||
nGest = 0
|
||||
nResp = 0
|
||||
nSectie = 0
|
||||
|
||||
osel = This.orezult
|
||||
pnTip = This.ntip
|
||||
pcFiltruOriginal = [id_tip_imobilizare=?pnTip and iesit_din_gest=0]
|
||||
lcOrder = []
|
||||
pcGrup1 = [EOF()]
|
||||
pcGrup2 = [EOF()]
|
||||
pcHeaderGrup1 = []
|
||||
pcHeaderGrup2 = []
|
||||
|
||||
If This.optgestiuni.Value = 1
|
||||
*!* If Type('osel') # 'O'
|
||||
*!* aMessagebox('Alegeti gestiunea', 0 + 48)
|
||||
*!* Return .F.
|
||||
*!* Endif
|
||||
|
||||
If Type('osel') = 'O' AND Alltrim(osel.nume_gestiune) # [<TOATE INREGISTRARILE>]
|
||||
nGest = osel.id_gestiune
|
||||
pcFiltruOriginal = pcFiltruOriginal + [ and id_gestiune = ?nGest]
|
||||
Endif
|
||||
pcGrup1 = [gestiune]
|
||||
lcOrder = lcOrder + [,gestiune]
|
||||
pcHeaderGrup1 = [Gestiune : ]
|
||||
Endif
|
||||
|
||||
If This.optResponsabil.Value = 1
|
||||
*!* If Type('osel') # 'O'
|
||||
*!* aMessagebox('Alegeti Responsabilul', 0 + 48)
|
||||
*!* Return .F.
|
||||
*!* Endif
|
||||
If Type('osel') = 'O' AND Alltrim(osel.nume) # [<TOATE INREGISTRARILE>]
|
||||
nResp = osel.id_responsabil
|
||||
pcFiltruOriginal = pcFiltruOriginal + [ and id_responsabil=?nResp]
|
||||
Endif
|
||||
pcGrup1 = [responsabil]
|
||||
lcOrder = lcOrder + [,responsabil]
|
||||
pcHeaderGrup1 = [Responsabil : ]
|
||||
Endif
|
||||
|
||||
If This.optSectii.Value = 1
|
||||
*!* If Type('osel') # 'O'
|
||||
*!* aMessagebox('Alegeti sectia', 0 + 48)
|
||||
*!* Return .F.
|
||||
*!* Endif
|
||||
If Type('osel') = 'O' AND Alltrim(osel.sectie) # [<TOATE INREGISTRARILE>]
|
||||
nSectie = osel.id_sectie
|
||||
pcFiltruOriginal = pcFiltruOriginal + [ and id_sectie = ?nSectie]
|
||||
Endif
|
||||
pcGrup1 = [sectie]
|
||||
lcOrder = lcOrder + [,sectie]
|
||||
pcHeaderGrup1 = [Sectia : ]
|
||||
Endif
|
||||
|
||||
If This.optCont.Value = 1
|
||||
pcGrup2 = [cont]
|
||||
lcOrder = lcOrder + [,cont,acont]
|
||||
pcHeaderGrup2 = [Cont : ]
|
||||
Endif
|
||||
|
||||
lcOrder = lcOrder + [,data_pif,nr_pif,denumire,cod_mf]
|
||||
lcOrder = Substr(lcOrder, 2)
|
||||
|
||||
pdDataI = Date(gnAn, gnLuna, 1)
|
||||
pdDataF = pdDataI
|
||||
pcCond = [1=1]
|
||||
pnFiscala = Thisform.nFiscala
|
||||
lcSchema = ['']
|
||||
lcCursor = 'crslista'
|
||||
|
||||
llExperimental = .T. && 25.11.2021 llExperimental = (goApp.nExperimental = 1)
|
||||
If m.llExperimental
|
||||
* EXPERIMENTAL SELECTIE DIN IMOB_VSITUATIE_LUNARA IN LOC DE PACK_IMOB.CALCUL_SITUATIE_LUNARA()
|
||||
* Setez luna pentru view
|
||||
lcFiltru = m.pcFiltruOriginal + m.gcCondSucursala
|
||||
|
||||
llSucces = goExecutor.oExecuta('begin pack_imob.setlunacurenta(?pdDataI); end;')
|
||||
If m.llSucces
|
||||
lcSel = [SELECT * FROM ] + Iif(m.pnFiscala = 0, [imob_vsituatie_lunara], [imobf_vsituatie_lunara]) + [ WHERE ] + m.lcFiltru
|
||||
llSucces = goExecutor.oExecuta(m.lcSel, m.lcCursor)
|
||||
Endif
|
||||
Else
|
||||
lcSel = [{call pack_imob.CALCUL_SITUATIE_LUNARA(?pdDataI,?pdDataF,?pcCond,?pnFiscala,?gnIdSucursala)}]
|
||||
llSucces = goExecutor.oExecuta(lcSel, lcCursor)
|
||||
Endif
|
||||
|
||||
If !m.llSucces
|
||||
Return .F.
|
||||
Endif
|
||||
*Select * from crslista order by data_operatie,nr_inventar into crslista
|
||||
|
||||
pcTitlu = Thisform.ctitlu
|
||||
|
||||
Select * From crslista With (Buffering = .T.) Where &pcFiltruOriginal Into Cursor crs_rap Order By &lcOrder
|
||||
If Used('crsLista')
|
||||
Use In crslista
|
||||
Endif
|
||||
Select crs_rap
|
||||
*!* modificare v 2.0.7
|
||||
*!* Index on DTOS(data_PIF)+STR(nr_inventar) tag ordine
|
||||
*!* modificare v 2.0.7 ^
|
||||
If Reccount('crs_rap') > 0
|
||||
pcDataora = get_Ora(2)
|
||||
Select crs_rap
|
||||
Thisform.AlwaysOnTop = .F.
|
||||
lcRaport = [list_mfgrup.frx]
|
||||
goExport.export2frx([crs_rap], m.lcRaport, , , , , , .T.)
|
||||
*Report Format &lcRaport To Printer Prompt Noconsole Preview
|
||||
Thisform.AlwaysOnTop = .T.
|
||||
Else
|
||||
aMessagebox("Nu exista inregistrari pentru listare!", 48, "Atentie")
|
||||
Endif
|
||||
Use In crs_rap
|
||||
|
||||
Return .F.
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
PARAMETERS tnTip, tnFiscala
|
||||
thisform.ntip = tnTip
|
||||
this.nfiscala = tnFiscala
|
||||
DODEFAULT()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Show
|
||||
LPARAMETERS nStyle
|
||||
this.ctitlu="LISTA IMOBILIZARILOR "+IIF(this.nTip=1,"CORPORALE","NECORPORALE")+" IN LUNA " + allt(str(gnLuna)) + ' / ' + allt(str(gnAn))
|
||||
this.Ed_tx_simplu1.Refresh
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE optgestiuni.InteractiveChange
|
||||
thisform.pcvalue_txt = []
|
||||
thisform.optResponsabil.Value = 0
|
||||
thisform.optSectii.Value = 0
|
||||
thisform._txtgestiuni.refresh
|
||||
thisform.ResetToDefault('orezult')
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE OptResponsabil.InteractiveChange
|
||||
thisform.pcvalue_txt = []
|
||||
thisform._txtgestiuni.refresh
|
||||
thisform.optGestiuni.Value = 0
|
||||
thisform.optSectii.Value = 0
|
||||
thisform.ResetToDefault('orezult')
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE OptSectii.InteractiveChange
|
||||
thisform.pcvalue_txt = []
|
||||
thisform._txtgestiuni.refresh
|
||||
thisform.optGestiuni.Value = 0
|
||||
thisform.optResponsabil.Value = 0
|
||||
thisform.ResetToDefault('orezult')
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user