Vorgang wird immer als "E" in der Erklärung 349 in der spanischen Version von Microsoft Dynamics NAV 2009 exportiert.

Hotfix-Informationen

Ein unterstützter Hotfix ist inzwischen von Microsoft erhältlich. Allerdings ist es lediglich zur Behebung dieses Problems. Wenden Sie es nur auf Systeme an, bei denen dieses spezielle Problem auftritt. Dieser Hotfix wird möglicherweise noch getestet. Wenn Ihr System durch dieses Problem nicht schwerwiegend beeinträchtigt ist, empfehlen wir, dass Sie warten auf das nächste Servicepack für Microsoft Dynamics NAV 2009 oder die nächste Microsoft Dynamics NAV-Version, die diesen Hotfix enthält.

Hinweis In besonderen Fällen bestimmt Gebühren fallen normalerweise Support aufrufen Wenn Experte Support für Microsoft Dynamics und zugehörige Produkte storniert werden können, dass ein bestimmtes Update Ihr Problem behebt. Die normalen Supportkosten gilt für zusätzliche Supportfragen und Probleme, die nicht für das betreffende Update qualifizieren.

Informationen zur Installation

Microsoft bietet Programmierbeispiele lediglich zur Veranschaulichung, ohne ausdrückliche oder konkludente Gewährleistung. Dies beinhaltet, ist jedoch nicht beschränkt auf, konkludente Gewährleistungen der Tauglichkeit oder Eignung für einen bestimmten Zweck. Dieser Artikel setzt voraus, dass Sie mit der von Beispielen verwendeten Programmiersprache und den Tools, die zum Erstellen und Debuggen von Prozeduren verwendet werden, vertraut sind. Microsoft-Supporttechniker helfen der Erläuterung der Funktionalität bestimmter Prozeduren. Allerdings werden sie diese Beispiele nicht ändern, um zusätzliche Funktionalität bereitzustellen oder Prozeduren erstellen, die Ihren spezifischen Bedürfnisse erfüllen.

Hinweis Bevor Sie diesen Hotfix installieren, stellen Sie sicher, dass alle Microsoft Dynamics NAV-Clientbenutzer vom System abgemeldet werden. Hierzu gehören Dienste Microsoft Dynamics NAV Application Server (NAS). Sie sollte nur-Client-Benutzers, der angemeldet ist, wenn Sie diesen Hotfix installieren.

Muss eine Entwicklerlizenz verfügen, um diesen Hotfix installieren können.

Es wird empfohlen, das Benutzerkonto im Fenster Windows-Benutzernamen oder im Fenster Datenbank-Anmeldenamen "SUPER" Rollen-ID zugewiesen werden Wenn das Benutzerkonto die Rollen-ID "SUPER" nicht zugeordnet werden kann, müssen Sie sicherstellen, dass das Benutzerkonto die folgenden Berechtigungen verfügt:

• Änderungsberechtigung für das Objekt, das Sie ändern.

• Ausführungsberechtigung für System Object ID 5210 und System Object ID 9015
  
  Objekt.

Hinweis Sie müssen keine Rechte für die Datenspeicher haben, es sei denn, Sie müssen eine Datenreparatur durchführen.

Ändern von Code

Hinweis Testen Sie Programmcodeverbesserungen generell erst in einem Testsytem, bevor Sie sie im Produktionssystem verwenden.

Gehen Sie folgendermaßen vor, um dieses Problem zu beheben:

1. Ändern Sie den Code Daten Artikel Nr. 5 in der Stellen 349 angegeben (10710) wie folgt:
   Vorhandener Code 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;
   ...
   

   Neuer Code 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;
   ...
   

   Vorhandener Code 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,' ') +
   ...
   

   Neuer Code 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,' ') +
   ...
   

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

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

   Vorhandenen Code 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,' ') +
   ...
   

   Neuer Code 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,' ') +
   ...
   

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

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

   Vorhandenen Code 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,' ') +
   ...
   

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

   Vorhandenen Code 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;
   ...
   

   Neuer Code 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;
   ...
   

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

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

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

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

   Vorhandenen Code 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);
   ...
   

   Neuer Code 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);
   ...
   

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

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

   Vorhandenen Code 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);
   ...
   

   Neuer Code 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. Ändern Sie den Code in Bericht Make349Declaration (10710) Daten Element Nummer 6 wie folgt:
   Vorhandener Code 1

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

   Neuer Code 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;
   ...
   

   Vorhandener Code 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,' ') +
   ...
   

   Neuer Code 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,' ') +
   ...
   

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

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

   Vorhandenen Code 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,' ') +
   ...
   

   Neuer Code 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,' ') +
   ...
   

   Vorhandenen Code 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);
   ...
   

   Neuer Code 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);
   ...
   

   Vorhandenen Code 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,' ') +
   ...
   

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

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

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

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

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

   Vorhandenen Code 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);
   ...
   

   Neuer Code 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);
   ...
   

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

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

   Vorhandenen Code 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);
   ...
   

   Neuer Code 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);
   ...
   

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

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

   Vorhandenen Code 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);
   ...
   

   Neuer Code 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. Ändern Sie den Code in globalen Variablen im Bericht 349-Erklärung erstellen (10710) wie folgt:
   Vorhandener code

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

   Neuer code

   ...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. Ändern Sie den Code in GetPostedCountryLocCode Funktion im Bericht 349-Erklärung erstellen (10710) wie folgt:
   Vorhandener Code 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;
   ...
   

   Neuer Code 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;
   ...
   

   Vorhandener Code 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;
   ...
   

   Neuer Code 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;
   ...
   
   
   

Voraussetzungen

Sie müssen eines der folgenden Produkte verfügen, um diesen Hotfix installieren:

• Die spanische Version von Microsoft Dynamics NAV 2009 R2

• Die spanische Version von Microsoft Dynamics NAV 2009 SP1

Darüber hinaus müssen KB3036701 installiert haben.

Informationen zur Deinstallation

Dieser Hotfix kann nicht entfernt werden.