Este artigo aplica-se para o Microsoft Dynamics NAV para todos os países e todos os idiomas.
Sintomas
Suponha que active a definição de Estorno do custo exacto na caixa de diálogo Conf. vendas a receber no Microsoft Dynamics NAV. Nesta situação, quando executar a função Copiar Documento de uma devolução de venda parcial, recebe a seguinte mensagem de erro:
Não é copiado vendas envio Shipment_No, Line_No n. º linha porque a quantidade total da linha do documento registado já manualmente é aplicada.
Este problema ocorre nos seguintes produtos:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 Service Pack 1
Resolução
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 2009 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.
Informações de instalação
A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.
Nota Antes de instalar esta correcção, certifique-se de que todos os utilizadores de cliente do Microsoft Navision são registados no sistema. Isto inclui os utilizadores de clientes do Microsoft Navision Application Server (NAS). Deve ser o único usuário do cliente que tem sessão iniciada quando implementar esta correcção.
Para implementar esta correcção, tem de ter uma licença de desenvolvedor.
Recomendamos que a conta de utilizador na janela Logins do Windows ou na janela Logins de base de dados seja atribuída a ID de função "SUPER". Se a conta de utilizador não é possível atribuir o ID de função "SUPER", tem de verificar que a conta de utilizador tem as seguintes permissões:
-
A permissão Modificar para o objecto que estará a alterar.
-
A permissão executar para o objecto 5210 de ID de objecto de sistema e para o objecto 9015 de ID de objecto de sistema .
Nota Não tem de ter direitos para os arquivos de dados, excepto se tiver de efectuar a reparação de dados.
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:
-
Elimine as seguintes variáveis globais na codeunit manutenção do documento de cópia (6620):
Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
SomeAreFixed@1045 : Boolean;
CopyDimensions@1050 : Boolean; -
Adicione as seguintes variáveis globais na codeunit manutenção do documento de cópia (6620):
Text030@1025 : TextConst 'ENU=One or more return document lines were not copied. This is because quantities on the posted document line are already fully or partially applied and therefore the Exact Cost Reversing Link could not be created.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
SomeAreFixed@1045 : Boolean;
CopyDimensions@1050 : Boolean;
WarningDone@1051 : Boolean;
LinesApplied@1052 : Boolean; -
Altere o código na função SplitPstdSalesLinesPerILE na codeunit manutenção do documento de cópia (6620) do seguinte modo:
Código existente 1... IF "Shipped Qty. Not Returned" = 0 THEN
// Delete the following lines.
ERROR(Text030,"Document Type","Document No.","Document Line No.");
FromSalesLineBuf := FromSalesLine;
IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
IF FromSalesLine."Quantity (Base)" > 0 THEN
FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
ELSE
FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
ELSE
FromSalesLineBuf.Quantity :=
ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
END;
FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
FromSalesLineBuf."Line No." := NextLineNo;
NextLineNo := NextLineNo + 1;
FromSalesLineBuf."Document No." := "Document No.";
IF GetSalesDocType(ItemLedgEntry) IN
[FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
THEN
FromSalesLineBuf."Shipment Line No." := 1;
IF NOT FromShptOrRcpt THEN
UpdateRevSalesLineAmount(
FromSalesLineBuf,OrgQtyBase,
FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");
FromSalesLineBuf.INSERT;
// End of the lines.
UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
...Código de substituição 1
... IF "Shipped Qty. Not Returned" = 0 THEN
// Add the following lines.
LinesApplied := TRUE;
IF "Shipped Qty. Not Returned" < 0 THEN BEGIN
FromSalesLineBuf := FromSalesLine;
IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
IF FromSalesLine."Quantity (Base)" > 0 THEN
FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
ELSE
FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
ELSE
FromSalesLineBuf.Quantity :=
ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
END;
FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
FromSalesLineBuf."Line No." := NextLineNo;
NextLineNo := NextLineNo + 1;
FromSalesLineBuf."Document No." := "Document No.";
IF GetSalesDocType(ItemLedgEntry) IN
[FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
THEN
FromSalesLineBuf."Shipment Line No." := 1;
IF NOT FromShptOrRcpt THEN
UpdateRevSalesLineAmount(
FromSalesLineBuf,OrgQtyBase,
FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");
FromSalesLineBuf.INSERT;
END;
// End of the lines.
UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
...Código existente 2
... MissingExCostRevLink := TRUE;
END;
...Código de substituição 2
... MissingExCostRevLink := TRUE;
// Add the following line.
CheckUnappliedLines(LinesApplied,MissingExCostRevLink);
END;
... -
Altere o código na função SplitPstdPurchLinesPerILE na codeunit manutenção do documento de cópia (6620) do seguinte modo:
Código existente 1... ApplyRec@1011 : Record 339;
// Delete the following line.
AllAreFixed@1012 : Boolean;
BEGIN
...Código de substituição 1
... ApplyRec@1011 : Record 339;
BEGIN
...Código existente 2
... REPEAT
// Delete the following lines.
IF "Remaining Quantity" = 0 THEN BEGIN
AllAreFixed := TRUE;
ApplyRec.AppliedOutbndEntryExists("Entry No.",FALSE);
IF ApplyRec.FINDFIRST THEN
REPEAT
AllAreFixed := AllAreFixed AND ApplyRec.Fixed;
UNTIL ApplyRec.NEXT = 0;
IF AllAreFixed THEN
ERROR(Text030,"Document Type","Document No.","Document Line No.");
END;
// End of the lines.
IF NOT ApplyFully THEN BEGIN
...Código de substituição 2
... REPEAT
IF NOT ApplyFully THEN BEGIN
...Código existente 3
... END;
...Código de substituição 3
... END;
// Add the following line.
CheckUnappliedLines(SkippedLine,MissingExCostRevLink);
... -
Altere o código na função CheckUnappliedLines na codeunit manutenção do documento de cópia (6620) do seguinte modo:
Código existente... BEGIN
...Código de substituição
...
// Add the following lines.
LOCAL PROCEDURE CheckUnappliedLines@86(SkippedLine@1000 : Boolean;VAR MissingExCostRevLink@1001 : Boolean);
BEGIN
IF SkippedLine AND MissingExCostRevLink THEN BEGIN
IF NOT WarningDone THEN
MESSAGE(Text030);
MissingExCostRevLink := FALSE;
WarningDone := TRUE;
END;
END;
// End of the lines.
BEGIN
...
Pré-requisitos
Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 Service Pack 1
Informações de remoção
Não é possível remover esta correcção.
Estado
A Microsoft confirmou que este é um problema nos produtos da 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 contidas neste documento são fornecidas como-se em resposta a questões emergentes. Como resultado da urgência na sua disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Para outras considerações, consulte os Termos de utilização .
