Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Need some help with errors in two of my form
Message
From
29/04/2002 16:42:49
 
 
To
29/04/2002 13:28:13
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Miscellaneous
Thread ID:
00650491
Message ID:
00650607
Views:
21
Hi Edgar,

I'm on my way out the door, however, if you don't get any responses to this, you can email your form files (both the .scx AND the .sct) to me along with some dummy data and I will check it for you if you like at home tonight and email back to you what I find (if anything).

However, Hopefully someone will jump in and know what the problem is before then!
Tracy

>Hello, i have this annoying problem:
>I have two forms: Hardware and centres.
>
>The problem with Hardware is the next:
>When you push the edit button of the wizbtns class (the pictbtns) it doesn't allow to modify any information because all the textbox are unables.
>Its not the same thing when you run the form from the project manager in foxpro.
>This the form information:
>
>SOURCE FILE: C:\ARPHELP\HARDWARE.SCX
>================================================================================
>Documented: 29 April 02 @ 10:17
>
>Name:		DATAENVIRONMENT
>Class:		DATAENVIRONMENT
>Parent:		
>Base Class:	DATAENVIRONMENT
>Description:	
>
>***** PROPERTIES *****
>
>Left = 1
>Top = 220
>Width = 520
>Height = 200
>Name = "Dataenvironment"
>
>================================================================================
>
>Name:		CURSOR1
>Class:		CURSOR
>Parent:		DATAENVIRONMENT
>Base Class:	CURSOR
>Description:	
>
>***** PROPERTIES *****
>
>Left = 10
>Top = 20
>Width = 90
>Height = 90
>Alias = "hardware"
>Database = helpdesk.dbc
>CursorSource = "hardware"
>Name = "Cursor1"
>
>================================================================================
>
>Name:		FORM1
>Class:		EMBOSSEDFORM
>Parent:		
>Base Class:	FORM
>Description:	
>
>***** PROPERTIES *****
>
>ScaleMode = 3
>Height = 448
>Width = 631
>DoCreate = .T.
>ShowTips = .T.
>BufferMode = 2
>AutoCenter = .T.
>Caption = "HARDWARE"
>Visible = .F.
>WindowType = 1
>WindowState = 0
>LockScreen = .F.
>BackColor = 128,255,255
>Name = "Form1"
>layoutsty.Shape1.Name = "Shape1"
>layoutsty.Shape2.Name = "Shape2"
>layoutsty.Shape3.Name = "Shape3"
>layoutsty.Shape4.Name = "Shape4"
>layoutsty.Left = 4004
>layoutsty.Visible = .F.
>layoutsty.TabIndex = 30
>layoutsty.Name = "layoutsty"
>Label1.FontItalic = .T.
>Label1.FontSize = 16
>Label1.Caption = "EQUIPOS"
>Label1.Left = 282
>Label1.Top = -2
>Label1.Width = 94
>Label1.TabIndex = 31
>Label1.ForeColor = 0,0,128
>Label1.Name = "Label1"
>Shape1.Top = 25
>Shape1.Left = 5
>Shape1.Height = 1
>Shape1.Width = 617
>Shape1.BorderColor = 0,0,128
>Shape1.Name = "Shape1"
>Shape2.Top = 24
>Shape2.Left = 9
>Shape2.Height = 2
>Shape2.Width = 616
>Shape2.BorderColor = 0,0,128
>Shape2.Name = "Shape2"
>Shape3.Top = 410
>Shape3.Left = 7
>Shape3.Height = 1
>Shape3.Width = 618
>Shape3.BorderColor = 0,0,128
>Shape3.Name = "Shape3"
>Shape4.Top = 440
>Shape4.Left = 8
>Shape4.Height = 1
>Shape4.Width = 616
>Shape4.BorderColor = 0,0,128
>Shape4.Name = "Shape4"
>
>================================================================================
>
>Name:		LBLHARCODIGO1
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Nùmero de Serie:"
>Height = 15
>Left = 202
>Top = 35
>Visible = .T.
>Width = 96
>TabIndex = 33
>ForeColor = 0,0,128
>Name = "LBLHARCODIGO1"
>
>================================================================================
>
>Name:		TEXT1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>ControlSource = "hardware.host"
>Enabled = .F.
>Format = "999999"
>Height = 22
>InputMask = ""
>Left = 94
>ReadOnly = .T.
>SpecialEffect = 1
>TabIndex = 2
>Top = 32
>Visible = .T.
>Width = 103
>ForeColor = 0,0,128
>Name = "text1"
>
>================================================================================
>
>Name:		LBLHARMODELO1
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Modelo"
>Height = 15
>Left = 15
>Top = 62
>Visible = .T.
>Width = 44
>TabIndex = 34
>ForeColor = 0,0,128
>Name = "LBLHARMODELO1"
>
>================================================================================
>
>Name:		HARMODELO1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>ControlSource = "hardware.modelo"
>Enabled = .F.
>Format = "!"
>Height = 22
>InputMask = ""
>Left = 94
>SpecialEffect = 1
>TabIndex = 5
>Top = 56
>Visible = .T.
>Width = 103
>ForeColor = 0,0,128
>Name = "HARMODELO1"
>
>================================================================================
>
>***** METHODS *****
>
>*** GOTFOCUS METHOD
>Thisform.combo1.enabled = .t.
>================================================================================
>
>Name:		LBLHARCONTRATO1
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Contrato"
>Height = 15
>Left = 15
>Top = 385
>Visible = .T.
>Width = 51
>TabIndex = 35
>ForeColor = 0,0,128
>Name = "LBLHARCONTRATO1"
>
>================================================================================
>
>Name:		HARCONTRATO1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>ControlSource = "hardware.contrato"
>Enabled = .F.
>Format = "!"
>Height = 22
>InputMask = ""
>Left = 93
>SpecialEffect = 1
>TabIndex = 27
>Top = 383
>Visible = .T.
>Width = 104
>ForeColor = 0,0,128
>Name = "HARCONTRATO1"
>
>================================================================================
>
>***** METHODS *****
>
>*** GOTFOCUS METHOD
>thisform.combo2.enabled=.T.
>================================================================================
>
>Name:		LBLHARUSUARIO1
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Usuario"
>Height = 15
>Left = 15
>Top = 81
>Visible = .T.
>Width = 45
>TabIndex = 40
>ForeColor = 0,0,128
>Name = "LBLHARUSUARIO1"
>
>================================================================================
>
>Name:		HARUSUARIO1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 1
>ControlSource = "hardware.usuario"
>Enabled = .F.
>Height = 22
>InputMask = "9,999"
>Left = 93
>SpecialEffect = 1
>TabIndex = 7
>Top = 81
>Visible = .T.
>Width = 40
>ForeColor = 0,0,128
>Name = "HARUSUARIO1"
>
>================================================================================
>
>***** METHODS *****
>
>*** GOTFOCUS METHOD
>Thisform.combo3.enabled = .t.
>================================================================================
>
>Name:		LBLHAROBSERVAC1
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Observación:"
>Height = 17
>Left = 15
>Top = 183
>Visible = .T.
>Width = 138
>TabIndex = 43
>ForeColor = 0,0,128
>Name = "LBLHAROBSERVAC1"
>
>================================================================================
>
>Name:		HAROBSERVAC1
>Class:		EMBOSSEDMEMO
>Parent:		FORM1
>Base Class:	EDITBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Height = 41
>Left = 92
>ReadOnly = .T.
>SpecialEffect = 1
>TabIndex = 16
>Top = 180
>Visible = .T.
>Width = 522
>ForeColor = 0,0,128
>BackColor = 255,255,255
>ControlSource = "hardware.observac"
>Name = "HAROBSERVAC1"
>
>================================================================================
>
>Name:		LBLHARINSTALAC1
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Fecha:"
>Left = 17
>Top = 234
>Visible = .T.
>Width = 39
>TabIndex = 51
>ForeColor = 0,0,128
>Name = "LBLHARINSTALAC1"
>
>================================================================================
>
>Name:		HARINSTALAC1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.instalac"
>Enabled = .F.
>Height = 22
>Left = 187
>SpecialEffect = 1
>TabIndex = 17
>Top = 232
>Visible = .T.
>Width = 82
>ForeColor = 0,0,128
>Name = "HARINSTALAC1"
>
>================================================================================
>
>Name:		LBLHARULPREVEN1
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Ult.preventivo"
>Left = 284
>Top = 235
>Visible = .T.
>Width = 79
>TabIndex = 52
>ForeColor = 0,0,128
>Name = "LBLHARULPREVEN1"
>
>================================================================================
>
>Name:		HARULPREVEN1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.ulpreven"
>Enabled = .F.
>Height = 22
>Left = 368
>SpecialEffect = 1
>TabIndex = 18
>Top = 232
>Visible = .T.
>Width = 82
>ForeColor = 0,0,128
>Name = "HARULPREVEN1"
>
>================================================================================
>
>Name:		LBLHARULPREVI1
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Ult.previsivo"
>Left = 459
>Top = 235
>Visible = .T.
>Width = 71
>TabIndex = 54
>ForeColor = 0,0,128
>Name = "LBLHARULPREVI1"
>
>================================================================================
>
>Name:		HARULPREVI1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.ulprevi"
>Enabled = .F.
>Height = 22
>Left = 531
>SpecialEffect = 1
>TabIndex = 19
>Top = 232
>Visible = .T.
>Width = 83
>ForeColor = 0,0,128
>Name = "HARULPREVI1"
>
>================================================================================
>
>Name:		LBLHARINVENTARIO1
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "No.inventario"
>Left = 419
>Top = 35
>Visible = .T.
>Width = 77
>TabIndex = 55
>ForeColor = 0,0,128
>Name = "LBLHARINVENTARIO1"
>
>================================================================================
>
>Name:		HARINVENTARIO1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>ControlSource = "hardware.inventario"
>Enabled = .F.
>Height = 22
>InputMask = "XXXXXXXXXXXXXXXXXXXX"
>Left = 501
>SpecialEffect = 1
>TabIndex = 4
>Top = 31
>Visible = .T.
>Width = 73
>ForeColor = 0,0,128
>Name = "HARINVENTARIO1"
>
>================================================================================
>
>Name:		LBLHARINGENIERO1
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Ingeniero:"
>Height = 15
>Left = 16
>Top = 295
>Visible = .T.
>Width = 58
>TabIndex = 56
>ForeColor = 0,0,128
>Name = "LBLHARINGENIERO1"
>
>================================================================================
>
>Name:		HARINGENIERO1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 1
>ControlSource = "hardware.ingeniero"
>Enabled = .F.
>Height = 22
>InputMask = "999"
>Left = 93
>SpecialEffect = 1
>TabIndex = 29
>Top = 292
>Visible = .T.
>Width = 24
>ForeColor = 0,0,128
>Name = "HARINGENIERO1"
>
>================================================================================
>
>***** METHODS *****
>
>*** GOTFOCUS METHOD
>Thisform.combo4.enabled = .t.
>================================================================================
>
>Name:		COMBO1
>Class:		COMBOBOX
>Parent:		FORM1
>Base Class:	COMBOBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>BoundColumn = 2
>RowSourceType = 3
>RowSource = 'select descripcion,codigo  from modelos into cursor
>"FOP"+Substr(sys(2015),3,10)'
>ControlSource = "hardware.modelo"
>Enabled = .F.
>Height = 22
>Left = 202
>SpecialEffect = 1
>Style = 2
>TabIndex = 6
>Top = 56
>Width = 412
>ForeColor = 0,0,128
>DisabledBackColor = 255,255,255
>BoundTo = .T.
>Name = "Combo1"
>
>================================================================================
>
>***** METHODS *****
>
>*** VALID METHOD
>Thisform.refresh
>================================================================================
>
>*** LOSTFOCUS METHOD
>Thisform.Combo1.enabled =.F.
>If empty(thisform.HARMODELO1.value)
>  thisform.HARMODELO1.setfocus
>Endif
>================================================================================
>
>*** INIT METHOD
>thisform.combo1.requery
>================================================================================
>
>Name:		COMBO2
>Class:		COMBOBOX
>Parent:		FORM1
>Base Class:	COMBOBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>BoundColumn = 2
>RowSourceType = 3
>RowSource = 'select detalle,codigo from contratos  into cursor
>"FOP"+Substr(sys(2015),3,10)'
>ControlSource = "hardware.contrato"
>Enabled = .F.
>Height = 22
>Left = 202
>SpecialEffect = 1
>Style = 2
>TabIndex = 28
>Top = 383
>Width = 412
>ForeColor = 0,0,128
>DisabledBackColor = 255,255,255
>BoundTo = .T.
>Name = "Combo2"
>
>================================================================================
>
>***** METHODS *****
>
>*** GOTFOCUS METHOD
>================================================================================
>
>*** VALID METHOD
>thisform.refresh
>================================================================================
>
>*** LOSTFOCUS METHOD
>thisform.combo2.enabled=.F.
>If empty(thisform.HARCONTRATO1.value)
>  thisform.HARCONTRATO1.setfocus
>endif
>================================================================================
>
>Name:		COMBO3
>Class:		COMBOBOX
>Parent:		FORM1
>Base Class:	COMBOBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>BoundColumn = 2
>RowSourceType = 3
>RowSource = 'select nombre,codigo from usuarios_cia into cursor
>"FOP"+Substr(sys(2015),3,10)'
>ControlSource = "hardware.usuario"
>Enabled = .F.
>Height = 22
>Left = 202
>SpecialEffect = 1
>Style = 2
>TabIndex = 8
>Top = 81
>Width = 412
>ForeColor = 0,0,128
>DisabledBackColor = 255,255,255
>BoundTo = .T.
>Name = "Combo3"
>
>================================================================================
>
>***** METHODS *****
>
>*** LOSTFOCUS METHOD
>Thisform.Combo3.enabled =.F.
>If empty(Thisform.HARUSUARIO1.value)
>   Thisform.HARUSUARIO1.setfocus
>Endif
>================================================================================
>
>*** VALID METHOD
>Thisform.refresh
>================================================================================
>
>*** INIT METHOD
>thisform.combo3.requery
>================================================================================
>
>Name:		COMBO4
>Class:		COMBOBOX
>Parent:		FORM1
>Base Class:	COMBOBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>BoundColumn = 2
>RowSourceType = 3
>RowSource = 'select nombre,codigo from ingeniero into cursor
>"FOP"+Substr(sys(2015),3,10)'
>ControlSource = "hardware.ingeniero"
>Enabled = .F.
>Height = 22
>Left = 117
>SpecialEffect = 1
>Style = 2
>TabIndex = 21
>Top = 292
>Width = 267
>ForeColor = 0,0,128
>DisabledBackColor = 255,255,255
>BoundTo = .T.
>Name = "Combo4"
>
>================================================================================
>
>***** METHODS *****
>
>*** VALID METHOD
>Thisform.refresh
>================================================================================
>
>*** LOSTFOCUS METHOD
>Thisform.Combo4.enabled =.F.
>If Thisform.HARINGENIERO1.value =0
>    Thisform.HARINGENIERO1.setfocus
>Endif
>================================================================================
>
>*** INIT METHOD
>thisform.combo1.requery
>================================================================================
>
>Name:		EMBOSSEDLABEL2
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Instalación"
>Left = 95
>Top = 236
>Visible = .T.
>Width = 63
>TabIndex = 48
>ForeColor = 0,0,128
>Name = "Embossedlabel2"
>
>================================================================================
>
>Name:		EMBOSSEDLABEL3
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Host:"
>Height = 15
>Left = 16
>Top = 35
>Visible = .T.
>Width = 30
>TabIndex = 32
>ForeColor = 0,0,128
>Name = "Embossedlabel3"
>
>================================================================================
>
>Name:		HARCODIGO1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>ControlSource = "hardware.codigo"
>Enabled = .F.
>Format = "!"
>Height = 22
>InputMask = ""
>Left = 300
>SpecialEffect = 1
>TabIndex = 3
>Top = 31
>Visible = .T.
>Width = 103
>ForeColor = 0,0,128
>Name = "HARCODIGO1"
>
>================================================================================
>
>***** METHODS *****
>
>*** GOTFOCUS METHOD
>Thisform.combo1.enabled = .t.
>================================================================================
>
>Name:		EMBOSSEDLABEL4
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Servidor"
>Left = 95
>Top = 108
>Visible = .T.
>Width = 49
>TabIndex = 46
>ForeColor = 0,0,128
>Name = "Embossedlabel4"
>
>================================================================================
>
>Name:		CHECK1
>Class:		CHECKBOX
>Parent:		FORM1
>Base Class:	CHECKBOX
>Description:	
>
>***** PROPERTIES *****
>
>Top = 109
>Left = 163
>Height = 15
>Width = 14
>Caption = "HARSERVIDOR1"
>ControlSource = "hardware.servidor"
>TabIndex = 9
>BackColor = 255,255,255
>Name = "Check1"
>
>================================================================================
>
>Name:		HARMAQUINA1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.maquina"
>Enabled = .F.
>Height = 22
>Left = 336
>SpecialEffect = 1
>TabIndex = 10
>Top = 106
>Visible = .T.
>Width = 89
>ForeColor = 0,0,128
>Name = "HARMAQUINA1"
>
>================================================================================
>
>Name:		EMBOSSEDLABEL5
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Nodo"
>Left = 436
>Top = 109
>Visible = .T.
>Width = 31
>TabIndex = 53
>ForeColor = 0,0,128
>Name = "Embossedlabel5"
>
>================================================================================
>
>Name:		EMBOSSEDLABEL6
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Máquina"
>Left = 255
>Top = 109
>Visible = .T.
>Width = 52
>TabIndex = 45
>ForeColor = 0,0,128
>Name = "Embossedlabel6"
>
>================================================================================
>
>Name:		HARNODO1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.nodo"
>Enabled = .F.
>Height = 22
>Left = 528
>SpecialEffect = 1
>TabIndex = 11
>Top = 105
>Visible = .T.
>Width = 86
>ForeColor = 0,0,128
>Name = "HARNODO1"
>
>================================================================================
>
>Name:		EMBOSSEDLABEL7
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Ubicaciòn:"
>Height = 15
>Left = 15
>Top = 155
>Visible = .T.
>Width = 62
>TabIndex = 41
>ForeColor = 0,0,128
>Name = "Embossedlabel7"
>
>================================================================================
>
>Name:		HARPISO
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.piso"
>Enabled = .F.
>Height = 22
>InputMask = "999"
>Left = 166
>SpecialEffect = 1
>TabIndex = 15
>Top = 155
>Visible = .T.
>Width = 35
>ForeColor = 0,0,128
>Name = "HARPISO"
>
>================================================================================
>
>Name:		EMBOSSEDLABEL9
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Piso"
>Left = 96
>Top = 158
>Visible = .T.
>Width = 26
>TabIndex = 44
>ForeColor = 0,0,128
>Name = "Embossedlabel9"
>
>================================================================================
>
>Name:		EMBOUSOS
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Uso:"
>Height = 15
>Left = 96
>Top = 134
>Visible = .T.
>Width = 26
>TabIndex = 42
>ForeColor = 0,0,128
>Name = "embousos"
>
>================================================================================
>
>Name:		HARUSO
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.uso"
>Enabled = .F.
>Height = 22
>Left = 163
>SpecialEffect = 1
>TabIndex = 12
>Top = 129
>Visible = .T.
>Width = 77
>ForeColor = 0,0,128
>Name = "HARUSO"
>
>================================================================================
>
>Name:		EMBOSSEDLABEL10
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Direcciòn IP"
>Height = 15
>Left = 257
>Top = 132
>Visible = .T.
>Width = 69
>TabIndex = 47
>ForeColor = 0,0,128
>Name = "Embossedlabel10"
>
>================================================================================
>
>Name:		HARDIRIP
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.dirip"
>Enabled = .F.
>Height = 22
>Left = 336
>SpecialEffect = 1
>TabIndex = 13
>Top = 130
>Visible = .T.
>Width = 89
>ForeColor = 0,0,128
>Name = "HARDIRIP"
>
>================================================================================
>
>Name:		EMBOSSEDFIELD2
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.otraip"
>Enabled = .F.
>Height = 22
>Left = 528
>SpecialEffect = 1
>TabIndex = 14
>Top = 130
>Visible = .T.
>Width = 86
>ForeColor = 0,0,128
>Name = "Embossedfield2"
>
>================================================================================
>
>Name:		EMBOSSEDLABEL11
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Otra Direcciòn"
>Height = 15
>Left = 432
>Top = 132
>Visible = .T.
>Width = 83
>TabIndex = 49
>ForeColor = 0,0,128
>Name = "Embossedlabel11"
>
>================================================================================
>
>Name:		EMBOSSEDLABEL12
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Vence Garantía"
>Left = 96
>Top = 261
>Visible = .T.
>Width = 87
>TabIndex = 50
>ForeColor = 0,0,128
>Name = "Embossedlabel12"
>
>================================================================================
>
>Name:		HARVENCE1
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.vencegtia"
>Enabled = .F.
>Height = 22
>Left = 186
>SpecialEffect = 1
>TabIndex = 20
>Top = 257
>Visible = .T.
>Width = 82
>ForeColor = 0,0,128
>Name = "HARVENCE1"
>
>================================================================================
>
>Name:		LINE1
>Class:		LINE
>Parent:		FORM1
>Base Class:	LINE
>Description:	
>
>***** PROPERTIES *****
>
>Height = 0
>Left = 8
>Top = 283
>Width = 615
>BorderColor = 0,0,128
>Name = "Line1"
>
>================================================================================
>
>Name:		LINE2
>Class:		LINE
>Parent:		FORM1
>Base Class:	LINE
>Description:	
>
>***** PROPERTIES *****
>
>Height = 0
>Left = 8
>Top = 225
>Width = 615
>BorderColor = 0,0,128
>Name = "Line2"
>
>================================================================================
>
>Name:		LINE3
>Class:		LINE
>Parent:		FORM1
>Base Class:	LINE
>Description:	
>
>***** PROPERTIES *****
>
>Height = 185
>Left = 623
>Top = 225
>Width = 0
>BorderColor = 0,0,128
>Name = "Line3"
>
>================================================================================
>
>Name:		LINE4
>Class:		LINE
>Parent:		FORM1
>Base Class:	LINE
>Description:	
>
>***** PROPERTIES *****
>
>Height = 184
>Left = 7
>Top = 226
>Width = 0
>BorderColor = 0,0,128
>Name = "Line4"
>
>================================================================================
>
>Name:		LINE5
>Class:		LINE
>Parent:		FORM1
>Base Class:	LINE
>Description:	
>
>***** PROPERTIES *****
>
>Height = 0
>Left = 9
>Top = 324
>Width = 615
>BorderColor = 0,0,128
>Name = "Line5"
>
>================================================================================
>
>Name:		COMMAND1
>Class:		COMMANDBUTTON
>Parent:		FORM1
>Base Class:	COMMANDBUTTON
>Description:	
>
>***** PROPERTIES *****
>
>Top = 413
>Left = 581
>Height = 24
>Width = 44
>FontItalic = .T.
>FontSize = 8
>Caption = "Mòdelos"
>TabIndex = 57
>Name = "Command1"
>
>================================================================================
>
>***** METHODS *****
>
>*** CLICK METHOD
>do form modelos
>================================================================================
>
>Name:		COMMAND2
>Class:		COMMANDBUTTON
>Parent:		FORM1
>Base Class:	COMMANDBUTTON
>Description:	
>
>***** PROPERTIES *****
>
>Top = 413
>Left = 538
>Height = 24
>Width = 44
>FontItalic = .T.
>FontSize = 8
>Caption = "Usuarios"
>TabIndex = 58
>Name = "Command2"
>
>================================================================================
>
>***** METHODS *****
>
>*** CLICK METHOD
>do form usu_cia
>================================================================================
>
>Name:		EMBOSSEDLABEL8
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Proveedor"
>Height = 15
>Left = 18
>Top = 330
>Visible = .T.
>Width = 59
>TabIndex = 37
>ForeColor = 0,0,128
>Name = "Embossedlabel8"
>
>================================================================================
>
>Name:		HARPROVEEDOR
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 1
>ControlSource = "hardware.proveedor"
>Enabled = .F.
>Height = 22
>InputMask = "999999999"
>Left = 96
>SpecialEffect = 1
>TabIndex = 22
>Top = 330
>Visible = .T.
>Width = 86
>ForeColor = 0,0,128
>Name = "HARPROVEEDOR"
>
>================================================================================
>
>***** METHODS *****
>
>*** GOTFOCUS METHOD
>Thisform.combo5.enabled = .t.
>================================================================================
>
>Name:		COMBO5
>Class:		COMBOBOX
>Parent:		FORM1
>Base Class:	COMBOBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>BoundColumn = 2
>RowSourceType = 3
>RowSource = 'select nombre,codigo from proveedor into cursor
>"FOP"+Substr(sys(2015),3,10)'
>ControlSource = "hardware.proveedor"
>Enabled = .F.
>Height = 22
>Left = 205
>SpecialEffect = 1
>Style = 2
>TabIndex = 23
>Top = 330
>Width = 412
>ForeColor = 0,0,128
>DisabledBackColor = 255,255,255
>BoundTo = .T.
>Name = "Combo5"
>
>================================================================================
>
>***** METHODS *****
>
>*** INIT METHOD
>thisform.combo5.requery
>================================================================================
>
>*** VALID METHOD
>Thisform.refresh
>================================================================================
>
>*** LOSTFOCUS METHOD
>Thisform.Combo5.enabled =.F.
>If empty(Thisform.HARPROVEEDOR.value)
>   Thisform.HARPROVEEDOR.setfocus
>Endif
>================================================================================
>
>Name:		EMBOSSEDFIELD3
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.nfactura"
>Enabled = .F.
>Height = 22
>Left = 175
>SpecialEffect = 1
>TabIndex = 24
>Top = 356
>Visible = .T.
>Width = 77
>ForeColor = 0,0,128
>Name = "Embossedfield3"
>
>================================================================================
>
>Name:		EMBOSSEDFIELD4
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.acta"
>Enabled = .F.
>Height = 22
>Left = 494
>SpecialEffect = 1
>TabIndex = 26
>Top = 356
>Visible = .T.
>Width = 122
>ForeColor = 0,0,128
>Name = "Embossedfield4"
>
>================================================================================
>
>Name:		EMBOSSEDFIELD5
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 3
>ControlSource = "hardware.ffactura"
>Enabled = .F.
>Height = 22
>Left = 360
>SpecialEffect = 1
>TabIndex = 25
>Top = 356
>Visible = .T.
>Width = 82
>ForeColor = 0,0,128
>Name = "Embossedfield5"
>
>================================================================================
>
>Name:		EMBOSSEDLABEL13
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "N.Factura"
>Height = 15
>Left = 96
>Top = 358
>Visible = .T.
>Width = 56
>TabIndex = 36
>ForeColor = 0,0,128
>Name = "Embossedlabel13"
>
>================================================================================
>
>Name:		EMBOSSEDLABEL14
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Fecha Factura"
>Height = 15
>Left = 278
>Top = 359
>Visible = .T.
>Width = 81
>TabIndex = 39
>ForeColor = 0,0,128
>Name = "Embossedlabel14"
>
>================================================================================
>
>Name:		EMBOSSEDLABEL15
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Acta"
>Height = 15
>Left = 459
>Top = 360
>Visible = .T.
>Width = 27
>TabIndex = 38
>ForeColor = 0,0,128
>Name = "Embossedlabel15"
>
>================================================================================
>
>Name:		EMBOSSEDLABEL16
>Class:		EMBOSSEDLABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 8
>Caption = "Centro de Costo"
>Left = 221
>Top = 158
>Visible = .T.
>Width = 89
>TabIndex = 44
>ForeColor = 0,0,128
>Name = "Embossedlabel16"
>
>================================================================================
>
>Name:		HARCENTROCOSTO
>Class:		EMBOSSEDFIELD
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>Alignment = 1
>ControlSource = "hardware.ncodccosto"
>Enabled = .F.
>Height = 22
>InputMask = ""
>Left = 313
>SpecialEffect = 1
>TabIndex = 29
>Top = 155
>Visible = .T.
>Width = 33
>ForeColor = 0,0,128
>Name = "HARCENTROCOSTO"
>
>================================================================================
>
>***** METHODS *****
>
>*** GOTFOCUS METHOD
>Thisform.combo6.enabled = .t.
>================================================================================
>
>Name:		COMBO6
>Class:		COMBOBOX
>Parent:		FORM1
>Base Class:	COMBOBOX
>Description:	
>
>***** PROPERTIES *****
>
>FontItalic = .T.
>FontSize = 8
>BoundColumn = 2
>RowSourceType = 3
>RowSource = 'select ccentrocosto,ncodigo from centrocostos into cursor
>"FOP"+Substr(sys(2015),3,10)'
>ControlSource = "hardware.ncodccosto"
>Enabled = .F.
>Height = 22
>Left = 346
>SpecialEffect = 1
>Style = 2
>TabIndex = 21
>Top = 155
>Width = 267
>ForeColor = 0,0,128
>DisabledBackColor = 255,255,255
>BoundTo = .T.
>Name = "Combo6"
>
>================================================================================
>
>***** METHODS *****
>
>*** INIT METHOD
>thisform.combo1.requery
>================================================================================
>
>*** LOSTFOCUS METHOD
>Thisform.Combo6.enabled =.F.
>If Thisform.HARCENTROCOSTO.value =0
>    Thisform.HARCENTROCOSTO.setfocus
>Endif
>================================================================================
>
>*** VALID METHOD
>Thisform.refresh
>================================================================================
>
>Name:		PICBTNS1
>Class:		PICBTNS
>Parent:		FORM1
>Base Class:	CONTAINER
>Description:	
>
>***** PROPERTIES *****
>
>Top = 410
>Left = 18
>Name = "Picbtns1"
>cmdPrev.Name = "cmdPrev"
>cmdNext.Name = "cmdNext"
>cmdTop.Name = "cmdTop"
>cmdEnd.Name = "cmdEnd"
>cmdFind.Name = "cmdFind"
>cmdPrint.Name = "cmdPrint"
>cmdExit.Name = "cmdExit"
>cmdAdd.Name = "cmdAdd"
>cmdDelete.Name = "cmdDelete"
>cmdEdit.Name = "cmdEdit"
>
>================================================================================
>
>
>And the next centre form:
>display the next message error when you try to add or save or modify some record:
>LTRIM(STR(RECNO(),3)
>ERROR 1925
>Unknown member TEXT1
>method: click
>line:13
>
>This is form information:
>
>
>SOURCE FILE: C:\ARPHELP\CCOSTOS.SCX
>================================================================================
>Documented: 29 April 02 @ 10:14
>
>Name:		DATAENVIRONMENT
>Class:		DATAENVIRONMENT
>Parent:		
>Base Class:	DATAENVIRONMENT
>Description:	
>
>***** PROPERTIES *****
>
>Left = 1
>Top = 220
>Width = 520
>Height = 200
>Name = "Dataenvironment"
>
>================================================================================
>
>Name:		CURSOR1
>Class:		CURSOR
>Parent:		DATAENVIRONMENT
>Base Class:	CURSOR
>Description:	
>
>***** PROPERTIES *****
>
>Left = 10
>Top = 20
>Width = 90
>Height = 90
>Alias = "centrocostos"
>Database = helpdesk.dbc
>CursorSource = "centrocostos"
>Name = "Cursor1"
>
>================================================================================
>
>Name:		FORM1
>Class:		FORM
>Parent:		
>Base Class:	FORM
>Description:	
>
>***** PROPERTIES *****
>
>Height = 126
>Width = 559
>DoCreate = .T.
>AutoCenter = .T.
>Caption = "Form1"
>TitleBar = 0
>BackColor = 125,255,255
>Name = "Form1"
>
>================================================================================
>
>Name:		TXTNCODIGO
>Class:		TEXTBOX
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>Comment = ""
>ControlSource = "centrocostos.ncodigo"
>Height = 23
>Left = 86
>SpecialEffect = 1
>TabIndex = 2
>Top = 48
>Width = 81
>ForeColor = 0,0,128
>DisabledBackColor = 255,255,255
>BorderColor = 0,0,128
>Name = "txtNcodigo"
>
>================================================================================
>
>Name:		LBLNCODIGO
>Class:		LABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>WordWrap = .T.
>BackStyle = 0
>Caption = "Código"
>Left = 32
>Top = 48
>Width = 40
>TabIndex = 1
>ForeColor = 0,0,128
>Name = "lblNcodigo"
>
>================================================================================
>
>Name:		TXTCCENTROCOSTO
>Class:		TEXTBOX
>Parent:		FORM1
>Base Class:	TEXTBOX
>Description:	
>
>***** PROPERTIES *****
>
>Comment = ""
>ControlSource = "centrocostos.ccentrocosto"
>Height = 23
>Left = 262
>MaxLength = 35
>SpecialEffect = 1
>TabIndex = 4
>Top = 48
>Width = 253
>ForeColor = 0,0,128
>DisabledBackColor = 255,255,255
>BorderColor = 0,0,128
>Name = "txtCcentrocosto"
>
>================================================================================
>
>Name:		LBLCCENTROCOSTO
>Class:		LABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>WordWrap = .T.
>BackStyle = 0
>Caption = "Descripción"
>Left = 181
>Top = 48
>Width = 69
>TabIndex = 3
>ForeColor = 0,0,128
>Name = "lblCcentrocosto"
>
>================================================================================
>
>Name:		LABEL1
>Class:		LABEL
>Parent:		FORM1
>Base Class:	LABEL
>Description:	
>
>***** PROPERTIES *****
>
>AutoSize = .T.
>FontBold = .T.
>FontItalic = .T.
>FontSize = 18
>BackStyle = 0
>Caption = "Centro de Costos"
>Height = 31
>Left = 168
>Top = 8
>Width = 199
>ForeColor = 0,0,128
>Name = "Label1"
>
>================================================================================
>
>Name:		LINE1
>Class:		LINE
>Parent:		FORM1
>Base Class:	LINE
>Description:	
>
>***** PROPERTIES *****
>
>BorderWidth = 2
>Height = 0
>Left = 26
>Top = 36
>Width = 494
>BorderColor = 0,0,128
>Name = "Line1"
>
>================================================================================
>
>Name:		FORMBUTTONS1
>Class:		FORMBUTTONS
>Parent:		FORM1
>Base Class:	CONTAINER
>Description:	
>
>***** PROPERTIES *****
>
>Top = 86
>Left = 18
>Name = "Formbuttons1"
>cmdPrev.Name = "cmdPrev"
>cmdNext.Name = "cmdNext"
>cmdTop.Name = "cmdTop"
>cmdEnd.Name = "cmdEnd"
>cmdFind.Name = "cmdFind"
>cmdPrint.Name = "cmdPrint"
>cmdExit.Name = "cmdExit"
>cmdAdd.Name = "cmdAdd"
>cmdDelete.Name = "cmdDelete"
>cmdEdit.Name = "cmdEdit"
>
>================================================================================
>
>
>
>Please help me.
>
>Thanks.
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Previous
Reply
Map
View

Click here to load this message in the networking platform