06-01-2018, 05:21 PM
10-01-2018, 09:37 PM
السلام عليكم ورحمة الله وبركاته
أخي 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'
يرجى منك أخي فاتح إفادتي من فضلك وأين يكمن الخطأ وشكرا
أخي 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'
يرجى منك أخي فاتح إفادتي من فضلك وأين يكمن الخطأ وشكرا
10-01-2018, 09:38 PM
السلام عليكم
ضع الكود المستعمل او ارفقه و ان شاء الله تجد حل
ضع الكود المستعمل او ارفقه و ان شاء الله تجد حل
10-01-2018, 09:46 PM
السلام عليكم
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;
10-01-2018, 09:58 PM
الكود صحيح المشكل ليس هنا اخي حاول if Table6.FieldByName('N_Facture').IsNull then
10-01-2018, 10:03 PM
بارك الله فيك أخي فاتح الكود يعمل
وإن شاء الله سنبقى على إتصال دائم وأتمنى أن تفيدني خبرتك أخي العزيز
وشكرا مسبقا ومقدما
وإن شاء الله سنبقى على إتصال دائم وأتمنى أن تفيدني خبرتك أخي العزيز
وشكرا مسبقا ومقدما
10-01-2018, 10:11 PM
السلام عليكم لكي يعمل الكود الاول اضغط مرتين على table6 تضهر نافذة اضغط باليسار عليها ثم Add all fields
10-01-2018, 10:22 PM
السلام عليكم
والله أخي فاتح لقد أفدتني كثيرا وكذا هذا المنتدى الرائع
جزاكم الله كل خير وشكرا لك وكل من ساهم في إنجاح هذا المنتدى وهذا العمل الرائع
والله أخي فاتح لقد أفدتني كثيرا وكذا هذا المنتدى الرائع
جزاكم الله كل خير وشكرا لك وكل من ساهم في إنجاح هذا المنتدى وهذا العمل الرائع