Iniciar sessão com a Microsoft
Iniciar sessão ou criar uma conta.
Olá,
Selecione uma conta diferente.
Tem várias contas
Selecione a conta com a qual pretende iniciar sessão.

Sintomas

Depois de instalar KB3036701 na versão espanhola do Microsoft Dynamics NAV 2009, a chave de operação para a linha de correcção sempre é exportada como "E", quando deve depender da operação anterior que está a corrigir. Siga os passos na secção de alterações de código para resolver este problema. Este problema ocorre nos seguintes produtos:

  • A versão espanhola do Microsoft Dynamics NAV 2009 R2

  • A versão espanhola do Microsoft Dynamics NAV 2009 SP1

Resolução

Informações sobre correção

Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.

Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas que não se enquadrem na atualização específica em questão.

Informações de instalação

A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

Nota Antes de instalar esta correcção, certifique-se de que todos os utilizadores de cliente do Microsoft Dynamics NAV são registados no sistema. Isto inclui os serviços de servidor de aplicações (NAS) do Microsoft Dynamics NAV. Deve ser o único usuário do cliente que tem sessão iniciada quando implementar esta correcção.

Para implementar esta correcção, tem de ter uma licença de desenvolvedor.

Recomendamos que a conta de utilizador na janela Logins do Windows ou na janela Logins de base de dados seja atribuída a ID de função "SUPER". Se a conta de utilizador não é possível atribuir o ID de função "SUPER", tem de verificar que a conta de utilizador tem as seguintes permissões:

  • A permissão Modificar para o objecto que estará a alterar.

  • A permissão executar para o objecto 5210 de ID de objecto de sistema e para o 9015 de ID de objecto de sistema

    objecto.

Nota Não tem de ter direitos para os arquivos de dados, excepto se tiver de efectuar a reparação de dados.

Alterações de código

Nota Sempre o código de ensaio corrige num ambiente controlado antes de aplicar as correcções para os computadores de produção.

Para resolver este problema, siga estes passos:

  1. Altere o código em 5 de número de Item de dados no relatório de fazer declaração 349 (10710) do seguinte modo:
    Código existente 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;
    ...

    Código de substituição 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;
    ...

    Código existente 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,' ') +
    ...

    Código de substituição 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,' ') +
    ...

    Código existente 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
    ...

    Código de substituição 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
    ...

    Código existente 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,' ') +
    ...

    Código de substituição 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,' ') +
    ...

    Código existente 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
    ...

    Código de substituição 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
    ...

    Código existente 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,' ') +
    ...

    Código de substituição 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,' ') +
    ...

    Código existente 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;
    ...

    Código de substituição 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;
    ...

    Código existente 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
    ...

    Código de substituição 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
    ...

    Código existente 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
    ...

    Código de substituição 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
    ...

    Código existente 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);
    ...

    Código de substituição 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);
    ...

    Código existente 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
    ...

    Código de substituição 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
    ...

    Código existente 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);
    ...

    Código de substituição 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. Altere o código em 6 de número de Item de dados no relatório de Make349Declaration (10710) do seguinte modo:
    Código existente 1

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

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

    Código de substituição 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;
    ...

    Código existente 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,' ') +
    ...

    Código de substituição 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,' ') +
    ...

    Código existente 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
    ...

    Código de substituição 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
    ...

    Código existente 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,' ') +
    ...

    Código de substituição 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,' ') +
    ...

    Código existente 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);
    ...

    Código de substituição 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);
    ...

    Código existente 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,' ') +
    ...

    Código de substituição 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,' ') +
    ...

    Código existente 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
    ...

    Código de substituição 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
    ...

    Código existente 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
    ...

    Código de substituição 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
    ...

    Código existente 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);
    ...

    Código de substituição 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);
    ...

    Código existente 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
    ...

    Código de substituição 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
    ...

    Código existente 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);
    ...

    Código de substituição 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);
    ...

    Código existente 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
    ...

    Código de substituição 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
    ...

    Código existente 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);
    ...

    Código de substituição 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. Altere o código na variáveis globais no relatório de fazer declaração 349 (10710) do seguinte modo:
    Código existente

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

    Código de substituição

    ...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. Altere o código na função GetPostedCountryLocCode no relatório de fazer declaração 349 (10710) do seguinte modo:
    Código existente 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;
    ...

    Código de substituição 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;
    ...

    Código existente 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;
    ...

    Código de substituição 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;
    ...

Pré-requisitos

Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:

  • A versão espanhola do Microsoft Dynamics NAV 2009 R2

  • A versão espanhola do Microsoft Dynamics NAV 2009 SP1

Além disso, tem de ter KB3036701 instalado.

Informações de remoção

Não é possível remover esta correcção.

Estado

A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na secção "Aplica-se a".

Nota Este é um artigo "Publicação rápida" criado diretamente a partir da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas como-se em resposta a questões emergentes. Como resultado da urgência na sua disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Para outras considerações, consulte os Termos de utilização.

Facebook LinkedIn E-mail
SUBSCREVER FEEDS RSS

Precisa de mais ajuda?

Quer mais opções?

Descobrir Comunidade

Explore os benefícios da subscrição, navegue em cursos de formação, saiba como proteger o seu dispositivo e muito mais.

Benefícios da subscrição do Microsoft 365

Formação do Microsoft 365

Segurança da Microsoft

Centro de acessibilidade

As comunidades ajudam-no a colocar e a responder perguntas, a dar feedback e a ouvir especialistas com conhecimentos abrangentes.

Pergunte à Comunidade Microsoft

Microsoft Tech Community (Comunidade Tecnológica Microsoft)

Utilizadores do Windows Insider

Microsoft 365 Insiders

Estas informações foram úteis?

Quão satisfeito está com a qualidade do idioma?
O que afetou a sua experiência?
Ao selecionar submeter, o seu feedback será utilizado para melhorar os produtos e serviços da Microsoft. O seu administrador de TI poderá recolher estes dados. Declaração de Privacidade.

Obrigado pelo seu feedback!

×