kverna
06-03-2008, 14:44:04
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
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