Código Delphi [-]QGraba.SQL.Text:= 'INSERT INTO compras (fec,paga,mon,esta) VALUES(:Fecha,'+0.00+','+total.Text+',"CARGADA")'; QGraba.ParamByName('Fecha').AsDate := StrToDate(Fec.TExt);
QGraba.SQL.Text:= 'INSERT INTO compras (fec,paga,mon,esta) VALUES(:Fecha,'+0.00+','+total.Text+',"CARGADA")'; QGraba.ParamByName('Fecha').AsDate := StrToDate(Fec.TExt);