نوشته شده توسط
fedoracore1
با سلام مجدد خدمت id عزيز
من در يك شركت بزرگ كار ميكنم كه برنامه انبارش از نرم افزارهاي همكاران سيستم هستش و فول !!!
كاري كه ميخوام با اين برنامه تو كارخانمون راه بندازم فقط جهت ورود كالا به انبار و جهت خروج كالا از انباره .
ميخوام جدال مربوط به Forosh رو كه تو برنامه هست رو جهت خروج كالا و كپي اون رو جهت ورود كالا به انبار استفاده كنم.
راستي در مورد پرسش اولم كه مربوط به ايجاد فيلتر در زمان ورود/توليد كالا در گزارش توليد/ورود كالا به انبار؟ (آخرين گزارش در منوي گزارشات) فكري نكردي ؟؟؟
در پايان آخرين تغييراتي رو كه با اجازتون در برنامه تون دادم رو براي شما گذاشتم
با سلام
دوست عزیز برنامه حسابداری همکاران سیستم دارای انبار کامل هست و شما نیازی به این برنامه ندارید. ولی اگر باز هم خواستید از این برنامه استفاده کند باید کمی اونو customize تا به اون نتیجه دلخواهتون برسید. از اونجا که معلومه شما نیاز به آخرین مانده و یا ورود و خروج ندارید بلکه ممکنه نیاز داشته باشید تا در یک بازه زمانی خاص این عمل رو هم انجام دهید که باز هم میگم اگه کمی این برنامه رو شخصی سازی تر کنید می تونید کارایی بهتری ازش انتظار داشته باشید.
و در مورد سوال اولتون :
راستشو بخواهید من برنامه نویس نیستم یا حداقل نمی تونم بگم برنامه نویسم این برنامه رو هم برای کار خودم نوشته بودم و نیاز به همه ی کارایی هایی که توش داره داشتم پس یه برنامه شخصی بوده ولی برای استفاده دوستان آپش کرده بودم و چون دقیقاً آخرای برنامه به وقت امتحانات داشنگاه من خورد نتونستم برنامه رو تکمیل کنم و اون قسمت موند و چند قسمت نیمه تموم دیگه!
الانم کمی سرم شلوغه فعلاً نمی تونم تکمیلش کنم ولی ان شاالله در اولین فرصت برنامه رو به بهترین حالت ممکن ویرایش خواهم کرد شما می تونید قسمت زیر رو که بصورت کامنت در اومده در برنامه رو تغیر بدید تا به اون قسمت گزارش ورود و خروج در یک بازه زمانی خاص دست پیدا کنید.
نمونه نا تمامش به صورت زیر بوده است
Private Sub btn_submit_Click()
On Error GoTo errm
' Not checked the goods option
If IsTolid.Value = 0 Then
Select Case print_method.Value
Case Is = 2 ' Int and produc
DoCmd.OpenReport "tolid_kol", acViewPreview
Report_Zoom "tolid_kol", 138
Case Is = 1
DoCmd.OpenReport "tolid_prod", acViewPreview
Report_Zoom "tolid_prod", 138
Case Is = 0
DoCmd.OpenReport "tolid_int", acViewPreview
Report_Zoom "tolid_int", 138
End Select
End If
'Checked goods option '-------------------->
If IsTolid.Value <> 0 Then
If IsNull(Trim(txt_dasteh.Value)) Then
txt_dasteh.SetFocus
ElseIf IsNull(Trim(txt_kala.Value)) Then
txt_kala.SetFocus
Else
If print_method.Value < 1 Then
DoCmd.OpenReport "tolidbyname2", acViewPreview
Report_Zoom "tolidbyname2", 138
Else
DoCmd.OpenReport "tolidbyname", acViewPreview
Report_Zoom "tolidbyname", 138
End If
End If
End If
'If print_method.Value < 0 Then ' Int and produc
'Select Case Isvorood2.Value
'Case Is = 0 ' only from kala
'only kala
'swith to a method
'If print_method.Value = 2 Then ' Int and produc
'DoCmd.OpenReport "tolid_both", acViewPreview
'Report_Zoom "tolid_both", 138
'ElseIf print_method.Value = 1 Then ' only produc
'DoCmd.OpenReport "tolid_prod", acViewPreview
'Report_Zoom "tolid_prod", 138
'ElseIf print_method.Value = 0 Then ' only int
'DoCmd.OpenReport "tolid_int", acViewPreview
'Report_Zoom "tolid_int", 138
'Case Is < 1 ' from kala and from date to date
'Dim d1() As String
'Dim d2() As String
'Dim d3() As String
'If IsNull(Trim(txt_date)) Then
'txt_date.SetFocus
'Exit Sub
'ElseIf IsNull(Trim(txt_date2)) Then
'txt_date2.SetFocus
'End Select
'Exit Sub
'End If
'
'd1() = Split(txt_date, "/")
'il1.Value = d1(0)
'ay1.Value = d1(1)
'g1.Value = d1(2)
'd2() = Split(txt_date2, "/")
'il2.Value = d2(0)
'ay2.Value = d2(1)
'g2.Value = d2(2)
'
'If print_method.Value = 2 Then ' Int and produc
'DoCmd.OpenReport "tolid_YMD_b", acViewPreview
'Report_Zoom "tolid_YMD_b", 138
'ElseIf print_method.Value = 1 Then ' only produc
'DoCmd.OpenReport "tolid_YMD_pr", acViewPreview
'Report_Zoom "tolid_YMD_pr", 138
'ElseIf print_method.Value = 0 Then ' only int
'DoCmd.OpenReport "tolid_YMD_int", acViewPreview
'Report_Zoom "tolid_YMD_int", 138
'End If
'
'
'End If
Exit Sub
errm:
MsgBoxFa "اين قسمت در دست طراحي مي باشد "
End Sub
شما باید این قسمت رو تکمیل کنید کار زیاد سختی هم نیست ;)
موفق باشید.