Разликата е в счетоводната запис не. поле в португалски версия на Microsoft Dynamics NAV 2009

Информация за актуалната корекция

Вече се предлага от Microsoft предоставя поддържана актуална корекция. Обаче е предназначена само за коригиране на описания в тази статия. Прилагайте корекцията само към системи, изпитващи този конкретен проблем. Възможно е провеждането на допълнителни тестове на тази актуална корекция. Следователно ако не сте силно засегнати от този проблем, препоръчваме да изчакате следващия сервизен пакет за Microsoft Dynamics NAV 2009 или следващата версия на Microsoft Dynamics NAV, който ще съдържа тази корекция.

Забележка: При специални случаи таксите, които са за свързани с поддръжката обаждания могат да бъдат отменени, ако специалист по техническа поддръжка за Microsoft Dynamics и свързани с тях продукти определя, че конкретна актуализация може да разреши проблема. Обичайните такси за поддръжката ще важат за допълнителни въпроси и проблеми, които не спадат към съответната актуализация.

Информация за инсталирането

Microsoft предоставя примери само за илюстративни цели без гаранция за определени цели. Това включва, но не е ограничено до, подразбиращи се гаранции за продаваемост или годност за определена цел. Тази статия се предполага, че сте запознати с демонстрирания език за програмиране и инструментите, които се използват за създаване и процедури за отстраняване на грешки. Инженерите на поддръжката на Microsoft могат да помогнат обяснение на функциите на конкретна процедура. Въпреки това те няма да модифицират тези примери с цел осигуряване на допълнителна функционалност или създаване на процедури за удовлетворение на конкретните ви изисквания.

Забележка: Преди да инсталирате тази актуална корекция, уверете се, че всички потребители на клиента на Microsoft Dynamics NAV са излезли от системата. Това включва и услуги на Microsoft Dynamics NAV приложение сървър (NAS). Трябва да бъде само клиент потребител, който е влязъл при прилагане на тази актуална корекция.

За прилагане на тази актуална корекция, трябва да имате лиценз разработчик.

Препоръчително е потребителският акаунт в прозореца влизания в Windows или в прозореца на БД присвояването на "Супер" ИД на роля. Ако потребителският акаунт не може да бъде възложена ИД на роля на "Супер", трябва да проверите, че потребителският акаунт има следните права:

• Разрешение за промяна на обекта, ще се променя.

• Разрешението за изпълнение за системата обект номер 5210 обект и системата обект ID 9015
  
  обект.

Забележка: Не трябва да имате права на съхранените данни, освен ако трябва да извършите възстановяване на данни.

Промени код

Забележка винаги тест код корекции в управлявана среда, преди да приложите корекциите за производство компютри. Преди да приложите промяната, импортирайте всички SEPA актуализации.

За да разрешите този проблем, изпълнете следните стъпки:

1. В PostDtldCustLedgEntries функция в общ журнал. промени-Post линия кодова единица (12) както следва:
   Съществуващ код 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;
   ... 
   

   Замени код 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;
   ... 
   

   Съществуващ код 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;
   ...
   

   Замени код 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;
   ...
   

   Съществуващ код 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;
   ...
   

   Замени код 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;
   ...
   

   Съществуващ код 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;
   ...
   

   Замени код 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;
   ...
   
   

Необходими условия:

Трябва да имате един от следните продукти, за да приложите тази спешна корекция:

• Португалски версия на Microsoft Dynamics NAV 2009 R2

• Португалски версия на Microsoft Dynamics NAV 2009 SP1

Информация за премахване

Не можете да премахнете тази актуална корекция.