برامج وتقنيات: حساب الرسم على القيمة المضافة

لمعرفة مبلغ الرسم على القيمة المضافة TVA: نأخذ السعر خارج الرسم للمنتج أو الخدمة المقدمة ، ونضربه في نسبة القيمة المضافة المناسبة ( 7 % أو 17% او غيرهما، حسب الحالة) . فنحصل على مبلغ الرسم على القيمة المضافة. بعدها، نقوم بجمع المبلغ المحصل إلى السعر خارج الرسم للحصول على المبلغ بكل الرسوم.

مثال : تقديم خدمة بمبلغ خارج الرسم يقدر بـ 1.000,00 دج خارج الرسم , ونسبة القيمة المضافة هي 17% .

-حساب مبلغ الرسم على القيمة المضافة : 1000×17% = 170 دج.

المبلغ بكل الرسوم هو : مبلغ الخدمة خارج الرسم + مبلغ الرسم على القيمة المضافة = 1000دج+ 170دج = 1170دج .

كتابة برنامج باستعمال لغة الدلفي :

الآن نقوم بكتابة برنامج بسيط يقوم بحساب مبلغ القيمة المضافة والمبلغ بكل الرسوم عند معرفة المبلغ خارج الرسم .

نضيف إلى الإطار Form1 العناصر الموضحة في الشكل:

نعدل في قيم Caption و Text للعناصر TLabeledEdit فنحصل على شكل مشابه لما يلي :

- تنفيذ الكود يعطينا نتيجة مشابهة للشكل التالي :

في حالة معرفة نسبة الرسم على القيمة المضافة والمبلغ بكل الرسوم، فإنه يمكننا حساب المبلغ خارج الرسم كما يلي :
المبلغ خارج الرسم = المبلغ بكل الرسوم مقسوم على( 0.01 × نسبة الرسم +1)

وهذا نص البرنامج:


unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    Label1: TLabel;
    Button1: TButton;
    Label3: TLabel;
    LabeledEdit3: TLabeledEdit;
    procedure LabeledEdit2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure LabeledEdit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;    //إغلاق الإطار
end;

procedure TForm1.FormPaint(Sender: TObject);
Var
  Ligne: integer;
Begin
  For Ligne := 0 to Form1.Height do
  Begin
    
     //لون الخلفية
    Form1.Canvas.MoveTo(0, Ligne);
    Form1.Canvas.LineTo(Form1.Width, Ligne);
  End;

end;

procedure TForm1.LabeledEdit2Change(Sender: TObject);
var
  MNT_HT, TAUX_TVA, MNT_TVA, MNT_TTC: Double;
begin
  if trystrtofloat(LabeledEdit1.Text, MNT_HT) then
    if trystrtofloat(LabeledEdit2.Text, TAUX_TVA) then
    begin
      MNT_TVA := MNT_HT * TAUX_TVA / 100;
      MNT_TTC := MNT_HT + MNT_TVA;
      Label1.Caption := FormatFloat('مبلغ القيمة المضافة: #,##0.00', MNT_TVA);
      LabeledEdit3.Text := FormatFloat('#,##0.00', MNT_TTC);
    end;

end;

procedure TForm1.LabeledEdit3KeyPress(Sender: TObject; var Key: Char);
var
  MNT_HT, TAUX_TVA, MNT_TVA, MNT_TTC: Double;
begin
  if Key = #13 then      // المفتاح Enter
    if trystrtofloat(LabeledEdit2.Text, TAUX_TVA) then
      if trystrtofloat(LabeledEdit3.Text, MNT_TTC) then
      begin
        MNT_HT := MNT_TTC / (1 + 0.01 * TAUX_TVA);
        LabeledEdit1.Text := format('%10.2f',[MNT_HT]);

      end;
end;

end.