Microsoft Dynamics NAV 2009 Portekizce sürümü aynı anda fatura ve Reddet bill ile Nakit Tahsilat Günlüğü deftere naklettiğinizde bazı genel muhasebe girişleri yanlış nakledilir

Şablon: CPR - Navision kod düzeltme şablonu

# Hata: 188280 (İçerik Bakımı)

Bu makale Microsoft Dynamics NAV'a Portekiz (pt) dil yerel ayar için geçerlidir.

Belirtiler

Microsoft Dynamics NAV 2009 Portekizce sürümü aynı anda fatura ve Reddet bill ile Nakit Tahsilat Günlüğü deftere naklettiğinizde, deftere nakledilen genel muhasebe girişleri reddetmek kambiyo senetleri hesabı kullanarak nakledilir. Ancak, alacaklar hesabı, fatura için kullanılması gerektiğini ve reddedilmiş faturaları hesap reddedilen belge için kullanılmalıdır. Bu sorun aşağıdaki ürünlerde oluşur:

  • Microsoft Dynamics NAV 2009 R2 Portekizce sürümü

  • Portekizce sürümü Microsoft Dynamics NAV 2009 Service Pack 1

Çözüm

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.

Bu düzeltme genel karşıdan yükleme (Bu makalede bu düzeltme için genel bir URL sağlanmayan anlamına gelir) için nakledilmemişse, dağıtım için teknik lider, yükseltme ekibi üyesi veya yönetici onayı gerekir ve aşağıdaki bilgiler geçerlidir:

  • Düzeltmeyi almak için müşterilerin "Belirtiler" bölümünde sözü edilen hata ile karşılaşmaları gerekir.

  • Bunu gönderdiğiniz ve bir sonraki hizmet paketini (bir hizmet paketi yayımlanırsa) kullanılabilir duruma geldiğinde bunları tedarik müşterileri izlemeniz gerekir.

Bu düzeltmeyi Microsoft Dynamics NAV 2013 ile birlikte gönderilmesi planlanmıştı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 Navision istemcisi kullanıcılar sistem oturum doğrulayın. Bu, Microsoft Navision uygulama Hizmetleri (NAS) istemci kullanıcıları 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.

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



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 kod içinde Yev. değiştirmek-Post satır kod (12). Bunu yapmak için şu adımları izleyin:

  1. Aşağıdaki genel değişkeni ekleyin:

    TempRejCustLedgEntry@1100047 : TEMPORARY Record 21;
  2. PostCust işlevinde kodu aşağıdaki gibi değiştirin:
    Varolan kodu 1

    ...          DiscRiskFactAmountLCY := 0;
    DiscUnriskFactAmountLCY := 0;
    CollFactAmountLCY := 0;
    //--------

    IF Cust."No." <> "Account No." THEN
    Cust.GET("Account No.");
    Cust.CheckBlockedCustOnJnls(Cust,"Document Type",TRUE);

    IF "Posting Group" = '' THEN BEGIN
    ...

    Değiştirme kodu 1

    ...          DiscRiskFactAmountLCY := 0;
    DiscUnriskFactAmountLCY := 0;
    CollFactAmountLCY := 0;
    //--------

    // Add the following lines.
    TempRejCustLedgEntry.RESET;
    TempRejCustLedgEntry.DELETEALL;
    // End of the lines.

    IF Cust."No." <> "Account No." THEN
    Cust.GET("Account No.");
    Cust.CheckBlockedCustOnJnls(Cust,"Document Type",TRUE);

    IF "Posting Group" = '' THEN BEGIN
    ...

    Varolan kodu 2

    ...            END;

    // Post the application
    ApplyCustLedgEntry(
    CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,GLSetup."Appln. Rounding Precision");

    // Delete the following lines.
    IF GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" " THEN
    GenJnlLine."Applies-to Doc. Type" := AppliesToDocType;
    // End of the lines.

    IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
    IF "Document Type" = "Document Type"::Bill THEN BEGIN
    DocPost.CreateReceivableDoc(GenJnlLine,CVLedgEntryBuf);
    CustLedgEntry."Document Situation" := CustLedgEntry."Document Situation"::Cartera;
    ...

    Değiştirme kodu 2

    ...            END;

    // Post the application
    ApplyCustLedgEntry(
    CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,GLSetup."Appln. Rounding Precision");

    // Add the following lines.
    IF ("Applies-to ID" = '') AND ("Applies-to Doc. Type" = "Applies-to Doc. Type"::" ") THEN
    "Applies-to Doc. Type" := AppliesToDocType;
    // End of the lines.

    IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
    IF "Document Type" = "Document Type"::Bill THEN BEGIN
    DocPost.CreateReceivableDoc(GenJnlLine,CVLedgEntryBuf);
    CustLedgEntry."Document Situation" := CustLedgEntry."Document Situation"::Cartera;
    ...

  3. PostVend işlevinde kodu aşağıdaki gibi değiştirin:
    Varolan kodu

    ...          // Post the application
    ApplyVendLedgEntry(
    CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,
    GLSetup."Appln. Rounding Precision");

    // Delete the following lines.
    IF GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" " THEN
    GenJnlLine."Applies-to Doc. Type" := AppliesToDocType;
    // End of the lines.

    IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
    IF "Document Type" = "Document Type"::Bill THEN BEGIN
    DocPost.CreatePayableDoc(GenJnlLine,CVLedgEntryBuf);
    VendLedgEntry."Document Situation" := VendLedgEntry."Document Situation"::Cartera;
    ...

    Kod değiştirme

    ...          // Post the application
    ApplyVendLedgEntry(
    CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,
    GLSetup."Appln. Rounding Precision");

    // Add the following lines.
    IF ("Applies-to ID" = '') AND ("Applies-to Doc. Type" = "Applies-to Doc. Type"::" ") THEN
    "Applies-to Doc. Type" := AppliesToDocType;
    // End of the lines.

    IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
    IF "Document Type" = "Document Type"::Bill THEN BEGIN
    DocPost.CreatePayableDoc(GenJnlLine,CVLedgEntryBuf);
    VendLedgEntry."Document Situation" := VendLedgEntry."Document Situation"::Cartera;
    ...

  4. ApplyCustLedgEntry işlevinde kodu aşağıdaki gibi değiştirin:
    Varolan kodu

    ...                OldCustLedgEntry."Document Situation"::"Closed Documents",
    OldCustLedgEntry."Document Situation"::"Closed BG/PO"]) THEN
    FromClosedDoc := TRUE
    ELSE
    FromClosedDoc := FALSE;
    DocPost.UpdateReceivableDoc(
    OldCustLedgEntry,GenJnlLine,AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY,
    DocAmountLCY,RejDocAmountLCY,DiscDocAmountLCY,CollDocAmountLCY,
    DiscRiskFactAmountLCY,DiscUnriskFactAmountLCY,CollFactAmountLCY);
    END;
    ...

    Kod değiştirme

    ...                OldCustLedgEntry."Document Situation"::"Closed Documents",
    OldCustLedgEntry."Document Situation"::"Closed BG/PO"]) THEN
    FromClosedDoc := TRUE
    ELSE
    FromClosedDoc := FALSE;

    // Add the following lines.
    IF OldCustLedgEntry."Document Status" = OldCustLedgEntry."Document Status"::Rejected THEN BEGIN
    TempRejCustLedgEntry := OldCustLedgEntry;
    TempRejCustLedgEntry."Remaining Amount (LCY) stats." := AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY;
    TempRejCustLedgEntry.INSERT;
    END;
    // End of the lines.

    DocPost.UpdateReceivableDoc(
    OldCustLedgEntry,GenJnlLine,AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY,
    DocAmountLCY,RejDocAmountLCY,DiscDocAmountLCY,CollDocAmountLCY,
    DiscRiskFactAmountLCY,DiscUnriskFactAmountLCY,CollFactAmountLCY);
    END;
    ...

  5. PostDtldCustLedgEntries işlevinde kodu aşağıdaki gibi değiştirin:
    Varolan kodu

    ...              AccNo := CustPostingGr."Bills Account";
    END ELSE BEGIN
    CustPostingGr.TESTFIELD("Receivables Account");
    AccNo := CustPostingGr."Receivables Account";
    END;

    // Delete the following lines.
    IF DiscDocAmountLCY <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Discted. Bills Acc.");
    AccNo := CustPostingGr."Discted. Bills Acc.";
    END;
    IF CollDocAmountLCY <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Bills on Collection Acc.");
    AccNo := CustPostingGr."Bills on Collection Acc.";
    END;
    IF RejDocAmountLCY <> 0 THEN BEGIN
    CASE GenJnlLine."Applies-to Doc. Type" OF
    GenJnlLine."Applies-to Doc. Type"::Bill:
    BEGIN
    CustPostingGr.TESTFIELD("Rejected Bills Acc.");
    AccNo := CustPostingGr."Rejected Bills Acc.";
    END;
    GenJnlLine."Applies-to Doc. Type"::Invoice:
    BEGIN
    CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
    AccNo := CustPostingGr."Rejected Factoring Acc.";
    END;
    ELSE
    IF (GenJnlLine."Document Type" IN [GenJnlLine."Document Type"::"Credit Memo",GenJnlLine."Document Type"::Payment]) AND
    (OldCVLedgEntryBuf4."Applies-to ID" <> '') THEN BEGIN
    CASE OldCVLedgEntryBuf4."Document Type" OF
    OldCVLedgEntryBuf4."Document Type"::Bill:
    BEGIN
    CustPostingGr.TESTFIELD("Receivables Account");
    AccNo := CustPostingGr."Receivables Account";
    END;
    OldCVLedgEntryBuf4."Document Type"::Invoice:
    BEGIN
    CustPostingGr.TESTFIELD("Receivables Account");
    AccNo := CustPostingGr."Receivables Account";
    END;
    END;
    END;
    END;
    END;
    IF (DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) THEN BEGIN
    CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
    AccNo := CustPostingGr."Factoring for Discount Acc.";
    END;
    IF CollFactAmountLCY <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Factoring for Collection Acc.");
    AccNo := CustPostingGr."Factoring for Collection Acc.";
    END;
    // End of the lines.

    ReceivableAccAmtLCY :=
    TotalAmountLCY -
    (DocAmountLCY + DiscDocAmountLCY +
    CollDocAmountLCY + RejDocAmountLCY + DiscRiskFactAmountLCY +
    ...

    Kod değiştirme

    ...              AccNo := CustPostingGr."Bills Account";
    END ELSE BEGIN
    CustPostingGr.TESTFIELD("Receivables Account");
    AccNo := CustPostingGr."Receivables Account";
    END;

    ReceivableAccAmtLCY :=
    TotalAmountLCY -
    (DocAmountLCY + DiscDocAmountLCY +
    CollDocAmountLCY + RejDocAmountLCY + DiscRiskFactAmountLCY +
    ...

  6. PostReceivableDocs işlevinde kodu aşağıdaki gibi değiştirin:
    Varolan kodu

    ...          GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    IF RejDocAmountLCY <> 0 THEN BEGIN

    // Delete the following lines.
    CASE GenJnlLine."Applies-to Doc. Type" OF
    GenJnlLine."Applies-to Doc. Type"::Bill:
    BEGIN
    CustPostingGr.TESTFIELD("Rejected Bills Acc.");
    InitGLEntry(CustPostingGr."Rejected Bills Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
    GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    GenJnlLine."Applies-to Doc. Type"::Invoice:
    BEGIN
    CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
    InitGLEntry(CustPostingGr."Rejected Factoring Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
    GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    ELSE
    IF (GenJnlLine."Document Type" IN [GenJnlLine."Document Type"::"Credit Memo",GenJnlLine."Document Type"::Payment]) AND
    (OldCVLedgEntryBuf4."Applies-to ID" <> '') THEN BEGIN
    CASE OldCVLedgEntryBuf4."Document Type" OF
    OldCVLedgEntryBuf4."Document Type"::Bill:
    BEGIN
    CustPostingGr.TESTFIELD("Rejected Bills Acc.");
    InitGLEntry(CustPostingGr."Rejected Bills Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
    GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    OldCVLedgEntryBuf4."Document Type"::Invoice:
    BEGIN
    CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
    InitGLEntry(CustPostingGr."Rejected Factoring Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE
    );

    GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    END;
    END;
    // End of the lines.

    END;
    END;
    IF DiscRiskFactAmountLCY <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
    InitGLEntry(CustPostingGr."Factoring for Discount Acc.",
    ...

    Kod değiştirme

    ...          GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    IF RejDocAmountLCY <> 0 THEN BEGIN

    // Add the following lines.
    WITH TempRejCustLedgEntry DO BEGIN
    RESET;
    SETCURRENTKEY("Customer No.","Document Type","Document Situation","Document Status");
    SETRANGE("Document Type","Document Type"::Bill);
    CALCSUMS("Remaining Amount (LCY) stats.");
    IF "Remaining Amount (LCY) stats." <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Rejected Bills Acc.");
    InitGLEntry(
    CustPostingGr."Rejected Bills Acc.","Remaining Amount (LCY) stats.",
    DocAmtCalcAddCurrency("Remaining Amount (LCY) stats."),TRUE,TRUE);
    GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    SETRANGE("Document Type","Document Type"::Invoice);
    CALCSUMS("Remaining Amount (LCY) stats.");
    IF "Remaining Amount (LCY) stats." <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
    InitGLEntry(
    CustPostingGr."Rejected Factoring Acc.","Remaining Amount (LCY) stats.",
    DocAmtCalcAddCurrency("Remaining Amount (LCY) stats."),TRUE,TRUE);
    GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    // End of the lines.

    END;
    END;
    IF DiscRiskFactAmountLCY <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
    InitGLEntry(CustPostingGr."Factoring for Discount Acc.",
    ...

Önkoşullar

Bu düzeltmeyi uygulamak için aşağıdaki ürünlerden birine sahip olmalıdır:

  • Microsoft Dynamics NAV 2009 R2 Portekizce sürümü

  • Portekizce sürümü Microsoft Dynamics NAV 2009 Service Pack 1

Kaldırma bilgileri

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

Durum

Microsoft bu sorunun "Aşağıdakilere Uygulanır" bölümünde listelenen Microsoft ürünlerinde bulunduğunu onaylamıştır.

Başvurular

VSFT DynamicsNAVSE: 344551

Not: Bu, doğrudan Microsoft destek kuruluşu bünyesinde oluşturulan bir "HIZLI YAYIN" makalesidir. Burada yer alan bilgiler, oluşan sorunlara yanıt olarak olduğu gibi sağlanmıştır. Makale hızla kullanıma sunulduğu için materyallerde yazım hataları olabilir ve materyaller bildirilmeksizin herhangi bir zamanda revize edilebilir. Diğer konular için bkz. Kullanım koşulları.

Yazar: vagarcia
Yazan: v-brialu
Teknik İnceleme: vagarcia
Düzenleyen:

Daha fazla yardıma mı ihtiyacınız var?

Yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Microsoft Insider 'a katılın

Bu bilgi yardımcı oldu mu?

Geri bildiriminiz için teşekkür ederiz!

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×