08-01-17, 04:01 PM
شكرا جزيلا
تم التغلب علي المشكلة وعمل ستورت بروسيجر
مع الاكواد الاتية
تم التغلب علي المشكلة وعمل ستورت بروسيجر
مع الاكواد الاتية
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))
