quinta-feira, 8 de setembro de 2011

on
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