+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تكرار مستند في الطباعة (/showthread.php?tid=12891)
تكرار مستند في الطباعة - سليم 2024 - 17-03-2025
سلام عليكم
عندما اقوم بطابعة مستند في هذا البروسيجدر يقوم البرنامج بطباعة مستندين بدل مستند واحد لم اعرف الخطا من اين عندما اضفت الجملة التاليه ظهرت المشكلة
CheckBox1.Checked:=false;
بينما عندما اضف الامر التالي لاتوجد مشكلة //CheckBox1.Enabled:=FALSE;
وانا اريد استخدم الامر الاول CheckBox1.Checked:=false; ولكن الطباعة اريد مستند واحد فقط
procedure TForm23.CheckBox1Click(Sender: TObject);
begin
IF CheckBox1.Checked=true THEN
begin
Form2.Table1.Open;
Form2.Table2.Open;
end;
if form2.Table1.FindKey([edit1.text]) then
begin
x1:=Form2.Table1NET_SALRY1.AsFloat;
ChifrToArab(x1,s);
Form2.QRLabel53.Caption:=s;
//CheckBox1.Enabled:=FALSE;
CheckBox1.Checked:=false;
FORM2.QuickRep1.print;
end;
END;
RE: تكرار مستند في الطباعة - الفجر الابيض - 02-05-2025
كود :
procedure TForm23.CheckBox1Click(Sender: TObject);
begin
IF CheckBox1.Checked=true THEN
begin
Form2.Table1.Open;
Form2.Table2.Open;
end;
if form2.Table1.FindKey([edit1.text]) then
begin
x1:=Form2.Table1NET_SALRY1.AsFloat;
ChifrToArab(x1,s);
Form2.QRLabel53.Caption:=s;
CheckBox1.Checked:=false;
FORM2.QuickRep1.print;
end;
END;قم يتنسيق الكود ليسهل للمستخدمين مراجعته والاجابة عنه
لا اعرف آلية عمل هذا النوع من التقارير كما هناك شئ غير منطقي في اظهار نموذجين