Šablonas: CPR - Navision kodas Fiacx šablonas

BUG #: 217323 (turinio priežiūra)

Požymiai

Po to, kai juos pašalinti KB3001759 ir KB3036811 Microsoft Dynamics NAV 2009, DK įrašai gali būti netaikomi. Vis dėlto yra neteisingas DK įrašas - PVM įrašo nuorodos paskelbtas programos. Atlikite veiksmus, kodo pasikeitimus skyriuje išspręsti šią problemą. Ši problema iškyla faile šiems produktams:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 SP1

Sprendimas

Karštųjų pataisų informacija

Palaikomą naujausią pataisą dabar yra Microsoft. Tačiau jos skirtos tik šiame straipsnyje aprašytai problemai spręsti. Taikyti ją tik sistemoms, kuriose kyla ši konkreti problema. Šios karštosios pataisos gali būti papildomai išbandoma. Todėl, jei jums nelabai trukdo Ši problema, rekomenduojame palaukti kito "Microsoft Dynamics NAV 2009" pakeitimų paketo arba kitą versiją Microsoft Dynamics NAV, kuriame bus šios karštosios pataisos.

Pastaba. Konkrečiais atvejais už palaikymo skambučius gali būti atšaukti, jei techninės pagalbos specialistas Microsoft Dynamics ir susijusių produktų taikomi įprasti mokesčiai nustato, kad jūsų problemą galima išspręsti naudojant konkretų naujinimą. Į įprastos kainos už palaikymą taikomos papildomos palaikymo klausimams ir problemoms, kurių negalima išspręsti naudojant minėtą naujinimą.

Jei šios karštosios pataisos nepaskelbtos kaip viešai prieinamos (tai reiškia, viešasis URL šios karštosios pataisos yra suteikta šiame straipsnyje), norint platinti reikia techninio vadovo, problemų sprendimo komandos nario ar vadovo patvirtinimo ir taikoma toliau pateikta informacija:

  • Norėdami gauti karštąją pataisą, klientai turi patirti klaidų, paminėtam skyriuje "Požymiai".

  • Turite stebėti klientus, kuriems siunčiate karštąsias pataisas ir pateikti jiems kitą pakeitimų paketą, kai tik jis bus išleistas (jei pakeitimų paketas bus išleistas).

Šias karštąsias pataisas planuojama įtraukti į Microsoft Dynamics NAV 2013.

Diegimo informacija

Microsoft pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami konkrečios procedūros funkcines galimybes. Tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras.

Pastaba. Prieš diegdami šias karštąsias pataisas, patikrinkite, kad visi Microsoft Dynamics NAV kliento vartotojai išsiregistravę sistema. Tai apima Microsoft Dynamics NAV programų serverio (NAS) paslaugas. Jums turėtų būti tik kliento vartotojo, kuris yra prisijungęs, kai atliekate šias karštąsias pataisas.

Norint pritaikyti šią karštąją pataisą, turite programų kūrėjo licencijos.

Rekomenduojame, kad vartotojo abonemento Windows registravimosi lange arba duomenų bazės prisijungimų langas priskirti "SUPER" vaidmenį ID. Jei vartotojo abonementas negali būti priskirta "SUPER" ID., turi patikrinti, kad vartotojo abonementas turi šias teises:

  • Keisti teisės objektas, kuris bus pakeisti.

  • Teisės vykdyti sistemos objekto ID 5210 objekto ir sistemos objekto ID 9015

    objekto.

Pastaba. Jūs neturite turėti teisių į duomenų parduotuvių, nebent jūs turite atlikti duomenų atkūrimo.

Pastaba.

Pastaba. Visada bandymas kodas nustato kontroliuojamoje aplinkoje prieš taikydami nustato savo gamybos kompiuteriams.

Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:

  1. Pakeisti UnapplyCustLedgEntry funkcija, kad bendr.-pašto linijos Kodinys (12), išvardyti toliau:
    Esamas kodas 1

    ...    NegativeLCYAppAmt@1021 : Decimal;
    PositiveACYAppAmt@1020 : Decimal;
    NegativeACYAppAmt@1019 : Decimal;

    // Delete the following lines.
    VatBaseSum@1008 : ARRAY [2] OF Decimal;
    EntryNoBegin@1025 : ARRAY [2] OF Integer;
    // End of the deleted lines.

    i@1027 : Integer;
    TempVatEntryNo@1028 : Integer;
    BEGIN
    ...

    Atsarginis kodas 1

    ...  NegativeLCYAppAmt@1021 : Decimal;
    PositiveACYAppAmt@1020 : Decimal;
    NegativeACYAppAmt@1019 : Decimal;

    // Add the following lines.
    VatBaseSum@1008 : ARRAY [3] OF Decimal;
    EntryNoBegin@1025 : ARRAY [3] OF Integer;
    // End of the added lines.

    i@1027 : Integer;
    TempVatEntryNo@1028 : Integer;
    BEGIN
    ...

    Esamas kodas 2

    ... VATEntry2."Entry No." := NextVATEntryNo;
    NextVATEntryNo := NextVATEntryNo + 1;
    VATEntry2.INSERT;
    TempVatEntry.DELETE;
    END;
    IF (VATPostingSetup."Adjust for Payment Discount") AND
    ...

    Atsarginis kodas 2

    ...VATEntry2."Entry No." := NextVATEntryNo;
    NextVATEntryNo := NextVATEntryNo + 1;
    VATEntry2.INSERT;

    // Add the following lines.
    IF VATEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
    GLEntryTmp."Entry No." := NextEntryNo;
    GLEntryVatEntrylink.InsertLink(GLEntryTmp,VATEntry2);
    END;
    // End of the added lines.

    TempVatEntry.DELETE;
    END;
    IF (VATPostingSetup."Adjust for Payment Discount") AND
    ...

    Esamas kodas 3

    ... IF TempVatEntry.FINDSET THEN BEGIN
    REPEAT
    CASE TRUE OF
    VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
    i := 3;
    VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
    ...

    Pakeitimo kodas 3

    ...IF TempVatEntry.FINDSET THEN BEGIN
    REPEAT
    CASE TRUE OF

    // Add the followoing lines.
    VATBaseSum[3] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
    i := 4;
    // End of the added lines.

    VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
    i := 3;
    VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
    ...

    Esamas kodas 4

    ...END;
    TempVatEntry := VATEntrySaved;
    UNTIL TempVatEntry.NEXT = 0;

    // Delete the following line.
    FOR i := 1 TO 2 DO BEGIN
    // End of the deleted line.

    VatBaseSum[i] := 0;
    EntryNoBegin[i] := 0;
    END;
    ...

    Pakeitimo kodekso 4

    ...END;
    TempVatEntry := VATEntrySaved;
    UNTIL TempVatEntry.NEXT = 0;

    // Add the following line.
    FOR i := 1 TO 3 DO BEGIN
    // End of the added line.

    VatBaseSum[i] := 0;
    EntryNoBegin[i] := 0;
    END;
    ...

    Esamas kodas 5

    ...END;
    TempVatEntry.SETRANGE("Entry No.",0,999999);
    END ELSE BEGIN
    VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
    VatBaseSum[1] := TempVatEntry.Base;
    EntryNoBegin[2] := EntryNoBegin[1];
    EntryNoBegin[1] := TempVatEntry."Entry No.";
    END;
    ...

    Pakeitimo kodas 5

    ...END;
    TempVatEntry.SETRANGE("Entry No.",0,999999);
    END ELSE BEGIN

    // Add the following line.
    VatBaseSum[3] += TempVATEntry.Base;
    // End of the added line.

    VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
    VatBaseSum[1] := TempVatEntry.Base;

    // Add the folloiwng lines.
    IF EntryNoBegin[3] > 0 THEN
    EntryNoBegin[3] := TempVatEntry."Entry No.";
    // End of the added lines.

    EntryNoBegin[2] := EntryNoBegin[1];
    EntryNoBegin[1] := TempVatEntry."Entry No.";
    END;
    ...
  2. Pakeisti UnapplyVendLedgEntry funkcija, kad bendr.-pašto linijos Kodinys (12), išvardyti toliau:
    Esamas kodas 1

    ...    NegativeLCYAppAmt@1021 : Decimal;
    PositiveACYAppAmt@1020 : Decimal;
    NegativeACYAppAmt@1019 : Decimal;

    // Delete the following lines.
    VatBaseSum@1029 : ARRAY [2] OF Decimal;
    EntryNoBegin@1028 : ARRAY [2] OF Integer;
    // End of the deleted lines.

    i@1027 : Integer;
    TempVatEntryNo@1025 : Integer;
    BEGIN
    ...

    Atsarginis kodas 1

    ...    NegativeLCYAppAmt@1021 : Decimal;
    PositiveACYAppAmt@1020 : Decimal;
    NegativeACYAppAmt@1019 : Decimal;
    V
    // Add the following lines.
    atBaseSum@1029 : ARRAY [3] OF Decimal;
    EntryNoBegin@1028 : ARRAY [3] OF Integer;
    // End of the added lines.

    i@1027 : Integer;
    TempVatEntryNo@1025 : Integer;
    BEGIN
    ...

    Esamas kodas 2

    ...VatEntry2."Entry No." := NextVATEntryNo;
    NextVATEntryNo := NextVATEntryNo + 1;
    VatEntry2.INSERT;
    TempVatEntry.DELETE;
    END;
    IF (VATPostingSetup."Adjust for Payment Discount") AND
    ...

    Atsarginis kodas 2

    ...VatEntry2."Entry No." := NextVATEntryNo;
    NextVATEntryNo := NextVATEntryNo + 1;
    VatEntry2.INSERT;

    // Add the following lines.
    IF VatEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
    GLEntryTmp."Entry No." := NextEntryNo;
    GLEntryVatEntrylink.InsertLink(GLEntryTmp,VatEntry2);
    END;
    // End of the added lines.

    TempVatEntry.DELETE;
    END;
    IF (VATPostingSetup."Adjust for Payment Discount") AND
    ...

    Esamas kodas 3

    ...  IF TempVatEntry.FINDSET THEN BEGIN
    REPEAT
    CASE TRUE OF
    VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
    i := 3;
    VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
    ...

    Pakeitimo kodas 3

    ...IF TempVatEntry.FINDSET THEN BEGIN
    REPEAT
    CASE TRUE OF

    // Add the following lines.
    VATBaseSum[3] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
    i := 4;
    // End of the added lines.

    VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
    i := 3;
    VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
    ...

    Esamas kodas 4

    ...END;
    TempVatEntry.SETRANGE("Entry No.",0,999999);
    END ELSE BEGIN
    VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
    VatBaseSum[1] := TempVatEntry.Base;
    EntryNoBegin[2] := EntryNoBegin[1];
    EntryNoBegin[1] := TempVatEntry."Entry No.";
    END;
    ...

    Pakeitimo kodekso 4

    ... END;
    TempVatEntry.SETRANGE("Entry No.",0,999999);
    END ELSE BEGIN

    // Add the following line.
    VatBaseSum[3] += TempVATEntry.Base;
    // End of the added line.

    VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
    VatBaseSum[1] := TempVatEntry.Base;

    // Add the following lines.
    IF EntryNoBegin[3] > 0 THEN
    EntryNoBegin[3] := TempVatEntry."Entry No.";
    // End of the added lines.

    EntryNoBegin[2] := EntryNoBegin[1];
    EntryNoBegin[1] := TempVatEntry."Entry No.";
    END;
    ...
  3. Pakeisti InsertVatEntriesFromTemp funkcija, kad bendr.-pašto linijos Kodinys (12), išvardyti toliau:
    Esamas kodas

    ... DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
    TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
    END;

    // Delete the following line.
    TempVatEntry.FINDSET;
    // End of the deleted line.

    REPEAT
    VATEntry := TempVatEntry;
    VATEntry."Entry No." := NextVATEntryNo;
    VATEntry.INSERT;
    NextVATEntryNo := NextVATEntryNo + 1;
    IF VATEntry."Unrealized VAT Entry No." = 0 THEN
    GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
    TempVatEntry.DELETE;
    LinkedAmount := LinkedAmount + VATEntry.Base;
    Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
    UNTIL Complete OR (TempVatEntry.NEXT = 0);
    END;

    LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
    ...

    Pastaba.

    ...DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
    TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
    END;

    // Add the following line.
    IF TempVatEntry.FINDSET THEN
    // End of the added line.

    REPEAT
    VATEntry := TempVatEntry;
    VATEntry."Entry No." := NextVATEntryNo;
    VATEntry.INSERT;
    NextVATEntryNo := NextVATEntryNo + 1;
    IF VATEntry."Unrealized VAT Entry No." = 0 THEN
    GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
    TempVatEntry.DELETE;
    LinkedAmount := LinkedAmount + VATEntry.Base;
    Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
    UNTIL Complete OR (TempVatEntry.NEXT = 0);
    END;

    LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
    ...


Būtinosios sąlygos

Turi būti viena iš toliau nurodytų produktų, norint taikyti šias karštąsias pataisas:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 SP1

Be to, turi būti KB3001759 ir KB3036811 įdiegtas.

Pašalinimo informacija

Jūs negalite pašalinti šias karštąsias pataisas.

Būsena

„Microsoft“ patvirtino, kad tai yra „Microsoft“ produktų, išvardytų skyriuje „Taikoma“, problema.

Nuorodos

VSFT DynamicsNAVSE: 360026

Pastaba. Tai yra "GREITAI PUBLIKUOJAMAS" straipsnis, sukurtas tiesiogiai Microsoft palaikymo tarnybos. Čia pateikta informacija yra atsakas į kylančius klausimus. Dėl greito publikavimo medžiagoje gali būti spausdinimo klaidų ir ji gali būti peržiūrima bet kuriuo metu be įspėjimo. Naudojimoieškokite kitų priežasčių.

Author: Vanessa.Garcia
Writer: v-luzo
Techninis redaktorius: Vanessa.Garcia
Editor:

Reikia daugiau pagalbos?

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijungti prie "Microsoft Insider"

Ar ši informacija buvo naudinga?

Ar esate patenkinti vertimo kokybe?
Kas turėjo įtakos jūsų patirčiai?

Dėkojame už jūsų atsiliepimus!

×