*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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" /> * DataSource = .NULL. Height = 0 Left = 0 Name = "Dataenvironment" Top = 0 Width = 0 * 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="" /> * AlwaysOnTop = .F. BackColor = 255,255,255 BorderStyle = 1 DataSession = 1 DoCreate = .T. FontName = "Comic Sans MS" Height = 486 Name = "Ffergen12" Width = 794 * 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 = "\ ADD OBJECT 'Cmd_termin1' AS cmd_termin WITH ; Caption = "\ ADD OBJECT 'Command1' AS commandbutton WITH ; Caption = "\ 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