Option Explicit On
Option Strict On
Imports GAF
Imports System.Transactions
Imports System.Drawing.Printing
Public Class frmPurchaseRequisition
Dim db As New dbMpiBizDataContext()
Dim IProduct As IOrderedQueryable(Of Product)
Dim IPurchaseRequisition As IOrderedQueryable(Of PurchaseRequisition)
Dim CurrentProduct(2) As String
Dim sw As New Stopwatch()
Dim ProcessTime As Double
Dim _ToolStripStatusLabel As New ToolStripStatusLabel()
Dim UseFont As New Font("MS Sans Serif", 10)
Dim prDoc As New PrintDocument()
Dim prDlg As New PrintDialog()
Public Sub New(ByRef refToolStripStatusLabel As ToolStripStatusLabel)
InitializeComponent()
_ToolStripStatusLabel = refToolStripStatusLabel
End Sub
Private Sub frmPurchaseRequisition_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sw.Reset()
sw.Start()
Dim ds = From d In db.Departments
With cboDepartment
.BeginUpdate()
.DisplayMember = "DepartmentName"
.ValueMember = "DID"
.DataSource = ds.ToList()
.EndUpdate()
End With
Dim cs = From c In db.Companies Where c.CompanyID <> "000"
With cboByCompany
.BeginUpdate()
.DisplayMember = "CompanyName"
.ValueMember = "CompanyID"
.DataSource = cs.ToList()
.EndUpdate()
End With
Dim pt = From p In db.ProductTypes
With cboByProductType
.BeginUpdate()
.DisplayMember = "ProductTypeName"
.ValueMember = "ProductTypeID"
.DataSource = pt.ToList()
.EndUpdate()
End With
Dim us = From u In db.Units
With ColUnit
.ValueMember = "UnitID"
.DisplayMember = "UnitName"
.DataSource = us.ToList()
End With
cmdSave.Enabled = False
dtpStart.Value = DateTime.Today.AddMonths(-2)
dtpEnd.Value = DateTime.Today
cboDepartment.ContextMenu = New ContextMenu()
cboByCompany.ContextMenu = New ContextMenu()
cboByProductType.ContextMenu = New ContextMenu()
sw.Stop()
ProcessTime = sw.ElapsedMilliseconds / 1000
_ToolStripStatusLabel.Text = "เวลาที่ใช้ : " & ProcessTime.ToString("0.0000") & " วินาที"
End Sub
Private Sub txtSearch_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSearch.KeyDown
If txtSearch.Text.Trim() = "" Then Exit Sub
sw.Reset()
sw.Start()
If e.KeyCode = Keys.Enter Then
If optAll.Checked = True Then
IProduct = From p In db.Products _
Where p.ProductID.Contains(txtSearch.Text.Trim()) _
OrElse p.ProductNameTH.Contains(txtSearch.Text.Trim()) _
AndAlso p.IsSaleMix = "0" _
AndAlso p.ProductTypeID <> "2" _
Order By p.ProductNameTH
ElseIf optByCompany.Checked = True Then
IProduct = From p In db.Products _
Where p.ProductID.Contains(txtSearch.Text.Trim()) _
OrElse p.ProductNameTH.Contains(txtSearch.Text.Trim()) _
AndAlso p.CompanyID = cboByCompany.SelectedValue.ToString() _
AndAlso p.IsSaleMix = "0" _
AndAlso p.ProductTypeID <> "2" _
Order By p.ProductNameTH
ElseIf optByProductType.Checked = True Then
IProduct = From p In db.Products _
Where p.ProductID.Contains(txtSearch.Text.Trim()) _
OrElse p.ProductNameTH.Contains(txtSearch.Text.Trim()) _
AndAlso p.ProductTypeID = cboByProductType.SelectedValue.ToString() _
AndAlso p.IsSaleMix = "0" _
AndAlso p.ProductTypeID <> "2" _
Order By p.ProductNameTH
End If
If IProduct.Count() > 0 Then
dgvProductList.DataSource = IProduct.ToList()
FormatDgvProductList()
sw.Stop()
ProcessTime = sw.ElapsedMilliseconds / 1000
_ToolStripStatusLabel.Text = "เวลาที่ใช้ : " & ProcessTime.ToString("0.0000") & " วินาที"
Else
dgvProductList.DataSource = Nothing
cmdSave.Enabled = False
MessageBox.Show("เงื่อนไขที่คุณป้อน ไม่ตรงกับรายการสินค้าที่มีอยู่ !!!", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtSearch.Focus()
txtSearch.SelectAll()
End If
End If
End Sub
Private Sub FormatDgvProductList()
With dgvProductList
If .RowCount > 0 Then
.Columns(0).HeaderText = "รหัสสินค้า"
.Columns(1).HeaderText = "ชื่อสินค้า"
.Columns(0).Width = 90
.Columns(1).Width = 245
.Columns(2).Visible = False
.Columns(3).Visible = False
.Columns(4).Visible = False
.Columns(5).Visible = False
.Columns(6).Visible = False
.Columns(7).Visible = False
.Columns(8).Visible = False
.Columns(9).Visible = False
.Columns(10).Visible = False
.Columns(11).Visible = False
.Columns(12).Visible = False
.Columns(13).Visible = False
.Columns(14).Visible = False
.Columns(15).Visible = False
.Columns(16).Visible = False
.Columns(17).Visible = False
.Columns(18).Visible = False
.Columns(19).Visible = False
.Columns(20).Visible = False
.Columns(21).Visible = False
.Columns(22).Visible = False
.Columns(23).Visible = False
.Columns(24).Visible = False
End If
End With
End Sub
Private Sub dgvProductList_CellMouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvProductList.CellMouseDown
With dgvProductList
If e.RowIndex = -1 Then Exit Sub
CurrentProduct(0) = .Rows.Item(e.RowIndex).Cells(0).Value.ToString() CurrentProduct(1) = .Rows.Item(e.RowIndex).Cells(1).Value.ToString() 'Error บรรทัดนี้
End With
End Sub
Private Sub dgvProductList_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgvProductList.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim AnyData As New DataObject()
AnyData.SetData(DataFormats.Text, CurrentProduct)
Dim dde As DragDropEffects
dde = dgvProductList.DoDragDrop(AnyData, DragDropEffects.Copy)
End If
End Sub
Private Sub dgvPR_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles dgvPR.DragEnter
If (CurrentProduct(0) = "") OrElse (CurrentProduct(1) = "") Then Exit Sub
If (e.Data.GetDataPresent(DataFormats.Text, True)) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub dgvPR_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles dgvPR.DragDrop
CurrentProduct = DirectCast(e.Data.GetData(DataFormats.Text, True), String())
CurrentProduct(2) = "1"
Dim i As Integer
With dgvPR
For i = 0 To .Rows.Count - 1
If (.Rows.Item(i).Cells(0).Value.ToString()) = CurrentProduct(0) Then
MessageBox.Show("รายการสินค้าที่คุณเลือก ซ้ำกับรายการเดิมที่มีอยู่ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
Next
.Rows.Add(CurrentProduct)
End With
Array.Clear(CurrentProduct, 0, CurrentProduct.Length)
cmdSave.Enabled = True
End Sub
Private Sub dgvPR_CellValidating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles dgvPR.CellValidating
If e.ColumnIndex = -1 Then Exit Sub
If e.RowIndex = -1 Then Exit Sub
If dgvPR.Columns(e.ColumnIndex).Name = "ColAmount" Then
dgvPR.Rows(e.RowIndex).ErrorText = ""
Dim TestInteger As Integer
If (Not Integer.TryParse(e.FormattedValue.ToString(), TestInteger)) OrElse (TestInteger <= 0) Then
e.Cancel = True
dgvPR.Rows(e.RowIndex).ErrorText = "กรุณาใส่เลขจำนวนเต็มที่มากกว่า 0 !!!"
End If
End If
End Sub
Private Sub dgvPR_RowsRemoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs) Handles dgvPR.RowsRemoved
If dgvPR.RowCount = 0 Then
cmdSave.Enabled = False
Else
cmdSave.Enabled = True
End If
End Sub
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
If txtPRNo.Text.Trim() = "" Then
MessageBox.Show("กรุณาระบุเลขที่ใบขอสั่งซื้อก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtPRNo.Focus()
Exit Sub
End If
Dim i As Integer
With dgvPR
For i = 0 To .Rows.Count - 1
If (.Rows.Item(i).Cells("ColUnit").Value Is Nothing) Then
MessageBox.Show("กรุณาเลือกหน่วยสินค้าให้ครบก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
Next
End With
If MessageBox.Show("คุณต้องการบันทึกรายการสินค้าที่ขอสั่งซื้อ ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
sw.Reset()
sw.Start()
Dim FirstID As String = ""
Dim SecondID As Integer = 0
Dim prid = From id In db.PurchaseRequisitions _
Order By id.PRID Descending Take (1)
Dim LastPRID As String = ""
If prid.Count() = 1 Then
FirstID = prid.SingleOrDefault().PRID.Left(4)
SecondID = Integer.Parse(prid.SingleOrDefault().PRID.Right(8))
SecondID += 1
LastPRID = String.Format(FirstID, "0000") & SecondID.ToString("00000000")
Else
LastPRID = BizConfig.CurrentBranchID & "00000001"
End If
Dim pr As New PurchaseRequisition()
With pr
.PRID = LastPRID
.BranchID = BizConfig.CurrentBranchID
.DID = cboDepartment.SelectedValue.ToString()
.PRNo = txtPRNo.Text.ToString()
.PRDate = DateTime.Today
.RequiredDate = dtpRequiredDate.Value
.IsComplete = "0"
.BroachBy = UserAuthentication.UserName
End With
Dim prd As PurchaseRequisitionDetail
With dgvPR
For i = 0 To .Rows.Count - 1
prd = New PurchaseRequisitionDetail()
prd.PRID = LastPRID
prd.ProductID = .Rows(i).Cells("ColProductID").Value.ToString()
prd.NumberToOrder = Integer.Parse(.Rows(i).Cells("ColAmount").Value.ToString())
prd.UnitID = .Rows(i).Cells("ColUnit").Value.ToString()
prd.PRStatus = "ยังไม่ดำเนินการ"
pr.PurchaseRequisitionDetails.Add(prd)
Next
End With
Using ts As New TransactionScope()
db.PurchaseRequisitions.InsertOnSubmit(pr)
db.SubmitChanges()
ts.Complete()
End Using
If prDlg.ShowDialog = Windows.Forms.DialogResult.OK Then
prDoc.Print()
End If
txtPRNo.Text = ""
dgvPR.Rows.Clear()
sw.Stop()
ProcessTime = sw.ElapsedMilliseconds / 1000
_ToolStripStatusLabel.Text = "เวลาที่ใช้ : " & ProcessTime.ToString("0.0000") & " วินาที"
MessageBox.Show("บันทึกเรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Sub StringToPrint_Print(ByVal sender As Object, ByVal e As PrintPageEventArgs)
AnyString(e.Graphics, txtPRNo.Text, 560, 125)
AnyString(e.Graphics, cboDepartment.Text, 230, 165)
AnyString(e.Graphics, dtpRequiredDate.Value.ToLongDateString(), 580, 165)
Dim i As Integer = 0
Dim CurrentYPosition As Integer = 300
Dim strColumn1 As String = ""
Dim strColumn2 As String = ""
Dim strColumn3 As String = ""
Dim strColumn4 As String = ""
With dgvPR
For i = 0 To dgvPR.Rows.Count - 1
strColumn1 = .Rows(i).Cells("ColProductID").Value.ToString()
strColumn2 = .Rows(i).Cells("ColProductName").Value.ToString()
strColumn3 = .Rows(i).Cells("ColAmount").Value.ToString()
strColumn4 = .Rows(i).Cells("ColUnit").Value.ToString()
AnyString(e.Graphics, strColumn1, 145, CurrentYPosition)
AnyString(e.Graphics, strColumn2.ToString(), 235, CurrentYPosition)
AnyString(e.Graphics, strColumn3.ToString(), 505, CurrentYPosition)
AnyString(e.Graphics, strColumn4.ToString(), 565, CurrentYPosition)
CurrentYPosition = CurrentYPosition + 20
Next
End With
End Sub
Private Sub AnyString(ByVal g As Graphics, ByVal printString As String, ByVal xPos As Integer, ByVal yPos As Integer)
Dim anyPoint As New PointF(xPos, yPos)
g.DrawString(printString, UseFont, Brushes.Black, anyPoint)
End Sub
Private Sub txtSearchPR_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSearchPR.KeyDown
If txtSearchPR.Text.Trim() = "" Then Exit Sub
If e.KeyCode = Keys.Enter Then
SearchPR()
End If
End Sub
Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
If txtSearchPR.Text.Trim() = "" AndAlso optPRNo.Checked = True Then Exit Sub
SearchPR()
End Sub
Private Sub SearchPR()
sw.Reset()
sw.Start()
If optPRNo.Checked = True Then
IPurchaseRequisition = From pr In db.PurchaseRequisitions _
Where pr.PRNo = txtSearchPR.Text.Trim() _
AndAlso pr.IsComplete = "0" _
Order By pr.PRDate
ElseIf optDuration.Checked = True Then
IPurchaseRequisition = From pr In db.PurchaseRequisitions _
Where (pr.PRDate >= dtpStart.Value AndAlso pr.PRDate <= dtpEnd.Value) _
AndAlso pr.IsComplete = "0" _
Order By pr.PRDate
End If
dgvPRDList.DataSource = Nothing
If IPurchaseRequisition.Count() > 0 Then
dgvPRList.DataSource = IPurchaseRequisition.ToList()
FormatDgvPRList()
sw.Stop()
ProcessTime = sw.ElapsedMilliseconds / 1000
_ToolStripStatusLabel.Text = "เวลาที่ใช้ : " & ProcessTime.ToString("0.0000") & " วินาที"
Else
dgvPRList.DataSource = Nothing
MessageBox.Show("เงื่อนไขที่คุณป้อน ไม่ตรงกับรายการขอซื้อที่มีอยู่ !!!", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtSearchPR.Focus()
txtSearchPR.SelectAll()
End If
End Sub
Private Sub FormatDgvPRList()
With dgvPRList
If .RowCount > 0 Then
.Columns(3).HeaderText = "เลขที่ใบขอซื้อ"
.Columns(4).HeaderText = "วันที่ขอซื้อ"
.Columns(5).HeaderText = "วันที่ต้องการสินค้า"
.Columns(0).Visible = False
.Columns(1).Visible = False
.Columns(2).Visible = False
.Columns(3).Width = 150
.Columns(4).Width = 190
.Columns(5).Width = 190
.Columns(6).Visible = False
.Columns(7).Visible = False
.Columns(8).Visible = False
.Columns(9).Visible = False
End If
End With
End Sub
Private Sub dgvPRList_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvPRList.CellFormatting
If e.ColumnIndex = -1 Then Exit Sub
If dgvPRList.Columns(e.ColumnIndex).Name = "PRDate" Then
e.CellStyle.Format = "d MMMM yyyy"
End If
If dgvPRList.Columns(e.ColumnIndex).Name = "RequiredDate" Then
e.CellStyle.Format = "d MMMM yyyy"
End If
End Sub
Private Sub dgvPRList_CellMouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvPRList.CellMouseUp
If e.RowIndex = -1 Then Exit Sub
Dim CurrentPRID = dgvPRList.Rows.Item(e.RowIndex).Cells(0).Value.ToString()
Dim PRDList = From prd In db.PurchaseRequisitionDetails _
From p In db.Products _
From u In db.Units _
Where prd.ProductID = p.ProductID _
AndAlso prd.UnitID = u.UnitID _
AndAlso prd.PRID = CurrentPRID _
Order By p.ProductNameTH _
Select New With _
{ _
.PRID = prd.PRID, _
.ProductID = prd.ProductID, _
.ProductName = p.ProductNameTH, _
.NumberToOrder = prd.NumberToOrder, _
.UnitName = u.UnitName, _
.PRStatus = prd.PRStatus _
}
dgvPRDList.DataSource = PRDList.ToList()
FormatDgvPRDList()
End Sub
Private Sub FormatDgvPRDList()
With dgvPRDList
If .RowCount > 0 Then
.Columns(1).HeaderText = "รหัสสินค้า"
.Columns(2).HeaderText = "ชื่อสินค้า"
.Columns(3).HeaderText = "จำนวน"
.Columns(4).HeaderText = "หน่วย"
.Columns(5).HeaderText = "สถานะขอซื้อ"
.Columns(0).Visible = False
.Columns(1).Width = 100
.Columns(2).Width = 240
.Columns(3).Width = 60
.Columns(4).Width = 120
.Columns(5).Width = 110
End If
End With
End Sub
Private Sub dgvPRDList_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvPRDList.CellFormatting
If dgvPRDList.Columns(e.ColumnIndex).Name = "NumberToOrder" Then
e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
End If
End Sub
Private Sub dtpRequiredDate_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpRequiredDate.ValueChanged
If dtpRequiredDate.Value < DateTime.Today Then
dtpRequiredDate.Value = DateTime.Today
End If
dtpRequiredDate.Value = dtpRequiredDate.Value.NextWorkingDay(HolidayMode.SundayOnly)
End Sub
Private Sub dtpEnd_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpEnd.ValueChanged
If dtpEnd.Value > DateTime.Today Then
dtpEnd.Value = DateTime.Today
End If
End Sub
Private Sub frmPurchaseRequisition_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
db.Connection.Close()
End Sub
Private Sub optAll_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optAll.CheckedChanged
If optAll.Checked = True Then
cboByCompany.Enabled = False
cboByProductType.Enabled = False
End If
End Sub
Private Sub optByCompany_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optByCompany.CheckedChanged
If optByCompany.Checked = True Then
cboByCompany.Enabled = True
Else
cboByCompany.Enabled = False
End If
End Sub
Private Sub optByProductType_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optByProductType.CheckedChanged
If optByProductType.Checked = True Then
cboByProductType.Enabled = True
Else
cboByProductType.Enabled = False
End If
End Sub
Private Sub optPRNo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optPRNo.CheckedChanged
If optPRNo.Checked = True Then
txtSearchPR.Enabled = True
dtpStart.Enabled = False
dtpEnd.Enabled = False
dgvPRList.DataSource = Nothing
dgvPRDList.DataSource = Nothing
txtSearchPR.Focus()
End If
End Sub
Private Sub optDuration_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optDuration.CheckedChanged
If optDuration.Checked = True Then
txtSearchPR.Enabled = False
dtpStart.Enabled = True
dtpEnd.Enabled = True
dtpStart.Value = DateTime.Today.AddMonths(-2)
dtpEnd.Value = DateTime.Today
dgvPRList.DataSource = Nothing
dgvPRDList.DataSource = Nothing
dtpStart.Focus()
End If
End Sub
Private Sub cboDepartment_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cboDepartment.KeyPress
e.Handled = True
End Sub
Private Sub cboDepartment_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboDepartment.KeyDown
e.Handled = True
End Sub
Private Sub cboByCompany_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cboByCompany.KeyPress
e.Handled = True
End Sub
Private Sub cboByCompany_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboByCompany.KeyDown
e.Handled = True
End Sub
Private Sub cboByProductType_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cboByProductType.KeyPress
e.Handled = True
End Sub
Private Sub cboByProductType_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboByProductType.KeyDown
e.Handled = True
End Sub
End Class
Tag : .NET, Ms SQL Server 2008, Win (Windows App), VB.NET, VS 2008 (.NET 3.x)
Load balance : Server 00
