Error DataTruncated for column en INT(11)

[giulichajari]

Tengo en una base de datos un entero comun INT(11), y los parametros del SQLQuery como ftInteger(solo modifique esta propiedad y el nombre del parametro), y he probado insertar un dato como el numero 10 por ejemplo en el mysql workbench y me permite, de codigo tengo:

Código Delphi [-]
procedure TForm3.Button4Click(Sender: TObject);
var
ticket:Isucursales1.Tticket;
venta:Isucursales1.Tventa;


begin
      ticket:=Isucursales1.Tticket.Create;
      venta:=Isucursales1.Tventa.Create;

                with ticket do
                  begin
                    fechae:=DateToStr(Now());
                    horae:=TimeToStr(Now());
                    idsucursal:=1;
                    numero:=5;
                   importe:=StrToFloat(StringGrid1.Cells[1,0]);
                    GetIsucursales.hacerticket(ticket);
                  end;
                while not Grillaticket.DataSource.DataSet.Eof do
                  begin
                     with venta do
                      begin
                        idproducto:=Grillaticket.DataSource.DataSet['idproducto'];
                        cantidad:=Grillaticket.DataSource.DataSet['cantidad'];
                        GetIsucursales.ventas(venta);
                      end;
                  end;

end;

esto de arriba en el cliente, por su parte en el servidor:

Código Delphi [-]
  procedure Tsucursales.hacerticket(ticket:Tticket);

    begin
      consultas:=Tsucursallaferretera.Create(nil);
      with consultas.queryticket do
        begin
          ParamByName('fechae').AsString:=ticket.fechae;
          ParamByName('horae').AsString:=ticket.horae;

          ParamByName('idsucursal').AsInteger:=ticket.idsucursal;
          ParamByName('numero').AsInteger:=ticket.numero;
          ParamByName('importe').AsFloat:=ticket.importe;
          SQL.Add('insert into ticket(numero,importe,fechae,horae,idsucursal)');
          SQL.Add('values (:numero,:importe,:fechae,:horae,:idsucursal);');
          ExecSQL();
        end;
    end;

No se que otra cosa debo verificar, el numero lo probe con uno estatico porque mas adelante debo programar para obtenerlo del controlador fiscal.

[ozsWizzard]

De primeras, en tu código hay algo que veo raro, primero asignas los parámetros y luego la SQL. ¿No debería ser al revés? No estarás añadiendo código sql dos veces, ¿no?

[giulichajari]

Empezado por ozsWizzard

De primeras, en tu código hay algo que veo raro, primero asignas los parámetros y luego la SQL. ¿No debería ser al revés? No estarás añadiendo código sql dos veces, ¿no?

Pues podria probar pero me parece que en el momento de "ExecSQL" los parametros ya deben estar asignados,para que la consulta se ejecute.Si la consulta SQL es antes o despues es lo mismo.

[Casimiro Notevi]

Empezado por giulichajari

Si la consulta SQL es antes o despues es lo mismo.

No es lo mismo.

[giulichajari]

Empezado por Casimiro Notevi

No es lo mismo.

Pues acabo de probar en el servidor con:

Código Delphi [-]
    procedure Tsucursales.hacerticket(ticket:Tticket);

    begin
      consultas:=Tsucursallaferretera.Create(nil);
      with consultas.queryticket do
        begin
          SQL.Add('insert into ticket(numero,importe,fechae,horae,idsucursal)');
          SQL.Add('values (:numero,:importe,:fechae,:horae,:idsucursal);');
          ExecSQL();
          ParamByName('fechae').AsString:=ticket.fechae;
          ParamByName('horae').AsString:=ticket.horae;

          ParamByName('idsucursal').AsInteger:=ticket.idsucursal;
          ParamByName('numero').AsInteger:=ticket.numero;
          ParamByName('importe').AsFloat:=ticket.importe;


        end;
    end;

Pero sigo teniendo el mismo problema.
Saludos

[Casimiro Notevi]

¡ Pero cómo es que le das los parámetros después de ejecutarlo !