كود ترحيل

[Eid Mostafa]

الأخوة الأعزاء بالمنتدي العزيز

بارك الله لكم فيما تبذلونه من جهد لتوفير المعلومة التى تساعد الكثير منا فى العمل.

أرجو من لدية القدرة على عمل كود يقوم بترحيل قيد اليومية إلى ورقة اليومية التحليلية (حسب الملف المرفق)

وذلك وفقاً للمتطلبات التالية:-

• كل قيد فى صف منفرد (مستقل) وكل حساب فى العمود الخاص بة (مدين / دائن).
  
• خاصية الترقيم الآلى للقيد.
  
• خاصية إستدعاء لتعديل قيد سبق إدخالة.
  
• رسالة تنبية فى حالة نسيان ملء خانة شرح القيد (خلية E 44 بورقة J.V).
  
• إذا كان القيد غير متوازن لا يتم الترحيل.
  
• رسالة تأكيد قبل الترحيل (مثل سيتم ترحيل القيد موافق / غير موافق).
  
• رسالة تأكيد الترحيل (مثل تم الترحيل بنجاح).
  
• مسح البيانات من ورقة قيد اليومية بعد الترحيل.
  
• ترحيل حسابات القيد كل بحسب طبيعتة (بمعنى أن حسابات الأستاذ العام عمود B & A ترحل إلى American Journal – Ledger) ، (حسابات الأستاذ المساعد عمود D & C ترحل إلى American Journal – Sub Ledger) إن أمكن ذلك ، أما إن كان ذلك غير ممكناً فيرجى ترحيل القيم بالعمود C والعمود D.
  

Statement to Send.rar

وأنا على يقين تام بأنى قد أكثرت عليكم ولكن كلى عشم فى الله ثم فيكم فى تلبية طلبى هذا.

ولكم خالص تحياتى وتقديرى ،،،،،،

أخوكم / عيد مصطفى

[Eid Mostafa]

معقولة 56 مشاهدة ولا رد واحد حتى ؟؟؟؟؟؟؟ !!!!!!!

[طارق محمود]

السلام عليكم

أخي العزيز

ماطلبته كثير

لعل ذلك هو مايجعل الإخوة لايقبلون علي المشاركة

عموما

تفضل المرفق وبه معظم ماطلبته

إلا "خاصية إستدعاء لتعديل قيد سبق إدخالة."

Statement to Send_ALL2.rar

[Eid Mostafa]

الأخ العزيز / طارق

أشكرك شكراً جزيلاً أولاً على إهتمامك بالرد ، وثانية على مجهودك الرائع الذى لا يوصف.

ولك خالص تحياتى وتقديرى ،،،،،،

أخوك / عيد مصطفى

[Eid Mostafa]

الأخ العزيز / طارق

أكرر شكرى مرة أخرى.

ولى طلب صغير جداً.

ألا وهو تعديل الكود ليقرأ الحسابات من العمود (B) بشيت (Chart of Accounts)

وأنا أعلم أن الكود يقرأ من العمود (K) وذلك لأنة كانت توجد حسابات مكررة ، وقد قمت بتعديلها بحيث لا يكون هناك تكرار أو تشابة بها.

مرفق الملف

ولك خالص تحياتى وتقديرى ،،،،،،

أخوك / عيد مصطفى

Statement to Send_ALL2.rar

[Eid Mostafa]

الأخ العزيز / طارق

نظراً لحاجتى الماسة لهذا الملف فى الوقت الحالى

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

لذا برجاء التكرم بتعديل الكود ليقرأ الحسابات من العمود (B) بشيت (Chart of Accounts) ، علماً بأننى قد قمت بتعديل طفيف على بعض أسماء الحسابات بحيث لا يكون هناك تكرار أو تشابة بها.

مرفق الملف بعد التعديل من جانبى

ولك خالص تحياتى وتقديرى ،،،،،،

أخوك / عيد مصطفى

Statement to Send_ALL3.rar

[طارق محمود]

السلام عليكم

أخي عيد

تفضل المرفق

لم أجربه

فقط نسقت أسماء الحسابات

Statement to Send_ALL4.rar

[Eid Mostafa]

أخى / طارق

أولاً : أهنئك بالعام الهجرى الجديد.

ثانياً : أشكرك شكراً جزيلاً على مجهودك الرائع وإهتمامك بالرد.

سأقوم بالإطلاع على الملف وسأوفيك بأية متطلبات أخرى إن وجد.

ولك خالص تحياتى وتقديرى

أخوك / عيد مصطفى

[Eid Mostafa]

أخى / طارق

بعد الإطلاع على الملف المرسل منك.

تبين لى ما يلى :-

أنه عند ترحيل أحد القيم المدينة لأحد الحسابات يتم معها ترحيل قيمة دائنة بمبلغ صفر لنفس الحساب، وكذلك الحال عند ترحيل أحد القيم الدائنة لأحد الحسابات يتم معها ترحيل قيمة مدينة بمبلغ صفر لنفس الحساب. (مثال ذلك حساب وسائل نقل وإنتقال خلية F & G وأيضاً مجمع إهلاك وسائل نقل وإنتقال خلية P & Q فى شيت American Journal Sub-Ledger.

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

كما ستلاحظ أننى قد قمت بإضافة ورقتا عمل وهما :-

1- Statement of Account

2- Movement

والشيت الأول يقوم بترحيل بعض بيانات الشيت الثانى

وبالطبع لست أنا من قام بعمل هذا الكود.

وستلاحظ أنه يجب إدخال قيد اليومية بشيت Movement حتى يتم إظهارها فى شيت Statement of Account.

وما أريدة منك هو ربط شيت Statement of Account بالملف الذى نعمل علية بحيث أقوم بإدخال البيانات مرة واحده فى شيت JV وترحل إلى:-

1- American Journal - Ledger

2- American Journal - Sub-Ledger

3- Statement of Account

ولك خالص تحياتى وتقديرى

أخوك / عيد مصطفى

Statement to Send_ALL4.rar

[Eid Mostafa]

أخى / طارق

أنا فى إنتظار ردك بشأن ما جاء فى ردى رقم (9) فى أقرب فرصه ممكنه.

وأرجو ألا تنسى طلبى بشرح الكود وتحديداً فيما يتعلق بجزئية شجرة الحسابات ، وذلك حتى تتاح لى المرونه الكافيه فى تعديلها فى أى وقت وهو أمر متكرر الحدوث فى مجال عملنا بصفه عامه.

ولك خالص تحياتى وتقديرى

أخوك / عيد مصطفى

[طارق محمود]

السلام عليكم

أخي العزيز / عيد

سأتناول الحلول معك نقطة بنقطة

أنه عند ترحيل أحد القيم المدينة لأحد الحسابات يتم معها ترحيل قيمة دائنة بمبلغ صفر لنفس الحساب، وكذلك الحال عند ترحيل أحد القيم الدائنة لأحد الحسابات يتم معها ترحيل قيمة مدينة بمبلغ صفر لنفس الحساب. (مثال ذلك حساب وسائل نقل وإنتقال خلية F & G وأيضاً مجمع إهلاك وسائل نقل وإنتقال خلية P & Q فى شيت American Journal Sub-Ledger.

ضع التالي مكان الجزء من السطر رقم 20 إلي رقم 10

20	  'Remember t = Right Column No

	    If crd = "" Then

		    .Cells(LastRow, t) = .Cells(LastRow, t) + deb

	    Else

		    .Cells(LastRow, t + 1) = .Cells(LastRow, t + 1) + crd

	    End If

10	 Next R

ومثله مكان الجزء من السطر رقم 40 إلي رقم 30

40	  'Remember t = Right Column No

	    If crd = "" Then

		    .Cells(LastRow, t) = .Cells(LastRow, t) + deb

	    Else

		    .Cells(LastRow, t + 1) = .Cells(LastRow, t + 1) + crd

	    End If

30	 Next R

[طارق محمود]

وشرح سريع لهذه الجزئية من الكود

كل مايسبقها هو تأكيد أن البيانات مضبوطة وأن رقم القيد قد تم عمله وشرح الكيد في الخلية E44 موجود و.... كل الشروط التي طلبتها

ثم في الأخير الجزء بين السطرين 20 ، 10 والخاص بالنقل لليومية الفرعية

ينقل البيانات التي سبق تخزينها في متغيرين deb , crd للدلالة علي داءن ومدين

وقد أضفت لهما شرط إن كان المدين لايحتوي علي شيء فلتنقل قيمة الدائن فقط وإلا لتنقل قيمة المدين فقط

ونفس الحال بالنسبة للجزء بين السطرين 40 ، 30 والخاص بالنقل لليومية العامة

[طارق محمود]

النقطة التالية

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

هذا الخطأ يحدث لأني جعلت المقارنة بين إسم الحساب في ورقة الـ JV والورقة التي سيرحل إليها

مثلا إذا عندك حركتين أولا من ح/ مجمع إهلاك أصول ثابتة ثم إلي ح/مجمع إهلاك وسائل نقل وإنتقال

عند ترحيل الأولي ، لن يجد هذا الحساب في الورقة الفرعية سيعطي الرسالة ثم يجده في الرئيسية فيرحله

وعند ترحيل الحركة الثانية ، سيجد هذا الحساب في الورقة الفرعية فيرحله ثم يكمل للورقة الرئيسية فلايجده فسيعطي الرسالة

لذلك سأعدل هذه الجزئية

[Eid Mostafa]

أخى / طارق

أشكرك شكراً جزيلاً

تم تنفيذ التعديل ، وإختفت القيم الصفرية (مرفق الملف بعد تعديل الكود).

أرجو منك الآن أن ننتقل سوياً إلى شرح أو توضيح الجزئية التالية:-

ألا وهى (كيفية تعديل فقرة الكود الخاصة كى يتأثر بإضافة أو تعديل حسابات فى شجرة الحسابات)

حيث أنه بالنسبة إلى ووفقاً للملف المرفق إليك الآن فإن نطاق أسماء الحسابات بورقة عمل [Chart of Accounts] هى عمود C سطر 170 وهو الأمر الذى أوضحته لك فى الصورتان السابقتان.

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

ولك خالص تحياتى وتقديرى

أخوك / عيد مصطفى

[Eid Mostafa]

آسف

نسيت الملف

Statement (29.11.11).rar

[طارق محمود]

السلام عليكم

أخي العزيز

لم أفتح مرفقاتك ، ولكني فهمت ماتقصد

مرفق الملف بصورته الأخيرة وبه مايلي

(1) تجزئة الكود لأكواد فرعية ليسهل عليك وعلي من يريد أن يتابعه

(2) كود إضافي لإستخراج شجرة الملفات في صفحتها أوتوماتيكيا ثم نقله إلي صفحتي الحسابات الفرعية والتفصيلية

(3) كود إضافي لنقل نسخة من القيد للصفحة الجديدة - Statement of Account - ولكني لست محاسب فلاأعلم هل القيد المراد نقله بتفاصيله ام رئيسي ؟

(4) إضافة ورقة بآخر الملف - شرح الكود - شرحت بها جزء منه ولكن الوقت لم يسعفني

فلتقرأ الشرح ثم حدد النقاط التي تريد زيادة شرح فيها

تفضل المرفق

Statement to Send_ALL6.rar

[Eid Mostafa]

أخى / طارق

أشكرك شكراً جزيلاً

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

ولك خالص تحياتى وتقديرى

أخوك / عيد مصطفى

[Eid Mostafa]

أخى / طارق

لا تزال مشكلة (هذا البيان لا يوجد فى شجرة الحسابات) قائمة.

مرفق الملف ، ومرفق صور من قيد اليومية.

ولك خالص تحياتى وتقديرى

أخوك / عيد مصطفى

Statement to Send.rar

[Eid Mostafa]

أخى / طارق

الملف المرفق بالمشاركة السابقة أرسل بالخطأ.

مرفق الملف ، ومرفق صور من قيد اليومية.

ولك خالص تحياتى وتقديرى

أخوك / عيد مصطفى

Statement to Send_ALL6.rar

[طارق محمود]

السلام عليكم

فعلا أخي ،

هذا صحيح وطبيعي

الكود سيعطي تلك النتيجة للحساب الذي في الأصل غير موجود في شجرة الحسابات

وستجد أيضا الخطأ #N/A في المعادلة بالعمودF من الشيت J.V

هل تريد إضافة الحساب لشجرة الحسابات إذا لم يكن موجود بها أصلا؟؟

وهل النتيجة بالشيت Statement of Account هي ماتريد ؟؟

أنتظر ردك

[abouelhassan]

شكر وتقديروفائق الاحترام استاذنا الفاضل

استاذ طارق

بارك الله فيك استاذنا

احترام من القلب

تم تعديل ديسمبر 2, 2011 بواسطه abouelhssan

[Eid Mostafa]

أخى / طارق

لم أستوعب جيدأ ما قصدتة من أن (هذا صحيح وطبيعي الكود سيعطي تلك النتيجة للحساب الذي في الأصل غير موجود في شجرة الحسابات

).

فالحسابات الثلاثة التى أرسلت إليك صورهم موجودين بشجرة الحسابات وهم كالتالى:-

- فوائد دائنة موجود بشيت [Cart of accounts] حساب رقم 604 خليه [C 168]

- إلتزام ضريبى مؤجل (إيراد / مصروف) موجود بشيت [Cart of accounts] حساب رقم 605 خليه [C 169]

- التغير فى القيمة العادلة لوثائق صندوق ثمار موجود بشيت [Cart of accounts] حساب رقم 60201 خليه [C 165]

أما فيما يتعلق بشيت Statement of Account فهو لم يتأثر إطلاقاً بالقيد المحاسبى.

(مرفق صورة من القيد ، مرفق صورة من Statement of Account تبين أن حركة الحساب لم تتأثر بالقيد المحاسبى)

ولك خالص تحياتى وتقديرى

أخوك / عيد مصطفى

Statement of Account.rar

[طارق محمود]

عندما أجريت البرنامج علي الجهاز عندي لم يعطي تلك الرسالة إلا مرة واحدة فقط في حساب ليس موجود بالفعل في شجرة الحسابات

[Eid Mostafa]

_{أخى / طارق}

_{هل يوجد ما يمكن إجراؤة بحيث تكون هنالك مرونه كافيه فى جزئية شجرة الحسابات ؟}

_{بمعنى أننا الآن متفقين على أسماء الحسابات موجود بشيت [Chart of Accounts] وبالعمود C وإلى صف معين بالنسبة لى هو سطر 169 وأرجو ألا أكزن مخطئ فى ذلك.}

_{فماأقصدة الآن أن تكون هنالك المرونة الكافية بحيث أننى فى حالة حذف أو إضافة أسماء حسابات جديدة يقوم الكود بأخذ ذلك فى الإعتبار (بمعنى أن نزيد أو نقل عن C 169)؟}

_{الرد عند أهل العلم و المعرفه.}

_{ولك خالص تحياتى وتقديرى}

_{أخوك / عيد مصطفى}

[طارق محمود]

ممكن إن شاء الله ولكني مشغوووووول والله

صبرا جميلا أو يتدخل أحد الإخوة