نمایش نتایج 1 تا 11 از 11

نام تاپیک: اضافه کردن یک عدد ثابت به اول شماره فاکتور

  1. #1
    کاربر دائمی آواتار sadeghlinux
    تاریخ عضویت
    اسفند 1387
    محل زندگی
    يه جاي واقعا سرسبز!
    پست
    180

    اضافه کردن یک عدد ثابت به اول شماره فاکتور

    سلام

    من برنامه ام قسمت شماره فاکتور با فشردن دکمه یه واحد به شماره فاکتور قبلی اضافه میشه

    حالا من میخام برای خواناییو شناسایی بهتر در هرقست از برنامه که نیاز به گرفتن کد هست .... مثل شماره فاکتور ، شماره محصول، کد مشتری و .... قبل از کد یک عدد ثابت درج کنم

    به عنوان مثال الان برنامه عدد 1 رو بصورت خودکار پس از بررسی بانک به تکست باکس فاکتور میده حالا نکته اینجاست که میخام عدد 98 قبل از عدد 1 درج بشه 981 کد بعد 982 و 981000 و ...

    و برای کد مشتری 991 ، 992 ، 9950 ، 991000 و الی آخر ...

    ممنون

    منتظر راهنمایی شما عزیزان هستم

  2. #2
    کاربر تازه وارد آواتار cjmoon
    تاریخ عضویت
    خرداد 1389
    محل زندگی
    :|
    پست
    46

    نقل قول: اضافه کردن یک عدد ثابت به اول شماره فاکتور

    من منظورت رو زیاد متوجه نشدم

    اگه من بخوام یک مقدار ثابت رو کناری یک مقدار متغیر بزام اینطوری عمل می کنم
    textbox1.text="98" + meghdar
    98 ثابت هستش و متغیر meghdar همیشه تغییر می کنه حالا از دیتا بیس یا دستا گرید میگیره اگه منظورت این نیست خبر بده


  3. #3

    نقل قول: اضافه کردن یک عدد ثابت به اول شماره فاکتور

    نقل قول نوشته شده توسط cjmoon مشاهده تاپیک
    من منظورت رو زیاد متوجه نشدم

    اگه من بخوام یک مقدار ثابت رو کناری یک مقدار متغیر بزام اینطوری عمل می کنم
    textbox1.text="98" + meghdar
    98 ثابت هستش و متغیر meghdar همیشه تغییر می کنه حالا از دیتا بیس یا دستا گرید میگیره اگه منظورت این نیست خبر بده
    سلام دوست عزیز من کد خودم را برات می فرستم که اگر قادر هستی تحلیل کنی استفاده کن هم می تونی داخل فرم لود خودت استفاده کنی که خودش اتوماتیک انجام می ده هم می تونی در رویداد کلیک باتن مورد نظر خودت استفاده کنی

    Public Sub NumberFact()
    StrToday = pc.GetYear(Date.Now).ToString("0000") & "/" & pc.GetMonth(Date.Now).ToString("00") & "/" & pc.GetDayOfMonth(Date.Now).ToString("00") & " " & Date.Now.ToShortTimeString()
    Dim StrYear As String = StrToday.Substring(2, 2)
    Call ExsistNumber()

    If ExistSaleS = True Then
    Call MaxSaleNumber()
    Dim StrLast As String = LastSaleNumber.Substring(3, 4)

    If StrYear = LastSaleNumber.Substring(0, 2) Then
    TxtNumberFactor.Text = StrYear & "-" & (Val(StrLast) + 1).ToString("0000")
    Else
    TxtNumberFactor.Text = StrYear & "-" & "0001"
    End If
    Else
    TxtNumberFactor.Text = StrYear & "-" & "0001"
    End If
    End Sub

    قبل از اون باید یک دستور بنویسی و اول چک کنی که آیا اولین شماره می باشد یا نه به عبارتی آیا آدی جدول مربوطه هنوز صفر می باشد یا خیر
    این کد می یاد دو رقم آخر سال سیستم را می گیره مثلا سال 1398 دو رقم آخر آن را که 98 است می گیره و بایک / به عدد که گفتی از صفر شروع کند می چسباند مثلا 98/0001 و الی آخر در سال بعد باز همین کار را می کند و مجدد شماره از یک شروع می شود با این تفاوت که سال فرق کرده مثلا 99/0001
    ضمنا باید یک دستور بنویسی که اگر سال عوض شد بیاد از صفر مجدد شروع کنه البته دستور آن ساده است من چون از پروسیجر استفاده کردم اگر متوجه نشدی تا دستور را بصورت سلکت مستقیم قرار بدم اگر وقت کردم می زارم
    آخرین ویرایش به وسیله safari_m4 : شنبه 19 بهمن 1398 در 20:43 عصر

  4. #4

    نقل قول: اضافه کردن یک عدد ثابت به اول شماره فاکتور

    Private Sub ExsistNumber()

    Cmd = New SqlCommand("SELECT Count(NumberFactor) As ExistSale FROM TB_Factor_Sale where ID_Sal=@ID_Sal", Con)

    Cmd.Parameters.AddWithValue("@ID_Sal", Val(ID_SalM))
    Con.Open()
    Dim Dr As SqlDataReader = Cmd.ExecuteReader
    If Dr.Read = True Then
    NumberFactorSale = Val(Dr("ExistSale").ToString)
    End If
    Dr.Close()
    Con.Close()
    If NumberFactorSale = 0 Then
    ExistSaleS = False
    Else
    ExistSaleS = True
    End If
    End Sub
    این دستور جهت مشخص کردن اولین شماره



    Private Sub MaxSaleNumber()

    Cmd = New SqlCommand("SELECT Top 1 MAX(NumberFactor) As NumberFactor FROM TB_Factor_Sale where ID_Sal=@ID_Sal order by NumberFactor desc", Con)

    Cmd.Parameters.AddWithValue("@ID_Sal", Val(ID_SalM))
    Con.Open()
    Dim Dr As SqlDataReader = Cmd.ExecuteReader
    If Dr.Read = True Then
    LastSaleNumber = Dr("NumberFactor").ToString()
    End If
    Con.Close()
    End Sub

    این کد دیگرش امیدوارم فهمیده باشی ببخشید که من خیلی کم وارد سیستم می شم که اگر مشکلی داشتی جواب بدهم آلان هم چون مشکلی داشتم وارد سیستم شد به هر حال ببخشید

  5. #5
    کاربر دائمی آواتار sadeghlinux
    تاریخ عضویت
    اسفند 1387
    محل زندگی
    يه جاي واقعا سرسبز!
    پست
    180

    نقل قول: اضافه کردن یک عدد ثابت به اول شماره فاکتور

    سلام خیلی ممنونم
    تست می کنم خبر میدم دوستان

  6. #6
    کاربر دائمی آواتار sadeghlinux
    تاریخ عضویت
    اسفند 1387
    محل زندگی
    يه جاي واقعا سرسبز!
    پست
    180

    نقل قول: اضافه کردن یک عدد ثابت به اول شماره فاکتور

    نقل قول نوشته شده توسط safari_m4 مشاهده تاپیک
    Private Sub ExsistNumber()

    Cmd = New SqlCommand("SELECT Count(NumberFactor) As ExistSale FROM TB_Factor_Sale where ID_Sal=@ID_Sal", Con)

    Cmd.Parameters.AddWithValue("@ID_Sal", Val(ID_SalM))
    Con.Open()
    Dim Dr As SqlDataReader = Cmd.ExecuteReader
    If Dr.Read = True Then
    NumberFactorSale = Val(Dr("ExistSale").ToString)
    End If
    Dr.Close()
    Con.Close()
    If NumberFactorSale = 0 Then
    ExistSaleS = False
    Else
    ExistSaleS = True
    End If
    End Sub
    این دستور جهت مشخص کردن اولین شماره



    Private Sub MaxSaleNumber()

    Cmd = New SqlCommand("SELECT Top 1 MAX(NumberFactor) As NumberFactor FROM TB_Factor_Sale where ID_Sal=@ID_Sal order by NumberFactor desc", Con)

    Cmd.Parameters.AddWithValue("@ID_Sal", Val(ID_SalM))
    Con.Open()
    Dim Dr As SqlDataReader = Cmd.ExecuteReader
    If Dr.Read = True Then
    LastSaleNumber = Dr("NumberFactor").ToString()
    End If
    Con.Close()
    End Sub

    این کد دیگرش امیدوارم فهمیده باشی ببخشید که من خیلی کم وارد سیستم می شم که اگر مشکلی داشتی جواب بدهم آلان هم چون مشکلی داشتم وارد سیستم شد به هر حال ببخشید

    سلام

    من یه مثال زدم و منظورم این نبود که میخام با سال و ماه کار کنم

    داخل برنامه کد مشتری از 1000 شروع میشه

    هر مشتری میتونه چندین سفارش داشته باشه

    برای اینکه کد سفارش و کد مشتری یکی نشه میخام اینکارو کنم که وقتی کد مشتری من 1000 بود و کد سفارش من هم از 1000 شروع میشه برای اینکه باهم فرق داشته باشه میخام ابتدای تمامی کدهای سفارش عدد 98 یا 99 یا 270 یا هم عدد دیگه ای بیاد . کد مشتری اول میشه 1000 کد مشتری دوم میشه 1001 با فرض اینکه هر مشتری یک سفارش داشته باشه کد سفارش مشتری اول میشه 981000 و کد سفارش مشتری دوم باید بشه 981001 و اگه سفارش جدیدی ثبت شد کدش بشه 981003 و الی اخر . اگه بازم نیاز به توضیح هست خدمت شما عرض کنم

  7. #7

    نقل قول: اضافه کردن یک عدد ثابت به اول شماره فاکتور

    سلام.

    Static Number as Integer = 1000
    Number += 1
    Dim NewNumber as Integer = Val(String.Format("98{0}", Number))

  8. #8
    کاربر دائمی آواتار sadeghlinux
    تاریخ عضویت
    اسفند 1387
    محل زندگی
    يه جاي واقعا سرسبز!
    پست
    180

    نقل قول: اضافه کردن یک عدد ثابت به اول شماره فاکتور

    نقل قول نوشته شده توسط ROSTAM2 مشاهده تاپیک
    سلام.

    Static Number as Integer = 1000
    Number += 1
    Dim NewNumber as Integer = Val(String.Format("98{0}", Number))
    ممنونم از پاسخگویی شما
    اما چون من میخام هر بار دیتابیس چک بشه باید 98 رو به عنوان ثابت داشته باشم و به 1000 یک واحد اضافه بشه
    اگه 10000 رکورد داشته باشم 98 به 99 تبدیل میشه

  9. #9

    نقل قول: اضافه کردن یک عدد ثابت به اول شماره فاکتور

    ممنونم از پاسخگویی شما
    اما چون من میخام هر بار دیتابیس چک بشه باید 98 رو به عنوان ثابت داشته باشم و به 1000 یک واحد اضافه بشه
    اگه 10000 رکورد داشته باشم 98 به 99 تبدیل میشه
    الآن دقیقا مشکلت کجاست؟ عدد 98؟ می تونید بجای عدد 98 {1} بنویسید و یک متغیر دیگر به پارامترهای تابع Format اضافه کنید که مقدارتون قابل تغییر باشه.



    Static Number as Integer = 1000
    Number += 1
    Dim FNumber as Integer = 98 + ?
    Dim NewNumber as Integer = Val(String.Format("{0}{1}", FNumber, Number))

    آخرین ویرایش به وسیله ROSTAM2 : سه شنبه 29 بهمن 1398 در 12:39 عصر

  10. #10
    کاربر دائمی آواتار sadeghlinux
    تاریخ عضویت
    اسفند 1387
    محل زندگی
    يه جاي واقعا سرسبز!
    پست
    180

    نقل قول: اضافه کردن یک عدد ثابت به اول شماره فاکتور

    نقل قول نوشته شده توسط ROSTAM2 مشاهده تاپیک
    الآن دقیقا مشکلت کجاست؟ عدد 98؟ می تونید بجای عدد 98 {1} بنویسید و یک متغیر دیگر به پارامترهای تابع Format اضافه کنید که مقدارتون قابل تغییر باشه.



    Static Number as Integer = 1000
    Number += 1
    Dim FNumber as Integer = 98 + ?
    Dim NewNumber as Integer = Val(String.Format("{0}{1}", FNumber, Number))

    من میخام یه عدد ثابت قبل شماره سفارش قرار بگیره اگه شناسه سفارش ۱ بود یه عدد قبلش باشه من به عنوان مثال ۹۸ گفتم اگه تعداد رکوردهام رسید به ۲۰۰۰۰ رکورد، بازم یه عدد ثابت قبلش قرار بگیره بشه ۹۸۲۰۰۰۰ یا هر عدد دیگه ای به جای ۹۸ که داخل برنامه خودم میدم فقط میخام کدش رو بدونم چجوریه

  11. #11
    کاربر تازه وارد آواتار cjmoon
    تاریخ عضویت
    خرداد 1389
    محل زندگی
    :|
    پست
    46

    نقل قول: اضافه کردن یک عدد ثابت به اول شماره فاکتور

    نقل قول نوشته شده توسط cjmoon مشاهده تاپیک
    من منظورت رو زیاد متوجه نشدم

    اگه من بخوام یک مقدار ثابت رو کناری یک مقدار متغیر بزام اینطوری عمل می کنم
    textbox1.text="98" + meghdar
    98 ثابت هستش و متغیر meghdar همیشه تغییر می کنه حالا از دیتا بیس یا دستا گرید میگیره اگه منظورت این نیست خبر بده
    شما این راهو تست کردین ؟

تاپیک های مشابه

  1. پاسخ: 0
    آخرین پست: شنبه 28 مرداد 1391, 14:32 عصر
  2. سوال: خروجی توابع جاوا اسکریپت (توابع تودرتو)
    نوشته شده توسط abpsoft در بخش JavaScript و Framework های مبتنی بر آن
    پاسخ: 6
    آخرین پست: یک شنبه 15 خرداد 1390, 15:51 عصر
  3. سوال: چگونه می توان وقتی focusروی texboxقرار می گیردبتوان فارسی تایپ کرد
    نوشته شده توسط assimar42 در بخش JavaScript و Framework های مبتنی بر آن
    پاسخ: 5
    آخرین پست: جمعه 29 بهمن 1389, 22:49 عصر
  4. چگونه مي توان محتواي يك فيلد جدول را با توجه به اطلاعات وارده در تكس باكس روي يك ليبل نشان دهد؟
    نوشته شده توسط reshehri در بخش مطالب مرتبط با بانکهای اطلاعاتی در VB6
    پاسخ: 1
    آخرین پست: یک شنبه 10 بهمن 1389, 17:19 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •