Αυτό το άρθρο ισχύει για το 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 του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.
Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που προκύπτουν κανονικά για κλήσεις υποστήριξης ενδέχεται να ακυρωθούν, εάν ένας επαγγελματίας τεχνικής υποστήριξης για το Microsoft Dynamics και τα σχετικά προϊόντα προσδιορίσει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση, θα ισχύσουν οι συνηθισμένες χρεώσεις υποστήριξης.
Πληροφορίες εγκατάστασης
Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για απεικόνιση, χωρίς καμία εγγύηση, ρητή ή σιωπηρή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που επιδεικνύεται και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας βοηθήσουν να εξηγήσετε τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παρέχουν πρόσθετες λειτουργίες ούτε θα δημιουργήσουν διαδικασίες για να ικανοποιήσουν τις συγκεκριμένες απαιτήσεις σας.
Σημείωση Πριν να εγκαταστήσετε αυτήν την επείγουσα επιδιόρθωση, βεβαιωθείτε ότι όλοι οι χρήστες προγράμματος-πελάτη Microsoft Navision έχουν αποσυνδεθεί από το σύστημα. Αυτό περιλαμβάνει χρήστες προγράμματος-πελάτη Microsoft Navision Application Services (NAS). Θα πρέπει να είστε ο μόνος χρήστης-πελάτης που είναι συνδεδεμένος όταν υλοποιείτε αυτήν την επείγουσα επιδιόρθωση.
Για να υλοποιήσετε αυτήν την επείγουσα επιδιόρθωση, πρέπει να έχετε άδεια προγραμματιστή.
Συνιστούμε ο λογαριασμός χρήστη στο παράθυρο Συνδέσεις των Windows ή στο παράθυρο Συνδέσεις βάσης δεδομένων να έχει το αναγνωριστικό ρόλου "SUPER". Εάν δεν είναι δυνατή η εκχώρηση του αναγνωριστικού ρόλου "SUPER" στο λογαριασμό χρήστη, πρέπει να επαληθεύσετε ότι ο λογαριασμός χρήστη έχει τα ακόλουθα δικαιώματα:
- Το δικαίωμα τροποποίησης για το αντικείμενο που θα αλλάξετε.
- Το δικαίωμα εκτέλεσης για το αντικείμενο αναγνωριστικού αντικειμένου συστήματος 5210 και για το αντικείμενο αναγνωριστικού αντικειμένου συστήματος 9015.
Σημείωση Δεν χρειάζεται να έχετε δικαιώματα στους χώρους αποθήκευσης δεδομένων, εκτός εάν πρέπει να εκτελέσετε επιδιόρθωση δεδομένων.
Αλλαγές κώδικα
Σημείωση Ελέγχετε πάντα τις επιδιορθώσεις κώδικα σε ελεγχόμενο περιβάλλον, πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής σας.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:
Αλλάξτε τον κώδικα στα στοιχεία στο 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 ...Αλλάξτε τον κωδικό της συνάρτησης 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); ...Αλλάξτε τον κώδικα στην τεκμηρίωση του 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
Σημείωση Αυτό είναι ένα άρθρο "FAST PUBLISH" που δημιουργήθηκε απευθείας μέσα από τον οργανισμό υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν παρέχονται ως έχουν ως απάντηση σε αναδυόμενα ζητήματα. Ως αποτέλεσμα της ταχύτητας διάθεσής του, το υλικό μπορεί να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί ανά πάσα στιγμή χωρίς προειδοποίηση. Ανατρέξτε στους Όρους χρήσης για άλλα ζητήματα.