Lijst met leveranciers rekeningen betalingsdetails van facturen kan niet worden weergegeven in de Italiaanse versie van Microsoft Dynamics NAV 2009

Sjabloon: CPR - sjabloon voor Navision Code Fiacx

BUG #: 216249 (Contentbeheer)

Symptomen

Nadat u de nieuwste versie van de lijst met leveranciers rekeningen-rapport als u een factuur met de bijbehorende betalingstransactie vereffenen en boek vervolgens in de Italiaanse versie van Microsoft Dynamics NAV 2009, wordt het rapport lijst met stuklijsten leveranciers de betaling niet weergegeven. Alleen de factuur zo dicht wordt weergegeven. Volg de stappen in de sectie codewijzigingen oplossen van dit probleem. Dit probleem treedt op in de volgende producten:

  • De Italiaanse versie van Microsoft Dynamics NAV 2009 R2

  • De Italiaanse versie van Microsoft Dynamics NAV 2009 SP1

Oplossing

Informatie over de hotfix

Een ondersteunde hotfix is nu beschikbaar bij Microsoft. Het is echter alleen bedoeld om het probleem dat wordt beschreven in dit artikel. Pas deze alleen toe op systemen waarop dit specifieke probleem zich voordoet. Deze hotfix moet wellicht extra worden getest. Als u geen ernstige problemen ondervindt, is het daarom raadzaam te wachten op het volgende servicepack voor Microsoft Dynamics NAV 2009 of de volgende Microsoft Dynamics NAV versie waarin deze hotfix is opgenomen.

Opmerking In speciale gevallen kunnen kosten die verbonden zijn aan ondersteuningsoproepen ondersteuning worden geannuleerd als een medewerker van Technical Support voor Microsoft Dynamics en verwante producten bepaalt dat een specifieke update de oplossing van uw probleem. De normale ondersteuningskosten blijven gelden voor extra ondersteuningsvragen die niet in aanmerking voor de specifieke update in kwestie komen.

Als deze hotfix niet is geboekt voor openbare downloaden (wat betekent dat een openbare URL voor deze hotfix is niet opgenomen in dit artikel), verdeling technische lead, escalation teamlid of goedkeuring manager vereist en de volgende informatie is van toepassing:

  • To receive the hotfix, klanten moeten als ze problemen hebben dat wordt vermeld in de sectie 'Symptomen'.

  • U moet bijhouden welke klanten u deze en sturen met het volgende servicepack leveren, wanneer dit beschikbaar komt (als u een servicepack wordt gepubliceerd).

Deze hotfix is opgenomen in een servicepack voor Microsoft Dynamics NAV niet gepland.

Informatie over de installatie

Microsoft verstrekt programmeervoorbeelden uitsluitend ter illustratie, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend met de programmeertaal die wordt aangetoond en met de hulpprogramma's die worden gebruikt bent voor het maken van en naar procedures voor foutopsporing. Ondersteuningstechnici van Microsoft kunnen voor uitleg over de functionaliteit van een bepaalde procedure. Zij zal deze voorbeelden bieden extra functionaliteit of desgewenst uw specifieke vereisten echter niet wijzigen.

Opmerking Voordat u deze hotfix hebt geïnstalleerd, controleert u of dat alle gebruikers van Microsoft Dynamics NAV-clients zijn afgemeld bij het systeem. Dit omvat services voor Microsoft Dynamics NAV Application Server (NAS). U moet de alleen clientgebruiker die is aangemeld wanneer u deze hotfix gaat implementeren.

Als u deze hotfix gaat implementeren, hebt u een ontwikkelaarslicentie voor.

Is raadzaam dat de gebruikersaccount in het venster Windows-aanmeldingen of Databaseaanmeldingen de rol-id 'SUPER'. Als de gebruikersaccount kan worden toegewezen als de ID 'SUPER' rol, moet u controleren of de gebruikersaccount de volgende machtigingen heeft:

  • De machtiging wijzigen voor het object dat u wijzigt.

  • De machtiging uitvoeren voor het object System Object ID 5210 en voor de System Object ID 9015

    -object.

Opmerking Er geen rechten voor de opgeslagen gegevens hebben, tenzij u gegevens herstellen.

Codewijzigingen

Opmerking Altijd test code worden opgelost in een testomgeving voordat u de correcties in de productieomgeving.

U kunt dit probleem oplossen door de volgende stappen uit te voeren:

  1. De code in de lijst met leveranciers rekeningen rapport (12116) als volgt wijzigen:
    Bestaande code 1

    ...DataItemTableView=SORTING(Vendor Ledger Entry No.,Entry Type,Posting Date)
    WHERE(Entry Type=CONST(Application));
    OnPreDataItem=BEGIN

    // Delete the following line.
    VendLedgEntry1.COPYFILTER("Posting Date", "Detailed Vendor Ledg. Entry"."Posting Date");
    // End of the deleted line.

    END;

    OnAfterGetRecord=BEGIN
    ...

    Nieuwe code 1

    ...DataItemTableView=SORTING(Vendor Ledger Entry No.,Entry Type,Posting Date)
    WHERE(Entry Type=CONST(Application));
    OnPreDataItem=BEGIN

    // Add the following line.
    FindAppliedDtldVendLedgEntry(VendLedgEntry1."Entry No.");
    // End of the added line.

    END;

    OnAfterGetRecord=BEGIN
    ...

    Bestaande code 2

    ... END;

    OnAfterGetRecord=BEGIN

    // Delete the following lines.
    VendLedgEntry3.GET("Applied Vend. Ledger Entry No.");
    VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
    ClosedByAmountLCY := "Amount (LCY)";
    TotalForVendor += "Amount (LCY)";
    TotalClosedByAmntLCY += "Amount (LCY)";
    END;

    DataItemLink=Vendor Ledger Entry No.=FIELD(Entry No.);
    // End of the deleted lines.

    }
    SECTIONS
    {
    ...

    Vervangende code 2

    ... END;

    OnAfterGetRecord=BEGIN

    // Add the following lines.
    IF NOT TempDetailedVendorLedgEntryApplied.GET("Entry No.") THEN
    CurrReport.SKIP;
    VendLedgEntry3.GET("Vendor Ledger Entry No.");
    VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
    AppliedDocumentTypeText := FORMAT(VendLedgEntry3."Document Type");
    ClosedByAmountLCY := "Amount (LCY)";
    TotalForVendor -= "Amount (LCY)";
    TotalClosedByAmntLCY -= "Amount (LCY)";
    END;

    // End of the added lines.

    }
    SECTIONS
    {
    ...

    Bestaande code 3

    ...SectionWidth=27750;
    SectionHeight=846;
    OnPreSection=BEGIN
    IF (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::Payment)
    OR (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::" ") THEN
    CurrReport.SHOWOUTPUT(FALSE)
    ELSE
    CurrReport.SHOWOUTPUT(TRUE);
    IF ("Unapplied by Entry No." <> 0) THEN
    CurrReport.SHOWOUTPUT(FALSE);
    END;
    ...

    Vervangende code 3

    ...SectionWidth=27750;
    SectionHeight=846;
    OnPreSection=BEGIN

    // Delete the following lines.
    IF (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::Payment)
    OR (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::" ") THEN
    CurrReport.SHOWOUTPUT(FALSE)
    ELSE
    CurrReport.SHOWOUTPUT(TRUE);
    // End of the deleted lines.

    IF ("Unapplied by Entry No." <> 0) THEN
    CurrReport.SHOWOUTPUT(FALSE);
    END;
    ...

    Bestaande code 4

    ... { 1130070;TextBox   ;19200;0    ;1800 ;423  ;SourceExpr=ClosedByAmountLCY;
    DataSetFieldName=ClosedByAmountLCY_Control1130070 }
    { 1130071;TextBox ;5550 ;0 ;1500 ;423 ;HorzAlign=Right;

    // Delete the following lines.
    SourceExpr="Document No.";
    DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_No__ }
    { 1130072;TextBox ;1950 ;0 ;1350 ;423 ;SourceExpr="Document Type";
    // End of the deleted lines.

    DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_Type_ }
    { 1130073;TextBox ;0 ;0 ;1800 ;423 ;CaptionML=[ENU=PostingDate;
    ITA=Data di registrazione];
    ...

    Vervangende code 4

    ...{ 1130070;TextBox   ;19200;0    ;1800 ;423  ;SourceExpr=ClosedByAmountLCY;
    DataSetFieldName=ClosedByAmountLCY_Control1130070 }
    { 1130071;TextBox ;5550 ;0 ;1500 ;423 ;HorzAlign=Right;

    // Add the following lines.
    SourceExpr=VendLedgEntry3."Document No.";
    DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_No__ }
    { 1130072;TextBox ;1950 ;0 ;1350 ;423 ;SourceExpr=AppliedDocumentTypeText;
    // End of the added lines.

    DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_Type_ }
    { 1130073;TextBox ;0 ;0 ;1800 ;423 ;CaptionML=[ENU=PostingDate;
    ITA=Data di registrazione];
    ...

    Bestaande code 5

    ... DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_Type_ }
    { 1130073;TextBox ;0 ;0 ;1800 ;423 ;CaptionML=[ENU=PostingDate;
    ITA=Data di registrazione];

    // Delete the following line.
    SourceExpr=FORMAT("Posting Date");
    // End of the deleted line.

    DataSetFieldName=Detailed_Vendor_Ledg__Entry__Posting_Date_ }
    { 1130074;TextBox ;7200 ;0 ;1650 ;423 ;SourceExpr=VendLedgEntry3."Document Occurrence";
    DataSetFieldName=VendLedgEntry3__Document_Occurrence_ }
    ...

    Vervangende code 5

    ...DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_Type_ }
    { 1130073;TextBox ;0 ;0 ;1800 ;423 ;CaptionML=[ENU=PostingDate;
    ITA=Data di registrazione];

    // Add the following line.
    SourceExpr=FORMAT(VendLedgEntry3."Posting Date");
    // End of the added line.

    DataSetFieldName=Detailed_Vendor_Ledg__Entry__Posting_Date_ }
    { 1130074;TextBox ;7200 ;0 ;1650 ;423 ;SourceExpr=VendLedgEntry3."Document Occurrence";
    DataSetFieldName=VendLedgEntry3__Document_Occurrence_ }
    ...

    Bestaande code 6

    ...ForeColor=65535;
    SourceExpr="Unapplied by Entry No.";
    DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }
    }
    }
    { PROPERTIES
    ...

    Vervangende code 6

    ... ForeColor=65535;
    SourceExpr="Unapplied by Entry No.";
    DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }

    // Add the following lines.
    { 1130178;TextBox ;21150;0 ;1800 ;423 ;Visible=No;
    SourceExpr="Vendor Ledger Entry No.";
    DataSetFieldName=Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_ }
    // End of the added lines.

    }
    }
    { PROPERTIES
    ...
  2. De code in het algemene variabelen in het rapport lijst met leveranciers rekeningen (12116) als volgt wijzigen:
    Bestaande code 1

    ...VAR
    Text000@1130000 : TextConst 'ENU=Please specify the Ending Date;ITA=Specificare Data fine';
    VendorBillLine@1130001 : Record 12182;
    EndingDate@1130002 : Date;
    OnlyOpened@1130003 : Boolean;
    RemainingAmountLCY@1130004 : Decimal;
    ...

    Nieuwe code 1

    ...VAR
    Text000@1130000 : TextConst 'ENU=Please specify the Ending Date;ITA=Specificare Data fine';
    VendorBillLine@1130001 : Record 12182;

    // Add the following line.
    TempDetailedVendorLedgEntryApplied@1130013 : TEMPORARY Record 380;
    // End of the added line.

    EndingDate@1130002 : Date;
    OnlyOpened@1130003 : Boolean;
    RemainingAmountLCY@1130004 : Decimal;
    ...

    Bestaande code 2

    ...TotalVendorBillAmnt@1130010 : Decimal;
    VendLedgEntry3@1130011 : Record 25;
    VendorLedgerEmtryTypeINT@1102601000 : Integer;

    BEGIN
    END.
    ...

    Vervangende code 2

    ...TotalVendorBillAmnt@1130010 : Decimal;
    VendLedgEntry3@1130011 : Record 25;
    VendorLedgerEmtryTypeINT@1102601000 : Integer;

    // Add the following lines.
    AppliedDocumentTypeText@1170000000 : Text[30];

    LOCAL PROCEDURE FindAppliedDtldVendLedgEntry@1130007(VendorLedgerEntryNo@1130000 : Integer);
    VAR
    DetailedVendorLedgEntry@1130001 : Record 380;
    DetailedVendorLedgEntryApplied@1130003 : Record 380;
    BEGIN
    TempDetailedVendorLedgEntryApplied.RESET;
    TempDetailedVendorLedgEntryApplied.DELETEALL;

    DetailedVendorLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendorLedgerEntryNo);
    DetailedVendorLedgEntry.SETRANGE("Entry Type",DetailedVendorLedgEntry."Entry Type"::Application);
    DetailedVendorLedgEntry.SETRANGE(Unapplied,FALSE);

    DetailedVendorLedgEntryApplied.SETRANGE(
    "Entry Type",DetailedVendorLedgEntryApplied."Entry Type"::Application);

    IF DetailedVendorLedgEntry.FINDSET THEN
    REPEAT
    DetailedVendorLedgEntryApplied.SETRANGE(
    "Applied Vend. Ledger Entry No.",DetailedVendorLedgEntry."Applied Vend. Ledger Entry No.");
    DetailedVendorLedgEntryApplied.SETFILTER(
    "Vendor Ledger Entry No.",'<>%1',VendorLedgerEntryNo);
    DetailedVendorLedgEntryApplied.SETRANGE(
    "Vendor No.",DetailedVendorLedgEntry."Vendor No.");
    DetailedVendorLedgEntryApplied.SETRANGE(
    "Transaction No.",DetailedVendorLedgEntry."Transaction No.");
    IF DetailedVendorLedgEntryApplied.FINDSET THEN
    REPEAT
    TempDetailedVendorLedgEntryApplied := DetailedVendorLedgEntryApplied;
    IF TempDetailedVendorLedgEntryApplied.INSERT THEN;
    UNTIL DetailedVendorLedgEntryApplied.NEXT = 0;
    UNTIL DetailedVendorLedgEntry.NEXT = 0;
    END;
    // End of the added lines.

    BEGIN
    END.
    ...
  3. De code in de lijst met leveranciers rekeningen rapport (12116) als volgt wijzigen:
    Bestaande code

    ...</TableCell>
    </TableCells>
    <Visibility>

    // Delete the following line.
    <Hidden>=IIF((Count(Fields!Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_.Value)=Rownumber("table1_Group3")),
    // End of the deleted line.

    FALSE,TRUE)</Hidden>
    </Visibility>
    </TableRow>
    ...

    Nieuwe code

    ... </TableCell>
    </TableCells>
    <Visibility>

    // Add the following line.
    <Hidden>=IIF((Count(Fields!Detailed_Vendor_Ledg__Entry_Entry_No_.Value)=Rownumber("table1_Group3")),
    // End of the added line.

    FALSE,TRUE)</Hidden>
    </Visibility>
    </TableRow>
    ...

Vereisten

Hebt u een van de volgende producten geïnstalleerd om deze hotfix:

  • De Italiaanse versie van Microsoft Dynamics NAV 2009 R2

  • De Italiaanse versie van Microsoft Dynamics NAV 2009 SP1

Informatie over verwijderen

U kunt deze hotfix niet verwijderen.

Status

Microsoft heeft bevestigd dat dit probleem kan optreden in de Microsoft-producten die worden vermeld in de sectie 'Van toepassing op'.

Referenties

VSFT DynamicsNAVSE: 361092

Opmerking Dit is een 'Snel publiceren' artikel dat rechtstreeks door het ondersteuningsteam van Microsoft is gemaakt. De informatie wordt geleverd zoals het is in reactie op de opkomende problemen. Omdat het artikel snel beschikbaar moest zijn, kunnen de materialen typografische fouten bevatten en op elk gewenst moment zonder voorafgaande kennisgeving worden gewijzigd. Zie de Gebruiksvoorwaardenvoor andere overwegingen.

Author: alessandro.vannini
Writer: v-luzo
Tech Reviewer: alessandro.vannini
Editor:

Meer hulp nodig?

Uw vaardigheden uitbreiden
Training verkennen
Als eerste nieuwe functies krijgen
Deelnemen aan Microsoft insiders

Was deze informatie nuttig?

Bedankt voor uw feedback.

Hartelijk dank voor uw feedback! Het lijkt ons een goed idee om u in contact te brengen met een van onze Office-ondersteuningsagenten.

×