Yeniden düzenlenen kambiyo senetleri için nakit ödemeler orijinal fatura yılında bildirilir ve yeniden düzenlenmiş fatura 347 bildiriminde İspanyolca sürümünde Microsoft Dynamics NAV 2009 yılı bağlı değil. Bu sorun aşağıdaki ürünlerde oluşur:
-
İspanyolca sürümü için Microsoft Dynamics NAV 2009 R2
-
İspanyolca sürümü için Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Neden
Yanlış tarih olması durumunda yeniden düzenlenen kambiyo senetleri 347 beyannamesinin verme dan alınır çünkü bu sorun oluşur.
Çö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.
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 test kodu düzeltmeleri denetimli bir ortamda üretim bilgisayarlarınıza onarımları uyguladıktan önce. Değişiklikleri uygulamadan önce lütfen tüm SEPA güncelleştirmeleri alın.
Bu sorunu gidermek için şu adımları izleyin:
-
Olun Beyanname 347 raporu (10707) IdentifyCashPayments işlevinde kodu aşağıdaki gibi değiştirin:
Varolan kodu 1...LOCAL PROCEDURE IdentifyCashPayments@1100010(CustomerNo@1100000 : Code[20];VATRegistrationNo@1100002 : Text[20]);
VAR
CustLedgerEntry@1100001 : Record 21;
BEGIN
// es0020.begin
CustLedgerEntry.SETCURRENTKEY("Document Type","Customer No.","Posting Date","Currency Code");
CustLedgerEntry.SETRANGE("Document Type",CustLedgerEntry."Document Type"::Payment);
...Değiştirme kodu 1
...LOCAL PROCEDURE IdentifyCashPayments@1100010(CustomerNo@1100000 : Code[20];VATRegistrationNo@1100002 : Text[20]);
VAR
CustLedgerEntry@1100001 : Record 21;
// Add the following line.
DocumentPostingDate@1170000000 : Date;
BEGIN
// es0020.begin
CustLedgerEntry.SETCURRENTKEY("Document Type","Customer No.","Posting Date","Currency Code");
CustLedgerEntry.SETRANGE("Document Type",CustLedgerEntry."Document Type"::Payment);
...Varolan kodu 2
...CustLedgerEntry.SETCURRENTKEY("Document Type","Customer No.","Posting Date","Currency Code");
CustLedgerEntry.SETRANGE("Document Type",CustLedgerEntry."Document Type"::Payment);
CustLedgerEntry.SETRANGE("Customer No.",CustomerNo);
// Delete the following lines.
CustLedgerEntry.SETRANGE("Posting Date",FromDate,ToDate);
IF CustLedgerEntry.FINDSET THEN
REPEAT
IF (CustLedgerEntry."Bal. Account Type" = CustLedgerEntry."Bal. Account Type"::"G/L Account") AND
(CustLedgerEntry."Bal. Account No." <> '')
THEN BEGIN
IF IsCashAccount(CustLedgerEntry."Bal. Account No.") THEN
CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo);
END ELSE
IF ((CustLedgerEntry."Bal. Account No." = '') OR
(CustLedgerEntry."Bal. Account Type" <> CustLedgerEntry."Bal. Account Type"::"G/L Account"))
THEN BEGIN
IF IdentifyCashPaymentsFromGL(CustLedgerEntry) THEN
CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo);
END;
// End of the deleted lines.
UNTIL CustLedgerEntry.NEXT = 0;
// es0020.end
END;
...Değiştirme kodu 2
...CustLedgerEntry.SETCURRENTKEY("Document Type","Customer No.","Posting Date","Currency Code");
CustLedgerEntry.SETRANGE("Document Type",CustLedgerEntry."Document Type"::Payment);
CustLedgerEntry.SETRANGE("Customer No.",CustomerNo);
// Add the following lines.
// we need payments made in future.
// CustLedgerEntry.SETRANGE("Posting Date",FromDate,ToDate);
IF CustLedgerEntry.FINDSET THEN
REPEAT
DocumentPostingDate := GetPaymentDocumentPostingDate(CustLedgerEntry);
IF (CheckCashTotalsPossibility(CustLedgerEntry,DocumentPostingDate)) THEN
CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo,DocumentPostingDate);
// End of the added lines.
UNTIL CustLedgerEntry.NEXT = 0;
// es0020.end
END;
... -
Olun Beyanname 347 raporu (10707) CreateCashTotals işlevinde kodu aşağıdaki gibi değiştirin:
Varolan kodu 1...UNTIL CustLedgerEntry.NEXT = 0;
// es0020.end
END;
// Delete the following line.
LOCAL PROCEDURE CreateCashTotals@2(CustLedgerEntryNo@1100000 : Integer;VATRegistrationNo@1100001 : Text[20]) : Boolean;
VAR
CustLedgerEntry@1100091 : Record 21;
DtldCustLedgEntry@1100094 : Record 379;
DtldCustLedgEntry2@1100095 : Record 379;
...Değiştirme kodu 1
...UNTIL CustLedgerEntry.NEXT = 0;
// es0020.end
END;
// Add the following line.
LOCAL PROCEDURE CreateCashTotals@2(CustLedgerEntryNo@1100000 : Integer;VATRegistrationNo@1100001 : Text[20];DocumentPostingDate@1170000000 : Date) : Boolean;
VAR
CustLedgerEntry@1100091 : Record 21;
DtldCustLedgEntry@1100094 : Record 379;
DtldCustLedgEntry2@1100095 : Record 379;
...Varolan kodu 2
...THEN BEGIN
IF CustLedgerEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.") THEN
UpdateCustomerCashBuffer(VATRegistrationNo,
// Delete the following line.
DATE2DMY(CustLedgerEntry."Posting Date",3),-(DtldCustLedgEntry2."Amount (LCY)"));
END;
UNTIL DtldCustLedgEntry2.NEXT = 0;
END ELSE BEGIN
...Değiştirme kodu 2
...THEN BEGIN
IF CustLedgerEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.") THEN
UpdateCustomerCashBuffer(VATRegistrationNo,
// Add the following line.
DATE2DMY(DocumentPostingDate,3),-(DtldCustLedgEntry2."Amount (LCY)"));
END;
UNTIL DtldCustLedgEntry2.NEXT = 0;
END ELSE BEGIN
...Varolan kodu 3
...END ELSE BEGIN
IF CustLedgerEntry.GET(DtldCustLedgEntry."Applied Cust. Ledger Entry No.") THEN
UpdateCustomerCashBuffer(VATRegistrationNo,
// Delete the following line.
DATE2DMY(CustLedgerEntry."Posting Date",3),DtldCustLedgEntry."Amount (LCY)");
END;
UNTIL DtldCustLedgEntry.NEXT = 0;
// es0020.end
...Değiştirme kodu 3
...END ELSE BEGIN
IF CustLedgerEntry.GET(DtldCustLedgEntry."Applied Cust. Ledger Entry No.") THEN
UpdateCustomerCashBuffer(VATRegistrationNo,
// Add the following line.
DATE2DMY(DocumentPostingDate,3),DtldCustLedgEntry."Amount (LCY)");
END;
UNTIL DtldCustLedgEntry.NEXT = 0;
// es0020.end
... -
Olun Beyanname 347 raporu (10707) GetPaymentDocumentPostingDate işlevinde kodu aşağıdaki gibi değiştirin:
Varolan kodu...IF Vendor."Country/Region Code" = CountryCode THEN
FromJournal := TRUE;
END;
...Kod değiştirme
...IF Vendor."Country/Region Code" = CountryCode THEN
FromJournal := TRUE;
END;
// Add the following lines.
LOCAL PROCEDURE GetPaymentDocumentPostingDate@1170000000(CustLedgerEntry@1170000000 : Record 21) PostingDate : Date;
VAR
CustLedgerEntryRelated@1170000001 : Record 21;
BEGIN
WITH CustLedgerEntry DO BEGIN;
TESTFIELD("Document Type","Document Type"::Payment);
PostingDate := "Posting Date";
END;
// If payment for Bill then we need get Posting Date of the Document related to the Bill
WITH CustLedgerEntryRelated DO BEGIN
SETRANGE("Closed by Entry No.",CustLedgerEntry."Entry No.");
SETRANGE("Document Type","Document Type"::Bill);
IF FINDFIRST THEN BEGIN
RESET;
SETRANGE("Document No.","Document No.");
SETFILTER("Document Type",'%1|%2',"Document Type"::Invoice,"Document Type"::"Credit Memo");
FINDFIRST;
PostingDate := "Posting Date";
END
END;
EXIT(PostingDate);
END;
PROCEDURE CheckCashTotalsPossibility@1170000008(CustLedgerEntry@1170000000 : Record 21;DocumentPostingDate@1170000001 : Date) : Boolean;
BEGIN
IF (DocumentPostingDate < FromDate) OR (DocumentPostingDate > ToDate) THEN
EXIT(FALSE);
WITH CustLedgerEntry DO
IF ("Bal. Account Type" = "Bal. Account Type"::"G/L Account") AND ("Bal. Account No." <> '') THEN BEGIN
IF IsCashAccount("Bal. Account No.") THEN
EXIT(TRUE);
END ELSE
IF ("Bal. Account No." = '') OR ("Bal. Account Type" <> "Bal. Account Type"::"G/L Account") THEN
IF IdentifyCashPaymentsFromGL(CustLedgerEntry) THEN
EXIT(TRUE);
EXIT(FALSE);
END;
// End of the added lines.
...
Önkoşullar
Bu düzeltmeyi uygulamak için aşağıdaki ürünlerden birine sahip olmalıdır:
-
İspanyolca sürümü için Microsoft Dynamics NAV 2009 R2
-
İspanyolca sürümü için Microsoft Dynamics NAV 2009 SP1
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.
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. Kullanım koşullarıdiğer konular için bkz.
