[السيد الجوهري]

شكرا جزيلا

تم التغلب علي المشكلة وعمل ستورت بروسيجر

مع الاكواد الاتية

PHP كود :

 Public Sub addd_(ByVal code_ As Integer,
                        ByVal name_ar As String,
                        ByVal name_en As String,
                        ByVal note_ As String,
                        ByVal start_date As DateTime,
                        ByVal end_date As DateTime,
                        ByVal p1_non As Integer)

        Dim con As New CLS_CON
        Dim prm(6) As SqlParameter

        prm(0) = New SqlParameter("@COD_E", SqlDbType.Int)
        prm(0).Value = code_
        prm(1) = New SqlParameter("@NAME_AR_PERIOD", SqlDbType.NVarChar, 50)
        prm(1).Value = name_ar

        prm(2) = New SqlParameter("@NAME_EN_PERIOD", SqlDbType.NVarChar, 50)
        prm(2).Value = name_en

        prm(3) = New SqlParameter("@NOT_E", SqlDbType.NVarChar, 500)
        prm(3).Value = note_

        prm(4) = New SqlParameter("@START_DAT", SqlDbType.DateTime)
        prm(4).Value = start_date

        prm(5) = New SqlParameter("@END_DAT", SqlDbType.DateTime)
        prm(5).Value = end_date

        prm(6) = New SqlParameter("@P1_NON", SqlDbType.Bit)
        prm(6).Value = p1_non
        con.EXECUTE_STORE("CLOSEE_PERIOD", prm)
    End Sub


            CLS_CLOSE_PERIOD_.addd_(TXT_CODE.Text, TXT_NAME.Text, TXT_NAME_ENG.Text, TXT_NOTE.Text, DP1.Value.ToShortDateString, DP2.Value.ToShortDateString(), Val(NO_DATE.Checked))