Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Recurring error
Message
From
07/12/2004 16:33:14
Edgar Salcedo
Bogotá, Colombia
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Title:
Recurring error
Environment versions
Visual FoxPro:
VFP 6 SP5
OS:
Windows 2000
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00967598
Message ID:
00967598
Views:
69
Hello, this is not the first time that i'm having this error. Today, the users told me that they can't find some records and is true all the records from today are missing and i don't know why.
Please help me i don't know what to do, so i use a form reporter and this is what i got:
SOURCE FILE: C:\SEDNUEVO\FRMLLAMADAS.SCX
================================================================================
Documented: 07 December 2004 @ 16:17

Name:		DATAENVIRONMENT
Class:		DATAENVIRONMENT
Parent:		
Base Class:	DATAENVIRONMENT
Description:	

***** PROPERTIES *****

Left = 163
Top = 203
Width = 520
Height = 200
Name = "Dataenvironment"

================================================================================

Name:		CURSOR1
Class:		CURSOR
Parent:		DATAENVIRONMENT
Base Class:	CURSOR
Description:	

***** PROPERTIES *****

Left = 220
Top = 29
Width = 90
Height = 90
Alias = "llamadas"
BufferModeOverride = 1
Database = helpdesk.dbc
CursorSource = "llamadas"
Name = "Cursor1"

================================================================================

Name:		FORM1
Class:		FORM
Parent:		
Base Class:	FORM
Description:	

***** USER DEFINED *****

Method: refrescar refresca todos y cada uno de los componentes del formulario de
Property: llamadas.
================================================================================

***** PROPERTIES *****

Height = 428
Width = 699
DoCreate = .T.
BufferMode = 2
AutoCenter = .T.
Caption = "Apertura de llamadas"
MaxButton = .F.
MinButton = .T.
Name = "Form1"

================================================================================

***** METHODS *****

*** REFRESCAR METHOD
with thisform
   .lockscreen=.f.
   .text1.refresh
   .cmbestado.refresh
   .pagellamadas.page2.cmbprioridad.refresh
   .text4.refresh
   .text3.refresh
   .text2.refresh
   .text6.refresh
   .combo2.refresh
   .pagellamadas.page1.txtlocalidad.refresh
   .pagellamadas.page1.txtcolegio.refresh
   .pagellamadas.page1.cmbcolegio.refresh
   .pagellamadas.page1.cmbdispositivo.refresh
   .pagellamadas.page1.combo1.refresh
   .pagellamadas.page1.txttelefono.refresh
   .pagellamadas.page1.text1.refresh
   .pagellamadas.page1.cmbmodelo.refresh
   .pagellamadas.page1.text3.refresh
   .pagellamadas.page1.text2.refresh
   .pagellamadas.page1.txtfechacita.refresh
   .pagellamadas.page2.edtproblema.refresh
   .pagellamadas.page2.text4.refresh
   .pagellamadas.page2.cmbresponsable.refresh
   .pagellamadas.page2.edtsolucion.refresh
   .pagellamadas.page2.combo1.refresh
   .pagellamadas.page2.combo2.requery
   .pagellamadas.page2.combo2.refresh
   .pagellamadas.page2.combo3.requery
   .pagellamadas.page2.combo3.refresh
   .pagellamadas.page3.txtfechaatencion.refresh
   .pagellamadas.page3.txtfechasolucion.refresh
   .pagellamadas.page3.text1.refresh
   .pagellamadas.page3.text2.refresh
   .pagellamadas.page3.edtespera.refresh
endwith
================================================================================

*** GOTFOCUS METHOD
Set hour to 24
set century on
set date dmy
thisform.refresh
================================================================================

*** LOAD METHOD
*set step on
public
m.sucursal,frmllamadas_sw,valida_sw,frmllamadas_sw,m.varoficina,m.periferico,m.m
arcas,m.servicio, m.swnumero
m.sucursal=0
m.servicio=0
frmllamadas_sw=0
valida_sw=0
m.varoficina=0
m.periferico="0"
m.marcas="0"
m.swnumero=0
set exclusive off
================================================================================

Name:		PAGELLAMADAS
Class:		PAGEFRAME
Parent:		FORM1
Base Class:	PAGEFRAME
Description:	

***** PROPERTIES *****

ErasePage = .T.
PageCount = 3
TabStretch = 1
Top = 104
Left = 19
Width = 660
Height = 295
TabIndex = 3
Name = "PageLlamadas"
Page1.FontBold = .T.
Page1.FontName = "Tahoma"
Page1.FontSize = 8
Page1.Caption = "\<Cliente"
Page1.BackColor = 138,168,255
Page1.Name = "Page1"
Page2.FontBold = .T.
Page2.FontName = "Tahoma"
Page2.FontSize = 8
Page2.Caption = "\<Problema"
Page2.BackColor = 138,168,255
Page2.Name = "Page2"
Page3.FontBold = .T.
Page3.FontName = "Tahoma"
Page3.FontSize = 8
Page3.Caption = "Tiempos"
Page3.Enabled = .T.
Page3.BackColor = 138,168,255
Page3.Name = "Page3"

================================================================================

Name:		CMDBUSCARUSUARIO
Class:		COMMANDBUTTON
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	COMMANDBUTTON
Description:	

***** PROPERTIES *****

Top = 25
Left = 18
Height = 30
Width = 123
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
Picture =
Caption = "   Buscar Usuario"
Enabled = .F.
MousePointer = 0
Style = 0
TabIndex = 14
SpecialEffect = 0
RightToLeft = .F.
Name = "CmdBuscarUsuario"

================================================================================

***** METHODS *****

*** CLICK METHOD
*do form frmbusquedausuario with thisform
=messagebox("Esta función se encuentra fuera de funcionamiento")
================================================================================

Name:		IMAGE1
Class:		IMAGE
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	IMAGE
Description:	

***** PROPERTIES *****

Picture = imagenes\find.bmp
BackStyle = 0
Height = 15
Left = 25
Top = 32
Width = 16
Name = "Image1"

================================================================================

Name:		LABEL2
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Usuario"
Height = 17
Left = 163
Top = 125
Width = 78
TabIndex = 15
Name = "Label2"

================================================================================

Name:		LABEL3
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Localidad"
Height = 17
Left = 163
Top = 55
Width = 78
TabIndex = 16
Name = "Label3"

================================================================================

Name:		TXTLOCALIDAD
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.sucursal"
Enabled = .F.
Format = ""
Height = 23
InputMask = "999"
Left = 244
TabIndex = 2
Top = 50
Width = 64
Name = "TxtLocalidad"

================================================================================

***** METHODS *****

*** INTERACTIVECHANGE METHOD
with thisform
  .pagellamadas.page1.cmbcolegio.requery
endwith
================================================================================

Name:		LABEL4
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "IED"
Height = 17
Left = 163
Top = 31
Width = 78
TabIndex = 18
Name = "Label4"

================================================================================

Name:		TXTCOLEGIO
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
Alignment = 0
ControlSource = "llamadas.oficina"
Enabled = .F.
Format = ""
Height = 23
InputMask = "999999999999"
Left = 244
TabIndex = 1
Top = 26
Width = 102
Name = "TxtColegio"

================================================================================

***** METHODS *****

*** VALID METHOD
THISFORM.REFRESH
================================================================================

*** LOSTFOCUS METHOD
local varoficina
With Thisform
*set step on
   mialias=alias()
   .pagellamadas.page1.cmbcolegio.enabled=.f.
   SELECT Oficina.direccion as ubicacion, Oficina.telefonos, Sucursal.codigo,
oficina.sede;
     FROM helpdesk!oficina, helpdesk!sucursal;
    WHERE Oficina.sucursal = SUCURSAL.CODIGO AND;
          Oficina.codigo = this.value;
   INTO CURSOR DATOS1
   .pagellamadas.page1.txtlocalidad.value= datos1.codigo
   .pagellamadas.page1.text2.value= datos1.ubicacion
   .pagellamadas.page1.text4.value= datos1.sede
   .pagellamadas.page1.txttelefono.value= datos1.telefonos
   m.varoficina=.pagellamadas.page1.cmbcolegio.value
   *.pagellamadas.page1.cmbusuario.rowsource="Select usuarios_cia.Nombre as
nombre, usuarios_cia.codigo as codusuario From usuarios_cia where
usuarios_cia.oficina="+str(m.varoficina)+" Into cursor exten01"
   .pagellamadas.page1.cmbusuario.enabled=.t.
   .pagellamadas.page1.cmbusuario.requery
   .pagellamadas.page1.cmbusuario.refresh
     SELECT Llamadas.numero, Oficina.nombre,;
	  COUNT(Oficina.nombre) as cantidad;
	 FROM helpdesk!llamadas, helpdesk!oficina;
	 WHERE Llamadas.oficina = oficina.codigo;
       AND oficina.codigo = .PAGELLAMADAS.PAGE1.TXTCOLEGIO.VALUE;
	   AND (SYS(11,Llamadas.fllamada) = SYS(11,DATE()) = .T.;
	   OR (SYS(11,Llamadas.fCITA) = SYS(11,DATE()) = .T.));	
	 GROUP BY Oficina.nombre;
	 ORDER BY Oficina.nombre;
	 INTO CURSOR parar
     *SELECT Llamadas.numero, Oficina.nombre,;
	 * COUNT(Oficina.nombre) as cantidad;
	 *FROM helpdesk!llamadas, helpdesk!oficina;
	 *WHERE Llamadas.oficina = oficina.codigo;
	 *  AND SYS(11,Llamadas.fllamada) = SYS(11,DATE()) = .T.;
	 *GROUP BY Oficina.nombre;
	 *ORDER BY Oficina.nombre;
	 *INTO CURSOR parar
	IF M.SWNUMERO=0 THEN
		 IF PARAR.CANTIDAD>=4 THEN
		   mensaje="Operador(a):"+chr(13)+chr(13)+"El Colegio al que se dispone
abrirle una llamada"
		   mensaje=mensaje+chr(13)+"ya ha alcanzado el máximo número permitido"
		   mensaje=mensaje+chr(13)+"de servicios diarios para ser atendidos."
		   mensaje=mensaje+chr(13)+chr(13)+"Por favor, comuniquese con su supervisor"
		   mensaje=mensaje+chr(13)+"para la autorización de la creación de"
		   mensaje=mensaje+chr(13)+"nuevos servicios para el colegio, en cuyo caso,"
		   mensaje=mensaje+chr(13)+"deberá presionar el botón de NUEVOS SERVICIOS."
		   =MESSAGEBOX(mensaje,16,"Advertencia!!")
		   .PAGELLAMADAS.PAGE1.cmdNuevoServicio.visible=.t.
		   .PAGELLAMADAS.PAGE1.image2.visible=.t.
		   .SetAll("enabled",.f.,"Textbox")
		   .SetAll("enabled",.f.,"Combobox")
		 ENDIF
	ENDIF
   select &mialias
EndWith
================================================================================

Name:		CMBCOLEGIO
Class:		COMBOBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	COMBOBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
BoundColumn = 2
RowSourceType = 4
RowSource = colegio.qpr
ControlSource = "llamadas.oficina"
Enabled = .F.
Height = 24
Left = 346
Style = 2
TabIndex = 13
Top = 25
Width = 299
DisabledBackColor = 202,202,202
BoundTo = .T.
ReadOnly = .F.
Name = "CmbColegio"

================================================================================

***** METHODS *****

*** VALID METHOD
thisform.refresh
================================================================================

Name:		LABEL6
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Teléfono"
Height = 17
Left = 163
Top = 103
Width = 78
TabIndex = 19
Name = "Label6"

================================================================================

Name:		TXTTELEFONO
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.telefono"
Enabled = .F.
Format = ""
Height = 23
InputMask = "9999999"
Left = 244
TabIndex = 4
Top = 98
Width = 64
Name = "TxtTelefono"

================================================================================

Name:		LABEL9
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Modelo"
Height = 17
Left = 163
Top = 200
Width = 78
TabIndex = 22
Name = "Label9"

================================================================================

Name:		LABEL10
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Equipo"
Height = 17
Left = 163
Top = 151
Width = 78
TabIndex = 24
Name = "Label10"

================================================================================

Name:		TXTFECHACITA
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

Comment = ""
FontBold = .T.
FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.fcita"
Enabled = .F.
Height = 23
Left = 244
ReadOnly = .F.
TabIndex = 10
Top = 218
Width = 127
Name = "TxtFechacita"

================================================================================

Name:		LABEL1
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Fecha Cita"
Height = 17
Left = 163
Top = 222
Width = 78
TabIndex = 23
Name = "Label1"

================================================================================

Name:		LABEL7
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Serie"
Height = 17
Left = 440
Top = 199
Width = 33
TabIndex = 20
Name = "Label7"

================================================================================

Name:		TEXT1
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.hardware"
Enabled = .F.
Format = ""
Height = 23
InputMask = ""
Left = 474
TabIndex = 9
Top = 194
Width = 143
Name = "Text1"

================================================================================

Name:		CMBMODELO
Class:		COMBOBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	COMBOBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
BoundColumn = 2
RowSourceType = 3
RowSource = "SELECT Modelos.descripcion, Modelos.codigo FROM MODELOS ORDER BY
DESCRIPCION INTO CURSOR MISMODELOS"
ControlSource = "llamadas.modelo"
Enabled = .F.
Height = 23
Left = 244
Style = 2
TabIndex = 8
Top = 194
Width = 185
DisabledBackColor = 202,202,202
BoundTo = .T.
Name = "cmbModelo"

================================================================================

***** METHODS *****

*** VALID METHOD
thisform.refresh
================================================================================

*** LOSTFOCUS METHOD
with thisform
  .pagellamadas.page1.cmbmodelo.enabled=.f.
endwith
================================================================================

Name:		CMBDISPOSITIVO
Class:		COMBOBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	COMBOBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
BoundColumn = 2
RowSourceType = 3
RowSource = 'Select descripcion,codigo From dispositivo Order by Descripcion
Into cursor "FOP"+Substr(sys(2015),3,10)'
ControlSource = "llamadas.dispositivo"
Enabled = .F.
Height = 23
Left = 244
Style = 2
TabIndex = 6
Top = 146
Width = 185
DisabledBackColor = 202,202,202
BoundTo = .T.
Name = "CmbDispositivo"

================================================================================

***** METHODS *****

*** LOSTFOCUS METHOD
With Thisform
   *set step on
   *.pagellamadas.page1.cmbdispositivo.enabled=.f.
   m.periferico=str(.pagellamadas.page1.cmbdispositivo.value)
   .pagellamadas.page1.combo1.enabled=.t.
   .pagellamadas.page1.combo1.requery
EndWith
================================================================================

*** VALID METHOD
thisform.refresh
================================================================================

Name:		TEXT2
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.direccion"
Enabled = .F.
Format = ""
Height = 23
InputMask = ""
Left = 244
TabIndex = 3
Top = 74
Width = 349
Name = "Text2"

================================================================================

Name:		LABEL11
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Dirección"
Height = 17
Left = 163
Top = 79
Width = 60
TabIndex = 17
Name = "Label11"

================================================================================

Name:		LABEL5
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Marca"
Height = 17
Left = 163
Top = 175
Width = 78
TabIndex = 21
Name = "Label5"

================================================================================

Name:		COMBO1
Class:		COMBOBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	COMBOBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
BoundColumn = 2
RowSourceType = 3
RowSource = "select descripcion, codigo from marcas order by descripcion into
cursor cursormarcar"
ControlSource = "llamadas.marca"
Enabled = .F.
Height = 23
Left = 244
Style = 2
TabIndex = 7
Top = 170
Width = 185
DisabledBackColor = 202,202,202
BoundTo = .T.
Name = "Combo1"

================================================================================

***** METHODS *****

*** LOSTFOCUS METHOD
with thisform
*set step on
  .pagellamadas.page1.cmbmodelo.enabled=.t.
  m.marcas=str(.pagellamadas.page1.combo1.value)
   .pagellamadas.page1.cmbmodelo.requery
  .pagellamadas.page1.cmbmodelo.refresh
endwith
================================================================================

*** VALID METHOD
thisform.refresh
================================================================================

Name:		CMBUSUARIO
Class:		COMBOBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	COMBOBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
BoundColumn = 2
RowSourceType = 3
RowSource = "Select usuarios_cia.Nombre as nombre, usuarios_cia.codigo as
codusuario From usuarios_cia where usuarios_cia.oficina=m.varoficina ORDER BY
usuarios_cia.nombre Into cursor exten01"
ControlSource = "llamadas.usuario"
Enabled = .F.
Height = 24
Left = 106
Style = 2
TabIndex = 11
Top = 243
Visible = .F.
Width = 350
DisabledBackColor = 202,202,202
BoundTo = .T.
ReadOnly = .F.
Name = "CmbUsuario"

================================================================================

***** METHODS *****

*** LOSTFOCUS METHOD
With Thisform
   .pagellamadas.page1.cmbcolegio.enabled=.f.
   .pagellamadas.page1.cmbusuario.refresh
   .pagellamadas.page1.cmbdispositivo.enabled=.t.
EndWith
================================================================================

*** VALID METHOD
thisform.refresh
================================================================================

Name:		CMDNUEVOSERVICIO
Class:		COMMANDBUTTON
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	COMMANDBUTTON
Description:	

***** PROPERTIES *****

Top = 58
Left = 18
Height = 30
Width = 123
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
Picture =
Caption = "    Nuevo Servicio"
Enabled = .T.
MousePointer = 0
Style = 0
TabIndex = 12
Visible = .F.
SpecialEffect = 0
RightToLeft = .F.
Name = "CmdNuevoServicio"

================================================================================

***** METHODS *****

*** CLICK METHOD
WITH THISFORM
  .SetAll("enabled",.t.,"Textbox")
  .SetAll("enabled",.t.,"Combobox")
  .PAGELLAMADAS.PAGE1.CMBCOLEGIO.ENABLED=.F.
  .PICBTNS1.CMDADD.ENABLED=.T.
  THIS.VISIBLE=.F.
  .PAGELLAMADAS.PAGE1.IMAGE2.VISIBLE=.F.
  M.SWNUMERO=1
ENDWITH
================================================================================

Name:		IMAGE2
Class:		IMAGE
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	IMAGE
Description:	

***** PROPERTIES *****

Picture = new.bmp
BackStyle = 1
Height = 13
Left = 28
Top = 67
Visible = .F.
Width = 11
Name = "Image2"

================================================================================

Name:		TEXT3
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.nombreusuario"
Enabled = .F.
Format = "!"
Height = 23
InputMask = ""
Left = 244
TabIndex = 5
Top = 122
Width = 349
Name = "Text3"

================================================================================

Name:		LABEL8
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "SEDE"
Height = 17
Left = 322
Top = 55
Width = 40
TabIndex = 16
Name = "Label8"

================================================================================

Name:		TEXT4
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.sede"
Enabled = .F.
Format = ""
Height = 23
InputMask = ""
Left = 359
TabIndex = 2
Top = 50
Width = 64
Name = "Text4"

================================================================================

***** METHODS *****

*** INTERACTIVECHANGE METHOD
with thisform
  .pagellamadas.page1.cmbcolegio.requery
endwith
================================================================================

Name:		LABEL1
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Detalle del Problema"
Height = 17
Left = 22
Top = 113
Width = 123
TabIndex = 9
Name = "Label1"

================================================================================

Name:		LABEL2
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Solución"
Height = 17
Left = 20
Top = 191
Width = 123
TabIndex = 10
Name = "Label2"

================================================================================

Name:		LABEL3
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Responsable"
Height = 17
Left = 22
Top = 85
Width = 123
TabIndex = 11
Name = "Label3"

================================================================================

Name:		TEXT4
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.ingeniero"
Format = ""
Height = 23
InputMask = "99"
Left = 100
TabIndex = 4
Top = 84
Visible = .T.
Width = 38
Name = "Text4"

================================================================================

***** METHODS *****

*** GOTFOCUS METHOD
with thisform
  .pagellamadas.page2.cmbresponsable.enabled=.t.
endwith
================================================================================

Name:		CMBRESPONSABLE
Class:		COMBOBOX
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	COMBOBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
BoundColumn = 2
RowSourceType = 3
RowSource = "Select Nombre, Codigo From ingeniero order by nombre Into cursor
Exten07"
ControlSource = "llamadas.ingeniero"
Enabled = .F.
Height = 24
Left = 138
Style = 2
TabIndex = 5
Top = 83
Width = 213
DisabledBackColor = 202,202,202
BoundTo = .T.
Name = "CmbResponsable"

================================================================================

***** METHODS *****

*** VALID METHOD
with thisform
  if not empty(.pagellamadas.page2.cmbresponsable.value) or not
empty(.pagellamadas.page2.text4.value) then
     .cmbestado.displayvalue="ASIGNADO"
  endif
  .refresh
endwith
================================================================================

*** LOSTFOCUS METHOD
Thisform.pagellamadas.page2.cmbresponsable.enabled= .F.
If Empty(Thisform.text4.value)
   Thisform.text4.setfocus
   Else
   *Repla llamadas.grupo with exten07.grupo
   *SET STEP ON
   if empty(llamadas.fasignacion)
      *REPLACE LLAMADAS.FASIGNACION WITH DATETIME()
   endif
Endif
Thisform.refresh()
================================================================================

Name:		EDTPROBLEMA
Class:		EDITBOX
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	EDITBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
Enabled = .F.
Format = "!"
Height = 58
Left = 21
TabIndex = 7
Top = 127
Width = 612
ControlSource = "llamadas.detalle"
Name = "EdtProblema"

================================================================================

Name:		EDTSOLUCION
Class:		EDITBOX
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	EDITBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
Enabled = .F.
Height = 58
Left = 21
TabIndex = 8
Top = 205
Width = 612
ControlSource = "llamadas.solucion"
Name = "EdtSolucion"

================================================================================

Name:		LABEL4
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Prioridad"
Height = 17
Left = 363
Top = 88
Width = 60
TabIndex = 12
Name = "Label4"

================================================================================

Name:		CMBPRIORIDAD
Class:		COMBOBOX
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	COMBOBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
RowSourceType = 1
RowSource = "ALTA,NORMAL"
ControlSource = "llamadas.prioridad"
Enabled = .F.
Height = 24
Left = 430
Style = 2
TabIndex = 6
Top = 83
Width = 82
Name = "CmbPrioridad"

================================================================================

***** METHODS *****

*** INTERACTIVECHANGE METHOD
with thisform
  if .pagellamadas.page2.cmbprioridad.displayvalue="ALTA" then
     desplega="Criterio para seleccionar la prioridad:"+chr(13)+chr(13)
     desplega=desplega+"REDP"+chr(13)
     desplega=desplega+"Subestación de comunicaciones, servidores,"+chr(13)
     desplega=desplega+"enrutadores y cadeles."+chr(13)+chr(13)
     desplega=desplega+"Nivel Central"+chr(13)
     desplega=desplega+"Secretario de educación, subsecretarios,"+chr(13)
     desplega=desplega+"Asesores de secretarios y usuarios de
ventanillas."+chr(13)
     wait windows desplega nowait
  endif
endwith
================================================================================

Name:		COMBO1
Class:		COMBOBOX
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	COMBOBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
BoundColumn = 2
RowSourceType = 3
RowSource = "Select descripcion,codigo from sub_unidades into cursor
MISServicios"
ControlSource = "llamadas.servicio"
Enabled = .F.
Height = 23
Left = 102
Style = 2
TabIndex = 1
Top = 8
Width = 276
BoundTo = .T.
Name = "Combo1"

================================================================================

***** METHODS *****

*** LOSTFOCUS METHOD
*set step on
WITH THISFORM
   M.SERVICIO=misservicios.codigo
   .PAGELLAMADAS.PAGE2.COMBO2.REQUERY
   .PAGELLAMADAS.PAGE2.COMBO2.REFRESH
ENDWITH
================================================================================

*** VALID METHOD
*thisform.combo1.requery
*thisform.combo1.refresh
*CLOSthisform.refresh
================================================================================

Name:		LABEL7
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Categorias"
Height = 17
Left = 24
Top = 11
Width = 66
TabIndex = 13
Name = "Label7"

================================================================================

Name:		LABEL5
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Productos"
Height = 17
Left = 24
Top = 34
Width = 66
TabIndex = 14
Name = "Label5"

================================================================================

Name:		LABEL6
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Actividades"
Height = 17
Left = 24
Top = 58
Width = 66
TabIndex = 15
Name = "Label6"

================================================================================

Name:		COMBO2
Class:		COMBOBOX
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	COMBOBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
BoundColumn = 2
RowSourceType = 4
RowSource = qprproductos.qpr
ControlSource = "llamadas.producto"
Enabled = .F.
Height = 24
Left = 102
Style = 2
TabIndex = 2
Top = 31
Width = 276
BoundTo = .T.
Name = "Combo2"

================================================================================

***** METHODS *****

*** LOSTFOCUS METHOD
WITH THISFORM
   M.SERVICIO=misservicios.codigo
   .PAGELLAMADAS.PAGE2.COMBO3.REQUERY
   .PAGELLAMADAS.PAGE2.COMBO3.REFRESH
ENDWITH
================================================================================

Name:		COMBO3
Class:		COMBOBOX
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	COMBOBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
BoundColumn = 2
RowSourceType = 3
RowSource = "Select actividad,codactividad,codproducto from actividad where
codproducto=llamadas.servicio into cursor misactividades"
ControlSource = "llamadas.actividad"
Enabled = .F.
Height = 24
Left = 102
Style = 2
TabIndex = 3
Top = 56
Width = 276
BoundTo = .T.
Name = "Combo3"

================================================================================

Name:		CHKVANDALISMO
Class:		CHECKBOX
Parent:		FORM1.PAGELLAMADAS.PAGE2
Base Class:	CHECKBOX
Description:	

***** PROPERTIES *****

Comment = "Determina si el dispositivo relacionado ha sido victima de
vandalismo."
Top = 29
Left = 397
Height = 27
Width = 252
FontBold = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "El equipo ha sido víctima de vandalismo?"
ControlSource = "llamadas.vandalismo"
Name = "chkVandalismo"

================================================================================

Name:		SHAPE2
Class:		SHAPE
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	SHAPE
Description:	

***** PROPERTIES *****

Top = 21
Left = 324
Height = 180
Width = 311
Name = "Shape2"

================================================================================

Name:		SHAPE1
Class:		SHAPE
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	SHAPE
Description:	

***** PROPERTIES *****

Top = 21
Left = 18
Height = 180
Width = 299
Name = "Shape1"

================================================================================

Name:		LABEL1
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Fecha Atención"
Height = 17
Left = 41
Top = 88
Width = 123
TabIndex = 3
Name = "Label1"

================================================================================

Name:		LABEL3
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "Fecha Solución Sist."
Height = 17
Left = 41
Top = 113
Width = 123
TabIndex = 5
Name = "Label3"

================================================================================

Name:		TXTFECHAATENCION
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

Comment = ""
FontBold = .T.
FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.fatencion"
Enabled = .F.
Height = 23
Left = 160
ReadOnly = .T.
TabIndex = 6
Top = 82
Width = 127
Name = "TxtFechaAtencion"

================================================================================

Name:		TXTFECHASOLUCION
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.fcierre"
Enabled = .F.
Height = 23
Left = 160
ReadOnly = .T.
TabIndex = 7
Top = 109
Width = 127
Name = "TxtFechaSolucion"

================================================================================

Name:		COMMAND1
Class:		COMMANDBUTTON
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	COMMANDBUTTON
Description:	

***** PROPERTIES *****

Top = 169
Left = 135
Height = 23
Width = 23
Picture = ..\imagenes\clock.bmp
Caption = ""
TabIndex = 1
Name = "Command1"

================================================================================

***** METHODS *****

*** CLICK METHOD
****MICODIGO
*set step on
With Thisform
 numerollamada=.text1.value
  nDialogType = 4 + 32 + 256
  *  4 = Yes and No buttons
  *  32 = Question mark icon
  *  256 = Second button is default
  nAnswer = MESSAGEBOX("Desea asignar la fecha de atención/solución para esta
llamada?", nDialogType, "Asignación fecha atención/solución")
  DO CASE
    CASE nAnswer = 6
    *set step on
     IF EMPTY(.pagellamadas.page3.txtfechaatencion.VALUE) THEN
       UPDATE LLAMADAS SET FATENCION=DATETIME() WHERE NUMERO=.TEXT1.VALUE
      ELSE
       if not empty(.pagellamadas.page3.text1.value) and
empty(.pagellamadas.page3.text2.value) then
        nDialogType = 0 + 16
        nAnswer = MESSAGEBOX("No se puede asginar al fecha ni el tiempo de
solución, hasta no haber colocado el fin de la espera del sistema", nDialogType,
"Advertencia!!")
        else
        if empty(.pagellamadas.page3.txtfechasolucion.value) then
         replace llamadas.fcierre with datetime() &&diadehoy
         replace llamadas.estado with "CERRADA"
        endif
       endif
     ENDIF
     CASE nAnswer = 7
       WAIT WINDOW 'Optó por no modificar fechas' nowait
  ENDCASE
.refrescar()
EndWith
************
************
================================================================================

Name:		LABEL5
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "F. inicio espera sistema"
Height = 17
Left = 348
Top = 54
Width = 136
TabIndex = 8
Name = "Label5"

================================================================================

Name:		TEXT1
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

Comment = ""
FontBold = .T.
FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.finiespera"
Enabled = .F.
Height = 23
Left = 488
ReadOnly = .T.
TabIndex = 9
Top = 50
Width = 127
Name = "Text1"

================================================================================

Name:		LABEL6
Class:		LABEL
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
BackStyle = 0
Caption = "F. final espera sistema"
Height = 17
Left = 348
Top = 82
Width = 136
TabIndex = 10
Name = "Label6"

================================================================================

Name:		COMMAND2
Class:		COMMANDBUTTON
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	COMMANDBUTTON
Description:	

***** PROPERTIES *****

Top = 169
Left = 461
Height = 23
Width = 23
Picture = ..\imagenes\watch.bmp
Caption = ""
TabIndex = 2
Name = "Command2"

================================================================================

***** METHODS *****

*** CLICK METHOD
****MICODIGO
*set step on
With Thisform
 this.enabled=.f.
 .pagellamadas.page3.command1.enabled=.f.
 .pagellamadas.page3.cmdguardar.visible=.t.
 .pagellamadas.page3.cmdguardar.enabled=.t.
 .pagellamadas.page3.cmdundo.enabled=.t.
 .pagellamadas.page3.cmdundo.visible=.t.
 .pagellamadas.page3.edtespera.readonly=.f.
 .pagellamadas.page3.edtespera.enabled=.t.
 *.pagellamadas.page3.edtespera.disabledbackcolor="255,255,255"
 numerollamada=.text1.value
  *nDialogType = 4 + 32 + 256
  *  4 = Yes and No buttons
  *  32 = Question mark icon
  *  256 = Second button is default
  *nAnswer = MESSAGEBOX("Desea iniciar el inicio/fin del tiempo espera del
sistema para esta llamada?", nDialogType, "Tiempos espera del sistema")
  *DO CASE
  *  CASE nAnswer = 6
      *SE PARTE DE LA PREMISA QUE PARA ASIGNAR EL TIEMPO INICIO ESPERA SISTEMA
      *SE DEBÍO HABER ASIGNADO LA FECHA DE ATENCION DE LA LLAMADA
    if not empty(.pagellamadas.page3.txtfechaatencion.value) and not
empty(.pagellamadas.page3.TxtFechaSolucion.value) then
       =messagebox("Imposible hacer inicio o fin de tiempos de espera en
sistema",16,"Advertencia!!")
       .pagellamadas.page3.command2.enabled=.t.
	    .pagellamadas.page3.command1.enabled=.t.
		.pagellamadas.page3.cmdguardar.visible=.f.
		.pagellamadas.page3.cmdguardar.enabled=.f.
		.pagellamadas.page3.cmdundo.enabled=.f.
		.pagellamadas.page3.cmdundo.visible=.f.
		.pagellamadas.page3.edtespera.readonly=.t.
		.pagellamadas.page3.edtespera.enabled=.f.
     else
      if empty(.pagellamadas.page3.txtfechaatencion.value) then
         nDialogType = 0 + 16
         =messagebox("No se puede asignar la fecha de inicio de espera en el
sistema,"+chr(13)+"por que no se dispone de la fecha de atención de la
llamada",nDialogType,"Advertencia!!")
        .pagellamadas.page3.command2.enabled=.t.
	    .pagellamadas.page3.command1.enabled=.t.
		.pagellamadas.page3.cmdguardar.visible=.f.
		.pagellamadas.page3.cmdguardar.enabled=.f.
		.pagellamadas.page3.cmdundo.enabled=.f.
		.pagellamadas.page3.cmdundo.visible=.f.
		.pagellamadas.page3.edtespera.readonly=.t.
		.pagellamadas.page3.edtespera.enabled=.f.
      endif
  *  CASE nAnswer = 7
  *     WAIT WINDOW 'Optó por no modificar fechas' nowait
  *ENDCASE
 endif
.refresh
EndWith
************
************
================================================================================

Name:		CMDGUARDAR
Class:		COMMANDBUTTON
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	COMMANDBUTTON
Description:	

***** PROPERTIES *****

Top = 169
Left = 487
Height = 23
Width = 23
Picture = save.bmp
Caption = ""
Enabled = .F.
TabIndex = 11
Visible = .F.
Name = "CmdGuardar"

================================================================================

***** METHODS *****

*** CLICK METHOD
With thisform
  *Verifica cuales estan vacíos
  *set step on
  numerollamada=.text1.value
  if empty(.pagellamadas.page3.text1.value) then
    if not empty(.pagellamadas.page3.edtespera.value) then
       replace llamadas.finiespera with datetime();
       		   llamadas.detalleespera with .pagellamadas.page3.edtespera.value
      else
       nDialogType = 0 + 16
       =messagebox("Debe especificar la razón por la que se coloca esta llamada
en espera",nDialogType,"Advertencia!!")
    endif
   else
	  If empty(.pagellamadas.page3.text2.value) then
	     replace llamadas.ffinespera with datetime();
	             llamadas.detalleespera with .pagellamadas.page3.edtespera.value
	  endif
  endif
  .pagellamadas.page3.command2.enabled=.t.
  .pagellamadas.page3.command1.enabled=.t.
  .pagellamadas.page3.cmdguardar.visible=.f.
  .pagellamadas.page3.cmdguardar.enabled=.f.
  .pagellamadas.page3.cmdundo.enabled=.f.
  .pagellamadas.page3.cmdundo.visible=.f.
  .pagellamadas.page3.edtespera.readonly=.t.
  .pagellamadas.page3.edtespera.enabled=.f.
  .refresh
EndWith
================================================================================

Name:		TEXT2
Class:		TEXTBOX
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

Comment = ""
FontBold = .T.
FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.ffinespera"
Enabled = .F.
Height = 23
Left = 488
ReadOnly = .T.
TabIndex = 12
Top = 77
Width = 127
Name = "Text2"

================================================================================

Name:		CMDUNDO
Class:		COMMANDBUTTON
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	COMMANDBUTTON
Description:	

***** PROPERTIES *****

Top = 169
Left = 512
Height = 23
Width = 23
Picture = wzundo.bmp
Caption = ""
Enabled = .F.
TabIndex = 13
Visible = .F.
Name = "CmdUndo"

================================================================================

***** METHODS *****

*** CLICK METHOD
With Thisform 	
    .pagellamadas.page3.command2.enabled=.t.
    .pagellamadas.page3.command1.enabled=.t.
	.pagellamadas.page3.cmdguardar.visible=.f.
	.pagellamadas.page3.cmdguardar.enabled=.f.
	.pagellamadas.page3.cmdundo.enabled=.f.
	.pagellamadas.page3.cmdundo.visible=.f.
	.pagellamadas.page3.edtespera.readonly=.t.
	.pagellamadas.page3.edtespera.enabled=.f.
EndWith
*tablerevert(.t.)
*THISFORM.SetAll("Value","","Textbox")
*THISFORM.SetAll("Value","","Combobox")
*THISFORM.SetAll("Value","","Editbox")
================================================================================

Name:		EDTESPERA
Class:		EDITBOX
Parent:		FORM1.PAGELLAMADAS.PAGE3
Base Class:	EDITBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
BackStyle = 1
Enabled = .F.
Format = "!"
Height = 54
Left = 357
TabIndex = 4
Top = 112
Width = 250
DisabledBackColor = 255,255,255
ControlSource = "llamadas.detalleespera"
Name = "EdtEspera"

================================================================================

Name:		SHAPE1
Class:		SHAPE
Parent:		FORM1
Base Class:	SHAPE
Description:	

***** PROPERTIES *****

Top = 10
Left = 6
Height = 88
Width = 690
BorderStyle = 1
Curvature = 15
FillStyle = 1
SpecialEffect = 0
BackColor = 192,192,192
FillColor = 0,0,0
BorderColor = 207,228,245
Name = "Shape1"

================================================================================

Name:		LABEL1
Class:		LABEL
Parent:		FORM1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Tiquete No."
Height = 17
Left = 61
Top = 18
Width = 72
TabIndex = 7
Name = "Label1"

================================================================================

Name:		LABEL3
Class:		LABEL
Parent:		FORM1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Fecha Llamada"
Height = 17
Left = 402
Top = 21
Width = 84
TabIndex = 8
Name = "Label3"

================================================================================

Name:		LABEL2
Class:		LABEL
Parent:		FORM1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Estado"
Height = 17
Left = 61
Top = 71
Width = 48
TabIndex = 10
Name = "Label2"

================================================================================

Name:		LABEL5
Class:		LABEL
Parent:		FORM1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Creado por"
Height = 17
Left = 402
Top = 48
Width = 84
TabIndex = 12
Name = "Label5"

================================================================================

Name:		LABEL6
Class:		LABEL
Parent:		FORM1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Fecha Modificación"
Height = 17
Left = 402
Top = 72
Width = 108
TabIndex = 13
Name = "Label6"

================================================================================

Name:		TEXT1
Class:		TEXTBOX
Parent:		FORM1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.numero"
Enabled = .F.
Height = 23
Left = 128
ReadOnly = .T.
TabIndex = 14
Top = 15
Width = 100
Name = "Text1"

================================================================================

Name:		CMBESTADO
Class:		COMBOBOX
Parent:		FORM1
Base Class:	COMBOBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
RowSourceType = 1
RowSource = "ASIGNADO,PENDIENTE APRB. REPUESTO,PENDIENTE INST. REP
CW,CERRADA,ANULADA,GARANTIAS,ESCALADO COMUNICACIONES,TRABAJO EN PROGRESO,VISITA
FALLIDA"
ControlSource = "llamadas.estado"
Enabled = .F.
Height = 24
Left = 128
Style = 2
TabIndex = 5
Top = 65
Width = 149
Name = "CmbEstado"

================================================================================

Name:		TEXT2
Class:		TEXTBOX
Parent:		FORM1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.bacceso"
Enabled = .F.
Height = 23
Left = 515
ReadOnly = .T.
TabIndex = 15
Top = 67
Width = 116
Name = "Text2"

================================================================================

Name:		TEXT3
Class:		TEXTBOX
Parent:		FORM1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.creadopor"
Enabled = .F.
Height = 23
Left = 515
ReadOnly = .T.
TabIndex = 16
Top = 42
Width = 152
Name = "Text3"

================================================================================

Name:		TEXT4
Class:		TEXTBOX
Parent:		FORM1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.fllamada"
Enabled = .F.
Height = 23
Left = 515
ReadOnly = .T.
TabIndex = 17
Top = 18
Width = 116
Name = "Text4"

================================================================================

Name:		CMDNUEVO
Class:		COMMANDBUTTON
Parent:		FORM1
Base Class:	COMMANDBUTTON
Description:	

***** PROPERTIES *****

Top = 226
Left = 687
Height = 23
Width = 23
Picture = new.bmp
Caption = ""
TabIndex = 18
Visible = .F.
Name = "CmdNuevo"

================================================================================

***** METHODS *****

*** CLICK METHOD
*set step on
With Thisform
  *Habilita los campos del formulario
  .CmdGuardar.enabled=.t.
  .CmdUndo.enabled=.t.
  .Combo1.enabled=.t.
  .Combo2.enabled=.t.
  .Combo3.enabled=.t.
  .CmdNuevo.enabled=.f.
  .PageLlamadas.Page1.cmbUsuario.enabled=.t.
  *.PageLlamadas.Page1.TxtUsuario.enabled=.t.
  .PageLlamadas.Page1.TxtLocalidad.enabled=.t.
  .PageLlamadas.Page1.TxtColegio.enabled=.t.
  *.PageLlamadas.Page1.TxtPiso.enabled=.t.
  .PageLlamadas.Page1.TxtTelefono.enabled=.t.
  *.PageLlamadas.Page1.TxtHost.enabled=.t.
  *.PageLlamadas.Page2.CmdGenerarNueva.enabled=.t.
EndWith
THISFORM.SetAll("Value","","Textbox")
THISFORM.SetAll("Value","","Combobox")
THISFORM.SetAll("Value","","Editbox")
================================================================================

Name:		COMMAND1
Class:		COMMANDBUTTON
Parent:		FORM1
Base Class:	COMMANDBUTTON
Description:	

***** PROPERTIES *****

Top = 298
Left = 687
Height = 23
Width = 23
Picture = close.bmp
Caption = ""
Enabled = .T.
TabIndex = 19
Visible = .F.
Name = "Command1"

================================================================================

***** METHODS *****

*** CLICK METHOD
Thisform.release
================================================================================

Name:		PICBTNS1
Class:		PICBTNS
Parent:		FORM1
Base Class:	CONTAINER
Description:	

***** PROPERTIES *****

Top = 403
Left = 88
TabIndex = 4
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.Enabled = .F.
cmdDelete.Name = "cmdDelete"
cmdEdit.Name = "cmdEdit"

================================================================================

***** METHODS *****

*** UPDATEROWS METHOD
Ik=Select()
*Sele llamadas
*If Thisform.numero1.value= 0
*   Thisform.numero1.value = reccount() + 1
*Endif
*set step on
misw=0
*If Empty(thisform.text4.value)
*   thisform.FLLAMADA1.value = Datetime()
*Endif
*If used("oficina") then
*   Sele oficina
*  else
*   Use oficina
*Endif
*If used("Clientes") then
*   Sele Clientes
*  else
*   Use clientes
*Endif
Select("llamadas")
set deleted off
if empty(thisform.text1.value)
 select max(numero) as cantidad from llamadas into cursor millam
 numllam=millam.cantidad+1
 *NUMLLAM=RECCOUNT()+1
 misw=1
endif
   if not empty(llamadas.fcita) then
	  if llamadas.fcita < llamadas.fllamada then
	     mistring="La fecha de la cita no puede ser menor que la fecha de apertura
de la llamada"+chr(13)+"Se revertiran los cambios e intentelo nuevamente"
	     =messagebox(mistring,16,"Advertencia!!")
	     replace llamadas.fcita with ctod("  /  /       :  :  ")
	  endif
   endif
Repla llamadas.bacceso with Datetime(), ;
      llamadas.busuar with  m.vusuar
 if empty(Llamadas.creadopor) then
   replace llamadas.creadopor with m.vusuario
 endif
 if empty(Llamadas.fllamada) then
   replace llamadas.fllamada with datetime()
 endif
if misw=1
  replace llamadas.numero with numllam
endif
*if empty(llamadas.frepuesto) and llamadas.servicio=163 then
*  replace llamadas.frepuesto with date()
*endif
set hours to 24
 If hour(llamadas.fllamada)<16 then
     replace llamadas.fatencionsugerida with llamadas.fllamada+3600
   else
     replace llamadas.fatencionsugerida with llamadas.fllamada+61200
 endif
*wait windows "el valor del tipo de servicio "+str(thisform.subunidad1.value)
set deleted on
 set step on
 	  INSERT INTO BACKUPLLAMADAS(NUMERO,TELEFONO,DIRECCION, SUCURSAL, OFICINA,
FLLAMADA,;
 	                             MARCA, MODELO, DISPOSITIVO, HARDWARE, INGENIERO,
DETALLE,;
 	                             BACCESO, BUSUAR, SERVICIO, ORIGEN, ESTADO,
PRIORIDAD,;
 	                             CREADOPOR,FCITA, PRODUCTO,ACTIVIDAD,
NOMBREUSUARIO,SEDE,;
 	                             VANDALISMO) ;
VALUES(.TEXT1.VALUE,.PAGELLAMADAS.PAGE1.TXTTELEFONO.VALUE,;
.PAGELLAMADAS.PAGE1.TEXT2.VALUE,.PAGELLAMADAS.PAGE1.TXTLOCALIDAD.VALUE,;
.PAGELLAMADAS.PAGE1.TXTCOLEGIO.VALUE,.TEXT4.VALUE,;
.PAGELLAMADAS.PAGE1.COMBO1.VALUE,.PAGELLAMADAS.PAGE1.CMBMODELO.VALUE,;
.PAGELLAMADAS.PAGE1.CMBDISPOSITIVO.VALUE,.PAGELLAMADAS.PAGE1.TEXT1.VALUE,;
.PAGELLAMADAS.PAGE2.TEXT4.VALUE,.PAGELLAMADAS.PAGE2.EDTPROBLEMA.VALUE,;
DATETIME(),M.VUSUAR,.PAGELLAMADAS.PAGE2.COMBO1.VALUE,.TEXT6.VALUE,;
.CMBESTADO.VALUE,.PAGELLAMADAS.PAGE2.CMBPRIORIDAD.VALUE,.TEXT3.VALUE,;
.PAGELLAMADAS.PAGE1.TXTFECHACITA.VALUE,.PAGELLAMADAS.PAGE2.COMBO2.VALUE,;
.PAGELLAMADAS.PAGE2.COMBO3.VALUE,.PAGELLAMADAS.PAGE1.TEXT3.VALUE,;
.PAGELLAMADAS.PAGE2.TEXT4.VALUE,.PAGELLAMADAS.PAGE2.CHKVANDALISMO.VALUE)
================================================================================

*** CMDPREV.CLICK METHOD
dodefault()
thisform.refrescar()
================================================================================

*** CMDNEXT.CLICK METHOD
dodefault()
thisform.refrescar()
================================================================================

*** CMDTOP.CLICK METHOD
dodefault()
thisform.refrescar()
================================================================================

*** CMDEND.CLICK METHOD
dodefault()
thisform.refrescar()
================================================================================

*** CMDFIND.CLICK METHOD
dodefault()
thisform.refrescar()
================================================================================

*** CMDPRINT.CLICK METHOD
public m.numllam
calias=alias()
m.numllam=thisform.text1.value
do rpt_llamadas.qpr
numllam=0
select &calias
================================================================================

*** CMDADD.CLICK METHOD
*set step on
thisform.text6.setfocus
If frmllamadas_sw=0 then
  dodefault()
 else
 with thisform
  .text6.setfocus
  If frmllamadas_sw=1 then
   *VALIDA QUE TODOS LOS CAMPOS ESTEN LLENOS
    mistring="Por favor, Ingrese los siguientes datos:"+chr(13)+chr(13)
    If empty(.pagellamadas.page1.cmbmodelo.displayvalue)
       mistring=mistring+"Ingrese el modelo del equipo"+chr(13)
       valida_sw1=1
      else
       valida_sw1=0
    endif
    If empty(.pagellamadas.page1.combo1.value)
       mistring=mistring+"Ingrese la marca del equipo"+chr(13)
       valida_sw2=1
      else
       valida_sw2=0
    endif
    If empty(.pagellamadas.page1.cmbdispositivo.displayvalue)
       mistring=mistring+"Ingrese el tipo de equipo"+chr(13)
       valida_sw3=1
      else
       valida_sw3=0
    endif
    If empty(.pagellamadas.page1.text3.value)
       mistring=mistring+"Ingrese nombres y apellidos del usuario"+chr(13)
       valida_sw4=1
      else
       valida_sw4=0
    endif
    *If empty(.pagellamadas.page1.Cmbusuario.displayvalue)
    *   mistring=mistring+"Ingrese el codigo del usuario"+chr(13)
    *   valida_sw4=1
    *  else
    *   valida_sw4=0
    *endif
    if empty(.pagellamadas.page1.txtlocalidad.value) or
.pagellamadas.page1.txtlocalidad.value=0
       mistring=mistring+"Ingrese el codigo de la localidad/Edificio"+chr(13)
       valida_sw5=1
      else
       valida_sw5=0
    endif
    if empty(.pagellamadas.page1.text2.value)
       mistring=mistring+"Ingrese la dirección del colegio"+chr(13)
       valida_sw6=1
      else
       valida_sw6=0
    endif
    if empty(.pagellamadas.page1.txtcolegio.value) or
.pagellamadas.page1.txtcolegio.value=0
       mistring=mistring+"Ingrese el codigo del Colegio/Dependencia"+chr(13)
       valida_sw7=1
      else
       valida_sw7=0
    endif
    if empty(.pagellamadas.page1.txttelefono.value)
       mistring=mistring+"Ingrese el teléfono del colegio"+chr(13)
       valida_sw8=1
      else
       valida_sw8=0
    Endif
    if not empty(.pagellamadas.page1.txtfechacita.value) then
     if .pagellamadas.page1.txtfechacita.value<.text4.value then
       mistring=mistring+"La fecha de la cita no puede ser menor que la fecha de
apertura de la llamada"+chr(13)
       valida_sw9=1
      else
       valida_sw9=0
     endif
     else
       valida_sw9=0
    Endif
    If empty(.combo2.value) and empty(.text6.value)
       mistring=mistring+"Ingrese el origen de la llamada"+chr(13)
       valida_sw10=1
      else
       valida_sw10=0
    endif
    if empty(.pagellamadas.page1.text1.value)
       mistring=mistring+"Ingrese el Serial del Equipo"+chr(13)
       valida_sw11=1
      else
       valida_sw11=0
    Endif
    if valida_sw1=0 and valida_sw2=0 and valida_sw3=0 and valida_sw4=0 and
valida_sw5=0 and valida_sw6=0 and valida_sw7=0 and valida_sw8=0 and valida_sw9=0
and valida_sw10=0 and valida_sw11=0 then
   	   dodefault()
   	   frmllamadas_sw=0
   	   valida_sw1=""
   	   valida_sw2=""
   	   valida_sw3=""
   	   valida_sw4=""
   	   valida_sw5=""
   	   valida_sw6=""
   	   valida_sw7=""
   	   valida_sw8=""
   	   valida_sw9=""
   	   valida_sw10=""
     else
       =messagebox(mistring,16,"Advertencia!!")
    endif
  endif
  endwith
EndIf
*SET STEP ON
if this.parent.editmode
********* WITH OUTLOOK AUTOMATION: *********
	With Thisform
	  .CmbEstado.enabled=.t.
	  .pagellamadas.page1.cmbdispositivo.enabled=.t.
	  .pagellamadas.page1.combo1.enabled=.t.
	  .pagellamadas.page1.cmbmodelo.enabled=.t.
	  .pagellamadas.page2.CmbPrioridad.Enabled=.t.
	  *.pagellamadas.page2.CmdPlus.Enabled=.t.
	  .PageLlamadas.Page2.EdtProblema.enabled=.t.
	  .PageLlamadas.Page2.CmbResponsable.enabled=.t.
	  .Pagellamadas.Page2.combo1.enabled=.t.
	  .Pagellamadas.Page2.combo2.enabled=.t.
	  .Pagellamadas.Page2.combo3.enabled=.t.
	  .pagellamadas.page3.command1.enabled=.f.
	  .pagellamadas.page3.command2.enabled=.f.
	  *.PageLlamadas.Page1.CmdBuscarUsuario.enabled=.t.
	  *.PageLlamadas.Page2.CmdGenerarNueva.enabled=.f.
	  *.PageLlamadas.Page1.txtModelo.enabled=.t.
	EndWith
	frmllamadas_sw=1
 else
  With Thisform
   *******
	  .CmbEstado.enabled=.f.
	  .PageLlamadas.Page1.cmbusuario.enabled=.f.
	  .PageLlamadas.Page1.cmbdispositivo.enabled=.f.
	  .PageLlamadas.Page1.combo1.enabled=.f.
	  .pagellamadas.page2.CmbPrioridad.Enabled=.f.
	  *.pagellamadas.page2.CmdPlus.Enabled=.f.
	  .PageLlamadas.Page2.EdtProblema.enabled=.f.
	  .PageLlamadas.Page2.CmbResponsable.enabled=.f.
	  .Pagellamadas.Page2.combo1.enabled=.f.
	  .Pagellamadas.Page2.combo2.enabled=.f.
	  .Pagellamadas.Page2.combo3.enabled=.f.
	  .pagellamadas.page3.command1.enabled=.t.
	  .pagellamadas.page3.command2.enabled=.t.
	  .PageLlamadas.Page1.CmdBuscarUsuario.enabled=.f.
	  *.PageLlamadas.Page2.CmdGenerarNueva.enabled=.t.
	  *.PageLlamadas.Page1.txtModelo.enabled=.f.
      frmllamadas_sw=0
      *SET STEP ON
		   *&&llamadas.fcierre with diadehoy;
		*   .pagellamadas.page3.txttiemposolucion.value=valtot
		*   replace llamadas.tsolucion with valtot
		   *replace llamadas.estado with "CERRADA"
		   .refresh()
		   *wait windows "Se asigno la fecha de solución de forma correcta " nowait
		   *VALIDACION FCITA<FLLAMADA
	EndWith
endif
thisform.refrescar()
================================================================================

*** CMDDELETE.CLICK METHOD
=messagebox("No se permite el borrado de registros")
================================================================================

*** CMDEDIT.CLICK METHOD
dodefault()
*set step on
With Thisform
  if this.parent.editmode && Reverting
      .CmbEstado.enabled=.t.
      .pagellamadas.page1.cmbdispositivo.enabled=.t.
	  .pagellamadas.page1.combo1.enabled=.t.
	  .pagellamadas.page1.cmbmodelo.enabled=.t.
	  .pagellamadas.page2.CmbPrioridad.Enabled=.t.
	  *.pagellamadas.page2.CmdPlus.Enabled=.t.
	  .PageLlamadas.Page2.EdtProblema.enabled=.t.
	  .PageLlamadas.Page2.CmbResponsable.enabled=.t.
	  .Pagellamadas.Page2.combo1.enabled=.t.
	  .Pagellamadas.Page2.combo2.enabled=.t.
	  .Pagellamadas.Page2.combo3.enabled=.t.
	  .pagellamadas.page3.command1.enabled=.f.
	  .pagellamadas.page3.command2.enabled=.f.
	  .PageLlamadas.Page1.CmdBuscarUsuario.enabled=.t.
	  *.PageLlamadas.Page2.CmdGenerarNueva.enabled=.f.
	  *.PageLlamadas.Page1.txtModelo.enabled=.t.
	  *VERIFICA SI LA LLAMADA ESTA CERRADA PARA COLOCAR LA SOLUCION AL PROBLEMA.
	  IF not empty(.pagellamadas.page3.txtfechaatencion.value) and not
empty(.pagellamadas.page3.txtFechaSolucion.value) then
	     .pagellamadas.page2.EdtSolucion.enabled=.t.
	     *.pagellamadas.page3.txtFSolIng.enabled=.t.
	  ENDIF
	  *if not empty(.pagellamadas.page3.txtfechaatencion.value) and not
empty(.pagellamadas.page3.txtfechasolucion.value) then
	  *endif
    else && Editing
      .combo2.enabled=.f.
	  .CmbEstado.enabled=.f.
	  .pagellamadas.page1.cmbdispositivo.enabled=.f.
	  .pagellamadas.page1.combo1.enabled=.f.
	  .pagellamadas.page1.cmbmodelo.enabled=.f.
	  .pagellamadas.page2.CmbPrioridad.Enabled=.f.
	  *.pagellamadas.page2.CmdPlus.Enabled=.f.
	  .PageLlamadas.Page2.EdtProblema.enabled=.f.
	  .PageLlamadas.Page2.CmbResponsable.enabled=.f.
	  .Pagellamadas.Page2.combo1.enabled=.f.
	  .Pagellamadas.Page2.combo2.enabled=.f.
	  .Pagellamadas.Page2.combo3.enabled=.f.
	  .pagellamadas.page3.command1.enabled=.t.
	  .pagellamadas.page3.command2.enabled=.t.
	  .PageLlamadas.Page1.CmdBuscarUsuario.enabled=.f.
	  *.PageLlamadas.Page2.CmdGenerarNueva.enabled=.t.
	  *.PageLlamadas.Page1.txtModelo.enabled=.f.
	  .PageLlamadas.Page1.CmbColegio.enabled=.f.
	  frmllamadas_sw=0
	  if .pagellamadas.page2.EdtSolucion.enabled=.t. then
	     .pagellamadas.page2.EdtSolucion.enabled=.f.
	  endif
  endif
EndWith
================================================================================

Name:		LINE2
Class:		LINE
Parent:		FORM1
Base Class:	LINE
Description:	

***** PROPERTIES *****

Height = 83
Left = 349
Top = 13
Width = 0
BorderColor = 207,228,245
Name = "Line2"

================================================================================

Name:		LABEL8
Class:		LABEL
Parent:		FORM1
Base Class:	LABEL
Description:	

***** PROPERTIES *****

FontBold = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Origen"
Height = 17
Left = 61
Top = 42
Width = 44
TabIndex = 11
Name = "Label8"

================================================================================

Name:		COMBO2
Class:		COMBOBOX
Parent:		FORM1
Base Class:	COMBOBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
RowSourceType = 3
RowSource = 'select nombre , codigo from origen  into cursor
"FOP"+substr(sys(2015),3,10)'
ControlSource = "llamadas.origen"
Enabled = .F.
Height = 24
Left = 174
Style = 2
TabIndex = 2
Top = 39
Width = 100
BoundTo = .F.
Name = "Combo2"

================================================================================

***** METHODS *****

*** INTERACTIVECHANGE METHOD
with thisform
  if .pagellamadas.page2.cmbprioridad.displayvalue="ALTA" then
     desplega="Criterio para seleccionar la prioridad:"+chr(13)+chr(13)
     desplega=desplega+"REDP"+chr(13)
     desplega=desplega+"Subestación de comunicaciones, servidores,"+chr(13)
     desplega=desplega+"enrutadores y cadeles."+chr(13)+chr(13)
     desplega=desplega+"Nivel Central"+chr(13)
     desplega=desplega+"Secretario de educación, subsecretarios,"+chr(13)
     desplega=desplega+"Asesores de secretarios y usuarios de
ventanillas."+chr(13)
     wait windows desplega nowait
  endif
endwith
================================================================================

*** LOSTFOCUS METHOD
Thisform.combo2.enabled=.f.
================================================================================

Name:		TEXT6
Class:		TEXTBOX
Parent:		FORM1
Base Class:	TEXTBOX
Description:	

***** PROPERTIES *****

FontName = "Tahoma"
FontSize = 8
ControlSource = "llamadas.origen"
Enabled = .F.
Height = 23
Left = 128
ReadOnly = .F.
TabIndex = 1
Top = 40
Width = 45
Name = "Text6"

================================================================================

***** METHODS *****

*** GOTFOCUS METHOD
Thisform.combo2.enabled=.t.
================================================================================

Name:		CMDGENERARNUEVA
Class:		COMMANDBUTTON
Parent:		FORM1
Base Class:	COMMANDBUTTON
Description:	

***** PROPERTIES *****

Top = 370
Left = 637
Height = 30
Width = 110
FontName = "Tahoma"
FontSize = 8
WordWrap = .F.
Picture =
Caption = "    Generar Nueva"
Enabled = .T.
MousePointer = 0
Style = 0
TabIndex = 9
Visible = .F.
SpecialEffect = 0
RightToLeft = .F.
Name = "CmdGenerarNueva"

================================================================================

***** METHODS *****

*** CLICK METHOD
set deleted off
*set step on
calias=alias()
select max(numero) as cantidad from llamadas into cursor millam
numllam=millam.cantidad+1
*NUMLLAM=RECCOUNT()+1
misw=1
With thisform
  Insert into
llamadas(numero,estado,prioridad,usuario,sucursal,oficina,ingeniero,creadopor);
values(Numllam,.cmbestado.value,.cmbprioridad.value,.pagellamadas.page1.txtcodus
uario.value,;
.pagellamadas.page1.txtlocalidad.value,.pagellamadas.page1.txtcolegio.value,;
              .pagellamadas.page2.text4.value,m.vusuario)
endwith
select &calias
Set deleted on
thisform.refresh
================================================================================

Name:		CMDPLUS
Class:		COMMANDBUTTON
Parent:		FORM1
Base Class:	COMMANDBUTTON
Description:	

***** PROPERTIES *****

Top = 330
Left = 680
Height = 23
Width = 23
Picture = ..\imagenes\add.bmp
Caption = ""
Default = .F.
Enabled = .F.
TabIndex = 6
Visible = .F.
Name = "CmdPlus"

================================================================================

***** METHODS *****

*** CLICK METHOD
*set step on
do form frmtipo_servicios with thisform
================================================================================
Where is the error?
Please help me.
Next
Reply
Map
View

Click here to load this message in the networking platform