Consultas con TRIM

[[duilioisola]]

Yo que vos lo haría la comprobación de que la patente tenga el formato correcto (sin espacios) antes de grabarlo en la base de datos. Esto se hace desde Delphi en el BeforePost.

Ejemplo:

Código Delphi [-]
procedure TDataModule.TCamionBeforePost(DataSet: TDataSet);
var 
   i : integer;
   s : string;
begin
  {Inicializo s. La utilizo como temporal para quitar espacios}
  s := '';
  {solo compruebo si estoy insertando}
  if (DataSet.State = dsInsert) then 
     {si hay un espacio dentro de PATENTE entonces pos > 0}
     if (pos(' ',TCamionPATENTE.AsString)>0) then
     begin
        {Recorro PATENTE caracter a caracter}
        for i := 1 to Length(TCamionPATENTE.AsString) do 
           {Si no es espacio agrego el caracter a s, por lo tanto los espacios no pasan}
           if (TCamionPATENTE.AsString[i]<>' ') then
              s := s + TCamionPATENTE.AsString[i];
           {Ahora que s no tiene espacios la utilizo como PATENTE}
           TCamionPATENTE.AsString := s;
     end;
end;