Sintomi
Dopo aver installato la versione più recente del report distinta effetti clienti, se si applica una fattura per la transazione di pagamento e quindi registrarlo nella versione italiana di Microsoft Dynamics NAV 2009, il report mostra il pagamento. Visualizza solo la fattura, il più vicino. Seguire i passaggi nella sezione modifiche al codice per risolvere questo problema. Questo problema si verifica nei seguenti prodotti:
-
La versione italiana di Microsoft Dynamics NAV 2009 R2
-
La versione italiana di Microsoft Dynamics NAV 2009 SP1
Risoluzione
Informazioni sull'hotfix
Un hotfix supportato è ora disponibile da Microsoft. Tuttavia, è destinato esclusivamente alla risoluzione del problema descritto in questo articolo. Applicarlo solo ai sistemi in cui si verificano questo problema specifico. Questo hotfix potrebbe essere sottoposto ad ulteriori test. Pertanto, se il problema non causa gravi difficoltà, consiglia di attendere il prossimo service pack di Microsoft Dynamics NAV 2009 o versione successiva di Microsoft Dynamics NAV contenente tale hotfix.
Nota: In casi particolari, le spese normalmente addebitate per le chiamate potrebbero essere annullate qualora un aggiornamento del supporto tecnico di Microsoft Dynamics e prodotti correlati di supporto determina che uno specifico aggiornamento risolverà il problema. I costi di supporto normale verranno applicati per eventuali ulteriori domande e problemi che non dovessero rientrare nello specifico aggiornamento in questione.
Informazioni sull'installazione
Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Ciò include, ma non limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che si abbia familiarità con il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire la procedura di debug. Tecnici del supporto Microsoft consentono di spiegare la funzionalità di una particolare procedura. Tuttavia, essi non modificherà questi esempi per fornire funzionalità aggiuntive o creare procedure atte a soddisfare specifiche esigenze.
Nota: Prima di installare questo hotfix, verificare che tutti gli utenti di client di Microsoft Dynamics NAV sono disconnessi dal sistema. Sono inclusi i servizi di Microsoft Dynamics NAV Application Server (NAS). Dovrebbe essere il solo l'utente client connesso quando si implementa questo hotfix.
Per implementare questo hotfix, è necessario disporre di una licenza di sviluppatore.
È consigliabile che l'account utente nella finestra Login Windows o Login Database assegnare l'ID di ruolo "SUPER". Se l'account utente non può essere assegnato l'ID ruolo "SUPER", è necessario verificare che l'account utente disponga delle autorizzazioni seguenti:
-
Autorizzazione alla modifica dell'oggetto che si desidera modificare.
-
L'autorizzazione di esecuzione per l'oggetto System Object ID 5210 e per il sistema oggetto ID 9015
oggetto.
Nota: Non è necessario disporre dei diritti per gli archivi dati a meno che non è necessario eseguire il ripristino di dati.
Modifiche al codice
Nota: Sempre il codice di test consente di correggere in un ambiente controllato prima di applicare le correzioni per i computer di produzione.
Per risolvere questo problema, attenersi alla seguente procedura:
-
Modificare il codice del report distinta effetti clienti (12117) come segue:
Codice esistente 1...DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date)
WHERE(Entry Type=CONST(Application));
OnPreDataItem=BEGIN
// Delete the following line.
CustLedgEntry1.COPYFILTER("Posting Date", "Detailed Cust. Ledg. Entry"."Posting Date"); // IT0004
// End of the deleted line.
END;
OnAfterGetRecord=BEGIN
...Codice sostitutivo 1
...DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date)
WHERE(Entry Type=CONST(Application));
OnPreDataItem=BEGIN
// Add the following line.
FindAppliedDtldCustLedgEntry(CustLedgEntry1."Entry No.");
// End of the added line.
END;
OnAfterGetRecord=BEGIN
...Codice esistente 2
... { END;
OnAfterGetRecord=BEGIN
// Delete 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"::Dishonored,"Document Type"::" "])
THEN
ShowDetailedCustLedgerEntry := TRUE
ELSE
ShowDetailedCustLedgerEntry := FALSE;
// IT0015.begin
//VSTF275923 begin
// VSTF305887.begin
//IF PrintCustLedgEntry2 THEN
IF PrintCustLedgEntry2 AND ("Document Type" <> "Document Type"::Payment) THEN
CurrReport.SKIP;
// VSTF305887.end
//CurrReport.SKIP;
//VSTF275923 end
// IT0015.end
CustLedgEntry3.GET("Applied Cust. Ledger Entry No.");
CustLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
// IT0004.begin
ClosedByAmountLCY := "Amount (LCY)";
TotalForCustomer += "Amount (LCY)";
// IT0004.end
TotalClosedByAmntLCY += "Amount (LCY)"; // IT0005
// End of the deleted lines.
END;
DataItemLink=Cust. Ledger Entry No.=FIELD(Entry No.);
...Codice di sostituzione 2
...END;
OnAfterGetRecord=BEGIN
// Add the following lines.
IF NOT TempDetailedCustLedgEntryApp.GET("Entry No.") THEN
CurrReport.SKIP;
CustLedgEntry3.GET("Cust. Ledger Entry No.");
CustLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
AppliedDocumentTypeText := FORMAT(CustLedgEntry3."Document Type");
ClosedByAmountLCY := "Amount (LCY)";
TotalForCustomer -= "Amount (LCY)";
TotalClosedByAmntLCY -= "Amount (LCY)";
// End of the added lines.
END;
DataItemLink=Cust. Ledger Entry No.=FIELD(Entry No.);
...3 il codice esistente
... SectionWidth=24450;
SectionHeight=846;
OnPreSection=BEGIN
// Delete the following line.
CurrReport.SHOWOUTPUT(ShowDetailedCustLedgerEntry)
// End of the deleted line.
END;
}
...Codice di sostituzione 3
...SectionWidth=24450;
SectionHeight=846;
OnPreSection=BEGIN
// Add the following lines.
IF ("Unapplied by Entry No." <> 0) THEN
CurrReport.SHOWOUTPUT(FALSE);
// End of the added lines.
END;
}
...4 il codice esistente
...ForeColor=65535;
SourceExpr="Document Type" = "Document Type"::Dishonored;
DataSetFieldName=Document_Type_____Document_Type___Dishonored }
// Delete the following lines.
{ 1130123;TextBox ;24000;0 ;150 ;423 ;Visible=No;
SourceExpr=ShowDetailedCustLedgerEntry;
DataSetFieldName=ShowDetailedCustLedgerEntry }
// End of the deleted lines.
}
}
{ PROPERTIES
...Codice di sostituzione 4
... ForeColor=65535;
SourceExpr="Document Type" = "Document Type"::Dishonored;
DataSetFieldName=Document_Type_____Document_Type___Dishonored }
}
}
{ PROPERTIES
... -
Modificare il codice nelle variabili globali nel report distinta effetti clienti (12117) come segue:
Codice esistente 1...Text000@1130000 : TextConst 'ENU=Please specify the Ending Date';
Text001@1130001 : TextConst 'ENU=The Bank Receipts Risk Period Value must not be blank in Sales Setup';
SalesSetup@1130002 : Record 311;
EndingDate@1130003 : Date;
ExposureDate@1130004 : Date;
OnlyOpened@1130005 : Boolean;
...Codice sostitutivo 1
... Text000@1130000 : TextConst 'ENU=Please specify the Ending Date';
Text001@1130001 : TextConst 'ENU=The Bank Receipts Risk Period Value must not be blank in Sales Setup';
SalesSetup@1130002 : Record 311;
// Add the following lines.
CustLedgEntry3@1130130 : Record 21;
TempDetailedCustLedgEntryApp@1130131 : TEMPORARY Record 379;
// End of the added lines.
EndingDate@1130003 : Date;
ExposureDate@1130004 : Date;
OnlyOpened@1130005 : Boolean;
...Codice esistente 2
... TotExpAmntForCust@1130011 : Decimal;
BalanceDue@1130012 : Decimal;
NULL@1130013 : DateFormula;
// Delete the following lines.
CustLedgEntry3@1130130 : Record 21;
PrintCustLedgEntry2@1130014 : Boolean;
ShowDetailedCustLedgerEntry@1130015 : Boolean INDATASET;
// End of the deleted lines.
BEGIN
{
...Codice di sostituzione 2
... TotExpAmntForCust@1130011 : Decimal;
BalanceDue@1130012 : Decimal;
NULL@1130013 : DateFormula;
// Add the following lines.
PrintCustLedgEntry2@1130014 : Boolean;
AppliedDocumentTypeText@1130132 : Text[30];
LOCAL PROCEDURE FindAppliedDtldCustLedgEntry@1130007(CustLedgerEntryNo@1130000 : Integer);
VAR
DetailedCustLedgEntry@1130001 : Record 379;
DetailedCustLedgEntryApplied@1130003 : Record 379;
BEGIN
TempDetailedCustLedgEntryApp.RESET;
TempDetailedCustLedgEntryApp.DELETEALL;
DetailedCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgerEntryNo);
DetailedCustLedgEntry.SETRANGE("Entry Type",DetailedCustLedgEntry."Entry Type"::Application);
DetailedCustLedgEntry.SETRANGE(Unapplied,FALSE);
DetailedCustLedgEntryApplied.SETRANGE(
"Entry Type",DetailedCustLedgEntryApplied."Entry Type"::Application);
IF DetailedCustLedgEntry.FINDSET THEN
REPEAT
DetailedCustLedgEntryApplied.SETRANGE(
"Applied Cust. Ledger Entry No.",DetailedCustLedgEntry."Applied Cust. Ledger Entry No.");
DetailedCustLedgEntryApplied.SETFILTER(
"Cust. Ledger Entry No.",'<>%1',CustLedgerEntryNo);
DetailedCustLedgEntryApplied.SETRANGE(
"Customer No.",DetailedCustLedgEntry."Customer No.");
DetailedCustLedgEntryApplied.SETRANGE(
"Transaction No.",DetailedCustLedgEntry."Transaction No.");
IF DetailedCustLedgEntryApplied.FINDSET THEN
REPEAT
TempDetailedCustLedgEntryApp := DetailedCustLedgEntryApplied;
IF TempDetailedCustLedgEntryApp.INSERT THEN;
UNTIL DetailedCustLedgEntryApplied.NEXT = 0;
UNTIL DetailedCustLedgEntry.NEXT = 0;
END;
// End of the added lines.
BEGIN
{
... -
Modificare il codice nel report estratto conto fornitori (12116) come segue:
Codice esistente 1... </TableRow>
</TableRows>
</Header>
<Visibility>
<Hidden>=IIF(Fields!ShowDetailedCustLedgerEntry.Value,TRUE,FALSE)</Hidden>
</Visibility>
</TableGroup>
</TableGroups>
<Top>2.22222cm</Top>
...Codice sostitutivo 1
... </TableRow>
</TableRows>
</Header>
// Delete the following lines.
<Visibility>
<Hidden>=IIF(Fields!ShowDetailedCustLedgerEntry.Value,TRUE,FALSE)</Hidden>
</Visibility>
// End of the deleted lines.
</TableGroup>
</TableGroups>
<Top>2.22222cm</Top>
...Codice esistente 2
...Field Name="Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_">
<DataField>Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_</DataField>
</Field>
<Field Name="ShowDetailedCustLedgerEntry">
<DataField>ShowDetailedCustomerLedgerEntry</DataField>
</Field>
</Fields>
<Query>
<CommandText />
...Codice di sostituzione 2
...<Field Name="Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_">
<DataField>Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_</DataField>
</Field>
// Delete the following lines.
<Field Name="ShowDetailedCustLedgerEntry">
<DataField>ShowDetailedCustomerLedgerEntry</DataField>
</Field>
// End of the deleted lines.
</Fields>
<Query>
<CommandText />
...
Prerequisiti
Deve avere uno dei seguenti prodotti per applicare questo hotfix:
-
La versione italiana di Microsoft Dynamics NAV 2009 R2
-
La versione italiana di Microsoft Dynamics NAV 2009 SP1
Informazioni sulla rimozione
Non è possibile rimuovere questo hotfix.
Stato
Microsoft ha confermato che questo è un problema dei prodotti Microsoft elencati nella sezione "Si applica a".
Nota: Si tratta di un articolo a "Pubblicazione Veloce" creato direttamente all'interno dell'organizzazione di supporto Microsoft. Le informazioni contenute nel presente documento sono fornite così come sono in risposta a problemi urgenti. Per la velocità in rendendo disponibili, i materiali possono includere errori tipografici e possono essere modificati in qualsiasi momento senza preavviso. Per altre considerazioni, vedere Condizioni di utilizzo.
