ค่าใน NumberOfEntries ที่จัดเก็บในไฟล์ SAF-T ที่สร้างขึ้นไม่ถูกต้องเมื่อคุณสร้างไฟล์ SAF-T ใน Microsoft Dynamics NAV เวอร์ชันโปรตุเกส

นำไปใช้กับ
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

บทความนี้ใช้กับ Microsoft Dynamics NAV สําหรับภาษาโปรตุเกส (pt)

อาการ

สมมติว่า คุณสร้างแฟ้ม SAF T ในรุ่นภาษาโปรตุเกสของ Microsoft Dynamics NAV เมื่อคุณตรวจสอบไฟล์ .xml ที่สร้างขึ้น คุณจะสังเกตเห็นว่าค่าใน NumberOfEntries ที่จัดเก็บไม่ถูกต้อง คุณคาดหวังว่าค่าจะเหมือนกับตัวเลขถ้าธุรกรรมในฐานข้อมูล
ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:

  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) เวอร์ชันภาษาโปรตุเกส
  • Microsoft Dynamics NAV 2009 R2 เวอร์ชันภาษาโปรตุเกส
  • Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1) เวอร์ชันภาษาโปรตุเกส

การแก้ปัญหา

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

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

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

            
          

ข้อมูลการติดตั้ง

Microsoft แสดงตัวอย่างการเขียนโปรแกรมสําหรับภาพประกอบเท่านั้น โดยไม่มีการรับประกันทั้งโดยชัดแจ้งหรือโดยนัย ซึ่งรวมถึงแต่ไม่จํากัดเพียงการรับประกันโดยนัยถึงความสามารถในเชิงพาณิชย์หรือความเหมาะสมสําหรับวัตถุประสงค์เฉพาะ บทความนี้จะถือว่าคุณคุ้นเคยกับภาษาการเขียนโปรแกรมที่กําลังแสดงอยู่ และมีเครื่องมือที่ใช้สําหรับสร้างและแก้ไขจุดบกพร่องของกระบวนการ วิศวกรฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายฟังก์ชันการทํางานของกระบวนการเฉพาะได้ แต่จะไม่ปรับเปลี่ยนตัวอย่างเหล่านี้เพื่อให้มีฟังก์ชันการทํางานที่เพิ่มขึ้นหรือสร้างขั้นตอนต่างๆ เพื่อตอบสนองความต้องการเฉพาะของคุณ

หมายเหตุ ก่อนที่คุณจะติดตั้งโปรแกรมแก้ไขด่วนนี้ ตรวจสอบว่าผู้ใช้ไคลเอนต์ Microsoft Navision ทั้งหมดออกจากระบบ ซึ่งรวมถึงผู้ใช้ไคลเอนต์ Microsoft Navision Application Services (NAS) คุณควรเป็นผู้ใช้ไคลเอนต์เท่านั้นที่เข้าสู่ระบบเมื่อคุณใช้โปรแกรมแก้ไขด่วนนี้

เมื่อต้องการใช้โปรแกรมแก้ไขด่วนนี้

เราขอแนะนําให้ใช้บัญชีผู้ใช้ในหน้าต่าง ล็อกอินของ Windows หรือในหน้าต่าง ล็อกอินของฐานข้อมูล ถูกกําหนด ID บทบาท "SUPER" หากบัญชีผู้ใช้ไม่สามารถกําหนดรหัสบทบาท "SUPER" ได้ คุณต้องตรวจสอบว่าบัญชีผู้ใช้มีสิทธิ์ต่อไปนี้:

  • สิทธิ์ในการปรับเปลี่ยนสําหรับวัตถุที่คุณจะเปลี่ยนแปลง
  • สิทธิ์ Execute สําหรับวัตถุ System Object ID 5210 และสําหรับวัตถุ System Object ID 9015

                
หมายเหตุ คุณไม่มีสิทธิ์ในที่เก็บข้อมูล เว้นแต่คุณจะต้องดําเนินการซ่อมแซมข้อมูล

การเปลี่ยนแปลงโค้ด

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

  1. เปลี่ยนรหัสในองค์ประกอบใน SAF-T PT XMLPort (13301) ดังนี้:

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

    ...
            { [{2FBD739B-4063-4410-80DA-15187CE38CB6}];5 ;CreditAmount        ;Element ;Text    ;
                                                        VariableName=EntriesSalesLnCreditAmount }
    
          { [{158561B4-B3C1-4D40-9FE8-2260247EFFE4}];1 ;SourceDocuments     ;Element ;Text    ;
                                                        Export::OnBeforePassVariable=BEGIN
                                                                                       IF TotalDocs = 0 THEN 
    ...
    

    รหัสทดแทน

    ...
           { [{2FBD739B-4063-4410-80DA-15187CE38CB6}];5 ;CreditAmount        ;Element ;Text    ;
                                                        VariableName=EntriesSalesLnCreditAmount }
    
    // Add the following lines.
         { [{3CD38B38-F1FA-494A-9863-2B919BF4B14B}];2 ;Journal             ;Element ;Table   ;
                                                       VariableName=EntriesBlankSourceCode;
                                                       SourceTable=Table2000000026;
                                                       Export::OnPreXMLItem=BEGIN
                                                                              EntriesBlankSourceCode.SETRANGE(Number,1,1);
                                                                              Window.UPDATE(1,Text1110008);
                                                                            END;
    
                                                       Export::OnAfterGetRecord=BEGIN
                                                                                  IF NOT CheckGLRegBlankSourceCode THEN
                                                                                    currXMLport.SKIP;
    
                                                                                  ClearTempRec;
    
                                                                                  REPEAT
                                                                                    GetGLEntries;
                                                                                  UNTIL TempGLReg.NEXT = 0;
    
                                                                                  EntriesBlankJnlID := 'VAZIO';
                                                                                  EntriesBlankJnlDescription := 'VAZIO';
                                                                                  Window.UPDATE(2,'');
                                                                                END;
                                                                                 }
    
         { [{4829023A-4C43-4746-B15E-55BE1C8A77BC}];3 ;JournalID           ;Element ;Text    ;
                                                       VariableName=EntriesBlankJnlID }
    
         { [{AC925688-8EBD-4477-BE49-731F4647CF75}];3 ;Description         ;Element ;Text    ;
                                                       VariableName=EntriesBlankJnlDescription }
    
         { [{EA486FCE-6103-4895-AE4A-A970D1AA69E5}];3 ;Transaction         ;Element ;Table   ;
                                                       VariableName=EntriesBlankTr;
                                                       SourceTable=Table2000000026;
                                                       Export::OnPreXMLItem=BEGIN
                                                                              TempGLEntry.RESET;
                                                                              EntriesBlankTr.SETRANGE(Number,1,TempGLEntry.COUNT);
                                                                              TempGLEntry.FINDFIRST;
                                                                            END;
    
                                                       Export::OnAfterGetRecord=BEGIN
                                                                                  ApplyFilters;
                                                                                  EntriesBlankTrID := FORMAT(FORMAT(TempGLEntry."Posting Date",0,9) + ' ' + EntriesBlankJnlID + ' ' + TempGLEntry."Document No.");
                                                                                  EntriesBlankDocArchivalNumber := TempGLEntry."Document No.";
                                                                                  EntriesBlankTrPeriod := FORMAT(GetPeriod(TempGLEntry."Posting Date"),0,9);
                                                                                  EntriesBlankTrDate := FORMAT(NORMALDATE(TempGLEntry."Posting Date"),0,9);
                                                                                  IF CLOSINGDATE(TempGLEntry."Posting Date") = TempGLEntry."Posting Date" THEN
                                                                                    EntriesBlankTransactionType := 'A'
                                                                                  ELSE
                                                                                    EntriesBlankTransactionType := 'N';
                                                                                  EntriesBlankTrDescription := EntriesBlankJnlDescription;
                                                                                  EntriesBlankGLPostingDate := GetGLentryCreationDateTime(TempGLEntry."Entry No.");
                                                                                  TempGLEntry.NEXT;
                                                                                END;
                                                                                 }
    
         { [{1A2E1328-2281-4276-B7F2-93032558BF4D}];4 ;TransactionID       ;Element ;Text    ;
                                                       VariableName=EntriesBlankTrID }
    
         { [{7238FAE0-4177-49F2-88D7-322E3479BEDF}];4 ;Period              ;Element ;Text    ;
                                                       VariableName=EntriesBlankTrPeriod }
    
         { [{CB2AE9CA-4533-4F21-A5F0-9DB125CCE6A7}];4 ;TransactionDate     ;Element ;Text    ;
                                                       VariableName=EntriesBlankTrDate }
    
         { [{06565DE9-009E-4CD1-9567-F869ADD6AF09}];4 ;Description         ;Element ;Text    ;
                                                       VariableName=EntriesBlankTrDescription }
    
         { [{FC7AF546-FDA6-4409-9A11-E8C3F08B0245}];4 ;DocArchivalNumber   ;Element ;Text    ;
                                                       VariableName=EntriesBlankDocArchivalNumber }
    
         { [{0D9858E8-71B7-4730-ACD3-208CB18E55D5}];4 ;TransactionType     ;Element ;Text    ;
                                                       VariableName=EntriesBlankTransactionType }
    
         { [{7A0CC2BE-C3C8-4EDA-A616-C17000B3631C}];4 ;GLPostingDate       ;Element ;Text    ;
                                                       VariableName=EntriesBlankGLPostingDate }
    
         { [{F7668B87-49B8-4CB6-8316-D1440A5E3ABA}];4 ;Line                ;Element ;Table   ;
                                                       VariableName=EntriesLinedBlankDbtAmt;
                                                       SourceTable=Table2000000026;
                                                       Export::OnPreXMLItem=BEGIN
                                                                              TempGLEntry2.SETFILTER("Debit Amount",'<>% 1',0);
                                                                              IF NOT TempGLEntry2.FINDFIRST THEN
                                                                                currXMLport.BREAK;
                                                                              EntriesLinedBlankDbtAmt.SETRANGE(Number,1,TempGLEntry2.COUNT);
                                                                            END;
    
                                                       Export::OnAfterGetRecord=BEGIN
                                                                                  EntriesLnBlankDbtAmtRecordID := FORMAT(TempGLEntry2."Entry No.",0,9);
                                                                                  EntriesLnBlankDbtAmtAccountID := TempGLEntry2."G/L Account No.";
                                                                                  EntriesLnBlankDbtAmtSysEntDate := GetGLentryCreationDateTime(TempGLEntry2."Entry No.");
                                                                                  EntriesLnBlankDbtAmtDescr := TempGLEntry2.Description;
                                                                                  EntriesLnBlankDebitAmount := FORMAT(TempGLEntry2."Debit Amount",0,9);
                                                                                  TempGLEntry2.NEXT;
                                                                                END;
                                                                                 }
    
         { [{455ABAA5-310A-4999-B349-FF32D14A1968}];5 ;RecordID            ;Element ;Text    ;
                                                       VariableName=EntriesLnBlankDbtAmtRecordID }
    
         { [{82412AE1-E33F-4DC9-837E-8E7AAEEFE2ED}];5 ;AccountID           ;Element ;Text    ;
                                                       VariableName=EntriesLnBlankDbtAmtAccountID }
    
         { [{448EE384-AF3E-4A02-AC66-373591BC28CD}];5 ;SystemEntryDate     ;Element ;Text    ;
                                                       VariableName=EntriesLnBlankDbtAmtSysEntDate }
    
         { [{9F8171F0-A12E-49B6-A00D-93745204EB23}];5 ;Description         ;Element ;Text    ;
                                                       VariableName=EntriesLnBlankDbtAmtDescr }
    
         { [{1BD67E80-3CC3-41DF-86B7-7A9FF3514B36}];5 ;DebitAmount         ;Element ;Text    ;
                                                       VariableName=EntriesLnBlankDebitAmount }
    
         { [{35FC60AD-0217-4D95-978A-FFAD08D66558}];4 ;Line                ;Element ;Table   ;
                                                       VariableName=EntriesLinedBlankCrAmt;
                                                       SourceTable=Table2000000026;
                                                       Export::OnPreXMLItem=BEGIN
                                                                              TempGLEntry2.SETRANGE("Debit Amount");
                                                                              TempGLEntry2.SETFILTER("Credit Amount",' <>%1',0);
                                                                              IF NOT TempGLEntry2.FINDFIRST THEN
                                                                                currXMLport.BREAK;
                                                                              EntriesLinedBlankCrAmt.SETRANGE(Number,1,TempGLEntry2.COUNT);
                                                                            END;
    
                                                       Export::OnAfterGetRecord=BEGIN
                                                                                  EntriesLnBlankCrAmtRecordID := FORMAT(TempGLEntry2."Entry No.",0,9);
                                                                                  EntriesLnBlankCrAmtAccountID := TempGLEntry2."G/L Account No.";
                                                                                  EntriesLnBlankCrAmtSysEntrDate := GetGLentryCreationDateTime(TempGLEntry2."Entry No.");
                                                                                  EntriesLnBlankCrAmtDescr := TempGLEntry2.Description;
                                                                                  EntriesLnBlankCreditAmount := FORMAT(TempGLEntry2."Credit Amount",0,9);
                                                                                  TempGLEntry2.NEXT;
                                                                                END;
                                                                                 }
    
         { [{42970CEB-47B1-4737-9067-5D8310FCFA39}];5 ;RecordID            ;Element ;Text    ;
                                                       VariableName=EntriesLnBlankCrAmtRecordID }
    
         { [{C236B36C-53F0-4FD1-ABCF-28828E216114}];5 ;AccountID           ;Element ;Text    ;
                                                       VariableName=EntriesLnBlankCrAmtAccountID }
    
         { [{AEC885C8-FCE9-4C04-BBFB-B1A6B7540DDA}];5 ;SystemEntryDate     ;Element ;Text    ;
                                                       VariableName=EntriesLnBlankCrAmtSysEntrDate }
    
         { [{D2F54DEF-3BF6-4F7F-BCB9-384A96BE514D}];5 ;Description         ;Element ;Text    ;
                                                       VariableName=EntriesLnBlankCrAmtDescr }
    
         { [{F1DA085A-9AC4-4DB4-AC54-DA77AFE7CCAD}];5 ;CreditAmount        ;Element ;Text    ;
                                                       VariableName=EntriesLnBlankCreditAmount }
    // End of the added lines.
    
          { [{158561B4-B3C1-4D40-9FE8-2260247EFFE4}];1 ;SourceDocuments     ;Element ;Text    ;
                                                        Export::OnBeforePassVariable=BEGIN
                                                                                       IF TotalDocs = 0 THEN
    ...
    
  2. เปลี่ยนโค้ดในฟังก์ชัน SetData ใน SAF-T PT XMLPort (13301) ดังนี้:

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

    ...
              GLEntry.RESET;
            // No. of transactions
            GetOpenGLRegister;
    // Delete the following lines.
           IF SourceCode.FINDSET THEN
             REPEAT
               IF CheckGLReg THEN
                 REPEAT
                   TempGLEntry3.DELETEALL;
                   GLEntry2.RESET;
                   GLEntry2.SETRANGE("Entry No.",TempGLReg."From Entry No.",TempGLReg."To Entry No.");
                   IF GLEntry2.FINDSET THEN
                     REPEAT
                       TempGLEntry3.RESET;
                       TempGLEntry3.SETCURRENTKEY("Document No.","Posting Date");
                       TempGLEntry3.SETRANGE("Document No.",GLEntry2."Document No.");
                       TempGLEntry3.SETRANGE("Posting Date",GLEntry2."Posting Date");
                       IF NOT TempGLEntry3.FINDFIRST THEN BEGIN
                         NoOfTransactions += 1;
                         TempGLEntry3.INIT;
                         TempGLEntry3.TRANSFERFIELDS(GLEntry2);
                         TempGLEntry3.INSERT;
                       END;
                     UNTIL GLEntry2.NEXT=0;
                 UNTIL TempGLReg.NEXT = 0;
             UNTIL SourceCode.NEXT = 0;
    // End of the deleted lines.
    
            // Sales Invoice Docs
            SalesInvoice.RESET;
            SalesInvoice.SETFILTER("Posting Date",'%1..%2',StartDate3,EndDate2);
    ...
    

    รหัสทดแทน

    ...
              GLEntry.RESET;
            // No. of transactions
            GetOpenGLRegister;
    // Add the following lines.
           TempGLEntry3.DELETEALL;
           IF SourceCode.FINDSET THEN
             REPEAT
               IF CheckGLReg THEN
                 REPEAT
                   CalcNoOfTransactions(TempGLReg."From Entry No.",TempGLReg."To Entry No.",TempGLEntry3);
                 UNTIL TempGLReg.NEXT = 0;
             UNTIL SourceCode.NEXT = 0;
    
           IF CheckGLRegBlankSourceCode THEN
             REPEAT
               CalcNoOfTransactions(TempGLReg."From Entry No.",TempGLReg."To Entry No.",TempGLEntry3);
             UNTIL TempGLReg.NEXT = 0;
    // End of the added lines.
    
            // Sales Invoice Docs
            SalesInvoice.RESET;
            SalesInvoice.SETFILTER("Posting Date",'%1..%2',StartDate3,EndDate2);
    ...
    
  3. เปลี่ยนรหัสในเอกสารประกอบใน SAF-T PT XMLPort (13301) ดังนี้:

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

    ...
           EXIT(FORMAT(DateParam,0,9) + 'T' + FORMAT(TimeParam,0,'<Hours24,2><Filler Character,0>:<Minutes,2>:<Seconds,2>'));
          END;
    
    // Delete the following lines.
         BEGIN
         END.
       }
     }
    // End of the deleted lines.
    ...
    

    รหัสทดแทน

    ...
           EXIT(FORMAT(DateParam,0,9) + 'T' + FORMAT(TimeParam,0,'<Hours24,2><Filler Character,0>:<Minutes,2>:<Seconds,2>'));
          END;
    // Add the following lines.
         LOCAL PROCEDURE CalcNoOfTransactions@1110021(FromEntryNo@1110000 : Integer;ToEntryNo@1110001 : Integer;VAR TempGLEntry@1110002 : Record 17);
         VAR
           GLEntry@1110003 : Record 17;
         BEGIN
           GLEntry.RESET;
           GLEntry.SETRANGE("Entry No.",TempGLReg."From Entry No.",TempGLReg."To Entry No.");
           IF GLEntry.FINDSET THEN
             REPEAT
               TempGLEntry.RESET;
               TempGLEntry.SETCURRENTKEY("Document No.","Posting Date");
               TempGLEntry.SETRANGE("Document No.",GLEntry."Document No.");
               TempGLEntry.SETRANGE("Posting Date",GLEntry."Posting Date");
               TempGLEntry.SETRANGE("Source Code",GLEntry."Source Code");
               IF NOT TempGLEntry.FINDFIRST THEN BEGIN
                 NoOfTransactions += 1;
                 TempGLEntry.INIT;
                 TempGLEntry.TRANSFERFIELDS(GLEntry);
                 TempGLEntry.INSERT;
               END;
             UNTIL GLEntry.NEXT=0;
         END;
    
         LOCAL PROCEDURE CheckGLRegBlankSourceCode@1110022() : Boolean;
         BEGIN
           TempGLReg.RESET;
           TempGLReg.SETFILTER("Posting Date",'%1..%2',StartDate3,CLOSINGDATE(EndDate2));
           TempGLReg.SETRANGE("Source Code",'');
           EXIT(TempGLReg.FINDFIRST);
         END;
    
         BEGIN
         END.
       }
     } 
    // End of the added lines.
    ...
    

ข้อกำหนดเบื้องต้น

คุณต้องติดตั้งผลิตภัณฑ์ใดผลิตภัณฑ์หนึ่งต่อไปนี้เพื่อใช้โปรแกรมแก้ไขด่วนนี้:

  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) เวอร์ชันภาษาโปรตุเกส
  • Microsoft Dynamics NAV 2009 R2 เวอร์ชันภาษาโปรตุเกส
  • Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1) เวอร์ชันภาษาโปรตุเกส

                
              

ลบข้อมูลออก

คุณไม่สามารถลบโปรแกรมแก้ไขด่วนนี้ได้

สถานะ

Microsoft ได้ยืนยันว่านี่เป็นปัญหาที่เกิดขึ้นกับผลิตภัณฑ์ของ Microsoft ที่แสดงไว้ในส่วน "นำไปใช้กับ"

การอ้างอิง

VSTF DynamicsNAV SE: 263721; 263722

หมายเหตุ นี่คือบทความ "เผยแพร่อย่างรวดเร็ว" ที่สร้างขึ้นโดยตรงจากภายในองค์กรสนับสนุนของ Microsoft ข้อมูลที่อยู่ในที่นี้มีให้เพื่อตอบสนองต่อปัญหาที่เกิดขึ้นใหม่ เนื่องจากความเร็วในการทําให้พร้อมใช้งานวัสดุอาจรวมถึงข้อผิดพลาดในการพิมพ์และอาจได้รับการแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดู ข้อตกลงการใช้งาน สําหรับข้อควรพิจารณาอื่นๆ