תווים מיוחדים אינם מומרים לתווים רגילים בעת הפעלת הדוח 'יצירת הצהרה 347' בגירסה הספרדית של Microsoft Dynamics NAV

חל על
Dynamics NAV 2009 Dynamics NAV 2009 Service Pack 1 Microsoft Dynamics NAV 5.0 Service Pack 1

מאמרים שפורסמו במהירות מספקים מידע ישירות מתוך ארגון התמיכה של Microsoft. המידע הכלול בטבלה זו נוצר בתגובה לנושאים מתפתחים או ייחודיים, או נועד להוסיף מידע נוסף מתוך מאגר הידע.
 Microsoft Business Solutions-Navision 4.0 ו- Microsoft Navision 4.0 הם כעת חלק מ- Microsoft Dynamics NAV 4.0. כל ההפניות ל- Microsoft Business Solutions-Navision Microsoft Navision 4.0 קשורות ל- Microsoft Dynamics NAV.

מאמר זה חל על Microsoft Dynamics NAV עבור אזור השפה של ספרדית (es).

סימפטומים

בעת הפעלת הדוח הצהרה Make 347 בגירסה הספרדית של Microsoft Dynamics NAV, תווים מיוחדים אינם עוברים המרה לתווים רגילים.

הערה כל התווים המיוחדים יומרו לתווים רגילים. יש להמיר את התווים á, é, í, ó, ú, ä, ë, ï, ö, ø ו- ü לתווים של a, e, i, o ו- you. יש להמיר תווים אחרים, כגון ', ", &, $, ( ו- ), לרווחים. יש להמיר תו ñ ל- ASCII 209 ויש להמיר תו Ç ל- ASCII 199. כל תו אחר השונה מתו מ- א' עד ת' ומ- א' עד ת' צריך להיות מומר לריק. בנוסף, יש להמיר סימן חיסור (-) לריק.

בעיה זו מתרחשת במוצרים הבאים:

  • הגירסה הספרדית של Microsoft Dynamics NAV 2009
  • הגירסה הספרדית של Microsoft Dynamics NAV 5.0 Service Pack 1
  • הגירסה הספרדית של Microsoft Dynamics NAV 4.0 Service Pack 3

פתרון

מידע אודות תיקונים חמים

תיקון חם נתמך זמין כעת מ- Microsoft. עם זאת, הוא מיועד רק לתיקון הבעיה המתוארת במאמר זה. החל אותו רק על מערכות שנתקלות בבעיה ספציפית זו. תיקון חם זה עשוי לקבל בדיקות נוספות. לכן, אם אתה לא מושפע באופן חמור מבעיה זו, מומלץ להמתין ל- Service Pack הבא של Microsoft Dynamics NAV או לגירסת Microsoft Dynamics NAV הבאה המכילה תיקון חם זה.

הערה במקרים מיוחדים, חיובים שנצבורים בדרך כלל עבור שיחות תמיכה עשויים להבוטל אם מומחה תמיכה טכנית עבור Microsoft Dynamics ומוצרים קשורים קובע שעדכון ספציפי יפתור את הבעיה. עלויות התמיכה הרגילות יחולו על שאלות ובעיות תמיכה נוספות שלא עומדות בדרישות לעדכון הספציפי הרלוונטי.

            
          

מידע התקנה

Microsoft מספקת דוגמאות תיכנות לאיור בלבד, ללא אחריות, מפורשת או משתמעת. הדבר כולל, אך אינו מוגבל לאחריות המשתמעת של סוחר או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התיכנות המודגמת, עם הכלים המשמשים ליצירת הליכים ולאתר באגים. מהנדסי התמיכה של Microsoft יכולים לעזור להסביר את הפונקציונליות של הליך מסוים, אך הם לא ישנו דוגמאות אלה כדי לספק פונקציונליות נוספת או לבנות הליכים שיסייעו לך לעמוד בדרישות הספציפיות שלך.

הערה לפני התקנת תיקון חם זה, ודא כי כל משתמשי לקוח Microsoft Navision נרשם המערכת. הדבר כולל משתמשי לקוח של Microsoft Navision Application Services (NAS). עליך להיות משתמש הלקוח היחיד שנכנס בעת יישום תיקון חם זה.

כדי ליישם תיקון חם זה, דרוש לך רשיון מפתח.

אנו ממליצים להקצות לחשבון המשתמש בחלון כניסות Windows או בחלון כניסות מסד נתונים את מזהה התפקיד "SUPER". אם אין אפשרות להקצות לחשבון המשתמש את מזהה התפקיד "SUPER", עליך לוודא שלחשבון המשתמש יש את ההרשאות הבאות:

  • ההרשאה Modify עבור האובייקט שאתה תשנה.
  • ההרשאה Execute עבור אובייקט System Object ID 5210 ולאובייקט System Object ID 9015.

                
הערה אין צורך להחזיק בזכויות על מאגרי הנתונים אלא אם עליך לבצע תיקון נתונים.

שינויי קוד

הערה בדוק תמיד את תיקוני הקוד בסביבה מבוקרת לפני החלת התיקונים על מחשבי הייצור שלך.
כדי להחיל תיקון חם זה, בצע את הפעולות הבאות:

  1. שנה את הקוד באובייקט מספר פריט נתונים 2 בדוח 'יצירת הצהרה 347' (10707) באופן הבא:
    קוד קיים

    ...
                                 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
    ...
    
    

    קוד חלופי

    ...
                                 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. שנה את הקוד באובייקט מקטעים מספר 2 של פריט נתונים בדוח יצירת הצהרה 347 (10707) באופן הבא:
    קוד קיים

    ...
                                      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, ' ');
    ...
    
    

    קוד חלופי

    ...
                                      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. שנה את הקוד באובייקט מספר פריט נתונים 5 בדוח 'יצירת הצהרה 347' (10707) באופן הבא:
    קוד קיים

    ...
              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
    ...
    
    

    קוד חלופי

    ...
              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. שנה את הקוד באובייקט מקטעים מספר 5 של פריט נתונים בדוח יצירת הצהרה 347 (10707) באופן הבא:
    קוד קיים

    ...
                                      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, ' ');
    ...
    
    

    קוד חלופי

    ...
                                      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. שנה את הקוד של המשתנים הכלליים בדוח Make 347 Declaration (10707) באופן הבא:
    קוד קיים

    ...
        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';
    ...
    
    

    קוד חלופי

    ...
        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. שנה את הקוד בפונקציה CreateFileHeader בדוח Make 347 Declaration (10707) באופן הבא:
    קוד קיים

    ...
            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'
    ...
    
    

    קוד חלופי

    ...
            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. שנה את הקוד בפונקציה CreateFileHeader בדוח Make 347 Declaration (10707) באופן הבא:
    קוד קיים

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

    קוד חלופי

    ...
            OutText := OutText + DeclrationMT;
            OutText := OutText + ContactTelephone;
    
            // Add the following line.
            OutText := OutText + PADSTR(FormatTextName(ContactName),40,' '); 
            // End of the line.
    ...
    
    
  8. שנה את הקוד באובייקט Documentation בדוח Make 347 Declaration (10707) באופן הבא:
    קוד קיים

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

    קוד חלופי

    ...
            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.
        }
      }
    ...
    
    

דרישות מוקדמות

דרוש לך אחד המוצרים הבאים מותקנים כדי להחיל תיקון חם זה:

  • הגירסה הספרדית של Microsoft Dynamics NAV 2009
  • הגירסה הספרדית של Microsoft Dynamics NAV 5.0 Service Pack 1
  • הגירסה הספרדית של Microsoft Dynamics NAV 4.0 Service Pack 3

              

מידע על הסרה

אין באפשרותך להסיר תיקון חם זה.

מצב

Microsoft אישרה שזוהי בעיה במוצרי Microsoft המפורטים בסעיף "חל על".

MICROSOFT ו/או ספקיה אינם מציגים כל מצג או אחריות לגבי התאימות, המהימנות או מידת הדיוק של המידע הכלול במסמכים ובגרפיקה הקשורה שפורסמו באתר אינטרנט זה ("החומרים") לכל מטרה.

החומרים עשויים לכלול אי-דיוקים טכניים או שגיאות טיפוגרפיות, וייתכן שיתוקנו בכל עת ללא הודעה מוקדמת. עד למידה המרבית המותרת על-פי החוק החל, MICROSOFT ו/או ספקיה אינם מצייתים ולא כוללים את כל הייצוגים, האחריות והתנאים בין אם מפורשים, משתמעים או סטטוטטוריים, כולל אך לא מוגבל לייצוגים, לאחריות או לתנאים של כותרת, אי-הפרה, מצב או איכות משביעי רצון, סחירות וכושר למטרה מסוימת, ביחס לחמרים.