Error DataTruncated for column en INT(11)

[giulichajari]

Empezado por adrall

En el codigo del pantallazo estas asignando un valor a 'idticket', si es un autoincremental no le des ningún valor:

Código Delphi [-]
SQL.Text := 'insert into ticket(numero,importe,fechae,horae,idsucursal) values (:numero,:importe,:fechae,:horae,:idsucursal);';

Pues ya lo cambie y sigue el problema de data truncated for column numero at row1

[Casimiro Notevi]

Cosas raras: la fecha y hora en formato texto

Por cierto, copia y pega el mensaje de error, que todavía no lo has puesto

[giulichajari]

El error es:

[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.