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:
Left = 1
Top = 220
Width = 520
Height = 200
Name = "Dataenvironment"
================================================================================
Name: CURSOR1
Class: CURSOR
Parent: DATAENVIRONMENT
Base Class: CURSOR
Description:
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:
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:
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:
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:
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:
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"
================================================================================
Thisform.combo1.enabled = .t.
================================================================================
Name: LBLHARCONTRATO1
Class: EMBOSSEDLABEL
Parent: FORM1
Base Class: LABEL
Description:
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:
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"
================================================================================
thisform.combo2.enabled=.T.
================================================================================
Name: LBLHARUSUARIO1
Class: EMBOSSEDLABEL
Parent: FORM1
Base Class: LABEL
Description:
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:
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"
================================================================================
Thisform.combo3.enabled = .t.
================================================================================
Name: LBLHAROBSERVAC1
Class: EMBOSSEDLABEL
Parent: FORM1
Base Class: LABEL
Description:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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"
================================================================================
Thisform.combo4.enabled = .t.
================================================================================
Name: COMBO1
Class: COMBOBOX
Parent: FORM1
Base Class: COMBOBOX
Description:
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"
================================================================================
Thisform.refresh
================================================================================
Thisform.Combo1.enabled =.F.
If empty(thisform.HARMODELO1.value)
thisform.HARMODELO1.setfocus
Endif
================================================================================
thisform.combo1.requery
================================================================================
Name: COMBO2
Class: COMBOBOX
Parent: FORM1
Base Class: COMBOBOX
Description:
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"
================================================================================
================================================================================
thisform.refresh
================================================================================
thisform.combo2.enabled=.F.
If empty(thisform.HARCONTRATO1.value)
thisform.HARCONTRATO1.setfocus
endif
================================================================================
Name: COMBO3
Class: COMBOBOX
Parent: FORM1
Base Class: COMBOBOX
Description:
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"
================================================================================
Thisform.Combo3.enabled =.F.
If empty(Thisform.HARUSUARIO1.value)
Thisform.HARUSUARIO1.setfocus
Endif
================================================================================
Thisform.refresh
================================================================================
thisform.combo3.requery
================================================================================
Name: COMBO4
Class: COMBOBOX
Parent: FORM1
Base Class: COMBOBOX
Description:
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"
================================================================================
Thisform.refresh
================================================================================
Thisform.Combo4.enabled =.F.
If Thisform.HARINGENIERO1.value =0
Thisform.HARINGENIERO1.setfocus
Endif
================================================================================
thisform.combo1.requery
================================================================================
Name: EMBOSSEDLABEL2
Class: EMBOSSEDLABEL
Parent: FORM1
Base Class: LABEL
Description:
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:
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:
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"
================================================================================
Thisform.combo1.enabled = .t.
================================================================================
Name: EMBOSSEDLABEL4
Class: EMBOSSEDLABEL
Parent: FORM1
Base Class: LABEL
Description:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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:
Height = 0
Left = 8
Top = 283
Width = 615
BorderColor = 0,0,128
Name = "Line1"
================================================================================
Name: LINE2
Class: LINE
Parent: FORM1
Base Class: LINE
Description:
Height = 0
Left = 8
Top = 225
Width = 615
BorderColor = 0,0,128
Name = "Line2"
================================================================================
Name: LINE3
Class: LINE
Parent: FORM1
Base Class: LINE
Description:
Height = 185
Left = 623
Top = 225
Width = 0
BorderColor = 0,0,128
Name = "Line3"
================================================================================
Name: LINE4
Class: LINE
Parent: FORM1
Base Class: LINE
Description:
Height = 184
Left = 7
Top = 226
Width = 0
BorderColor = 0,0,128
Name = "Line4"
================================================================================
Name: LINE5
Class: LINE
Parent: FORM1
Base Class: LINE
Description:
Height = 0
Left = 9
Top = 324
Width = 615
BorderColor = 0,0,128
Name = "Line5"
================================================================================
Name: COMMAND1
Class: COMMANDBUTTON
Parent: FORM1
Base Class: COMMANDBUTTON
Description:
Top = 413
Left = 581
Height = 24
Width = 44
FontItalic = .T.
FontSize = 8
Caption = "Mòdelos"
TabIndex = 57
Name = "Command1"
================================================================================
do form modelos
================================================================================
Name: COMMAND2
Class: COMMANDBUTTON
Parent: FORM1
Base Class: COMMANDBUTTON
Description:
Top = 413
Left = 538
Height = 24
Width = 44
FontItalic = .T.
FontSize = 8
Caption = "Usuarios"
TabIndex = 58
Name = "Command2"
================================================================================
do form usu_cia
================================================================================
Name: EMBOSSEDLABEL8
Class: EMBOSSEDLABEL
Parent: FORM1
Base Class: LABEL
Description:
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:
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"
================================================================================
Thisform.combo5.enabled = .t.
================================================================================
Name: COMBO5
Class: COMBOBOX
Parent: FORM1
Base Class: COMBOBOX
Description:
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"
================================================================================
thisform.combo5.requery
================================================================================
Thisform.refresh
================================================================================
Thisform.Combo5.enabled =.F.
If empty(Thisform.HARPROVEEDOR.value)
Thisform.HARPROVEEDOR.setfocus
Endif
================================================================================
Name: EMBOSSEDFIELD3
Class: EMBOSSEDFIELD
Parent: FORM1
Base Class: TEXTBOX
Description:
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:
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:
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:
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:
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:
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:
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:
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"
================================================================================
Thisform.combo6.enabled = .t.
================================================================================
Name: COMBO6
Class: COMBOBOX
Parent: FORM1
Base Class: COMBOBOX
Description:
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"
================================================================================
thisform.combo1.requery
================================================================================
Thisform.Combo6.enabled =.F.
If Thisform.HARCENTROCOSTO.value =0
Thisform.HARCENTROCOSTO.setfocus
Endif
================================================================================
Thisform.refresh
================================================================================
Name: PICBTNS1
Class: PICBTNS
Parent: FORM1
Base Class: CONTAINER
Description:
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:
Left = 1
Top = 220
Width = 520
Height = 200
Name = "Dataenvironment"
================================================================================
Name: CURSOR1
Class: CURSOR
Parent: DATAENVIRONMENT
Base Class: CURSOR
Description:
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:
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:
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:
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:
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:
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:
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:
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:
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.
