Este artigo se aplica ao Microsoft Dynamics NAV para todos os países e todas as localidades de idiomas.
Sintomas
Suponha que você execute a função de Obter linhas de documento lançado para reversão na página ordem de devolução de vendas no Microsoft Dynamics NAV 2009. Quando você define um filtro para um item, você recebe a seguinte mensagem de erro:
Linha de fatura de vendas: Não há nenhuma linha de fatura de vendas no filtro. N º de documento de filtros:X, não: @Y
Observação: O espaço reservado X substitui o número de documentos a partir da linha onde o cursor está e o espaço reservado Y substitui o número de item inserido no filtro.
Esse problema ocorre nos seguintes produtos:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 Service Pack 1
Resolução
Informações sobre o hotfix
Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.
Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.
Informações sobre a instalação
A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume 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 ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.
Observação: Antes de instalar esse hotfix, verifique se todos os usuários de cliente do Microsoft Navision estiver desconectados do sistema. Isso inclui usuários de cliente do Microsoft Navision Application Server (NAS). Você deve ser o único usuário do cliente conectado ao implementar esse hotfix.
Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.
É recomendável que a conta de usuário na janela de Logins do Windows ou na janela banco de dados seja atribuída a ID de função "SUPER". Se a conta de usuário não pode ser atribuída a ID de 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 será alterado.
-
A permissão de execução para o objeto de sistema 5210 de identificação de objeto e do objeto de sistema 9015 de identificação de objeto .
Observação: Você não precisa ter direitos para os armazenamentos de dados, a menos que você precise executar o reparo de dados.
Alterações de código
Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.
Para resolver esse problema, execute as seguintes etapas:
-
Altere o código na função IsFirstDocLine obter Post.Doc - página de Sbfrm de S.ShptLn (5851) da seguinte forma:
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 obter Post.Doc - página de subformulário de S.InvLn (5852) da seguinte forma:
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 obter Post.Doc - página de Sbfrm de P.RcptLn (5856) da seguinte forma:
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 obter Post.Doc - página de subformulário de P.InvLn (5857) da seguinte forma:
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 da compra. Recebimento de formulário de linhas (5806) da seguinte forma:
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 no formulário do subformulário de RtrnRcptLn de Pst.Doc obter (5853) da seguinte forma:
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 na forma de obter Sbfrm de S.Cr.MemoLn de Post.Doc (5854) da seguinte forma:
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 no formulário do subformulário de RtrnShptLn de Pst.Doc obter (5858) da seguinte forma:
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 na forma de obter Sbfrm de P.Cr.MemoLn de Post.Doc (5859) da seguinte forma:
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 na forma de obter linhas de remessa de serviço (5994) da seguinte forma:
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 no formulário do subformulário de linhas de serviço (6036) da seguinte forma:
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 no formulário do subformulário de linhas de remessa de serviço (6037) da seguinte forma:
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 no formulário do subformulário de linhas de nota fiscal de serviço (6038) da seguinte forma:
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 no formulário do subformulário de linhas de memorando de Cr. de serviço (6039) da seguinte forma:
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 na forma de obter retorno de linhas de recebimento (6638) da seguinte forma:
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 na forma de obter retorno de linhas de remessa (6648) da seguinte forma:
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:
Você deve ter um dos seguintes produtos instalados para aplicar esse hotfix:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 Service Pack 1
Informações sobre remoção
Você não pode remover esse hotfix.
Status
A Microsoft confirma que este é um problema em seus produtos listados na seção "Aplica-se a".
Observação: Este é um artigo de "PUBLICAÇÃO RÁPIDA" criado diretamente de dentro da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas desta maneira, em resposta a problemas emergentes. Como um dos resultados da velocidade da publicação, os materiais podem incluir erros tipográficos e podem ser revisados a qualquer momento sem aviso prévio. Consulte os Termos de uso para outras considerações.
