Erimärke ei teisendata tavalisteks märkideks, kui käivitate Microsoft Dynamics NAV hispaaniakeelses versioonis deklaratsiooniaruande Make 347

Rakenduskoht
Dynamics NAV 2009 Dynamics NAV 2009 Service Pack 1 Microsoft Dynamics NAV 5.0 Service Pack 1

Kiiresti avaldatud artiklid annavad teavet otse Microsofti tugiteenuste organisatsioonist. Siin sisalduv teave luuakse vastuseks esilekerkivatele või ainulaadsetele teemadele või täiendatakse muud teabebaasi teavet.
 Microsoft Business Solutions-Navision 4.0 ja Microsoft Navision 4.0 kuuluvad nüüd rakendusse Microsoft Dynamics NAV 4.0. Kõik viited microsoft Business Solutions-Navision või Microsoft Navision 4.0-le on seotud rakendusega Microsoft Dynamics NAV.

See artikkel kehtib microsoft Dynamics NAV hispaania keele (es) lokaadi kohta.

Sümptomid

Kui käivitate Microsoft Dynamics NAV hispaaniakeelses versioonis aruande Make 347 Declaration (Tee 347 deklaratsioon), ei teisendata erimärke tavamärkideks.

Märkus. Kõik erimärgid teisendatakse tavalisteks märkideks. á, é, í, ó, ú, ú, ä, ë, ï, ö, ø ja ü märgid teisendatakse tähtedeks a, e, i, o ja teie. Muud märgid (nt ', ", &, $, ( ja ) tuleks teisendada tühikuteks. Character ñ tuleb teisendada asCII 209-ks ja märgi Ç teisendamiseks asCII 199-ks. Kõik muud märgid, mis erinevad märgist a-st y-ni ja A-st Y-ni, tuleb teisendada tühjaks. Lisaks tuleks miinusmärk (-) teisendada tühjaks.

See probleem ilmneb järgmistes toodetes:

  • Microsoft Dynamics NAV 2009 hispaaniakeelne versioon
  • Microsoft Dynamics NAV 5.0 hoolduspaketi Service Pack 1 hispaaniakeelne versioon
  • Microsoft Dynamics NAV 4.0 hoolduspaketi Service Pack 3 hispaaniakeelne versioon

Lahendus

Kiirparanduse teave

Microsoftilt on nüüd saadaval toetatud kiirparandus. Siiski on see mõeldud ainult selles artiklis kirjeldatud probleemi lahendamiseks. Rakendage see ainult süsteemidele, kus esineb see konkreetne probleem. See kiirparandus võib saada täiendavaid katseid. Seega, kui see probleem ei mõjuta teid tõsiselt, soovitame oodata järgmist Microsoft Dynamics NAV hoolduspaketti või järgmist Microsoft Dynamics NAV versiooni, mis sisaldab seda kiirparandust.

Märkus. Erijuhtudel võidakse tavaliselt tugiteenuse kõnede eest tehtud tasud tühistada, kui Microsoft Dynamicsi ja seotud toodete tehniline tugitöötaja leiab, et konkreetne värskendus lahendab teie probleemi. Tavapärased toetuskulud kehtivad täiendavatele tugiteenustega seotud küsimustele ja probleemidele, mis ei vasta kõnealuse värskenduse tingimustele.

            
          

Installiteave

Microsoft pakub programmeerimise näiteid ainult illustreerimiseks, ilma et garantii oleks väljendatud või kaudselt. See hõlmab kaubastatavuse või kindlaks otstarbeks sobivuse kaudseid garantiisid, kuid mitte ainult. Selles artiklis eeldatakse, et olete tuttav kuvatava programmeerimiskeelega ja tööriistadega, mida kasutatakse protseduuride loomiseks ja silumiseks. Microsofti tugiteenuste insenerid saavad aidata selgitada konkreetse protseduuri funktsionaalsust, kuid nad ei muuda neid näiteid selleks, et pakkuda teie vajadustele vastavaid lisafunktsioone või koostada protseduure.

Märkus. Enne selle kiirparanduse installimist veenduge, et kõik Microsoft Navisioni klientrakenduse kasutajad oleksid süsteemist välja logitud. See hõlmab ka Microsoft Navision Application Servicesi (NAS) klientkasutajaid. Peaksite olema ainus klientkasutaja, kes on sisse logitud, kui rakendate selle kiirparanduse.

Selle kiirparanduse rakendamiseks peab teil olema arendaja litsents.

Soovitame, et aknas Windowsi sisselogimised või aknas Andmebaasi sisselogimised olevale kasutajakontole määrataks "SUPER" rolli ID. Kui kasutajakontole ei saa superrolli ID-d määrata, peate kontrollima, kas kasutajakontol on järgmised õigused.

  • Muudetava objekti muutmisõigus.
  • Süsteemiobjekti ID 5210 ja süsteemiobjekti ID 9015 täitmisõigus.

                
Märkus. Teil pole andmesalvede jaoks õigusi, kui te ei pea tegema andmete parandamist.

Koodi muudatused

Märkus. Enne paranduste rakendamist tööarvutitele testige koodiparandusi alati kontrollitud keskkonnas.
Selle kiirparanduse rakendamiseks tehke järgmist.

  1. Muutke 347 deklaratsiooniaruande (10707) objekti Andmeüksus nr 2 koodi järgmiselt.
    Olemasolev kood

    ...
                                 GLEntry3@1100000 : Record 17;
                               BEGIN
                                 VATRegNo347 := PADSTR(COPYSTR(DELCHR("VAT Registration No.",'=','.-/'),1,9),9,' ');
    
                                 // Delete the following lines.
                                 Name347 := PADSTR(Name,40,' ');
                                 Name347 := CONVERTSTR(UPPERCASE(Name347),'µ•ÔÖÞàãé륚()"&ï',Text1100003);
                                 // End of the lines.
    
                                 PostCode347 := PADSTR(StatementNo("Post Code"),5,' ');
                                 CountryCity := COPYSTR(PostCode347,1,2)+ '   ';
                                 IF Customer."Country Code" <> '' THEN BEGIN
    ...
    
    

    Asenduskood

    ...
                                 GLEntry3@1100000 : Record 17;
                               BEGIN
                                 VATRegNo347 := PADSTR(COPYSTR(DELCHR("VAT Registration No.",'=','.-/'),1,9),9,' ');
    
                                 // Add the following line.
                                 Name347 := PADSTR(FormatTextName(Name),40,' '); 
                                 // End of the line.
    
                                 PostCode347 := PADSTR(StatementNo("Post Code"),5,' ');
                                 CountryCity := COPYSTR(PostCode347,1,2)+ '   ';
                                 IF Customer."Country Code" <> '' THEN BEGIN
    ...
    
    
  2. Muutke 347 deklaratsiooniaruande (10707) objekti Andmeüksuse number 2 jaotised koodi järgmiselt.
    Olemasolev kood

    ...
                                      ELSE
                                        CashAmtText := PADSTR('',15,'0');
                                      OutText :=
    
                                       // Delete the following line.
                                        '2347' + FiscalYear + VATRegNo + VATRegNo347 + PADSTR('',9,' ') +UPPERCASE(Name347) + Text1100002 +
                                        // End of the line.
    .
                                        COPYSTR(PostCode347,1,2) + PADSTR('',3,' ') + Text1100008 + CONVERTSTR(AmountText,' ','0') + PADSTR('',2,' ') +
                                        CashAmtText + PADSTR('',15,'0') + PADSTR('', 371, ' ');
    ...
    
    

    Asenduskood

    ...
                                      ELSE
                                        CashAmtText := PADSTR('',15,'0');
                                      OutText :=
    
                                        // Add the following line.
                                        '2347' + FiscalYear + UPPERCASE(VATRegNo) + UPPERCASE(VATRegNo347) + PADSTR('',9,' ') +UPPERCASE(Name347) + Text1100002 + 
                                        // End of the line.
    
                                        COPYSTR(PostCode347,1,2) + PADSTR('',3,' ') + Text1100008 + CONVERTSTR(AmountText,' ','0') + PADSTR('',2,' ') +
                                        CashAmtText + PADSTR('',15,'0') + PADSTR('', 371, ' ');
    ...
    
    
  3. Muutke 347 deklaratsiooniaruande (10707) objekti Andmeüksuse number 5 koodi järgmiselt.
    Olemasolev kood

    ...
              OnAfterGetRecord=BEGIN
                                 VATRegNo347 := PADSTR(COPYSTR(DELCHR("VAT Registration No.",'=','.-/'),1,9),9,' ');
    
                                 // Delete the following lines.
                                 Name347 := PADSTR(Name,40,' ');
                                 Name347 := CONVERTSTR(UPPERCASE(Name347),'µ•ÔÖÞàãé륚()"&ï',Text1100003);
                                 // End of the lines.
    
                                 PostCode347 := PADSTR(StatementNo("Post Code"),5,' ');
                                 CountryCity := COPYSTR(PostCode347,1,2)+ '   ';
                                 IF Vendor."Country Code"<>'' THEN BEGIN
    ...
    
    

    Asenduskood

    ...
              OnAfterGetRecord=BEGIN
                                 VATRegNo347 := PADSTR(COPYSTR(DELCHR("VAT Registration No.",'=','.-/'),1,9),9,' ');
    
                                 // Add the following line.
                                 Name347 := PADSTR(FormatTextName(Name),40,' '); 
                                 // End of the line.
    
                                 PostCode347 := PADSTR(StatementNo("Post Code"),5,' ');
                                 CountryCity := COPYSTR(PostCode347,1,2)+ '   ';
                                 IF Vendor."Country Code"<>'' THEN BEGIN
    ...
    
    
  4. Muutke 347 deklaratsiooniaruande (10707) objekti Andmeüksuse number 5 jaotised koodi järgmiselt.
    Olemasolev kood

    ...
                                      CLEAR(OutText);
                                      AmountText := AmtEuro(PurchasesAmt);
                                      OutText :=
    
                                        // Delete the following line.
                                        '2347' + FiscalYear + VATRegNo + VATRegNo347 + PADSTR('',9,' ') +UPPERCASE(Name347) + Text1100002 +
                                        // End of the line.
    
                                        COPYSTR(PostCode347,1,2) + PADSTR('',3,' ')  + Text1100011 + CONVERTSTR(AmountText,' ','0') + PADSTR('',2,' ') +
                                        PADSTR('',15,'0') + PADSTR('',15,'0') + PADSTR('', 371, ' ');
    ...
    
    

    Asenduskood

    ...
                                      CLEAR(OutText);
                                      AmountText := AmtEuro(PurchasesAmt);
                                      OutText :=
    
                                        // Add the following line.
                                        '2347' + FiscalYear + UPPERCASE(VATRegNo) + UPPERCASE(VATRegNo347) + PADSTR('',9,' ') +UPPERCASE(Name347) + Text1100002 + 
                                        // End of the line.
    
                                        COPYSTR(PostCode347,1,2) + PADSTR('',3,' ')  + Text1100011 + CONVERTSTR(AmountText,' ','0') + PADSTR('',2,' ') +
                                        PADSTR('',15,'0') + PADSTR('',15,'0') + PADSTR('', 371, ' ');
    ...
    
    
  5. Muutke make 347 deklaratsiooniaruandes (10707) globaalmuutujate koodi järgmiselt.
    Olemasolev kood

    ...
        CODE
        {
          VAR
    
            // Delete the following lines.
            Text1100001@1100058 : TextConst 'ENU="AAEEIIOOUUÑU    ";ESP="AAEEIIOOUUÑU    "';
            Text1100002@1100059 : TextConst 'ENU=D;ESP=D';
            Text1100003@1100060 : TextConst 'ENU="AAEEIIOOUUÑU     ";ESP="AAEEIIOOUUÑU     "';
            Text1100004@1100061 : TextConst 'ENU=<Integer>;ESP=<Integer>';
            Text1100005@1100062 : TextConst 'ENU="AAEEIIOOUU¥U     ";ESP="AAEEIIOOUU¥U     "';
            // End of the lines.
    
            Text1100006@1100063 : TextConst 'ENU=Postal Code is missing in customer''s card %1;ESP=Falta el c¢digo postal en la ficha del cliente %1';
            Text1100008@1100065 : TextConst 'ENU=B;ESP=B';
            Text1100009@1100066 : TextConst 'ENU=Postal Code is missing in vendor''s card %1;ESP=Falta el c¢digo postal en la ficha del proveedor %1';
    ...
    
    

    Asenduskood

    ...
        CODE
        {
          VAR
    
            // Add the following lines.
            Text1100002@1100059 : TextConst 'ENU=D;ESP=D';
            Text1100004@1100061 : TextConst 'ENU=<Integer>;ESP=<Integer>';
            // End of the lines.
    
            Text1100006@1100063 : TextConst 'ENU=Postal Code is missing in customer''s card %1;ESP=Falta el c¢digo postal en la ficha del cliente %1';
            Text1100008@1100065 : TextConst 'ENU=B;ESP=B';
            Text1100009@1100066 : TextConst 'ENU=Postal Code is missing in vendor''s card %1;ESP=Falta el c¢digo postal en la ficha del proveedor %1';
    ...
    
    
  6. Muutke 347 deklaratsiooniaruande (10707) funktsiooni CreateFileHeader koodi järgmiselt.
    Olemasolev kood

    ...
            CLEAR(OutText);
    
            OutText :=
    
              // Delete the following lines.
              '1347' + FiscalYear + VATRegNo +
               PADSTR(CONVERTSTR(UPPERCASE(CompanyInfo.Name),'µ•ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ');
              // End of the lines.
    
            IF DeclarationMediaType = DeclarationMediaType :: Telematic THEN
              DeclrationMT := 'T'
    ...
    
    

    Asenduskood

    ...
            CLEAR(OutText);
    
            OutText :=
    
              // Add the following lines.
              '1347' + FiscalYear + UPPERCASE(VATRegNo) +
               PADSTR(FormatTextName(CompanyInfo.Name),40,' ');
              // End of the lines.
    
            IF DeclarationMediaType = DeclarationMediaType :: Telematic THEN
              DeclrationMT := 'T'
    ...
    
    
  7. Muutke 347 deklaratsiooniaruande (10707) funktsiooni CreateFileHeader koodi järgmiselt.
    Olemasolev kood

    ...
            OutText := OutText + DeclrationMT;
            OutText := OutText + ContactTelephone;
    
            // Delete the following line.
            OutText := OutText + PADSTR(CONVERTSTR(UPPERCASE(ContactName),'µ•ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ');
            // End of the line.
    ...
    
    

    Asenduskood

    ...
            OutText := OutText + DeclrationMT;
            OutText := OutText + ContactTelephone;
    
            // Add the following line.
            OutText := OutText + PADSTR(FormatTextName(ContactName),40,' '); 
            // End of the line.
    ...
    
    
  8. Muutke 347 deklaratsiooniaruande (10707) objekti Dokumentatsioon koodi järgmiselt.
    Olemasolev kood

    ...
            NoOfAcc := j - 1;
          END;
    
          BEGIN
          END.
        }
      }
    ...
    
    

    Asenduskood

    ...
            NoOfAcc := j - 1;
          END;
    
          // Add the following lines.
          PROCEDURE FormatTextName@1100006(NameString@1100000 : Text[50]) Result@1100001 : Text[50];
          VAR
            TempString@1100002 : Text[50];
            TempString1@1100003 : Text[1];
          BEGIN
            CLEAR(Result);
    
            TempString := CONVERTSTR(UPPERCASE(NameString),'•µ¶ÇŽÔÒÓÞÖרãàâå™ëéêší¥€§¦','AAAAAEEEEIIIIOOOOOUUUUYOÑÇ  ');
            IF (STRLEN(TempString) > 0) THEN
              REPEAT
                TempString1 := COPYSTR(TempString,1,1);
                IF TempString1 IN ['A'..'Z','0'..'9','Ñ','Ç'] THEN
                  Result := Result + TempString1
                ELSE
                  Result := Result + ' ';
                TempString := DELSTR(TempString,1,1);
              UNTIL STRLEN(TempString) = 0;
    
            EXIT(Result);
          END;
          // End of the lines.
    
          BEGIN
          END.
        }
      }
    ...
    
    

Eeltingimused

Selle kiirparanduse rakendamiseks peab teil olema installitud üks järgmistest toodetest:

  • Microsoft Dynamics NAV 2009 hispaaniakeelne versioon
  • Microsoft Dynamics NAV 5.0 hoolduspaketi Service Pack 1 hispaaniakeelne versioon
  • Microsoft Dynamics NAV 4.0 hoolduspaketi Service Pack 3 hispaaniakeelne versioon

              

Eemaldamisteave

Seda kiirparandust ei saa eemaldada.

Olek

Microsoft on kinnitanud, et see on jaotises „Rakenduskoht“ loetletud Microsofti toodete korral esinev probleem.

MICROSOFT JA/VÕI TEMA TARNIJAD EI ANNA MITTE MINGIL EESMÄRGIL MITTE MINGISUGUSEID AVALDUSI EGA GARANTIISID SELLEL VEEBISAIDIL AVALDATUD DOKUMENTIDES JA NENDEGA SEOTUD GRAAFIKAS ("MATERJALID") SISALDUVA TEABE SOBIVUSE, USALDUSVÄÄRSUSE EGA TÄPSUSE KOHTA.

MATERJALID VÕIVAD SISALDADA TEHNILISI EBATÄPSUSI VÕI KIRJAVIGU NING NEID VÕIB IGAL AJAL ETTE TEATAMATA LÄBI VAADATA. KOHALDATAVATE SEADUSTEGA LUBATUD MAKSIMAALSES ULATUSES LOOBUVAD MICROSOFT JA/VÕI TEMA TARNIJAD KÕIKIDEST AVALDUSTEST, GARANTIIDEST JA TINGIMUSTEST, OLENEMATA SELLEST, KAS NEED ON SÕNASELGED, KAUDSED VÕI SEADUSJÄRGSED, SEALHULGAS, KUID MITTE AINULT, OMANDIÕIGUSEGA SEOTUD AVALDUSED, GARANTIID VÕI TINGIMUSED, MITTERIKKUMISED, RAHULDAVAD TINGIMUSED VÕI KVALITEET, KAUBASTATAVUS JA SOBIVUS MATERJALIDE OSAS.