Taikyti klientų įrašų forma ir taikyti tiekėjų įrašų formoje rodomi neteisingai reikšmes balanso ir mokėjimo nuokrypio diską. Microsoft Dynamics NAV 2009 lauke suma

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

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 HandlChosenEntries funkcija, theApply klientų įrašų formą (232):
   Esamas kodas 1

   ...CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                     AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END ELSE IF (ABS(CurrentAmount) = ABS(AppliedCustLedgEntryTemp."Remaining Amount" -
                   AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible"))
                 THEN BEGIN
   
   // Delete the following lines.
                  PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" + PossiblePmtDisc;
                  CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                    AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" - PossiblePmtDisc;
                  PossiblePmtDisc := 0;
   // End of the deleted lines.
   
                   AppliedAmount := AppliedAmount + CorrectionAmount;
                 END ELSE IF (FromZeroGenJnl) THEN BEGIN
                   PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                   CurrentAmount := CurrentAmount +
                     AppliedCustLedgEntryTemp."Remaining Amount" - AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
   ...
   

   Atsarginis kodas 1

   ...CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                     AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END ELSE IF (ABS(CurrentAmount) = ABS(AppliedCustLedgEntryTemp."Remaining Amount" -
                   AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible"))
                 THEN BEGIN
   
   // Add the following lines.
                  PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                  CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                    AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
   // End of the added lines.
   
                   AppliedAmount := AppliedAmount + CorrectionAmount;
                 END ELSE IF (FromZeroGenJnl) THEN BEGIN
                   PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                   CurrentAmount := CurrentAmount +
                     AppliedCustLedgEntryTemp."Remaining Amount" - AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
   ...
   

   Esamas kodas 2

   ...END;
                   CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                     AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END;
               END ELSE BEGIN
   
   // Delete the following lines.
                PossiblePmtDisc := AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                IF (((CurrentAmount - PossiblePmtDisc + AppliedCustLedgEntryTemp."Amount to Apply") * CurrentAmount) <= 0) THEN BEGIN
                  PmtDiscAmount := PmtDiscAmount + PossiblePmtDisc;
                  CurrentAmount := CurrentAmount - PossiblePmtDisc;
                  PossiblePmtDisc := 0;
                  AppliedAmount := AppliedAmount + CorrectionAmount;
                END;
   // End of the deleted lines.
   
                 CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply";
               END;
             END ELSE BEGIN
               AppliedCustLedgEntryTemp.SETRANGE(Positive);
               AppliedCustLedgEntryTemp.FINDFIRST;
   ...
   

   Atsarginis kodas 2

   ...END;
                   CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                     AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END;
               END ELSE BEGIN
   
   // Add the following lines.
                IF (((CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply") * CurrentAmount) <= 0) THEN
                  AppliedAmount := AppliedAmount + CorrectionAmount;
   // End of the added lines.
   
                 CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply";
               END;
             END ELSE BEGIN
               AppliedCustLedgEntryTemp.SETRANGE(Positive);
               AppliedCustLedgEntryTemp.FINDFIRST;
   ...
   

2. Pakeisti HandlChosenEntries funkcija, t. y. taikyti tiekėjo įrašus (233):
   Esamas kodas 1

   ...CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                     AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END ELSE IF (ABS(CurrentAmount) = ABS(AppliedVendLedgEntryTemp."Remaining Amount" -
                   AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible"))
                 THEN BEGIN
   
   // Delete the following lines.
                  PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" + PossiblePmtdisc;
                  CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                    AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" - PossiblePmtdisc;
                  PossiblePmtdisc := 0;
   // End of the deleted lines.
   
                   AppliedAmount := AppliedAmount + CorrectionAmount;
                 END ELSE IF FromZeroGenJnl THEN BEGIN
                   PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                   CurrentAmount := CurrentAmount +
                     AppliedVendLedgEntryTemp."Remaining Amount" - AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
   ...
   

   Atsarginis kodas 1

   ...CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                     AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END ELSE IF (ABS(CurrentAmount) = ABS(AppliedVendLedgEntryTemp."Remaining Amount" -
                   AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible"))
                 THEN BEGIN
   
   // Add the following lines.
                  PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                  CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                    AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
   // End of the added lines.
   
                   AppliedAmount := AppliedAmount + CorrectionAmount;
                 END ELSE IF FromZeroGenJnl THEN BEGIN
                   PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                   CurrentAmount := CurrentAmount +
                     AppliedVendLedgEntryTemp."Remaining Amount" - AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
   ...
   

   Esamas kodas 2

   ...END;
                   CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                     AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END;
               END ELSE BEGIN
   
   // Delete the following lines.
                PossiblePmtdisc := AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                IF (((CurrentAmount - PossiblePmtdisc + AppliedVendLedgEntryTemp."Amount to Apply") * CurrentAmount) >= 0) THEN BEGIN
                  PmtDiscAmount := PmtDiscAmount + PossiblePmtdisc;
                  CurrentAmount := CurrentAmount - PossiblePmtdisc;
                  PossiblePmtdisc := 0;
                  AppliedAmount := AppliedAmount + CorrectionAmount;
                END;
   // End of the deleted lines.
   
                 CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Amount to Apply";
               END;
             END ELSE BEGIN
               AppliedVendLedgEntryTemp.SETRANGE(Positive);
               AppliedVendLedgEntryTemp.FINDFIRST;
   ...
   

   Atsarginis kodas 2

   ...END;
                   CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                     AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END;
               END ELSE BEGIN
   
   // Add the following lines.
                IF (((CurrentAmount + AppliedVendLedgEntryTemp."Amount to Apply") * CurrentAmount) >= 0) THEN
                  AppliedAmount := AppliedAmount + CorrectionAmount;
   // End of the added lines.
   
                 CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Amount to Apply";
               END;
             END ELSE BEGIN
               AppliedVendLedgEntryTemp.SETRANGE(Positive);
               AppliedVendLedgEntryTemp.FINDFIRST;
   ...
   

Būtinosios sąlygos

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

• Microsoft Dynamics NAV 2009 1 pakeitimų paketas

• Microsoft Dynamics NAV 2009 R2

Pašalinimo informacija

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