מקש פעולה מיוצא תמיד כ- "E" הצהרה 349 בגירסה ספרדית של Microsoft Dynamics NAV 2009

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

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

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

מידע על ההתקנה

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

הערה לפני התקנת תיקון חם זה, ודא כי כל המשתמשים לקוח Microsoft Dynamics NAV אינם מחוברים למערכת. זה כולל שירותי Microsoft Dynamics NAV יישום שרת (NAS). אתה אמור להיות לקוח בלבד המשתמש המחובר כאשר ליישם תיקון חם זה.

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

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

• שנה את ההרשאה עבור האובייקט שינוי.

• הרשאת Execute עבור האובייקט 5210 מזהה אובייקט מערכת ועבור 9015 מזהה אובייקט מערכת
  
  אובייקט.

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

שינויי קוד

הערה תמיד קוד מחשב פותר בסביבה מבוקרת לפני החלת התיקונים למחשבים הייצור שלך.

כדי לפתור בעיה זו, בצע את הפעולות הבאות:

1. שנה את קוד 5 מספר פריט נתונים בהדוח לבצע הצהרה 349 (10710) באופן הבא:
   קוד קיים 1

   ...  // SETFILTER(Customer."Country/Region Code",'<>%1',CountryCode);
                             // es0014.begin
                             PreVATRegNo := '';
                             // es0013.end
                             // es0014.end
                           END;
   
             OnAfterGetRecord=VAR
                                VATEntry@1100001 : Record 254;
                                Amount@1100000 : ARRAY [3] OF Decimal;
   ...
   

   קוד החלפה 1

   ...  // SETFILTER(Customer."Country/Region Code",'<>%1',CountryCode);
                             // es0014.begin
                             PreVATRegNo := '';
                             // es0013.end
                             // es0014.end
   
   // Add the following line.
   OperationKey := 'E';
   // End of the added line.
   
                           END;
   
             OnAfterGetRecord=VAR
                                VATEntry@1100001 : Record 254;
                                Amount@1100000 : ARRAY [3] OF Decimal;
   ...
   

   קוד קיים 2

   ...CustVendCountry.GET(Customer2."Country/Region Code");
                                               // es0033.begin
                                                 IF CustVendWarning349."EU Service" THEN BEGIN
                                                   TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
                                                   TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);
   
                                                   Txt :=
                                                     '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                     PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   ...
   

   קוד החלפה 2

   ...  CustVendCountry.GET(Customer2."Country/Region Code");
                                               // es0033.begin
                                                 IF CustVendWarning349."EU Service" THEN BEGIN
                                                   TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
                                                   TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);
   
   // Add the following line.
   OperationKey := 'S';
   // End of the added line.
   
                                                   Txt :=
                                                     '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                     PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   ...
   

   קוד קיים 3

   ...Txt :=
                                                     '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                     PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Delete the following line.
   'S' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the deleted line.
   
                                                     CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                     PADSTR('',322,' ');
                                                   OutFile.WRITE(Txt);
                                                 END ELSE
                                                   IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
   ...
   

   קוד החלפה 3

   ...Txt :=
                                                     '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                     PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Add the following line.
   OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the added line.
   
                                                     CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                     PADSTR('',322,' ');
                                                   OutFile.WRITE(Txt);
                                                 END ELSE
                                                   IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
   ...
   

   קוד קיים 4

   ...OutFile.WRITE(Txt);
                                                 END ELSE
                                                   IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
                                                     TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
                                                     TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);
   
                                                     Txt :=
                                                       '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                       FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                       PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   ...
   

   קוד החלפה 4

   ...                                                OutFile.WRITE(Txt);
                                                 END ELSE
                                                   IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
                                                     TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
                                                     TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);
   
   // Add the following line.
   OperationKey := 'T';
   // End of the added line.
   
                                                     Txt :=
                                                       '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                       FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                       PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   ...
   

   קוד קיים 5

   ... Txt :=
                                                       '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                       FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                       PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Delete the following line.
   'T' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the deleted line.
   
                                                       CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                       PADSTR('',322,' ');
                                                     OutFile.WRITE(Txt);
                                                   END ELSE BEGIN
                                                     FOR i := 1 TO 3 DO
   ...
   

   קוד החלפה 5

   ...Txt :=
                                                       '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                       FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                       PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Add the following line.
   OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the added line.
   
                                                       CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                       PADSTR('',322,' ');
                                                     OutFile.WRITE(Txt);
                                                   END ELSE BEGIN
                                                     FOR i := 1 TO 3 DO
   ...
   

   קוד קיים 6

   ...END ELSE BEGIN
                                                     FOR i := 1 TO 3 DO
                                                       IF (AccPrevDeclAmount[i] <> 0) AND (AccOrigDeclAmount[i] <> 0) THEN BEGIN
                                                         TextAmount := COPYSTR(FormatTextAmt(AccPrevDeclAmount[i]),3,13);
                                                         TextAmount2 := COPYSTR(FormatTextAmt(AccOrigDeclAmount[i]),3,13);
   
                                                         Txt :=
                                                           '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                           FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                           PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   ...
   

   קוד החלפה 6

   ... END ELSE BEGIN
                                                     FOR i := 1 TO 3 DO
                                                       IF (AccPrevDeclAmount[i] <> 0) AND (AccOrigDeclAmount[i] <> 0) THEN BEGIN
                                                         TextAmount := COPYSTR(FormatTextAmt(AccPrevDeclAmount[i]),3,13);
                                                         TextAmount2 := COPYSTR(FormatTextAmt(AccOrigDeclAmount[i]),3,13);
   
   // Add the following line.
   OperationKey := OperationCode[i];
   // End of the added line.
   
                                                         Txt :=
                                                           '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                           FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                           PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   ...
   

   קוד קיים 7

   ...Txt :=
                                                           '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                           FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                           PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Delete the following line.
   OperationCode[i] + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the deleted line.
   
                                                           CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                           //PADSTR('',72,' ');
                                                           PADSTR('',322,' ');
                                                         OutFile.WRITE(Txt);
                                                       END;
   ...
   

   קוד החלפה 7

   ... Txt :=
                                                           '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                           FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                           PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Add the following line.
   OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the added line.
   
                                                           CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                           //PADSTR('',72,' ');
                                                           PADSTR('',322,' ');
                                                         OutFile.WRITE(Txt);
                                                       END;
   ...
   

   קוד קיים 8

   ... IF Amount[i] <> 0 THEN BEGIN
                                        IF Amount[i] < 0 THEN
                                          Amount[i] := -Amount[i];
                                       TextAmount := COPYSTR(FormatTextAmt(Amount[i]),3,13);
                                       CustVendCountry.GET(Customer2."Country/Region Code");
   
   // Delete the following lines.
   Txt :=
   '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
   FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
   PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   OperationCode[i] + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
   // End of the deleted lines.
   
   NoOperations := NoOperations + 1;
                                       TotalAmtShip := TotalAmtShip + Amount[i];
                                       OutFile.WRITE(Txt);
                                      END;
                                    IF AmountOpTri < 0 THEN
   ...
   

   קוד החלפה 8

   ...IF Amount[i] <> 0 THEN BEGIN
                                        IF Amount[i] < 0 THEN
                                          Amount[i] := -Amount[i];
                                       TextAmount := COPYSTR(FormatTextAmt(Amount[i]),3,13);
                                       CustVendCountry.GET(Customer2."Country/Region Code");
   
   // Add the following lines.
   OperationKey := OperationCode[i];
   Txt :=
   '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
   FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
   PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
   // End of the added lines.
   
   NoOperations := NoOperations + 1;
                                       TotalAmtShip := TotalAmtShip + Amount[i];
                                       OutFile.WRITE(Txt);
                                      END;
                                    IF AmountOpTri < 0 THEN
   ...
   

   קוד קיים 9

   ... //   FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                      //   PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                      //   'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
                                      // // es0019.end
                                      CustVendCountry.GET(Customer2."Country/Region Code");
                                      Txt :=
                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                        // es0033.begin
   ...
   

   קוד החלפה 9

   ... //   FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                      //   PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                      //   'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
                                      // // es0019.end
                                      CustVendCountry.GET(Customer2."Country/Region Code");
   
   // Add the following line.
   OperationKey := 'T';
   // End of the added line.
   
                                      Txt :=
                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                        // es0033.begin
   ...
   

   קוד קיים 10

   ... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                        // es0033.begin
                                        //'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
   
   // Delete the following line.
   'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
   // End of the deleted line.
   
                                        // es0033.end
                                      // es0020.end
                                      NoOperations := NoOperations + 1;
                                      TotalAmtShip := TotalAmtShip + AmountOpTri;
                                      OutFile.WRITE(Txt);
   ...
   

   קוד החלפה 10

   ...'2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                        // es0033.begin
                                        //'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
   
   // Add the following line.
   OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
   // End of the added line.
   
                                        // es0033.end
                                      // es0020.end
                                      NoOperations := NoOperations + 1;
                                      TotalAmtShip := TotalAmtShip + AmountOpTri;
                                      OutFile.WRITE(Txt);
   ...
   

   קוד קיים 11

   ...IF AmountEUService < 0 THEN
                                      AmountEUService := -AmountEUService;
                                    IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN
                                      TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13);
                                      CustVendCountry.GET(Customer2."Country/Region Code");
   
   // Delete the following lines.
   Txt :=
   '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
   FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
   PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   'S' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
   // End of the deleted lines.
   
   NoOperations := NoOperations + 1;
                                      TotalAmtShip := TotalAmtShip + AmountEUService;
                                      OutFile.WRITE(Txt);
                                    END;
                                    IF IsCreditMomoPrinted THEN BEGIN
   ...
   

   קוד החלפה 11

   ...IF AmountEUService < 0 THEN
                                      AmountEUService := -AmountEUService;
                                    IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN
                                      TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13);
                                      CustVendCountry.GET(Customer2."Country/Region Code");
   
   // Add the following lines.
   OperationKey := 'S';
   Txt :=
   '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
   FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
   PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
   // End of the added lines.
   
   NoOperations := NoOperations + 1;
                                      TotalAmtShip := TotalAmtShip + AmountEUService;
                                      OutFile.WRITE(Txt);
                                    END;
                                    IF IsCreditMomoPrinted THEN BEGIN
   ...
   

   קוד קיים 12

   ...CustVendCountry.GET(Customer2."Country/Region Code");
                                      Txt :=
                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Delete the following line.
   'E' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the deleted line.
   
                                        CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                        PADSTR('',322,' ');
                                      NoOperations += 1;
                                      TotalAmtShip += AmountEUService;
                                      OutFile.WRITE(Txt);
   ...
   

   קוד החלפה 12

   ...CustVendCountry.GET(Customer2."Country/Region Code");
                                      Txt :=
                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Add the folloiwng line.
   OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the added line.
   
                                        CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                        PADSTR('',322,' ');
                                      NoOperations += 1;
                                      TotalAmtShip += AmountEUService;
                                      OutFile.WRITE(Txt);
   ...
   

2. שינוי בקוד 6 מספר פריט של נתוני הדוח Make349Declaration (10710) כדלקמן:
   קוד קיים 1

   ...  // SETFILTER(Vendor."Country/Region Code",'<>%1',CountryCode);
                             // es0014.begin
                             PreVATRegNo := '';
                             // es0014.end
                             // es0013.end
                           END;
   
             OnAfterGetRecord=VAR
                                AppliedAmt@1100000 : Decimal;
                                PurchCreditMemoOrgDeclaredAmt@1100001 : Decimal;
   ...
   

   קוד החלפה 1

   ... // SETFILTER(Vendor."Country/Region Code",'<>%1',CountryCode);
                             // es0014.begin
                             PreVATRegNo := '';
                             // es0014.end
                             // es0013.end
   
   // Add the following line.
   OperationKey := 'A';
   // End of the added line.
   
                           END;
   
             OnAfterGetRecord=VAR
                                AppliedAmt@1100000 : Decimal;
                                PurchCreditMemoOrgDeclaredAmt@1100001 : Decimal;
   ...
   

   קוד קיים 2

   ...// es0033.begin
                                              IF CustVendWarning349."EU Service" THEN BEGIN
                                                TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
                                                TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);
   
                                                Txt :=
                                                  '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                  FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                  PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   ...
   

   קוד החלפה 2

   ... // es0033.begin
                                              IF CustVendWarning349."EU Service" THEN BEGIN
                                                TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
                                                TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);
   
   // Add the following line.
   OperationKey := 'I';
   // End of the added line.
   
                                                Txt :=
                                                  '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                  FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                  PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   ...
   

   קוד קיים 3

   ... Txt :=
                                                  '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                  FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                  PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Delete the following line.
   'I' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the deleted line.
   
                                                  CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                  PADSTR('',322,' ');
                                                OutFile.WRITE(Txt);
                                              END ELSE
                                                IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
   ...
   

   קוד החלפה 3

   ...Txt :=
                                                  '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                  FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                  PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Add the following line.
   OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the added line.
   
                                                  CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                  PADSTR('',322,' ');
                                                OutFile.WRITE(Txt);
                                              END ELSE
                                                IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
   ...
   

   קוד קיים 4

   ... OutFile.WRITE(Txt);
                                              END ELSE
                                                IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
                                                  TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
                                                  TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);
   
                                                  Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   ...
   

   קוד החלפה 4

   ... OutFile.WRITE(Txt);
                                              END ELSE
                                                IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
                                                  TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
                                                  TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);
   
   // Add the following line.
   OperationKey := 'T';
   // End of the added line.
   
                                                  Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   ...
   

   קוד קיים 5

   ...Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Delete the following line.
   'T' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the deleted line.
   
                                                    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                    PADSTR('',322,' ');
                                                  OutFile.WRITE(Txt);
                                                END ELSE BEGIN
                                                  TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
   ...
   

   קוד החלפה 5

   ...Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Add the following line.
   OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the added line.
   
                                                    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                    PADSTR('',322,' ');
                                                  OutFile.WRITE(Txt);
                                                END ELSE BEGIN
                                                  TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
   ...
   

   קוד קיים 6

   ... PADSTR('',322,' ');
                                                  OutFile.WRITE(Txt);
                                                END ELSE BEGIN
                                                  TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
                                                  TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmount),3,13);
                                              // es0033.end
                                                  Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   ...
   

   קוד החלפה 6

   ...PADSTR('',322,' ');
                                                  OutFile.WRITE(Txt);
                                                END ELSE BEGIN
                                                  TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
                                                  TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmount),3,13);
   
   // Add the following line.
   OperationKey := 'A';
   // End of the added line.
   
                                              // es0033.end
                                                  Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   ...
   

   קוד קיים 7

   ... // es0033.end
                                                  Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Delete the following line.
   'A' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the deleted line.
   
                                                    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                    // es0033.begin
                                                    //PADSTR('',72,' ');
                                                    PADSTR('',322,' ');
                                                    // es0033.end
   ...
   

   קוד החלפה 7

   ...// es0033.end
                                                  Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Add the following line.
   OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the added line.
   
                                                    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                    // es0033.begin
                                                    //PADSTR('',72,' ');
                                                    PADSTR('',322,' ');
                                                    // es0033.end
   ...
   

   קוד קיים 8

   ... //   FORMAT(CustVendVatRegNo,15) +
                                      //   PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                      //   'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
                                      // // es0016.end
                                      CustVendCountry.GET(Vendor2."Country/Region Code");
                                      Txt :=
                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                        // es0033.begin
   ...
   

   קוד החלפה 8

   ... //   FORMAT(CustVendVatRegNo,15) +
                                      //   PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                      //   'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
                                      // // es0016.end
                                      CustVendCountry.GET(Vendor2."Country/Region Code");
   
   // Add the following line.
   OperationKey := 'A';
   // End of the added line.
   
                                      Txt :=
                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                        // es0033.begin
   ...
   

   קוד קיים 9

   ... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                        // es0033.begin
                                        //'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
   
   // Delete the following line.
   'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
   // End of the deleted line.
   
                                        // es0033.end
                                      // es0019.end
                                      NoOperations := NoOperations + 1;
                                      TotalAmtReciv := TotalAmtReciv + NormalAmount;
                                      OutFile.WRITE(Txt);
   ...
   

   קוד החלפה 9

   ... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                        // es0033.begin
                                        //'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
   
   // Add the following line.
   OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
   // End of the added line.
   
                                        // es0033.end
                                      // es0019.end
                                      NoOperations := NoOperations + 1;
                                      TotalAmtReciv := TotalAmtReciv + NormalAmount;
                                      OutFile.WRITE(Txt);
   ...
   

   קוד קיים 10

   ... //   FORMAT(CustVendVatRegNo,15) +
                                      //   PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                      //   'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
                                      // // es0016.end
                                      CustVendCountry.GET(Vendor2."Country/Region Code");
                                      Txt :=
                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                        // es0033.begin
   ...
   

   קוד החלפה 10

   ... //   FORMAT(CustVendVatRegNo,15) +
                                      //   PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                      //   'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
                                      // // es0016.end
                                      CustVendCountry.GET(Vendor2."Country/Region Code");
   
   // Add the following line.
   OperationKey := 'T';
   // End of the added line.
   
                                      Txt :=
                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                        // es0033.begin
   ...
   

   קוד קיים 11

   ... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                        // es0033.begin
                                        //'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
   
   // Delete the following line.
   'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
   // End of the deleted line.
   
                                        // es0033.end
                                      // es0019.end
                                      NoOperations := NoOperations + 1;
                                      TotalAmtReciv := TotalAmtReciv + AmountOpTri;
                                      OutFile.WRITE(Txt);
   ...
   

   קוד החלפה 11

   ... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                        PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                        // es0033.begin
                                        //'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
   
   // Add the following line.
   OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
   // End of the added line.
   
                                        // es0033.end
                                      // es0019.end
                                      NoOperations := NoOperations + 1;
                                      TotalAmtReciv := TotalAmtReciv + AmountOpTri;
                                      OutFile.WRITE(Txt);
   ...
   

   קוד קיים 12

   ...IF AmountEUService < 0 THEN
                                    AmountEUService := -AmountEUService;
                                  IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN
                                    TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13);
                                    CustVendCountry.GET(Vendor2."Country/Region Code");
   
   // Delete the following lines.
   Txt :=
   '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
   FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
   PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   'I' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
   // End of the deleted lines.
   
   NoOperations := NoOperations + 1;
                                    TotalAmtReciv := TotalAmtReciv + AmountEUService;
                                    OutFile.WRITE(Txt);
                                  END;
                                  // es0033.end
   ...
   

   קוד החלפה 12

   ...IF AmountEUService < 0 THEN
                                    AmountEUService := -AmountEUService;
                                  IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN
                                    TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13);
                                    CustVendCountry.GET(Vendor2."Country/Region Code");
   
   // Add the following lines.
   OperationKey := 'I';
   Txt :=
   '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
   FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
   PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
   // End of the added lines.
   
   NoOperations := NoOperations + 1;
                                    TotalAmtReciv := TotalAmtReciv + AmountEUService;
                                    OutFile.WRITE(Txt);
                                  END;
                                  // es0033.end
   ...
   

   קוד קיים 13

   ... CustVendCountry.GET(Customer2."Country/Region Code");
                                  Txt :=
                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Delete the following line.
   'E' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the deleted line.
   
                                    CustVendWarning349."Original Declaration Period" + TextAmount +
                                    PADSTR('',322,' ');
                                  NoOperations += 1;
                                  TotalAmtShip += AmountEUService;
                                  OutFile.WRITE(Txt);
   ...
   

   קוד החלפה 13

   ...CustVendCountry.GET(Customer2."Country/Region Code");
                                  Txt :=
                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
   
   // Add the following line.
   OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
   // End of the added line.
   
                                    CustVendWarning349."Original Declaration Period" + TextAmount +
                                    PADSTR('',322,' ');
                                  NoOperations += 1;
                                  TotalAmtShip += AmountEUService;
                                  OutFile.WRITE(Txt);
   ...
   

3. שינוי בקוד במשתני הכללית הדוח לבצע הצהרה 349 (10710) כדלקמן:
   קוד קיים

   ...EUServiceAlreadyExported@1100077 : Boolean;
           ThirdPartyAlreadyExported@1100078 : Boolean;
           FileNameControlVisible@19024830 : Boolean INDATASET;
           PeriodFrequencyChangeEnable@19073723 : Boolean INDATASET;
           Idx@1100080 : ',E,M,H';
   
         PROCEDURE FormatTextAmt@1100101(Amount@1100100 : Decimal) : Text[15];
         VAR
           TextAmt@1100101 : Text[15];
         BEGIN
   ...
   

   קוד החלפה

   ...EUServiceAlreadyExported@1100077 : Boolean;
           ThirdPartyAlreadyExported@1100078 : Boolean;
           FileNameControlVisible@19024830 : Boolean INDATASET;
           PeriodFrequencyChangeEnable@19073723 : Boolean INDATASET;
           Idx@1100080 : ',E,M,H';
   
   // Add the following line.
   OperationKey@1100026 : Text[1];
   // End of the added line.
   
         PROCEDURE FormatTextAmt@1100101(Amount@1100100 : Decimal) : Text[15];
         VAR
           TextAmt@1100101 : Text[15];
         BEGIN
   ...
   

4. שנה את הקוד בפונקציה GetPostedCountryLocCode ב הדוח לבצע הצהרה 349 (10710) כדלקמן:
   קוד קיים 1

   ...IF Location.GET(SalesInvLines."Location Code") THEN
                                       EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
                                     IF EUCountryLinesLocationCode THEN BEGIN
                                       AmountToIncludeIn349 +=
                                         GetExportedAmountIn349(SalesInvHeader."Currency Code",
   
   // Delete the following line.
   SalesInvHeader."Currency Factor",SalesInvLines."Line Amount" - SalesInvLines."Inv. Discount Amount");
   // End of the deleted line.
   
                                       IF GetCountryfromLocation(SalesInvLines."Location Code") <> CountryCode THEN
                                         LocationDifferentCountryCode := TRUE;
                                       TempSalesInvLines := SalesInvLines;
                                       TempSalesInvLines.INSERT;
                                     END;
   ...
   

   קוד החלפה 1

   ...IF Location.GET(SalesInvLines."Location Code") THEN
                                       EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
                                     IF EUCountryLinesLocationCode THEN BEGIN
                                       AmountToIncludeIn349 +=
                                         GetExportedAmountIn349(SalesInvHeader."Currency Code",
   
   // Add the following lines.
   SalesInvHeader."Currency Factor",SalesInvLines."Line Amount" - SalesInvLines."Inv. Discount Amount")
   ;
   // End of the added lines.
   
                                       IF GetCountryfromLocation(SalesInvLines."Location Code") <> CountryCode THEN
                                         LocationDifferentCountryCode := TRUE;
                                       TempSalesInvLines := SalesInvLines;
                                       TempSalesInvLines.INSERT;
                                     END;
   ...
   

   קוד קיים 2

   ... END ELSE
                                     IF CompInforShipToCountryCode THEN BEGIN
                                       EUCountryLinesLocationCode := TRUE;
                                       AmountToIncludeIn349 +=
                                         GetExportedAmountIn349(SalesInvHeader."Currency Code",
   
   // Delete the following line.
   SalesInvHeader."Currency Factor",SalesInvLines."Line Amount" - SalesInvLines."Inv. Discount Amount");
   // End of the deleted line.
   
                                       TempSalesInvLines := SalesInvLines;
                                       TempSalesInvLines.INSERT;
                                     END;
                                 UNTIL SalesInvLines.NEXT = 0;
                             END;
   ...
   

   קוד החלפה 2

   ...END ELSE
                                     IF CompInforShipToCountryCode THEN BEGIN
                                       EUCountryLinesLocationCode := TRUE;
                                       AmountToIncludeIn349 +=
                                         GetExportedAmountIn349(SalesInvHeader."Currency Code",
   
   // Add the following lines.
   SalesInvHeader."Currency Factor",SalesInvLines."Line Amount" - SalesInvLines."Inv. Discount Amount")
   ;
   // End of the added lines.
   
   TempSalesInvLines := SalesInvLines;
                                       TempSalesInvLines.INSERT;
                                     END;
                                 UNTIL SalesInvLines.NEXT = 0;
                             END;
   ...
   
   
   

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

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

• גירסת Microsoft Dynamics NAV 2009 R2 ספרדית

• גירסת Microsoft Dynamics NAV 2009 SP1 ספרדית

בנוסף, חייב להיות מותקן KB3036701 .

מידע בדבר הסרת ההתקנה

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