Entradas de depósito não são atualizadas com todos os itens de controle de linhas em um diário de trabalho quando você coloca um item no diário de trabalho para uma bandeja no Microsoft Dynamics NAV 2009

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

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: criar as variáveis locais a seguir:

1. Adicionar uma nova variável global na tabela de linha do diário de trabalho (210) e, em seguida, especifique a variável da seguinte maneira:

   • Nome: WMSManagement

   • Tipo de dados: Codeunit

   • Subtipo: Gerenciamento do WMS (7302)

2. Excluir o código a seguir na propriedade TableRelation do Código Bin (5403) de campo na tabela de linha do diário de trabalho (210):

   Bin.Code WHERE (Location Code=FIELD(Location Code));

3. Alterar o código no disparador OnValidate Bin código de campo (5403) na tabela de linha do diário de trabalho (210) como a seguir:
   Código existente

   ...// Delete the following lines.
   TESTFIELD("Location Code");
   CheckItemAvailable;
   // End of the lines.
   ...
   

   Código de substituição

   ...// Add the following lines.
   TESTFIELD("Location Code");
   IF "Bin Code" <> '' THEN BEGIN
   GetLocation("Location Code");
   Location.TESTFIELD("Bin Mandatory");
   END;
   TESTFIELD(Type,Type::Item);
   CheckItemAvailable;
   WMSManagement.FindBinContent("Location Code","Bin Code","No.","Variant Code",'')
   // End of the lines.
   ...
   

4. Adicionar uma nova variável de local em triggerin de OnLookup o Código Bin - tabela de linha do diário de trabalho (210) e, em seguida, especifique a variável da seguinte maneira:

   • Nome: BinCode

   • Tipo de dados: código

   • Comprimento: 20

5. Adicione o seguinte código no Código Bin - OnLookup disparador na tabela de linha do diário de trabalho (210):

   TESTFIELD("Location Code");TESTFIELD(Type,Type::Item);
   BinCode := WMSManagement.BinContentLookUp("Location Code","No.","Variant Code",'',"Bin Code");
   IF BinCode <> '' THEN
   VALIDATE("Bin Code",BinCode);
   

6. Altere o valor na propriedade OptionString do campo de Documento de origem (25) na tabela de linha de diário de depósito (7311) para o seguinte:
   OptionString=, S. ordem, fatura S., Memorando de crédito S., ordem de devolução de S., P. pedido, fatura P., Memorando de crédito P., ordem de devolução de P., tranerir. Transferência, Outb. Transferência, Prod. Consumo, Item Jnl., física Invt. Jnl., Reclass. Jnl., consumo Jnl., Jnl., BOM Jnl., Serv ordem de saída, trabalho Jnl.

7. Altere o valor na propriedade OptionString do campo de Documento de referência (60) na tabela de linha de diário de depósito (7311) para o seguinte:
   OptionString= , lançado Rcpt., lançado P. fatura, lançado lançado P. Cr. Memorando, lançado remessa, lançada S. fatura, lançado Rtrn. remessa, lançada S. Cr. Memorando, lançado T. recebimento, lançado remessa de T. Rtrn. Rcpt., Item diário, prod., recepção, escolha, movimentação, o diário de BOM, o diário de trabalhos

8. Altere o valor na propriedade OptionString do campo de documento de origem (25) na tabela entrada de depósito (7312) para o seguinte:
   OptionString=, S. ordem, fatura S., Memorando de crédito S., ordem de devolução de S., P. pedido, fatura P., Memorando de crédito P., ordem de devolução de P., tranerir. Transferência, Outb. Transferência, Prod. Consumo, Item Jnl., física Invt. Jnl., Reclass. Jnl., consumo Jnl., Jnl., BOM Jnl., Serv. ordem de saída, trabalho Jnl.

9. Altere o valor na propriedade OptionString do campo de documento de referência (60) na tabela entrada de depósito (7312) para o seguinte:
   OptionString= , lançado Rcpt., lançado P. fatura, lançado lançado P. Cr. Memorando, lançado remessa, lançada S. fatura, lançado Rtrn. remessa, lançada S. Cr. Memorando, lançado T. recebimento, lançado remessa de T. Rtrn. Rcpt., Item diário, prod., recepção, escolha, movimentação, o diário de BOM, o diário de trabalhos

10. Altere a propriedade Visible do controle de código de local (60) no formulário Diário de trabalho (201) da seguinte forma:
    Código existente

    Visible = Yes

    Código de substituição

    Visible = No

11. Adicione o campo de Código de Bin entre os campos de Código do local e o Código do tipo de trabalho no formulário Diário de trabalho (201) e especifique o campo conforme a seguir:

    ...{ 61 ;Label ;0 ;0 ;0 ;0 ;ParentControl=60;
    InColumnHeading=Yes }
    
    // Add the following lines.
    { 102 ;TextBox ;35507;1650 ;1700 ;440 ;ParentControl=1;
    InColumn=Yes;
    SourceExpr="Bin Code" }
    { 103 ;Label ;0 ;0 ;0 ;0 ;ParentControl=102;
    InColumnHeading=Yes }
    // End of the lines.
    
    { 48 ;TextBox ;11430;2530 ;1650 ;440 ;ParentControl=1;
    ...
    

12. Adicionar uma nova variável global no trabalho Jnl.-lançar linha codeunit (1012) e, em seguida, especifique a variável da seguinte maneira:

    • Nome: localização

    • Tipo de dados: registro

    • Subtipo: o local (14)

13. Crie uma nova função GetLocation de trabalho Jnl.-lançar linha codeunit (1012) da seguinte maneira:

    LOCAL PROCEDURE GetLocation@25(LocationCode@1000 : Code[10]);
    

14. Adicione o seguinte código na função GetLocation de trabalho Jnl.-lançar linha codeunit (1012):

    IF LocationCode = '' THENCLEAR(Location)
    ELSE
    IF Location.Code <> LocationCode THEN
    Location.GET(LocationCode);
    

15. Crie uma nova função PostWhseJnlLine de trabalho Jnl.-lançar linha codeunit (1012) da seguinte maneira:

    LOCAL PROCEDURE PostWhseJnlLine@24(ItemJnlLine@1000 : Record 83;OriginalQuantity@1001 : Decimal;OriginalQuantityBase@1002 : Decimal;VAR TempTrackingSpecification@1003 : TEMPORARY Record 336);

16. Crie as seguintes variáveis locais na função PostWhseJnlLine de trabalho Jnl.-lançar linha codeunit (1012):

    1. Adicione uma variável local na função PostWhseJnlLine de trabalho Jnl.-lançar linha codeunit (1012) e, em seguida, especifique a variável da seguinte maneira:

       • Nome: WarehouseJournalLine

       • Tipo de dados: registro

       • Subtipo: linha de diário de depósito (7311)

    2. Adicione uma variável local na função PostWhseJnlLine de trabalho Jnl.-lançar linha codeunit (1012) e, em seguida, especifique a variável da seguinte maneira:

       • Nome: TempWarehouseJournalLine

       • Tipo de dados: registro temporário

       • Subtipo: linha de diário de depósito (7311)

    3. Adicione uma variável local na função PostWhseJnlLine de trabalho Jnl.-lançar linha codeunit (1012) e, em seguida, especifique a variável da seguinte maneira:

       • Nome: ItemTrackingManagement

       • Tipo de dados: Codeunit

       • Subtipo: o gerenciamento de controle de itens (6500)

    4. Adicione uma variável local na função PostWhseJnlLine de trabalho Jnl.-lançar linha codeunit (1012) e, em seguida, especifique a variável da seguinte maneira:

       • Nome: WMSManagement

       • Tipo de dados: Codeunit

       • Subtipo: Gerenciamento do WMS (7302)

    5. Adicione uma variável local na função PostWhseJnlLine de trabalho Jnl.-lançar linha codeunit (1012) e, em seguida, especifique a variável da seguinte maneira:

       • Nome: WhseJnlRegisterLine

       • Tipo de dados: Codeunit

       • Subtipo: Whse. Jnl.-Registre linha (7301)

17. Adicione o seguinte código na função PostWhseJnlLine de trabalho Jnl.-lançar linha codeunit (1012) da seguinte maneira:

    WITH ItemJnlLine DO BEGINIF "Entry Type" IN ["Entry Type"::Consumption,"Entry Type"::Output] THEN
    EXIT;
    Quantity := OriginalQuantity;
    "Quantity (Base)" := OriginalQuantityBase;
    GetLocation("Location Code");
    IF Location."Bin Mandatory" THEN
    IF WMSManagement.CreateWhseJnlLine(ItemJnlLine,0,WarehouseJournalLine,FALSE,FALSE) THEN BEGIN
    TempTrackingSpecification.MODIFYALL("Source Type",DATABASE::"Job Journal Line");
    ItemTrackingManagement.SplitWhseJnlLine(WarehouseJournalLine,TempWarehouseJournalLine,TempTrackingSpecification,FALSE);
    IF TempWarehouseJournalLine.FIND('-') THEN
    REPEAT
    WMSManagement.CheckWhseJnlLine(TempWarehouseJournalLine,1,0,FALSE);
    WhseJnlRegisterLine.RUN(TempWarehouseJournalLine);
    UNTIL TempWarehouseJournalLine.NEXT = 0;
    END;
    END;
    

18. Adicionar uma nova variável local na função de código do trabalho Jnl.-lançar linha codeunit (1012) e, em seguida, especifique a variável da seguinte maneira:

    • Nome: TempTrackingSpecification

    • Tipo de dados: registro temporário

    • Subtipo: especificação de controle (336)

19. Adicionar uma nova variável local na função de código do trabalho Jnl.-lançar linha codeunit (1012) e, em seguida, especifique a variável da seguinte maneira:

    • Nome: ItemJnlLine2

    • Tipo de dados: registro

    • Subtipo: linha de diário de Item (83)

20. Altere o código na função de código do trabalho Jnl.-lançar linha codeunit (1012) como a seguir:
    1 de código existente

    ...ItemJnlLine.INIT;
    ItemJnlLine."Item No." := JobJnlLine2."No.";
    ...
    
    

    1 código de substituição

    ...ItemJnlLine.INIT;
    
    // Add the following line.
    ItemJnlLine."Line No." := "Line No.";
    
    ItemJnlLine."Item No." := JobJnlLine2."No.";
    ...
    

    2 de código existente

    ...ItemLedgEntry.LOCKTABLE;
    ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim);
    END;
    ...
    

    Código de substituição 2

    ...ItemLedgEntry.LOCKTABLE;
    
    // Add the following line.
    ItemJnlLine2 := ItemJnlLine;
    
    ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim);
    
    // Add the following lines.
    ItemJnlPostLine.CollectTrackingSpecification(TempTrackingSpecification);
    PostWhseJnlLine(ItemJnlLine2,ItemJnlLine2.Quantity,ItemJnlLine2."Quantity (Base)",TempTrackingSpecification);
    // End of the lines.
    ...
    

21. Altere o valor na propriedade OptionString do parâmetro na função GetSourceDocument de Whse documento de referência. Código de gerenciamento (5775) para o seguinte:
    OptionString=, S. ordem, fatura S., Memorando de crédito S., ordem de devolução de S., P. pedido, fatura P., Memorando de crédito P., ordem de devolução de P., tranerir. Transferência, Outb. Transferência, Prod. Consumo, Item Jnl., física Invt. Jnl., Reclass. Jnl., consumo Jnl., Jnl., BOM Jnl., Serv. ordem de saída, trabalho Jnl.

22. Altere o código na função GetSourceDocument a Whse. Código de gerenciamento (5775) como a seguir:
    Código existente

    ...EXIT;
    END;
    END;
    ERROR(Text000);
    ...
    

    Código de substituição

    ...EXIT;
    END;
    
    // Add the following lines.
    DATABASE::"Job Journal Line":
    BEGIN 
    SourceDocument := SourceDocument::"Job Jnl.";
    EXIT;
    END;
    // End of the lines.
    
    END;
    ERROR(Text000);
    ...
    

23. Altere o código na função CreateWhseJnlLine na codeunit gerenciamento do WMS (7302) como a seguir:
    Código existente

    ...WhseJnlLine."Source Line No." := "Line No.";
    END;
    WhseJnlLine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Delete the following line.
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal";
    
    WhseJnlLine."Reference No." := "Document No.";
    ...
    

    Código de substituição

    ...WhseJnlLine."Source Line No." := "Line No.";
    
    // Add the following lines.
    END ELSE
    IF "Job No." <> '' THEN BEGIN
    WhseJnlLine."Source Type" := DATABASE::"Job Journal Line";
    WhseJnlLine."Source Subtype" := ItemJnlTemplateType;
    WhseMgt.GetSourceDocument(WhseJnlLine."Source Document",WhseJnlLine."Source Type",WhseJnlLine."Source Subtype");
    WhseJnlLine."Source No." := "Document No.";
    WhseJnlLine."Source Line No." := "Line No.";
    // End of the lines.
    END;WhseJnlLine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Add the following lines.
    IF "Job No." = '' THEN
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal"
    ELSE
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Job Journal";
    // End of the lines.
    
    WhseJnlLine."Reference No." := "Document No.";
    ...ine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Add the following lines.
    IF "Job No." = '' THEN
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal"
    ELSE
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Job Journal";
    // End of the lines.
    
    WhseJnlLine."Reference No." := "Document No.";
    ...