Apenas uma quantidade parcial de um componente é revertida para a bandeja de montar quando você desfaz uma remessa de um item ATO que contém o componente do Microsoft Dynamics NAV 2013

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

BUG n º: 183588 (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ê integrar o recurso de gerenciamento de Assembly com o sistema de gerenciamento de depósito (WMS) no Microsoft Dynamics NAV 2013. Executar a função Desfazer remessa para um "Assemble a ordem" item (ATO) que contém um componente que usa o controle de itens. Nessa situação, apenas uma quantidade parcial do componente é revertida para a bandeja de montagem.  Portanto, há um desequilíbrio entre o conteúdo da Lixeira e quantidade disponível nas entradas de razão de item para o componente.

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

Esse hotfix não está programado para ser incluído em um service pack do Microsoft Dynamics NAV.



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. Engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas 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. Altere o código na função PostItemConsumption na codeunit "Assembly-Post" (900) da seguinte forma:
    Código existente

    ...ItemJnlLine."Unit Cost" := "Unit Cost";
    ItemJnlLine.Correction := IsCorrection;
    END;
    IF IsCorrection THEN

    // Delete the following lines.
    PostCorrectionItemJnLine(ItemJnlLine,ItemJnlPostLine,DATABASE::"Posted Assembly Line",ApplyToEntryNo)
    ELSE BEGIN
    AssemblyLineReserve.TransferAsmLineToItemJnlLine(AssemblyLine,ItemJnlLine,ItemJnlLine."Quantity (Base)",FALSE);
    ItemJnlPostLine.RunWithCheck(ItemJnlLine);
    AssemblyLineReserve.UpdateItemTrackingAfterPosting(AssemblyLine);
    END;
    PostWhseJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlPostLine,WhseJnlRegisterLine);
    // End of the lines.

    EXIT(ItemJnlLine."Item Shpt. Entry No.");
    END;
    LOCAL PROCEDURE PostItemOutput@4(VAR AssemblyHeader@1001 : Record 900;PostingNoSeries@1007 : Code[10];QtyToOutput@1004 : Decimal;QtyToOutputBase@1005 : Decimal;VAR ItemJnlPostLine@1002 : Codeunit 22;VAR WhseJnlRegisterLine@1003 : Codeunit 7301;DocumentNo@1010 : Code[20];IsCorrection@1011 : Boolean;ApplyToEntryNo@1008 : Integer) : Integer;
    VAR
    ...

    Código de substituição

    ...ItemJnlLine."Unit Cost" := "Unit Cost";
    ItemJnlLine.Correction := IsCorrection;
    END;
    IF IsCorrection THEN

    // Add the following lines.
    PostCorrectionItemJnLine(ItemJnlLine,AssemblyHeader,ItemJnlPostLine,DATABASE::"Posted Assembly Line",ApplyToEntryNo)
    ELSE BEGIN
    AssemblyLineReserve.TransferAsmLineToItemJnlLine(AssemblyLine,ItemJnlLine,ItemJnlLine."Quantity (Base)",FALSE);
    ItemJnlPostLine.RunWithCheck(ItemJnlLine);
    AssemblyLineReserve.UpdateItemTrackingAfterPosting(AssemblyLine);
    PostWhseJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlPostLine,WhseJnlRegisterLine);
    END;
    // End of the lines.

    EXIT(ItemJnlLine."Item Shpt. Entry No.");
    END;
    LOCAL PROCEDURE PostItemOutput@4(VAR AssemblyHeader@1001 : Record 900;PostingNoSeries@1007 : Code[10];QtyToOutput@1004 : Decimal;QtyToOutputBase@1005 : Decimal;VAR ItemJnlPostLine@1002 : Codeunit 22;VAR WhseJnlRegisterLine@1003 : Codeunit 7301;DocumentNo@1010 : Code[20];IsCorrection@1011 : Boolean;ApplyToEntryNo@1008 : Integer) : Integer;
    VAR
    ...
  2. Altere o código na função PostItemOutput na codeunit "Assembly-Post" (900) da seguinte forma:
    Código existente

    ...GLSetup."Unit-Amount Rounding Precision"));
    ItemJnlLine.Correction := IsCorrection;
    END;
    IF IsCorrection THEN

    // Delete the following lines.
    PostCorrectionItemJnLine(ItemJnlLine,ItemJnlPostLine,DATABASE::"Posted Assembly Header",ApplyToEntryNo)
    ELSE BEGIN
    AssemblyHeaderReserve.TransferAsmHeaderToItemJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlLine."Quantity (Base)",FALSE);
    ItemJnlPostLine.RunWithCheck(ItemJnlLine);
    AssemblyHeaderReserve.UpdateItemTrackingAfterPosting(AssemblyHeader);
    END;
    PostWhseJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlPostLine,WhseJnlRegisterLine);
    EXIT(ItemJnlLine."Item Shpt. Entry No.");
    END;
    LOCAL PROCEDURE PostCorrectionItemJnLine@37(VAR ItemJnlLine@1001 : Record 83;VAR ItemJnlPostLine@1008 : Codeunit 22;SourceType@1002 : Integer;ApplyToEntry@1005 : Integer);
    // End of the lines.

    VAR
    TempItemLedgEntry2@1000 : TEMPORARY Record 32;
    ATOLink@1003 : Record 904;
    TempItemLedgEntryInChain@1006 : TEMPORARY Record 32;
    ItemApplnEntry@1004 : Record 339;
    ...

    Código de substituição

    ...GLSetup."Unit-Amount Rounding Precision"));
    ItemJnlLine.Correction := IsCorrection;
    END;
    IF IsCorrection THEN

    // Add the following lines.
    PostCorrectionItemJnLine(ItemJnlLine,AssemblyHeader,ItemJnlPostLine,DATABASE::"Posted Assembly Header",ApplyToEntryNo)
    ELSE BEGIN
    AssemblyHeaderReserve.TransferAsmHeaderToItemJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlLine."Quantity (Base)",FALSE);
    ItemJnlPostLine.RunWithCheck(ItemJnlLine);
    AssemblyHeaderReserve.UpdateItemTrackingAfterPosting(AssemblyHeader);
    PostWhseJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlPostLine,WhseJnlRegisterLine);
    END;
    EXIT(ItemJnlLine."Item Shpt. Entry No.");
    END;
    LOCAL PROCEDURE PostCorrectionItemJnLine@37(VAR ItemJnlLine@1001 : Record 83;AssemblyHeader@1007 : Record 900;VAR ItemJnlPostLine@1008 : Codeunit 22;SourceType@1002 : Integer;ApplyToEntry@1005 : Integer);
    // End of the lines.

    VAR
    TempItemLedgEntry2@1000 : TEMPORARY Record 32;
    ATOLink@1003 : Record 904;
    TempItemLedgEntryInChain@1006 : TEMPORARY Record 32;
    ItemApplnEntry@1004 : Record 339;
    ...
  3. Altere o código na função PostCorrectionItemJnLine na codeunit "Assembly-Post" (900) da seguinte forma:
    Código existente

    ...ItemJnlLine."Warranty Date" := TempItemLedgEntry."Warranty Date";
    ItemJnlLine."Expiration Date" := TempItemLedgEntry."Expiration Date";
    ItemJnlLine."Item Shpt. Entry No." := 0;
    ItemJnlPostLine.RunWithCheck(ItemJnlLine);
    UNTIL TempItemLedgEntry2.NEXT = 0;
    END;
    LOCAL PROCEDURE FindAppliesToATOUndoEntry@46(VAR ItemLedgEntryInChain@1000 : Record 32) : Integer;
    BEGIN
    ...

    Código de substituição

    ...ItemJnlLine."Warranty Date" := TempItemLedgEntry."Warranty Date";
    ItemJnlLine."Expiration Date" := TempItemLedgEntry."Expiration Date";
    ItemJnlLine."Item Shpt. Entry No." := 0;
    ItemJnlPostLine.RunWithCheck(ItemJnlLine);

    // Add the following line.
    PostWhseJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlPostLine,WhseJnlRegisterLine);

    UNTIL TempItemLedgEntry2.NEXT = 0;
    END;
    LOCAL PROCEDURE FindAppliesToATOUndoEntry@46(VAR ItemLedgEntryInChain@1000 : Record 32) : Integer;
    BEGIN
    ...


Pré-requisitos:

Você deve ter o Microsoft Dynamics NAV 2013 instalado para aplicar esse hotfix.

Informações sobre remoção

Você não pode remover esse hotfix.

Referências

VSTF DynamicsNAVSE: 344315

Status

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

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-deni
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?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×