تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق

[S.FATEH]

السلام عليكم هل لديك حقل باسم N_Facture + اذكر رسالة الخطأ ممكن الاخ نبيل غير موجود

[achourmero]

السلام عليكم ورحمة الله وبركاته
أخي FATEH نعم يوجد حقل باسم N_Facture ورسالة الخطأ هي :
[Error] Acueil.pas(733): Undeclared identifier: 'Table6N_Facture'
[Error] Acueil.pas(733): 'THEN' expected but identifier 'IsNull' found
[Fatal Error] STOCKAGE.dpr(15): Could not compile used unit 'Acueil.pas'
يرجى منك أخي فاتح إفادتي من فضلك وأين يكمن الخطأ وشكرا

[S.FATEH]

السلام عليكم
ضع الكود المستعمل او ارفقه و ان شاء الله تجد حل

[achourmero]

السلام عليكم

PHP كود :

procedure TAccueil.sButton2Click(Sender: TObject);
var DB1, DB2: Variant;
begin
 if  Table6N_Facture.IsNull then begin
   DB1 := DBLookupCombobox3.KeyValue;
   DB2 := DBLookupCombobox4.KeyValue;

   DbLookupCombobox1.ReadOnly := False;
   DbLookupCombobox2.ReadOnly := False;
   DbLookupCombobox3.ReadOnly := False;
   DbLookupCombobox4.ReadOnly := False;
   DateTimePicker1.DateTime := now;

   sButton2.Enabled := False; //  Nouveau Produit
   sButton3.Enabled := true; //  Ajouter
   sButton4.Enabled := False; //  Imprimer
   sButton5.Enabled := False; //  Suprimer
   sButton6.Enabled := False; //  Modifier
   sButton7.Enabled := False; //  Valider
   sButton8.Enabled := true; //  Anuler
  // FactureEtStatistique1.Enabled := false; // Fiche facture et Statistique
   Vente1.Enabled := false; // Fiche Vente
if (Vente.Showing=True)  or (Facture_Statistique.Showing=True) then
  begin  Vente.Close; Facture_Statistique.Close; end;

   Table2.first;
   table2.Insert;

   DBLookupCombobox3.KeyValue := DB1;
   DBLookupCombobox4.KeyValue := DB2;

 end else
   showmessage('Priciser une Facture ou bien Nouveau Facture D''abord');

end; 


[S.FATEH]

الكود صحيح المشكل ليس هنا اخي حاول if Table6.FieldByName('N_Facture').IsNull then

[achourmero]

بارك الله فيك أخي فاتح الكود يعمل
وإن شاء الله سنبقى على إتصال دائم وأتمنى أن تفيدني خبرتك أخي العزيز
وشكرا مسبقا ومقدما

[S.FATEH]

السلام عليكم لكي يعمل الكود الاول اضغط مرتين على table6 تضهر نافذة اضغط باليسار عليها ثم Add all fields

[achourmero]

السلام عليكم
والله أخي فاتح لقد أفدتني كثيرا وكذا هذا المنتدى الرائع
جزاكم الله كل خير وشكرا لك وكل من ساهم في إنجاح هذا المنتدى وهذا العمل الرائع