Bu makale, tüm ülkelerde ve tüm dil yerel ayarlarında Microsoft Dynamics NAV için geçerlidir.
Belirtiler
Microsoft Dynamics NAV 2009 Service Pack 1'deki (SP1) Sözleşme Girişleri Oluştur işlevini kullanarak birden çok ön ödemeli sözleşme için hizmet sözleşmesi faturaları oluşturduğunuzu varsayalım. Bu durumda, hizmet faturalarındaki boyutlar doğru bir şekilde oluşturulur. Ancak, faturaları deftere nakletmek için Ön Ödemeli Sözleşme Girişleri raporunu çalıştırırsanız, hizmet defteri girişlerindeki boyutlar beklenmedik bir şekilde karışır.
Çözüm
Düzeltme bilgileri
Artık Microsoft, desteklenen bir düzeltme sunmaktadır. Ancak, yalnızca bu makalede açıklanan sorunu düzeltmeye yöneliktir. Bunu yalnızca bu özel sorunun yaşandığı sistemlere uygulayın. Bu düzeltme için ek sınamalar gerekebilir. Bu nedenle, bu sorundan ciddi bir şekilde etkilenmiyorsanız, bir sonraki Microsoft Dynamics NAV hizmet paketini veya bu düzeltmeyi içeren bir sonraki Microsoft Dynamics NAV sürümünü beklemenizi öneririz.
Not Özel durumlarda, Microsoft Dynamics ve ilgili ürünler için bir Teknik Destek Uzmanı belirli bir güncelleştirmenin sorunu çözeceğini belirlerse, normalde destek aramaları için yapılan ücretler iptal edilebilir. Ek destek soruları ve söz konusu güncelleştirme için uygun olmayan sorunlara normal destek ücretleri uygulanır.
Yükleme bilgileri
Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; açık veya zımni hiçbir garanti vermez. Bu, satılabilirlik veya belirli bir amaca uygunluk ile ilgili zımni garantileri içerir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama diline ve prosedürler oluşturmak ve prosedürlerde hata ayıklamak için kullanılan araçlara aşina olduğunuzu varsaymaktadır. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.
Not Bu düzeltmeyi yüklemeden önce, tüm Microsoft Navision istemcisi kullanıcılarının sistem oturumunu kapattığını doğrulayın. Bu, Microsoft Navision Application Services (NAS) istemci kullanıcılarını içerir. Bu düzeltmeyi uyguladığınızda oturum açan tek istemci kullanıcı siz olmalısınız.
Bu düzeltmeyi uygulamak için bir geliştirici lisansınız olmalıdır.
Windows Oturum Açma veya Veritabanı Oturum Açma penceresindeki kullanıcı hesabına "SUPER" rol kimliğinin atanmasını öneririz. Kullanıcı hesabına "SUPER" rol kimliği atanamıyorsa, kullanıcı hesabının aşağıdaki izinlere sahip olduğunu doğrulamanız gerekir:
- Değiştireceğiniz nesnenin Değiştirme izni.
- Sistem Nesne Kimliği 5210 nesnesi ve Sistem Nesne Kimliği 9015 nesnesi için Yürütme izni.
Not: Veri onarımı gerçekleştirmeniz gerekmediği sürece, veri depoları üzerinde haklarınız olması gerekmez.
Kod değişiklikleri
Not: Kod düzeltmelerini üretim bilgisayarlarınıza uygulamadan önce her zaman denetimli bir ortamda sınayın.
Bu sorunu çözmek için ServContractManagement kod birimindeki (5940) CreateServiceLedgerEntry işlevindeki kodu aşağıdaki gibi değiştirin:
Mevcut kod 1
...
ServLedgEntry."Document No." := ServHeader2."No.";
ServLedgEntry."Serv. Contract Acc. Gr. Code" := ServContractHeader."Serv. Contract Acc. Gr. Code";
ServLedgEntry."Bill-to Customer No." := ServContractHeader."Bill-to Customer No.";
ServLedgEntry."Customer No." := ServContractHeader."Customer No.";
ServLedgEntry."Ship-to Code" := ServContractHeader."Ship-to Code";
//Delete the following lines.
ServLedgEntry."Global Dimension 1 Code" := ServHeader2."Shortcut Dimension 1 Code";
ServLedgEntry."Global Dimension 2 Code" := ServHeader2."Shortcut Dimension 2 Code";
//End of the lines.
ServLedgEntry."Entry Type" := ServLedgEntry."Entry Type"::Sale;
ServLedgEntry."User ID" := USERID;
ServLedgEntry."Contract Invoice Period" := FORMAT(ServContractHeader."Invoice Period");
ServLedgEntry."Contract Group Code" := ServContractHeader."Contract Group Code";
ServLedgEntry."Responsibility Center" := ServContractHeader."Responsibility Center";
...
Değiştirme kodu 1
...
ServLedgEntry."Document No." := ServHeader2."No.";
ServLedgEntry."Serv. Contract Acc. Gr. Code" := ServContractHeader."Serv. Contract Acc. Gr. Code";
ServLedgEntry."Bill-to Customer No." := ServContractHeader."Bill-to Customer No.";
ServLedgEntry."Customer No." := ServContractHeader."Customer No.";
ServLedgEntry."Ship-to Code" := ServContractHeader."Ship-to Code";
//Add the following lines.
ServLedgEntry."Global Dimension 1 Code" := ServContractHeader."Shortcut Dimension 1 Code";
ServLedgEntry."Global Dimension 2 Code" := ServContractHeader."Shortcut Dimension 2 Code";
//End of the lines.
ServLedgEntry."Entry Type" := ServLedgEntry."Entry Type"::Sale;
ServLedgEntry."User ID" := USERID;
ServLedgEntry."Contract Invoice Period" := FORMAT(ServContractHeader."Invoice Period");
ServLedgEntry."Contract Group Code" := ServContractHeader."Contract Group Code";
ServLedgEntry."Responsibility Center" := ServContractHeader."Responsibility Center";
...
Mevcut kod 2
...
ServLedgEntry.Amount := ServLedgEntry."Amount (LCY)";
ServLedgEntry."Posting Date" := DueDate;
ServLedgEntry.Prepaid := TRUE;
ServLedgEntry.INSERT;
DocDim.RESET;
DocDim.SETRANGE("Table ID",DATABASE::"Service Header");
DocDim.SETRANGE("Document Type",DocDim."Document Type"::Invoice);
DocDim.SETRANGE("Document No.",ServHeader2."No.");
DimMgt.MoveDocDimToLedgEntryDim(
...
Değiştirme kodu 2
...
ServLedgEntry.Amount := ServLedgEntry."Amount (LCY)";
ServLedgEntry."Posting Date" := DueDate;
ServLedgEntry.Prepaid := TRUE;
ServLedgEntry.INSERT;
//Add the following lines.
DimMgt.DeleteDocDim(DATABASE::"Service Header",2,ServHeader2."No.",0);
ServContractDim.RESET;
ServContractDim.SETRANGE("Table ID",DATABASE::"Service Contract Header");
ServContractDim.SETRANGE(Type,ServContractHeader."Contract Type");
ServContractDim.SETRANGE("No.",ServContractHeader."Contract No.");
DimMgt.CopySCDimToDocDim(ServContractDim,DATABASE::"Service Header",2,ServHeader2."No.",0);
//End of the lines.
DocDim.RESET;
DocDim.SETRANGE("Table ID",DATABASE::"Service Header");
DocDim.SETRANGE("Document Type",DocDim."Document Type"::Invoice);
DocDim.SETRANGE("Document No.",ServHeader2."No.");
DimMgt.MoveDocDimToLedgEntryDim(
...
Önkoşullar
Bu düzeltmeyi uygulamak için Microsoft Dynamics NAV 2009 Service Pack 1 yüklü olmalıdır.
Kaldırma bilgileri
Bu düzeltmeyi kaldıramazsınız.
Durum
Microsoft bunun, "Şunlar için geçerlidir" bölümünde listelenen Microsoft ürünlerinde sorun olduğunu doğrulamıştır.
Not: Bu, doğrudan Microsoft destek kuruluşu tarafından hazırlanmış bir "HIZLI YAYIMLAMA" makalesidir. Burada yer alan bilgiler acil sorunlar karşısında bu şekliyle verilir. Kullanıma sunma hızının bir sonucu olarak, materyaller yazım hataları içerebilir ve herhangi bir zamanda önceden haber verilmeksizin revize edilebilir. Göz önünde bulundurulması gereken diğer hususlar için Kullanım Koşulları'na bakın.