Salu2 amigos foristas
Tengo este código:
Código Delphi
[-]
procedure TForm5.Edit4KeyPress(Sender: TObject; var Key: Char);
var
Oper:Integer;
Tot ,Bas, Iva, Exeouble;
begin
Tot:=0;
Bas:=0;
Iva:=0;
Exe:=0;
if key=#13 then
begin
With form1.ZVentas do
Begin
Oper:=RecordCount+1;
Tot:=StrToFloat(Edit3.Text);
Bas:=StrToFloat(Edit4.Text);
Iva:=Bas*0.09;
Exe:=Tot-Bas-Iva;
Insert;
FieldByName('N').AsInteger:=Oper;
FieldByName('Fecha').AsDateTime:=StrToDate(MaskEdit1.Text);
FieldByName('Rif').AsString:=MaskEdit2.Text;
FieldByName('Nors').AsString:=Edit1.Text;
FieldByName('Numf').AsInteger:=StrToInt(Edit2.Text);
FieldByName('Vexe').AsFloat:=RoundTo(Exe,2);
FieldByName('Tvtas').AsFloat:=RoundTo(Tot,2);
FieldByName('IVA').AsString:='9%';
FieldByName('BIMP').AsFloat:=RoundTo(Bas,2);
FieldByName('IIVA').AsFloat:=RoundTo(Iva,2);
Post;
refrescar;
sumatoria;
end;
end;
end;
tal y como aparece en mi código he usado las funciones RoundTo(var,2) por que consegui un tema en el foro que hablaba de eso pero a mi no me funciona
de igual manera con la Funcion Format('%f',[var]) tampoco logra lo que necesito....
como puedo lograr guardar con 2 decimales? asi el número sea 200 necesito guardar 200,00
gracias adelantadas