Este artigo aplica-se para o Microsoft Dynamics NAV para todos os países e todos os idiomas.
Sintomas
Suponha que executa a função Estornar Linhas documento registadas na página de devolução de venda no Microsoft Dynamics NAV 2009. Quando definir um filtro para um item, recebe a seguinte mensagem de erro:
Linha de factura de venda: Não existe nenhuma linha de factura de vendas dentro do filtro. N º de documento de filtros:X, não: @Y
Nota O marcador de posição X substitui o número de documento a partir da linha onde o cursor se encontra e o marcador de posição Y substitui o número de produto que introduziu no filtro.
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:
-
Altere o código na função IsFirstDocLine no doc obter - Subf. reg. página (5851) do seguinte modo:
Código existente... RevUnitCostLCY2 := RevUnitCostLCY;
SalesShptLine2.COPYFILTERS(Rec);
SalesShptLine2.SETRANGE("Document No.","Document No.");
SalesShptLine2.FINDSET;
REPEAT
ShowRec := IsShowRec(SalesShptLine2);
IF ShowRec THEN BEGIN
...Código de substituição
... RevUnitCostLCY2 := RevUnitCostLCY;
SalesShptLine2.COPYFILTERS(Rec);
SalesShptLine2.SETRANGE("Document No.","Document No.");
IF NOT SalesShptLine2.FINDSET THEN
EXIT(FALSE);
REPEAT
ShowRec := IsShowRec(SalesShptLine2);
IF ShowRec THEN BEGIN -
Altere o código na função IsFirstDocLine no doc obter - página Subf. (5852) do seguinte modo:
Código existente... RevUnitCostLCY2 := RevUnitCostLCY;
SalesInvLine2.COPYFILTERS(Rec);
SalesInvLine2.SETRANGE("Document No.","Document No.");
SalesInvLine2.FINDSET;
REPEAT
ShowRec := IsShowRec(SalesInvLine2);
IF ShowRec THEN BEGIN
...Código de substituição
... RevUnitCostLCY2 := RevUnitCostLCY;
SalesInvLine2.COPYFILTERS(Rec);
SalesInvLine2.SETRANGE("Document No.","Document No.");
IF NOT SalesInvLine2.FINDSET THEN
EXIT(FALSE);
REPEAT
ShowRec := IsShowRec(SalesInvLine2);
IF ShowRec THEN BEGIN -
Altere o código na função IsFirstDocLine no doc obter - Subf. reg. página (5856) do seguinte modo:
Código existente... RevUnitCostLCY2 := RevUnitCostLCY;
PurchRcptLine2.COPYFILTERS(Rec);
PurchRcptLine2.SETRANGE("Document No.","Document No.");
PurchRcptLine2.FINDSET;
REPEAT
ShowRec := IsShowRec(PurchRcptLine2);
IF ShowRec THEN BEGIN
...Código de substituição
... RevUnitCostLCY2 := RevUnitCostLCY;
PurchRcptLine2.COPYFILTERS(Rec);
PurchRcptLine2.SETRANGE("Document No.","Document No.");
IF NOT PurchRcptLine2.FINDSET THEN
EXIT(FALSE);
REPEAT
ShowRec := IsShowRec(PurchRcptLine2);
IF ShowRec THEN BEGIN -
Altere o código na função IsFirstDocLine no doc obter - página Subf. (5857) do seguinte modo:
Código existente... RevUnitCostLCY2 := RevUnitCostLCY;
PurchInvLine2.COPYFILTERS(Rec);
PurchInvLine2.SETRANGE("Document No.","Document No.");
PurchInvLine2.FINDSET;
REPEAT
ShowRec := IsShowRec(PurchInvLine2);
IF ShowRec THEN BEGIN
...Código de substituição
... RevUnitCostLCY2 := RevUnitCostLCY;
PurchInvLine2.COPYFILTERS(Rec);
PurchInvLine2.SETRANGE("Document No.","Document No.");
IF NOT PurchInvLine2.FINDSET THEN
EXIT(FALSE);
REPEAT
ShowRec := IsShowRec(PurchInvLine2);
IF ShowRec THEN BEGIN -
Altere o código na função IsFirstDocLine na janela Dsct. Formulário de linhas (5806) de recepção do seguinte modo:
Código existente... FILTERGROUP(2);
PurchRcptLine.COPYFILTERS(Rec);
FILTERGROUP(0);
PurchRcptLine.SETRANGE("Document No.","Document No.");
// Delete the following line.
PurchRcptLine.FIND('-');
TempPurchRcptLine := PurchRcptLine;
TempPurchRcptLine.INSERT;
END;
IF "Line No." = TempPurchRcptLine."Line No." THEN
...Código de substituição
... FILTERGROUP(2);
PurchRcptLine.COPYFILTERS(Rec);
FILTERGROUP(0);
PurchRcptLine.SETRANGE("Document No.","Document No.");
// Add the following lines.
IF NOT PurchRcptLine.FINDFIRST THEN
EXIT(FALSE);
// End of the lines.
TempPurchRcptLine := PurchRcptLine;
TempPurchRcptLine.INSERT;
END;
IF "Line No." = TempPurchRcptLine."Line No." THEN -
Altere o código na função IsFirstDocLine sob a forma de obter doc. reg.-Subf. (5853) do seguinte modo:
Código existente... TempReturnRcptLine.SETRANGE("Document No.","Document No.");
IF NOT TempReturnRcptLine.FINDFIRST THEN BEGIN
ReturnRcptLine.COPYFILTERS(Rec);
ReturnRcptLine.SETRANGE("Document No.","Document No.");
// Delete the following line.
ReturnRcptLine.FINDSET;
TempReturnRcptLine := ReturnRcptLine;
TempReturnRcptLine.INSERT;
END;
...Código de substituição
... TempReturnRcptLine.SETRANGE("Document No.","Document No.");
IF NOT TempReturnRcptLine.FINDFIRST THEN BEGIN
ReturnRcptLine.COPYFILTERS(Rec);
ReturnRcptLine.SETRANGE("Document No.","Document No.");
// Add the following lines.
IF NOT ReturnRcptLine.FINDSET THEN
EXIT(FALSE);
// End of the lines.
TempReturnRcptLine := ReturnRcptLine;
TempReturnRcptLine.INSERT;
END; -
Altere o código na função IsFirstDocLine sob a forma de obter. reg. doc.-Subf (5854) do seguinte modo:
Código existente... TempSalesCrMemoLine.SETRANGE("Document No.","Document No.");
IF NOT TempSalesCrMemoLine.FINDFIRST THEN BEGIN
SalesCrMemoLine.COPYFILTERS(Rec);
SalesCrMemoLine.SETRANGE("Document No.","Document No.");
// Delete the following line.
SalesCrMemoLine.FIND('-');
TempSalesCrMemoLine := SalesCrMemoLine;
TempSalesCrMemoLine.INSERT;
END;
...Código de substituição
... TempSalesCrMemoLine.SETRANGE("Document No.","Document No.");
IF NOT TempSalesCrMemoLine.FINDFIRST THEN BEGIN
SalesCrMemoLine.COPYFILTERS(Rec);
SalesCrMemoLine.SETRANGE("Document No.","Document No.");
// Add the following lines.
IF NOT SalesCrMemoLine.FINDFIRST THEN
EXIT(FALSE);
// End of the lines.
TempSalesCrMemoLine := SalesCrMemoLine;
TempSalesCrMemoLine.INSERT;
END; -
Altere o código na função IsFirstDocLine sob a forma de obter doc. reg.-Subf. (5858) do seguinte modo:
Código existente... TempReturnShptLine.SETRANGE("Document No.","Document No.");
IF NOT TempReturnShptLine.FINDFIRST THEN BEGIN
ReturnShptLine.COPYFILTERS(Rec);
ReturnShptLine.SETRANGE("Document No.","Document No.");
// Delete the following line.
ReturnShptLine.FINDSET;
TempReturnShptLine := ReturnShptLine;
TempReturnShptLine.INSERT;
END;
...Código de substituição
... TempReturnShptLine.SETRANGE("Document No.","Document No.");
IF NOT TempReturnShptLine.FINDFIRST THEN BEGIN
ReturnShptLine.COPYFILTERS(Rec);
ReturnShptLine.SETRANGE("Document No.","Document No.");
// Add the following lines.
IF NOT ReturnShptLine.FINDSET THEN
EXIT(FALSE);
// End of the lines.
TempReturnShptLine := ReturnShptLine;
TempReturnShptLine.INSERT;
END; -
Altere o código na função IsFirstDocLine sob a forma de obter. reg. doc.-Subf (5859) do seguinte modo:
Código existente... TempPurchCrMemoLine.SETRANGE("Document No.","Document No.");
IF NOT TempPurchCrMemoLine.FINDFIRST THEN BEGIN
PurchCrMemoLine.COPYFILTERS(Rec);
PurchCrMemoLine.SETRANGE("Document No.","Document No.");
// Delete the following line.
PurchCrMemoLine.FINDSET;
TempPurchCrMemoLine := PurchCrMemoLine;
TempPurchCrMemoLine.INSERT;
END;
...Código de substituição
... TempPurchCrMemoLine.SETRANGE("Document No.","Document No.");
IF NOT TempPurchCrMemoLine.FINDFIRST THEN BEGIN
PurchCrMemoLine.COPYFILTERS(Rec);
PurchCrMemoLine.SETRANGE("Document No.","Document No.");
// Add the following lines.
IF NOT PurchCrMemoLine.FINDSET THEN
EXIT(FALSE);
// End of the lines.
TempPurchCrMemoLine := PurchCrMemoLine;
TempPurchCrMemoLine.INSERT;
END; -
Altere o código na função IsFirstDocLine sob a forma de obter linhas de guia de remessa de serviço (5994) do seguinte modo:
Código existente... TempServiceShptLine.SETRANGE("Document No.","Document No.");
IF NOT TempServiceShptLine.FIND('-') THEN BEGIN
ServiceShptLine.COPYFILTERS(Rec);
ServiceShptLine.SETRANGE("Document No.","Document No.");
// Delete the following line.
ServiceShptLine.FIND('-');
TempServiceShptLine := ServiceShptLine;
TempServiceShptLine.INSERT;
END;
IF "Line No." = TempServiceShptLine."Line No." THEN
...Código de substituição
... TempServiceShptLine.SETRANGE("Document No.","Document No.");
IF NOT TempServiceShptLine.FIND('-') THEN BEGIN
ServiceShptLine.COPYFILTERS(Rec);
ServiceShptLine.SETRANGE("Document No.","Document No.");
// Add the following lines.
IF NOT ServiceShptLine.FINDFIRST THEN
EXIT(FALSE);
// End of the lines.
TempServiceShptLine := ServiceShptLine;
TempServiceShptLine.INSERT;
END;
IF "Line No." = TempServiceShptLine."Line No." THEN -
Altere o código na função IsFirstDocLine sob a forma de linhas de serviço subformulário (6036) do seguinte modo:
Código existente... IF NOT TempServLine.FIND('-') THEN BEGIN
ServLine.COPYFILTERS(Rec);
ServLine.SETRANGE("Document Type","Document Type");
ServLine.SETRANGE("Document No.","Document No.");
// Delete the following line.
ServLine.FIND('-');
TempServLine := ServLine;
TempServLine.INSERT;
END;
IF "Line No." = TempServLine."Line No." THEN
IF "Line No." = TempServiceShptLine."Line No." THEN
...Código de substituição
... IF NOT TempServLine.FIND('-') THEN BEGIN
ServLine.COPYFILTERS(Rec);
ServLine.SETRANGE("Document Type","Document Type");
ServLine.SETRANGE("Document No.","Document No.");
// Add the following lines.
IF NOT ServLine.FINDFIRST THEN
EXIT(FALSE);
// End of the lines.
TempServLine := ServLine;
TempServLine.INSERT;
END;
IF "Line No." = TempServLine."Line No." THEN -
Altere o código na função IsFirstDocLine sob a forma de subformulário de linhas de guia de remessa de serviço (6037) do seguinte modo:
Código existente... TempServShptLine.SETRANGE("Document No.","Document No.");
IF NOT TempServShptLine.FIND('-') THEN BEGIN
ServShptLine.COPYFILTERS(Rec);
ServShptLine.SETRANGE("Document No.","Document No.");
// Delete the following line.
ServShptLine.FIND('-');
TempServShptLine := ServShptLine;
TempServShptLine.INSERT;
END;
IF "Line No." = TempServShptLine."Line No." THEN
...Código de substituição
... TempServShptLine.SETRANGE("Document No.","Document No.");
IF NOT TempServShptLine.FIND('-') THEN BEGIN
ServShptLine.COPYFILTERS(Rec);
ServShptLine.SETRANGE("Document No.","Document No.");
// Add the following lines.
IF NOT ServShptLine.FINDFIRST THEN
EXIT(FALSE);
// End of the lines.
TempServShptLine := ServShptLine;
TempServShptLine.INSERT;
END;
IF "Line No." = TempServShptLine."Line No." THEN -
Altere o código na função IsFirstDocLine sob a forma de subformulário de linhas de factura de serviço (6038) do seguinte modo:
Código existente... TempServInvLine.SETRANGE("Document No.","Document No.");
IF NOT TempServInvLine.FIND('-') THEN BEGIN
ServInvLine.COPYFILTERS(Rec);
ServInvLine.SETRANGE("Document No.","Document No.");
// Delete the following line.
ServInvLine.FIND('-');
TempServInvLine := ServInvLine;
TempServInvLine.INSERT;
END;
EXIT("Line No." = TempServInvLine."Line No.");
...Código de substituição
... TempServInvLine.SETRANGE("Document No.","Document No.");
IF NOT TempServInvLine.FIND('-') THEN BEGIN
ServInvLine.COPYFILTERS(Rec);
ServInvLine.SETRANGE("Document No.","Document No.");
// Add the following lines.
IF NOT ServInvLine.FINDFIRST THEN
EXIT(FALSE);
// End of the lines.
TempServInvLine := ServInvLine;
TempServInvLine.INSERT;
END;
EXIT("Line No." = TempServInvLine."Line No."); -
Altere o código na função IsFirstDocLine sob a forma de Subform de linhas de nota de crédito de serviço (6039) do seguinte modo:
Código existente... TempServCrMemoLine.SETRANGE("Document No.","Document No.");
IF NOT TempServCrMemoLine.FIND('-') THEN BEGIN
ServCrMemoLine.COPYFILTERS(Rec);
ServCrMemoLine.SETRANGE("Document No.","Document No.");
// Delete the following line.
ServCrMemoLine.FIND('-');
TempServCrMemoLine := ServCrMemoLine;
TempServCrMemoLine.INSERT;
END;
EXIT("Line No." = TempServCrMemoLine."Line No.");
...Código de substituição
... TempServCrMemoLine.SETRANGE("Document No.","Document No.");
IF NOT TempServCrMemoLine.FIND('-') THEN BEGIN
ServCrMemoLine.COPYFILTERS(Rec);
ServCrMemoLine.SETRANGE("Document No.","Document No.");
// Add the following lines.
IF NOT ServCrMemoLine.FINDFIRST THEN
EXIT(FALSE);
// End of the lines.
TempServCrMemoLine := ServCrMemoLine;
TempServCrMemoLine.INSERT;
END;
EXIT("Line No." = TempServCrMemoLine."Line No."); -
Altere o código na função IsFirstDocLine sob a forma de obter linhas Rec. Devolução (6638) do seguinte modo:
Código existente... TempReturnRcptLine.SETRANGE("Document No.","Document No.");
IF NOT TempReturnRcptLine.FIND('-') THEN BEGIN
ReturnRcptLine.COPYFILTERS(Rec);
ReturnRcptLine.SETRANGE("Document No.","Document No.");
// Delete the following line.
ReturnRcptLine.FIND('-');
TempReturnRcptLine := ReturnRcptLine;
TempReturnRcptLine.INSERT;
END;
IF "Line No." = TempReturnRcptLine."Line No." THEN
...Código de substituição
... TempReturnRcptLine.SETRANGE("Document No.","Document No.");
IF NOT TempReturnRcptLine.FIND('-') THEN BEGIN
ReturnRcptLine.COPYFILTERS(Rec);
ReturnRcptLine.SETRANGE("Document No.","Document No.");
// Add the following lines.
IF NOT ReturnRcptLine.FINDFIRST THEN
EXIT(FALSE);
// End of the lines.
TempReturnRcptLine := ReturnRcptLine;
TempReturnRcptLine.INSERT;
END;
IF "Line No." = TempReturnRcptLine."Line No." THEN -
Altere o código na função IsFirstDocLine sob a forma de obter linhas envio devolução (6648) do seguinte modo:
Código existente... TempReturnShptLine.SETRANGE("Document No.","Document No.");
IF NOT TempReturnShptLine.FIND('-') THEN BEGIN
ReturnShptLine.COPYFILTERS(Rec);
ReturnShptLine.SETRANGE("Document No.","Document No.");
// Delete the following line.
ReturnShptLine.FIND('-');
TempReturnShptLine := ReturnShptLine;
TempReturnShptLine.INSERT;
END;
IF "Line No." = TempReturnShptLine."Line No." THEN
...Código de substituição
... TempReturnShptLine.SETRANGE("Document No.","Document No.");
IF NOT TempReturnShptLine.FIND('-') THEN BEGIN
ReturnShptLine.COPYFILTERS(Rec);
ReturnShptLine.SETRANGE("Document No.","Document No.");
// Add the following lines.
IF NOT ReturnShptLine.FINDFIRST THEN
EXIT(FALSE);
// End of the lines.
TempReturnShptLine := ReturnShptLine;
TempReturnShptLine.INSERT;
END;
IF "Line No." = TempReturnShptLine."Line No." THEN
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 .
