تنطبق هذه المقالة على Microsoft Dynamics NAV للغات اللغة الألمانية (de).
الأعراض
في الإصدار الألماني من Microsoft Dynamics NAV مع تضمين المدفوعات AddOn، عند إنشاء ملف دفع خارجي، تواجه مشاكل التصدير غير الصحيحة التالية:
- افترض أنك تقوم بإنشاء ملف الدفع الخارجي الذي يحتوي على حساب رسوم. إذا كان حساب الرسوم يختلف عن الحساب البنكي المستخدم للدفع، فستلاحظ كتابة رقم حساب بنكي غير صحيح في ملف الدفع.
- يتم تعبئة الحقل V-Satz (10) في الملف في "N" بشكل غير متوقع. تتوقع أن تكون البيانات الموجودة في الحقل فارغة.
- يتم تعبئة الحقل T-Satz (10a) في الملف في "DE" بشكل غير متوقع. تتوقع أن تكون البيانات الموجودة في الحقل "US" لأن المورد من الولايات المتحدة والحساب البنكي فقط في DE.
تحدث هذه المشكلة في المنتجات التالية:
- الإصدار الألماني من Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- الإصدار الألماني من Microsoft Dynamics NAV 2009 R2
الدقة
معلومات الإصلاح العاجل
يتوفر الآن إصلاح عاجل مدعوم من Microsoft. ومع ذلك، فإنه يهدف فقط إلى تصحيح المشكلة الموضحة في هذه المقالة. قم بتطبيقه فقط على الأنظمة التي تواجه هذه المشكلة المحددة. قد يتلقى الإصلاح العاجل هذا اختبارا إضافيا. لذلك، إذا لم تتأثر بشدة بهذه المشكلة، نوصي بالانتظار حتى حزمة خدمة Microsoft Dynamics NAV 2009 التالية أو إصدار Microsoft Dynamics NAV التالي الذي يحتوي على هذا الإصلاح العاجل.
ملاحظة في حالات خاصة، قد يتم إلغاء الرسوم التي يتم تكبدها عادة لمكالمات الدعم إذا حدد محترف الدعم التقني ل Microsoft Dynamics والمنتجات ذات الصلة أن تحديثا معينا سيحل مشكلتك. سيتم تطبيق تكاليف الدعم المعتادة على أسئلة الدعم الإضافية والمشكلات غير المؤهلة للتحديث المحدد المعني.
معلومات التثبيت
توفر Microsoft أمثلة برمجة للتوضيح فقط، دون ضمان سواء تم التعبير عنه أو تضمينه. وهذا يشمل، على سبيل المثال لا الحصر، الضمانات الضمنية للقابلية التجارية أو اللياقة البدنية لغرض معين. تفترض هذه المقالة أنك على دراية بلغة البرمجة التي يتم توضيحها ومع الأدوات المستخدمة لإنشاء إجراءات وتصحيح الأخطاء. يمكن لمهندسي دعم Microsoft المساعدة في شرح وظائف إجراء معين، لكنهم لن يعدلوا هذه الأمثلة لتوفير وظائف إضافية أو إجراءات بناء لتلبية متطلباتك المحددة.
ملاحظة قبل تثبيت هذا الإصلاح العاجل، تحقق من تسجيل خروج جميع مستخدمي عميل Microsoft Navision من النظام. يتضمن ذلك مستخدمي عميل Microsoft Navision Application Services (NAS). يجب أن تكون المستخدم العميل الوحيد الذي قام بتسجيل الدخول عند تنفيذ هذا الإصلاح العاجل.
لتنفيذ هذا الإصلاح العاجل، يجب أن يكون لديك ترخيص مطور.
نوصي بتعيين معرف دور "SUPER" لحساب المستخدم في نافذة تسجيلات الدخول إلى Windows أو في نافذة تسجيلات دخول قاعدة البيانات. إذا تعذر تعيين معرف دور "SUPER" لحساب المستخدم، فيجب عليك التحقق من أن حساب المستخدم لديه الأذونات التالية:
- إذن تعديل للكائن الذي ستقوم بتغييره.
- إذن Execute للكائن System Object ID 5210 ولعنصر System Object ID 9015.
ملاحظة ليس لديك حقوق في مخازن البيانات ما لم يكن لديك لإجراء إصلاح البيانات.
تغييرات التعليمات البرمجية
ملاحظة اختبر دائما إصلاحات التعليمات البرمجية في بيئة خاضعة للرقابة قبل تطبيق الإصلاحات على أجهزة الكمبيوتر الإنتاجية.
لحل هذه المشكلة، اتبع الخطوات التالية:
تغيير التعليمات البرمجية في الدالة Open Exportfile في وحدة التعليمات البرمجية AZV (5001905) كما يلي:
تغيير تعريف المتغير العمومي كما يليالتعريف القديم: Dtaus: Code[150];
تعريف جديد: Dtaus: Code[260];
التعليمات البرمجية الموجودة
... CompanyInfo.GET; // Delete the following line. NameOfCompany := CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27)); FormatAddr.BankAcc(AddrArray,BankAccount); ...رمز الاستبدال
... CompanyInfo.GET; // Add the following line. NameOfCompany := COPYSTR(CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27)),1,MAXSTRLEN(NameOfCompany)); FormatAddr.BankAcc(AddrArray,BankAccount); ...تغيير التعليمات البرمجية في الدالة FormatBankAcc في وحدة التعليمات البرمجية AZV (5001905) كما يلي:
إنشاء متغير محلي جديد BankAccount3 كما يلي:BankAccount3@ : سجل 270
التعليمات البرمجية الموجودة
... IF (PaymLedgEntry."Account No. Charges"<>") AND (PaymLedgEntry."Account No. Charges"<>PaymLedgEntry."Bank Account No.") THEN BEGIN // Delete the following lines. BankAccount.GET(PaymLedgEntry."Account No. Charges"); "Bank Code" := BankAccount."Bank Branch No."; IF STRLEN("Bank Code") = 0 THEN ERROR(Text1105400002,BankAccount."No."); BankCodeBank := FormatBankCode("Bank Code"); IF STRLEN(BankCodeBank) <> 8 THEN ERROR(Text1105400003,BankAccount."No."); BankCodeRec3 := BankCodeBank; Account := BankAccount."Bank Account No."; IF STRLEN(Account) = 0 THEN ERROR(Text1105400004,BankAccount."No."); AccountBank := FormatAccount(Account); IF STRLEN(AccountBank) >10 THEN ERROR( Text1105400005,BankAccount."No."); AccountRec3 := AccountBank; // End of the deleted lines. END ELSE BEGIN BankCodeRec3 := PADSTR('',8,'0'); AccountRec3 := PADSTR('',10,'0'); END; ...رمز الاستبدال
... IF (PaymLedgEntry."Account No. Charges"<>") AND (PaymLedgEntry."Account No. Charges"<>PaymLedgEntry."Bank Account No.") THEN BEGIN // Add the following lines. BankAccount3.GET(PaymLedgEntry."Account No. Charges"); IF STRLEN(BankAccount3."Bank Branch No.") = 0 THEN ERROR(Text1105400002,BankAccount3."No."); BankCodeRec3 := FormatBankCode(BankAccount3."Bank Branch No."); IF STRLEN(BankCodeRec3) <> 8 THEN ERROR(Text1105400003,BankAccount3."No."); IF STRLEN(BankAccount3."Bank Account No.") = 0 THEN ERROR(Text1105400004,BankAccount3."No."); AccountRec3 := FormatAccount(BankAccount3."Bank Account No."); IF STRLEN(AccountRec3) >10 THEN ERROR( Text1105400005,BankAccount3."No."); //End of the added lines. END ELSE BEGIN BankCodeRec3 := PADSTR('',8,'0'); AccountRec3 := PADSTR('',10,'0'); END; ...تغيير التعليمات البرمجية في الدالة VendBankFormat في وحدة التعليمات البرمجية AZV (5001905) كما يلي:
التعليمات البرمجية الموجودة... ERROR(Text1105400129,Country."Bank Country Code"); END; // Delete the following line. VendCountry := Country."Bank Country Code"; IF PostedAZV.IBAN <>'' THEN BEGIN Account := DELCHR(PostedAZV.IBAN); Account := CheckFormat(UPPERCASE(PADSTR(Account,34,' '))); ...رمز الاستبدال
... ERROR(Text1105400129,Country."Bank Country Code"); END; // Add the following line. VendCountry := PostedAZV."Country Code"; IF PostedAZV.IBAN <> '' THEN BEGIN Account := DELCHR(PostedAZV.IBAN); Account := CheckFormat(UPPERCASE(PADSTR(Account,34,' '))); ...تغيير التعليمات البرمجية في الدالة PaymFileHeader في وحدة التعليمات البرمجية AZV (5001905) كما يلي:
التعليمات البرمجية الموجودة... IF STRLEN(CompanyNo) <>8 THEN ERROR(Text1105400137,BankAccount."No."); END; Account := BankAccount."Bank Account No."; IF STRLEN(Account) = 0 THEN ...رمز الاستبدال
... IF STRLEN(CompanyNo) <>8 THEN ERROR(Text1105400137,BankAccount."No."); // Add the following lines. END ELSE BEGIN IF CompanyNo = '' THEN CompanyNo := PADSTR('',8,'0'); // End of the added lines. END; Account := BankAccount."Bank Account No."; IF STRLEN(Account) = 0 THEN ...تغيير التعليمات البرمجية في الدالة CreateRegistration في وحدة التعليمات البرمجية AZV (5001905) كما يلي:
حذف المتغير المحلي InfoTransitUnsalableInvL: Code[1]التعليمات البرمجية الموجودة
... PassagingTransitL := 'N'; BrokenTransitL := 'N'; // Delete the following line. InfoTransitUnsalableInvL := 'N'; InfoTransitUnsalableForeignL := 'N'; IF RegistrationSet."Passaging Transit" THEN PassagingTransitL := 'J'; IF RegistrationSet."Broken Transit" THEN BEGIN BrokenTransitL := 'J'; RegistrationSet.TESTFIELD("Add. Information Transit"); Transit := COPYSTR(Transit,1,62) + PADSTR(CheckFormat(FORMAT(UPPERCASE(RegistrationSet."Add. Information Transit"),40)),40,' '); END; // Delete the following lines. IF RegistrationSet."Info Transit unsalable Inv" THEN InfoTransitUnsalableInvL := 'J'; // End of the deleted lines. IF RegistrationSet."Info Transit unsalable forei." THEN InfoTransitUnsalableForeignL := 'J'; Z := Text1105400025 + PADSTR(RegistrationSet."Itemname Trading Goods",27,' ') + NumToString(RegistrationSet."Capitel No. Goods",2,'0') + PADSTR('',7,'0') + PADSTR(BankCountries."Bank Country Short Name",7,' ') + PADSTR(RegistrationSet."Country Code",3,' ') + NumToString(FORMAT(ROUND(MAmount,1,'<'),12,1),12,'0') + PassagingTransitL + BrokenTransitL + // Delete the following line. InfoTransitUnsalableInvL + InfoTransitUnsalableForeignL + Transit; Exportfile.SEEK(Exportfile.POS-2); ...رمز الاستبدال
... PassagingTransitL := 'N'; BrokenTransitL := 'N'; InfoTransitUnsalableForeignL := 'N'; IF RegistrationSet."Passaging Transit" THEN PassagingTransitL := 'J'; IF RegistrationSet."Broken Transit" THEN BEGIN BrokenTransitL := 'J'; RegistrationSet.TESTFIELD("Add. Information Transit"); Transit := COPYSTR(Transit,1,62) + PADSTR(CheckFormat(FORMAT(UPPERCASE(RegistrationSet."Add. Information Transit"),40)),40,' '); END; IF RegistrationSet."Info Transit unsalable forei." THEN InfoTransitUnsalableForeignL := 'J'; Z := Text1105400025 + PADSTR(RegistrationSet."Itemname Trading Goods",27,' ') + NumToString(RegistrationSet."Capitel No. Goods",2,'0') + PADSTR('',7,'0') + PADSTR(BankCountries."Bank Country Short Name",7,' ') + PADSTR(RegistrationSet."Country Code",3,' ') + NumToString(FORMAT(ROUND(MAmount,1,'<'),12,1),12,'0') + PassagingTransitL + BrokenTransitL + // Add the following line. PADSTR('',1,' ') + InfoTransitUnsalableForeignL + Transit; Exportfile.SEEK(Exportfile.POS-2); ...تغيير التعليمات البرمجية في الدالة CheckFormat في وحدة التعليمات البرمجية AZV (5001905) كما يلي:
التعليمات البرمجية الموجودة... WHILE STRPOS(FieldContent,'š') >0 DO FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'š')-1) + Text1105400035 + COPYSTR(FieldContent,STRPOS(FieldContent,'š')+1,MAXSTRLEN(FieldContent)); CheckRec := DELCHR(FieldContent,'=',Text1105400036); ...رمز الاستبدال
... WHILE STRPOS(FieldContent,'š') >0 DO FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'š')-1) + Text1105400035 + COPYSTR(FieldContent,STRPOS(FieldContent,'š')+1,MAXSTRLEN(FieldContent)); // Add the following lines. WHILE STRPOS(FieldContent,'&') > 0 DO FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'&')-1) + ' ' + COPYSTR(FieldContent,STRPOS(FieldContent,'&')+1,MAXSTRLEN(FieldContent)); WHILE STRPOS(FieldContent,'$') > 0 DO FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'$')-1) + ' ' + COPYSTR(FieldContent,STRPOS(FieldContent,'$')+1,MAXSTRLEN(FieldContent)); WHILE STRPOS(FieldContent,'*') > 0 DO FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'*')-1) + ' ' + COPYSTR(FieldContent,STRPOS(FieldContent,'*')+1,MAXSTRLEN(FieldContent)); WHILE STRPOS(FieldContent,'%') > 0 DO FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'%')-1) + ' ' + COPYSTR(FieldContent,STRPOS(FieldContent,'%')+1,MAXSTRLEN(FieldContent)); //End of the added lines. CheckRec := DELCHR(FieldContent,'=',Text1105400036); ...تغيير تعريف معلمة محرك الأقراص في الدالة CheckPaymFile في AZV codeunit (5001905) كما يلي:
التعريف القديم: Dtaus : محرك الأقراص : التعليمات البرمجية[150]؛
تعريف جديد: Dtaus : محرك الأقراص : التعليمات البرمجية[250]؛
تغيير التعليمات البرمجية في الدالة TestCompanyInfo في AZV codeunit (5001905) كما يلي:
التعليمات البرمجية الموجودة... CompanyInfo.GET; // Delete the following line. CompName := CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27)); BankAccount.GET(Bacc); "Bank Code" := BankAccount."Bank Branch No."; IF STRLEN("Bank Code") = 0 THEN ...رمز الاستبدال
... CompanyInfo.GET; // Add the following line. CompName := COPYSTR(CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27)),1,MAXSTRLEN(CompName)); BankAccount.GET(Bacc); "Bank Code" := BankAccount."Bank Branch No."; IF STRLEN("Bank Code") = 0 THEN ...
المتطلبات الأساسية
يجب أن يكون لديك أحد المنتجات التالية مثبتا لتطبيق هذا الإصلاح العاجل:
- الإصدار الألماني من Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- الإصدار الألماني من Microsoft Dynamics NAV 2009 R2
معلومات الإزالة
لا يمكنك إزالة هذا الإصلاح العاجل.
الحالة
لقد أكدت Microsoft على أن هذه مشكلة في منتجات Microsoft المُدرجة في القسم "ينطبق على".
المراجع
VSTF DynamicsNAV SE: 245257؛ 254071; 277428
ملاحظة هذه مقالة "FAST PUBLISH" تم إنشاؤها مباشرة من داخل مؤسسة دعم Microsoft. وتقدم المعلومات الواردة هنا كما هي استجابة للقضايا الناشئة. نتيجة لسرعة إتاحتها، قد تتضمن المواد أخطاء مطبعية ويمكن مراجعتها في أي وقت دون إشعار. راجع شروط الاستخدام لاعتبارات أخرى.