تتم طباعة نتيجة غير صحيحة عند طباعة تقرير "قائمة مدفوعات المورد" (11507) في عميل روليتيلوريد في Microsoft Dynamics NAV 2009

معلومات الإصلاح العاجل

الآن يتوفر إصلاح عاجل معتمد من Microsoft. ومع ذلك، هو فقط لتصحيح المشكلة الموضحة في هذه المقالة. تطبيقها فقط على الأنظمة التي تواجه هذه المشكلة بالتحديد. قد يتم إجراء اختبارات إضافية على هذا الإصلاح العاجل. ولذلك، إذا لم يكن تأثير المشكلة كبيرا، نوصي بالانتظار حتى الإصدار التالي من حزمة الخدمة Microsoft Dynamics NAV 2009 أو الإصدار Microsoft Dynamics التنقل التالي الذي يحتوي على هذا الإصلاح العاجل.

ملاحظة: في بعض الحالات، يحدد المصروفات التي تحتسب عادة لدعم قد يتم إلغاء المكالمات إذا "أخصائي الدعم التقني" ل Microsoft Dynamics والمنتجات ذات الصلة أن تحديثًا معيناً سوف يعمل على حل المشكلة. سيتم اضافة تكاليف الدعم المعتادة على أسئلة الدعم الإضافية والمشاكل التي لا يأهل على حلها للتحديث المطلوب.

تغييرات التعليمات البرمجية

ملاحظة: دوماً التعليمات البرمجية للاختبار إصلاح في بيئة تسيطر عليها قبل تطبيق إصلاحات لأجهزة الكمبيوتر الإنتاج.
لحل هذه المشكلة، اتبع الخطوات التالية.

1. إضافة متغير عمومي في التقرير "قائمة مدفوعات المورد" (11507)، وقم بتحديد المتغير كما يلي:

   • الاسم: DetailedEntryProcessFlag@1140104

   • نوع البيانات: منطقية

2. إضافة متغير عمومي في التقرير "قائمة مدفوعات المورد" (11507)، وقم بتحديد المتغير كما يلي:

   • الاسم: PrintInvoiceDetail@1140105

   • نوع البيانات: منطقية

3. تغيير التعليمات البرمجية في عنصر بيانات رقم 2 في التقرير "قائمة مدفوعات المورد" (11507) كما يلي:
   التعليمات البرمجية الموجودة

   ...{
   DataItemIndent=1;
   DataItemTable=Table2000000026;
   DataItemTableView=SORTING(Number);
   OnPreDataItem=BEGIN
   
   // Delete the following lines.
   SETRANGE(Number,2,TempVendorLedgerEntry.COUNT);
   END;
   
   OnAfterGetRecord=BEGIN
   TempVendorLedgerEntry.NEXT;
   // End of the lines.
   
   END;
   
   }
   SECTIONS
   {
   ...
   

   استبدال التعليمات البرمجية

   ...{
   DataItemIndent=1;
   DataItemTable=Table2000000026;
   DataItemTableView=SORTING(Number);
   OnPreDataItem=BEGIN
   
   // Add the following lines.
   IF ISSERVICETIER THEN BEGIN
   SETRANGE(Number,1,TempVendorLedgerEntry.COUNT);
   PrintInvoiceDetail := FALSE;
   END ELSE
   SETRANGE(Number,2,TempVendorLedgerEntry.COUNT);
   
   DetailedEntryProcessFlag := FALSE;
   END;
   
   OnAfterGetRecord=BEGIN
   IF NOT ISSERVICETIER OR DetailedEntryProcessFlag THEN BEGIN
   TempVendorLedgerEntry.NEXT;
   PrintInvoiceDetail := TRUE;
   END ELSE
   DetailedEntryProcessFlag := TRUE;
   // End of the lines.
   
   END;
   
   }
   SECTIONS
   {
   ...
   

4. تغيير التعليمات البرمجية في "مقاطع 2 رقم عنصر بيانات" في التقرير "قائمة مدفوعات المورد" (11507) كما يلي:
   التعليمات البرمجية الموجودة

   ...OptionString=,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund;
   SourceExpr=TempVendorLedgerEntry."Document Type";
   DataSetFieldName=TempVendorLedgerEntry__Document_Type__Control1150009 }
   }
   }
   }
   }
   }
   ...
   

   استبدال التعليمات البرمجية

   ...OptionString=,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund;
   SourceExpr=TempVendorLedgerEntry."Document Type";
   DataSetFieldName=TempVendorLedgerEntry__Document_Type__Control1150009 }
   
   // Add the following lines.
   { 1150109;TextBox ;150 ;0 ;150 ;423 ;Visible=No;
   SourceExpr=PrintInvoiceDetail;
   DataSetFieldName=PrintInvoiceDetail_1 }
   // End of the lines.
   
   }
   }
   }
   }
   }
   ...
   

5. تغيير التعليمات البرمجية في وظيفة جيتابليدوكس في التقرير "قائمة مدفوعات المورد" (11507) كما يلي:
   التعليمات البرمجية الموجودة 1

   ...</Textbox>
   </ReportItems>
   </TableCell>
   </TableCells>
   <Visibility>
   
   // Delete the following line.
   <Hidden>=Fields!LinesperGrp.Value <> 1</Hidden>
   
   </Visibility>
   </TableRow>
   <TableRow>
   <Height>0.423cm</Height>
   <TableCells>
   ...
   

   استبدال رمز 1

   ...</Textbox>
   </ReportItems>
   </TableCell>
   </TableCells>
   <Visibility>
   
   // Add the following line.
   <Hidden>=(Fields!LinesperGrp.Value <> 1) OR (Fields!PrintInvoiceDetail_1.Value = "TRUE")</Hidden>
   
   </Visibility>
   </TableRow>
   <TableRow>
   <Height>0.423cm</Height>
   <TableCells>
   ...
   

   التعليمات البرمجية الموجودة 2

   ...</Textbox>
   </ReportItems>
   </TableCell>
   </TableCells>
   <Visibility>
   
   // Delete the following line.
   <Hidden>=Fields!LayoutInt.Value<>0</Hidden>
   
   </Visibility>
   </TableRow>
   <TableRow>
   <Height>0.423cm</Height>
   <TableCells>
   ...
   

   استبدال رمز 2

   ...</Textbox>
   </ReportItems>
   </TableCell>
   </TableCells>
   <Visibility>
   
   // Add the following line.
   <Hidden>=Fields!LayoutInt.Value<>0 OR(((Previous(Fields!Vendor_Ledger_Entry__Document_No__.Value) = Fields!Vendor_Ledger_Entry__Document_No__.Value)) AND Previous(Fields!Vendor_Ledger_Entry__Document_No__.Value)<> "")</Hidden>
   
   </Visibility>
   </TableRow>
   <TableRow>
   <Height>0.423cm</Height>
   <TableCells>
   ...
   

   التعليمات البرمجية الموجودة 3

   ...</Textbox>
   </ReportItems>
   </TableCell>
   </TableCells>
   <Visibility>
   
   // Delete the following line.
   <Hidden>=Fields!LayoutInt.Value<>0 Or IsNothing(Fields!TempVendorLedgerEntry__Document_Type__Control1150009.Value)</Hidden>
   
   </Visibility>
   </TableRow>
   </TableRows>
   </Details>
   <Footer>
   ...
   

   استبدال رمز 3

   ...</Textbox>
   </ReportItems>
   </TableCell>
   </TableCells>
   <Visibility>
   
   // Add the following line.
   <Hidden>=Fields!LayoutInt.Value<>0 OR NOT (Fields!PrintInvoiceDetail_1.Value = "TRUE")</Hidden>
   
   </Visibility>
   </TableRow>
   </TableRows>
   </Details>
   <Footer>
   ...
   

   التعليمات البرمجية الموجودة 4

   ...</Textbox>
   </ReportItems>
   </TableCell>
   </TableCells>
   <Visibility>
   
   // Delete the following line.
   <Hidden>=IIF(Sum(Fields!LinesperGrp.Value)>1,False,True)</Hidden>
   
   </Visibility>
   </TableRow>
   </TableRows>
   </Footer>
   <Grouping Name="Table1_Group">
   ...
   

   استبدال رمز 4

   ...</Textbox>
   </ReportItems>
   </TableCell>
   </TableCells>
   <Visibility>
   
   // Add the following line.
   <Hidden>=IIF(Last(Fields!LinesperGrp.Value)>1,False,True)</Hidden>
   
   </Visibility>
   </TableRow>
   </TableRows>
   </Footer>
   <Grouping Name="Table1_Group">
   ...
   

   التعليمات البرمجية الموجودة 5

   ...<DataField>TempVendorLedgerEntry__Document_No___Control1150008</DataField>
   </Field>
   <Field Name="TempVendorLedgerEntry__Document_Type__Control1150009">
   <DataField>TempVendorLedgerEntry__Document_Type__Control1150009</DataField>
   </Field>
   </Fields>
   <Query>
   <CommandText />
   <DataSourceName>DummyDataSource</DataSourceName>
   </Query>
   ...
   

   استبدال رمز 5

   ...<DataField>TempVendorLedgerEntry__Document_No___Control1150008</DataField>
   </Field>
   <Field Name="TempVendorLedgerEntry__Document_Type__Control1150009">
   <DataField>TempVendorLedgerEntry__Document_Type__Control1150009</DataField>
   </Field>
   
   // Add the following lines.
   <Field Name="PrintInvoiceDetail_1">
   <DataField>PrintInvoiceDetail_1</DataField>
   </Field>
   // End of the lines.
   
   </Fields>
   <Query>
   <CommandText />
   <DataSourceName>DummyDataSource</DataSourceName>
   </Query>
   ...