Mensagem de erro "Remessa venda [Shipment_No], n º de linha [Line_No] não é copiada porque a quantidade total na linha de documento lançado já manualmente é aplicada" quando você executa a função de cópia de documento em uma devolução de venda parcial no Microsoft Dynamics NAV

Modelo: CPR - modelo de correção de código Navision

BUG n º: 184367 (Manutenção do conteúdo)

Este artigo se aplica ao Microsoft Dynamics NAV para todos os países e todas as localidades de idiomas.

Sintomas

Suponha que você habilitar a configuração de Reversão de custo exato na caixa de diálogo de vendas e o programa de instalação a receber no Microsoft Dynamics NAV. Nessa situação, quando você executa a função de Cópia de documento em uma devolução de venda parcial, você recebe a seguinte mensagem de erro:

Vendas remessa Shipment_No, linha n º Line_No não é copiado porque a quantidade total na linha de documento lançado já manualmente é aplicada.

Esse problema ocorre nos seguintes produtos:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1

Resolução

Informações sobre o hotfix

Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.

Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.

Se esse hotfix não está disponível para download público (ou seja, que não é fornecido um URL público para esse hotfix neste artigo), a distribuição requer conhecimento técnico, membro da equipe de escalação ou aprovação gerencial e as seguintes informações se aplicam:

  • Para receber o hotfix, é necessário tendo o erro mencionado na seção "Sintomas".

  • Você deve controlar os clientes enviá-lo para e forneça o próximo service pack quando estiver disponível (se um service pack for lançado).


Informações sobre a instalação

A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.

Observação: Antes de instalar esse hotfix, verifique se todos os usuários de cliente do Microsoft Navision estiver desconectados do sistema. Isso inclui usuários de cliente do Microsoft Navision Application Server (NAS). Você deve ser o único usuário do cliente conectado ao implementar esse hotfix.

Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.

É recomendável que a conta de usuário na janela de Logins do Windows ou na janela banco de dados seja atribuída a ID de função "SUPER". Se a conta de usuário não pode ser atribuída a ID de função "SUPER", você deverá verificar se a conta de usuário tem as seguintes permissões:

  • A permissão Modificar para o objeto que será alterado.

  • A permissão de execução para o objeto de sistema 5210 de identificação de objeto e do objeto de sistema 9015 de identificação de objeto .



Observação: Você não precisa ter direitos para os armazenamentos de dados, a menos que você precise executar o reparo de dados.

Alterações de código

Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.
Para resolver esse problema, execute as seguintes etapas:

  1. Exclua as seguintes variáveis globais na codeunit cópia gerenciamento de documento (6620):

    Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
    SomeAreFixed@1045 : Boolean;
    CopyDimensions@1050 : Boolean;

  2. Adicione as seguintes variáveis globais na codeunit cópia gerenciamento de documento (6620):

    Text030@1025 : TextConst 'ENU=One or more return document lines were not copied. This is because quantities on the posted document line are already fully or partially applied and therefore the Exact Cost Reversing Link could not be created.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
    SomeAreFixed@1045 : Boolean;
    CopyDimensions@1050 : Boolean;
    WarningDone@1051 : Boolean;
    LinesApplied@1052 : Boolean;

  3. Altere o código na função SplitPstdSalesLinesPerILE o código de gerenciamento de documentos de cópia (6620) da seguinte forma:
    1 de código existente

    ...            IF "Shipped Qty. Not Returned" = 0 THEN

    // Delete the following lines.
    ERROR(Text030,"Document Type","Document No.","Document Line No.");
    FromSalesLineBuf := FromSalesLine;
    IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
    IF FromSalesLine."Quantity (Base)" > 0 THEN
    FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
    ELSE
    FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
    IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
    FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
    ELSE
    FromSalesLineBuf.Quantity :=
    ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
    END;
    FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
    FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
    FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
    FromSalesLineBuf."Line No." := NextLineNo;
    NextLineNo := NextLineNo + 1;
    FromSalesLineBuf."Document No." := "Document No.";
    IF GetSalesDocType(ItemLedgEntry) IN
    [FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
    THEN
    FromSalesLineBuf."Shipment Line No." := 1;

    IF NOT FromShptOrRcpt THEN
    UpdateRevSalesLineAmount(
    FromSalesLineBuf,OrgQtyBase,
    FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");

    FromSalesLineBuf.INSERT;
    // End of the lines.

    UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
    ...

    1 código de substituição

    ...            IF "Shipped Qty. Not Returned" = 0 THEN

    // Add the following lines.
    LinesApplied := TRUE;
    IF "Shipped Qty. Not Returned" < 0 THEN BEGIN
    FromSalesLineBuf := FromSalesLine;

    IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
    IF FromSalesLine."Quantity (Base)" > 0 THEN
    FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
    ELSE
    FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
    IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
    FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
    ELSE
    FromSalesLineBuf.Quantity :=
    ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
    END;
    FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
    FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
    FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
    FromSalesLineBuf."Line No." := NextLineNo;
    NextLineNo := NextLineNo + 1;
    FromSalesLineBuf."Document No." := "Document No.";
    IF GetSalesDocType(ItemLedgEntry) IN
    [FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
    THEN
    FromSalesLineBuf."Shipment Line No." := 1;

    IF NOT FromShptOrRcpt THEN
    UpdateRevSalesLineAmount(
    FromSalesLineBuf,OrgQtyBase,
    FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");

    FromSalesLineBuf.INSERT;
    END;
    // End of the lines.

    UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
    ...

    2 de código existente

    ...            MissingExCostRevLink := TRUE;
    END;
    ...

    Código de substituição 2

    ...            MissingExCostRevLink := TRUE;

    // Add the following line.
    CheckUnappliedLines(LinesApplied,MissingExCostRevLink);

    END;
    ...

  4. Altere o código na função SplitPstdPurchLinesPerILE o código de gerenciamento de documentos de cópia (6620) da seguinte forma:
    1 de código existente

    ...        ApplyRec@1011 : Record 339;

    // Delete the following line.
    AllAreFixed@1012 : Boolean;

    BEGIN
    ...

    1 código de substituição

    ...        ApplyRec@1011 : Record 339;
    BEGIN
    ...

    2 de código existente

    ...          REPEAT

    // Delete the following lines.
    IF "Remaining Quantity" = 0 THEN BEGIN
    AllAreFixed := TRUE;
    ApplyRec.AppliedOutbndEntryExists("Entry No.",FALSE);
    IF ApplyRec.FINDFIRST THEN
    REPEAT
    AllAreFixed := AllAreFixed AND ApplyRec.Fixed;
    UNTIL ApplyRec.NEXT = 0;
    IF AllAreFixed THEN
    ERROR(Text030,"Document Type","Document No.","Document Line No.");
    END;
    // End of the lines.

    IF NOT ApplyFully THEN BEGIN
    ...

    Código de substituição 2

    ...          REPEAT
    IF NOT ApplyFully THEN BEGIN
    ...

    3 de código existente

    ...        END;
    ...

    Código de substituição 3

    ...        END;

    // Add the following line.
    CheckUnappliedLines(SkippedLine,MissingExCostRevLink);

    ...

  5. Altere o código na função CheckUnappliedLines o código de gerenciamento de documentos de cópia (6620) da seguinte forma:
    Código existente

    ...      BEGIN
    ...

    Código de substituição

    ...
    // Add the following lines.
    LOCAL PROCEDURE CheckUnappliedLines@86(SkippedLine@1000 : Boolean;VAR MissingExCostRevLink@1001 : Boolean);
    BEGIN
    IF SkippedLine AND MissingExCostRevLink THEN BEGIN
    IF NOT WarningDone THEN
    MESSAGE(Text030);
    MissingExCostRevLink := FALSE;
    WarningDone := TRUE;
    END;
    END;

    // End of the lines.

    BEGIN
    ...

Pré-requisitos:

Você deve ter um dos seguintes produtos instalados para aplicar esse hotfix:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1

Informações sobre remoção

Você não pode remover esse hotfix.

Status

A Microsoft confirma que este é um problema em seus produtos listados na seção "Aplica-se a".

Referências

VSFT DynamicsNAVSE: 344475

Observação: Este é um artigo de "PUBLICAÇÃO RÁPIDA" criado diretamente de dentro da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas desta maneira, em resposta a problemas emergentes. Como um dos resultados da velocidade da publicação, os materiais podem incluir erros tipográficos e podem ser revisados a qualquer momento sem aviso prévio. Consulte os Termos de uso para outras considerações.

Autor: cosborne
Gravador: v-brialu
Revisor técnico: cosborne
Editor:

Precisa de mais ajuda?

Expanda suas habilidades
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Microsoft Insider

Estas informações foram úteis?

Qual é o seu grau de satisfação com a qualidade da tradução?

O que afetou sua experiência?

Algum comentário adicional? (Opcional)

Obrigado por seus comentários!

×