' ============================================================
' نظام إدارة المبيعات — VBA بسيط للمبتدئين
' ============================================================

Sub HifzAlFatoura()

    ' --- تعريف المتغيرات ---
    Dim wsInput    As Worksheet   ' ورقة الإدخال
    Dim wsLog      As Worksheet   ' ورقة السجل
    Dim lastRow    As Long        ' أول صف فارغ
    Dim invoiceNum As String      ' رقم الفاتورة الحالي
    Dim nextNum    As Long        ' رقم الفاتورة القادمة

    ' --- تحديد الورقتين بالاسم ---
    Set wsInput = ThisWorkbook.Sheets("Sales")
    Set wsLog   = ThisWorkbook.Sheets("Sales_Log")

    ' --- التحقق من إدخال البيانات الأساسية ---
    If wsInput.Range("C6").Value = "" Then
        MsgBox "من فضلك ادخل اسم العميل!", vbExclamation, "تنبيه"
        wsInput.Range("C6").Select : Exit Sub
    End If
    If Not IsNumeric(wsInput.Range("C8").Value) Or wsInput.Range("C8").Value = "" Then
        MsgBox "من فضلك ادخل كمية صحيحة!", vbExclamation, "تنبيه"
        wsInput.Range("C8").Select : Exit Sub
    End If

    ' --- حفظ رقم الفاتورة الحالي في متغير ---
    invoiceNum = wsInput.Range("C4").Value

    ' --- إيجاد أول صف فارغ في السجل ---
    lastRow = wsLog.Cells(wsLog.Rows.Count, "A").End(xlUp).Row + 1

    ' --- ترحيل البيانات إلى Sales_Log ---
    wsLog.Cells(lastRow, 1) = invoiceNum
    wsLog.Cells(lastRow, 2) = wsInput.Range("C5").Value
    wsLog.Cells(lastRow, 3) = wsInput.Range("C6").Value
    wsLog.Cells(lastRow, 4) = wsInput.Range("C7").Value
    wsLog.Cells(lastRow, 5) = wsInput.Range("C8").Value
    wsLog.Cells(lastRow, 6) = wsInput.Range("C9").Value
    wsLog.Cells(lastRow, 7) = wsInput.Range("C8").Value * wsInput.Range("C9").Value

    ' --- تنسيق التاريخ والإجمالي ---
    wsLog.Cells(lastRow, 2).NumberFormat = "DD/MM/YYYY"
    wsLog.Cells(lastRow, 7).NumberFormat = "#,##0.00"

    ' --- رسالة التأكيد ---
    MsgBox "تم حفظ الفاتورة بنجاح!" & vbCrLf & "رقم الفاتورة: " & invoiceNum, vbInformation, "نظام المبيعات"

    ' --- مسح خلايا الإدخال ---
    wsInput.Range("C6").Value = ""
    wsInput.Range("C7").Value = ""
    wsInput.Range("C8").Value = ""
    wsInput.Range("C9").Value = ""

    ' --- حساب رقم الفاتورة التالي وكتابته في C4 ---
    nextNum = wsLog.Cells(wsLog.Rows.Count, "A").End(xlUp).Row - 3 + 1
    wsInput.Range("C4").Value = "INV-" & Format(nextNum, "000")

    ' --- الانتقال لاسم العميل جاهزاً للفاتورة التالية ---
    wsInput.Range("C6").Select

End Sub