كيفية إضافة رقم السطرلكل صنف في الفاتورة

[أحمد الغامدي]

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

قم بإضافة التقرير الخاص بك الى الفيجوال بيسك
أضف 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

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

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