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.