Chiave dell'operazione viene esportato sempre con "E" nella dichiarazione 349 nella versione spagnola di Microsoft Dynamics NAV 2009

Sintomi

Dopo l'installazione di KB3036701 nella versione spagnola di Microsoft Dynamics NAV 2009, la chiave dell'operazione per la riga di correzione viene sempre esportata con "E", quando deve dipendere la precedente operazione che esegue la correzione. Seguire i passaggi nella sezione modifiche al codice per risolvere questo problema. Questo problema si verifica nei seguenti prodotti:

La versione spagnola di Microsoft Dynamics NAV 2009 R2
La versione spagnola di Microsoft Dynamics NAV 2009 SP1

Risoluzione

Informazioni sull'hotfix

Un hotfix supportato è ora disponibile da Microsoft. Tuttavia, è destinato esclusivamente alla risoluzione del problema descritto in questo articolo. Applicarlo solo ai sistemi in cui si verificano questo problema specifico. Questo hotfix potrebbe essere sottoposto ad ulteriori test. Pertanto, se il problema non causa gravi difficoltà, consiglia di attendere il prossimo service pack di Microsoft Dynamics NAV 2009 o versione successiva di Microsoft Dynamics NAV contenente tale hotfix.Nota: In casi particolari, le spese normalmente addebitate per le chiamate potrebbero essere annullate qualora un aggiornamento del supporto tecnico di Microsoft Dynamics e prodotti correlati di supporto determina che uno specifico aggiornamento risolverà il problema. I costi di supporto normale verranno applicati per eventuali ulteriori domande e problemi che non dovessero rientrare nello specifico aggiornamento in questione.

Informazioni sull'installazione

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Ciò include, ma non limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che si abbia familiarità con il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire la procedura di debug. Tecnici del supporto Microsoft consentono di spiegare la funzionalità di una particolare procedura. Tuttavia, essi non modificherà questi esempi per fornire funzionalità aggiuntive o creare procedure atte a soddisfare specifiche esigenze.Nota: Prima di installare questo hotfix, verificare che tutti gli utenti di client di Microsoft Dynamics NAV sono disconnessi dal sistema. Sono inclusi i servizi di Microsoft Dynamics NAV Application Server (NAS). Dovrebbe essere il solo l'utente client connesso quando si implementa questo hotfix.Per implementare questo hotfix, è necessario disporre di una licenza di sviluppatore.È consigliabile che l'account utente nella finestra Login Windows o Login Database assegnare l'ID di ruolo "SUPER". Se l'account utente non può essere assegnato l'ID ruolo "SUPER", è necessario verificare che l'account utente disponga delle autorizzazioni seguenti:

Autorizzazione alla modifica dell'oggetto che si desidera modificare.
L'autorizzazione di esecuzione per l'oggetto System Object ID 5210 e per il sistema oggetto ID 9015oggetto.

Nota: Non è necessario disporre dei diritti per gli archivi dati a meno che non è necessario eseguire il ripristino di dati.

Modifiche al codice

Nota: Sempre il codice di test consente di correggere in un ambiente controllato prima di applicare le correzioni per i computer di produzione.Per risolvere questo problema, attenersi alla seguente procedura:

Modificare il codice 5 numero elemento di dati nel rapporto di rendere dichiarazione 349 (10710) come segue:Codice esistente 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;
...

Codice sostitutivo 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;
...

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

Codice di sostituzione 2

...  CustVendCountry.GET(Customer2."Country/Region Code");
                                            // es0033.begin
                                              IF CustVendWarning349."EU Service" THEN BEGIN
                                                TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
                                                TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);

// Add the following line.
OperationKey := 'S';
// End of the added line.

                                                Txt :=
                                                  '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                  FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                  PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

3 il codice esistente

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

Codice di sostituzione 3

...Txt :=
                                                  '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                  FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                  PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                                  CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                  PADSTR('',322,' ');
                                                OutFile.WRITE(Txt);
                                              END ELSE
                                                IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
...

4 il codice esistente

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

Codice di sostituzione 4

...                                                OutFile.WRITE(Txt);
                                              END ELSE
                                                IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
                                                  TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
                                                  TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);

// Add the following line.
OperationKey := 'T';
// End of the added line.

                                                  Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

5 il codice esistente

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

Codice di sostituzione 5

...Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                                    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                    PADSTR('',322,' ');
                                                  OutFile.WRITE(Txt);
                                                END ELSE BEGIN
                                                  FOR i := 1 TO 3 DO
...

6 il codice esistente

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

Codice di sostituzione 6

... END ELSE BEGIN
                                                  FOR i := 1 TO 3 DO
                                                    IF (AccPrevDeclAmount[i] <> 0) AND (AccOrigDeclAmount[i] <> 0) THEN BEGIN
                                                      TextAmount := COPYSTR(FormatTextAmt(AccPrevDeclAmount[i]),3,13);
                                                      TextAmount2 := COPYSTR(FormatTextAmt(AccOrigDeclAmount[i]),3,13);

// Add the following line.
OperationKey := OperationCode[i];
// End of the added line.

                                                      Txt :=
                                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                        PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

7 il codice esistente

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

Codice di sostituzione 7

... Txt :=
                                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                        PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                                        CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                        //PADSTR('',72,' ');
                                                        PADSTR('',322,' ');
                                                      OutFile.WRITE(Txt);
                                                    END;
...

8 il codice esistente

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

Codice di sostituzione 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
...

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

Codice di sostituzione 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
...

Codice esistente 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);
...

Codice di sostituzione 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);
...

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

Codice di sostituzione 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
...

Codice esistente 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);
...

Codice di sostituzione 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);
...

Modificare il codice 6 numero di elemento di dati del report di Make349Declaration (10710) come segue:Codice esistente 1

...  // SETFILTER(Vendor."Country/Region Code",'<>%1',CountryCode);
                          // es0014.begin
                          PreVATRegNo := '';
                          // es0014.end
                          // es0013.end
                        END;

          OnAfterGetRecord=VAR
                             AppliedAmt@1100000 : Decimal;
                             PurchCreditMemoOrgDeclaredAmt@1100001 : Decimal;
...

Codice sostitutivo 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;
...

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

Codice di sostituzione 2

... // es0033.begin
                                           IF CustVendWarning349."EU Service" THEN BEGIN
                                             TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
                                             TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);

// Add the following line.
OperationKey := 'I';
// End of the added line.

                                             Txt :=
                                               '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                               FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                               PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

3 il codice esistente

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

Codice di sostituzione 3

...Txt :=
                                               '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                               FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                               PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                               CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                               PADSTR('',322,' ');
                                             OutFile.WRITE(Txt);
                                           END ELSE
                                             IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
...

4 il codice esistente

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

Codice di sostituzione 4

... OutFile.WRITE(Txt);
                                           END ELSE
                                             IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
                                               TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
                                               TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);

// Add the following line.
OperationKey := 'T';
// End of the added line.

                                               Txt :=
                                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

5 il codice esistente

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

Codice di sostituzione 5

...Txt :=
                                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                                 CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                 PADSTR('',322,' ');
                                               OutFile.WRITE(Txt);
                                             END ELSE BEGIN
                                               TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
...

6 il codice esistente

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

Codice di sostituzione 6

...PADSTR('',322,' ');
                                               OutFile.WRITE(Txt);
                                             END ELSE BEGIN
                                               TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
                                               TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmount),3,13);

// Add the following line.
OperationKey := 'A';
// End of the added line.

                                           // es0033.end
                                               Txt :=
                                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

7 il codice esistente

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

Codice di sostituzione 7

...// es0033.end
                                               Txt :=
                                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                                 CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                 // es0033.begin
                                                 //PADSTR('',72,' ');
                                                 PADSTR('',322,' ');
                                                 // es0033.end
...

8 il codice esistente

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

Codice di sostituzione 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
...

Codice esistente 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);
...

Codice di sostituzione 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);
...

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

Codice di sostituzione 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
...

Codice esistente 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);
...

Codice di sostituzione 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);
...

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

Codice di sostituzione 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
...

Codice esistente 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);
...

Codice di sostituzione 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);
...

Modificare il codice nelle variabili globali del report di rendere dichiarazione 349 (10710) come segue:Codice esistente

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

Codice di sostituzione

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

Modificare il codice nella funzione GetPostedCountryLocCode nel rapporto di rendere dichiarazione 349 (10710) come segue:Codice esistente 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;
...

Codice sostitutivo 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;
...

Codice esistente 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;
...

Codice di sostituzione 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;
...

Prerequisiti

Deve avere uno dei seguenti prodotti per applicare questo hotfix:

La versione spagnola di Microsoft Dynamics NAV 2009 R2
La versione spagnola di Microsoft Dynamics NAV 2009 SP1

Inoltre, è necessario disporre di KB3036701 installato.

Informazioni sulla rimozione

Non è possibile rimuovere questo hotfix.

Stato

Microsoft ha confermato che questo è un problema dei prodotti Microsoft elencati nella sezione "Si applica a".

Nota: Si tratta di un articolo a "Pubblicazione Veloce" creato direttamente all'interno dell'organizzazione di supporto Microsoft. Le informazioni contenute nel presente documento sono fornite così come sono in risposta a problemi urgenti. Per la velocità in rendendo disponibili, i materiali possono includere errori tipografici e possono essere modificati in qualsiasi momento senza preavviso. Per altre considerazioni, vedere Condizioni di utilizzo.

Chiave dell'operazione viene esportato sempre con "E" nella dichiarazione 349 nella versione spagnola di Microsoft Dynamics NAV 2009

Sintomi

Risoluzione

Informazioni sull'hotfix

Informazioni sull'installazione

Modifiche al codice

Prerequisiti

Informazioni sulla rimozione

Stato

Serve aiuto?

Vuoi altre opzioni?

Queste informazioni sono risultate utili?

Grazie per il feedback!