Error DataTruncated for column en INT(11)

[ecfisa]

Hola giulichajari.

No soy un experto en MySql, pero dado el mensaje de error, revisaría que el valor que se está intentando ingresar sea soportado por el tipo del campo.

De modo que la primera pregunta que me haría es: ¿ Con que tipo está definido el campo 'numero' en la creación de la tabla ? para lo cuál revisaría:

• Data Types
• Choosing the Right Type for a Column
• Numeric Types

Y la segunda y no menos importante: ¿ Que valor estoy intentando ingresar en 'numero' ?

Saludos

[giulichajari]

Hola ecfisa, por eso hice lo de F4, para saber que valor llega, es lo que esta en la caps mas arriba.

El campo es un entero comun.

Código SQL [-]
create table ticket(
idticket integer not null primary key auto_increment,
numero integer,
importe integer,
fechae date,
horae time,
idsucursal integer,
foreign key (idsucursal) references sucursal(idsucursal)
);

[jafera]

Hola.

Una pregunta, si idticket es "integer not null primary key auto_increment", y le pasas un valor null, en algun sitio debe hacer el auto incremento, trigger, sql o similar.

Puede ser que el error venga porque le estas dando valor null a este campo?

Si no es así, funciona bien el auto incremento?

Saludos

Josep

[giulichajari]

Empezado por jafera

Hola.

Una pregunta, si idticket es "integer not null primary key auto_increment", y le pasas un valor null, en algun sitio debe hacer el auto incremento, trigger, sql o similar.

Puede ser que el error venga porque le estas dando valor null a este campo?

Si no es así, funciona bien el auto incremento?

Saludos

Josep

Gracias por responder.
A mi siempre me anduvo bien por si solo, solo debo pasar los valores del resto de los campos y se incrementa solo.

[ecfisa]

Hola giulichajari.

Lamento no tener MySQL para tener la seguridad de que funcione en ese gestor, pero al ver la estructura de la tabla encontré dos detalles:

1. El campo IDTICKET tiene la restricción NOT NULL y le envias NULL. (*)
2. El campo IMPORTE esta declarado como INTEGER por lo que truncará los decimales, aún usando la propiedad AsFloat.

La prueba que hice (en Firebird) y funciona correctamente es:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  idticket, numero, idsucursal: Integer;
  importe: Double;
  fechae,horae: string;
begin
  // Valores de prueba
  idticket:= 1; // Para pruebas es irrelevante si es autoinc.
  numero:= 1;
  idsucursal:= 1; // No verifico restricción de int. ref.
  importe:= 111.11;
  fechae:= '04/08/2014';
  horae := '10:19:00';

  with TSQLQuery.Create(nil) do
  try
    SQLConnection:= SQLConnection1;
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO TICKET (IDTICKET,NUMERO,IMPORTE,FECHAE,HORAE,IDSUCURSAL)');
    SQL.Add('VALUES (:PID,:PNRO,:PIMP,:PFECHA,:PHORA,:PSUC)');
    ParamByName('PID').AsInteger := idticket;
    ParamByName('PNRO').AsInteger:= numero;
    ParamByName('PIMP').AsFloat:= importe;  // Redeclarar campo en la tabla
    ParamByName('PFECHA').AsString:= fechae;
    ParamByName('PHORA').AsString:= horae;
    ParamByName('PSUC').AsInteger:= idsucursal;
    ExecSQL;
  finally
    Free;
  end;
end;

(*) En Firebird enviar un valor nulo a un campo con restricción NOT NULL generaría un error de validación (desconozco si es igual en MySQL).

Espero te sirva de ayuda.

Saludos

[giulichajari]

Bueno encontre un problema en la aplicacion que puede estar relacionado, esto se debe a que tnego poca experiencia.

Sucede que el formulario de ticket tiene un boton de agregar producto que lleva a otro form con la lista de productos. Ademas contiene un dataset para poder "traer" el producto, y tener algunos campos calculables como totales y demas, pero me inserta en la tabla productos un registro. Pienso que por ahi va la cosa...

En el boton Agregar del form agregar producto:

Código Delphi [-]
begin
   if (GrillaProd.SelectedRows.Count=1) then
    begin
      ShowMessage('seleccione al menos un producto');
    end
    else
      if (Edit3.Text='') then
          begin
            ShowMessage('Especifique la cantidad a vender');
          end

      else
    begin
    //obtengo idprod para llenar ticket
      Form3.ZQuery1.ParamByName('idp').AsInteger:=GrillaProd.DataSource.DataSet.FieldByName('idproducto').  AsInteger;
        with Form3.ClientDataSet1 do
          begin
            Open;
            Insert;
            FieldByName('cantidad').AsFloat:=StrToFloat(Edit3.Text);
            FieldByName('nombre').AsString:=ZQuery1.FieldByName('nombre').AsString;

            FieldByName('preciou').AsFloat:=ZQuery1.FieldByName('preciou').AsFloat;
            FieldByName('total').AsFloat:=((StrToFloat(Edit3.Text)) * (ZQuery1.FieldByName('preciou').AsFloat));

            if State in [dsEdit,dsInsert] then
              Post;
            if ChangeCount>0 then
              begin
                ApplyUpdates(0);

              end;

        end;
         Form3.StringGrid1.Cells[1,0]:=Form3.ClientDataSet1.FieldByName('totalticket').AsString;
       end;
end;

Creo que corrigiendo esto va a andar, porque para que funcione el HACER TICKET del form de ticket tiene que estar bien seteada la grilla.

[giulichajari]

Hola de vuelta, bueno probe comentar la linea de numero del lado del servidor

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

    begin
      consultas:=Tsucursallaferretera.Create(nil);
      with consultas.queryticket do
        begin


         // ParamByName('numero').AsInteger:=ticket.numero;

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

        end;
    end;

y obtuve

Error: data truncated for column importe at row 1, osea el problema esta en la insercion o probablemente en el id

[ecfisa]

Hola giulichajari.

De nuevo estas llamando a los parámetros antes de ser declarados en la sentencia. Mas allá de cualquier otro error que pudiera existir, no va a funcionar de ese modo. Es más, me extraña que no te aparezca la excepción "Parameter 'xxxx' not found".
Siempre primero declara la consulta con sus parámetros y luego, una vez que existan, hace referencia a ellos.

También te aconsejo que te acostumbres a llamar al método Clear antes de invocar al método Add, eso limpiará cualquier residuo que pudiera haber quedado. Te vas a ahorrar dolores de cabeza con errores de sintáxis de SQL que no vas a saber de donde vienen...

Código Delphi [-]
procedure Tsucursales.hacerticket(ticket:Tticket);
begin
  consultas:=Tsucursallaferretera.Create(nil);
  with consultas.queryticket do
  begin
    SQL.Clear;
    SQL.Add('insert into ticket(idticket,numero,importe,fechae,horae,idsucursal)');
    SQL.Add('values (null,:numero,:importe,:fechae,:horae,:idsucursal);');

    // ParamByName('numero').AsInteger:=ticket.numero;
    ParamByName('idsucursal').AsInteger:=ticket.idsucursal;
    ParamByName('importe').AsFloat:=ticket.importe;
    ParamByName('fechae').AsString:=ticket.fechae;
    ParamByName('horae').AsString:=ticket.horae;
    ExecSQL();
  end;
end;

Saludos