كيف أبرمج نقص كمية المخزون عند البيع و زيادته عند الشراء

اليك هذا المثال وغير فيه حسب معطياتك يا اخي

procedure MiseAJourStock(var QuantiteDemandee: Integer)

var

  Result:Integer;

QuantiteDisponible:Integer;

begin

QuantiteDisponible := dm1.tstockQt.value;

if( (dm1.tstock.recordcount> 0) then begin

  case CompareValue(QuantiteDemandee,  QuantiteDisponible) of

// Quantité demandée inférieure à celle disponible

  LessThanValue: begin

    Result := 0;

    dm1.tstock.edit;

    dm1.tstockQt.value:= QuantiteDisponible-QuantiteDemandee;

    dm1.tstock.post;

    Edit1.text := IntToStr(Result);

  end;

  EqualsValue: begin

// Quantité demandée égale à celle disponible

    dm1.tstock.delete;

    Result := 0;

    Edit1.text := IntToStr(Result);

  end;

  GreaterThanValue:

// Quantité demandée supérieure à celle disponible

    Result := QuantiteDemandee-QuantiteDisponible;

// Suppresion d'enregistrement (et passage au suivant automatiquement)

    dm1.tstock.delete;

// Appel de la procédure sur l'enregistrement courant

    Edit1.text := IntToStr(Result);

    MiseAJourStock(Result);

  end;

end;

وعليكم السلام .

الكميات لا تبرمج ولا يجب ان تبرمجها .

فكل ما عليك هو ان تقوم بتخزين المشتريات والمبيعات كفواتير .

وعند البيع تقوم بحساب الكمية التي اشتريتها من الصنف لتبيع على اساسها .

ولاستعلام عن رصيد المخزن من الصنف تستخدم استعلام مع الدالة SUM 

وهذا هو فقط كل شئ .

و انصحك بانشاء قاعدة البيانات لوحدك مادمت لست خبيرا وابحث بالانترنت عن تصميم لواحدة وسوف تجدها جاهزة .

لان هذا سيساعدك كثيرا .

السلام عليكم

الأخ FastReport على حق ولكن لحل إشكالية إختلاف سعر نفس المنتج بفاتورة سابقة عن فاتورة جديدة تحسب بطريقة سهلة وذلك بجمع قيمة الفاتورتين وتقسيمه على عددها لإستغراج المتوسط الحسابي لقيمة الفاتورتين وتعتبر القيمة الجديدة هي قيمة المنتج يضاف عليها قيمة الربح والمصروفات إن وجدة وتقدم بسعرها النهائي للمستهلك.