FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
formula..
hola. necesito una formula para un descuento lo he intentado pero no se por que me sale mal... la cosa es que cuando marca mas de 1,000 (con coma) todo sale mal... pero cuando la cantidad es menor a 999 si saca los descuentos
estoy haciendo esto: if Descuento.Text <> '0' then begin If Length(Descuento.Text) = 1 then Dsto := StrToFloat('0.0' + Descuento.Text) else Dsto := StrToFloat('0.' + Descuento.Text); ActAReal := ''; for K:=1 to Length(SubTotal.Text) do begin If SubTotal.Text[K] in ['0'..'9','.'] then ActAReal := ActAReal + SubTotal.Text[K] end; SubTotal.Text := ActAReal; Stal := StrToFloat(SubTotal.Text) * Dsto; SubTotal.Text := FloatToStrF(StrToFloat(Subtotal.Text) - Stal , FFNumber, 9,2); end; si alguien sabe una forma mejor o solucionar esto espero me respondan.saludos. |
#3
|
|||
|
|||
evento
en el evento key press puse :
(de cada descuento) procedure TVentArt.Descuento2KeyPress(Sender: TObject; var Key: Char); var desc2,total,totaldescontado: real; begin If Key = #13 then begin Cerrar.SetFocus; Descuento2.SetFocus; total:=strtofloat(totventa.text); desc2:=((strtofloat(descuento2.text))/100) + 1; totaldescontado:=(total/ desc2); totventa.Text:=floattostrF((totaldescontado),FFNumber,9,2); end else If Key = #27 then Descuento2.Clear else begin if not (Key in ['0'..'9',#8]) then Key := #0; end; end; pero cuando la cantidad tiene un "," se pone loca la suma. |
#4
|
||||
|
||||
Por favor, edita tu mensaje y añade las etiquetas delphi, te quedará un mensaje más profesional .
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
formula en dbgrid | federicorl | Varios | 4 | 07-08-2006 19:58:36 |
FastReport: fórmula matemáticas. | Jose_Pérez | Impresión | 1 | 01-09-2005 14:20:37 |
Formula en Firebird | jwmoreira | Firebird e Interbase | 4 | 17-05-2005 18:49:57 |
Formula One con Fast Report | CARSOFT_AR | Impresión | 0 | 06-05-2005 19:20:11 |
Campos calculados, fórmula | mariajoiz | Conexión con bases de datos | 8 | 10-06-2003 15:10:10 |
|