Cheie este exportat întotdeauna ca "E" în declarația 349 în versiunea spaniolă de Microsoft Dynamics NAV 2009

Informații despre remedierea rapidă

Un hotfix acceptat este acum disponibil de la Microsoft. Cu toate acestea, acesta este destinat numai corectării problemei descrise în acest articol. Aplicați-o numai pe sistemele care întâmpină această problemă anume. Această remediere rapidă poate să necesite testare suplimentară. De aceea, dacă nu sunteți grav afectat de această problemă, vă recomandăm să așteptați următorul pachet service pack Microsoft Dynamics NAV 2009 sau versiunea Microsoft Dynamics NAV următoare, care conține această remediere rapidă.

Notă În cazuri speciale, costurile implicate de obicei pentru asistență apeluri pot fi anulate dacă un specialist în asistență tehnică pentru Microsoft Dynamics și produse asociate stabilește că o anumită actualizare va rezolva problema. Se vor aplica costurile uzuale de asistenţă pentru întrebări suplimentare de asistenţă şi pentru probleme ce nu fac obiectul actualizării în cauză.

Informaţii despre instalare

Microsoft furnizează exemple de programare scop ilustrativ, fără nicio garanţie explicită sau implicită. Aceasta include, dar nu se limitează la, garanţiile implicite de vandabilitate sau de potrivire pentru un anumit scop. Acest articol presupune că sunteţi familiarizat cu limbajul de programare care este prezentat şi cu instrumentele utilizate pentru a crea şi a depana proceduri. Specialiștii în asistență Microsoft pot ajuta la explicarea funcționalității unei anumite proceduri. Cu toate acestea, nu vor modifica aceste exemple pentru a furniza funcționalitate suplimentară construi proceduri pentru a răspunde cerințelor dvs. specifice.

Notă Înainte de a instala această remediere rapidă, verificați dacă toți utilizatorii de client Microsoft Dynamics NAV sunt log off sistemul. Aceasta include servicii Microsoft Dynamics NAV Application Server (NAS). Ar trebui să fie singurul client utilizatorului care este conectat când implementați această remediere rapidă.

Pentru a implementa această remediere rapidă, trebuie să aveți o licență de dezvoltare.

Vă recomandăm că contul de utilizator în fereastra Conectări Windows sau în fereastra Conectări bază de date se atribuie "SUPER" rolul ID-ul. În cazul în care contul de utilizator nu poate fi atribuit ID-ul "SUPER" rolul, trebuie să verificați că contul de utilizator are următoarele permisiuni:

• Modify permisiunea pentru obiectul care se va schimba.

• Permisiunea de executare pentru obiectul sistem obiect ID 5210 și sistem obiect ID 9015
  
  obiect.

Notă Nu trebuie să aveți drepturi de la magazine de date decât dacă trebuie să efectuați o reparare de date.

Modificări de cod

Notă Întotdeauna test cod remediază într-un mediu controlat înainte de a aplica remedieri pentru computerele de producție.

Pentru a rezolva această problemă, urmați acești pași:

1. Modificați codul din date element numărul 5 din raportul face 349 declarație (10710) după cum urmează:
   Cod existent 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;
   ...
   

   Înlocuirea cod 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;
   ...
   

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

   Înlocuirea cod 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,' ') +
   ...
   

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

   Înlocuirea cod 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
   ...
   

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

   Înlocuirea cod 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,' ') +
   ...
   

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

   Înlocuirea cod 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
   ...
   

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

   Înlocuirea cod 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,' ') +
   ...
   

   Cod existent 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;
   ...
   

   Înlocuirea cod 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;
   ...
   

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

   Înlocuirea cod 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
   ...
   

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

   Înlocuirea cod 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
   ...
   

   Cod existent 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);
   ...
   

   Înlocuirea cod 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);
   ...
   

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

   Înlocuirea cod 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
   ...
   

   Cod existent 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);
   ...
   

   Înlocuirea cod 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. Modificați codul din date element numărul 6 din raportul Make349Declaration (10710) după cum urmează:
   Cod existent 1

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

   Înlocuirea cod 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;
   ...
   

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

   Înlocuirea cod 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,' ') +
   ...
   

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

   Înlocuirea cod 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
   ...
   

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

   Înlocuirea cod 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,' ') +
   ...
   

   Cod existent 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);
   ...
   

   Înlocuirea cod 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);
   ...
   

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

   Înlocuirea cod 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,' ') +
   ...
   

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

   Înlocuirea cod 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
   ...
   

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

   Înlocuirea cod 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
   ...
   

   Cod existent 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);
   ...
   

   Înlocuirea cod 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);
   ...
   

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

   Înlocuirea cod 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
   ...
   

   Cod existent 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);
   ...
   

   Înlocuirea cod 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);
   ...
   

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

   Înlocuirea cod 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
   ...
   

   Cod existent 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);
   ...
   

   Înlocuirea cod 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. Modificați codul din variabile globale din raportul face 349 declarație (10710) după cum urmează:
   Cod existent

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

   Cod de înlocuire

   ...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. Modificați codul din GetPostedCountryLocCode function din raportul face 349 declarație (10710) după cum urmează:
   Cod existent 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;
   ...
   

   Înlocuirea cod 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;
   ...
   

   Cod existent 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;
   ...
   

   Înlocuirea cod 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;
   ...
   
   
   

Cerințe preliminare

Trebuie să aveți unul dintre următoarele produse instalate pentru a aplica această remediere rapidă:

• Versiunea spaniolă de Microsoft Dynamics NAV 2009 R2

• Versiunea în limba spaniolă Microsoft Dynamics NAV 2009 SP1

În plus, trebuie să aveți KB3036701 instalat.

Eliminare informaţii

Nu se poate elimina această remediere rapidă.