Σφάλματα επικύρωσης όταν χρησιμοποιείτε το περιβάλλον εργασίας Digipoort στην ολλανδική έκδοση του Microsoft Dynamics NAV 2009

Πληροφορίες άμεσης επιδιόρθωσης

Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.

Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που υφίστανται κανονικά για κλήσεις υποστήριξης ενδέχεται να να ακυρωθούν, εάν έναν επαγγελματία τεχνικής υποστήριξης για το Microsoft Dynamics και σχετικά προϊόντα προσδιορίζει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Οι συνηθισμένες χρεώσεις υποστήριξης θα ισχύει για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση.

Πληροφορίες εγκατάστασης

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, είτε σιωπηρή είτε ρητή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία διαδικασιών και τον εντοπισμό σφαλμάτων σε αυτές. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας. Ωστόσο, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.

Σημείωση Πριν να εγκαταστήσετε αυτήν την επείγουσα επιδιόρθωση, επιβεβαιώστε ότι όλοι οι χρήστες προγράμματος-πελάτη Microsoft Dynamics NAV έχουν αποσυνδεθεί από το σύστημα. Αυτό περιλαμβάνει υπηρεσίες Microsoft Dynamics NAV εφαρμογών διακομιστή (NAS). Θα πρέπει να το πρόγραμμα-πελάτη μόνο χρήστη που είναι συνδεδεμένος κατά την εφαρμογή αυτής της επείγουσας επιδιόρθωσης.

Για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση, πρέπει να έχετε μια άδεια χρήσης του προγραμματιστή.

Συνιστούμε ότι ο λογαριασμός χρήστη στο παράθυρο "Συνδέσεις Windows" ή στο παράθυρο συνδέσεις βάσης δεδομένων να αντιστοιχιστεί το "SUPER" αναγνωριστικό ρόλου. Εάν ο λογαριασμός χρήστη δεν μπορεί να αντιστοιχιστεί το Αναγνωριστικό ρόλου "SUPER", πρέπει να επαληθεύσετε ότι ο λογαριασμός χρήστη έχει τα ακόλουθα δικαιώματα:

• Το δικαίωμα "Τροποποίηση" για το αντικείμενο που θα αλλάξετε.

• Τα δικαιώματα εκτέλεσης για το αντικείμενο 5210 Αναγνωριστικό αντικειμένου συστήματος και για την 9015 Αναγνωριστικό αντικειμένου συστήματος
  
  το αντικείμενο.

Σημείωση Δεν πρέπει να έχετε δικαιώματα για τους χώρους αποθήκευσης δεδομένων, εκτός και αν έχετε να εκτελέσετε επιδιόρθωση δεδομένων.

Αλλαγές κώδικα

Σημείωση Πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής.

Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:

1. Αλλάξτε τον κωδικό της εκτύπωσης δημιουργία δήλωση ICP Elec. (11404) ως εξής:
   Υπάρχοντα κωδικό 1

   ...ElecTaxDeclarationHeader@1000000 : Record 11409;
                              ApplicationManagement@1000001 : Codeunit 1;
                              UseVATRegNo@1000010 : Text[20];
                            BEGIN
                              IF Status > Status::Created THEN
                                ERROR(StatusErr);
   ...
   

   Αντικατάσταση κώδικα 1

   ...ElecTaxDeclarationHeader@1000000 : Record 11409;
                              ApplicationManagement@1000001 : Codeunit 1;
                              UseVATRegNo@1000010 : Text[20];
                              StreetName@1000002 : Text[50];
                              HouseNo@1000003 : Text[50];
                              AdditionHouseNo@1000004 : Text[50];
                              ContactPrefix@1000011 : Text[35];
                            BEGIN
                              IF Status > Status::Created THEN
                                ERROR(StatusErr);
   ...
   

   Υπάρχοντα κώδικα 2

   ...// zbrli:xbrl->bd-ob:VATIdentificationNumberNLFiscalEntityDivision
                              IF ElecTaxDeclarationSetup."Part of Fiscal Entity" THEN BEGIN
                                IF COPYSTR(
                                     UPPERCASE(CompanyInfo."VAT Registration No."),
                                     1,STRLEN(CompanyInfo."Country/Region Code")) = CompanyInfo."Country/Region Code"
                                THEN
                                  CompanyInfo."VAT Registration No." := DELSTR(CompanyInfo."VAT Registration No.",1,STRLEN(CompanyInfo."Country/Region Code"));
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-ob:VATIdentificationNumberNLFiscalEntityDivision',
                                  CompanyInfo."VAT Registration No.",'','Msg','');
                              END;
   
                              // zbrli:xbrl->bd-alg:Contact*
   ...
   

   Αντικατάσταση κώδικα 2

   ...// zbrli:xbrl->bd-ob:VATIdentificationNumberNLFiscalEntityDivision
                              IF ElecTaxDeclarationSetup."Part of Fiscal Entity" THEN BEGIN
                                IF COPYSTR(
                                     UPPERCASE(CompanyInfo."Fiscal Entity No."),
                                     1,STRLEN(CompanyInfo."Country/Region Code")) = CompanyInfo."Country/Region Code"
                                THEN
                                  CompanyInfo."Fiscal Entity No." := DELSTR(CompanyInfo."Fiscal Entity No.",1,STRLEN(CompanyInfo."Country/Region Code"));
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-ob:VATIdentificationNumberNLFiscalEntityDivision',
                                  CompanyInfo."Fiscal Entity No.",'','Msg','');
                              END;
   
                              // zbrli:xbrl->bd-alg:Contact*
   ...
   

   Υπάρχοντα κώδικα 3

   ...IF ElecTaxDeclarationSetup."ICP Contact Type" = ElecTaxDeclarationSetup."ICP Contact Type"::"Tax Payer" THEN BEGIN
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactInitials',
                                  ExtractInitials(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPrefix',
                                  ExtractNamePrefix(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactSurname',
                                  ExtractSurname(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
   ...
   

   Αντικατάσταση κώδικα 3

   ...IF ElecTaxDeclarationSetup."ICP Contact Type" = ElecTaxDeclarationSetup."ICP Contact Type"::"Tax Payer" THEN BEGIN
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactInitials',
                                  ExtractInitials(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
                                ContactPrefix := ExtractNamePrefix(ElecTaxDeclarationSetup."Tax Payer Contact Name");
                                IF ContactPrefix <> '' THEN
                                  InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPrefix',ContactPrefix,'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactSurname',
                                  ExtractSurname(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
   ...
   

   Υπάρχοντα κωδικό 4

   ...ExtractSurname(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
                                  ElecTaxDeclarationSetup."Tax Payer Contact Phone No.",'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactStreetNameNL',
                                  ExtractStreetName(CompanyInfo.Address),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberNL',
                                  ExtractStreetNo(CompanyInfo.Address),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPostalCodeNL',
                                  DELCHR(CompanyInfo."Post Code",'=',' '),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPlaceOfResidenceNL',
   ...
   

   Αντικατάσταση κώδικα 4

   ...ExtractSurname(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
                                  ElecTaxDeclarationSetup."Tax Payer Contact Phone No.",'','Msg','');
   
                                PostCodeMgt.ParseAddressAdditionHouseNo(StreetName,HouseNo,AdditionHouseNo,CompanyInfo.Address);
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactStreetNameNL',StreetName,'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberNL',HouseNo,'','Msg','');
                                IF AdditionHouseNo <> '' THEN
                                  InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberAddition',AdditionHouseNo,'','Msg','');
   
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPostalCodeNL',
                                  DELCHR(CompanyInfo."Post Code",'=',' '),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPlaceOfResidenceNL',
   ...
   

   Υπάρχοντα κώδικα 5

   ...END ELSE BEGIN
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactInitials',
                                  ExtractInitials(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPrefix',
                                  ExtractNamePrefix(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactSurname',
                                  ExtractSurname(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
   ...
   

   Αντικατάσταση κώδικα 5

   ...END ELSE BEGIN
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactInitials',
                                  ExtractInitials(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
                                ContactPrefix := ExtractNamePrefix(ElecTaxDeclarationSetup."Agent Contact Name");
                                IF ContactPrefix <> '' THEN
                                  InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPrefix',ContactPrefix,'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactSurname',
                                  ExtractSurname(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
   ...
   

   Υπάρχοντα κώδικα 6

   ...ElecTaxDeclarationSetup."Agent Contact Phone No.",'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:TaxConsultantNumber',
                                  ElecTaxDeclarationSetup."Agent Contact ID",'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactStreetNameNL',
                                  ExtractStreetName(ElecTaxDeclarationSetup."Agent Contact Address"),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberNL',
                                  ExtractStreetNo(ElecTaxDeclarationSetup."Agent Contact Address"),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPostalCodeNL',
                                  DELCHR(ElecTaxDeclarationSetup."Agent Contact Post Code",'=',' '),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPlaceOfResidenceNL',
   ...
   

   Αντικατάσταση κώδικα 6

   ...ElecTaxDeclarationSetup."Agent Contact Phone No.",'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:TaxConsultantNumber',
                                  ElecTaxDeclarationSetup."Agent Contact ID",'','Msg','');
   
                                PostCodeMgt.ParseAddressAdditionHouseNo(
                                  StreetName,HouseNo,AdditionHouseNo,ElecTaxDeclarationSetup."Agent Contact Address");
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactStreetNameNL',StreetName,'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberNL',HouseNo,'','Msg','');
                                IF AdditionHouseNo <> '' THEN
                                  InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberAddition',AdditionHouseNo,'','Msg','');
   
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPostalCodeNL',
                                  DELCHR(ElecTaxDeclarationSetup."Agent Contact Post Code",'=',' '),'','Msg','');
                                InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPlaceOfResidenceNL',
   ...
   

   Υπάρχοντα κώδικα 7

   ...SETRANGE("VAT Registration No.", "VAT Registration No.");
                              CALCSUMS(Base);
   
                              "Elec. Tax Declaration Header".InsertLine(0,1,CurrentType,'');
                              InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:CountryCodeISO-EC',
                                COPYSTR("Country/Region Code",1,2),'','Msg','');
   
                              IF COPYSTR(UPPERCASE("VAT Registration No."),1,STRLEN("Country/Region Code")) = "Country/Region Code" THEN
                                "VAT Registration No." := DELSTR("VAT Registration No.",1,STRLEN("Country/Region Code"));
                              InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:SuppliesAmount',
                                FORMAT(-Base,0,'<Sign><Integer>'),'INF','Msg','EUR');
                              InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:VATIdentificationNumberNational',
                                "VAT Registration No.",'','Msg','');
   
                              FIND('+');
                              SETRANGE("Country/Region Code");
   ...
   

   Αντικατάσταση κώδικα 7

   ...SETRANGE("VAT Registration No.", "VAT Registration No.");
                              CALCSUMS(Base);
   
                              IF ABS(Base) >= 1 THEN BEGIN
                                "Elec. Tax Declaration Header".InsertLine(0,1,CurrentType,'');
                                InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:CountryCodeISO-EC',
                                  COPYSTR("Country/Region Code",1,2),'','Msg','');
   
                                IF COPYSTR(UPPERCASE("VAT Registration No."),1,STRLEN("Country/Region Code")) = "Country/Region Code" THEN
                                  "VAT Registration No." := DELSTR("VAT Registration No.",1,STRLEN("Country/Region Code"));
   
                                CASE Integer.Number OF
                                  0,2:
                                    InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:SuppliesAmount',
                                      FORMAT(-Base,0,'<Sign><Integer>'),'INF','Msg','EUR');
                                  1:
                                    InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:ServicesAmount',
                                      FORMAT(-Base,0,'<Sign><Integer>'),'INF','Msg','EUR');
                                END;
                                InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:VATIdentificationNumberNational',
                                  "VAT Registration No.",'','Msg','');
                              END;
   
                              FIND('+');
                              SETRANGE("Country/Region Code");
   ...
   

2. Να αλλάξετε τον κωδικό σε καθολικές μεταβλητές της εκτύπωσης δημιουργία δήλωση ICP Elec. (11404) ως εξής:
   Υπάρχοντα κώδικα

   ...CompanyInfo@1000003 : Record 79;
         ElecTaxDeclarationSetup@1000001 : Record 11408;
         StatusErr@1000005 : TextConst 'ENU=The report status need to have value " " or Created to create the report content.';
         CurrentType@1000000 : Text[60];
   
       LOCAL PROCEDURE GetStrippedAppVersion@1101100000(AppVersion@1101100001 : Text[250]) Res : Text[250];
   ...
   

   Αντικατάσταση κώδικα

   ...CompanyInfo@1000003 : Record 79;
         ElecTaxDeclarationSetup@1000001 : Record 11408;
         StatusErr@1000005 : TextConst 'ENU=The report status need to have value " " or Created to create the report content.';
         PostCodeMgt@1000002 : Codeunit 11401;
         CurrentType@1000000 : Text[60];
   
       LOCAL PROCEDURE GetStrippedAppVersion@1101100000(AppVersion@1101100001 : Text[250]) Res : Text[250];
   ...
   

3. Αλλάξτε τον κωδικό στη συνάρτηση ExtractStreetName στην εκτύπωση Δημιουργία δήλωση ICP Elec. (11404) ως εξής:
   Υπάρχοντα κώδικα

   ...ElecTaxDeclHeader.InsertLine(1,Indentation + 1,'unitRef',unitRef);
       END;
   
       LOCAL PROCEDURE ExtractStreetName@1000013(Address@1000000 : Text[50]) : Text[50];
       BEGIN
         IF IndexOfFirstNumber(Address) > 1 THEN
           EXIT(COPYSTR(Address,1,IndexOfFirstNumber(Address) - 2));
         EXIT(Address);
       END;
   
       LOCAL PROCEDURE ExtractStreetNo@1000012(Address@1000000 : Text[50]) : Text[50];
       BEGIN
         IF IndexOfFirstNumber(Address) > 0 THEN
           EXIT(COPYSTR(Address,IndexOfFirstNumber(Address)));
         EXIT('');
       END;
   
       LOCAL PROCEDURE ExtractInitials@1000014(FullName@1000000 : Text[35]) Initials : Text[30];
       VAR
         Pos@1000001 : Integer;
   ...
   

   Αντικατάσταση κώδικα

   ...ElecTaxDeclHeader.InsertLine(1,Indentation + 1,'unitRef',unitRef);
       END;
   
       LOCAL PROCEDURE ExtractInitials@1000014(FullName@1000000 : Text[35]) Initials : Text[30];
       VAR
         Pos@1000001 : Integer;
   ...
   

4. Αλλάξτε τον κωδικό στη συνάρτηση IndexOfFirstNumber στην εκτύπωση Δημιουργία δήλωση ICP Elec. (11404) ως εξής:
   Υπάρχοντα κώδικα

   ...Surname := COPYSTR(FullName,STRPOS(FullName,' ') + 1);
       END;
   
       LOCAL PROCEDURE IndexOfFirstNumber@1000017(Str@1000000 : Text[50]) : Integer;
       VAR
         Index@1000001 : Integer;
       BEGIN
         FOR Index := 1 TO STRLEN(Str) DO BEGIN
           IF Str[Index] IN ['0'..'9'] THEN
             EXIT(Index);
         END;
         EXIT(0);
       END;
   
       BEGIN
       END.
     }
   ...
   

   Αντικατάσταση κώδικα

   ...Surname := COPYSTR(FullName,STRPOS(FullName,' ') + 1);
       END;
   
       BEGIN
       END.
     }
   ...
   

5. Αλλάξτε τον κωδικό στη συνάρτηση ParseAddressAdditionHouseNo στη μονάδα κώδικα ταχυδρομικό κώδικα διαχείρισης (11401) ως εξής:
   Υπάρχοντα κώδικα

   ...EXIT(TRUE);
       END;
   
       BEGIN
       {
         <changelog>
   ...
   

   Αντικατάσταση κώδικα

   ...EXIT(TRUE);
       END;
   
       PROCEDURE ParseAddressAdditionHouseNo@1000003(VAR StreetName@1000001 : Text[50];VAR HouseNo@1000002 : Text[50];VAR AdditionHouseNo@1000003 : Text[50];Address@1000000 : Text[50]);
       VAR
         HouseString@1000004 : Text[50];
       BEGIN
         StreetName := '';
         HouseNo := '';
         AdditionHouseNo := '';
         IF Address = '' THEN
           EXIT;
   
         // Suppose that house string is a last word in the Address
         HouseString := GetHouseString(Address);
   
         IF HouseString = '' THEN BEGIN
           StreetName := Address;
           EXIT;
         END;
   
         // The last word is a House string with possible AdditionHouseNo information. All before last word is a StreetName.
         StreetName := COPYSTR(Address,1,STRLEN(Address) - STRLEN(HouseString) - 1);
         HouseNo := GetHouseNoFromHouseString(HouseString);
         AdditionHouseNo := HouseString;
       END;
   
       LOCAL PROCEDURE GetHouseString@1000002(Address@1000000 : Text[50]) : Text[50];
       VAR
         i@1000003 : Integer;
       BEGIN
         // If there's only one word then return empty HouseString
         IF STRPOS(Address,' ') = 0 THEN
           EXIT('');
   
         //Lookup from end of string first space after a number
   
         // Find the last word: revert address string, cut first word, revert result
         RevertString(Address);
         // Delete Spaces at beginning
         Address := DELCHR(Address,'<');
   
         i := 1;
   
         // Find first number i ==> position of first number
         WHILE  (NOT (Address[i] IN ['0'..'9']) AND (i < STRLEN(Address))) DO
           i += 1;
   
         IF ((i = STRLEN(Address)) AND NOT (Address[i] IN ['0'..'9'])) THEN //No number found
         EXIT('');
   
         // look further until number stops
         WHILE ((Address[i] IN ['0'..'9']) AND (i < STRLEN(Address))) DO
           i+= 1;
   
         Address := DELCHR(COPYSTR(Address,1, i-1), '<=>'); // remove all spaces
   
         RevertString(Address);
         EXIT(Address);
       END;
   
       LOCAL PROCEDURE GetHouseNoFromHouseString@1000000(VAR HouseString@1000000 : Text[50]) HouseNo : Text[50];
       VAR
         Pos@1000002 : Integer;
       BEGIN
         Pos := 1;
         WHILE HouseString[Pos] IN ['0'..'9'] DO
           Pos += 1;
         HouseNo := COPYSTR(HouseString,1,Pos - 1);
   
         // remove HouseNo from the HouseString including special separating char if such exist
         IF HouseString[Pos] IN ['/','\','-'] THEN
           Pos += 1;
         HouseString := COPYSTR(HouseString,Pos);
       END;
   
       LOCAL PROCEDURE RevertString@1170000000(VAR String@1170000000 : Text[50]);
       VAR
         StringCopy@1170000001 : Text[50];
         i@1170000002 : Integer;
         Length@1170000003 : Integer;
       BEGIN
         StringCopy := String;
         Length := STRLEN(String);
         FOR i := 1 TO Length DO
           String[i] := StringCopy[Length - i + 1];
       END;
   
       BEGIN
       {
         <changelog>
   ...
   

Προϋποθέσεις

Πρέπει να έχετε ένα από τα ακόλουθα προϊόντα, για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση:

• Την ολλανδική έκδοση του Microsoft Dynamics NAV 2009 R2

• Η ολλανδική έκδοση του Microsoft Dynamics NAV 2009 SP1

Επιπλέον, πρέπει να εφαρμόσετε το "Digipoort υιοθετούν Authorties ΦΠΑ για το ΦΠΑ και την υποβολή κατάλογος πωλήσεων ΕΕ για NL SP1 του Microsoft Dynamics NAV."

Πληροφορίες κατάργησης

Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.