Sign in with Microsoft
Sign in or create an account.

Sümptomid

Aruande kliendi arvete loend uusima versiooni installimist kui rakendate arve tehingu seotud makse ja postitage see siis Itaalia versioonis Microsoft Dynamics nav-i 2009 aruande ei kuvata makse. See kuvatakse ainult arve lähedale. Järgige juhiseid koodi muudatusi selle probleemi lahendamiseks jaotisse. See probleem ilmneb järgmiste toodetega:

  • Itaalia versioonis Microsoft Dynamics nav-i 2009 R2

  • Itaalia versioonis Microsoft Dynamics nav-i 2009 SP1

Lahendus

Kiirparanduse teave

Lasknud välja toetatava käigultparanduse on nüüd Microsoftilt saadaval. Kuid see on ette nähtud ainult selles artiklis kirjeldatud probleemi kõrvaldamiseks. Rakendage seda ainult süsteemides, kus ilmneb see konkreetne probleem. Seda käigultparandust võidakse täiendavalt testida. Seega, kui probleem teie tööd tõsiselt ei kahjusta, soovitame oodata järgmist hoolduspaketti Microsoft Dynamics nav-i 2009 või järgmise Microsoft Dynamics nav-i versiooni, mis sisaldab seda kiirparandust.

Märkus. Erijuhtudel kulud, mis tekivad teatud palub tühistada saab kui tehniline toetus Professional Microsoft Dynamics ja nendega seotud toodete leiab, et mõni konkreetne värskendus lahendab teie probleemi. Tavaline tugiteenuste kohaldatakse täiendavat tugiteenust vajavatele küsimustele ning probleemidele, mis pole lahendatavad konkreetse värskenduse installimisega.

Installiteave

Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse garantiita. See hõlmab, kuid ei piirdu kaudseid garantiisid turustatavuse või kindlaks otstarbeks sobivusega. See artikkel eeldab, et olete demonstreeritava programmeerimiskeelega programmeerimise keel ning luua protseduuride ja silumiseks kasutatavate tööriistadega tuttav. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri talitlust selgitada. Siiski ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega Koosta vastavaid protseduure teie konkreetsetele nõuetele.

Märkus. Enne selle kiirparanduse installimist veenduge, et kõik Microsoft Dynamics nav-i kliendi kasutajat sisse loginud süsteem välja. See hõlmab Microsoft Dynamics nav-i rakenduste Server (NAS) teenuseid. Peaks olema ainult kliendi kasutaja on sisse logitud, kui otsustate seda käigultparandust.

Selle kiirparanduse rakendamiseks peab teil olema arendaja litsentsi.

Soovitame Windowsi sisselogimise aken või aken andmebaasi logimine kasutajakonto määrata "SUPER" rolli ID. Kui "SUPER" rolli ID-d ei saa määratud kasutajakonto, peate veenduma, et kasutaja konto on järgmised õigused:

  • Sa muutuvad objekti Muuda õigusi.

  • Käivita luba süsteemi objekti ID 5210 objekti ja süsteemi objekti ID 9015

    objekti.

Märkus. Teil pole õigust andmeid talletab enne, kui olete andmete parandamiseks.

Koodi muudatusi

Märkus. Alati test koodi lahendab kontrollitavas keskkonnas enne rakendamist tootmine arvutite parandused.

Selle probleemi lahendamiseks toimige järgmiselt.

  1. Muuta koodi kliendi arvete nimekirja aruandes (12117) järgmiselt:
    Kood 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
    ...

    Kood 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
    ...

    Kood 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.);
    ...

    Asendamine kood 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.);
    ...

    Kood 3

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

    // Delete the following line.
    CurrReport.SHOWOUTPUT(ShowDetailedCustLedgerEntry)
    // End of the deleted line.

    END;

    }
    ...

    Asendamine kood 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;

    }
    ...

    Kood 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
    ...

    Asendamine kood 4

    ... ForeColor=65535;
    SourceExpr="Document Type" = "Document Type"::Dishonored;
    DataSetFieldName=Document_Type_____Document_Type___Dishonored }
    }
    }
    { PROPERTIES
    ...
  2. Muuda koodi globaalsed muutujad kliendi arvete nimekirja aruandes (12117) järgmiselt:
    Kood 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;
    ...

    Kood 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;
    ...

    Kood 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
    {
    ...

    Asendamine kood 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
    {
    ...
  3. Hankija konto arvete nimekirja aruanne (12116) koodi muuta järgmiselt:
    Kood 1

    ... </TableRow>
    </TableRows>
    </Header>
    <Visibility>
    <Hidden>=IIF(Fields!ShowDetailedCustLedgerEntry.Value,TRUE,FALSE)</Hidden>
    </Visibility>
    </TableGroup>
    </TableGroups>
    <Top>2.22222cm</Top>
    ...

    Kood 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>
    ...

    Kood 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 />
    ...

    Asendamine kood 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 />
    ...

Eeltingimused

Teil peab olema üks selle kiirparanduse installinud järgmisi tooteid:

  • Itaalia versioonis Microsoft Dynamics nav-i 2009 R2

  • Itaalia versioonis Microsoft Dynamics nav-i 2009 SP1

Eemaldamise teave

See käigultparandus ei saa eemaldada.

Olek

Microsoft on kinnitanud, et see probleem esineb jaotises "Kehtib järgmiste toodete kohta" loetletud Microsofti toodetel.

Märkus. See on "Kiire avaldamise" artikli loonud otse Microsofti tugiteenuse pakkujalt. Siintoodud teave on esitatud lähtudes-olemasoleval kujul vastusena ilmnenud probleemidele. Kiire avaldamise materjalides esineda trükivigu ja võidakse muuta ette teatamata. Vt Kasutustingimusedmuid kaalutlusi.

Kas vajate veel abi?

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liitu Microsofti Insideri programmis osalejad

Kas sellest teabest oli abi?

Kui rahul te keelekvaliteediga olete?
Mis mõjutas teie hinnangut?

Täname tagasiside eest!

×