Ver Mensaje Individual
  #1  
Antiguo 03-08-2014
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Reputación: 12
giulichajari Va por buen camino
Error DataTruncated for column en INT(11)

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.
Responder Con Cita