Movimentos de armazém não são actualizados com todas as linhas de rastreio de um diário de projecto quando regista um item no diário de projecto a uma posição no Microsoft Dynamics NAV 2009

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

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

1. Adicionar uma nova variável global na tabela Linha de diário de projecto (210) e, em seguida, especifique a variável da seguinte forma:

   • Nome: WMSManagement

   • Tipo de dados: Codeunit

   • Subtipo: Gestão WMS (7302)

2. Eliminar o seguinte código na propriedade TableRelation do Código de posição de campo (5403) na tabela Linha de diário de projecto (210):

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

3. Alterar o código no activador OnValidate para código de posição de campo (5403) na tabela Linha de diário de projecto (210) os seguintes:
   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 que o Código de posição - OnLookup triggerin da tabela Linha de diário de projecto (210) e, em seguida, especifique a variável da seguinte forma:

   • Nome: BinCode

   • Tipo de dados: código

   • Comprimento: 20

5. Adicione o seguinte código do accionador de OnLookup do Código de posição - na tabela Linha de diário de projecto (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 da propriedade OptionString do campo Documento de origem (25) na tabela Linha de diário de armazém (7311) para o seguinte:
   OptionString=, S. encomenda, S. factura, nota de crédito de S., devolução de S., P. encomenda, factura, nota de crédito de P., devolução, Reclass. Transferência, Outb. Transferência, Ordem Prod. O consumo, Item Conf., INV. físico Conf., Transf. Conf., consumo diário., Conf., Conf., L.M., Serv ordem de saída, diário de projecto.

7. Altere o valor da propriedade OptionString do campo Documento de referência (60) na tabela Linha de diário de armazém (7311) para o seguinte:
   OptionString= , registado Rcpt., registado Fact P., registada env.., P. n, envio registado, registada a factura de S., Env., envio S. crédito, recepção, Envio Reg. T., Item Diário Prod., Doc. Arrumar, recolha, movimento, diário L.M., diário de projecto

8. Altere o valor da propriedade OptionString do campo documento de origem (25) da tabela de movimentos de armazém (7312) para o seguinte:
   OptionString=, S. encomenda, S. factura, nota de crédito de S., devolução de S., P. encomenda, factura, nota de crédito de P., devolução, Reclass. Transferência, Outb. Transferência, Ordem Prod. O consumo, Item Conf., INV. físico Conf., Transf. Conf., consumo diário., saída Conf., Conf., L.M., Ordem Serv., diário de projecto.

9. Altere o valor da propriedade OptionString do campo documento de referência (60) da tabela de movimentos de armazém (7312) para o seguinte:
   OptionString= , registado Rcpt., registado Fact P., registada env.., P. n, envio registado, registada a factura de S., Env., envio S. crédito, recepção, Envio Reg. T., Item Diário Prod., Doc. Arrumar, recolha, movimento, diário L.M., diário de projecto

10. Altere a propriedade Visible do controlo de código de localização (60) sob a forma de diário de projecto (201) do seguinte modo:
    Código existente

    Visible = Yes

    Código de substituição

    Visible = No

11. Adicione o campo de Código de posição entre o campo de Código de localização e o campo de Código de tipo de trabalho sob a forma de diário de projecto (201) e, em seguida, especifique o campo como 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 do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:

    • Nome: localização

    • Tipo de dados: registo

    • Subtipo: localização (14)

13. Criar uma nova função de GetLocation do diário de projecto.-linha colocar codeunit (1012) da seguinte forma:

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

14. Adicione o seguinte código na função GetLocation do diário de projecto.-linha colocar codeunit (1012):

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

15. Criar uma nova função de PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) da seguinte forma:

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

16. Criar as seguintes variáveis locais na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012):

    1. Adicionar uma variável local na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:

       • Nome: WarehouseJournalLine

       • Tipo de dados: registo

       • Subtipo: linha de diário de armazém (7311)

    2. Adicionar uma variável local na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:

       • Nome: TempWarehouseJournalLine

       • Tipo de dados: registo temporário

       • Subtipo: linha de diário de armazém (7311)

    3. Adicionar uma variável local na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:

       • Nome: ItemTrackingManagement

       • Tipo de dados: Codeunit

       • Subtipo: Gestão de rastreio de produto (6500)

    4. Adicionar uma variável local na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:

       • Nome: WMSManagement

       • Tipo de dados: Codeunit

       • Subtipo: Gestão WMS (7302)

    5. Adicionar uma variável local na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:

       • Nome: WhseJnlRegisterLine

       • Tipo de dados: Codeunit

       • Subtipo: Arm. Diário-registar a linha (7301)

17. Adicione o seguinte código na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) da seguinte forma:

    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 diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:

    • Nome: TempTrackingSpecification

    • Tipo de dados: registo temporário

    • Subtipo: Especificação Rastreio (336)

19. Adicionar uma nova variável local na função de código do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:

    • Nome: ItemJnlLine2

    • Tipo de dados: registo

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

20. Alterar o código na função de código do diário de projecto.-linha colocar codeunit (1012) os seguintes:
    Código existente 1

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

    Código de substituição 1

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

    Código existente 2

    ...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 de documento de referência na função GetSourceDocument no armazém. Codeunit Management (5775) à seguinte:
    OptionString=, S. encomenda, S. factura, nota de crédito de S., devolução de S., P. encomenda, factura, nota de crédito de P., devolução, Reclass. Transferência, Outb. Transferência, Ordem Prod. O consumo, Item Conf., INV. físico Conf., Transf. Conf., consumo diário., saída Conf., Conf., L.M., Ordem Serv., diário de projecto.

22. Altere o código na função GetSourceDocument no armazém. Codeunit Management (5775) os seguintes:
    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 gestão WMS (7302), tal 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.";
    ...