1086 lines
26 KiB
Plaintext
1086 lines
26 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="sesizare.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 ffergen12 AS ffergen 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="Shape12" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape11" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Edit2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Edit4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Edit5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Edit3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label24" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label18" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label23" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmd_termin1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmd_renunt1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
AlwaysOnTop = .F.
|
|
BackColor = 255,255,255
|
|
BorderStyle = 1
|
|
DataSession = 1
|
|
DoCreate = .T.
|
|
FontName = "Comic Sans MS"
|
|
Height = 486
|
|
Name = "Ffergen12"
|
|
Width = 794
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Check1' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "imediat", ;
|
|
ControlSource = "M.IM", ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 20, ;
|
|
Left = 228, ;
|
|
Name = "Check1", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 7, ;
|
|
Top = 101, ;
|
|
Width = 63, ;
|
|
ZOrderSet = 34
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check2' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "o zi", ;
|
|
ControlSource = "M.OZ", ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 20, ;
|
|
Left = 304, ;
|
|
Name = "Check2", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 8, ;
|
|
Top = 101, ;
|
|
Width = 41, ;
|
|
ZOrderSet = 35
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check3' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "o sapt", ;
|
|
ControlSource = "M.OS", ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 20, ;
|
|
Left = 363, ;
|
|
Name = "Check3", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 9, ;
|
|
Top = 101, ;
|
|
Width = 55, ;
|
|
ZOrderSet = 36
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check4' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "o luna", ;
|
|
ControlSource = "M.OL", ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 20, ;
|
|
Left = 434, ;
|
|
Name = "Check4", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 10, ;
|
|
Top = 101, ;
|
|
Width = 55, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check5' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "eroare de program", ;
|
|
ControlSource = "M.ER", ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 20, ;
|
|
Left = 120, ;
|
|
Name = "Check5", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 11, ;
|
|
Top = 132, ;
|
|
Width = 131, ;
|
|
ZOrderSet = 38
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check6' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "modificare", ;
|
|
ControlSource = "M.MOD", ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 20, ;
|
|
Left = 269, ;
|
|
Name = "Check6", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 12, ;
|
|
Top = 132, ;
|
|
Width = 85, ;
|
|
ZOrderSet = 39
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check7' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "adaugare elemente noi", ;
|
|
ControlSource = "M.AD", ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 20, ;
|
|
Left = 379, ;
|
|
Name = "Check7", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 13, ;
|
|
Top = 132, ;
|
|
Value = 0, ;
|
|
Width = 154, ;
|
|
ZOrderSet = 40
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Cmd_renunt1' AS cmd_renunt WITH ;
|
|
Caption = "\<RENUNT", ;
|
|
Height = 23, ;
|
|
Left = 582, ;
|
|
Name = "Cmd_renunt1", ;
|
|
Top = 454, ;
|
|
Width = 98
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Cmd_termin1' AS cmd_termin WITH ;
|
|
Caption = "\<TERMINAT", ;
|
|
Height = 23, ;
|
|
Left = 681, ;
|
|
Name = "Cmd_termin1", ;
|
|
Top = 454, ;
|
|
Width = 98
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
|
Caption = "\<LISTARE", ;
|
|
FontBold = .T., ;
|
|
Height = 23, ;
|
|
Left = 483, ;
|
|
Name = "Command1", ;
|
|
Top = 454, ;
|
|
Width = 98
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Edit1' AS editbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "M.EXPLIC1", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
DisabledForeColor = 0,0,0, ;
|
|
FontItalic = .F., ;
|
|
FontName = "Times New Roman", ;
|
|
FontSize = 12, ;
|
|
Height = 72, ;
|
|
Left = 12, ;
|
|
Name = "Edit1", ;
|
|
ReadOnly = .F., ;
|
|
ScrollBars = 2, ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 14, ;
|
|
Top = 204, ;
|
|
Width = 384, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="editbox" />
|
|
|
|
ADD OBJECT 'Edit2' AS editbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "M.EXPLIC2", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
DisabledForeColor = 0,0,0, ;
|
|
FontItalic = .F., ;
|
|
FontName = "Times New Roman", ;
|
|
FontSize = 12, ;
|
|
Height = 73, ;
|
|
Left = 12, ;
|
|
Name = "Edit2", ;
|
|
ReadOnly = .F., ;
|
|
ScrollBars = 2, ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 15, ;
|
|
Top = 301, ;
|
|
Width = 382, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: BaseClass="editbox" />
|
|
|
|
ADD OBJECT 'Edit3' AS editbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "M.EXPLIC3", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
FontItalic = .F., ;
|
|
FontName = "Times New Roman", ;
|
|
FontSize = 12, ;
|
|
Height = 71, ;
|
|
Left = 13, ;
|
|
Name = "Edit3", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 16, ;
|
|
Top = 402, ;
|
|
Width = 382, ;
|
|
ZOrderSet = 19
|
|
*< END OBJECT: BaseClass="editbox" />
|
|
|
|
ADD OBJECT 'Edit4' AS editbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "M.EXPLIC4", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
FontItalic = .F., ;
|
|
FontName = "Times New Roman", ;
|
|
FontSize = 12, ;
|
|
Height = 73, ;
|
|
Left = 414, ;
|
|
Name = "Edit4", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 17, ;
|
|
Top = 204, ;
|
|
Width = 366, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: BaseClass="editbox" />
|
|
|
|
ADD OBJECT 'Edit5' AS editbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "M.EXPLIC5", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
FontItalic = .F., ;
|
|
FontName = "Times New Roman", ;
|
|
FontSize = 12, ;
|
|
Height = 72, ;
|
|
Left = 414, ;
|
|
Name = "Edit5", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 18, ;
|
|
Top = 302, ;
|
|
Width = 366, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: BaseClass="editbox" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "D. Grad de urgenta considerat:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 12, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 24, ;
|
|
Top = 100, ;
|
|
Width = 204, ;
|
|
ZOrderSet = 23
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label10' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Intocmita de(numele complet):", ;
|
|
FontBold = .T., ;
|
|
FontItalic = .F., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 432, ;
|
|
Name = "Label10", ;
|
|
TabIndex = 33, ;
|
|
Top = 389, ;
|
|
Width = 196, ;
|
|
ZOrderSet = 21
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label11' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "SESIZARE Nr.", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 11, ;
|
|
Height = 23, ;
|
|
Left = 51, ;
|
|
Name = "Label11", ;
|
|
TabIndex = 36, ;
|
|
Top = 9, ;
|
|
Width = 112, ;
|
|
ZOrderSet = 29
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label12' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "programului:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 34, ;
|
|
Name = "Label12", ;
|
|
TabIndex = 38, ;
|
|
Top = 68, ;
|
|
Width = 78, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 31
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label13' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "B.", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 241, ;
|
|
Name = "Label13", ;
|
|
TabIndex = 40, ;
|
|
Top = 64, ;
|
|
Width = 16, ;
|
|
ZOrderSet = 32
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label14' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "C.", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 517, ;
|
|
Name = "Label14", ;
|
|
TabIndex = 42, ;
|
|
Top = 64, ;
|
|
Width = 16, ;
|
|
ZOrderSet = 33
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label15' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "a.", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 108, ;
|
|
Name = "Label15", ;
|
|
TabIndex = 29, ;
|
|
Top = 132, ;
|
|
Width = 15, ;
|
|
ZOrderSet = 41
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label16' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "b.", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 255, ;
|
|
Name = "Label16", ;
|
|
TabIndex = 28, ;
|
|
Top = 132, ;
|
|
Width = 16, ;
|
|
ZOrderSet = 42
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label17' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "c.", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 365, ;
|
|
Name = "Label17", ;
|
|
TabIndex = 26, ;
|
|
Top = 132, ;
|
|
Width = 15, ;
|
|
ZOrderSet = 43
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label18' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "F. Specificatii:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 12, ;
|
|
Name = "Label18", ;
|
|
TabIndex = 30, ;
|
|
Top = 163, ;
|
|
Width = 101, ;
|
|
ZOrderSet = 44
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "1) Localizarea operatiei in meniu: (cazurile E a,b,c) ", ;
|
|
FontItalic = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 23, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 22, ;
|
|
Top = 186, ;
|
|
Width = 305, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label20' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Numele", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 34, ;
|
|
Name = "Label20", ;
|
|
TabIndex = 39, ;
|
|
Top = 54, ;
|
|
Width = 46, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 31
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label21' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "firmei:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 260, ;
|
|
Name = "Label21", ;
|
|
TabIndex = 43, ;
|
|
Top = 68, ;
|
|
Width = 44, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 31
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label22' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Numele", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 260, ;
|
|
Name = "Label22", ;
|
|
TabIndex = 37, ;
|
|
Top = 54, ;
|
|
Width = 46, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 31
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label23' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "calculatorului:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 540, ;
|
|
Name = "Label23", ;
|
|
TabIndex = 41, ;
|
|
Top = 68, ;
|
|
Width = 90, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 31
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label24' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Numele", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 540, ;
|
|
Name = "Label24", ;
|
|
TabIndex = 34, ;
|
|
Top = 54, ;
|
|
Width = 46, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 31
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label25' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "A:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 12, ;
|
|
Name = "Label25", ;
|
|
TabIndex = 35, ;
|
|
Top = 60, ;
|
|
Width = 18, ;
|
|
ZOrderSet = 32
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "2) Cum este: (cazurile E a,b)", ;
|
|
FontItalic = .T., ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 23, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 23, ;
|
|
Top = 284, ;
|
|
Width = 174, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "3) Cum ar trebui sa fie: (cazurile E a,b,c)", ;
|
|
FontItalic = .T., ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 23, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 25, ;
|
|
Top = 382, ;
|
|
Width = 244, ;
|
|
ZOrderSet = 15
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label5' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "4) Mesaj de eroare: (cazurile E a)", ;
|
|
FontItalic = .T., ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 425, ;
|
|
Name = "Label5", ;
|
|
TabIndex = 31, ;
|
|
Top = 185, ;
|
|
Width = 198, ;
|
|
ZOrderSet = 16
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label6' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "5) Descriere / Alte observatii:", ;
|
|
FontItalic = .T., ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 421, ;
|
|
Name = "Label6", ;
|
|
TabIndex = 32, ;
|
|
Top = 285, ;
|
|
Width = 175, ;
|
|
ZOrderSet = 17
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label7' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "E. Categoria:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 12, ;
|
|
Name = "Label7", ;
|
|
TabIndex = 27, ;
|
|
Top = 132, ;
|
|
Width = 87, ;
|
|
ZOrderSet = 24
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label8' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Subiect", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 434, ;
|
|
Name = "Label8", ;
|
|
TabIndex = 45, ;
|
|
Top = 10, ;
|
|
Width = 50, ;
|
|
ZOrderSet = 26
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label9' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "din data", ;
|
|
FontBold = .T., ;
|
|
FontName = "Comic Sans MS", ;
|
|
FontSize = 10, ;
|
|
Height = 21, ;
|
|
Left = 210, ;
|
|
Name = "Label9", ;
|
|
TabIndex = 44, ;
|
|
Top = 10, ;
|
|
Width = 55, ;
|
|
ZOrderSet = 27
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
BorderStyle = 0, ;
|
|
Height = 23, ;
|
|
Left = 118, ;
|
|
Name = "Shape1", ;
|
|
Top = 66, ;
|
|
Width = 115, ;
|
|
ZOrderSet = 45
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape10' AS shape WITH ;
|
|
BorderStyle = 0, ;
|
|
Height = 23, ;
|
|
Left = 496, ;
|
|
Name = "Shape10", ;
|
|
Top = 13, ;
|
|
Width = 222, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape11' AS shape WITH ;
|
|
BorderStyle = 0, ;
|
|
Height = 23, ;
|
|
Left = 274, ;
|
|
Name = "Shape11", ;
|
|
Top = 13, ;
|
|
Width = 101, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape12' AS shape WITH ;
|
|
BorderStyle = 0, ;
|
|
Height = 23, ;
|
|
Left = 165, ;
|
|
Name = "Shape12", ;
|
|
Top = 13, ;
|
|
Width = 42, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
BorderStyle = 0, ;
|
|
Height = 23, ;
|
|
Left = 313, ;
|
|
Name = "Shape2", ;
|
|
Top = 66, ;
|
|
Width = 189, ;
|
|
ZOrderSet = 47
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape3' AS shape WITH ;
|
|
BorderStyle = 0, ;
|
|
Height = 72, ;
|
|
Left = 17, ;
|
|
Name = "Shape3", ;
|
|
Top = 211, ;
|
|
Width = 385, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape4' AS shape WITH ;
|
|
BorderStyle = 0, ;
|
|
Height = 73, ;
|
|
Left = 17, ;
|
|
Name = "Shape4", ;
|
|
Top = 307, ;
|
|
Width = 384, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape5' AS shape WITH ;
|
|
BorderStyle = 0, ;
|
|
Height = 71, ;
|
|
Left = 17, ;
|
|
Name = "Shape5", ;
|
|
Top = 409, ;
|
|
Width = 384, ;
|
|
ZOrderSet = 18
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape6' AS shape WITH ;
|
|
BorderStyle = 0, ;
|
|
Height = 73, ;
|
|
Left = 419, ;
|
|
Name = "Shape6", ;
|
|
Top = 211, ;
|
|
Width = 368, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape7' AS shape WITH ;
|
|
BorderStyle = 0, ;
|
|
Height = 72, ;
|
|
Left = 419, ;
|
|
Name = "Shape7", ;
|
|
Top = 308, ;
|
|
Width = 368, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape8' AS shape WITH ;
|
|
BorderStyle = 0, ;
|
|
Height = 23, ;
|
|
Left = 435, ;
|
|
Name = "Shape8", ;
|
|
Top = 418, ;
|
|
Width = 287, ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape9' AS shape WITH ;
|
|
BorderStyle = 0, ;
|
|
Height = 23, ;
|
|
Left = 636, ;
|
|
Name = "Shape9", ;
|
|
Top = 66, ;
|
|
Width = 147, ;
|
|
ZOrderSet = 49
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
ControlSource = "m.datae", ;
|
|
Height = 23, ;
|
|
Left = 270, ;
|
|
Name = "Text1", ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 2, ;
|
|
Top = 9, ;
|
|
Width = 100, ;
|
|
ZOrderSet = 25
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
ControlSource = "m.ord", ;
|
|
Height = 23, ;
|
|
Left = 161, ;
|
|
Name = "Text2", ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 1, ;
|
|
Top = 9, ;
|
|
Width = 41, ;
|
|
ZOrderSet = 28
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text3' AS textbox WITH ;
|
|
ControlSource = "m.explic6", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 9, ;
|
|
Height = 23, ;
|
|
Left = 491, ;
|
|
Name = "Text3", ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 3, ;
|
|
Top = 9, ;
|
|
Width = 222, ;
|
|
ZOrderSet = 30
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text4' AS textbox WITH ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "m.numefirma", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
Height = 23, ;
|
|
Left = 310, ;
|
|
Name = "Text4", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 5, ;
|
|
Top = 61, ;
|
|
Width = 187, ;
|
|
ZOrderSet = 48
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text5' AS textbox WITH ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "m.exped", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
Height = 23, ;
|
|
Left = 432, ;
|
|
Name = "Text5", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 19, ;
|
|
Top = 413, ;
|
|
Width = 285, ;
|
|
ZOrderSet = 22
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text6' AS textbox WITH ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "m.numecalc", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
Height = 23, ;
|
|
Left = 633, ;
|
|
Name = "Text6", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 6, ;
|
|
Top = 61, ;
|
|
Width = 145, ;
|
|
ZOrderSet = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text8' AS textbox WITH ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "m.numeprg", ;
|
|
DisabledBackColor = 255,255,255, ;
|
|
Height = 23, ;
|
|
Left = 115, ;
|
|
Name = "Text8", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 4, ;
|
|
Top = 61, ;
|
|
Width = 113, ;
|
|
ZOrderSet = 46
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Load
|
|
*!* PUBLIC m.im,m.oz,m.os,m.ol,m.er,m.mod,m.ad
|
|
*!* PUBLIC M.DATAE
|
|
*!* *PRIVATE M.ORD
|
|
*!* PUBLIC M.ORD
|
|
*!* STORE DATE() TO m.datae
|
|
*!* STORE .F. TO m.im,m.oz,m.os,m.ol,m.er,m.mod,m.ad
|
|
*!* m.numefirma=m.flung
|
|
BUTON=2
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Click
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Valid
|
|
*!* IF this.Value=1
|
|
*!* m.im=.T.
|
|
*!* ELSE
|
|
*!* STORE .F. TO m.im
|
|
*!* ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Check2.Click
|
|
*!* IF this.Value=1
|
|
*!* STORE .T. TO m.oz
|
|
*!* ELSE
|
|
*!* STORE .F. TO M.OZ
|
|
*!* ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Check3.Click
|
|
*!* IF this.Value=1
|
|
*!* STORE .T. TO m.os
|
|
*!* ELSE
|
|
*!* STORE .F. TO m.os
|
|
*!* ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Check4.Click
|
|
*!* IF this.Value=1
|
|
*!* STORE .T. TO m.ol
|
|
*!* ELSE
|
|
*!* STORE .F. TO m.ol
|
|
*!* ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Check5.Click
|
|
*!* IF this.Value=1
|
|
*!* STORE .T. TO m.er
|
|
*!* ELSE
|
|
*!* STORE .F. TO m.er
|
|
*!* ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Check6.Click
|
|
*!* IF this.Value=1
|
|
*!* STORE .T. TO m.mod
|
|
*!* ELSE
|
|
*!* STORE .F. TO m.mod
|
|
*!* ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Check7.Click
|
|
*!* IF THIS.VALUE=1
|
|
*!* STORE .T. TO M.AD
|
|
*!* ELSE
|
|
*!* STORE .F. TO M.AD
|
|
*!* ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmd_renunt1.Click
|
|
buton=2
|
|
THISFORM.RELEASE
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmd_termin1.Click
|
|
LOCAL m.ids
|
|
|
|
SELECT sesizari
|
|
LOCATE FOR IDS=PIDS
|
|
IF FLOCK()
|
|
GATHER MEMVAR memo
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
BUN=.T.
|
|
|
|
thisform.release
|
|
ENDPROC
|
|
|
|
PROCEDURE Command1.Click
|
|
LOCAL m.ids
|
|
*!* m.ids=0
|
|
*!* SELECT sesizari
|
|
*!* SET FILTER TO
|
|
*!* CALCULATE MAX(IDS) TO M.IDS
|
|
*!* M.IDS=M.IDS+1
|
|
|
|
SELECT sesizari
|
|
LOCATE FOR IDS=PIDS
|
|
IF FLOCK()
|
|
GATHER MEMVAR memo
|
|
ENDIF
|
|
UNLOCK
|
|
|
|
SELECT sesizari
|
|
*GO TOP
|
|
SET FILTER TO IDS=PIDS
|
|
*BROWSE
|
|
THISFORM.AlwaysOnTop=.F.
|
|
REPORT FORM sesizare TO PRINTER PROMPT PREVIEW
|
|
THISFORM.AlwaysOnTop=.T.
|
|
SELECT sesizari
|
|
SET FILTER TO
|
|
BUN=.T.
|
|
|
|
thisform.cmdrenunt1.Enabled=.f.
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|