Applies ToDynamics NAV 2009

Belirtiler

KB3036841yükledikten sonra kabul edin SEPA ödeme günlüğü ' nden Portekizce sürümü Microsoft Dynamics NAV 2009 içinde verilen hükümsüz ve SEPA ödeme dosyasına verme işleminden sonra günlük satırlarını deftere naklettiğinizde, aşağıdaki hata iletisini alırsınız:

"Seçin. Evet genel günlük satırı günlük şablonu adı değeri Pmts verilmiş olması gerekir, günlük toplu işlem adı = Satır No = =. "

Bu sorunu çözmek için kod değişiklikleri bölümündeki adımları izleyin. Bu sorun aşağıdaki ürünlerde oluşur:

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

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

Çö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 izninesne.

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. Denetimlerde ödeme günlüğü formunda (256) kodu aşağıdaki gibi değiştirin:Varolan kodu 1

    ...     OnValidate=BEGIN                                                              GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);                                                              ShowShortcutDimCode(ShortcutDimCode);                                                            END;                                                             }    { 11  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=10;...

    Değiştirme kodu 1

    ...          OnValidate=BEGIN                                                              GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);                                                              ShowShortcutDimCode(ShortcutDimCode);// Add the following line.CheckRecipientBankAccount;// End of the added line.                                                            END;                                                             }    { 11  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=10;...

    Varolan kodu 2

    ...SourceExpr="Reason Code" }    { 70  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=69;                                                 InColumnHeading=Yes }    { 24  ;Frame        ;220  ;6160 ;16060;1430 ;HorzGlue=Both;                                                 VertGlue=Bottom;                                                 ShowCaption=No }...

    Değiştirme kodu 2

    ... SourceExpr="Reason Code" }    { 70  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=69;                                                 InColumnHeading=Yes }// Add the following lines.{ 1170000000;TextBox;76068;1980 ;1700 ;440  ;ParentControl=1;InColumn=Yes;SourceExpr="Recipient Bank Account" }{ 1170000001;Label  ;0    ;0    ;0    ;0    ;ParentControl=1170000000;InColumnHeading=Yes }// End of the added lines.    { 24  ;Frame        ;220  ;6160 ;16060;1430 ;HorzGlue=Both;                                                 VertGlue=Bottom;                                                 ShowCaption=No }...

    Varolan kodu 3

    ...                                                               { ID=1110051;                                                     MenuLevel=1;                                                     CaptionML=ENU=Export;// Delete the following lines.OnPush=BEGIN// PT0007.beginGenJnlLine.RESET;GenJnlLine := Rec;GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");IF NOT GenJnlLine.FIND('-') THENERROR(Text1110000);GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);// End of the deleted lines.// PT0007.end                                                            END;                                                             }...

    Değiştirme kodu 3

    ...  { ID=1110051;                                                     MenuLevel=1;                                                     CaptionML=ENU=Export;// Add the following lines.OnPush=VARSelection@1170000001 : Integer;BEGIN// PT0007.beginGenJnlLine.COPYFILTERS(Rec);GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");GenJnlLine.SETRANGE("Bank Payment Type","Bank Payment Type"::"Electronic Payment");GenJnlLine.SETRANGE("Elect. Pmts Exported",FALSE);IF GenJnlLine.ISEMPTY THENERROR(Text1100000);Selection := STRMENU(ExportFormatTypeTxt,2);CASE Selection OF1:BEGINIF ExportedPmtExist(GenJnlLine) THENIF NOT CONFIRM(ExportAgainQst) THENEXIT;CheckDocNos(GenJnlLine);CODEUNIT.RUN(CODEUNIT::"SEPA CT-Export File",GenJnlLine);GenJnlLine.MODIFYALL("Export File Name",'');GenJnlLine.MODIFYALL("Elect. Pmts Exported",TRUE);END;2:BEGINGenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);END;END;// End of the added lines.// PT0007.end                                                            END;                                                             }...

    Varolan kodu 4

    ...   // PT0007.end                                                            END;                                                             }                                                   { ID=65;                                                     CaptionML=ENU=Void Check;                                                     OnPush=BEGIN...

    Değiştirme kodu 4

    ...   // PT0007.end                                                            END;                                                             }// Add the following lines.{ ID=1170000002;PushAction=RunObject;MenuLevel=1;CaptionML=ENU=Show Export File Errors;RunObject=Form 1228;RunFormLink=Journal Template Name=FIELD(Journal Template Name),Journal Batch Name=FIELD(Journal Batch Name) }// End of the added lines.{ ID=65;                                                     CaptionML=ENU=Void Check;                                                     OnPush=BEGIN...
  2. Global değişkenler kodu ödeme günlüğü formunda (256) aşağıdaki gibi değiştirin:Varolan kodu

    ... ShortcutDimCode@1018 : ARRAY [8] OF Code[20];      OpenedFromBatch@1019 : Boolean;      Text1110000@1110000 : TextConst 'ENU=Nothing to export.';    LOCAL PROCEDURE UpdateBalance@1();    BEGIN...

    Kod değiştirme

    ...     ShortcutDimCode@1018 : ARRAY [8] OF Code[20];      OpenedFromBatch@1019 : Boolean;      Text1110000@1110000 : TextConst 'ENU=Nothing to export.';// Add the following lines.ExportFormatTypeTxt@1170000001 : TextConst 'ENU=SEPA,PS2';ExportAgainQst@1170000000 : TextConst 'ENU=One or more of the selected lines have already been exported. Do you want to export again?';// End of the added lines.    LOCAL PROCEDURE UpdateBalance@1();    BEGIN...
  3. Ödeme günlüğü formunda (256) ExportedPmtExist işlev kodu aşağıdaki gibi değiştirin:Varolan kodu

    ...      CurrForm.TotalBalance.VISIBLE := ShowTotalBalance;    END;    BEGIN    {      <changelog>...

    Kod değiştirme

    ...         CurrForm.TotalBalance.VISIBLE := ShowTotalBalance;    END;// Add the following lines.LOCAL PROCEDURE ExportedPmtExist@1170000001(GenJournalLine@1170000000 : Record 81) : Boolean;VARGenJnlLine3@1170000001 : Record 81;BEGINGenJnlLine3.COPYFILTERS(GenJnlLine);GenJnlLine3.SETRANGE("Exported to Payment File",TRUE);EXIT(NOT GenJnlLine3.ISEMPTY);END;LOCAL PROCEDURE CheckRecipientBankAccount@1170000006();BEGINIF ("Account No." <> xRec."Account No.") THENVALIDATE("Recipient Bank Account",'');END;// End of the added lines.    BEGIN    {      <changelog>...
  4. Ödeme günlüğü sayfa (256) Özellikleri'nde kod aşağıdaki gibi değiştirin:Varolan kodu

    ... END;                               END;                                }      { 1900000004;0 ;ActionContainer;                      ActionContainerType=ActionItems }      { 40      ;1   ;ActionGroup;...

    Kod değiştirme

    ... END;                               END;                                }// Add the following lines.{ 1110050 ;2   ;ActionGroup;CaptionML=ENU=Electronic Payments }{ 1110051 ;3   ;Action    ;CaptionML=ENU=Export;OnAction=VARSelection@1170000001 : Integer;BEGIN// PT0007.beginGenJnlLine.RESET;GenJnlLine.COPYFILTERS(Rec);GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");IF NOT GenJnlLine.FIND('-') THENERROR(Text1110000);Selection := STRMENU(ExportFormatTypeTxt,2);CASE Selection OF1:BEGINIF ExportedPmtExist(GenJnlLine) THENIF NOT CONFIRM(ExportAgainQst) THENEXIT;CODEUNIT.RUN(CODEUNIT::"SEPA CT-Export File",GenJnlLine);END;2:BEGINGenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);END;END;// PT0007.endEND;}{ 1110052 ;3   ;Action    ;CaptionML=ENU=Void;OnAction=VARVoidElecPayments@1110010 : Report 13396;BEGIN// PT0007.beginGenJnlLine.RESET;GenJnlLine := Rec;GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");CLEAR(VoidElecPayments);VoidElecPayments.SETTABLEVIEW(GenJnlLine);VoidElecPayments.RUNMODAL;// PT0007.endEND;}{ 1170000002;3 ;Action    ;CaptionML=ENU=Show Export File Errors;RunObject=Page 1228;RunFormLink=Journal Template Name=FIELD(Journal Template Name),Journal Batch Name=FIELD(Journal Batch Name) }// End of the added lines.{ 1900000004;0 ;ActionContainer;                      ActionContainerType=ActionItems }      { 40      ;1   ;ActionGroup;...
  5. Ödeme günlüğü sayfa (256) denetimlerindeki kod aşağıdaki gibi değiştirin:Varolan kodu 1

    ... OnValidate=BEGIN                             GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);                             ShowShortcutDimCode(ShortcutDimCode);                           END;                            }...

    Değiştirme kodu 1

    ...OnValidate=BEGIN                             GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);                             ShowShortcutDimCode(ShortcutDimCode);// Add the following line.CheckRecipientBankAccount;// End of the added line.                           END;                            }...

    Varolan kodu 2

    ...  SourceExpr="Reason Code";                Visible=FALSE }    { 24  ;1   ;Group      }    { 1903561801;2;Group  ;...

    Değiştirme kodu 2

    ...  SourceExpr="Reason Code";                Visible=FALSE }// Add the follwing lines.{ 1170000000;2;Field  ;SourceExpr="Recipient Bank Account" }// End of the added lines.    { 24  ;1   ;Group      }    { 1903561801;2;Group  ;...
  6. Global değişkenler kodu ödeme günlüğü sayfasında (256) aşağıdaki gibi değiştirin:Varolan kodu

    ...ShowTotalBalance@1017 : Boolean;      ShortcutDimCode@1018 : ARRAY [8] OF Code[20];      OpenedFromBatch@1019 : Boolean;      BalanceVisible@19073040 : Boolean INDATASET;      TotalBalanceVisible@19063333 : Boolean INDATASET;...

    Kod değiştirme

    ... ShowTotalBalance@1017 : Boolean;      ShortcutDimCode@1018 : ARRAY [8] OF Code[20];      OpenedFromBatch@1019 : Boolean;// Add the following lines.Text1110000@1110000 : TextConst 'ENU=Nothing to export.';ExportFormatTypeTxt@1170000001 : TextConst 'ENU=SEPA,PS2';ExportAgainQst@1170000000 : TextConst 'ENU=One or more of the selected lines have already been exported. Do you want to export again?';// End of the added lines.BalanceVisible@19073040 : Boolean INDATASET;      TotalBalanceVisible@19063333 : Boolean INDATASET;...
  7. ExportedPmtExist işlevinde ödeme günlüğü sayfa (256) kodu aşağıdaki gibi değiştirin:Varolan kodu

    ... TotalBalanceVisible := ShowTotalBalance;    END;    LOCAL PROCEDURE CurrentJnlBatchNameOnAfterVali@19002411();    BEGIN      CurrPage.SAVERECORD;...

    Kod değiştirme

    ...  TotalBalanceVisible := ShowTotalBalance;    END;// Add the following lines.LOCAL PROCEDURE ExportedPmtExist@1170000001(GenJournalLine@1170000000 : Record 81) : Boolean;VARGenJnlLine3@1170000001 : Record 81;BEGINGenJnlLine3.COPYFILTERS(GenJnlLine);GenJnlLine3.SETRANGE("Exported to Payment File",TRUE);EXIT(NOT GenJnlLine3.ISEMPTY);END;LOCAL PROCEDURE CheckRecipientBankAccount@1170000006();BEGINIF ("Account No." <> xRec."Account No.") THENVALIDATE("Recipient Bank Account",'');END;// End of the added lines.    LOCAL PROCEDURE CurrentJnlBatchNameOnAfterVali@19002411();    BEGIN      CurrPage.SAVERECORD;...
  8. SEPA CT pain.001.001.03 xmlport (1000) Özellikleri'nde kodu aşağıdaki gibi değiştirin:Varolan kodu

    ... ELEMENTS  {    { [{0EA1BA75-FB56-4C05-946C-A299E4809E84}];  ;Document            ;Element ;Table   ;                                                  SourceTable=Table81 }    { [{596E5521-E230-4D9C-B0F7-DF29388F515B}];1 ;xmlns               ;Attribute;Text   ;                                                  VariableName=XMLNamespace }...

    Kod değiştirme

    ...  {    { [{0EA1BA75-FB56-4C05-946C-A299E4809E84}];  ;Document            ;Element ;Table   ;                                                  SourceTable=Table81;// Add the following line.MaxOccurs=Once }// End of the added line.    { [{596E5521-E230-4D9C-B0F7-DF29388F515B}];1 ;xmlns               ;Attribute;Text   ;                                                  VariableName=XMLNamespace }...

Ö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ü

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

Ayrıca, KB3036841 yüklü olması gerekir.

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.

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

Daha fazla seçenek mi istiyorsunuz?

Abonelik avantajlarını keşfedin, eğitim kurslarına göz atın, cihazınızın güvenliğini nasıl sağlayacağınızı öğrenin ve daha fazlasını yapın.

Topluluklar, soru sormanıza ve soruları yanıtlamanıza, geri bildirimde bulunmanıza ve zengin bilgiye sahip uzmanlardan bilgi almanıza yardımcı olur.