Error al calcular una factura

[Yensis22]

bueno dia estoy tratando de relizar uno calculos pero cuando lo esjecuto me mande este error.

[Error] FFactura.pas(151): Unknown directive: 'a'
ese error desde la a asta la h
[Error] FFactura.pas(151): Unknown directive: 'h'

Código Delphi [-]
procedure TFFacturacion.Button3Click(Sender: TObject);
a,b,c,d,e,f,g,h :real;
begin
 a:= StrTofloat(Editcantidad.Text);
 b:= StrTofloat(EMonto.Text);
 d:= StrTofloat(EDesc.Text);
 f:= StrTofloat(EImp.Text);
 c:= a * b;
 e:= c * d / 100;
 g:= (c - e) * f / 100;
 h:= c - e + g;
 ESTotal.Text:= floatToStr(c);
 EDescuento.Text:=floatToStr(e);
 EImpuesto.Text:=floatToStr(g);
 ETotal.Text:= floatToStr(Round(h));
 Qfacturacion.SQL.Text := 'Insert into Facturacion 
 Values ('+QuotedStr(ECodFactura.Text)+', '+QuotedStr(EdiCliente.Text)+ ', 
 '+ LabDireccion.Caption+ ' :FechaFactura, '+QuotedStr(Editequipo.Text)+ ', 
 '+QuotedStr(EditRNC.Text)+ ', '+QuotedStr(DBComboBox2.Text)+', 
 '+QuotedStr(EMonto.Text)+', '+
                        QuotedStr(Editcantidad.Text)+', '+QuotedStr(ETotal.Text)+', 
 '+QuotedStr(EImp.Text)+', '+QuotedStr(EDesc.Text)+', '+QuotedStr(DBComboBox3.Text)+ ', 
'+QuotedStr(ESTotal.Text)+ ', '+QuotedStr(EDescuento.Text)+')', '+
                        QuotedStr(EImpuesto.Text)+')';
 Qfacturacion.Parameters.ParamByName('FechaFactura').Value:= DateToStr(DateTimePicker1.Date);
 Qfacturacion.ExecSQL;
  end;
end.

[dec]

Hola,

Por favor, edita tu mensaje de manera que no "rompa" la página del foro. ¿Y qué es eso de "facruta"? Quisiste decir factura, claro. Presta más atención al título de los hilos, porque, es importante a la hora de realizar búsquedas en el futuro, entre otras cosas. Gracias.

[[maeyanes]]

Hola...

Checa esto:

Código Delphi [-]
procedure TFFacturacion.Button3Click(Sender: TObject);
VAR // <--- Esto te hace falta
  a,b,c,d,e,f,g,h :real;

Saludos...

[tcp_ip_es]

yo ya le indiqué algo parecido en otro post pero parece que no atiende a razones

http://www.clubdelphi.com/foros/showthread.php?t=59401

P.D. 1: Me queda la duda de si escribe asi por no conocer nuestro idioma o porque simplemente pasa de nosotros
P.D. 2 : cito

bueno dia estoy tratando de relizar uno calculos pero cuando lo esjecuto me mande este error.

[[maeyanes]]

Empezado por tcp_ip_es

yo ya le indiqué algo parecido en otro post pero parece que no atiende a razones

http://www.clubdelphi.com/foros/showthread.php?t=59401

P.D. 1: Me queda la duda de si escribe asi por no conocer nuestro idioma o porque simplemente pasa de nosotros
P.D. 2 : cito

Yo creo que pasa de nosotros...

Sigue escribiendo de la misma forma...

[Yensis22]

gracia por la correcion pero cunado ledoy clic en el no boton de calculo manda este error.

is not a valid floatng poit value

Código Delphi [-]
rocedure TFFacturacion.BitBtn1Click(Sender: TObject);
var
a,b,c,d,e,f,g,h :real;
begin
 a:= StrTofloat(Editcantidad.Text);
 b:= StrTofloat(EMonto.Text);
 d:= StrTofloat(EDesc.Text);
 f:= StrTofloat(EImp.Text);
 c:= a * b;
 e:= c * d / 100;
 g:= (c - e) * f / 100;
 h:= c - e + g;
 ESTotal.Text:= floatToStr(c);
 EDescuento.Text:=floatToStr(e);
 EImpuesto.Text:=floatToStr(g);
 ETotal.Text:= floatToStr(Round(h));
 Qfacturacion.SQL.Text := 'Insert into Facturacion Values ('+QuotedStr(ECodFactura.Text)+', '+
 QuotedStr(EdiCliente.Text)+ ', '+ LabDireccion.Caption+ ' :FechaFactura, '+QuotedStr(Editequipo.Text)+ ', '+
 QuotedStr(EditRNC.Text)+ ', '+QuotedStr(DBComboBox2.Text)+', '+QuotedStr(EMonto.Text)+', '+
 QuotedStr(Editcantidad.Text)+', '+QuotedStr(ETotal.Text)+', '+QuotedStr(EImp.Text)+', '+
 QuotedStr(EDesc.Text)+', '+QuotedStr(DBComboBox3.Text)+ ', '+QuotedStr(ESTotal.Text)+ ', '+
 QuotedStr(EDescuento.Text)+', '+QuotedStr(EImpuesto.Text)+')';
 Qfacturacion.Parameters.ParamByName('FechaFactura').Value:= DateToStr(DateTimePicker1.Date);
 Qfacturacion.ExecSQL;

end;
end.

[[maeyanes]]

Hola...

Empezado por Yensis22

gracia por la correcion pero cunado ledoy clic en el no boton de calculo manda este error.

Espero empieces a tomar en cuenta los comentarios que te han dado sobre tu forma de escribir... pon un poco más de tu parte al hacer tus preguntas, ya que no podemos andar adivinando todo el tiempo que es lo que quieres hacer...

Sobre tu problema, ¿en que línea exactamente te da ese error?

Otro detalle, si vas a usar números reales o flotantes, es mejor que uses el tipo de datos Double y no Real...



Saludos...

[[Delphius]]

Hola, a manera de observación les aconsejaría que no se limiten tan apresuradamente a sacar conclusiones de la grafía de una persona. Es muy posible que sea una persona con dislexia.

Con respecto al problema no logro ver donde puede estar el error. Yensis22, sería útil que aportes mayores detalles del caso.

Lo que intuyo que puede ser el problema es un conflicto entre el punto y la coma como símbolo decimal. Para ello hay algunas opciones:
1. Alterar la configuración reginal
2. Establecer la variable DECIMAL_SEPARATOR con el caracter adecuado.
3. Implementar algún mecanismo de control para que cambie el caracter decimal por el otro.
4. etc...

Saludos,

[Yensis22]

Ok Por las sugerencias..

Ese error me lo manda cuando lo ejecuto y le doy clic en el botón cálculo pero no me marca ninguna línea. Aquí de bajo esta la imagen del from de factura y el código del proyecto completo. Por si lo quiere chequear.

Código Delphi [-]
procedure TFFacturacion.BitBtn1Click(Sender: TObject);
var

a,b,c,d,e,f,g,h :real;

begin
 a:= StrTofloat(Editcantidad.Text);
 b:= StrTofloat(EMonto.Text);
 d:= StrTofloat(EDesc.Text);
 f:= StrTofloat(EImp.Text);
 c:= a * b;
 e:= c * d / 100;
 g:= (c - e) * f / 100;
 h:= c - e + g;
 ESTotal.Text:= floatToStr(c);
 EDescuento.Text:=floatToStr(e);
 EImpuesto.Text:=floatToStr(g);
 ETotal.Text:= floatToStr(Round(h));
 Qfacturacion.SQL.Text := 'Insert into Facturacion Values ('+QuotedStr(ECodFactura.Text)+', '+
 QuotedStr(EdiCliente.Text)+ ', '+ LabDireccion.Caption+ ' :FechaFactura, '+QuotedStr(Editequipo.Text)+ ', '+
 QuotedStr(EditRNC.Text)+ ', '+QuotedStr(DBComboBox2.Text)+', '+QuotedStr(EMonto.Text)+', '+
 QuotedStr(Editcantidad.Text)+', '+QuotedStr(ETotal.Text)+', '+QuotedStr(EImp.Text)+', '+
 QuotedStr(EDesc.Text)+', '+QuotedStr(DBComboBox3.Text)+ ', '+QuotedStr(ESTotal.Text)+ ', '+
 QuotedStr(EDescuento.Text)+', '+QuotedStr(EImpuesto.Text)+')';
 Qfacturacion.Parameters.ParamByName('FechaFactura').Value:= DateToStr(DateTimePicker1.Date);
 Qfacturacion.ExecSQL;

end;

Imagen http://www.4shared.com/file/61462793...cturacion.html

Código fuente http://www.4shared.com/file/61464202...5/sistema.html

Por otra parte de este mismo from de factura yo tengo un botón busca, que lo que yo quiero que el me realice es que cunado yo lo llame me traiga otro from eso el me lo hace bien, pero que cuando yo le de le de clic a un cliente este me lo inserte en el edit de cliente de la factura esto lo que no me esta haciendo este es el código que tengo es este botón esta variable Nom_Cliente esta de clarada como publica Nom_Cliente: string; en el otro from que se llama FRegistroclient.

Código Delphi [-]
 
FRegistroclient:=TFRegistroclient.Create(self);
   try
    FRegistroclient.ShowModal;
   finally
   If FRegistroclient.Nom_Cliente <> '' then
   EdiCliente.Text := FRegistroclient.Nom_Cliente;
   LabDireccion.Caption:= QuotedStr(FRegistroclient.Direccion);
   FRegistroclient.Free;
   end;

end;

Código completo del from

Código Delphi [-]
unit FFactura;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, Mask, ExtCtrls,
  ComCtrls, ADODB;
type
  TFFacturacion = class(TForm)
    Label1: TLabel;
    Bevel2: TBevel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    GroupBox1: TGroupBox;
    Panel2: TPanel;
    Label2: TLabel;
    Label15: TLabel;
    Label11: TLabel;
    Label3: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label20: TLabel;
    DBText3: TDBText;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBGrid1: TDBGrid;
    DBMemo1: TDBMemo;
    GroupBox2: TGroupBox;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    DataSource3: TDataSource;
    DateTimePicker1: TDateTimePicker;
    Qfacturacion: TADOQuery;
    ECodFactura: TEdit;
    EdiCliente: TEdit;
    Editequipo: TEdit;
    Editcantidad: TEdit;
    EditRNC: TEdit;
    Panel1: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label19: TLabel;
    Button2: TButton;
    EMonto: TEdit;
    EDescuento: TEdit;
    EImpuesto: TEdit;
    ETotal: TEdit;
    Button1: TButton;
    EDesc: TEdit;
    EImp: TEdit;
    ESTotal: TEdit;
    Label26: TLabel;
    Label4: TLabel;
    BSeleccionar: TSpeedButton;
    Label5: TLabel;
    LabDireccion: TLabel;
    BSeleccionarComercial: TSpeedButton;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BSeleccionarClick(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure BSeleccionarComercialClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FFacturacion: TFFacturacion;
implementation
uses   FRegiclientes, FRegitequip;
                      
{$R *.dfm}
procedure TFFacturacion.FormCreate(Sender: TObject);
begin
DateTimePicker1.Date:= Now;
Qfacturacion.SQL.Text:='SELECT DISTINCTROW Max([Facturacion].[NumeroFactura])AS [NumeroFactura]FROM Facturacion';
   Qfacturacion.Open;
   ECodFactura.Text:= IntToStr(Qfacturacion.Fields[0].AsInteger+3);
end;
procedure TFFacturacion.BSeleccionarClick(Sender: TObject);
begin
FRegistroclient:=TFRegistroclient.Create(self);
   try
    FRegistroclient.ShowModal;
   finally
   If FRegistroclient.Nom_Cliente <> '' then
   EdiCliente.Text := FRegistroclient.Nom_Cliente;
   LabDireccion.Caption:= QuotedStr(FRegistroclient.Direccion);
   FRegistroclient.Free;
   end;
end;
procedure TFFacturacion.SpeedButton7Click(Sender: TObject);
begin
Close;
end;
procedure TFFacturacion.BSeleccionarComercialClick(Sender: TObject);
begin

 Fregequipos:=TFregequipos.Create(self);
   try
    Fregequipos.ShowModal;
   finally
   If Fregequipos.Dequipo <> '' then
   EdiCliente.Text := Fregequipos.Dequipo;
 //  LabDireccion.Caption:= QuotedStr(Fregequipos.Direccion);
   Fregequipos.Free;

      end;
   end;
procedure TFFacturacion.BitBtn1Click(Sender: TObject);
var
a,b,c,d,e,f,g,h :real;
begin
 a:= StrTofloat(Editcantidad.Text);
 b:= StrTofloat(EMonto.Text);
 d:= StrTofloat(EDesc.Text);
 f:= StrTofloat(EImp.Text);
 c:= a * b;
 e:= c * d / 100;
 g:= (c - e) * f / 100;
 h:= c - e + g;
 ESTotal.Text:= floatToStr(c);
 EDescuento.Text:=floatToStr(e);
 EImpuesto.Text:=floatToStr(g);
 ETotal.Text:= floatToStr(Round(h));
 Qfacturacion.SQL.Text := 'Insert into Facturacion Values ('+QuotedStr(ECodFactura.Text)+', '+
 QuotedStr(EdiCliente.Text)+ ', '+ LabDireccion.Caption+ ' :FechaFactura, '+QuotedStr(Editequipo.Text)+ ', '+
 QuotedStr(EditRNC.Text)+ ', '+QuotedStr(DBComboBox2.Text)+', '+QuotedStr(EMonto.Text)+', '+
 QuotedStr(Editcantidad.Text)+', '+QuotedStr(ETotal.Text)+', '+QuotedStr(EImp.Text)+', '+
 QuotedStr(EDesc.Text)+', '+QuotedStr(DBComboBox3.Text)+ ', '+QuotedStr(ESTotal.Text)+ ', '+
 QuotedStr(EDescuento.Text)+', '+QuotedStr(EImpuesto.Text)+')';
 Qfacturacion.Parameters.ParamByName('FechaFactura').Value:= DateToStr(DateTimePicker1.Date);
 Qfacturacion.ExecSQL;

end;
end.