Peşinat. Microsoft Dynamics NAV 2009 ' için Dynamics NAV 2013'e yükselttikten sonra KDV fatura (LPB) alanı eksik

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

Yükleme bilgileri

Microsoft, programlama örneklerini yalnızca gösterim amacıyla zımni veya açık garanti olmadan sağlar. Bu, satılabilirlik veya belirli bir amaca uygunluk açısından zımni garantileri içerir ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini, yordamları oluşturmak ve yordamlardan hata ayıklamak için kullanılan araçları bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir. Ancak, işlevsellik sağlamak veya yordamlar, belirli gereksinimlerinizi karşılayacak şekilde geliştirmek amacıyla bu örnekleri değiştirmezler.

Not: Bu düzeltmeyi yüklemeden önce tüm Microsoft Dynamics NAV istemci kullanıcıların sistem kaydedildiğini doğrulayın. Bu, Microsoft Dynamics NAV uygulama sunucusu (NAS) hizmetleri içerir. Bu düzeltmeyi uyguladığınızda yalnızca istemci kullanıcının oturum açmış olması gerekir.

Bu düzeltmeyi uygulamak için bir geliştirici lisansı olması gerekir.

Kullanıcı hesabının Windows oturumu açma penceresini veya veritabanı oturumu açma penceresi "Süper" rol kimliği atanması öneririz Kullanıcı hesabı "Süper" rol Kimliği atanamaz, kullanıcı hesabı aşağıdaki izinlere sahip olduğunu doğrulamanız gerekir:

• Nesnenin, değiştirme değişiklik yapma izni.

• Sistem nesne kimliği 9015 ve Sistem nesnesi kimliği 5210 nesne için Execute izni
  
  nesne.

Not: Veri onarım gerçekleştirmek zorunda sürece veri depoları haklarına sahip olmanız gerekmez.

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. Kod yükseltme yeni sürüm kod (104048) yükseltme işlevi, aşağıdaki gibi değiştirin:
   Varolan kodu

   ...UpdateItemLedgerEntry(StateIndicator);
         UpdateDOCreditCard(StateIndicator);
         UpdateSalesOrderDate(StateIndicator);
         UpdateOutlookSynchFilter(StateIndicator);
         UpdateOutlookSynchField(StateIndicator);
         DeleteRemovedPermissions(StateIndicator);
   ...
   

   Kod değiştirme

   ...UpdateItemLedgerEntry(StateIndicator);
         UpdateDOCreditCard(StateIndicator);
         UpdateSalesOrderDate(StateIndicator);
   
   // Add the following lines.
         UpdateSalesLines(StateIndicator);
         UpdatePurchLines(StateIndicator);
   // End of the added lines.
   
         UpdateOutlookSynchFilter(StateIndicator);
         UpdateOutlookSynchField(StateIndicator);
         DeleteRemovedPermissions(StateIndicator);
   ...
   

2. Aşağıdaki işlevleri ekleyin:

   LOCAL PROCEDURE UpdateSalesLines@62(VAR StateIndicator@1000 : Record 104037);VAR
         SalesLine@1001 : Record 37;
         LastDocumentNo@1002 : Code[20];
         PrepmtInvReminderAmount@1003 : Decimal;
       BEGIN
         WITH SalesLine DO
           IF StateIndicator.UpdateTable(TABLENAME) THEN BEGIN
             TimeLog.TimeLogInsert(TimeLog,TABLENAME,TRUE);
             SETCURRENTKEY("Document Type","Document No.","Line No.");
             IF FINDSET THEN
               REPEAT
                 StateIndicator.Update;
                 IF ("Document Type" = "Document Type"::Order) AND ("Prepayment Amount" <> "Prepmt. Amt. Incl. VAT") THEN BEGIN
                   IF "Document No." <> LastDocumentNo THEN BEGIN
                     LastDocumentNo := "Document No.";
                     PrepmtInvReminderAmount := 0;
                   END;
                   IF ("Prepmt. Amount Inv. (LCY)" <> 0) AND ("Prepmt. VAT Amount Inv. (LCY)" = 0) THEN BEGIN
                     "Prepmt. VAT Amount Inv. (LCY)" :=
                       CalcRndedAmount("Prepmt. Amount Inv. (LCY)","Prepayment VAT %" / 100,PrepmtInvReminderAmount);
                     MODIFY;
                   END;
                 END;
               UNTIL NEXT = 0;
             TimeLog.TimeLogInsert(TimeLog,TABLENAME,FALSE);
             StateIndicator.EndUpdateTable(TABLENAME);
           END;
   
   LOCAL PROCEDURE UpdatePurchLines@63(VAR StateIndicator@1000 : Record 104037);
       VAR
         PurchaseLine@1001 : Record 39;
         LastDocumentNo@1002 : Code[20];
         PrepmtInvReminderAmount@1003 : Decimal;
       BEGIN
         WITH PurchaseLine DO
           IF StateIndicator.UpdateTable(TABLENAME) THEN BEGIN
             TimeLog.TimeLogInsert(TimeLog,TABLENAME,TRUE);
             IF FINDSET THEN
               REPEAT
                 StateIndicator.Update;
                 IF ("Document Type" = "Document Type"::Order) AND ("Prepayment Amount" <> "Prepmt. Amt. Incl. VAT") THEN BEGIN
                   IF "Document No." <> LastDocumentNo THEN BEGIN
                     LastDocumentNo := "Document No.";
                     PrepmtInvReminderAmount := 0;
                   END;
                   IF ("Prepmt. Amount Inv. (LCY)" <> 0) AND ("Prepmt. VAT Amount Inv. (LCY)" = 0) THEN BEGIN
                     "Prepmt. VAT Amount Inv. (LCY)" :=
                       CalcRndedAmount("Prepmt. Amount Inv. (LCY)","Prepayment VAT %" / 100,PrepmtInvReminderAmount);
                     MODIFY;
                   END;
                 END;
               UNTIL NEXT = 0;
             TimeLog.TimeLogInsert(TimeLog,TABLENAME,FALSE);
             StateIndicator.EndUpdateTable(TABLENAME);
           END;
   
   LOCAL PROCEDURE CalcRndedAmount@64(LineAmount@1000 : Decimal;Ratio@1001 : Decimal;VAR Reminder@1002 : Decimal) RndedAmount : Decimal;
       VAR
         Amount@1003 : Decimal;
       BEGIN
         Amount := Reminder + LineAmount * Ratio;
         RndedAmount := ROUND(Amount);
         Reminder := Amount - RndedAmount;
       END;
   

Önkoşullar

Microsoft Dynamics NAV 2013 bu düzeltmeyi uygulamak için yüklü olması gerekir.

Kaldırma bilgileri

Bu düzeltmeyi kaldıramazsınız.