تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق
السلام عليكم هل لديك حقل باسم N_Facture + اذكر رسالة الخطأ ممكن الاخ نبيل غير موجود
الرد
السلام عليكم ورحمة الله وبركاته
أخي 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'
يرجى منك أخي فاتح إفادتي من فضلك وأين يكمن الخطأ وشكرا
الرد
السلام عليكم
ضع الكود المستعمل او ارفقه و ان شاء الله تجد حل
الرد
السلام عليكم
PHP كود :
procedure TAccueil.sButton2Click(SenderTObject);
var 
DB1DB2Variant;
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=Truethen
  begin  Vente
.CloseFacture_Statistique.Closeend;

   Table2.first;
   table2.Insert;

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

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

end
الرد
الكود صحيح المشكل ليس هنا اخي حاول if Table6.FieldByName('N_Facture').IsNull then
الرد
بارك الله فيك أخي فاتح الكود يعمل
وإن شاء الله سنبقى على إتصال دائم وأتمنى أن تفيدني خبرتك أخي العزيز
وشكرا مسبقا ومقدما
الرد
السلام عليكم لكي يعمل الكود الاول اضغط مرتين على table6 تضهر نافذة اضغط باليسار عليها ثم Add all fields
الرد
السلام عليكم
والله أخي فاتح لقد أفدتني كثيرا وكذا هذا المنتدى الرائع
جزاكم الله كل خير وشكرا لك وكل من ساهم في إنجاح هذا المنتدى وهذا العمل الرائع
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف