Grabar Registro es Lento
Publicado por victor perez (137 intervenciones) el 21/01/2014 23:25:16
Estimados Amigos,
Tenia mi programa trabajando a la perfeccion.
En los ultimos dias, he visto que el grabar un nuevo registro de paciente se torna lento, es decir, demora al presionar el boton de GRABAR.
El codigo para grabar nuevos registros es el siguiente:
Alguna sugerencia. La tabla de pacientes solo tiene 33,000 registros.
Saludos,
Tenia mi programa trabajando a la perfeccion.
En los ultimos dias, he visto que el grabar un nuevo registro de paciente se torna lento, es decir, demora al presionar el boton de GRABAR.
El codigo para grabar nuevos registros es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
IF EMPTY(Thisform.pgfficha.page1.snacimiento.Value)
MESSAGEBOX("Debe introducir una FECHA DE NACIMIENTO", "AVISO")
Thisform.pgfFicha.page1.snacimiento.SetFocus
RETURN 0
ENDIF
m.lastorder=DATE()
m.totinv=0.0
m.totpmt=0.0
m.balance=0.0
TEXT TO XSQL TEXTMERGE NOSHOW
INSERT INTO CLINICA.PATIENT (CODIGO,NUMERO,NOMBRES,APELLIDOS,DIRECCION,NACIMIENTO,CEDULA,SEGURO,SEXO,TELEFONO,CELULAR,PROFESION,EMAIL,OBS,
trabajo,teltrab,firstorder,lastorder,SITUACION,totinv,totpmt,balance,openby)
VALUES (?m.codigo,?_doc,?m.nombres,?m.apellidos,?m.direccion,?m.nacimiento,?m.cedula,?m.seguro,?m.sexo,?m.telefono,?m.celular,?m.profesion,?m.email,?m.obs,?m.trabajo,?m.teltrab,?m.lastorder,?m.lastorder,?" ",0,0,0,?Wuser)
ENDTEXT
THISFORM.CONECTASQLEXEC(LNHANDLE,XSQL)
SQLDISCONNECT(LNHANDLE)
Alguna sugerencia. La tabla de pacientes solo tiene 33,000 registros.
Saludos,
Valora esta pregunta
0