لا يتم نقل معلومات الملف كامت إلى جدول 11000006 في إصدار اللغة الهولندية من Microsoft Dynamics NAV 2009

يتم تحويل كافة معلومات في الملف كامت الذي تم استيراده إلى الجدول إضافة بند كشف CBG في إصدار اللغة الهولندية من Microsoft Dynamics NAV 2009. اتبع الخطوات الموجودة في المقطع تغييرات التعليمات البرمجية لحل هذه المشكلة. تحدث هذه المشكلة في المنتجات التالية:

إصدار اللغة الهولندية من Microsoft Dynamics NAV 2009 R2
إصدار اللغة الهولندية من Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

الحل

معلومات الإصلاح العاجل

الآن يتوفر إصلاح عاجل معتمد من Microsoft. ومع ذلك، هو فقط لتصحيح المشكلة الموضحة في هذه المقالة. تطبيقها فقط على الأنظمة التي تواجه هذه المشكلة بالتحديد. قد يتم إجراء اختبارات إضافية على هذا الإصلاح العاجل. ولذلك، إذا لم يكن تأثير المشكلة كبيرا، نوصي بالانتظار حتى الإصدار التالي من حزمة الخدمة Microsoft Dynamics NAV 2009 أو الإصدار Microsoft Dynamics التنقل التالي الذي يحتوي على هذا الإصلاح العاجل.

ملاحظة: في بعض الحالات، يحدد المصروفات التي تحتسب عادة لدعم قد يتم إلغاء المكالمات إذا "أخصائي الدعم التقني" ل Microsoft Dynamics والمنتجات ذات الصلة أن تحديثًا معيناً سوف يعمل على حل المشكلة. سيتم اضافة تكاليف الدعم المعتادة على أسئلة الدعم الإضافية والمشاكل التي لا يأهل على حلها للتحديث المطلوب.

معلومات التثبيت

تقدم Microsoft أمثلة برمجية للتوضيح فقط، دون أي ضمان صريح أو ضمني. هذا يتضمن، على سبيل المثال لا الحصر، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يساعد مهندسو الدعم لدى Microsoft شرح وظيفة إجراء محدد. ومع ذلك، لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة.

ملاحظة: قبل تثبيت هذا الإصلاح العاجل، تأكد من تسجيل خروج النظام كافة المستخدمين عميل Microsoft Dynamics التنقل. ويشمل ذلك خدمات Microsoft Dynamics NAV تطبيق الملقم (NAS). يجب أن يكون عميل فقط المستخدم الذي تم تسجيل دخوله عند تطبيق هذا الإصلاح العاجل.

لتطبيق هذا الإصلاح العاجل، يجب أن يكون لديك ترخيص مطور.

نوصي بأن تعيين حساب المستخدم في إطار عمليات تسجيل دخول Windows أو في إطار "قاعدة بيانات تسجيل الدخول" بمعرف دور "رئيسي". إذا كان حساب المستخدم لا يمكن تعيين معرف دور "سوبر"، يجب التحقق من أن حساب المستخدم يملك الأذونات التالية:

إذن "تعديل" للكائن الذي سيتم تغيير.
إذن Execute للكائن 5210 معرف كائن النظام و نظام 9015 معرف الكائن

الكائن.

ملاحظة: ليس لديك حق لمخازن البيانات ما لم يكن لديك لإجراء إصلاح البيانات.

تغييرات التعليمات البرمجية

ملاحظة: دوماً التعليمات البرمجية للاختبار إصلاح في بيئة تسيطر عليها قبل تطبيق إصلاحات لأجهزة الكمبيوتر الإنتاج.

لحل هذه المشكلة، اتبع الخطوات التالية.

تغيير التعليمات البرمجية في "المتغيرات العمومية" في كوديونيت تسوية كشف CBG (11000006) كما يلي:
التعليمات البرمجية الموجودة

...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;
...

استبدال التعليمات البرمجية

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

تغيير التعليمات البرمجية في وظيفة ماتشكبجستاتيمينتليني في كوديونيت تسوية كشف CBG (11000006) كما يلي:
التعليمات البرمجية الموجودة 1

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

استبدال رمز 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;
...

التعليمات البرمجية الموجودة 2

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

استبدال رمز 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;
...

التعليمات البرمجية الموجودة 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;
...

استبدال رمز 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;
...

التعليمات البرمجية الموجودة 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;
...

استبدال رمز 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;
...

تغيير التعليمات البرمجية في وظيفة فيندناك في كوديونيت تسوية كشف CBG (11000006) كما يلي:
التعليمات البرمجية الموجودة

...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;
...

استبدال التعليمات البرمجية

...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;
...

تغيير التعليمات البرمجية في وظيفة كوليكتماتشيس في كوديونيت تسوية كشف CBG (11000006) كما يلي:
التعليمات البرمجية الموجودة

...END;
    END;

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

استبدال التعليمات البرمجية

...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;
...

المتطلبات الأساسية

يجب أن يكون لديك أحد المنتجات التالية مثبتة لتطبيق هذا الإصلاح العاجل:

إصدار اللغة الهولندية من Microsoft Dynamics NAV 2009 R2
إصدار اللغة الهولندية من Microsoft Dynamics NAV 2009 SP1

معلومات الإزالة

لا يمكنك إزالة هذا الإصلاح العاجل.

الحالة

أقرت Microsoft أن هذه مشكلة في منتجات Microsoft المسردة في قسم "ينطبق على".

ملاحظة: وهذا المقال "النشر السريع" التي تم إنشاؤها مباشرة من داخل مؤسسة دعم Microsoft. وتقدم المعلومات الواردة في هذه الوثيقة كاستجابه للمسائل الناشئة. نتيجة للسرعة في توفيره، قد تتضمن الأخطاء المطبعية المواد ويمكن مراجعة في أي وقت دون سابق إنذار. راجع شروط الاستخداملاعتبارات أخرى.

لا يتم نقل معلومات الملف كامت إلى جدول 11000006 في إصدار اللغة الهولندية من Microsoft Dynamics NAV 2009

الحل

معلومات الإصلاح العاجل

معلومات التثبيت

تغييرات التعليمات البرمجية

المتطلبات الأساسية

معلومات الإزالة

الحالة

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!