منتديات جريت بلينز العربية Great Plains For Arab

منتديات جريت بلينز العربية Great Plains For Arab (http://www.gp4arab.com/forum/index.php)
-   منتدى أكواد فيجوال بيسك VBA (http://www.gp4arab.com/forum/forumdisplay.php?f=7)
-   -   كيفية إضافة رقم السطرلكل صنف في الفاتورة (http://www.gp4arab.com/forum/showthread.php?t=37)

أحمد الغامدي 25-Jun-2011 03:45 PM

كيفية إضافة رقم السطرلكل صنف في الفاتورة
 
السلام عليكم
هذه الكود يظهر رقم السطر في الفاتورة (هذه الميزة غير موجودة في النظام).

قم بإضافة التقرير الخاص بك الى الفيجوال بيسك
أضف Calculated Field الى التقرير باسم "CLineNumber"

وألصق الكود بالأسفل في الفيجوال بيسك

كود:

Option Explicit
Dim LineNumber As Integer

Private Sub Report_Start()
    LineNumber = 0
End Sub

Private Sub Report_BeforeAH(ByVal Level As Integer, SuppressBand As Boolean)
    Select Case Level
        Case 2
            LineNumber = LineNumber + 1
            CLineNumber = LineNumber
        Case Else
    End Select
End Sub

لا تنسى من حفظ التغيرات في الفيجوال بيسك قبل إغلاق جريت بلينز

ولا تنساني من دعوة بظهر الغيب إن استفدت من هذا الموضوع
والسلام عليكم

صلاح السيد 27-Jun-2011 09:39 AM

شكرا على المجهود يا اخ احمد

Monzer Osama 27-Jun-2011 12:12 PM

جزاك الله خير أخي أحمد وبالتوفيق

abu hade 07-Sep-2011 04:57 PM

مشكور أخى الكريم على المجهود الجميل.

السيد سمارت ليست 08-Sep-2011 03:17 PM

على أي نسخة؟؟ وكيف تظهر الفاتورة بعدين؟؟

أنا ما عندي دعم دوت نيت .. لإن عندي نسخة قديمة أكيد نسختك جديدة صح؟؟؟

Monzer Osama 09-Sep-2011 10:32 AM

اقتباس:

المشاركة الأصلية كتبت بواسطة السيد سمارت ليست (المشاركة 1800)
على أي نسخة؟؟ وكيف تظهر الفاتورة بعدين؟؟

أنا ما عندي دعم دوت نيت .. لإن عندي نسخة قديمة أكيد نسختك جديدة صح؟؟؟

أهلا أخي ...
لا يحتاج أي دعم للدوت نيت .. فقط خذ صلاحيات على التقرير المعدل
وستعمل مع النسخة حتى لو كانت رقم 7 ..
بالتوفيق


جميع الأوقات بتوقيت GMT +3. الساعة الآن 10:14 AM.

Powered by vBulletin® Version 3.8.3

الموقع والمنتدى من تطوير » شركة المنذر للاستضافة والتصميم


الموقع لا يمثل أي جهة رسمية بل هو جهد شخصي يرمي الى تجميع القدرات في برنامج جريت بلينز