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:
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
|
||||
Reference in New Issue
Block a user