Rozdiel je číslo položky v portugalčine verzii systému 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 v PostDtldCustLedgEntries funkcia v Gen. denníkov.-Post riadok procedúra (12) takto:
   Nahradenie kód 1
   

   ...SavedEntryUsed@1023 : Boolean;
           ReceivableAccAmtLCY@1110107 : Decimal;
           ReceivableAccAmtAddCurr@1110108 : Decimal;
           DtldCustLedgEntry2@1110109 : TEMPORARY Record 379;
           ExistDtldCVLedgEntryBuf@1110110 : Boolean;
         BEGIN
           TotalAmountLCY := 0;
           TotalAmountAddCurr := 0;
           PositiveLCYAppAmt := 0;
           PositiveACYAppAmt := 0;
   ... 
   

   Nahradenie kód 1
   

   ...SavedEntryUsed@1023 : Boolean;
           ReceivableAccAmtLCY@1110107 : Decimal;
           ReceivableAccAmtAddCurr@1110108 : Decimal;
           DtldCustLedgEntry2@1110109 : TEMPORARY Record 379;
           ExistDtldCVLedgEntryBuf@1110110 : Boolean;
   
   // Add the following line.
   FindBill@1100004 : Boolean;
   // End of the added line.
   
         BEGIN
           TotalAmountLCY := 0;
           TotalAmountAddCurr := 0;
           PositiveLCYAppAmt := 0;
           PositiveACYAppAmt := 0;
   ... 
   

   Existujúci kód 2
   

   ...IF DtldCustLedgEntry.FINDLAST THEN
               DtldCustLedgEntryNoOffset := DtldCustLedgEntry."Entry No."
             ELSE
               DtldCustLedgEntryNoOffset := 0;
             DtldCVLedgEntryBuf.RESET;
   
   // Delete the following lines.
   IF DtldCVLedgEntryBuf.FINDSET THEN BEGIN
   SaveEntryNo := NextEntryNo;
   NextEntryNo := NextEntryNo + 1;
   NextEntryNo2 := NextEntryNo;
   // End of the deleted lines.
   
               REPEAT
                 IF DtldCVLedgEntryBuf."Posting Date" <> GenJnlLine."Posting Date" THEN BEGIN
                   OriginalPostingDate := GenJnlLine."Posting Date";
                   GenJnlLine."Posting Date" := DtldCVLedgEntryBuf."Posting Date";
                   OriginalDateSet := TRUE;
   ...
   

   Nahradenie kód 2
   

   ...IF DtldCustLedgEntry.FINDLAST THEN
               DtldCustLedgEntryNoOffset := DtldCustLedgEntry."Entry No."
             ELSE
               DtldCustLedgEntryNoOffset := 0;
             DtldCVLedgEntryBuf.RESET;
   
   // Add the following lines.
   DtldCVLedgEntryBuf.SETRANGE("Initial Document Type",DtldCVLedgEntryBuf."Initial Document Type"::Bill);
   IF NOT DtldCVLedgEntryBuf.ISEMPTY THEN
   FindBill := TRUE;
   DtldCVLedgEntryBuf.RESET;
   IF DtldCVLedgEntryBuf.FINDSET THEN BEGIN
   IF CustLedgEntryInserted OR FindBill THEN BEGIN
   SaveEntryNo := NextEntryNo;
   NextEntryNo := NextEntryNo + 1;
   NextEntryNo2 := NextEntryNo;
   END;
   // End of the added lines.
   
               REPEAT
                 IF DtldCVLedgEntryBuf."Posting Date" <> GenJnlLine."Posting Date" THEN BEGIN
                   OriginalPostingDate := GenJnlLine."Posting Date";
                   GenJnlLine."Posting Date" := DtldCVLedgEntryBuf."Posting Date";
                   OriginalDateSet := TRUE;
   ...
   

   Existujúci kód 3
   

   ...SavedEntryUsed@1031 : Boolean;
           PayableAccAmtLCY@1110120 : Decimal;
           PayableAccAmtAddCurr@1110121 : Decimal;
           DtldVendLedgEntry2@1110122 : Record 380;
           ExistDtldCVLedgEntryBuf@1110123 : Boolean;
         BEGIN
           TotalAmountLCY := 0;
           TotalAmountAddCurr := 0;
           PositiveLCYAppAmt := 0;
           PositiveACYAppAmt := 0;
   ...
   

   Nahradenie kód 3
   

   ...SavedEntryUsed@1031 : Boolean;
           PayableAccAmtLCY@1110120 : Decimal;
           PayableAccAmtAddCurr@1110121 : Decimal;
           DtldVendLedgEntry2@1110122 : Record 380;
           ExistDtldCVLedgEntryBuf@1110123 : Boolean;
   
   // Add the following line.
   FindBill@1100005 : Boolean;
   // End of the added line.
   
         BEGIN
           TotalAmountLCY := 0;
           TotalAmountAddCurr := 0;
           PositiveLCYAppAmt := 0;
           PositiveACYAppAmt := 0;
   ...
   

   Existujúci kód 4
   

   ... IF GenJnlLine2."Account Type" = GenJnlLine2."Account Type"::Vendor THEN BEGIN
             IF DtldVendLedgEntry.FINDLAST THEN
               DtldVendLedgEntryNoOffset := DtldVendLedgEntry."Entry No."
             ELSE
               DtldVendLedgEntryNoOffset := 0;
   
   // Delete the following lines.
   
   DtldCVLedgEntryBuf.RESET;
   IF DtldCVLedgEntryBuf.FINDSET THEN BEGIN
   SaveEntryNo := NextEntryNo;
   NextEntryNo := NextEntryNo + 1;
   NextEntryNo2 := NextEntryNo;
   // End of the deleted lines.
   
               REPEAT
                 IF DtldCVLedgEntryBuf."Posting Date" <> GenJnlLine."Posting Date" THEN BEGIN
                   OriginalPostingDate := GenJnlLine."Posting Date";
                   GenJnlLine."Posting Date" := DtldCVLedgEntryBuf."Posting Date";
                   OriginalDateSet := TRUE;
   ...
   

   Nahradenie kód 4
   

   ...IF GenJnlLine2."Account Type" = GenJnlLine2."Account Type"::Vendor THEN BEGIN
             IF DtldVendLedgEntry.FINDLAST THEN
               DtldVendLedgEntryNoOffset := DtldVendLedgEntry."Entry No."
             ELSE
               DtldVendLedgEntryNoOffset := 0;
   
   // Add the following lines.
   DtldCVLedgEntryBuf.RESET;
   DtldCVLedgEntryBuf.SETRANGE("Initial Document Type",DtldCVLedgEntryBuf."Initial Document Type"::Bill);
   IF NOT DtldCVLedgEntryBuf.ISEMPTY THEN
   FindBill := TRUE;
   
   DtldCVLedgEntryBuf.RESET;
   IF DtldCVLedgEntryBuf.FINDSET THEN BEGIN
   IF VendLedgEntryInserted OR FindBill THEN BEGIN
   SaveEntryNo := NextEntryNo;
   NextEntryNo := NextEntryNo + 1;
   NextEntryNo2 := NextEntryNo;
   END;
   // End of the added lines.
   
               REPEAT
                 IF DtldCVLedgEntryBuf."Posting Date" <> GenJnlLine."Posting Date" THEN BEGIN
                   OriginalPostingDate := GenJnlLine."Posting Date";
                   GenJnlLine."Posting Date" := DtldCVLedgEntryBuf."Posting Date";
                   OriginalDateSet := TRUE;
   ...
   
   

Požiadavky

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

• Portugalská verzia Microsoft Dynamics NAV 2009 R2

• Portugalská verzia Microsoft Dynamics NAV 2009 SP1

Informácie o odstránení

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