>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" > >================================================================================ >>
>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" > >================================================================================ > >>