Maksed ei ole tunnistatud aasta algse arve hispaaniakeelses versioonis Microsoft Dynamics nav-i 2009

Mall: CPR - Navision koodi Fiacx Mall

VEA nr: 211713 (Content Maintenance)

Maksed raha uuesti koostatud arved tuleb kuulutas aasta algse arve ja ei põhine taasloodud arve rakenduses Microsoft Dynamics nav-i 2009 hispaaniakeelses versioonis deklaratsiooni 347 aasta. See probleem ilmneb järgmiste toodetega:

  • Hispaaniakeelses versioonis Microsoft Dynamics nav-i 2009 R2

  • Hispaaniakeelses versioonis Microsoft Dynamics nav-i 2009 Service Pack 1 (SP1)

Põhjus

See probleem ilmneb, sest vale kuupäev on võetud deklaratsiooni 347 korral uuesti koostatud arvete eksportimine

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.

Kui see käigultparandus pole sisestatud avalikkusele allalaadimiseks (st avalik URL kiirparanduse selles artiklis on toodud), levitamine vajab, laiendamine meeskonnaliikme, või manager kinnituse ja järgmine teave kehtib:

  • Selle käigultparanduse saamiseks peavad kliendid esineb jaotises "Tunnused" kirjeldatud tarkvaraveaga.

  • Peate jälgima kliente, selle paranduse saadate, ning saatma neile järgmise hoolduspaketi kohe, kui on saadaval (kui hoolduspakett välja antakse).

See käigultparandus plaanitakse kaasata hispaaniakeelses versioonis Microsoft Dynamics nav-i 2013 ja hispaaniakeelses versioonis Microsoft Dynamics NAV 2013 R2.

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. Enne muudatuse rakendamist proovige importida kõik SEPA värskendused.

Selle probleemi lahendamiseks toimige järgmiselt.

  1. Muuda koodi IdentifyCashPayments funktsioon teha 347 deklaratsiooni aruandes (10707) järgmiselt:
    Kood 1

    ...LOCAL PROCEDURE IdentifyCashPayments@1100010(CustomerNo@1100000 : Code[20];VATRegistrationNo@1100002 : Text[20]);
    VAR
    CustLedgerEntry@1100001 : Record 21;
    BEGIN
    // es0020.begin
    CustLedgerEntry.SETCURRENTKEY("Document Type","Customer No.","Posting Date","Currency Code");
    CustLedgerEntry.SETRANGE("Document Type",CustLedgerEntry."Document Type"::Payment);
    ...

    Kood 1

    ...LOCAL PROCEDURE IdentifyCashPayments@1100010(CustomerNo@1100000 : Code[20];VATRegistrationNo@1100002 : Text[20]);
    VAR
    CustLedgerEntry@1100001 : Record 21;

    // Add the following line.
    DocumentPostingDate@1170000000 : Date;

    BEGIN
    // es0020.begin
    CustLedgerEntry.SETCURRENTKEY("Document Type","Customer No.","Posting Date","Currency Code");
    CustLedgerEntry.SETRANGE("Document Type",CustLedgerEntry."Document Type"::Payment);
    ...

    Kood 2

    ...CustLedgerEntry.SETCURRENTKEY("Document Type","Customer No.","Posting Date","Currency Code");
    CustLedgerEntry.SETRANGE("Document Type",CustLedgerEntry."Document Type"::Payment);
    CustLedgerEntry.SETRANGE("Customer No.",CustomerNo);

    // Delete the following lines.
    CustLedgerEntry.SETRANGE("Posting Date",FromDate,ToDate);
    IF CustLedgerEntry.FINDSET THEN
    REPEAT
    IF (CustLedgerEntry."Bal. Account Type" = CustLedgerEntry."Bal. Account Type"::"G/L Account") AND
    (CustLedgerEntry."Bal. Account No." <> '')
    THEN BEGIN
    IF IsCashAccount(CustLedgerEntry."Bal. Account No.") THEN
    CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo);
    END ELSE
    IF ((CustLedgerEntry."Bal. Account No." = '') OR
    (CustLedgerEntry."Bal. Account Type" <> CustLedgerEntry."Bal. Account Type"::"G/L Account"))
    THEN BEGIN
    IF IdentifyCashPaymentsFromGL(CustLedgerEntry) THEN
    CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo);
    END;
    // End of the deleted lines.

    UNTIL CustLedgerEntry.NEXT = 0;
    // es0020.end
    END;
    ...

    Asendamine kood 2

    ...CustLedgerEntry.SETCURRENTKEY("Document Type","Customer No.","Posting Date","Currency Code");
    CustLedgerEntry.SETRANGE("Document Type",CustLedgerEntry."Document Type"::Payment);
    CustLedgerEntry.SETRANGE("Customer No.",CustomerNo);

    // Add the following lines.
    // we need payments made in future.
    // CustLedgerEntry.SETRANGE("Posting Date",FromDate,ToDate);
    IF CustLedgerEntry.FINDSET THEN
    REPEAT
    DocumentPostingDate := GetPaymentDocumentPostingDate(CustLedgerEntry);
    IF (CheckCashTotalsPossibility(CustLedgerEntry,DocumentPostingDate)) THEN
    CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo,DocumentPostingDate);
    // End of the added lines.

    UNTIL CustLedgerEntry.NEXT = 0;
    // es0020.end
    END;
    ...
  2. Muuda koodi CreateCashTotals funktsioon teha 347 deklaratsiooni aruandes (10707) järgmiselt:
    Kood 1

    ...UNTIL CustLedgerEntry.NEXT = 0;
    // es0020.end
    END;

    // Delete the following line.
    LOCAL PROCEDURE CreateCashTotals@2(CustLedgerEntryNo@1100000 : Integer;VATRegistrationNo@1100001 : Text[20]) : Boolean;

    VAR
    CustLedgerEntry@1100091 : Record 21;
    DtldCustLedgEntry@1100094 : Record 379;
    DtldCustLedgEntry2@1100095 : Record 379;
    ...

    Kood 1

    ...UNTIL CustLedgerEntry.NEXT = 0;
    // es0020.end
    END;

    // Add the following line.
    LOCAL PROCEDURE CreateCashTotals@2(CustLedgerEntryNo@1100000 : Integer;VATRegistrationNo@1100001 : Text[20];DocumentPostingDate@1170000000 : Date) : Boolean;

    VAR
    CustLedgerEntry@1100091 : Record 21;
    DtldCustLedgEntry@1100094 : Record 379;
    DtldCustLedgEntry2@1100095 : Record 379;
    ...

    Kood 2

    ...THEN BEGIN
    IF CustLedgerEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.") THEN
    UpdateCustomerCashBuffer(VATRegistrationNo,

    // Delete the following line.
    DATE2DMY(CustLedgerEntry."Posting Date",3),-(DtldCustLedgEntry2."Amount (LCY)"));

    END;
    UNTIL DtldCustLedgEntry2.NEXT = 0;
    END ELSE BEGIN
    ...

    Asendamine kood 2

    ...THEN BEGIN
    IF CustLedgerEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.") THEN
    UpdateCustomerCashBuffer(VATRegistrationNo,

    // Add the following line.
    DATE2DMY(DocumentPostingDate,3),-(DtldCustLedgEntry2."Amount (LCY)"));

    END;
    UNTIL DtldCustLedgEntry2.NEXT = 0;
    END ELSE BEGIN
    ...

    Kood 3

    ...END ELSE BEGIN
    IF CustLedgerEntry.GET(DtldCustLedgEntry."Applied Cust. Ledger Entry No.") THEN
    UpdateCustomerCashBuffer(VATRegistrationNo,

    // Delete the following line.
    DATE2DMY(CustLedgerEntry."Posting Date",3),DtldCustLedgEntry."Amount (LCY)");

    END;
    UNTIL DtldCustLedgEntry.NEXT = 0;
    // es0020.end
    ...

    Asendamine kood 3

    ...END ELSE BEGIN
    IF CustLedgerEntry.GET(DtldCustLedgEntry."Applied Cust. Ledger Entry No.") THEN
    UpdateCustomerCashBuffer(VATRegistrationNo,

    // Add the following line.
    DATE2DMY(DocumentPostingDate,3),DtldCustLedgEntry."Amount (LCY)");

    END;
    UNTIL DtldCustLedgEntry.NEXT = 0;
    // es0020.end
    ...
  3. Muuda koodi GetPaymentDocumentPostingDate funktsioon teha 347 deklaratsiooni aruandes (10707) järgmiselt:
    Kood

    ...IF Vendor."Country/Region Code" = CountryCode THEN
    FromJournal := TRUE;
    END;
    ...

    Eemaldamise teave

    ...IF Vendor."Country/Region Code" = CountryCode THEN
    FromJournal := TRUE;
    END;

    // Add the following lines.
    LOCAL PROCEDURE GetPaymentDocumentPostingDate@1170000000(CustLedgerEntry@1170000000 : Record 21) PostingDate : Date;
    VAR
    CustLedgerEntryRelated@1170000001 : Record 21;
    BEGIN
    WITH CustLedgerEntry DO BEGIN;
    TESTFIELD("Document Type","Document Type"::Payment);
    PostingDate := "Posting Date";
    END;

    // If payment for Bill then we need get Posting Date of the Document related to the Bill
    WITH CustLedgerEntryRelated DO BEGIN
    SETRANGE("Closed by Entry No.",CustLedgerEntry."Entry No.");
    SETRANGE("Document Type","Document Type"::Bill);
    IF FINDFIRST THEN BEGIN
    RESET;
    SETRANGE("Document No.","Document No.");
    SETFILTER("Document Type",'%1|%2',"Document Type"::Invoice,"Document Type"::"Credit Memo");
    FINDFIRST;
    PostingDate := "Posting Date";
    END
    END;

    EXIT(PostingDate);
    END;

    PROCEDURE CheckCashTotalsPossibility@1170000008(CustLedgerEntry@1170000000 : Record 21;DocumentPostingDate@1170000001 : Date) : Boolean;
    BEGIN
    IF (DocumentPostingDate < FromDate) OR (DocumentPostingDate > ToDate) THEN
    EXIT(FALSE);

    WITH CustLedgerEntry DO
    IF ("Bal. Account Type" = "Bal. Account Type"::"G/L Account") AND ("Bal. Account No." <> '') THEN BEGIN
    IF IsCashAccount("Bal. Account No.") THEN
    EXIT(TRUE);
    END ELSE
    IF ("Bal. Account No." = '') OR ("Bal. Account Type" <> "Bal. Account Type"::"G/L Account") THEN
    IF IdentifyCashPaymentsFromGL(CustLedgerEntry) THEN
    EXIT(TRUE);

    EXIT(FALSE);
    END;
    // End of the added lines.
    ...


Eeltingimused

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

  • Hispaaniakeelses versioonis Microsoft Dynamics nav-i 2009 R2

  • Hispaaniakeelses 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.

Viited

VSFT DynamicsNAVSE: 317271

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.

Autor: vagarcia
Writer: v-six
Tehniline toimetaja: vagarcia
Editor:

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?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×