Este artigo aplica-se para o Microsoft Dynamics NAV para a região do idioma italiano (-).
Sintomas
Depois de registar e aplicar uma restituição para uma nota de crédito de fornecedor, o relatório de lista de facturação de conta de fornecedor (12116) não mostra a nota de crédito. Este problema ocorre nos seguintes produtos:
-
A versão italiana do Microsoft Dynamics NAV 2009 R2
-
A versão italiana do 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 testar sempre correções de código 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 do relatório de lista de contas a pagar de conta de fornecedor (12116) do seguinte modo:
Código existente 1... OnAfterGetRecord=BEGIN
CALCFIELDS("Amount (LCY)","Remaining Amt. (LCY)");
// Delete the following line.
IF ((OnlyOpened) OR ("Document Type" IN ["Document Type"::Payment,"Document Type"::"Credit Memo","Document Type"::" "])) AND
("Remaining Amt. (LCY)" = 0)
THEN
CurrReport.SKIP;
...Código de substituição 1
... OnAfterGetRecord=BEGIN
CALCFIELDS("Amount (LCY)","Remaining Amt. (LCY)");
// Add the following line.
IF ((OnlyOpened) OR ("Document Type" IN ["Document Type"::Payment,"Document Type"::Refund,"Document Type"::" "])) AND
("Remaining Amt. (LCY)" = 0)
THEN
CurrReport.SKIP;
...Código existente 2
... RemainingAmountLCY := 0;
VendorBillAmnt := 0;
// Delete the following lines.
IF ("Document Type" = "Document Type"::Invoice) OR
("Document Type" = "Document Type"::"Finance Charge Memo") OR
("Document Type" = "Document Type"::Reminder)
// End of the lines.
THEN BEGIN
//TotalClosedByAmntLCY := "Remaining Amt. (LCY)"; //IT0002 - IT0004
TotalForVendor := TotalForVendor + "Amount (LCY)";
...Código de substituição 2
... RemainingAmountLCY := 0;
VendorBillAmnt := 0;
// Add the following lines.
IF "Document Type" IN
["Document Type"::Invoice,
"Document Type"::"Credit Memo",
"Document Type"::"Finance Charge Memo",
"Document Type"::Reminder]
// End of the lines.
THEN BEGIN
//TotalClosedByAmntLCY := "Remaining Amt. (LCY)"; //IT0002 - IT0004
TotalForVendor := TotalForVendor + "Amount (LCY)";
...Código existente 3
... END;
OnAfterGetRecord=BEGIN
// IT0003.begin
VendLedgEntry3.GET("Applied Vend. Ledger Entry No.");
VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
...Código de substituição 3
... END;
OnAfterGetRecord=BEGIN
// Add the following lines.
IF ("Entry No." = 0) OR ("Unapplied by Entry No." <> 0) OR
("Document Type" IN ["Document Type"::Payment,"Document Type"::Refund,"Document Type"::" "])
THEN
ShowDetailedVendorLedgerEntry := TRUE
ELSE
ShowDetailedVendorLedgerEntry := FALSE;
// End of the lines.
// IT0003.begin
VendLedgEntry3.GET("Applied Vend. Ledger Entry No.");
VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
...Código existente 4
... SectionWidth=27750;
SectionHeight=846;
OnPreSection=BEGIN
// Delete the following lines.
// IT0008.begin
// IT0011.begin
IF (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::Payment) OR
(VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::"Credit Memo") OR
(VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::" ") OR
("Unapplied by Entry No." <> 0)
THEN
// IT0011.end
CurrReport.SHOWOUTPUT(FALSE)
ELSE
CurrReport.SHOWOUTPUT(TRUE);
// IT0008.end
// IT0009.begin
//IF ("Unapplied by Entry No." <> 0) THEN
// CurrReport.SHOWOUTPUT(FALSE);
// IT0009.end
// End of the lines.
END;
}
...Código de substituição 4
... SectionWidth=27750;
SectionHeight=846;
OnPreSection=BEGIN
// Add the following line.
CurrReport.SHOWOUTPUT(ShowDetailedVendorLedgerEntry)
END;
}
...Código existente 5
... ForeColor=65535;
SourceExpr="Unapplied by Entry No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }
}
}
{ PROPERTIES
...Código de substituição 5
... ForeColor=65535;
SourceExpr="Unapplied by Entry No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }
// Add the following lines.
{ 1130084;TextBox ;27150;0 ;150 ;423 ;Visible=No;
SourceExpr=ShowDetailedVendorLedgerEntry;
DataSetFieldName=ShowDetailedVendorLedgerEntry }
// End of the lines.
}
}
{ PROPERTIES
... -
Altere o código das variáveis globais no relatório de lista de contas a pagar de conta de fornecedor (12116) do seguinte modo:
Código existente... TotalVendorBillAmnt@1130010 : Decimal;
VendLedgEntry3@1130011 : Record 25;
VendorLedgerEmtryTypeINT@1102601000 : Integer;
BEGIN
{
...Código de substituição
... TotalVendorBillAmnt@1130010 : Decimal;
VendLedgEntry3@1130011 : Record 25;
VendorLedgerEmtryTypeINT@1102601000 : Integer;
// Add the following line.
ShowDetailedVendorLedgerEntry@1130012 : Boolean INDATASET;
BEGIN
{
... -
Altere o código do relatório de lista de contas a pagar de conta de fornecedor (12116) do seguinte modo:
Código existente 1... </TableCell>
</TableCells>
<Visibility>
// Delete the following lines.
<Hidden>=IIF(Fields!Detailed_Vendor_Ledg__Entry_Entry_No_.Value=0 OR
Fields!Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__.Value<>0 OR
Fields!VendLedgEntry1_DocumentType.Value="1" OR
Fields!VendLedgEntry1_DocumentType.Value="3" OR
Fields!VendLedgEntry1_DocumentType.Value="0",
TRUE,FALSE)</Hidden>
// End of the lines.
</Visibility>
</TableRow>
<TableRow>
...Código de substituição 1
... </TableCell>
</TableCells>
<Visibility>
// Add the following line.
<Hidden>=IIF(Fields!ShowDetailedVendorLedgerEntry.Value,TRUE,FALSE)</Hidden>
</Visibility>
</TableRow>
<TableRow>
...Código existente 2
... <Field Name="Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_">
<DataField>Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_</DataField>
</Field>
</Fields>
<Query>
<CommandText />
...Código de substituição 2
... <Field Name="Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_">
<DataField>Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_</DataField>
</Field>
// Add the following lines.
<Field Name="ShowDetailedVendorLedgerEntry">
<DataField>ShowDetailedVendorLedgerEntry</DataField>
</Field>
// End of the lines.
</Fields>
<Query>
<CommandText />
...
Pré-requisitos
Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:
-
A versão italiana do Microsoft Dynamics NAV 2009 R2
-
A versão italiana do 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 .
