Artigos publicados rapidamente fornecem informações diretamente de dentro da organização de suporte da Microsoft. As informações contidas aqui são criadas em resposta a tópicos emergentes ou exclusivos ou destinam-se a complementar outras informações da Base de Dados de Conhecimento.
Este artigo se aplica ao Microsoft Dynamics NAV para todos os países e todas as localidades de idioma.
Sintomas
No Microsoft Dynamics NAV, você pode postar inesperadamente uma saída de uma nova ordem de compra para uma ordem de produção existente usando um item diferente.
Esse problema ocorre nos seguintes produtos:
- Microsoft Dynamics NAV 2009 Service Pack 1
- Microsoft Dynamics NAV 5.0 Service Pack 1
Resolução
Informações sobre o hotfix
Um hotfix com suporte agora está disponível na Microsoft. No entanto, ele destina-se apenas a corrigir o problema descrito neste artigo. Aplique-o somente a sistemas que estão enfrentando esse problema específico. Esse hotfix pode receber testes adicionais. Portanto, se você não for severamente afetado por esse problema, recomendamos aguardar o próximo pacote de serviços do Microsoft Dynamics NAV ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.
Observação Em casos especiais, os encargos que normalmente são incorridos para chamadas de suporte podem ser cancelados se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determinar que uma atualização específica resolve seu problema. Os custos de suporte em geral aplicam-se a questões e problemas de suporte adicionais 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 para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não se limita a, as garantias implícitas de comercialização ou adequação a uma finalidade específica. Este artigo pressupõe 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 ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas.
Observação Antes de instalar esse hotfix, verifique se todos os usuários cliente do Microsoft Navision estão conectados ao sistema. Isso inclui usuários cliente do NAS (Microsoft Navision Application Services). Você deve ser o único usuário cliente que está conectado ao implementar esse hotfix.
Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.
Recomendamos que a conta de usuário na janela Logons do Windows ou na janela Logons de Banco de Dados seja atribuída à ID da função "SUPER". Se a conta de usuário não puder ser atribuída à ID da 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 você estará alterando.
- A permissão Executar para o objeto System Object ID 5210 e para o objeto System Object ID 9015.
Observação Você não precisa ter direitos para os armazenamentos de dados, a menos que precise executar o reparo de dados.
Alterações de código
Observação Sempre teste correções de código em um ambiente controlado antes de aplicar as correções aos computadores de produção.
Para aplicar este hotfix, siga estas etapas:
Altere o código dos Campos na tabela Linha de Compra (39) da seguinte maneira:
Código 1 existente... END; ValidateTableRelation=No; // Delete the following line. TestTableRelation=No } { 5402; ;Variant Code ;Code10 ;TableRelation=IF (Type=CONST(Item)) "Item Variant".Code WHERE (Item No.=FIELD(No.)); OnValidate=BEGIN IF "Variant Code" <> '' THEN ...Código de substituição 1
... END; ValidateTableRelation=No; // Add the following lines. TestTableRelation=No; Editable=No } // End of the lines. { 5402; ;Variant Code ;Code10 ;TableRelation=IF (Type=CONST(Item)) "Item Variant".Code WHERE (Item No.=FIELD(No.)); OnValidate=BEGIN IF "Variant Code" <> '' THEN ...Código 2 existente
... VALIDATE("Work Center No.",ProdOrderRtngLine."No."); VALIDATE("Direct Unit Cost",ProdOrderRtngLine."Direct Unit Cost"); END; // Delete the following line. } { 99000752;;Work Center No. ;Code20 ;TableRelation="Work Center"; OnValidate=BEGIN IF Type = Type::"Charge (Item)" THEN ...Código de substituição 2
... VALIDATE("Work Center No.",ProdOrderRtngLine."No."); VALIDATE("Direct Unit Cost",ProdOrderRtngLine."Direct Unit Cost"); END; // Add the following line. Editable=No } { 99000752;;Work Center No. ;Code20 ;TableRelation="Work Center"; OnValidate=BEGIN IF Type = Type::"Charge (Item)" THEN ...Código 3 existente
... DATABASE::Job,"Job No.", DATABASE::"Responsibility Center","Responsibility Center"); END; // Delete the following line. } { 99000753;;Finished ;Boolean } { 99000754;;Prod. Order Line No.;Integer ;TableRelation="Prod. Order Line"."Line No." WHERE (Status=FILTER(Released..), ...Código de substituição 3
... DATABASE::Job,"Job No.", DATABASE::"Responsibility Center","Responsibility Center"); END; // Add the following line. Editable=No } { 99000753;;Finished ;Boolean } { 99000754;;Prod. Order Line No.;Integer ;TableRelation="Prod. Order Line"."Line No." WHERE (Status=FILTER(Released..), ...Código 4 existente
... { 99000753;;Finished ;Boolean } { 99000754;;Prod. Order Line No.;Integer ;TableRelation="Prod. Order Line"."Line No." WHERE (Status=FILTER(Released..), // Delete the following line. Prod. Order No.=FIELD(Prod. Order No.)) } { 99000755;;Overhead Rate ;Decimal ;OnValidate=BEGIN VALIDATE("Indirect Cost %"); END; ...Código de substituição 4
... { 99000753;;Finished ;Boolean } { 99000754;;Prod. Order Line No.;Integer ;TableRelation="Prod. Order Line"."Line No." WHERE (Status=FILTER(Released..), // Add the following lines. Prod. Order No.=FIELD(Prod. Order No.)); Editable=No } // End of the lines. { 99000755;;Overhead Rate ;Decimal ;OnValidate=BEGIN VALIDATE("Indirect Cost %"); END; ...Altere o código das Variáveis Globais na codeunit Item Jnl.-Check Line (21) da seguinte maneira:
Código existente... ItemLedgEntry@1007 : Record 32; ItemJnlLine2@1013 : Record 83; ItemJnlLine3@1014 : Record 83; DimMgt@1015 : Codeunit 408; AllowPostingFrom@1016 : Date; AllowPostingTo@1017 : Date; ...Código de substituição
... ItemLedgEntry@1007 : Record 32; ItemJnlLine2@1013 : Record 83; ItemJnlLine3@1014 : Record 83; // Add the following line. ProdOrderLine@1023 : Record 5406; DimMgt@1015 : Codeunit 408; AllowPostingFrom@1016 : Date; AllowPostingTo@1017 : Date; ...Altere o código na função RunCheck na codeunit Item Jnl.-Check Line (21) da seguinte maneira:
Código 1 existente... TableID@1002 : ARRAY [10] OF Integer; No@1003 : ARRAY [10] OF Code[20]; InvtPeriod@1004 : Record 5814; BEGIN WITH ItemJnlLine DO BEGIN IF EmptyLine THEN BEGIN ...Código de substituição 1
... TableID@1002 : ARRAY [10] OF Integer; No@1003 : ARRAY [10] OF Code[20]; InvtPeriod@1004 : Record 5814; // Add the following line. WorkCenter@1005 : Record 99000754; BEGIN WITH ItemJnlLine DO BEGIN IF EmptyLine THEN BEGIN ...Código 2 existente
... THEN BEGIN TESTFIELD("Source No."); CheckFindProdOrderLine("Prod. Order No.","Prod. Order Line No."); IF ("Entry Type" = "Entry Type"::Output) AND ("Output Quantity" < 0) AND (NOT Adjustment) THEN IF LastOutputOperation(ItemJnlLine) THEN TESTFIELD("Applies-to Entry"); ...Código de substituição 2
... THEN BEGIN TESTFIELD("Source No."); CheckFindProdOrderLine("Prod. Order No.","Prod. Order Line No."); // Add the following lines. IF Subcontracting THEN BEGIN TESTFIELD("Item No.",ProdOrderLine."Item No."); WorkCenter.GET("Work Center No."); WorkCenter.TESTFIELD("Subcontractor No."); END; // End of the lines. IF ("Entry Type" = "Entry Type"::Output) AND ("Output Quantity" < 0) AND (NOT Adjustment) THEN IF LastOutputOperation(ItemJnlLine) THEN TESTFIELD("Applies-to Entry"); ...Altere o código na função CheckFindProdOrderLine na codeunit Item Jnl.-Check Line (21) da seguinte maneira:
Código existente... END; LOCAL PROCEDURE CheckFindProdOrderLine@11(ProdOrderNo@1000 : Code[20];LineNo@1001 : Integer); // Delete the following lines. VAR ProdOrderLine@1002 : Record 5406; // End of the lines. BEGIN ProdOrderLine.RESET; ProdOrderLine.SETFILTER(Status,'>=%1',ProdOrderLine.Status::Released); ...Código de substituição
... END; LOCAL PROCEDURE CheckFindProdOrderLine@11(ProdOrderNo@1000 : Code[20];LineNo@1001 : Integer); BEGIN ProdOrderLine.RESET; ProdOrderLine.SETFILTER(Status,'>=%1',ProdOrderLine.Status::Released); ...
Pré-requisitos
Você deve ter um dos seguintes produtos instalados para aplicar este hotfix:
- Microsoft Dynamics NAV 2009 Service Pack 1
- Microsoft Dynamics NAV 5.0 Service Pack 1
Informações sobre remoção
Você não pode remover esse hotfix.
Status
A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na seção "Aplica-se a".
A MICROSOFT E/OU SEUS FORNECEDORES NÃO FAZEM REPRESENTAÇÕES OU GARANTIAS SOBRE A ADEQUAÇÃO, A CONFIABILIDADE OU A PRECISÃO DAS INFORMAÇÕES CONTIDAS NOS DOCUMENTOS E NOS GRÁFICOS RELACIONADOS PUBLICADOS NESTE SITE (OS "MATERIAIS") PARA QUALQUER FINALIDADE.
O MATERIAL PODE INCLUIR IMPRECISÕES TÉCNICAS OU ERROS TIPOGRÁFICOS E PODE SER REVISADO A QUALQUER MOMENTO SEM AVISO PRÉVIO. NA MEDIDA MÁXIMA PERMITIDA PELA LEI APLICÁVEL, A MICROSOFT E/OU SEUS FORNECEDORES SE ISOLAM E EXCLUEM TODAS AS REPRESENTAÇÕES, GARANTIAS E CONDIÇÕES EXPRESSAS, IMPLÍCITAS OU ESTATUTÁRIAS, INCLUINDO, MAS NÃO SE LIMITANDO A REPRESENTAÇÕES, GARANTIAS OU CONDIÇÕES DE TÍTULO, NÃO VIOLAÇÃO, CONDIÇÃO OU QUALIDADE SATISFATÓRIAS, COMERCIALIZABILIDADE E APTIDÃO PARA UMA FINALIDADE ESPECÍFICA, COM RELAÇÃO AOS MATERIAIS.