Olá colegas de sala da turma de Sistemas de Informação, a pedidos da maioria da sala estarei disponibilizando a 1° parte que o professor solicitou para ser entregue. =}
Código fonte:
Public Class frmEstoque
Private Sub atualiza()
Try
Me.ESTOQUETableAdapter.Fill(Me.EstoqueDataSet.ESTOQUE)
Catch ex As Exception
End Try
End Sub
Private Sub frmEstoque_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'EstoqueDataSet.ESTOQUE' table. You can move, or remove it, as needed.
atualiza()
End Sub
Private Sub LIMPACAMPOS()
Try
Me.CODTextBox.Clear()
Me.DESCRICAOTextBox.Clear()
Me.FORNECEDORTextBox.Clear()
Me.COD_FORNECEDORTextBox.Clear()
Me.DATA_COMPRADateTimePicker.Text = Date.Today
Me.ESTANTETextBox.Clear()
Me.PONTO_PEDIDOTextBox.Clear()
Me.ESTOQUE_MAXIMOTextBox.Clear()
Me.ESTOQUE_MINIMOTextBox.Clear()
Me.QUANTIDADETextBox.Clear()
Me.UNIDADETextBox.Clear()
Me.VALOR_UNITARIOTextBox.Clear()
Me.PORC_VENDATextBox.Clear()
Me.VL_VENDATextBox.Clear()
Me.DESCRICAOTextBox.Focus()
Catch ex As Exception
End Try
End Sub
Private Sub ENABLEDTRUE()
Try
Me.CODTextBox.Enabled = True
Me.DESCRICAOTextBox.Enabled = True
Me.FORNECEDORTextBox.Enabled = True
Me.COD_FORNECEDORTextBox.Enabled = True
Me.DATA_COMPRADateTimePicker.Enabled = True
Me.ESTANTETextBox.Enabled = True
Me.PONTO_PEDIDOTextBox.Enabled = True
Me.ESTOQUE_MAXIMOTextBox.Enabled = True
Me.ESTOQUE_MINIMOTextBox.Enabled = True
Me.QUANTIDADETextBox.Enabled = True
Me.UNIDADETextBox.Enabled = True
Me.VALOR_UNITARIOTextBox.Enabled = True
Me.PORC_VENDATextBox.Enabled = True
Me.VL_VENDATextBox.Enabled = True
Catch ex As Exception
End Try
End Sub
Private Sub ENABLEDFALSE()
Try
Me.CODTextBox.Enabled = False
Me.DESCRICAOTextBox.Enabled = False
Me.FORNECEDORTextBox.Enabled = False
Me.COD_FORNECEDORTextBox.Enabled = False
Me.DATA_COMPRADateTimePicker.Enabled = False
Me.ESTANTETextBox.Enabled = False
Me.PONTO_PEDIDOTextBox.Enabled = False
Me.ESTOQUE_MAXIMOTextBox.Enabled = False
Me.ESTOQUE_MINIMOTextBox.Enabled = False
Me.QUANTIDADETextBox.Enabled = False
Me.UNIDADETextBox.Enabled = False
Me.VALOR_UNITARIOTextBox.Enabled = False
Me.PORC_VENDATextBox.Enabled = False
Me.VL_VENDATextBox.Enabled = False
Catch ex As Exception
End Try
End Sub
Private Sub btnNovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNovo.Click
Try
LIMPACAMPOS()
ENABLEDTRUE()
Me.btnNovo.Enabled = False
Me.btnGravar.Enabled = True
Me.btnAlterar.Enabled = False
Me.btnInserir.Enabled = False
Me.btnExcluir.Enabled = False
Me.btnCancelar.Enabled = True
Catch ex As Exception
End Try
End Sub
Private Sub btnGravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGravar.Click
Try
If Me.DESCRICAOTextBox.Text = "" Then
MsgBox("Para alterar um registro pelo menos informe a descrição!", MsgBoxStyle.Information, "Atenção")
Else
Me.ESTOQUETableAdapter.InsertQuery(Me.CODTextBox.Text, _
Me.DESCRICAOTextBox.Text, _
Me.FORNECEDORTextBox.Text, _
Me.COD_FORNECEDORTextBox.Text, _
Me.DATA_COMPRADateTimePicker.Text, _
Me.ESTANTETextBox.Text, _
Me.PONTO_PEDIDOTextBox.Text, _
Me.ESTOQUE_MAXIMOTextBox.Text, _
Me.ESTOQUE_MINIMOTextBox.Text, _
Me.QUANTIDADETextBox.Text, _
Me.UNIDADETextBox.Text, _
Me.VALOR_UNITARIOTextBox.Text, _
Me.PORC_VENDATextBox.Text, _
Me.VL_VENDATextBox.Text)
MsgBox("REGISTRO Inserido com Sucesso", MsgBoxStyle.Information)
atualiza()
Me.btnNovo.Enabled = True
Me.btnGravar.Enabled = False
Me.btnAlterar.Enabled = True
Me.btnInserir.Enabled = False
Me.btnExcluir.Enabled = True
Me.btnCancelar.Enabled = False
ENABLEDFALSE()
End If
Catch ex As Exception
End Try
End Sub
Private Sub btnAlterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlterar.Click
Try
Me.btnNovo.Enabled = False
Me.btnGravar.Enabled = False
Me.btnAlterar.Enabled = False
Me.btnInserir.Enabled = True
Me.btnExcluir.Enabled = False
Me.btnCancelar.Enabled = True
ENABLEDTRUE()
Catch ex As Exception
End Try
End Sub
Private Sub btnInserir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInserir.Click
Try
If Me.DESCRICAOTextBox.Text = "" Then
MsgBox("Para alterar um registro pelo menos informe a descrição!", MsgBoxStyle.Information, "Atenção")
Else
Me.ESTOQUETableAdapter.UpdateQuery(Me.DESCRICAOTextBox.Text, _
Me.FORNECEDORTextBox.Text, _
Me.COD_FORNECEDORTextBox.Text, _
Me.DATA_COMPRADateTimePicker.Text, _
Me.ESTANTETextBox.Text, _
Me.PONTO_PEDIDOTextBox.Text, _
Me.ESTOQUE_MAXIMOTextBox.Text, _
Me.ESTOQUE_MINIMOTextBox.Text, _
Me.QUANTIDADETextBox.Text, _
Me.UNIDADETextBox.Text, _
Me.VALOR_UNITARIOTextBox.Text, _
Me.PORC_VENDATextBox.Text, _
Me.VL_VENDATextBox.Text, _
Me.CODTextBox.Text)
MsgBox("REGISTRO Alterado com Sucesso", MsgBoxStyle.Information)
atualiza()
Me.btnNovo.Enabled = True
Me.btnGravar.Enabled = False
Me.btnAlterar.Enabled = True
Me.btnInserir.Enabled = False
Me.btnExcluir.Enabled = True
Me.btnCancelar.Enabled = False
ENABLEDFALSE()
End If
Catch ex As Exception
End Try
End Sub
Private Sub btnExcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluir.Click
Try
Dim del As Integer
del = MsgBox("Tem certeza que desja excluir o ITEM SELECIONADO??", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If del = vbYes Then
Me.ESTOQUETableAdapter.DeleteQuery(Me.CODTextBox.Text)
MsgBox("Cliente Excluído com Sucesso", MsgBoxStyle.Information)
atualiza()
End If
Catch ex As Exception
End Try
End Sub
Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
Try
Me.btnNovo.Enabled = True
Me.btnGravar.Enabled = False
Me.btnAlterar.Enabled = True
Me.btnInserir.Enabled = False
Me.btnExcluir.Enabled = True
Me.btnCancelar.Enabled = False
ENABLEDFALSE()
Me.atualiza()
Catch ex As Exception
End Try
End Sub
Private Sub frmEstoque_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Try
Me.btnNovo.Enabled = True
Me.btnGravar.Enabled = False
Me.btnAlterar.Enabled = True
Me.btnInserir.Enabled = False
Me.btnExcluir.Enabled = True
Me.btnCancelar.Enabled = False
ENABLEDFALSE()
Me.atualiza()
Catch ex As Exception
End Try
End Sub
Private Sub TXTBUSCA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTBUSCA.TextChanged
Try
'CODIGO FORNECEDOR
'DESCRIÇÃO
If Me.CBBUSCA.Text = "FORNECEDOR" Then
Me.ESTOQUETableAdapter.BUSCAFORNECEDOR(Me.EstoqueDataSet.ESTOQUE, "%" + Me.TXTBUSCA.Text + "%")
Else
If Me.CBBUSCA.Text = "CODIGO FORNECEDOR" Then
Me.ESTOQUETableAdapter.BUSCACODFORNECEDOR(Me.EstoqueDataSet.ESTOQUE, "%" + Me.TXTBUSCA.Text + "%")
Else
If Me.CBBUSCA.Text = "DESCRIÇÃO" Then
Me.ESTOQUETableAdapter.BUSCADESCRICAO(Me.EstoqueDataSet.ESTOQUE, "%" + Me.TXTBUSCA.Text + "%")
End If
End If
End If
Catch ex As Exception
End Try
End Sub
Private Sub QUANTIDADETextBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles QUANTIDADETextBox.LostFocus
If Val(QUANTIDADETextBox.Text) < Val(PONTO_PEDIDOTextBox.Text) Then
MsgBox("O ESTOQUE ESTA ABAIXO DO PONTO DE PEDIDO, COMUNIQUE COMPRAS PARA REPOR O ESTOQUE", vbCritical, "ATENÇÃO")
End If
If Val(QUANTIDADETextBox.Text) > Val(ESTOQUE_MAXIMOTextBox.Text) Then
MsgBox("O ESTOQUE ESTA MAIOR QUE O MÁXIMO PERMITIDO REVEJA A ENTRADA", vbCritical, "ATENÇÃO")
End If
If Val(QUANTIDADETextBox.Text) < Val(ESTOQUE_MINIMOTextBox.Text) Then
MsgBox("O ESTOQUE ESTA ABAIXO DO MÍNIMO PERMITIDO COMUNIQUE URGENTE COMPRAS", vbCritical, "ESTOQUE CRÍTICO")
End If
End Sub
Private Sub QUANTIDADETextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QUANTIDADETextBox.TextChanged
If Val(QUANTIDADETextBox.Text) < Val(PONTO_PEDIDOTextBox.Text) Then
MsgBox("O ESTOQUE ESTA ABAIXO DO PONTO DE PEDIDO, COMUNIQUE COMPRAS PARA REPOR O ESTOQUE", vbCritical, "ATENÇÃO")
Exit Sub
End If
If Val(QUANTIDADETextBox.Text) > Val(ESTOQUE_MAXIMOTextBox.Text) Then
MsgBox("O ESTOQUE ESTA MAIOR QUE O MÁXIMO PERMITIDO REVEJA A ENTRADA", vbCritical, "ATENÇÃO")
Exit Sub
End If
If Val(QUANTIDADETextBox.Text) < Val(ESTOQUE_MINIMOTextBox.Text) Then
MsgBox("O ESTOQUE ESTA ABAIXO DO MÍNIMO PERMITIDO COMUNIQUE URGENTE COMPRAS", vbCritical, "ESTOQUE CRÍTICO")
Exit Sub
End If
End Sub
Private Sub PORC_VENDATextBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles PORC_VENDATextBox.LostFocus
VL_VENDATextBox.Text = FormatCurrency((PORC_VENDATextBox.Text / 100 * VALOR_UNITARIOTextBox.Text) + VALOR_UNITARIOTextBox.Text)
End Sub
End Class
_______________________________________________________________________
Espero ter ajudado vocês e até ai próxima parte que o professor irá solicitar!!! Abraços...
0 comentários:
Postar um comentário