Conectați-vă cu Microsoft
Conectați-vă sau creați un cont
Salut,
Selectați un alt cont.
Aveți mai multe conturi
Alegeți contul cu care doriți să vă conectați.

Simptome

După ce instalați KB3036701 în versiunea spaniolă de Microsoft Dynamics NAV 2009, cheie pentru linia de corecție este întotdeauna exportat ca "E", atunci când trebuie să depindă de operațiuni anterioare care este corectarea. Urmați pașii din secțiunea modificări de cod pentru a rezolva această problemă. Această problemă se produce în următoarele produse:

  • Versiunea spaniolă de Microsoft Dynamics NAV 2009 R2

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

Rezolvare

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

Stare

Microsoft a confirmat că aceasta este o problemă cu produsele Microsoft enumerate în secţiunea „Se aplică la".

Notă Acesta este un articol "rapid publicat" creat direct în cadrul organizației de asistență Microsoft. Informațiile conținute în acest document sunt furnizate ca răspuns la problemele care apar. Ca rezultat al vitezei în a-l face disponibil, materialele pot include erori tipografice și pot fi revizuite în orice moment, fără notificare. Consultați Termenii de utilizarepentru alte considerații.

Facebook LinkedIn E-mail
ABONAȚI-VĂ LA FLUXURI RSS

Aveți nevoie de ajutor suplimentar?

Doriți mai multe opțiuni?

Descoperiți Comunitate

Explorați avantajele abonamentului, navigați prin cursurile de instruire, aflați cum să vă securizați dispozitivul și multe altele.

Beneficiile abonamentului Microsoft 365

Instruire Microsoft 365

Securitate Microsoft

Centru de accesibilitate

Comunitățile vă ajută să adresați întrebări și să răspundeți la întrebări, să oferiți feedback și să primiți feedback de la experți cu cunoștințe bogate.

Întrebați Comunitatea Microsoft

Comunitatea tehnică Microsoft

Utilizatorii Windows Insider

Utilizatori Insider Microsoft 365

Au fost utile aceste informații?

Cât de mulțumit sunteți de calitatea limbajului?
Ce v-a afectat experiența?
Apăsând pe Trimitere, feedbackul dvs. va fi utilizat pentru a îmbunătăți produsele și serviciile Microsoft. Administratorul dvs. IT va avea posibilitatea să colecteze aceste date. Angajamentul de respectare a confidențialității.

Vă mulțumim pentru feedback!

×