Symptom
När du har installerat den senaste versionen av växlar Kundlista rapport om du vill koppla en faktura till närliggande betalningstransaktionen och bokföra den i den italienska versionen av Microsoft Dynamics NAV 2009 visas inte rapporten betalningen. Visar bara fakturan så nära. Följ instruktionerna i avsnittet kod ändras för att lösa problemet. Det här problemet uppstår i följande produkter:
-
Den italienska versionen av Microsoft Dynamics NAV 2009 R2
-
Den italienska versionen av Microsoft Dynamics NAV 2009 SP1
Lösning
Information om snabbkorrigeringen
En snabbkorrigering är nu tillgänglig från Microsoft. Den är endast avsedd att åtgärda det problem som beskrivs i denna artikel. Använd den bara på datorer där detta problem uppstår. Snabbkorrigeringen kan komma att testas igen. Om inte störs alltför mycket av detta problem rekommenderar vi att du väntar på Nästa service pack-versionen för Microsoft Dynamics NAV 2009 eller nästa Microsoft Dynamics NAV-version som innehåller den här snabbkorrigeringen.
Obs! I särskilda fall, de avgifter som är normalt för support vara avgiftsfri om en supporttekniker för Microsoft Dynamics och relaterade produkter som bestämmer att en särskild uppdatering kan lösa ditt problem. De vanliga supportkostnaderna gäller för övriga supportfrågor och problem som inte berör den särskilda uppdateringen.
Installationsinformation
Microsoft tillhandahåller programmeringsexempel endast utan garanti varken uttryckliga eller underförstådda. Detta inkluderar men är inte begränsat till, underförstådda garantier om säljbarhet eller lämplighet för ett särskilt ändamål. Den här artikeln förutsätter att du är bekant med det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa till att förklara funktionen hos en viss procedur. De kommer inte ändra dessa exempel för att ge ytterligare funktioner eller skapa procedurer som motsvarar dina speciella behov.
Obs! Innan du installerar den här snabbkorrigeringen måste du kontrollera att alla användare i Microsoft Dynamics NAV-klienten har loggat ut. Detta omfattar tjänster för Microsoft Dynamics NAV Application Server (NAS). Du ska endast klientanvändare som är inloggad när du implementerar den här snabbkorrigeringen.
Om du vill genomföra den här snabbkorrigeringen måste du ha en utvecklarlicens.
Vi rekommenderar att tilldelas användarkontot i fönstret Windows-inloggningar eller i fönstret databasinloggningar "SUPER" roll-ID. Om användarkontot inte kan tilldelas "SUPER" roll-ID måste du kontrollera att användarkontot har följande behörigheter:
-
Ändra behörighet för objektet ändras.
-
Körbehörighet för systemet objektet ID 5210 objekt och System objektet ID 9015
objektet.
Obs! Du har inte behörighet för datalager inte data reparation.
Kod ändras
Obs! Alltid åtgärdas testa koden i en kontrollerad miljö innan du installerar korrigeringar för produktionsdatorer.
Lös problemet så här:
-
Ändra koden i växlar Kundlista rapport (12117) enligt följande:
Befintlig kod 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
...Ersättningskod 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
...Befintlig kod 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.);
...Ersättningskod 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.);
...Befintlig kod 3
... SectionWidth=24450;
SectionHeight=846;
OnPreSection=BEGIN
// Delete the following line.
CurrReport.SHOWOUTPUT(ShowDetailedCustLedgerEntry)
// End of the deleted line.
END;
}
...Ersättningskod 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;
}
...Befintlig kod 4
...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
...Ersättningskod 4
... ForeColor=65535;
SourceExpr="Document Type" = "Document Type"::Dishonored;
DataSetFieldName=Document_Type_____Document_Type___Dishonored }
}
}
{ PROPERTIES
... -
Ändra koden i den globala variabler i växlar Kundlista rapport (12117) enligt följande:
Befintlig kod 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;
...Ersättningskod 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;
...Befintlig kod 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
{
...Ersättningskod 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
{
... -
Ändra koden i rapporten växlar kontolista (12116) enligt följande:
Befintlig kod 1... </TableRow>
</TableRows>
</Header>
<Visibility>
<Hidden>=IIF(Fields!ShowDetailedCustLedgerEntry.Value,TRUE,FALSE)</Hidden>
</Visibility>
</TableGroup>
</TableGroups>
<Top>2.22222cm</Top>
...Ersättningskod 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>
...Befintlig kod 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 />
...Ersättningskod 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 />
...
Förutsättningar
Du måste ha någon av följande produkter som har installerat den här snabbkorrigeringen:
-
Den italienska versionen av Microsoft Dynamics NAV 2009 R2
-
Den italienska versionen av Microsoft Dynamics NAV 2009 SP1
Information om borttagning
Du kan inte ta bort den här snabbkorrigeringen.
Status
Microsoft har bekräftat att detta är ett problem i Microsoft-produkterna som nämns i avsnittet "Gäller".
Obs! Detta är en "SNABBPUBLICERING"-artikel skapad direkt från Microsoft support-organisationen. Informationen häri tillhandahålls i befintligt skick som svar på nya problem. Till följd av hastigheten för att göra det tillgängligt kan materialet innehålla typografiska fel och kan ändras när som helst utan föregående meddelande. Se Villkoren för användningför andra överväganden.