Hindistan Microsoft Dynamics NAV 2009 SP1 sürümünde bir satınalma iade faturası deftere naklettikten sonra kalan miktar RG 23 D girişi yanlıştır

Düzeltme bilgileri

Artık Microsoft tarafından desteklenen bir düzeltme sağlanmaktadır. Ancak bunun yalnızca bu makalede anlatılan sorunu düzeltmesi amaçlanmıştır. Yalnızca bu özel sorunla karşılaşmış olan sistemlere uygulayın. Bu düzeltme ek sınama uygulanabilir. Bu nedenle, bu sorundan ciddi bir şekilde etkilenmiyorsanız, Microsoft Dynamics NAV 2009 sonraki hizmet paketini veya, bu düzeltmeyi içeren bir sonraki Microsoft Dynamics NAV sürümü için beklemek öneririz.

Not: Özel durumlarda, destek aramaları teknik destek uzmanı Microsoft Dynamics ve ilgili ürünlere yönelik iptal edilebilir çözeceğini giderleri belirleyen belirli bir güncelleştirmenin sorununuzu. Ek destek sorularına ve söz konusu güncelleştirme için geçerli olmayan sorunlara normal destek ücretleri uygulanır.

Kod değişiklikleri

Not: Her zaman, uygulamadan önce test kodu denetimli bir ortamda üretim bilgisayarlarınıza düzeltmeler giderir.
Bu sorunu gidermek için şu adımları izleyin:

1. Aşağıdaki genel değişkeni Satış Satırtablosundaki (37) ekleyin:

   • Adı: ExecuteExcise

   • Veri türü: Boolean

2. CalculateStructuresişlevi Satış satırıtablosundaki (37) aşağıdaki değişkeni ekleyin:

   • Adı: DetailRG23D

   • Veri türü: Kayıt; 16533

   
   Kodu aşağıdaki gibi değiştirin:

   ...                       END;
                         UNTIL StrOrderDetails.NEXT = 0;
                     END;
                     SalesLine.MODIFY;
                 UNTIL SalesLine.NEXT = 0;
   
   // Add the following l ines.
                IF NOT ExecuteExcise THEN BEGIN 
                  DetailRG23D.RESET; 
                  DetailRG23D.SETRANGE("Document Type","Document Type"); 
                  DetailRG23D.SETRANGE("Order No.","No."); 
                  DetailRG23D.SETRANGE("Document No.",''); 
                  DetailRG23D.DELETEALL; 
                END; 
   // End of the added lines.
   ...
   

3. CheckAvailableQtyForReturnişlevi Satış satırıtablosundaki (37) aşağıdaki değişkeni ekleyin:

   • Adı: RG23D2

   • Veri türü: Kayıt; 16537

   
   Kodu aşağıdaki gibi değiştirin:

   ...           IF RG23D.FINDSET THEN
             REPEAT
   // Delete the following line.
                  QtyAllocated += ABS(RG23D.Quantity); 
   // End of the deleted line.
   
   // Add the following lines.
              RG23D2.GET(RG23D."Ref. Entry No."); 
              RG23D2.CALCFIELDS("Remaining Quantity"); 
              QtyAllocated += ABS(RG23D2.Quantity - RG23D2."Remaining Quantity");
   // End of the added lines.
   
             UNTIL RG23D.NEXT = 0;
   ...
   

4. SetExecuteExciseişlevi Satış satırıtablosundaki (37) oluşturun. Daha sonra aşağıdaki parametreyi ekleyin:

   • Adı: ExecuteExcise2

   • Veri türü: Boolean
     

   
   Aşağıdaki kodu ekleyin:

   ExecuteExcise := ExecuteExcise2;

5. Aşağıdaki genel değişkeni Satınalma satırıtablosunda (39) ekleyin:

   • Adı: ExecuteExcise

   • Veri türü: Boolean

6. CalculateStructuresişlevi (39) Satınalma satırıtablosunda aşağıdaki değişkeni ekleyin:

   • Adı: DetailRG23D

   • Veri türü: Kayıt; 16533

   
   Kodu aşağıdaki gibi değiştirin:

   ...                        END;
                       UNTIL StrOrderDetails.NEXT = 0;
                   END;
                   PurchLine.MODIFY;
               UNTIL PurchLine.NEXT = 0;
   
   // Add the following lines.
                IF NOT ExecuteExcise THEN BEGIN 
                  DetailRG23D.RESET; 
                  DetailRG23D.SETRANGE("Document Type","Document Type"); 
                  DetailRG23D.SETRANGE("Order No.","No."); 
                  DetailRG23D.SETRANGE("Document No.",''); 
                  DetailRG23D.DELETEALL; 
                END; 
   // End of the added lines.
   
            END;
           END;
         END;
   ...
   

7. SetExecuteExciseişlevi Satınalma satırıtablosunda (39) oluşturun. Daha sonra aşağıdaki parametreyi ekleyin:

   • Adı: ExecuteExcise2

   • Veri türü: Boolean
     

   
   Aşağıdaki kodu ekleyin:

   ExecuteExcise := ExecuteExcise2;

8. Kodda özelliklerinideğiştirmek Satış - Post(80) kod aşağıdaki gibi:

     ...                SalesLine.GetSalesPriceExclusiveTaxes(SalesHeader);
                     SalesLine.UpdateSalesLinesPIT(SalesHeader);
                   END;
   
                   IF Structure <> '' THEN BEGIN
   
   // Add the following lines.
                    SalesLine.SetExecuteExcise( 
                      ("Document Type" IN ["Document Type"::"Credit Memo","Document Type"::Invoice]) OR 
                      (("Document Type" IN ["Document Type"::"Return Order", 
                      "Document Type"::Order]) AND 
                      Invoice)); 
   // End of the added lines.
   
                     SalesLine.CalculateStructures(SalesHeader);
                     SalesLine.AdjustStructureAmounts(SalesHeader);
                     SalesLine.UpdateSalesLines(SalesHeader);
                     CheckVATSettled(SalesHeader);
                   END;
   ...
   
   

9. Kodda özelliklerinideğiştirmek Satınalma-Post(90) kod aşağıdaki gibi:

     ...                   TESTFIELD("Document Date");
                   IF GenJnlCheckLine.DateNotAllowed("Posting Date") THEN
                     FIELDERROR("Posting Date",Text045);
   
                   IF Structure <> '' THEN BEGIN
   
   // Add the following lines.
                    PurchLine.SetExecuteExcise(("Document Type" = "Document Type"::"Credit Memo") OR 
                      (("Document Type" = "Document Type"::"Return Order") AND Invoice)); 
   // End of the added lines.
   
                     PurchLine.CalculateStructures(PurchHeader);
                     COMMIT;
                     CheckVATSettled;
                     PurchLine.AdjustStructureAmounts(PurchHeader);
                     PurchLine.UpdatePurchLines(PurchHeader);
   ...