+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : خطأ اثناء حفظ فاتورة بمتداد PDF (/showthread.php?tid=10924)
الصفحات:
1
2
خطأ اثناء حفظ فاتورة بمتداد PDF - medreg - 23-06-2020
السلام عليكم ورحمة الله تعالى وبركاته
اثناء حفظ فاتورة بامتداد PDF
تظهر رسالة خطأ[attachment=4272]
الكود المستعمل هو :
كود :
procedure TFrmFacture.FormatArabe1Click(Sender: TObject);
var
oExportfilter : TfrxCustomExportFilter;
CdeFct:string;
begin
DM.TFacture.Open ;
CdeFct:=DM.TFacture.FieldValues['Cde_Fact'];
oExportfilter := TfrxCustomExportFilter(frxPDFExport1);
oExportFilter.ShowDialog := False;
oExportFilter.FileName := ExtractFilePath(ParamStr(0)) + '\Archive\Fact'+CdeFct+'Ar'+'.pdf';
frxRptFactD_Ar.PrepareReport(True);
frxRptFactD_Ar.Export(oExportFilter);
end;RE: خطأ اثناء حفظ فاتورة بمتداد PDF - S.FATEH - 24-06-2020
السلام عليكم
حاول
كود :
ExtractFilePath(ParamStr(0)) + 'Archive\Fact'+CdeFct+'Ar'+'.pdf';كود :
ExtractFilePath(ParamStr(0)) + '\Archive\Fact'+CdeFct+'Ar'+'.pdf';RE: خطأ اثناء حفظ فاتورة بمتداد PDF - medreg - 24-06-2020
السلام عليكم اخي
لقد جربت ما تفضلت به قبل ان اضع المشكلة لكن نفس المشكل
RE: خطأ اثناء حفظ فاتورة بمتداد PDF - محمد عبد العزيز - 24-06-2020
السلام عليكم
تحقق من صحة المسار بشيئ مثل ShowMessage
كود :
ShowMessage( ExtractFilePath(ParamStr(0)) + '\Archive\Fact'+CdeFct+'Ar'+'.pdf');RE: خطأ اثناء حفظ فاتورة بمتداد PDF - medreg - 24-06-2020
المشكلة في رقم الفاتورة
يعني اذا كان رقم الفاتورة = 2019/001 لا يقبله
واذا كان = 001-2019 يقبله
مع العلم ان نفس البرنامج عندما كنت اشتغل على الويندوز 7 كان يشتغل بنفس الكود
وعندما ثبت الويندوز 10 ظهرت لي هذه المشكلة
رقم الفاتورة يظهر في الفاتورة بهذا الشكل 2019/001
اذا كيف يمكنني في حالة عدم قبول '/' ان احول الرقم اثناء الحفظ بصيغة PDF الى هذا الشكل 2019001
RE: خطأ اثناء حفظ فاتورة بمتداد PDF - larbiparadox - 25-06-2020
(23-06-2020, 07:56 PM)medreg كتب : السلام عليكم ورحمة الله تعالى وبركاته
اثناء حفظ فاتورة بامتداد PDF
تظهر رسالة خطأ
الكود المستعمل هو :
كود :procedure TFrmFacture.FormatArabe1Click(Sender: TObject); var oExportfilter : TfrxCustomExportFilter; CdeFct:string; begin DM.TFacture.Open ; CdeFct:=DM.TFacture.FieldValues['Cde_Fact']; oExportfilter := TfrxCustomExportFilter(frxPDFExport1); oExportFilter.ShowDialog := False; oExportFilter.FileName := ExtractFilePath(ParamStr(0)) + '\Archive\Fact'+CdeFct+'Ar'+'.pdf'; frxRptFactD_Ar.PrepareReport(True); frxRptFactD_Ar.Export(oExportFilter); end;
وعليك السلام و رحمة الله تعالى و بركاته
الكود الذي تضعه لا يوجد فيه أي خطأ ، كل ما في الآمر أنه لم يجد المسار الذي حددته له لحفظ الملف ، يجب أن تكون أسماء المجلدات الصحيحة أو إذا لم تكن موجودة أنشأها
RE: خطأ اثناء حفظ فاتورة بمتداد PDF - medreg - 25-06-2020
المشكلة يا اخي ليست في المسار
بدليل انه عندما يكون رقم الفاتور اي قيمة CdeFct تساوي 001-2019 يقبلها ويتعرف عن المسار وعندما تكون قيمة CdeFct تساوي 2019/001 لايقبلها ويظهر انه لم يتعرف عن المسار
لذا كيف يمكنني تحويل القيمة من 2019/001 إلى 2019001 بدون فاصل بين رقم الفاتورة والسنة اثناء الحفظ
وجزاكم الله عنا كل خير
RE: خطأ اثناء حفظ فاتورة بمتداد PDF - sofiane201 - 25-06-2020
لا يمكن أن يكون في اسم الملف ذلك الرمز / أو \, هذا الرمز هو path delimiter يستخدمه النظام للفصل في بين المجلدات في المسار.
RE: خطأ اثناء حفظ فاتورة بمتداد PDF - medreg - 25-06-2020
اذا يجب وضع متغير اخر لوضع نتيجة تحويل القيمة من 2019/001 الى 2019001 ليتم التعامل معه
فكيف يكون ذلك
RE: خطأ اثناء حفظ فاتورة بمتداد PDF - Mr.DOS - 26-06-2020
سلام عليكم
اضف السطر بعد جلب رقم الفاتور والسنة
delete(CdeFct, 5, 1);