Platby nie sú za rok pôvodnej faktúry v španielskej verzii systému Microsoft Dynamics NAV 2009

Šablóna: CPR - Navision kód Fiacx šablóny

BUG #: 211713 (údržby)

Platby v hotovosti prekresľuje faktúr za rok pôvodnej faktúry a nie na základe rok prekresľuje Bill v 347 vyhlásenie v španielskej verzii systému Microsoft Dynamics NAV 2009. Tento problém sa vyskytuje v nasledovných produktov:

  • Španielskej verzii systému Microsoft Dynamics NAV 2009 R2

  • Španielskej verzii systému Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Príčina

Tento problém sa vyskytuje, pretože nesprávny dátum odobrať export 347 vyhlásenie v prípade prekresľuje účtov

Riešenie

Informácie o rýchlej oprave

Rýchla oprava je k dispozícii od spoločnosti Microsoft. Je však určená iba opraviť problém popísaný v tomto článku. Použite ju iba v počítačoch s týmto konkrétnym problémom. Môže, že táto rýchla oprava bude ďalej testovaná. Ak vám nespôsobuje tento problém, odporúčame vám počkať na ďalšiu Microsoft Dynamics NAV 2009 service pack alebo ďalšej verzii Microsoft Dynamics NAV, ktorá obsahuje túto rýchlu opravu.

Poznámka: V špeciálnych prípadoch sa poplatky, ktoré sú telefonickú podporu nemusia účtovať ak technickú podporu Professional pre Microsoft Dynamics a súvisiace produkty zistí, že táto konkrétna aktualizácia vyrieši váš problém. Ďalšie otázky a žiadosti o technickú podporu, ktoré sa netýkajú tejto špecifickej aktualizácie, podliehajú bežným sadzbám za poskytovanie technickej podpory.

Ak táto rýchla oprava nie je verejne prístupná na prevzatie (čo znamená, v tomto článku sa neuvádza verejná adresa URL pre túto rýchlu opravu), distribúcia vyžaduje technické vedenie, členom eskalačného tímu alebo nadriadeným a platí nasledovné:

  • Získať rýchlu opravu, musí zákazníkov vyskytujú chyby, ktoré je spomenuté v časti "Príznaky".

  • Musíte sledovať zákazníkov to Odoslať a dodať im najnovší balík service pack po sprístupnení (v prípade, že takýto balík vydaný).

Táto rýchla oprava bude tvoriť súčasť španielskej verzii systému Microsoft Dynamics NAV 2013 a španielskej verzii systému Microsoft Dynamics NAV 2013 R2.

Informácie o inštalácii

Spoločnosť Microsoft poskytuje príklady programovacieho kódu len ako názornú ukážku bez vyjadrených či predpokladaných záruk. Tie okrem iného zahŕňajú predpokladané záruky obchodovateľnosti alebo vhodnosti na konkrétny účel. Tento článok predpokladá, že ovládate predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft môžu vysvetliť fungovanie konkrétneho postupu. Ale nemôžu tieto príklady poskytovať pridanú funkčnosť alebo konštrukčné procedúry zohľadňujúce vaše konkrétne požiadavky.

Poznámka: Pred inštaláciou tejto rýchlej opravy, kontrola všetkých používateľov klienta Microsoft Dynamics NAV systém. To zahŕňa služby Microsoft Dynamics NAV aplikácie servera (NAS). Mali by ste byť iba klient prihláseného používateľa je pri implementácii túto rýchlu opravu.

Vykonávať túto rýchlu opravu, musíte mať licencie pre vývojárov.

Odporúčame, aby používateľského konta v okne prihlásenia systému Windows alebo v okne prihlásenia do databázy pridelí "SUPER" úlohu ID. Ak používateľské konto nemožno priradiť úlohu ID "SUPER", musíte overiť, že používateľské konto má nasledujúce povolenia:

  • Zmeniť povolenia pre objekt, ktorý sa zmení.

  • Povolenia na vykonanie systému objekt ID 5210 a systém objekt ID 9015

    objekt.

Poznámka: Nemusíte mať práva ukladá údaje, pokiaľ budete musieť vykonať opravy údajov.

Zmeny kódu

Poznámka: vždy test kód opravy v prostredí kontrolované pred použitím opravy výroby počítače. Pred použitím zmeny, importujte všetky aktualizácie SEPA.

Ak chcete vyriešiť tento problém, postupujte nasledovne:

  1. Zmena kódu v IdentifyCashPayments funkcia v správe urobiť vyhlásenie 347 (10707):
    Nahradenie kód 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);
    ...

    Nahradenie kód 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);
    ...

    Existujúci kód 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;
    ...

    Nahradenie kód 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. Zmena kódu v CreateCashTotals funkcia v správe urobiť vyhlásenie 347 (10707):
    Nahradenie kód 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;
    ...

    Nahradenie kód 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;
    ...

    Existujúci kód 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
    ...

    Nahradenie kód 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
    ...

    Existujúci kód 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
    ...

    Nahradenie kód 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. Zmena kódu v GetPaymentDocumentPostingDate funkcia v správe urobiť vyhlásenie 347 (10707):
    Existujúci kód

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

    Nahradenie kódu

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


Požiadavky

Musíte mať jednu z nasledovných produktov nainštalovaný chcete použiť túto rýchlu opravu:

  • Španielskej verzii systému Microsoft Dynamics NAV 2009 R2

  • Španielskej verzii systému Microsoft Dynamics NAV 2009 SP1

Informácie o odstránení

Nemôžete odstrániť túto rýchlu opravu.

Stav

Spoločnosť Microsoft potvrdila, že ide o problém v produktoch spoločnosti Microsoft, ktoré sú uvedené v časti Vzťahuje sa na.

Odkazy

VSFT DynamicsNAVSE: 317271

Poznámka: To je "Rýchlo publikovať" článok vytvorené priamo v rámci organizácie technickej podpory spoločnosti Microsoft. Uvedené informácie sa poskytuje ako-v reakcii na naliehavé problémy. Rýchlosťou robiť materiály môžu obsahovať typografické chyby a môžu byť kedykoľvek bez predchádzajúceho upozornenia. Prečítajte si Podmienky používaniaz iných dôvodov.

Autor: vagarcia
Writer: v-six
Tech Reviewer: vagarcia
Editor:

Potrebujete ďalšiu pomoc?

Rozšírte svoje zručnosti
Preskúmať školenie
Buďte medzi prvými, ktorí získajú nové funkcie
Pripojiť k Microsoft insiderov chcú

Považujete poskytnuté informácie za užitočné?

Ďakujem za vaše pripomienky!

Ďakujeme vám za pripomienky. Pravdepodobne vám pomôže, ak vás spojíme s pracovníkom podpory pre Office.

×