Použité množstvo je nesprávny výpočet použiť zákazníkovi alebo použiť položky strany dodávateľov Microsoft Dynamics NAV 2009

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.

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 vo vlastnostiach vo forme vyrovnať položky zákazníka (232) takto:
   Existujúci kód

   ...OnModifyRecord=BEGIN
                        CODEUNIT.RUN(CODEUNIT::"Cust. Entry-Edit",Rec);
                        EXIT(FALSE);
                      END;
   ...
   

   Nahradenie kódu

   ...OnModifyRecord=BEGIN
                        CODEUNIT.RUN(CODEUNIT::"Cust. Entry-Edit",Rec);
                        IF "Applies-to ID" <> xRec."Applies-to ID" THEN
                          CalcApplnAmount;
                        EXIT(FALSE);
                      END;
   ...
   

2. Zmena kódu v HandlChosenEntries funkcia vo formulári vyrovnať položky zákazníka (232):
   Nahradenie kód 1

   ...IF NOT FromZeroGenJnl THEN
             AppliedCustLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
           IF AppliedCustLedgEntryTemp.FINDFIRST THEN BEGIN
             AppliedCustLedgEntryTemp.CALCFIELDS("Remaining Amount");
   
             IF Type = Type::Direct THEN
               CalculateCurrency := ApplyingCustLedgEntry."Entry No." <> 0
             ELSE
               CalculateCurrency := TRUE;
   
   
             IF (CurrencyCode <> AppliedCustLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
               AppliedCustLedgEntryTemp."Remaining Amount" :=
                 GenJnlPostLine.ExchAmount(
                   AppliedCustLedgEntryTemp."Remaining Amount",
                   AppliedCustLedgEntryTemp."Currency Code",
                   CurrencyCode,"Posting Date");
               AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
                 GenJnlPostLine.ExchAmount(
                   AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible",
                   AppliedCustLedgEntryTemp."Currency Code",
                   CurrencyCode,"Posting Date");
               AppliedCustLedgEntryTemp."Amount to Apply" :=
                 GenJnlPostLine.ExchAmount(
                   AppliedCustLedgEntryTemp."Amount to Apply",
                   AppliedCustLedgEntryTemp."Currency Code",
                   CurrencyCode,"Posting Date");
             END;
   
             CASE Type OF
               Type::Direct:
   ...
   

   Nahradenie kód 1

   ...IF NOT FromZeroGenJnl THEN
             AppliedCustLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
           IF AppliedCustLedgEntryTemp.FINDFIRST THEN BEGIN
             ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedCustLedgEntryTemp);
   
             CASE Type OF
               Type::Direct:
   ...
   

   Existujúci kód 2

   ...END ELSE BEGIN
             AppliedCustLedgEntryTemp.SETRANGE(Positive);
             AppliedCustLedgEntryTemp.FINDFIRST;
           END;
   
           IF (OldPmtDisc <> PmtDiscAmount) THEN
   ...
   

   Nahradenie kód 2

   ...END ELSE BEGIN
             AppliedCustLedgEntryTemp.SETRANGE(Positive);
             AppliedCustLedgEntryTemp.FINDFIRST;
             ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedCustLedgEntryTemp);
           END;
   
           IF (OldPmtDisc <> PmtDiscAmount) THEN
   ...
   

3. Zmena kódu v ExchangeAmountsOnLedgerEntry funkcia vo formulári vyrovnať položky zákazníka (232):
   Existujúci kód

   ...CheckRounding;
       END;
   
       BEGIN
       END.
     }
   ...
   

   Nahradenie kódu

   ...CheckRounding;
       END;
   
       LOCAL PROCEDURE ExchangeAmountsOnLedgerEntry@20(Type@1003 : 'Direct,GenJnlLine,SalesHeader';CurrencyCode@1000 : Code[10];VAR AppliedCustLedgEntryTemp@1001 : Record 21);
       VAR
         CalculateCurrency@1002 : Boolean;
       BEGIN
         AppliedCustLedgEntryTemp.CALCFIELDS("Remaining Amount");
   
         IF Type = Type::Direct THEN
           CalculateCurrency := ApplyingCustLedgEntry."Entry No." <> 0
         ELSE
           CalculateCurrency := TRUE;
   
         IF (CurrencyCode <> AppliedCustLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
           AppliedCustLedgEntryTemp."Remaining Amount" :=
             GenJnlPostLine.ExchAmount(
               AppliedCustLedgEntryTemp."Remaining Amount",
               AppliedCustLedgEntryTemp."Currency Code",
               CurrencyCode,"Posting Date");
           AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
             GenJnlPostLine.ExchAmount(
               AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible",
               AppliedCustLedgEntryTemp."Currency Code",
               CurrencyCode,"Posting Date");
           AppliedCustLedgEntryTemp."Amount to Apply" :=
             GenJnlPostLine.ExchAmount(
               AppliedCustLedgEntryTemp."Amount to Apply",
               AppliedCustLedgEntryTemp."Currency Code",
               CurrencyCode,"Posting Date");
         END;
       END;
   
       BEGIN
       END.
     }
   ...
   

4. Zmeniť kód vo formulári vyrovnať položky dodávateľa (233):
   Existujúci kód

   ...OnModifyRecord=BEGIN
                        CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",Rec);
                        EXIT(FALSE);
                      END;
   ...
   

   Nahradenie kódu

   ...OnModifyRecord=BEGIN
                        CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",Rec);
                        IF "Applies-to ID" <> xRec."Applies-to ID" THEN
                          CalcApplnAmount;
                        EXIT(FALSE);
                      END;
   ...
   

5. Zmena kódu v HandlChosenEntries funkcia vo formulári vyrovnať položky dodávateľa (233):
   Nahradenie kód 1

   ...IF NOT FromZeroGenJnl THEN
             AppliedVendLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
           IF AppliedVendLedgEntryTemp.FINDFIRST THEN BEGIN
             AppliedVendLedgEntryTemp.CALCFIELDS("Remaining Amount");
   
             IF Type = Type::Direct THEN
               CalculateCurrency := ApplyingVendLedgEntry."Entry No." <> 0
             ELSE
               CalculateCurrency := TRUE;
   
   
             IF (CurrencyCode <> AppliedVendLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
               AppliedVendLedgEntryTemp."Remaining Amount" :=
                 GenJnlPostLine.ExchAmount(
                   AppliedVendLedgEntryTemp."Remaining Amount",
                   AppliedVendLedgEntryTemp."Currency Code",
                   CurrencyCode,"Posting Date");
               AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
                 GenJnlPostLine.ExchAmount(
                   AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible",
                   AppliedVendLedgEntryTemp."Currency Code",
                   CurrencyCode,"Posting Date");
               AppliedVendLedgEntryTemp."Amount to Apply" :=
                 GenJnlPostLine.ExchAmount(
                   AppliedVendLedgEntryTemp."Amount to Apply",
                   AppliedVendLedgEntryTemp."Currency Code",
                   CurrencyCode,"Posting Date");
             END;
   
             CASE Type OF
               Type::Direct:
   ...
   

   Nahradenie kód 1

   ...IF NOT FromZeroGenJnl THEN
             AppliedVendLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
           IF AppliedVendLedgEntryTemp.FINDFIRST THEN BEGIN
             ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedVendLedgEntryTemp);
   
             CASE Type OF
               Type::Direct:
   ...
   

   Existujúci kód 2

   ...END ELSE BEGIN
             AppliedVendLedgEntryTemp.SETRANGE(Positive);
             AppliedVendLedgEntryTemp.FINDFIRST;
           END;
   
           IF (OldPmtdisc <> PmtDiscAmount) THEN
   ...
   

   Nahradenie kód 2

   ...END ELSE BEGIN
             AppliedVendLedgEntryTemp.SETRANGE(Positive);
             AppliedVendLedgEntryTemp.FINDFIRST;
             ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedVendLedgEntryTemp);
           END;
   
           IF (OldPmtdisc <> PmtDiscAmount) THEN
   ...
   

6. Zmena kódu v ExchangeAmountsOnLedgerEntry funkcia vo formulári vyrovnať položky dodávateľa (233):
   Existujúci kód

   ...AppliesToID := AppliesToID2;
       END;
   
       BEGIN
       END.
     }
   ...
   

   Nahradenie kódu

   ...AppliesToID := AppliesToID2;
       END;
   
       PROCEDURE ExchangeAmountsOnLedgerEntry@14(Type@1000 : 'Direct,GenJnlLine,PurchHeader';CurrencyCode@1001 : Code[10];VAR AppliedVendLedgEntryTemp@1002 : Record 25);
       VAR
         CalculateCurrency@1003 : Boolean;
       BEGIN
         AppliedVendLedgEntryTemp.CALCFIELDS("Remaining Amount");
   
         IF Type = Type::Direct THEN
           CalculateCurrency := ApplyingVendLedgEntry."Entry No." <> 0
         ELSE
           CalculateCurrency := TRUE;
   
         IF (CurrencyCode <> AppliedVendLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
           AppliedVendLedgEntryTemp."Remaining Amount" :=
             GenJnlPostLine.ExchAmount(
               AppliedVendLedgEntryTemp."Remaining Amount",
               AppliedVendLedgEntryTemp."Currency Code",
               CurrencyCode,"Posting Date");
           AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
             GenJnlPostLine.ExchAmount(
               AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible",
               AppliedVendLedgEntryTemp."Currency Code",
               CurrencyCode,"Posting Date");
           AppliedVendLedgEntryTemp."Amount to Apply" :=
             GenJnlPostLine.ExchAmount(
               AppliedVendLedgEntryTemp."Amount to Apply",
               AppliedVendLedgEntryTemp."Currency Code",
               CurrencyCode,"Posting Date");
         END;
       END;
   
       BEGIN
       END.
     }
   ...
   

Požiadavky

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

• Microsoft Dynamics NAV 2009 R2

• Microsoft Dynamics NAV 2009 SP1

Informácie o odstránení

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