المشاركات : 501
المواضيع 136
:
: 11
الإنتساب : Feb 2008
السلام عليكم ورحمة الله تعالى وبركاته
اثناء حفظ فاتورة بامتداد 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;
المشاركات : 975
المواضيع 50
:
: 218
الإنتساب : Feb 2008
السلام عليكم
حاول
كود :
ExtractFilePath(ParamStr(0)) + 'Archive\Fact'+CdeFct+'Ar'+'.pdf';
بدل
كود :
ExtractFilePath(ParamStr(0)) + '\Archive\Fact'+CdeFct+'Ar'+'.pdf';
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
المشاركات : 501
المواضيع 136
:
: 11
الإنتساب : Feb 2008
السلام عليكم اخي
لقد جربت ما تفضلت به قبل ان اضع المشكلة لكن نفس المشكل
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
السلام عليكم
تحقق من صحة المسار بشيئ مثل ShowMessage
كود :
ShowMessage( ExtractFilePath(ParamStr(0)) + '\Archive\Fact'+CdeFct+'Ar'+'.pdf');
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
المشاركات : 501
المواضيع 136
:
: 11
الإنتساب : Feb 2008
24-06-2020, 03:42 PM
(آخر تعديل لهذه المشاركة: 24-06-2020, 04:21 PM بواسطة medreg.)
المشكلة في رقم الفاتورة
يعني اذا كان رقم الفاتورة = 2019/001 لا يقبله
واذا كان = 001-2019 يقبله
مع العلم ان نفس البرنامج عندما كنت اشتغل على الويندوز 7 كان يشتغل بنفس الكود
وعندما ثبت الويندوز 10 ظهرت لي هذه المشكلة
رقم الفاتورة يظهر في الفاتورة بهذا الشكل 2019/001
اذا كيف يمكنني في حالة عدم قبول '/' ان احول الرقم اثناء الحفظ بصيغة PDF الى هذا الشكل 2019001
المشاركات : 522
المواضيع 46
:
: 394
الإنتساب : Sep 2011
(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;
وعليك السلام و رحمة الله تعالى و بركاته
الكود الذي تضعه لا يوجد فيه أي خطأ ، كل ما في الآمر أنه لم يجد المسار الذي حددته له لحفظ الملف ، يجب أن تكون أسماء المجلدات الصحيحة أو إذا لم تكن موجودة أنشأها
المشاركات : 501
المواضيع 136
:
: 11
الإنتساب : Feb 2008
المشكلة يا اخي ليست في المسار
بدليل انه عندما يكون رقم الفاتور اي قيمة CdeFct تساوي 001-2019 يقبلها ويتعرف عن المسار وعندما تكون قيمة CdeFct تساوي 2019/001 لايقبلها ويظهر انه لم يتعرف عن المسار
لذا كيف يمكنني تحويل القيمة من 2019/001 إلى 2019001 بدون فاصل بين رقم الفاتورة والسنة اثناء الحفظ
وجزاكم الله عنا كل خير
المشاركات : 145
المواضيع 1
:
: 41
الإنتساب : Aug 2019
لا يمكن أن يكون في اسم الملف ذلك الرمز / أو \, هذا الرمز هو path delimiter يستخدمه النظام للفصل في بين المجلدات في المسار.
المشاركات : 501
المواضيع 136
:
: 11
الإنتساب : Feb 2008
اذا يجب وضع متغير اخر لوضع نتيجة تحويل القيمة من 2019/001 الى 2019001 ليتم التعامل معه
فكيف يكون ذلك
المشاركات : 476
المواضيع 0
:
: 217
الإنتساب : Apr 2011
سلام عليكم
اضف السطر بعد جلب رقم الفاتور والسنة
delete(CdeFct, 5, 1);
الفاشلون نوعان : الأول : فكر ولم يفعل .. والآخر: فعل ولم يفكر
