FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Error al encontrar registro.
Hola, tengo un problema a la hora de localizar un registro, he puesto el siguiente código:
Código:
If ADOTAgenda.Locate('Cita_T01','Trabajar',[locaseinsensitive]) and ADOTAgenda.Locate('Fecha_T01',FormatDateTime('dd"/"mm"/"yyyy',now+I), [locaseinsensitive]) and ADOTAgenda.Locate('Fin_T01',InttoStr(Acol+7)+':00:00',[locaseinsensitive] then Begin Showmessage('Hola'); ADOTAgenda.Edit; ADOTAgenda['Fin_T01']:=InttoStr(Acol+8)+':00:00'; ADOTAgenda['Prioridad_T01']:=True; ADOTAgenda.Post; End Else Begin ADOTAgenda.Edit; DsAgenda.DataSet.Append; ADOTAgenda['Cita_T01']:='Trabajar'; ADOTAgenda['Fecha_T01']:=FormatDatetime('dd"/"mm"/"yyyy',now+I); ADOTAgenda['Hora_T01']:=InttoStr(Acol+7)+':00:00'; ADOTAgenda['Fin_T01']:=InttoStr(Acol+8+(horasdia(Acol)))+':00:00'; ADOTAgenda['Prioridad_T01']:=True; ADOTAgenda.Post; End; End; Cita:
__________________
"La perseverancia es el camino del éxito" |
#2
|
||||
|
||||
Cada instrucción locate busca 1 valor, por tanto, si en el if tienes 3 locates, se realizan 3 búsquedas distintas, es decir, el registro encontrado tendrá Fin_T01, pero no tiene que cumplir las otras 2 condiciones.
Necesitas hacer una búsqueda por los 3 parámetros juntos a la misma vez, mira la ayuda de TCustomADODataSet.Locate Aqui si se busca 1 registro en el que coincide la compañia, el contacto y el número de telefono con los datos suministrados. Por otra parte, en el else tienes un Edit, y justo despues un Append ¿?¿?¿ Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
|
|
|