CAMT dosya bilgileri Microsoft Dynamics NAV 2009 Felemenkçe sürümüne 11000006 tablosuna transfer edilmez

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, uygulamadan önce test kodu denetimli bir ortamda üretim bilgisayarlarınıza düzeltmeler giderir.

Bu sorunu gidermek için şu adımları izleyin:

1. Global değişkenler kodunda CBG hesap ekstresi mutabakatını kod (11000006) aşağıdaki gibi değiştirin:
   Varolan kodu

   ...PaymenthistorylineRec@1000017 : Record 11000002;
         TransactionModeRec@1000018 : Record 11000004;
         TempBankAccount@1000025 : TEMPORARY Record 270;
         Name@1000021 : Code[80];
         Address@1000022 : Code[40];
         City@1000023 : Code[40];
         Identification@1000024 : Code[40];
         NumberOfDocumentNumbers@1000028 : Integer;
         NumberOfLinesProcessed@1000029 : Integer;
         NumberOfLinesChanged@1000030 : Integer;
   ...
   

   Kod değiştirme

   ...PaymenthistorylineRec@1000017 : Record 11000002;
         TransactionModeRec@1000018 : Record 11000004;
         TempBankAccount@1000025 : TEMPORARY Record 270;
         NumberOfDocumentNumbers@1000028 : Integer;
         NumberOfLinesProcessed@1000029 : Integer;
         NumberOfLinesChanged@1000030 : Integer;
   ...
   

2. CBG hesap ekstresi mutabakatını kod (11000006) MatchCBGStatementLine işlevinde kodu aşağıdaki gibi değiştirin:
   Varolan kodu 1

   ...PaymentHistoryFound@1000004 : Boolean;
         i@1000005 : Integer;
         strFilter@1000006 : Text[250];
       BEGIN
         MakeTempfile;
         NumberOfLinesProcessed := NumberOfLinesProcessed + 1;
   ...
   

   Değiştirme kodu 1

   ...PaymentHistoryFound@1000004 : Boolean;
         i@1000005 : Integer;
         strFilter@1000006 : Text[250];
         Name@1000007 : Code[80];
         Address@1000008 : Code[80];
         City@1000009 : Code[80];
         Identification@1000010 : Code[20];
       BEGIN
         MakeTempfile;
         NumberOfLinesProcessed := NumberOfLinesProcessed + 1;
   ...
   

   Varolan kodu 2

   ...PostDesRec."Information Type"::"City Acct. Holder":
                 City := PostDesRec.Description;
               PostDesRec."Information Type"::"Payment Identification":
                 Identification := PostDesRec.Description;
             END;
           UNTIL PostDesRec.NEXT = 0;
   ...
   

   Değiştirme kodu 2

   ...PostDesRec."Information Type"::"City Acct. Holder":
                 City := PostDesRec.Description;
               PostDesRec."Information Type"::"Payment Identification":
                 Identification := COPYSTR(PostDesRec.Description,1,MAXSTRLEN(Identification));
             END;
           UNTIL PostDesRec.NEXT = 0;
   ...
   

   Varolan kodu 3

   ...IF NOT RecChanged THEN BEGIN
             IF Name <> '' THEN BEGIN
               IF CBGStatementlineRec.Credit > 0 THEN BEGIN
                 IF FindNAC(Name, Address, City, TempRec."Source Type"::Customer,CBGStatementlineRec."Account No.") THEN BEGIN
                   CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Customer;
                   CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
                   CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
   ...
   

   Değiştirme kodu 3

   ...IF NOT RecChanged THEN BEGIN
             IF Name <> '' THEN BEGIN
               IF CBGStatementlineRec.Credit > 0 THEN BEGIN
                 IF FindSourceNoByNAC(Name,Address,City,TempRec."Source Type"::Customer,CBGStatementlineRec."Account No.") THEN BEGIN
                   CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Customer;
                   CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
                   CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
   ...
   

   Varolan kodu 4

   ...RecChanged := TRUE;
                 END;
               END ELSE BEGIN
                 IF FindNAC(Name, Address, City, TempRec."Source Type"::Vendor,CBGStatementlineRec."Account No.") THEN BEGIN
                   CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Vendor;
                   CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
                   CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
   ...
   

   Değiştirme kodu 4

   ...RecChanged := TRUE;
                 END;
               END ELSE BEGIN
                 IF FindSourceNoByNAC(Name,Address,City,TempRec."Source Type"::Vendor,CBGStatementlineRec."Account No.") THEN BEGIN
                   CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Vendor;
                   CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
                   CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
   ...
   

3. CBG hesap ekstresi mutabakatını kod (11000006) FindNAC işlevinde kodu aşağıdaki gibi değiştirin:
   Varolan kodu

   ...END;
       END;
   
       PROCEDURE FindNAC@1000005(Name@1000001 : Code[80];Address@1000002 : Code[80];City@1000003 : Code[80];"Source Type"@1000004 : Integer;VAR SourcenumberFound@1000005 : Code[20]) found@1000000 : Boolean;
       VAR
         NameResultTemp@1000006 : TEMPORARY Record 11000008;
         AddressResultTemp@1000007 : TEMPORARY Record 11000008;
         CityResultTemp@1000008 : TEMPORARY Record 11000008;
       BEGIN
         found := FALSE;
   
         IF (Name = '') OR (Address = '') OR (City = '') THEN
           EXIT(FALSE);
   
         NameResultTemp.SETCURRENTKEY("Source Type", "Source No.");
         AddressResultTemp.SETCURRENTKEY("Source Type", "Source No.");
         CityResultTemp.SETCURRENTKEY("Source Type", "Source No.");
   
         TempRec.SETRANGE("Source Type","Source Type");
         TempRec.SETRANGE("Data Type",TempRec."Data Type"::Name);
         TempRec.SETRANGE(Word,COPYSTR(Name,1,MAXSTRLEN(TempRec.Word)));
         IF TempRec.FIND('-') THEN
           REPEAT
             NameResultTemp := TempRec;
             NameResultTemp.INSERT;
           UNTIL TempRec.NEXT = 0;
   
         TempRec.RESET;
         TempRec.SETRANGE("Source Type","Source Type");
         TempRec.SETRANGE("Data Type",TempRec."Data Type"::Street);
         TempRec.SETRANGE(Word,COPYSTR(Address,1,MAXSTRLEN(TempRec.Word)));
         IF TempRec.FIND('-') THEN
           REPEAT
             NameResultTemp.SETRANGE("Source Type",TempRec."Source Type");
             NameResultTemp.SETRANGE("Source No.",TempRec."Source No.");
             IF NameResultTemp.FIND('-') THEN BEGIN
               AddressResultTemp := NameResultTemp;
               AddressResultTemp.INSERT;
             END;
           UNTIL TempRec.NEXT = 0;
   
         TempRec.RESET;
         TempRec.SETRANGE("Source Type","Source Type");
         TempRec.SETRANGE("Data Type",TempRec."Data Type"::City);
         TempRec.SETRANGE(Word,COPYSTR(City,1,MAXSTRLEN(TempRec.Word)));
         IF TempRec.FIND('-') THEN
           REPEAT
             AddressResultTemp.SETRANGE("Source Type",TempRec."Source Type");
             AddressResultTemp.SETRANGE("Source No.",TempRec."Source No.");
             IF AddressResultTemp.FIND('-') THEN BEGIN
               CityResultTemp := AddressResultTemp;
               CityResultTemp.INSERT;
             END;
           UNTIL TempRec.NEXT = 0;
   
         IF CityResultTemp.FIND('-') THEN BEGIN
           SourcenumberFound := CityResultTemp."Source No.";
           found := CityResultTemp.NEXT = 0;
         END;
       END;
   ...
   

   Kod değiştirme

   ...END;
       END;
   
       PROCEDURE FindSourceNoByNAC@1000005(Name@1000001 : Code[80];Address@1000002 : Code[80];City@1000003 : Code[80];SourceType@1000004 : Option;VAR FoundSourceNo@1000005 : Code[20]) Found@1000000 : Boolean;
       VAR
         TempFoundRecBuf@1000006 : TEMPORARY Record 11000008;
       BEGIN
         IF (Name = '') AND (Address = '') AND (City = '') THEN
           EXIT(FALSE);
   
         IF FindSourceNoByDataType(TempRec."Data Type"::Name,Name,TempFoundRecBuf,SourceType,FoundSourceNo) THEN
           EXIT(TRUE);
         IF FindSourceNoByDataType(TempRec."Data Type"::Street,Address,TempFoundRecBuf,SourceType,FoundSourceNo) THEN
           EXIT(TRUE);
         IF FindSourceNoByDataType(TempRec."Data Type"::City,City,TempFoundRecBuf,SourceType,FoundSourceNo) THEN
           EXIT(TRUE);
         EXIT(FALSE);
       END;
   
       LOCAL PROCEDURE FindSourceNoByDataType@1000016(DataType@1000001 : Option;Value@1000002 : Code[80];VAR TempFoundRecBuf@1000003 : TEMPORARY Record 11000008;SourceType@1000005 : Option;VAR FoundSourceNo@1000000 : Code[20]) FoundOne : Boolean;
       BEGIN
         IF Value = '' THEN
           EXIT(FALSE);
   
         TempRec.RESET;
         TempFoundRecBuf.RESET;
         IF TempFoundRecBuf.ISEMPTY THEN
           FoundOne := CollectMatches(SourceType,DataType,Value,TempFoundRecBuf) = 1
         ELSE
           FoundOne := CollectDependentMatches(DataType,Value,TempFoundRecBuf) = 1;
         IF FoundOne THEN BEGIN
           TempFoundRecBuf.FINDFIRST;
           FoundSourceNo := TempFoundRecBuf."Source No.";
         END;
       END;
   ...
   

4. CBG hesap ekstresi mutabakatını kod (11000006) CollectMatches işlevinde kodu aşağıdaki gibi değiştirin:
   Varolan kodu

   ...END;
       END;
   
       LOCAL PROCEDURE MakeTempfile@1000006();
       VAR
         NumberRec@1000000 : Integer;
   ...
   

   Kod değiştirme

   ...END;
       END;
   
       LOCAL PROCEDURE CollectMatches@1000017(SourceType@1000000 : Option;DataType@1000003 : Option;Value@1000002 : Code[80];VAR TempFoundRecBuf@1000001 : TEMPORARY Record 11000008) : Integer;
       BEGIN
         TempRec.RESET;
         TempRec.SETRANGE("Source Type",SourceType);
         TempRec.SETRANGE("Data Type",DataType);
         TempRec.SETRANGE(Word,COPYSTR(Value,1,MAXSTRLEN(TempRec.Word)));
         IF TempRec.FINDSET THEN
           REPEAT
             TempFoundRecBuf := TempRec;
             TempFoundRecBuf.INSERT;
           UNTIL TempRec.NEXT = 0;
         TempFoundRecBuf.RESET;
         TempFoundRecBuf.SETRANGE("Data Type",DataType);
         EXIT(TempFoundRecBuf.COUNT);
       END;
   
       PROCEDURE CollectDependentMatches@1000019(DataType@1000002 : Option;Value@1000001 : Code[80];VAR TempFoundRecBuf@1000000 : TEMPORARY Record 11000008) : Integer;
       VAR
         CurrFoundRecBuf@1000004 : Record 11000008;
       BEGIN
         TempFoundRecBuf.FINDSET;
         REPEAT
           CurrFoundRecBuf.COPY(TempFoundRecBuf);
           IF TempRec.GET(
                COPYSTR(Value,1,MAXSTRLEN(TempRec.Word)),TempFoundRecBuf."Source Type",TempFoundRecBuf."Source No.",DataType)
           THEN BEGIN
             TempFoundRecBuf := TempRec;
             IF TempFoundRecBuf.INSERT THEN;
           END;
           TempFoundRecBuf.COPY(CurrFoundRecBuf);
         UNTIL TempFoundRecBuf.NEXT = 0;
         TempFoundRecBuf.RESET;
         TempFoundRecBuf.SETRANGE("Data Type",DataType);
         EXIT(TempFoundRecBuf.COUNT);
       END;
   
       LOCAL PROCEDURE MakeTempfile@1000006();
       VAR
         NumberRec@1000000 : Integer;
   ...
   

Önkoşullar

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

• Microsoft Dynamics NAV 2009 R2 Felemenkçe sürümü

• Microsoft Dynamics NAV 2009 SP1 Felemenkçe sürümü

Kaldırma bilgileri

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