Este artigo aplica-se ao Microsoft Dynamics NAV para todos os países e regiões de idioma.
Sintomas
Pode criar mais do que uma seleção de inventário para uma encomenda de vendas inesperadamente no Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) se o valor do campo Conselhos de Envio na encomenda de vendas for Concluído. Nesta situação, não pode publicar nenhuma das escolhas de inventário criadas.
Resolução
Informações de correção
Uma correção suportada está agora disponível na Microsoft. No entanto, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-o apenas a sistemas com este problema específico. Esta correção pode receber testes adicionais. Por conseguinte, se não for gravemente afetado por este problema, recomendamos que aguarde pelo próximo service pack do Microsoft Dynamics NAV ou pela próxima versão do Microsoft Dynamics NAV que contém esta correção.
Nota Em casos especiais, os custos normalmente incorridos para chamadas de suporte poderão ser cancelados se um Profissional de Suporte Técnico para o Microsoft Dynamics e produtos relacionados determinar que uma atualização específica irá resolver o problema. Os custos de suporte habituais serão aplicados a questões e problemas de suporte adicionais que não se qualificam para a 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. Isto inclui, mas não se limita às garantias implícitas de comercialização ou adequação a um fim específico. Este artigo parte do princípio de que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas utilizadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidades adicionais ou criar procedimentos para satisfazer os seus requisitos específicos.
Nota Antes de instalar esta correção, verifique se todos os utilizadores cliente do Microsoft Navision têm sessão iniciada no sistema. Isto inclui utilizadores cliente do Microsoft Navision Application Services (NAS). Deve ser o único utilizador cliente com sessão iniciada quando implementa esta correção.
Para implementar esta correção, tem de ter uma licença de programador.
Recomendamos que a conta de utilizador na janela Inícios de Sessão do Windows ou na janela Inícios de Sessão da Base de Dados seja atribuída ao ID da função "SUPER". Se não for possível atribuir à conta de utilizador o ID de função "SUPER", tem de verificar se a conta de utilizador tem as seguintes permissões:
- A permissão Modificar para o objeto que irá alterar.
- A permissão Executar para o objeto ID de Objeto de Sistema 5210 e para o objeto ID de Objeto do Sistema 9015.
Nota Não tem de ter direitos sobre os arquivos de dados, a menos que tenha de efetuar a reparação de dados.
Alterações de código
Nota Teste sempre as correções de código num ambiente controlado antes de aplicar as correções aos seus computadores de produção.
Para resolver este problema, siga estes passos:
Altere os campos na tabela Linha de Vendas (37) da seguinte forma:
Código existente... CALCFIELDS("Reserved Qty. (Base)"); TESTFIELD("Reserved Qty. (Base)",0); IF Type = Type::Item THEN WhseValidateSourceLine.SalesLineVerifyChange(Rec,xRec); END; TESTFIELD("Qty. Shipped Not Invoiced",0); TESTFIELD("Quantity Shipped",0); TESTFIELD("Shipment No.",''); TESTFIELD("Prepmt. Amt. Inv.",0); ...Código de substituição
... CALCFIELDS("Reserved Qty. (Base)"); TESTFIELD("Reserved Qty. (Base)",0); IF Type = Type::Item THEN WhseValidateSourceLine.SalesLineVerifyChange(Rec,xRec); END; //Add the following lines. IF Type = Type::Item THEN CheckWhseActivityExists; //End of the lines. TESTFIELD("Qty. Shipped Not Invoiced",0); TESTFIELD("Quantity Shipped",0); TESTFIELD("Shipment No.",''); TESTFIELD("Prepmt. Amt. Inv.",0); ...Altere as variáveis globais na tabela Linha de Vendas (37) da seguinte forma:
Código existente... Text046@1105 : TextConst 'ENU=You cannot return more than the %1 units that you have shipped for %2 %3.'; Text047@1106 : TextConst 'ENU=must be positive when %1 is not 0.'; TrackingBlocked@1107 : Boolean; Text048@1108 : TextConst 'ENU=You cannot use item tracking on a %1 created from a %2.'; Text049@1139 : TextConst 'ENU=cannot be %1.'; PROCEDURE InitOutstanding@16(); BEGIN IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN "Outstanding Quantity" := Quantity - "Return Qty. Received"; ...Código de substituição
... Text046@1105 : TextConst 'ENU=You cannot return more than the %1 units that you have shipped for %2 %3.'; Text047@1106 : TextConst 'ENU=must be positive when %1 is not 0.'; TrackingBlocked@1107 : Boolean; Text048@1108 : TextConst 'ENU=You cannot use item tracking on a %1 created from a %2.'; Text049@1139 : TextConst 'ENU=cannot be %1.'; //Add the following line. Text052@1022 : TextConst 'ENU=Because the value of the %1 field is %2, and warehouse activities exist, you cannot add a new item to this order. You can either change the %3 field to Partial or delete the warehouse activities.'; PROCEDURE InitOutstanding@16(); BEGIN IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN "Outstanding Quantity" := Quantity - "Return Qty. Received"; ...Altere o código na função CheckWhseActivityExists na tabela Linha de Vendas (37) da seguinte forma:
Código existente... IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; BEGIN END. } } ...Código de substituição
... IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; //Add the following lines. PROCEDURE CheckWhseActivityExists@1011(); VAR WhseActivityLine@1019 : Record 5767; BEGIN IF SalesHeader."Shipping Advice" = SalesHeader."Shipping Advice"::Complete THEN BEGIN WhseActivityLine.RESET; WhseActivityLine.SETCURRENTKEY("Source Type","Source Subtype","Source No.","Source Line No.","Source Subline No."); WhseActivityLine.SETRANGE("Source Type",DATABASE::"Sales Line"); WhseActivityLine.SETRANGE("Source Subtype","Document Type"); WhseActivityLine.SETRANGE("Source No.","Document No."); IF "Document Type" = "Document Type"::Order THEN WhseActivityLine.SETRANGE("Source Document",WhseActivityLine."Source Document"::"Sales Order"); IF "Document Type" = "Document Type"::"Return Order" THEN WhseActivityLine.SETRANGE("Source Document",WhseActivityLine."Source Document"::"Sales Return Order"); IF NOT WhseActivityLine.ISEMPTY THEN ERROR(Text052,SalesHeader.FIELDCAPTION("Shipping Advice"),SalesHeader."Shipping Advice",SalesHeader.FIELDCAPTION("Shipping Advice")); END; END; //End of the lines. BEGIN END. } } ...
Pré-requisitos
Tem de ter o Microsoft Dynamics NAV 2009 Service Pack 1 instalado para aplicar esta correção.
Informações de remoção
Não é possível remover esta correção.
Estado
A Microsoft confirmou que se trata de um problema nos produtos Microsoft listados na secção "Aplica-se a".
Nota Este é um artigo "PUBLICAÇÃO RÁPIDA" criado diretamente a partir da organização de suporte da Microsoft. As informações aqui contidas são fornecidas tal como estão em resposta a problemas emergentes. Como resultado da velocidade de disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Veja Termos de Utilização para outras considerações.