รายงานรายชื่อรายการบัญชีผู้จัดจำหน่ายแสดงใบลดหนี้ใน Microsoft Dynamics NAV 2009 รุ่นภาษาอิตาลี

ข้อมูลโปรแกรมแก้ไขด่วน

โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก Microsoft อย่างไรก็ตาม มีเป้าหมายเพียงเพื่อการแก้ไขปัญหาที่อธิบายไว้ในบทความนี้ นำวิธีนี้ไปใช้กับระบบที่ประสบกับปัญหาที่เฉพาะเจาะจงเท่านั้น โปรแกรมแก้ไขด่วนนี้อาจได้รับการทดสอบเพิ่มเติม ดังนั้น ถ้าคุณจะไม่รุนแรงได้รับผลกระทบจากปัญหานี้ เราขอแนะนำให้ คุณรอ service pack ถัดไปของ Microsoft Dynamics NAV 2009 หรือเวอร์ชันถัดไป Microsoft Dynamics NAV ที่ประกอบด้วยโปรแกรมแก้ไขด่วนนี้

หมายเหตุ ในกรณีพิเศษ ค่าธรรมเนียมค่าใช้จ่ายสำหรับการสนับสนุนโทรศัพท์อาจถูกยกเลิกถ้า Technical Support Professional สำหรับ Microsoft Dynamics และผลิตภัณฑ์ที่เกี่ยวข้องตรวจพบว่าการปรับปรุงเฉพาะจะแก้ปัญหาของคุณ ค่าใช้จ่ายในการสนับสนุนตามปกติจะใช้กับคำถามและปัญหาในการสนับสนุนเพิ่มเติมซึ่งไม่สอดคล้องตามเกณฑ์สำหรับโปรแกรมปรับปรุงเฉพาะที่เกี่ยวข้อง

การเปลี่ยนแปลงรหัส

หมายเหตุทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมเสมอก่อนที่คุณแก้ไขการนำไปใช้กับคอมพิวเตอร์ของคุณผลิต เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:

1. เปลี่ยนรหัสในรายงานรายการบิลของบัญชีผู้จัดจำหน่าย (12116) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...        OnAfterGetRecord=BEGIN
                              CALCFIELDS("Amount (LCY)","Remaining Amt. (LCY)");
   
   // Delete the following line.
                              IF ((OnlyOpened) OR ("Document Type" IN ["Document Type"::Payment,"Document Type"::"Credit Memo","Document Type"::" "])) AND
   
                                ("Remaining Amt. (LCY)" = 0)
                              THEN
                                CurrReport.SKIP;
   ...
   
   

   รหัสแทนที่ 1

   ...        OnAfterGetRecord=BEGIN
                              CALCFIELDS("Amount (LCY)","Remaining Amt. (LCY)");
   
   // Add the following line.
                              IF ((OnlyOpened) OR ("Document Type" IN ["Document Type"::Payment,"Document Type"::Refund,"Document Type"::" "])) AND
   
                                ("Remaining Amt. (LCY)" = 0)
                              THEN
                                CurrReport.SKIP;
   ...
   
   

   รหัสที่มีอยู่ 2

   ...                           RemainingAmountLCY := 0;
                              VendorBillAmnt := 0;
   
   // Delete the following lines.
                              IF ("Document Type" = "Document Type"::Invoice) OR
                                 ("Document Type" = "Document Type"::"Finance Charge Memo") OR
                                 ("Document Type" = "Document Type"::Reminder)
   // End of the lines.
   
                              THEN BEGIN
                                //TotalClosedByAmntLCY := "Remaining Amt. (LCY)"; //IT0002 - IT0004
                                TotalForVendor := TotalForVendor + "Amount (LCY)";
   ...
   
   

   รหัสแทนที่ 2

   ...                           RemainingAmountLCY := 0;
                              VendorBillAmnt := 0;
   
   // Add the following lines.
                               IF "Document Type" IN
                                  ["Document Type"::Invoice,
                                   "Document Type"::"Credit Memo",
                                   "Document Type"::"Finance Charge Memo",
                                   "Document Type"::Reminder]
   // End of the lines.
   
                              THEN BEGIN
                                //TotalClosedByAmntLCY := "Remaining Amt. (LCY)"; //IT0002 - IT0004
                                TotalForVendor := TotalForVendor + "Amount (LCY)";
   ...
   
   

   รหัสที่มีอยู่ 3

   ...                      END;
   
           OnAfterGetRecord=BEGIN
                              // IT0003.begin
                              VendLedgEntry3.GET("Applied Vend. Ledger Entry No.");
                              VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
   ...
   
   

   รหัสแทนที่ 3

   ...                      END;
   
           OnAfterGetRecord=BEGIN
   
   // Add the following lines.
                               IF ("Entry No." = 0) OR ("Unapplied by Entry No." <> 0) OR
                                  ("Document Type" IN ["Document Type"::Payment,"Document Type"::Refund,"Document Type"::" "])
                               THEN
                                 ShowDetailedVendorLedgerEntry := TRUE
                               ELSE
                                 ShowDetailedVendorLedgerEntry := FALSE;
   // End of the lines.
   
                              // IT0003.begin
                              VendLedgEntry3.GET("Applied Vend. Ledger Entry No.");
                              VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
   ...
   
   

   รหัสที่มีอยู่ 4

   ...            SectionWidth=27750;
               SectionHeight=846;
               OnPreSection=BEGIN
   
   // Delete the following lines.
                               // IT0008.begin
                               // IT0011.begin
                               IF (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::Payment) OR
                                  (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::"Credit Memo") OR
                                  (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::" ") OR
                                  ("Unapplied by Entry No." <> 0)
                               THEN
                               // IT0011.end
                                 CurrReport.SHOWOUTPUT(FALSE)
                               ELSE
                                 CurrReport.SHOWOUTPUT(TRUE);
                               // IT0008.end
                               // IT0009.begin
                               //IF ("Unapplied by Entry No." <> 0) THEN
                               //  CurrReport.SHOWOUTPUT(FALSE);
                               // IT0009.end
   // End of the lines.
   
                            END;
   
             }
   ...
   
   

   รหัสแทนที่ 4

   ...            SectionWidth=27750;
               SectionHeight=846;
               OnPreSection=BEGIN
   
   // Add the following line.
                               CurrReport.SHOWOUTPUT(ShowDetailedVendorLedgerEntry)
   
                            END;
   
             }
   ...
   
   

   รหัสที่มีอยู่ 5

   ...                                                         ForeColor=65535;
                                                            SourceExpr="Unapplied by Entry No.";
                                                            DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }
             }
              }
           { PROPERTIES
   ...
   
   

   รหัสแทนที่ 5

   ...                                                         ForeColor=65535;
                                                            SourceExpr="Unapplied by Entry No.";
                                                            DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }
   
   // Add the following lines.
                { 1130084;TextBox   ;27150;0    ;150  ;423  ;Visible=No;
                                                             SourceExpr=ShowDetailedVendorLedgerEntry;
                                                             DataSetFieldName=ShowDetailedVendorLedgerEntry }
   // End of the lines.
   
             }
              }
           { PROPERTIES
   ...
   
   

2. เปลี่ยนรหัสของตัวแปรส่วนกลางในรายงานรายการบิลของบัญชีผู้จัดจำหน่าย (12116) เป็นดังนี้:
   รหัสที่มีอยู่

   ...      TotalVendorBillAmnt@1130010 : Decimal;
         VendLedgEntry3@1130011 : Record 25;
         VendorLedgerEmtryTypeINT@1102601000 : Integer;
   
       BEGIN
       {
   ...
   
   

   รหัสแทน

   ...      TotalVendorBillAmnt@1130010 : Decimal;
         VendLedgEntry3@1130011 : Record 25;
         VendorLedgerEmtryTypeINT@1102601000 : Integer;
   
   // Add the following line.
          ShowDetailedVendorLedgerEntry@1130012 : Boolean INDATASET;
   
       BEGIN
       {
   ...
   
   

3. เปลี่ยนรหัสในรายงานรายการบิลของบัญชีผู้จัดจำหน่าย (12116) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...                    </TableCell>
                     </TableCells>
                     <Visibility>
   
   // Delete the following lines.
                        <Hidden>=IIF(Fields!Detailed_Vendor_Ledg__Entry_Entry_No_.Value=0 OR 
                    Fields!Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__.Value<>0 OR
                    Fields!VendLedgEntry1_DocumentType.Value="1" OR
                    Fields!VendLedgEntry1_DocumentType.Value="3" OR
                    Fields!VendLedgEntry1_DocumentType.Value="0",
                    TRUE,FALSE)</Hidden>
   // End of the lines.
   
                     </Visibility>
                   </TableRow>
                   <TableRow>
   ...
   
   

   รหัสแทนที่ 1

   ...                    </TableCell>
                     </TableCells>
                     <Visibility>
   
   // Add the following line.
                        <Hidden>=IIF(Fields!ShowDetailedVendorLedgerEntry.Value,TRUE,FALSE)</Hidden>
   
                     </Visibility>
                   </TableRow>
                   <TableRow>
   ...
   
   

   รหัสที่มีอยู่ 2

   ...        <Field Name="Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_">
             <DataField>Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_</DataField>
           </Field>
         </Fields>
         <Query>
           <CommandText />
   ...
   
   

   รหัสแทนที่ 2

   ...        <Field Name="Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_">
             <DataField>Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_</DataField>
           </Field>
   
   // Add the following lines.
            <Field Name="ShowDetailedVendorLedgerEntry">
              <DataField>ShowDetailedVendorLedgerEntry</DataField>
            </Field>
   // End of the lines.
   
         </Fields>
         <Query>
           <CommandText />
   ...