05-08-21, 12:27 AM
Sub max_cod_acc_accmilated_depreciation()
'كود اظهار كود اكبر مجمع الاهلاك + زيادة ب 001
Try
Dim CON As New Class_CON
Dim DT As New DataTable
DT.Clear()
DT = CON.select_txt("SELECT ISNULL(MAX(cod_account)+001,0) from Table_Account WHERE cod_father_account ='" & Text_Cod_Acc_accmilated_Group.Text & "'")
If DT.Rows.Count > 0 Then
Text_cod_account_accmilated_depreciation.Text = Val(DT.Rows(0)(0).ToString())
End If
'++++++++++++++++++++++++++++++++
'++++++++++++++++++++++++++++++++
End If
Catch ex As Exception
End Try
End Sub
الكود السابق يعمل بكفاءة ولكن اذا كان عدد الارقام فى cod_account لا يزيد عن 10 ارقم واذا ذاد لا يتم التجميع
فمثلا كود الحساب هو 20210703001 + 001 لا يقوم بالجمع
'كود اظهار كود اكبر مجمع الاهلاك + زيادة ب 001
Try
Dim CON As New Class_CON
Dim DT As New DataTable
DT.Clear()
DT = CON.select_txt("SELECT ISNULL(MAX(cod_account)+001,0) from Table_Account WHERE cod_father_account ='" & Text_Cod_Acc_accmilated_Group.Text & "'")
If DT.Rows.Count > 0 Then
Text_cod_account_accmilated_depreciation.Text = Val(DT.Rows(0)(0).ToString())
End If
'++++++++++++++++++++++++++++++++
'++++++++++++++++++++++++++++++++
End If
Catch ex As Exception
End Try
End Sub
الكود السابق يعمل بكفاءة ولكن اذا كان عدد الارقام فى cod_account لا يزيد عن 10 ارقم واذا ذاد لا يتم التجميع
فمثلا كود الحساب هو 20210703001 + 001 لا يقوم بالجمع