Error DataTruncated for column en INT(11)

[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