Not Edit Mode y IBquery
Gente: desde un form ejecuto una consulta(q_destino) en un ibquery que muestra el resultado en un raveReport.Esta consulta tiene un campo id_retiro del tipo varchar.Necesito cambiarle el formato de salida de este campo por lo que se me ocurrio(ya que no encontre otra forma) hacerlo en el evento onGetText del Field id_dest(Fields Editor).
El problema surge cuando trato de asignar el valor modificado nuevamente a este campo, me genera una excepcion diciendo que la consulta no esta en EditMode.: A continuacion el codigo: procedure TDM.q_destinoID_RETIROGetText(Sender: TField; var Text: String; DisplayText: Boolean); var aux:string; l:integer; begin l:=strlen(pchar(q_destinoID_RETIRO.Value)); while l<9 do begin aux:=aux+'0'; inc(l); end; //a continuacion surge el error q_destinoID_RETIRO.value:=aux+q_destinoID_RETIRO.Value; end; Muchas Gracias |
Tienes que modificar el parámetro del evento:
Text :=aux+q_destinoID_RETIRO.Value; Si modificas el valor del campo, pones el registro en edición. Saludos |
Excelente Lepe, funciona a la perfeccion.
Muchas Gracias |
La franja horaria es GMT +2. Ahora son las 19:31:33. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi