Αυτό το άρθρο ισχύει για το Microsoft Dynamics NAV για τις τοπικές ρυθμίσεις γλώσσας Γερμανικά (de).
Συμπτώματα
Στη γερμανική έκδοση του Microsoft Dynamics NAV με το πρόσθετο Πληρωμές περιλαμβάνονται, όταν δημιουργείτε ένα ξένο αρχείο πληρωμών, αντιμετωπίζετε τα ακόλουθα εσφαλμένα προβλήματα εξαγωγής:
- Ας υποθέσουμε ότι δημιουργείτε το ξένο αρχείο πληρωμών που έχει ένα λογαριασμό χρεώσεων. Εάν ο λογαριασμός χρέωσης διαφέρει από τον τραπεζικό λογαριασμό που χρησιμοποιείται για την πληρωμή, παρατηρείτε ότι ένας εσφαλμένος αριθμός τραπεζικού λογαριασμού εγγράφεται στο αρχείο πληρωμών.
- Το πεδίο V-Satz (10) στο αρχείο συμπληρώνεται απροσδόκητα με την ένδειξη "N". Αναμένετε ότι τα δεδομένα στο πεδίο θα είναι κενά.
- Το πεδίο T-Satz (10a) στο αρχείο συμπληρώνεται απροσδόκητα με την ένδειξη "DE". Αναμένετε ότι τα δεδομένα στο πεδίο θα είναι "Η.Π.Α", επειδή ο προμηθευτής είναι από τις ΗΠΑ και μόνο ο τραπεζικός λογαριασμός είναι σε γερμανικά (DE).
Αυτό το ζήτημα παρουσιάζεται στα ακόλουθα προϊόντα:
- Η γερμανική έκδοση του Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Η γερμανική έκδοση του Microsoft Dynamics NAV 2009 R2
Επίλυση
Πληροφορίες επείγουσας επιδιόρθωσης
Μια υποστηριζόμενη επείγουσα επιδιόρθωση είναι τώρα διαθέσιμη από τη 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.
Σημείωση Δεν χρειάζεται να έχετε δικαιώματα στους χώρους αποθήκευσης δεδομένων, εκτός εάν πρέπει να εκτελέσετε επιδιόρθωση δεδομένων.
Αλλαγές κώδικα
Σημείωση Ελέγχετε πάντα τις επιδιορθώσεις κώδικα σε ελεγχόμενο περιβάλλον, πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής σας.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:
Αλλάξτε τον κωδικό στη συνάρτηση Open ExportFile στη μονάδα κώδικα AZV (5001905) ως εξής:
Αλλάξτε τον ορισμό της καθολικής μεταβλητής ως εξήςΠαλαιός ορισμός: Dtaus : Κωδικός[150];
Νέος ορισμός: Dtaus : Κωδικός[260]·
Υπάρχων κώδικας
... CompanyInfo.GET; // Delete the following line. NameOfCompany := CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27)); FormatAddr.BankAcc(AddrArray,BankAccount); ...Κωδικός αντικατάστασης
... CompanyInfo.GET; // Add the following line. NameOfCompany := COPYSTR(CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27)),1,MAXSTRLEN(NameOfCompany)); FormatAddr.BankAcc(AddrArray,BankAccount); ...Αλλάξτε τον κωδικό στη συνάρτηση FormatBankAcc στη μονάδα κώδικα AZV (5001905) ως εξής:
Δημιουργήστε μια νέα τοπική μεταβλητή BankAccount3 ως εξής:BankAccount3@ : Εγγραφή 270
Υπάρχων κώδικας
... IF (PaymLedgEntry."Account No. Charges"<>") AND (PaymLedgEntry."Account No. Charges"<>PaymLedgEntry."Bank Account No.") THEN BEGIN // Delete the following lines. BankAccount.GET(PaymLedgEntry."Account No. Charges"); "Bank Code" := BankAccount."Bank Branch No."; IF STRLEN("Bank Code") = 0 THEN ERROR(Text1105400002,BankAccount."No."); BankCodeBank := FormatBankCode("Bank Code"); IF STRLEN(BankCodeBank) <> 8 THEN ERROR(Text1105400003,BankAccount."No."); BankCodeRec3 := BankCodeBank; Account := BankAccount."Bank Account No."; IF STRLEN(Account) = 0 THEN ERROR(Text1105400004,BankAccount."No."); AccountBank := FormatAccount(Account); IF STRLEN(AccountBank) >10 THEN ERROR( Text1105400005,BankAccount."No."); AccountRec3 := AccountBank; // End of the deleted lines. END ELSE BEGIN BankCodeRec3 := PADSTR('',8,'0'); AccountRec3 := PADSTR('',10,'0'); END; ...Κωδικός αντικατάστασης
... IF (PaymLedgEntry."Account No. Charges"<>") AND (PaymLedgEntry."Account No. Charges"<>PaymLedgEntry."Bank Account No.") THEN BEGIN // Add the following lines. BankAccount3.GET(PaymLedgEntry."Account No. Charges"); IF STRLEN(BankAccount3."Bank Branch No.") = 0 THEN ERROR(Text1105400002,BankAccount3."No."); BankCodeRec3 := FormatBankCode(BankAccount3."Bank Branch No."); IF STRLEN(BankCodeRec3) <> 8 THEN ERROR(Text1105400003,BankAccount3."No."); IF STRLEN(BankAccount3."Bank Account No.") = 0 THEN ERROR(Text1105400004,BankAccount3."No."); AccountRec3 := FormatAccount(BankAccount3."Bank Account No."); IF STRLEN(AccountRec3) >10 THEN ERROR( Text1105400005,BankAccount3."No."); //End of the added lines. END ELSE BEGIN BankCodeRec3 := PADSTR('',8,'0'); AccountRec3 := PADSTR('',10,'0'); END; ...Αλλάξτε τον κωδικό στη συνάρτηση VendBankFormat στη μονάδα κώδικα AZV (5001905) ως εξής:
Υπάρχων κώδικας... ERROR(Text1105400129,Country."Bank Country Code"); END; // Delete the following line. VendCountry := Country."Bank Country Code"; IF PostedAZV.IBAN <>'' THEN BEGIN Account := DELCHR(PostedAZV.IBAN); Account := CheckFormat(UPPERCASE(PADSTR(Account,34,' '))); ...Κωδικός αντικατάστασης
... ERROR(Text1105400129,Country."Bank Country Code"); END; // Add the following line. VendCountry := PostedAZV."Country Code"; IF PostedAZV.IBAN <> '' THEN BEGIN Account := DELCHR(PostedAZV.IBAN); Account := CheckFormat(UPPERCASE(PADSTR(Account,34,' '))); ...Αλλάξτε τον κωδικό στη συνάρτηση PaymFileHeader στη μονάδα κώδικα AZV (5001905) ως εξής:
Υπάρχων κώδικας... IF STRLEN(CompanyNo) <>8 THEN ERROR(Text1105400137,BankAccount."No."); END; Account := BankAccount."Bank Account No."; IF STRLEN(Account) = 0 THEN ...Κωδικός αντικατάστασης
... IF STRLEN(CompanyNo) <>8 THEN ERROR(Text1105400137,BankAccount."No."); // Add the following lines. END ELSE BEGIN IF CompanyNo = '' THEN CompanyNo := PADSTR('',8,'0'); // End of the added lines. END; Account := BankAccount."Bank Account No."; IF STRLEN(Account) = 0 THEN ...Αλλάξτε τον κωδικό στη συνάρτηση CreateRegistration στη μονάδα κώδικα AZV (5001905) ως εξής:
Διαγραφή της τοπικής μεταβλητής InfoTransitUnsalableInvL: Code[1]Υπάρχων κώδικας
... PassagingTransitL := 'N'; BrokenTransitL := 'N'; // Delete the following line. InfoTransitUnsalableInvL := 'N'; InfoTransitUnsalableForeignL := 'N'; IF RegistrationSet."Passaging Transit" THEN PassagingTransitL := 'J'; IF RegistrationSet."Broken Transit" THEN BEGIN BrokenTransitL := 'J'; RegistrationSet.TESTFIELD("Add. Information Transit"); Transit := COPYSTR(Transit,1,62) + PADSTR(CheckFormat(FORMAT(UPPERCASE(RegistrationSet."Add. Information Transit"),40)),40,' '); END; // Delete the following lines. IF RegistrationSet."Info Transit unsalable Inv" THEN InfoTransitUnsalableInvL := 'J'; // End of the deleted lines. IF RegistrationSet."Info Transit unsalable forei." THEN InfoTransitUnsalableForeignL := 'J'; Z := Text1105400025 + PADSTR(RegistrationSet."Itemname Trading Goods",27,' ') + NumToString(RegistrationSet."Capitel No. Goods",2,'0') + PADSTR('',7,'0') + PADSTR(BankCountries."Bank Country Short Name",7,' ') + PADSTR(RegistrationSet."Country Code",3,' ') + NumToString(FORMAT(ROUND(MAmount,1,'<'),12,1),12,'0') + PassagingTransitL + BrokenTransitL + // Delete the following line. InfoTransitUnsalableInvL + InfoTransitUnsalableForeignL + Transit; Exportfile.SEEK(Exportfile.POS-2); ...Κωδικός αντικατάστασης
... PassagingTransitL := 'N'; BrokenTransitL := 'N'; InfoTransitUnsalableForeignL := 'N'; IF RegistrationSet."Passaging Transit" THEN PassagingTransitL := 'J'; IF RegistrationSet."Broken Transit" THEN BEGIN BrokenTransitL := 'J'; RegistrationSet.TESTFIELD("Add. Information Transit"); Transit := COPYSTR(Transit,1,62) + PADSTR(CheckFormat(FORMAT(UPPERCASE(RegistrationSet."Add. Information Transit"),40)),40,' '); END; IF RegistrationSet."Info Transit unsalable forei." THEN InfoTransitUnsalableForeignL := 'J'; Z := Text1105400025 + PADSTR(RegistrationSet."Itemname Trading Goods",27,' ') + NumToString(RegistrationSet."Capitel No. Goods",2,'0') + PADSTR('',7,'0') + PADSTR(BankCountries."Bank Country Short Name",7,' ') + PADSTR(RegistrationSet."Country Code",3,' ') + NumToString(FORMAT(ROUND(MAmount,1,'<'),12,1),12,'0') + PassagingTransitL + BrokenTransitL + // Add the following line. PADSTR('',1,' ') + InfoTransitUnsalableForeignL + Transit; Exportfile.SEEK(Exportfile.POS-2); ...Αλλάξτε τον κωδικό στη συνάρτηση CheckFormat στη μονάδα κώδικα AZV (5001905) ως εξής:
Υπάρχων κώδικας... WHILE STRPOS(FieldContent,'š') >0 DO FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'š')-1) + Text1105400035 + COPYSTR(FieldContent,STRPOS(FieldContent,'š')+1,MAXSTRLEN(FieldContent)); CheckRec := DELCHR(FieldContent,'=',Text1105400036); ...Κωδικός αντικατάστασης
... WHILE STRPOS(FieldContent,'š') >0 DO FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'š')-1) + Text1105400035 + COPYSTR(FieldContent,STRPOS(FieldContent,'š')+1,MAXSTRLEN(FieldContent)); // Add the following lines. WHILE STRPOS(FieldContent,'&') > 0 DO FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'&')-1) + ' ' + COPYSTR(FieldContent,STRPOS(FieldContent,'&')+1,MAXSTRLEN(FieldContent)); WHILE STRPOS(FieldContent,'$') > 0 DO FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'$')-1) + ' ' + COPYSTR(FieldContent,STRPOS(FieldContent,'$')+1,MAXSTRLEN(FieldContent)); WHILE STRPOS(FieldContent,'*') > 0 DO FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'*')-1) + ' ' + COPYSTR(FieldContent,STRPOS(FieldContent,'*')+1,MAXSTRLEN(FieldContent)); WHILE STRPOS(FieldContent,'%') > 0 DO FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'%')-1) + ' ' + COPYSTR(FieldContent,STRPOS(FieldContent,'%')+1,MAXSTRLEN(FieldContent)); //End of the added lines. CheckRec := DELCHR(FieldContent,'=',Text1105400036); ...Αλλάξτε τον ορισμό της παραμέτρου Drive στη συνάρτηση CheckPaymFile στη μονάδα κώδικα AZV (5001905) ως εξής:
Παλαιός ορισμός: Dtaus : Δίσκος: Κωδικός[150];
Νέος ορισμός: Dtaus : Κίνηση: Κωδικός[250];
Αλλάξτε τον κωδικό στη συνάρτηση TestCompanyInfo στη μονάδα κώδικα AZV (5001905) ως εξής:
Υπάρχων κώδικας... CompanyInfo.GET; // Delete the following line. CompName := CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27)); BankAccount.GET(Bacc); "Bank Code" := BankAccount."Bank Branch No."; IF STRLEN("Bank Code") = 0 THEN ...Κωδικός αντικατάστασης
... CompanyInfo.GET; // Add the following line. CompName := COPYSTR(CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27)),1,MAXSTRLEN(CompName)); BankAccount.GET(Bacc); "Bank Code" := BankAccount."Bank Branch No."; IF STRLEN("Bank Code") = 0 THEN ...
Προαπαιτούμενα
Πρέπει να έχετε εγκατεστημένο ένα από τα ακόλουθα προϊόντα για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση:
- Η γερμανική έκδοση του Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Η γερμανική έκδοση του Microsoft Dynamics NAV 2009 R2
Πληροφορίες κατάργησης
Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.
Κατάσταση
Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα ζήτημα που αφορά τα προϊόντα της Microsoft που παρατίθενται στην ενότητα "Ισχύει για".
Παραπομπές
VSTF DynamicsNAV SE: 245257; 254071; 277428
Σημείωση Αυτό είναι ένα άρθρο "FAST PUBLISH" που δημιουργήθηκε απευθείας μέσα από τον οργανισμό υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν παρέχονται ως έχουν ως απάντηση σε αναδυόμενα ζητήματα. Ως αποτέλεσμα της ταχύτητας διάθεσής του, το υλικό μπορεί να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί ανά πάσα στιγμή χωρίς προειδοποίηση. Ανατρέξτε στους Όρους χρήσης για άλλα ζητήματα.